guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-32-ga2230b


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-32-ga2230b6
Date: Thu, 05 May 2011 21:11:44 +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=a2230b653b86cece1daab09315873b5a4c592d6b

The branch, stable-2.0 has been updated
       via  a2230b653b86cece1daab09315873b5a4c592d6b (commit)
       via  e2ccab571e3e756b96b4179769b8fe8821bc28fd (commit)
       via  3b7f4ba37b41a4db80fc60ef7324d5c1e27944c1 (commit)
      from  3009b93e9b7d14edebedde6dc28539917b556344 (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 a2230b653b86cece1daab09315873b5a4c592d6b
Author: Andy Wingo <address@hidden>
Date:   Thu May 5 23:07:23 2011 +0200

    map and for-each in scheme
    
    * module/ice-9/boot-9.scm (map, for-each): Implement in Scheme instead
      of C.  There are boot versions before `cond' is defined.
      (map-in-order): Define this alias here instead of in evalext.h.
    
    * libguile/eval.c: Stub out the map and for-each definitions to just
      call into Scheme.
    
    * libguile/evalext.c: Remove map-in-order definition.
    
    * module/srfi/srfi-1.scm: Replace all calls to map1 with calls to map.
      (map, for-each): Define implementations here, in Scheme, instead of in
      C.
    
    * test-suite/tests/eval.test (exception:wrong-length, "map"): Update the
      expected exception for mapping over lists of different lengths.
    
    * libguile/srfi-1.h:
    * libguile/srfi-1.c: Remove map and for-each definitions.  Remove the
      bit that extended the core `map' primitive with another method: the
      right way to do that is with modules.

commit e2ccab571e3e756b96b4179769b8fe8821bc28fd
Author: Andy Wingo <address@hidden>
Date:   Thu May 5 16:28:28 2011 +0200

    psyntax simplification
    
    * module/ice-9/psyntax.scm (strip): Inline the and-map* definition to
      its one call site.
    
    * module/ice-9/psyntax-pp.scm: Regenerate.

commit 3b7f4ba37b41a4db80fc60ef7324d5c1e27944c1
Author: Andy Wingo <address@hidden>
Date:   Thu May 5 15:13:08 2011 +0200

    scm_mem[qv] optimization
    
    * libguile/list.c (scm_memq, scm_memv): Inline the tortoise/hare check
      that scm_ilength does, via SCM_VALIDATE_LIST, into the memq/memv
      bodies.  Avoids traversing these lists twice.

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

Summary of changes:
 libguile/eval.c             |  170 +-
 libguile/evalext.c          |    5 +-
 libguile/list.c             |   59 +-
 libguile/srfi-1.c           |  229 -
 libguile/srfi-1.h           |    2 -
 module/ice-9/boot-9.scm     |  185 +
 module/ice-9/psyntax-pp.scm |30583 +++++++++++++++++++++----------------------
 module/ice-9/psyntax.scm    |   27 +-
 module/srfi/srfi-1.scm      |  129 +-
 test-suite/tests/eval.test  |   15 +-
 10 files changed, 15554 insertions(+), 15850 deletions(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index f830e00..009f379 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -596,171 +596,31 @@ SCM_DEFINE (scm_nconc2last, "apply:nconc2last", 1, 0, 0,
 #undef FUNC_NAME
 
 
-
-/* Typechecking for multi-argument MAP and FOR-EACH.
-
-   Verify that each element of the vector ARGV, except for the first,
-   is a proper list whose length is LEN.  Attribute errors to WHO,
-   and claim that the i'th element of ARGV is WHO's i+2'th argument.  */
-static inline void
-check_map_args (SCM argv,
-               long len,
-               SCM gf,
-               SCM proc,
-               SCM args,
-               const char *who)
-{
-  long i;
-
-  for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--)
-    {
-      SCM elt = SCM_SIMPLE_VECTOR_REF (argv, i);
-      long elt_len = scm_ilength (elt);
-
-      if (elt_len < 0)
-       {
-         if (gf)
-           scm_apply_generic (gf, scm_cons (proc, args));
-         else
-           scm_wrong_type_arg (who, i + 2, elt);
-       }
-
-      if (elt_len != len)
-       scm_out_of_range_pos (who, elt, scm_from_long (i + 2));
-    }
-}
-
-
-SCM_GPROC (s_map, "map", 2, 0, 1, scm_map, g_map);
-
-/* Note: Currently, scm_map applies PROC to the argument list(s)
-   sequentially, starting with the first element(s).  This is used in
-   evalext.c where the Scheme procedure `map-in-order', which guarantees
-   sequential behaviour, is implemented using scm_map.  If the
-   behaviour changes, we need to update `map-in-order'.
-*/
-
 SCM 
 scm_map (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_map
 {
-  long i, len;
-  SCM res = SCM_EOL;
-  SCM *pres = &res;
-
-  len = scm_ilength (arg1);
-  SCM_GASSERTn (len >= 0,
-               g_map, scm_cons2 (proc, arg1, args), SCM_ARG2, s_map);
-  SCM_VALIDATE_REST_ARGUMENT (args);
-  if (scm_is_null (args))
-    {
-      SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_map, proc, arg1, 
SCM_ARG1, s_map);
-      while (SCM_NIMP (arg1))
-       {
-         *pres = scm_list_1 (scm_call_1 (proc, SCM_CAR (arg1)));
-         pres = SCM_CDRLOC (*pres);
-         arg1 = SCM_CDR (arg1);
-       }
-      return res;
-    }
-  if (scm_is_null (SCM_CDR (args)))
-    {
-      SCM arg2 = SCM_CAR (args);
-      int len2 = scm_ilength (arg2);
-      SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_map,
-                    scm_cons2 (proc, arg1, args), SCM_ARG1, s_map);
-      SCM_GASSERTn (len2 >= 0,
-                   g_map, scm_cons2 (proc, arg1, args), SCM_ARG3, s_map);
-      if (len2 != len)
-       SCM_OUT_OF_RANGE (3, arg2);
-      while (SCM_NIMP (arg1))
-       {
-         *pres = scm_list_1 (scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR 
(arg2)));
-         pres = SCM_CDRLOC (*pres);
-         arg1 = SCM_CDR (arg1);
-         arg2 = SCM_CDR (arg2);
-       }
-      return res;
-    }
-  arg1 = scm_cons (arg1, args);
-  args = scm_vector (arg1);
-  check_map_args (args, len, g_map, proc, arg1, s_map);
-  while (1)
-    {
-      arg1 = SCM_EOL;
-      for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
-       {
-         SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
-         if (SCM_IMP (elt)) 
-           return res;
-         arg1 = scm_cons (SCM_CAR (elt), arg1);
-         SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
-       }
-      *pres = scm_list_1 (scm_apply (proc, arg1, SCM_EOL));
-      pres = SCM_CDRLOC (*pres);
-    }
-}
-#undef FUNC_NAME
+  static SCM var = SCM_BOOL_F;
 
+  if (scm_is_false (var))
+    var = scm_private_variable (scm_the_root_module (),
+                                scm_from_latin1_symbol ("map"));
 
-SCM_GPROC (s_for_each, "for-each", 2, 0, 1, scm_for_each, g_for_each);
+  return scm_apply (scm_variable_ref (var),
+                    scm_cons (proc, scm_cons (arg1, args)), SCM_EOL);
+}
 
 SCM 
 scm_for_each (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_for_each
 {
-  long i, len;
-  len = scm_ilength (arg1);
-  SCM_GASSERTn (len >= 0, g_for_each, scm_cons2 (proc, arg1, args),
-               SCM_ARG2, s_for_each);
-  SCM_VALIDATE_REST_ARGUMENT (args);
-  if (scm_is_null (args))
-    {
-      SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_for_each,
-                    proc, arg1, SCM_ARG1, s_for_each);
-      while (SCM_NIMP (arg1))
-       {
-         scm_call_1 (proc, SCM_CAR (arg1));
-         arg1 = SCM_CDR (arg1);
-       }
-      return SCM_UNSPECIFIED;
-    }
-  if (scm_is_null (SCM_CDR (args)))
-    {
-      SCM arg2 = SCM_CAR (args);
-      int len2 = scm_ilength (arg2);
-      SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_for_each,
-                   scm_cons2 (proc, arg1, args), SCM_ARG1, s_for_each);
-      SCM_GASSERTn (len2 >= 0, g_for_each,
-                   scm_cons2 (proc, arg1, args), SCM_ARG3, s_for_each);
-      if (len2 != len)
-       SCM_OUT_OF_RANGE (3, arg2);
-      while (SCM_NIMP (arg1))
-       {
-         scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR (arg2));
-         arg1 = SCM_CDR (arg1);
-         arg2 = SCM_CDR (arg2);
-       }
-      return SCM_UNSPECIFIED;
-    }
-  arg1 = scm_cons (arg1, args);
-  args = scm_vector (arg1);
-  check_map_args (args, len, g_for_each, proc, arg1, s_for_each);
-  while (1)
-    {
-      arg1 = SCM_EOL;
-      for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
-       {
-         SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
-         if (SCM_IMP (elt))
-           return SCM_UNSPECIFIED;
-         arg1 = scm_cons (SCM_CAR (elt), arg1);
-         SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
-       }
-      scm_apply (proc, arg1, SCM_EOL);
-    }
+  static SCM var = SCM_BOOL_F;
+
+  if (scm_is_false (var))
+    var = scm_private_variable (scm_the_root_module (),
+                                scm_from_latin1_symbol ("for-each"));
+
+  return scm_apply (scm_variable_ref (var),
+                    scm_cons (proc, scm_cons (arg1, args)), SCM_EOL);
 }
-#undef FUNC_NAME
 
 
 static SCM
diff --git a/libguile/evalext.c b/libguile/evalext.c
index ff2ff0e..1e5bd68 100644
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2010 Free 
Software Foundation, Inc.
+/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2010, 2011 
Free Software Foundation, Inc.
  * 
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
@@ -55,9 +55,6 @@ SCM_DEFINE (scm_defined_p, "defined?", 1, 1, 0,
 #undef FUNC_NAME
 
 
-SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);
-
-
 SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,
            (SCM obj),
            "Return #t for objects which Guile considers self-evaluating")
diff --git a/libguile/list.c b/libguile/list.c
index 23ef404..7041515 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,2000,2001,2003,2004,2008,2009,2010
+/* Copyright (C) 1995,1996,1997,2000,2001,2003,2004,2008,2009,2010,2011
  * Free Software Foundation, Inc.
  * 
  * This library is free software; you can redistribute it and/or
@@ -617,8 +617,32 @@ SCM_DEFINE (scm_memq, "memq", 2, 0, 0,
            "returned.")
 #define FUNC_NAME s_scm_memq
 {
-  SCM_VALIDATE_LIST (2, lst);
-  return scm_c_memq (x, lst);
+  SCM hare = lst, tortoise = lst;
+  
+  while (scm_is_pair (hare))
+    {
+      if (scm_is_eq (SCM_CAR (hare), x))
+       return hare;
+      else
+        hare = SCM_CDR (hare);
+
+      if (!scm_is_pair (hare))
+        break;
+
+      if (scm_is_eq (SCM_CAR (hare), x))
+       return hare;
+      else
+        hare = SCM_CDR (hare);
+
+      tortoise = SCM_CDR (tortoise);
+      if (SCM_UNLIKELY (scm_is_eq (hare, tortoise)))
+        break;
+    }
+
+  if (SCM_LIKELY (scm_is_null (hare)))
+    return SCM_BOOL_F;
+  else
+    scm_wrong_type_arg_msg (FUNC_NAME, 2, lst, "list");
 }
 #undef FUNC_NAME
 
@@ -633,13 +657,32 @@ SCM_DEFINE (scm_memv, "memv", 2, 0, 0,
            "returned.")
 #define FUNC_NAME s_scm_memv
 {
-  SCM_VALIDATE_LIST (2, lst);
-  for (; !SCM_NULL_OR_NIL_P (lst); lst = SCM_CDR (lst))
+  SCM hare = lst, tortoise = lst;
+  
+  while (scm_is_pair (hare))
     {
-      if (! scm_is_false (scm_eqv_p (SCM_CAR (lst), x)))
-       return lst;
+      if (scm_is_true (scm_eqv_p (SCM_CAR (hare), x)))
+       return hare;
+      else
+        hare = SCM_CDR (hare);
+
+      if (!scm_is_pair (hare))
+        break;
+
+      if (scm_is_true (scm_eqv_p (SCM_CAR (hare), x)))
+       return hare;
+      else
+        hare = SCM_CDR (hare);
+
+      tortoise = SCM_CDR (tortoise);
+      if (SCM_UNLIKELY (scm_is_eq (hare, tortoise)))
+        break;
     }
-  return SCM_BOOL_F;
+
+  if (SCM_LIKELY (scm_is_null (hare)))
+    return SCM_BOOL_F;
+  else
+    scm_wrong_type_arg_msg (FUNC_NAME, 2, lst, "list");
 }
 #undef FUNC_NAME
 
diff --git a/libguile/srfi-1.c b/libguile/srfi-1.c
index f67e600..37441f7 100644
--- a/libguile/srfi-1.c
+++ b/libguile/srfi-1.c
@@ -44,32 +44,6 @@
  */
 
 
-static long
-srfi1_ilength (SCM sx)
-{
-  long i = 0;
-  SCM tortoise = sx;
-  SCM hare = sx;
-
-  do {
-    if (SCM_NULL_OR_NIL_P(hare)) return i;
-    if (!scm_is_pair (hare)) return -2;
-    hare = SCM_CDR(hare);
-    i++;
-    if (SCM_NULL_OR_NIL_P(hare)) return i;
-    if (!scm_is_pair (hare)) return -2;
-    hare = SCM_CDR(hare);
-    i++;
-    /* For every two steps the hare takes, the tortoise takes one.  */
-    tortoise = SCM_CDR(tortoise);
-  }
-  while (! scm_is_eq (hare, tortoise));
-
-  /* If the tortoise ever catches the hare, then the list must contain
-     a cycle.  */
-  return -1;
-}
-
 static SCM
 equal_trampoline (SCM proc, SCM arg1, SCM arg2)
 {
@@ -760,202 +734,6 @@ SCM_DEFINE (scm_srfi1_lset_difference_x, 
"lset-difference!", 2, 0, 1,
 #undef FUNC_NAME
 
 
-/* Typechecking for multi-argument MAP and FOR-EACH.
-
-   Verify that each element of the vector ARGV, except for the first,
-   is a list and return minimum length.  Attribute errors to WHO,
-   and claim that the i'th element of ARGV is WHO's i+2'th argument.  */
-static inline int
-check_map_args (SCM argv,
-               long len,
-               SCM gf,
-               SCM proc,
-               SCM args,
-               const char *who)
-{
-  long i;
-  SCM elt;
-
-  for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--)
-    {
-      long elt_len;
-      elt = SCM_SIMPLE_VECTOR_REF (argv, i);
-
-      if (!(scm_is_null (elt) || scm_is_pair (elt)))
-       goto check_map_error;
-       
-      elt_len = srfi1_ilength (elt);
-      if (elt_len < -1)
-       goto check_map_error;
-
-      if (len < 0 || (elt_len >= 0 && elt_len < len))
-       len = elt_len;
-    }
-
-  if (len < 0)
-    {
-      /* i == 0 */
-      elt = SCM_EOL;
-    check_map_error:
-      if (gf)
-       scm_apply_generic (gf, scm_cons (proc, args));
-      else
-       scm_wrong_type_arg (who, i + 2, elt);
-    }
-
-  scm_remember_upto_here_1 (argv);
-  return len;
-}
-
-
-SCM_GPROC (s_srfi1_map, "map", 2, 0, 1, scm_srfi1_map, g_srfi1_map);
-
-/* Note: Currently, scm_srfi1_map applies PROC to the argument list(s)
-   sequentially, starting with the first element(s).  This is used in
-   the Scheme procedure `map-in-order', which guarantees sequential
-   behaviour, is implemented using scm_map.  If the behaviour changes,
-   we need to update `map-in-order'.
-*/
-
-SCM 
-scm_srfi1_map (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_srfi1_map
-{
-  long i, len;
-  SCM res = SCM_EOL;
-  SCM *pres = &res;
-
-  len = srfi1_ilength (arg1);
-  SCM_GASSERTn ((scm_is_null (arg1) || scm_is_pair (arg1)) && len >= -1,
-               g_srfi1_map,
-               scm_cons2 (proc, arg1, args), SCM_ARG2, s_srfi1_map);
-  SCM_VALIDATE_REST_ARGUMENT (args);
-  if (scm_is_null (args))
-    {
-      SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_srfi1_map,
-                    proc, arg1, SCM_ARG1, s_srfi1_map);
-      SCM_GASSERT2 (len >= 0, g_srfi1_map, proc, arg1, SCM_ARG2, s_srfi1_map);
-      while (SCM_NIMP (arg1))
-       {
-         *pres = scm_list_1 (scm_call_1 (proc, SCM_CAR (arg1)));
-         pres = SCM_CDRLOC (*pres);
-         arg1 = SCM_CDR (arg1);
-       }
-      return res;
-    }
-  if (scm_is_null (SCM_CDR (args)))
-    {
-      SCM arg2 = SCM_CAR (args);
-      int len2 = srfi1_ilength (arg2);
-      SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_srfi1_map,
-                   scm_cons2 (proc, arg1, args), SCM_ARG1, s_srfi1_map);
-      if (len < 0 || (len2 >= 0 && len2 < len))
-       len = len2;
-      SCM_GASSERTn ((scm_is_null (arg2) || scm_is_pair (arg2))
-                   && len >= 0 && len2 >= -1,
-                   g_srfi1_map,
-                   scm_cons2 (proc, arg1, args),
-                   len2 >= 0 ? SCM_ARG2 : SCM_ARG3,
-                   s_srfi1_map);
-      while (len > 0)
-       {
-         *pres = scm_list_1 (scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR 
(arg2)));
-         pres = SCM_CDRLOC (*pres);
-         arg1 = SCM_CDR (arg1);
-         arg2 = SCM_CDR (arg2);
-         --len;
-       }
-      return res;
-    }
-  args = scm_vector (arg1 = scm_cons (arg1, args));
-  len = check_map_args (args, len, g_srfi1_map, proc, arg1, s_srfi1_map);
-  while (len > 0)
-    {
-      arg1 = SCM_EOL;
-      for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
-       {
-         SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
-         arg1 = scm_cons (SCM_CAR (elt), arg1);
-         SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
-       }
-      *pres = scm_list_1 (scm_apply (proc, arg1, SCM_EOL));
-      pres = SCM_CDRLOC (*pres);
-      --len;
-    }
-  return res;
-}
-#undef FUNC_NAME
-
-SCM_REGISTER_PROC (s_srfi1_map_in_order, "map-in-order", 2, 0, 1, 
scm_srfi1_map);
-
-SCM_GPROC (s_srfi1_for_each, "for-each", 2, 0, 1, scm_srfi1_for_each, 
g_srfi1_for_each);
-
-SCM 
-scm_srfi1_for_each (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_srfi1_for_each
-{
-  long i, len;
-  len = srfi1_ilength (arg1);
-  SCM_GASSERTn ((scm_is_null (arg1) || scm_is_pair (arg1)) && len >= -1,
-               g_srfi1_for_each, scm_cons2 (proc, arg1, args),
-               SCM_ARG2, s_srfi1_for_each);
-  SCM_VALIDATE_REST_ARGUMENT (args);
-  if (scm_is_null (args))
-    {
-      SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_srfi1_for_each,
-                    proc, arg1, SCM_ARG1, s_srfi1_for_each);
-      SCM_GASSERT2 (len >= 0, g_srfi1_for_each, proc, arg1,
-                   SCM_ARG2, s_srfi1_map);
-      while (SCM_NIMP (arg1))
-       {
-         scm_call_1 (proc, SCM_CAR (arg1));
-         arg1 = SCM_CDR (arg1);
-       }
-      return SCM_UNSPECIFIED;
-    }
-  if (scm_is_null (SCM_CDR (args)))
-    {
-      SCM arg2 = SCM_CAR (args);
-      int len2 = srfi1_ilength (arg2);
-      SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_srfi1_for_each,
-                   scm_cons2 (proc, arg1, args), SCM_ARG1, s_srfi1_for_each);
-      if (len < 0 || (len2 >= 0 && len2 < len))
-       len = len2;
-      SCM_GASSERTn ((scm_is_null (arg2) || scm_is_pair (arg2))
-                   && len >= 0 && len2 >= -1,
-                   g_srfi1_for_each,
-                   scm_cons2 (proc, arg1, args),
-                   len2 >= 0 ? SCM_ARG2 : SCM_ARG3,
-                   s_srfi1_for_each);
-      while (len > 0)
-       {
-         scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR (arg2));
-         arg1 = SCM_CDR (arg1);
-         arg2 = SCM_CDR (arg2);
-         --len;
-       }
-      return SCM_UNSPECIFIED;
-    }
-  args = scm_vector (arg1 = scm_cons (arg1, args));
-  len = check_map_args (args, len, g_srfi1_for_each, proc, arg1,
-                       s_srfi1_for_each);
-  while (len > 0)
-    {
-      arg1 = SCM_EOL;
-      for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
-       {
-         SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
-         arg1 = scm_cons (SCM_CAR (elt), arg1);
-         SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
-       }
-      scm_apply (proc, arg1, SCM_EOL);
-      --len;
-    }
-  return SCM_UNSPECIFIED;
-}
-#undef FUNC_NAME
-
-
 SCM_DEFINE (scm_srfi1_assoc, "assoc", 2, 1, 0,
            (SCM key, SCM alist, SCM pred),
            "Behaves like @code{assq} but uses third argument @var{pred?}\n"
@@ -1175,16 +953,9 @@ scm_register_srfi_1 (void)
 void
 scm_init_srfi_1 (void)
 {
-  SCM the_root_module = scm_lookup_closure_module (SCM_BOOL_F);
 #ifndef SCM_MAGIC_SNARFER
 #include "libguile/srfi-1.x"
 #endif
-  scm_c_extend_primitive_generic
-    (SCM_VARIABLE_REF (scm_c_module_lookup (the_root_module, "map")),
-     SCM_VARIABLE_REF (scm_c_lookup ("map")));
-  scm_c_extend_primitive_generic
-    (SCM_VARIABLE_REF (scm_c_module_lookup (the_root_module, "for-each")),
-     SCM_VARIABLE_REF (scm_c_lookup ("for-each")));
 }
 
 /* End of srfi-1.c.  */
diff --git a/libguile/srfi-1.h b/libguile/srfi-1.h
index 85aa65d..13ab067 100644
--- a/libguile/srfi-1.h
+++ b/libguile/srfi-1.h
@@ -39,8 +39,6 @@ SCM_INTERNAL SCM scm_srfi1_find_tail (SCM pred, SCM lst);
 SCM_INTERNAL SCM scm_srfi1_length_plus (SCM lst);
 SCM_INTERNAL SCM scm_srfi1_lset_difference_x (SCM equal, SCM lst, SCM rest);
 SCM_INTERNAL SCM scm_srfi1_list_copy (SCM lst);
-SCM_INTERNAL SCM scm_srfi1_map (SCM proc, SCM arg1, SCM args);
-SCM_INTERNAL SCM scm_srfi1_for_each (SCM proc, SCM arg1, SCM args);
 SCM_INTERNAL SCM scm_srfi1_assoc (SCM key, SCM alist, SCM pred);
 SCM_INTERNAL SCM scm_srfi1_partition (SCM pred, SCM list);
 SCM_INTERNAL SCM scm_srfi1_partition_x (SCM pred, SCM list);
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 294b915..60d133f 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -263,6 +263,50 @@ If there is no handler at all, Guile prints an error and 
then exits."
 
 
 
+;;; Boot versions of `map' and `for-each', enough to get the expander
+;;; running.
+;;;
+(define map
+  (case-lambda
+    ((f l)
+     (let map1 ((l l))
+       (if (null? l)
+           '()
+           (cons (f (car l)) (map1 (cdr l))))))
+    ((f l1 l2)
+     (let map2 ((l1 l1) (l2 l2))
+       (if (null? l1)
+           '()
+           (cons (f (car l1) (car l2))
+                 (map2 (cdr l1) (cdr l2))))))
+    ((f l1 . rest)
+     (let lp ((l1 l1) (rest rest))
+       (if (null? l1)
+           '()
+           (cons (apply f (car l1) (map car rest))
+                 (lp (cdr l1) (map cdr rest))))))))
+
+(define for-each
+  (case-lambda
+    ((f l)
+     (let for-each1 ((l l))
+       (if (pair? l)
+           (begin
+             (f (car l))
+             (for-each1 (cdr l))))))
+    ((f l1 l2)
+     (let for-each2 ((l1 l1) (l2 l2))
+       (if (pair? l1)
+           (begin
+             (f (car l1) (car l2))
+             (for-each2 (cdr l1) (cdr l2))))))
+    ((f l1 . rest)
+     (let lp ((l1 l1) (rest rest))
+       (if (pair? l1)
+           (begin
+             (apply f (car l1) (map car rest))
+             (lp (cdr l1) (map cdr rest))))))))
+
 ;;; {and-map and or-map}
 ;;;
 ;;; (and-map fn lst) is like (and (fn (car lst)) (fn (cadr lst)) (fn...) ...)
@@ -479,6 +523,147 @@ If there is no handler at all, Guile prints an error and 
then exits."
      (define sym
        (if (module-locally-bound? (current-module) 'sym) sym val)))))
 
+;;; The real versions of `map' and `for-each', with cycle detection, and
+;;; that use reverse! instead of recursion in the case of `map'.
+;;;
+(define map
+  (case-lambda
+    ((f l)
+     (let map1 ((hare l) (tortoise l) (move? #f) (out '()))
+       (if (pair? hare)
+           (if move?
+               (if (eq? tortoise hare)
+                   (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+                              (list l) #f)
+                   (map1 (cdr hare) (cdr tortoise) #f
+                       (cons (f (car hare)) out)))
+               (map1 (cdr hare) tortoise #t
+                     (cons (f (car hare)) out)))
+           (if (null? hare)
+               (reverse! out)
+               (scm-error 'wrong-type-arg "map" "Not a list: ~S"
+                          (list l) #f)))))
+    
+    ((f l1 l2)
+     (let map2 ((h1 l1) (h2 l2) (t1 l1) (t2 l2) (move? #f) (out '()))
+       (cond
+        ((pair? h1)
+         (cond
+          ((not (pair? h2))
+           (scm-error 'wrong-type-arg "map"
+                      (if (list? h2)
+                          "List of wrong length: ~S"
+                          "Not a list: ~S")
+                      (list l2) #f))
+          ((not move?)
+           (map2 (cdr h1) (cdr h2) t1 t2 #t
+                 (cons (f (car h1) (car h2)) out)))
+          ((eq? t1 h1)
+           (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+                      (list l1) #f))
+          ((eq? t2 h2)
+           (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+                      (list l2) #f))
+          (else
+           (map2 (cdr h1) (cdr h2) (cdr t1) (cdr t2) #f
+                 (cons (f (car h1) (car h2)) out)))))
+
+        ((and (null? h1) (null? h2))
+         (reverse! out))
+        
+        ((null? h1)
+         (scm-error 'wrong-type-arg "map"
+                    (if (list? h2)
+                        "List of wrong length: ~S"
+                        "Not a list: ~S")
+                    (list l2) #f))
+        (else
+         (scm-error 'wrong-type-arg "map"
+                    "Not a list: ~S"
+                    (list l1) #f)))))
+
+    ((f l1 . rest)
+     (let ((len (length l1)))
+       (let mapn ((rest rest))
+         (or (null? rest)
+             (if (= (length (car rest)) len)
+                 (mapn (cdr rest))
+                 (scm-error 'wrong-type-arg "map" "List of wrong length: ~S"
+                            (list (car rest)) #f)))))
+     (let mapn ((l1 l1) (rest rest) (out '()))
+       (if (null? l1)
+           (reverse! out)
+           (mapn (cdr l1) (map cdr rest)
+                 (cons (apply f (car l1) (map car rest)) out)))))))
+
+(define map-in-order map)
+
+(define for-each
+  (case-lambda
+    ((f l)
+     (let for-each1 ((hare l) (tortoise l) (move? #f))
+       (if (pair? hare)
+           (if move?
+               (if (eq? tortoise hare)
+                   (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+                              (list l) #f)
+                   (begin
+                     (f (car hare))
+                     (for-each1 (cdr hare) (cdr tortoise) #f)))
+               (begin
+                 (f (car hare))
+                 (for-each1 (cdr hare) tortoise #t)))
+           
+           (if (not (null? hare))
+               (scm-error 'wrong-type-arg "for-each" "Not a list: ~S"
+                          (list l) #f)))))
+    
+    ((f l1 l2)
+     (let for-each2 ((h1 l1) (h2 l2) (t1 l1) (t2 l2) (move? #f))
+       (cond
+        ((and (pair? h1) (pair? h2))
+         (cond
+          ((not move?)
+           (f (car h1) (car h2))
+           (for-each2 (cdr h1) (cdr h2) t1 t2 #t))
+          ((eq? t1 h1)
+           (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+                      (list l1) #f))
+          ((eq? t2 h2)
+           (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+                      (list l2) #f))
+          (else
+           (f (car h1) (car h2))
+           (for-each2 (cdr h1) (cdr h2) (cdr t1) (cdr t2) #f))))
+
+        ((if (null? h1)
+             (or (null? h2) (pair? h2))
+             (and (pair? h1) (null? h2)))
+         (if #f #f))
+        
+        ((list? h1)
+         (scm-error 'wrong-type-arg "for-each" "Unexpected tail: ~S"
+                    (list h2) #f))
+        (else
+         (scm-error 'wrong-type-arg "for-each" "Unexpected tail: ~S"
+                    (list h1) #f)))))
+
+    ((f l1 . rest)
+     (let ((len (length l1)))
+       (let for-eachn ((rest rest))
+         (or (null? rest)
+             (if (= (length (car rest)) len)
+                 (for-eachn (cdr rest))
+                 (scm-error 'wrong-type-arg "for-each" "List of wrong length: 
~S"
+                            (list (car rest)) #f)))))
+     
+     (let for-eachn ((l1 l1) (rest rest))
+       (if (pair? l1)
+           (begin
+             (apply f (car l1) (map car rest))
+             (for-eachn (cdr l1) (map cdr rest))))))))
+
+
 
 
 ;;;
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 16c6a90..2a444a0 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,10603 +2,1521 @@
 (if #f #f)
 
 (letrec*
-  ((#{and-map* 38}#
-     (lambda (#{f 202}# #{first 203}# . #{rest 204}#)
+  ((#{make-void 203}#
+     (lambda (#{src 761}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 0)
+         #{src 761}#)))
+   (#{make-const 205}#
+     (lambda (#{src 763}# #{exp 764}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 1)
+         #{src 763}#
+         #{exp 764}#)))
+   (#{make-lexical-ref 209}#
+     (lambda (#{src 771}# #{name 772}# #{gensym 773}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 3)
+         #{src 771}#
+         #{name 772}#
+         #{gensym 773}#)))
+   (#{make-lexical-set 211}#
+     (lambda (#{src 777}#
+              #{name 778}#
+              #{gensym 779}#
+              #{exp 780}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 4)
+         #{src 777}#
+         #{name 778}#
+         #{gensym 779}#
+         #{exp 780}#)))
+   (#{make-module-ref 213}#
+     (lambda (#{src 785}#
+              #{mod 786}#
+              #{name 787}#
+              #{public? 788}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 5)
+         #{src 785}#
+         #{mod 786}#
+         #{name 787}#
+         #{public? 788}#)))
+   (#{make-module-set 215}#
+     (lambda (#{src 793}#
+              #{mod 794}#
+              #{name 795}#
+              #{public? 796}#
+              #{exp 797}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 6)
+         #{src 793}#
+         #{mod 794}#
+         #{name 795}#
+         #{public? 796}#
+         #{exp 797}#)))
+   (#{make-toplevel-ref 217}#
+     (lambda (#{src 803}# #{name 804}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 7)
+         #{src 803}#
+         #{name 804}#)))
+   (#{make-toplevel-set 219}#
+     (lambda (#{src 807}# #{name 808}# #{exp 809}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 8)
+         #{src 807}#
+         #{name 808}#
+         #{exp 809}#)))
+   (#{make-toplevel-define 221}#
+     (lambda (#{src 813}# #{name 814}# #{exp 815}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 9)
+         #{src 813}#
+         #{name 814}#
+         #{exp 815}#)))
+   (#{make-conditional 223}#
+     (lambda (#{src 819}#
+              #{test 820}#
+              #{consequent 821}#
+              #{alternate 822}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 10)
+         #{src 819}#
+         #{test 820}#
+         #{consequent 821}#
+         #{alternate 822}#)))
+   (#{make-application 225}#
+     (lambda (#{src 827}# #{proc 828}# #{args 829}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 11)
+         #{src 827}#
+         #{proc 828}#
+         #{args 829}#)))
+   (#{make-sequence 227}#
+     (lambda (#{src 833}# #{exps 834}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 12)
+         #{src 833}#
+         #{exps 834}#)))
+   (#{make-lambda 229}#
+     (lambda (#{src 837}# #{meta 838}# #{body 839}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 13)
+         #{src 837}#
+         #{meta 838}#
+         #{body 839}#)))
+   (#{make-lambda-case 231}#
+     (lambda (#{src 843}#
+              #{req 844}#
+              #{opt 845}#
+              #{rest 846}#
+              #{kw 847}#
+              #{inits 848}#
+              #{gensyms 849}#
+              #{body 850}#
+              #{alternate 851}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 14)
+         #{src 843}#
+         #{req 844}#
+         #{opt 845}#
+         #{rest 846}#
+         #{kw 847}#
+         #{inits 848}#
+         #{gensyms 849}#
+         #{body 850}#
+         #{alternate 851}#)))
+   (#{make-let 233}#
+     (lambda (#{src 861}#
+              #{names 862}#
+              #{gensyms 863}#
+              #{vals 864}#
+              #{body 865}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 15)
+         #{src 861}#
+         #{names 862}#
+         #{gensyms 863}#
+         #{vals 864}#
+         #{body 865}#)))
+   (#{make-letrec 235}#
+     (lambda (#{src 871}#
+              #{in-order? 872}#
+              #{names 873}#
+              #{gensyms 874}#
+              #{vals 875}#
+              #{body 876}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 16)
+         #{src 871}#
+         #{in-order? 872}#
+         #{names 873}#
+         #{gensyms 874}#
+         #{vals 875}#
+         #{body 876}#)))
+   (#{make-dynlet 237}#
+     (lambda (#{src 883}#
+              #{fluids 884}#
+              #{vals 885}#
+              #{body 886}#)
+       (make-struct/no-tail
+         (vector-ref %expanded-vtables 17)
+         #{src 883}#
+         #{fluids 884}#
+         #{vals 885}#
+         #{body 886}#)))
+   (#{lambda? 240}#
+     (lambda (#{x 891}#)
+       (if (struct? #{x 891}#)
+         (eq? (struct-vtable #{x 891}#)
+              (vector-ref %expanded-vtables 13))
+         #f)))
+   (#{lambda-meta 242}#
+     (lambda (#{x 895}#) (struct-ref #{x 895}# 1)))
+   (#{set-lambda-meta! 244}#
+     (lambda (#{x 897}# #{v 898}#)
+       (struct-set! #{x 897}# 1 #{v 898}#)))
+   (#{top-level-eval-hook 250}#
+     (lambda (#{x 901}# #{mod 902}#)
+       (primitive-eval #{x 901}#)))
+   (#{local-eval-hook 252}#
+     (lambda (#{x 905}# #{mod 906}#)
+       (primitive-eval #{x 905}#)))
+   (#{put-global-definition-hook 255}#
+     (lambda (#{symbol 909}# #{type 910}# #{val 911}#)
+       (module-define!
+         (current-module)
+         #{symbol 909}#
+         (make-syntax-transformer
+           #{symbol 909}#
+           #{type 910}#
+           #{val 911}#))))
+   (#{get-global-definition-hook 257}#
+     (lambda (#{symbol 915}# #{module 916}#)
        (begin
-         (let ((#{t 210}# (null? #{first 203}#)))
-           (if #{t 210}#
-             #{t 210}#
-             (if (null? #{rest 204}#)
-               (letrec*
-                 ((#{andmap 214}#
-                    (lambda (#{first 215}#)
-                      (begin
-                        (let ((#{x 218}# (car #{first 215}#))
-                              (#{first 219}# (cdr #{first 215}#)))
-                          (if (null? #{first 219}#)
-                            (#{f 202}# #{x 218}#)
-                            (if (#{f 202}# #{x 218}#)
-                              (#{andmap 214}# #{first 219}#)
-                              #f)))))))
-                 (begin (#{andmap 214}# #{first 203}#)))
-               (letrec*
-                 ((#{andmap 225}#
-                    (lambda (#{first 226}# #{rest 227}#)
-                      (begin
-                        (let ((#{x 232}# (car #{first 226}#))
-                              (#{xr 233}# (map car #{rest 227}#))
-                              (#{first 234}# (cdr #{first 226}#))
-                              (#{rest 235}# (map cdr #{rest 227}#)))
-                          (if (null? #{first 234}#)
-                            (@apply #{f 202}# #{x 232}# #{xr 233}#)
-                            (if (@apply #{f 202}# #{x 232}# #{xr 233}#)
-                              (#{andmap 225}# #{first 234}# #{rest 235}#)
-                              #f)))))))
+         (if (if (not #{module 916}#) (current-module) #f)
+           (warn "module system is booted, we should have a module"
+                 #{symbol 915}#))
+         (begin
+           (let ((#{v 922}# (module-variable
+                              (if #{module 916}#
+                                (resolve-module (cdr #{module 916}#))
+                                (current-module))
+                              #{symbol 915}#)))
+             (if #{v 922}#
+               (if (variable-bound? #{v 922}#)
                  (begin
-                   (#{andmap 225}# #{first 203}# #{rest 204}#))))))))))
-  (begin
-    (letrec*
-      ((#{make-void 240}#
-         (lambda (#{src 798}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 0)
-             #{src 798}#)))
-       (#{make-const 242}#
-         (lambda (#{src 800}# #{exp 801}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 1)
-             #{src 800}#
-             #{exp 801}#)))
-       (#{make-lexical-ref 246}#
-         (lambda (#{src 808}# #{name 809}# #{gensym 810}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 3)
-             #{src 808}#
-             #{name 809}#
-             #{gensym 810}#)))
-       (#{make-lexical-set 248}#
-         (lambda (#{src 814}#
-                  #{name 815}#
-                  #{gensym 816}#
-                  #{exp 817}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 4)
-             #{src 814}#
-             #{name 815}#
-             #{gensym 816}#
-             #{exp 817}#)))
-       (#{make-module-ref 250}#
-         (lambda (#{src 822}#
-                  #{mod 823}#
-                  #{name 824}#
-                  #{public? 825}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 5)
-             #{src 822}#
-             #{mod 823}#
-             #{name 824}#
-             #{public? 825}#)))
-       (#{make-module-set 252}#
-         (lambda (#{src 830}#
-                  #{mod 831}#
-                  #{name 832}#
-                  #{public? 833}#
-                  #{exp 834}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 6)
-             #{src 830}#
-             #{mod 831}#
-             #{name 832}#
-             #{public? 833}#
-             #{exp 834}#)))
-       (#{make-toplevel-ref 254}#
-         (lambda (#{src 840}# #{name 841}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 7)
-             #{src 840}#
-             #{name 841}#)))
-       (#{make-toplevel-set 256}#
-         (lambda (#{src 844}# #{name 845}# #{exp 846}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 8)
-             #{src 844}#
-             #{name 845}#
-             #{exp 846}#)))
-       (#{make-toplevel-define 258}#
-         (lambda (#{src 850}# #{name 851}# #{exp 852}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 9)
-             #{src 850}#
-             #{name 851}#
-             #{exp 852}#)))
-       (#{make-conditional 260}#
-         (lambda (#{src 856}#
-                  #{test 857}#
-                  #{consequent 858}#
-                  #{alternate 859}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 10)
-             #{src 856}#
-             #{test 857}#
-             #{consequent 858}#
-             #{alternate 859}#)))
-       (#{make-application 262}#
-         (lambda (#{src 864}# #{proc 865}# #{args 866}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 11)
-             #{src 864}#
-             #{proc 865}#
-             #{args 866}#)))
-       (#{make-sequence 264}#
-         (lambda (#{src 870}# #{exps 871}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 12)
-             #{src 870}#
-             #{exps 871}#)))
-       (#{make-lambda 266}#
-         (lambda (#{src 874}# #{meta 875}# #{body 876}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 13)
-             #{src 874}#
-             #{meta 875}#
-             #{body 876}#)))
-       (#{make-lambda-case 268}#
-         (lambda (#{src 880}#
-                  #{req 881}#
-                  #{opt 882}#
-                  #{rest 883}#
-                  #{kw 884}#
-                  #{inits 885}#
-                  #{gensyms 886}#
-                  #{body 887}#
-                  #{alternate 888}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 14)
-             #{src 880}#
-             #{req 881}#
-             #{opt 882}#
-             #{rest 883}#
-             #{kw 884}#
-             #{inits 885}#
-             #{gensyms 886}#
-             #{body 887}#
-             #{alternate 888}#)))
-       (#{make-let 270}#
-         (lambda (#{src 898}#
-                  #{names 899}#
-                  #{gensyms 900}#
-                  #{vals 901}#
-                  #{body 902}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 15)
-             #{src 898}#
-             #{names 899}#
-             #{gensyms 900}#
-             #{vals 901}#
-             #{body 902}#)))
-       (#{make-letrec 272}#
-         (lambda (#{src 908}#
-                  #{in-order? 909}#
-                  #{names 910}#
-                  #{gensyms 911}#
-                  #{vals 912}#
-                  #{body 913}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 16)
-             #{src 908}#
-             #{in-order? 909}#
-             #{names 910}#
-             #{gensyms 911}#
-             #{vals 912}#
-             #{body 913}#)))
-       (#{make-dynlet 274}#
-         (lambda (#{src 920}#
-                  #{fluids 921}#
-                  #{vals 922}#
-                  #{body 923}#)
-           (make-struct/no-tail
-             (vector-ref %expanded-vtables 17)
-             #{src 920}#
-             #{fluids 921}#
-             #{vals 922}#
-             #{body 923}#)))
-       (#{lambda? 277}#
-         (lambda (#{x 928}#)
-           (if (struct? #{x 928}#)
-             (eq? (struct-vtable #{x 928}#)
-                  (vector-ref %expanded-vtables 13))
-             #f)))
-       (#{lambda-meta 279}#
-         (lambda (#{x 932}#) (struct-ref #{x 932}# 1)))
-       (#{set-lambda-meta! 281}#
-         (lambda (#{x 934}# #{v 935}#)
-           (struct-set! #{x 934}# 1 #{v 935}#)))
-       (#{top-level-eval-hook 287}#
-         (lambda (#{x 938}# #{mod 939}#)
-           (primitive-eval #{x 938}#)))
-       (#{local-eval-hook 289}#
-         (lambda (#{x 942}# #{mod 943}#)
-           (primitive-eval #{x 942}#)))
-       (#{put-global-definition-hook 292}#
-         (lambda (#{symbol 946}# #{type 947}# #{val 948}#)
-           (module-define!
-             (current-module)
-             #{symbol 946}#
-             (make-syntax-transformer
-               #{symbol 946}#
-               #{type 947}#
-               #{val 948}#))))
-       (#{get-global-definition-hook 294}#
-         (lambda (#{symbol 952}# #{module 953}#)
-           (begin
-             (if (if (not #{module 953}#) (current-module) #f)
-               (warn "module system is booted, we should have a module"
-                     #{symbol 952}#))
-             (begin
-               (let ((#{v 959}# (module-variable
-                                  (if #{module 953}#
-                                    (resolve-module (cdr #{module 953}#))
-                                    (current-module))
-                                  #{symbol 952}#)))
-                 (if #{v 959}#
-                   (if (variable-bound? #{v 959}#)
-                     (begin
-                       (let ((#{val 964}# (variable-ref #{v 959}#)))
-                         (if (macro? #{val 964}#)
-                           (if (macro-type #{val 964}#)
-                             (cons (macro-type #{val 964}#)
-                                   (macro-binding #{val 964}#))
-                             #f)
-                           #f)))
-                     #f)
-                   #f))))))
-       (#{decorate-source 296}#
-         (lambda (#{e 968}# #{s 969}#)
-           (begin
-             (if (if (pair? #{e 968}#) #{s 969}# #f)
-               (set-source-properties! #{e 968}# #{s 969}#))
-             #{e 968}#)))
-       (#{maybe-name-value! 298}#
-         (lambda (#{name 974}# #{val 975}#)
-           (if (#{lambda? 277}# #{val 975}#)
-             (begin
-               (let ((#{meta 979}# (#{lambda-meta 279}# #{val 975}#)))
-                 (if (not (assq 'name #{meta 979}#))
-                   (#{set-lambda-meta! 281}#
-                     #{val 975}#
-                     (cons (cons 'name #{name 974}#) #{meta 979}#))))))))
-       (#{build-void 300}#
-         (lambda (#{source 980}#)
-           (#{make-void 240}# #{source 980}#)))
-       (#{build-application 302}#
-         (lambda (#{source 982}# #{fun-exp 983}# #{arg-exps 984}#)
-           (#{make-application 262}#
-             #{source 982}#
-             #{fun-exp 983}#
-             #{arg-exps 984}#)))
-       (#{build-conditional 304}#
-         (lambda (#{source 988}#
-                  #{test-exp 989}#
-                  #{then-exp 990}#
-                  #{else-exp 991}#)
-           (#{make-conditional 260}#
-             #{source 988}#
-             #{test-exp 989}#
-             #{then-exp 990}#
-             #{else-exp 991}#)))
-       (#{build-dynlet 306}#
-         (lambda (#{source 996}#
-                  #{fluids 997}#
-                  #{vals 998}#
-                  #{body 999}#)
-           (#{make-dynlet 274}#
-             #{source 996}#
-             #{fluids 997}#
-             #{vals 998}#
-             #{body 999}#)))
-       (#{build-lexical-reference 308}#
-         (lambda (#{type 1004}#
-                  #{source 1005}#
-                  #{name 1006}#
-                  #{var 1007}#)
-           (#{make-lexical-ref 246}#
-             #{source 1005}#
-             #{name 1006}#
-             #{var 1007}#)))
-       (#{build-lexical-assignment 310}#
-         (lambda (#{source 1012}#
-                  #{name 1013}#
-                  #{var 1014}#
-                  #{exp 1015}#)
-           (begin
-             (#{maybe-name-value! 298}#
-               #{name 1013}#
-               #{exp 1015}#)
-             (#{make-lexical-set 248}#
-               #{source 1012}#
-               #{name 1013}#
-               #{var 1014}#
-               #{exp 1015}#))))
-       (#{analyze-variable 312}#
-         (lambda (#{mod 1020}#
-                  #{var 1021}#
-                  #{modref-cont 1022}#
-                  #{bare-cont 1023}#)
-           (if (not #{mod 1020}#)
-             (#{bare-cont 1023}# #{var 1021}#)
-             (begin
-               (let ((#{kind 1030}# (car #{mod 1020}#))
-                     (#{mod 1031}# (cdr #{mod 1020}#)))
-                 (if (eqv? #{kind 1030}# 'public)
-                   (#{modref-cont 1022}#
-                     #{mod 1031}#
-                     #{var 1021}#
-                     #t)
-                   (if (eqv? #{kind 1030}# 'private)
-                     (if (not (equal?
-                                #{mod 1031}#
-                                (module-name (current-module))))
-                       (#{modref-cont 1022}#
-                         #{mod 1031}#
-                         #{var 1021}#
+                   (let ((#{val 927}# (variable-ref #{v 922}#)))
+                     (if (macro? #{val 927}#)
+                       (if (macro-type #{val 927}#)
+                         (cons (macro-type #{val 927}#)
+                               (macro-binding #{val 927}#))
                          #f)
-                       (#{bare-cont 1023}# #{var 1021}#))
-                     (if (eqv? #{kind 1030}# 'bare)
-                       (#{bare-cont 1023}# #{var 1021}#)
-                       (if (eqv? #{kind 1030}# 'hygiene)
-                         (if (if (not (equal?
-                                        #{mod 1031}#
-                                        (module-name (current-module))))
-                               (module-variable
-                                 (resolve-module #{mod 1031}#)
-                                 #{var 1021}#)
-                               #f)
-                           (#{modref-cont 1022}#
-                             #{mod 1031}#
-                             #{var 1021}#
-                             #f)
-                           (#{bare-cont 1023}# #{var 1021}#))
-                         (syntax-violation
-                           #f
-                           "bad module kind"
-                           #{var 1021}#
-                           #{mod 1031}#))))))))))
-       (#{build-global-reference 314}#
-         (lambda (#{source 1039}# #{var 1040}# #{mod 1041}#)
-           (#{analyze-variable 312}#
-             #{mod 1041}#
-             #{var 1040}#
-             (lambda (#{mod 1045}# #{var 1046}# #{public? 1047}#)
-               (#{make-module-ref 250}#
-                 #{source 1039}#
-                 #{mod 1045}#
-                 #{var 1046}#
-                 #{public? 1047}#))
-             (lambda (#{var 1051}#)
-               (#{make-toplevel-ref 254}#
-                 #{source 1039}#
-                 #{var 1051}#)))))
-       (#{build-global-assignment 316}#
-         (lambda (#{source 1053}#
-                  #{var 1054}#
-                  #{exp 1055}#
-                  #{mod 1056}#)
-           (begin
-             (#{maybe-name-value! 298}#
-               #{var 1054}#
-               #{exp 1055}#)
-             (#{analyze-variable 312}#
-               #{mod 1056}#
-               #{var 1054}#
-               (lambda (#{mod 1061}# #{var 1062}# #{public? 1063}#)
-                 (#{make-module-set 252}#
-                   #{source 1053}#
-                   #{mod 1061}#
-                   #{var 1062}#
-                   #{public? 1063}#
-                   #{exp 1055}#))
-               (lambda (#{var 1067}#)
-                 (#{make-toplevel-set 256}#
-                   #{source 1053}#
-                   #{var 1067}#
-                   #{exp 1055}#))))))
-       (#{build-global-definition 318}#
-         (lambda (#{source 1069}# #{var 1070}# #{exp 1071}#)
-           (begin
-             (#{maybe-name-value! 298}#
-               #{var 1070}#
-               #{exp 1071}#)
-             (#{make-toplevel-define 258}#
-               #{source 1069}#
-               #{var 1070}#
-               #{exp 1071}#))))
-       (#{build-simple-lambda 320}#
-         (lambda (#{src 1075}#
-                  #{req 1076}#
-                  #{rest 1077}#
-                  #{vars 1078}#
-                  #{meta 1079}#
-                  #{exp 1080}#)
-           (#{make-lambda 266}#
-             #{src 1075}#
-             #{meta 1079}#
-             (#{make-lambda-case 268}#
-               #{src 1075}#
-               #{req 1076}#
-               #f
-               #{rest 1077}#
-               #f
-               '()
-               #{vars 1078}#
-               #{exp 1080}#
-               #f))))
-       (#{build-case-lambda 322}#
-         (lambda (#{src 1087}# #{meta 1088}# #{body 1089}#)
-           (#{make-lambda 266}#
-             #{src 1087}#
-             #{meta 1088}#
-             #{body 1089}#)))
-       (#{build-lambda-case 324}#
-         (lambda (#{src 1093}#
-                  #{req 1094}#
-                  #{opt 1095}#
-                  #{rest 1096}#
-                  #{kw 1097}#
-                  #{inits 1098}#
-                  #{vars 1099}#
-                  #{body 1100}#
-                  #{else-case 1101}#)
-           (#{make-lambda-case 268}#
-             #{src 1093}#
-             #{req 1094}#
-             #{opt 1095}#
-             #{rest 1096}#
-             #{kw 1097}#
-             #{inits 1098}#
-             #{vars 1099}#
-             #{body 1100}#
-             #{else-case 1101}#)))
-       (#{build-primref 326}#
-         (lambda (#{src 1111}# #{name 1112}#)
-           (if (equal? (module-name (current-module)) '(guile))
-             (#{make-toplevel-ref 254}#
-               #{src 1111}#
-               #{name 1112}#)
-             (#{make-module-ref 250}#
-               #{src 1111}#
-               '(guile)
-               #{name 1112}#
-               #f))))
-       (#{build-data 328}#
-         (lambda (#{src 1115}# #{exp 1116}#)
-           (#{make-const 242}# #{src 1115}# #{exp 1116}#)))
-       (#{build-sequence 330}#
-         (lambda (#{src 1119}# #{exps 1120}#)
-           (if (null? (cdr #{exps 1120}#))
-             (car #{exps 1120}#)
-             (#{make-sequence 264}#
-               #{src 1119}#
-               #{exps 1120}#))))
-       (#{build-let 332}#
-         (lambda (#{src 1123}#
-                  #{ids 1124}#
-                  #{vars 1125}#
-                  #{val-exps 1126}#
-                  #{body-exp 1127}#)
-           (begin
-             (for-each
-               #{maybe-name-value! 298}#
-               #{ids 1124}#
-               #{val-exps 1126}#)
-             (if (null? #{vars 1125}#)
-               #{body-exp 1127}#
-               (#{make-let 270}#
-                 #{src 1123}#
-                 #{ids 1124}#
-                 #{vars 1125}#
-                 #{val-exps 1126}#
-                 #{body-exp 1127}#)))))
-       (#{build-named-let 334}#
-         (lambda (#{src 1133}#
-                  #{ids 1134}#
-                  #{vars 1135}#
-                  #{val-exps 1136}#
-                  #{body-exp 1137}#)
+                       #f)))
+                 #f)
+               #f))))))
+   (#{decorate-source 259}#
+     (lambda (#{e 931}# #{s 932}#)
+       (begin
+         (if (if (pair? #{e 931}#) #{s 932}# #f)
+           (set-source-properties! #{e 931}# #{s 932}#))
+         #{e 931}#)))
+   (#{maybe-name-value! 261}#
+     (lambda (#{name 937}# #{val 938}#)
+       (if (#{lambda? 240}# #{val 938}#)
+         (begin
+           (let ((#{meta 942}# (#{lambda-meta 242}# #{val 938}#)))
+             (if (not (assq 'name #{meta 942}#))
+               (#{set-lambda-meta! 244}#
+                 #{val 938}#
+                 (cons (cons 'name #{name 937}#) #{meta 942}#))))))))
+   (#{build-void 263}#
+     (lambda (#{source 943}#)
+       (#{make-void 203}# #{source 943}#)))
+   (#{build-application 265}#
+     (lambda (#{source 945}# #{fun-exp 946}# #{arg-exps 947}#)
+       (#{make-application 225}#
+         #{source 945}#
+         #{fun-exp 946}#
+         #{arg-exps 947}#)))
+   (#{build-conditional 267}#
+     (lambda (#{source 951}#
+              #{test-exp 952}#
+              #{then-exp 953}#
+              #{else-exp 954}#)
+       (#{make-conditional 223}#
+         #{source 951}#
+         #{test-exp 952}#
+         #{then-exp 953}#
+         #{else-exp 954}#)))
+   (#{build-dynlet 269}#
+     (lambda (#{source 959}#
+              #{fluids 960}#
+              #{vals 961}#
+              #{body 962}#)
+       (#{make-dynlet 237}#
+         #{source 959}#
+         #{fluids 960}#
+         #{vals 961}#
+         #{body 962}#)))
+   (#{build-lexical-reference 271}#
+     (lambda (#{type 967}#
+              #{source 968}#
+              #{name 969}#
+              #{var 970}#)
+       (#{make-lexical-ref 209}#
+         #{source 968}#
+         #{name 969}#
+         #{var 970}#)))
+   (#{build-lexical-assignment 273}#
+     (lambda (#{source 975}#
+              #{name 976}#
+              #{var 977}#
+              #{exp 978}#)
+       (begin
+         (#{maybe-name-value! 261}#
+           #{name 976}#
+           #{exp 978}#)
+         (#{make-lexical-set 211}#
+           #{source 975}#
+           #{name 976}#
+           #{var 977}#
+           #{exp 978}#))))
+   (#{analyze-variable 275}#
+     (lambda (#{mod 983}#
+              #{var 984}#
+              #{modref-cont 985}#
+              #{bare-cont 986}#)
+       (if (not #{mod 983}#)
+         (#{bare-cont 986}# #{var 984}#)
+         (begin
+           (let ((#{kind 993}# (car #{mod 983}#))
+                 (#{mod 994}# (cdr #{mod 983}#)))
+             (if (eqv? #{kind 993}# 'public)
+               (#{modref-cont 985}# #{mod 994}# #{var 984}# #t)
+               (if (eqv? #{kind 993}# 'private)
+                 (if (not (equal?
+                            #{mod 994}#
+                            (module-name (current-module))))
+                   (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
+                   (#{bare-cont 986}# #{var 984}#))
+                 (if (eqv? #{kind 993}# 'bare)
+                   (#{bare-cont 986}# #{var 984}#)
+                   (if (eqv? #{kind 993}# 'hygiene)
+                     (if (if (not (equal?
+                                    #{mod 994}#
+                                    (module-name (current-module))))
+                           (module-variable
+                             (resolve-module #{mod 994}#)
+                             #{var 984}#)
+                           #f)
+                       (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
+                       (#{bare-cont 986}# #{var 984}#))
+                     (syntax-violation
+                       #f
+                       "bad module kind"
+                       #{var 984}#
+                       #{mod 994}#))))))))))
+   (#{build-global-reference 277}#
+     (lambda (#{source 1002}# #{var 1003}# #{mod 1004}#)
+       (#{analyze-variable 275}#
+         #{mod 1004}#
+         #{var 1003}#
+         (lambda (#{mod 1008}# #{var 1009}# #{public? 1010}#)
+           (#{make-module-ref 213}#
+             #{source 1002}#
+             #{mod 1008}#
+             #{var 1009}#
+             #{public? 1010}#))
+         (lambda (#{var 1014}#)
+           (#{make-toplevel-ref 217}#
+             #{source 1002}#
+             #{var 1014}#)))))
+   (#{build-global-assignment 279}#
+     (lambda (#{source 1016}#
+              #{var 1017}#
+              #{exp 1018}#
+              #{mod 1019}#)
+       (begin
+         (#{maybe-name-value! 261}#
+           #{var 1017}#
+           #{exp 1018}#)
+         (#{analyze-variable 275}#
+           #{mod 1019}#
+           #{var 1017}#
+           (lambda (#{mod 1024}# #{var 1025}# #{public? 1026}#)
+             (#{make-module-set 215}#
+               #{source 1016}#
+               #{mod 1024}#
+               #{var 1025}#
+               #{public? 1026}#
+               #{exp 1018}#))
+           (lambda (#{var 1030}#)
+             (#{make-toplevel-set 219}#
+               #{source 1016}#
+               #{var 1030}#
+               #{exp 1018}#))))))
+   (#{build-global-definition 281}#
+     (lambda (#{source 1032}# #{var 1033}# #{exp 1034}#)
+       (begin
+         (#{maybe-name-value! 261}#
+           #{var 1033}#
+           #{exp 1034}#)
+         (#{make-toplevel-define 221}#
+           #{source 1032}#
+           #{var 1033}#
+           #{exp 1034}#))))
+   (#{build-simple-lambda 283}#
+     (lambda (#{src 1038}#
+              #{req 1039}#
+              #{rest 1040}#
+              #{vars 1041}#
+              #{meta 1042}#
+              #{exp 1043}#)
+       (#{make-lambda 229}#
+         #{src 1038}#
+         #{meta 1042}#
+         (#{make-lambda-case 231}#
+           #{src 1038}#
+           #{req 1039}#
+           #f
+           #{rest 1040}#
+           #f
+           '()
+           #{vars 1041}#
+           #{exp 1043}#
+           #f))))
+   (#{build-case-lambda 285}#
+     (lambda (#{src 1050}# #{meta 1051}# #{body 1052}#)
+       (#{make-lambda 229}#
+         #{src 1050}#
+         #{meta 1051}#
+         #{body 1052}#)))
+   (#{build-lambda-case 287}#
+     (lambda (#{src 1056}#
+              #{req 1057}#
+              #{opt 1058}#
+              #{rest 1059}#
+              #{kw 1060}#
+              #{inits 1061}#
+              #{vars 1062}#
+              #{body 1063}#
+              #{else-case 1064}#)
+       (#{make-lambda-case 231}#
+         #{src 1056}#
+         #{req 1057}#
+         #{opt 1058}#
+         #{rest 1059}#
+         #{kw 1060}#
+         #{inits 1061}#
+         #{vars 1062}#
+         #{body 1063}#
+         #{else-case 1064}#)))
+   (#{build-primref 289}#
+     (lambda (#{src 1074}# #{name 1075}#)
+       (if (equal? (module-name (current-module)) '(guile))
+         (#{make-toplevel-ref 217}#
+           #{src 1074}#
+           #{name 1075}#)
+         (#{make-module-ref 213}#
+           #{src 1074}#
+           '(guile)
+           #{name 1075}#
+           #f))))
+   (#{build-data 291}#
+     (lambda (#{src 1078}# #{exp 1079}#)
+       (#{make-const 205}# #{src 1078}# #{exp 1079}#)))
+   (#{build-sequence 293}#
+     (lambda (#{src 1082}# #{exps 1083}#)
+       (if (null? (cdr #{exps 1083}#))
+         (car #{exps 1083}#)
+         (#{make-sequence 227}#
+           #{src 1082}#
+           #{exps 1083}#))))
+   (#{build-let 295}#
+     (lambda (#{src 1086}#
+              #{ids 1087}#
+              #{vars 1088}#
+              #{val-exps 1089}#
+              #{body-exp 1090}#)
+       (begin
+         (for-each
+           #{maybe-name-value! 261}#
+           #{ids 1087}#
+           #{val-exps 1089}#)
+         (if (null? #{vars 1088}#)
+           #{body-exp 1090}#
+           (#{make-let 233}#
+             #{src 1086}#
+             #{ids 1087}#
+             #{vars 1088}#
+             #{val-exps 1089}#
+             #{body-exp 1090}#)))))
+   (#{build-named-let 297}#
+     (lambda (#{src 1096}#
+              #{ids 1097}#
+              #{vars 1098}#
+              #{val-exps 1099}#
+              #{body-exp 1100}#)
+       (begin
+         (let ((#{f 1110}# (car #{vars 1098}#))
+               (#{f-name 1111}# (car #{ids 1097}#))
+               (#{vars 1112}# (cdr #{vars 1098}#))
+               (#{ids 1113}# (cdr #{ids 1097}#)))
            (begin
-             (let ((#{f 1147}# (car #{vars 1135}#))
-                   (#{f-name 1148}# (car #{ids 1134}#))
-                   (#{vars 1149}# (cdr #{vars 1135}#))
-                   (#{ids 1150}# (cdr #{ids 1134}#)))
-               (begin
-                 (let ((#{proc 1152}#
-                         (#{build-simple-lambda 320}#
-                           #{src 1133}#
-                           #{ids 1150}#
-                           #f
-                           #{vars 1149}#
-                           '()
-                           #{body-exp 1137}#)))
-                   (begin
-                     (#{maybe-name-value! 298}#
-                       #{f-name 1148}#
-                       #{proc 1152}#)
-                     (for-each
-                       #{maybe-name-value! 298}#
-                       #{ids 1150}#
-                       #{val-exps 1136}#)
-                     (#{make-letrec 272}#
-                       #{src 1133}#
+             (let ((#{proc 1115}#
+                     (#{build-simple-lambda 283}#
+                       #{src 1096}#
+                       #{ids 1113}#
                        #f
-                       (list #{f-name 1148}#)
-                       (list #{f 1147}#)
-                       (list #{proc 1152}#)
-                       (#{build-application 302}#
-                         #{src 1133}#
-                         (#{build-lexical-reference 308}#
-                           'fun
-                           #{src 1133}#
-                           #{f-name 1148}#
-                           #{f 1147}#)
-                         #{val-exps 1136}#)))))))))
-       (#{build-letrec 336}#
-         (lambda (#{src 1153}#
-                  #{in-order? 1154}#
-                  #{ids 1155}#
-                  #{vars 1156}#
-                  #{val-exps 1157}#
-                  #{body-exp 1158}#)
-           (if (null? #{vars 1156}#)
-             #{body-exp 1158}#
-             (begin
-               (for-each
-                 #{maybe-name-value! 298}#
-                 #{ids 1155}#
-                 #{val-exps 1157}#)
-               (#{make-letrec 272}#
-                 #{src 1153}#
-                 #{in-order? 1154}#
-                 #{ids 1155}#
-                 #{vars 1156}#
-                 #{val-exps 1157}#
-                 #{body-exp 1158}#)))))
-       (#{make-syntax-object 340}#
-         (lambda (#{expression 1165}#
-                  #{wrap 1166}#
-                  #{module 1167}#)
-           (vector
-             'syntax-object
-             #{expression 1165}#
-             #{wrap 1166}#
-             #{module 1167}#)))
-       (#{syntax-object? 342}#
-         (lambda (#{x 1171}#)
-           (if (vector? #{x 1171}#)
-             (if (= (vector-length #{x 1171}#) 4)
-               (eq? (vector-ref #{x 1171}# 0) 'syntax-object)
-               #f)
-             #f)))
-       (#{syntax-object-expression 344}#
-         (lambda (#{x 1176}#) (vector-ref #{x 1176}# 1)))
-       (#{syntax-object-wrap 346}#
-         (lambda (#{x 1178}#) (vector-ref #{x 1178}# 2)))
-       (#{syntax-object-module 348}#
-         (lambda (#{x 1180}#) (vector-ref #{x 1180}# 3)))
-       (#{source-annotation 357}#
-         (lambda (#{x 1194}#)
-           (if (#{syntax-object? 342}# #{x 1194}#)
-             (#{source-annotation 357}#
-               (#{syntax-object-expression 344}# #{x 1194}#))
-             (if (pair? #{x 1194}#)
+                       #{vars 1112}#
+                       '()
+                       #{body-exp 1100}#)))
                (begin
-                 (let ((#{props 1201}# (source-properties #{x 1194}#)))
-                   (if (pair? #{props 1201}#) #{props 1201}# #f)))
-               #f))))
-       (#{extend-env 364}#
-         (lambda (#{labels 1203}# #{bindings 1204}# #{r 1205}#)
-           (if (null? #{labels 1203}#)
-             #{r 1205}#
-             (#{extend-env 364}#
-               (cdr #{labels 1203}#)
-               (cdr #{bindings 1204}#)
-               (cons (cons (car #{labels 1203}#)
-                           (car #{bindings 1204}#))
-                     #{r 1205}#)))))
-       (#{extend-var-env 366}#
-         (lambda (#{labels 1209}# #{vars 1210}# #{r 1211}#)
-           (if (null? #{labels 1209}#)
-             #{r 1211}#
-             (#{extend-var-env 366}#
-               (cdr #{labels 1209}#)
-               (cdr #{vars 1210}#)
-               (cons (cons (car #{labels 1209}#)
-                           (cons 'lexical (car #{vars 1210}#)))
-                     #{r 1211}#)))))
-       (#{macros-only-env 368}#
-         (lambda (#{r 1216}#)
-           (if (null? #{r 1216}#)
-             '()
-             (begin
-               (let ((#{a 1219}# (car #{r 1216}#)))
-                 (if (eq? (car (cdr #{a 1219}#)) 'macro)
-                   (cons #{a 1219}#
-                         (#{macros-only-env 368}# (cdr #{r 1216}#)))
-                   (#{macros-only-env 368}# (cdr #{r 1216}#))))))))
-       (#{lookup 370}#
-         (lambda (#{x 1220}# #{r 1221}# #{mod 1222}#)
-           (begin
-             (let ((#{t 1228}# (assq #{x 1220}# #{r 1221}#)))
-               (if #{t 1228}#
-                 (cdr #{t 1228}#)
-                 (if (symbol? #{x 1220}#)
-                   (begin
-                     (let ((#{t 1234}#
-                             (#{get-global-definition-hook 294}#
-                               #{x 1220}#
-                               #{mod 1222}#)))
-                       (if #{t 1234}# #{t 1234}# '(global))))
-                   '(displaced-lexical)))))))
-       (#{global-extend 372}#
-         (lambda (#{type 1239}# #{sym 1240}# #{val 1241}#)
-           (#{put-global-definition-hook 292}#
-             #{sym 1240}#
-             #{type 1239}#
-             #{val 1241}#)))
-       (#{nonsymbol-id? 374}#
-         (lambda (#{x 1245}#)
-           (if (#{syntax-object? 342}# #{x 1245}#)
-             (symbol?
-               (#{syntax-object-expression 344}# #{x 1245}#))
-             #f)))
-       (#{id? 376}#
-         (lambda (#{x 1249}#)
-           (if (symbol? #{x 1249}#)
-             #t
-             (if (#{syntax-object? 342}# #{x 1249}#)
-               (symbol?
-                 (#{syntax-object-expression 344}# #{x 1249}#))
-               #f))))
-       (#{id-sym-name&marks 379}#
-         (lambda (#{x 1256}# #{w 1257}#)
-           (if (#{syntax-object? 342}# #{x 1256}#)
-             (values
-               (#{syntax-object-expression 344}# #{x 1256}#)
-               (#{join-marks 426}#
-                 (car #{w 1257}#)
-                 (car (#{syntax-object-wrap 346}# #{x 1256}#))))
-             (values #{x 1256}# (car #{w 1257}#)))))
-       (#{gen-label 389}#
-         (lambda () (symbol->string (gensym "i"))))
-       (#{gen-labels 391}#
-         (lambda (#{ls 1263}#)
-           (if (null? #{ls 1263}#)
-             '()
-             (cons (#{gen-label 389}#)
-                   (#{gen-labels 391}# (cdr #{ls 1263}#))))))
-       (#{make-ribcage 394}#
-         (lambda (#{symnames 1265}#
-                  #{marks 1266}#
-                  #{labels 1267}#)
-           (vector
-             'ribcage
-             #{symnames 1265}#
-             #{marks 1266}#
-             #{labels 1267}#)))
-       (#{ribcage-symnames 398}#
-         (lambda (#{x 1276}#) (vector-ref #{x 1276}# 1)))
-       (#{ribcage-marks 400}#
-         (lambda (#{x 1278}#) (vector-ref #{x 1278}# 2)))
-       (#{ribcage-labels 402}#
-         (lambda (#{x 1280}#) (vector-ref #{x 1280}# 3)))
-       (#{set-ribcage-symnames! 404}#
-         (lambda (#{x 1282}# #{update 1283}#)
-           (vector-set! #{x 1282}# 1 #{update 1283}#)))
-       (#{set-ribcage-marks! 406}#
-         (lambda (#{x 1286}# #{update 1287}#)
-           (vector-set! #{x 1286}# 2 #{update 1287}#)))
-       (#{set-ribcage-labels! 408}#
-         (lambda (#{x 1290}# #{update 1291}#)
-           (vector-set! #{x 1290}# 3 #{update 1291}#)))
-       (#{anti-mark 414}#
-         (lambda (#{w 1294}#)
-           (cons (cons #f (car #{w 1294}#))
-                 (cons 'shift (cdr #{w 1294}#)))))
-       (#{extend-ribcage! 418}#
-         (lambda (#{ribcage 1300}# #{id 1301}# #{label 1302}#)
+                 (#{maybe-name-value! 261}#
+                   #{f-name 1111}#
+                   #{proc 1115}#)
+                 (for-each
+                   #{maybe-name-value! 261}#
+                   #{ids 1113}#
+                   #{val-exps 1099}#)
+                 (#{make-letrec 235}#
+                   #{src 1096}#
+                   #f
+                   (list #{f-name 1111}#)
+                   (list #{f 1110}#)
+                   (list #{proc 1115}#)
+                   (#{build-application 265}#
+                     #{src 1096}#
+                     (#{build-lexical-reference 271}#
+                       'fun
+                       #{src 1096}#
+                       #{f-name 1111}#
+                       #{f 1110}#)
+                     #{val-exps 1099}#)))))))))
+   (#{build-letrec 299}#
+     (lambda (#{src 1116}#
+              #{in-order? 1117}#
+              #{ids 1118}#
+              #{vars 1119}#
+              #{val-exps 1120}#
+              #{body-exp 1121}#)
+       (if (null? #{vars 1119}#)
+         #{body-exp 1121}#
+         (begin
+           (for-each
+             #{maybe-name-value! 261}#
+             #{ids 1118}#
+             #{val-exps 1120}#)
+           (#{make-letrec 235}#
+             #{src 1116}#
+             #{in-order? 1117}#
+             #{ids 1118}#
+             #{vars 1119}#
+             #{val-exps 1120}#
+             #{body-exp 1121}#)))))
+   (#{make-syntax-object 303}#
+     (lambda (#{expression 1128}#
+              #{wrap 1129}#
+              #{module 1130}#)
+       (vector
+         'syntax-object
+         #{expression 1128}#
+         #{wrap 1129}#
+         #{module 1130}#)))
+   (#{syntax-object? 305}#
+     (lambda (#{x 1134}#)
+       (if (vector? #{x 1134}#)
+         (if (= (vector-length #{x 1134}#) 4)
+           (eq? (vector-ref #{x 1134}# 0) 'syntax-object)
+           #f)
+         #f)))
+   (#{syntax-object-expression 307}#
+     (lambda (#{x 1139}#) (vector-ref #{x 1139}# 1)))
+   (#{syntax-object-wrap 309}#
+     (lambda (#{x 1141}#) (vector-ref #{x 1141}# 2)))
+   (#{syntax-object-module 311}#
+     (lambda (#{x 1143}#) (vector-ref #{x 1143}# 3)))
+   (#{source-annotation 320}#
+     (lambda (#{x 1157}#)
+       (if (#{syntax-object? 305}# #{x 1157}#)
+         (#{source-annotation 320}#
+           (#{syntax-object-expression 307}# #{x 1157}#))
+         (if (pair? #{x 1157}#)
            (begin
-             (#{set-ribcage-symnames! 404}#
-               #{ribcage 1300}#
-               (cons (#{syntax-object-expression 344}# #{id 1301}#)
-                     (#{ribcage-symnames 398}# #{ribcage 1300}#)))
-             (#{set-ribcage-marks! 406}#
-               #{ribcage 1300}#
-               (cons (car (#{syntax-object-wrap 346}# #{id 1301}#))
-                     (#{ribcage-marks 400}# #{ribcage 1300}#)))
-             (#{set-ribcage-labels! 408}#
-               #{ribcage 1300}#
-               (cons #{label 1302}#
-                     (#{ribcage-labels 402}# #{ribcage 1300}#))))))
-       (#{make-binding-wrap 420}#
-         (lambda (#{ids 1307}# #{labels 1308}# #{w 1309}#)
-           (if (null? #{ids 1307}#)
-             #{w 1309}#
-             (cons (car #{w 1309}#)
-                   (cons (begin
-                           (let ((#{labelvec 1316}#
-                                   (list->vector #{labels 1308}#)))
+             (let ((#{props 1164}# (source-properties #{x 1157}#)))
+               (if (pair? #{props 1164}#) #{props 1164}# #f)))
+           #f))))
+   (#{extend-env 327}#
+     (lambda (#{labels 1166}# #{bindings 1167}# #{r 1168}#)
+       (if (null? #{labels 1166}#)
+         #{r 1168}#
+         (#{extend-env 327}#
+           (cdr #{labels 1166}#)
+           (cdr #{bindings 1167}#)
+           (cons (cons (car #{labels 1166}#)
+                       (car #{bindings 1167}#))
+                 #{r 1168}#)))))
+   (#{extend-var-env 329}#
+     (lambda (#{labels 1172}# #{vars 1173}# #{r 1174}#)
+       (if (null? #{labels 1172}#)
+         #{r 1174}#
+         (#{extend-var-env 329}#
+           (cdr #{labels 1172}#)
+           (cdr #{vars 1173}#)
+           (cons (cons (car #{labels 1172}#)
+                       (cons 'lexical (car #{vars 1173}#)))
+                 #{r 1174}#)))))
+   (#{macros-only-env 331}#
+     (lambda (#{r 1179}#)
+       (if (null? #{r 1179}#)
+         '()
+         (begin
+           (let ((#{a 1182}# (car #{r 1179}#)))
+             (if (eq? (car (cdr #{a 1182}#)) 'macro)
+               (cons #{a 1182}#
+                     (#{macros-only-env 331}# (cdr #{r 1179}#)))
+               (#{macros-only-env 331}# (cdr #{r 1179}#))))))))
+   (#{lookup 333}#
+     (lambda (#{x 1183}# #{r 1184}# #{mod 1185}#)
+       (begin
+         (let ((#{t 1191}# (assq #{x 1183}# #{r 1184}#)))
+           (if #{t 1191}#
+             (cdr #{t 1191}#)
+             (if (symbol? #{x 1183}#)
+               (begin
+                 (let ((#{t 1197}#
+                         (#{get-global-definition-hook 257}#
+                           #{x 1183}#
+                           #{mod 1185}#)))
+                   (if #{t 1197}# #{t 1197}# '(global))))
+               '(displaced-lexical)))))))
+   (#{global-extend 335}#
+     (lambda (#{type 1202}# #{sym 1203}# #{val 1204}#)
+       (#{put-global-definition-hook 255}#
+         #{sym 1203}#
+         #{type 1202}#
+         #{val 1204}#)))
+   (#{nonsymbol-id? 337}#
+     (lambda (#{x 1208}#)
+       (if (#{syntax-object? 305}# #{x 1208}#)
+         (symbol?
+           (#{syntax-object-expression 307}# #{x 1208}#))
+         #f)))
+   (#{id? 339}#
+     (lambda (#{x 1212}#)
+       (if (symbol? #{x 1212}#)
+         #t
+         (if (#{syntax-object? 305}# #{x 1212}#)
+           (symbol?
+             (#{syntax-object-expression 307}# #{x 1212}#))
+           #f))))
+   (#{id-sym-name&marks 342}#
+     (lambda (#{x 1219}# #{w 1220}#)
+       (if (#{syntax-object? 305}# #{x 1219}#)
+         (values
+           (#{syntax-object-expression 307}# #{x 1219}#)
+           (#{join-marks 389}#
+             (car #{w 1220}#)
+             (car (#{syntax-object-wrap 309}# #{x 1219}#))))
+         (values #{x 1219}# (car #{w 1220}#)))))
+   (#{gen-label 352}#
+     (lambda () (symbol->string (gensym "i"))))
+   (#{gen-labels 354}#
+     (lambda (#{ls 1226}#)
+       (if (null? #{ls 1226}#)
+         '()
+         (cons (#{gen-label 352}#)
+               (#{gen-labels 354}# (cdr #{ls 1226}#))))))
+   (#{make-ribcage 357}#
+     (lambda (#{symnames 1228}#
+              #{marks 1229}#
+              #{labels 1230}#)
+       (vector
+         'ribcage
+         #{symnames 1228}#
+         #{marks 1229}#
+         #{labels 1230}#)))
+   (#{ribcage-symnames 361}#
+     (lambda (#{x 1239}#) (vector-ref #{x 1239}# 1)))
+   (#{ribcage-marks 363}#
+     (lambda (#{x 1241}#) (vector-ref #{x 1241}# 2)))
+   (#{ribcage-labels 365}#
+     (lambda (#{x 1243}#) (vector-ref #{x 1243}# 3)))
+   (#{set-ribcage-symnames! 367}#
+     (lambda (#{x 1245}# #{update 1246}#)
+       (vector-set! #{x 1245}# 1 #{update 1246}#)))
+   (#{set-ribcage-marks! 369}#
+     (lambda (#{x 1249}# #{update 1250}#)
+       (vector-set! #{x 1249}# 2 #{update 1250}#)))
+   (#{set-ribcage-labels! 371}#
+     (lambda (#{x 1253}# #{update 1254}#)
+       (vector-set! #{x 1253}# 3 #{update 1254}#)))
+   (#{anti-mark 377}#
+     (lambda (#{w 1257}#)
+       (cons (cons #f (car #{w 1257}#))
+             (cons 'shift (cdr #{w 1257}#)))))
+   (#{extend-ribcage! 381}#
+     (lambda (#{ribcage 1263}# #{id 1264}# #{label 1265}#)
+       (begin
+         (#{set-ribcage-symnames! 367}#
+           #{ribcage 1263}#
+           (cons (#{syntax-object-expression 307}# #{id 1264}#)
+                 (#{ribcage-symnames 361}# #{ribcage 1263}#)))
+         (#{set-ribcage-marks! 369}#
+           #{ribcage 1263}#
+           (cons (car (#{syntax-object-wrap 309}# #{id 1264}#))
+                 (#{ribcage-marks 363}# #{ribcage 1263}#)))
+         (#{set-ribcage-labels! 371}#
+           #{ribcage 1263}#
+           (cons #{label 1265}#
+                 (#{ribcage-labels 365}# #{ribcage 1263}#))))))
+   (#{make-binding-wrap 383}#
+     (lambda (#{ids 1270}# #{labels 1271}# #{w 1272}#)
+       (if (null? #{ids 1270}#)
+         #{w 1272}#
+         (cons (car #{w 1272}#)
+               (cons (begin
+                       (let ((#{labelvec 1279}#
+                               (list->vector #{labels 1271}#)))
+                         (begin
+                           (let ((#{n 1281}#
+                                   (vector-length #{labelvec 1279}#)))
                              (begin
-                               (let ((#{n 1318}#
-                                       (vector-length #{labelvec 1316}#)))
+                               (let ((#{symnamevec 1284}#
+                                       (make-vector #{n 1281}#))
+                                     (#{marksvec 1285}#
+                                       (make-vector #{n 1281}#)))
                                  (begin
-                                   (let ((#{symnamevec 1321}#
-                                           (make-vector #{n 1318}#))
-                                         (#{marksvec 1322}#
-                                           (make-vector #{n 1318}#)))
-                                     (begin
-                                       (letrec*
-                                         ((#{f 1326}#
-                                            (lambda (#{ids 1327}# #{i 1328}#)
-                                              (if (not (null? #{ids 1327}#))
-                                                (call-with-values
-                                                  (lambda ()
-                                                    (#{id-sym-name&marks 379}#
-                                                      (car #{ids 1327}#)
-                                                      #{w 1309}#))
-                                                  (lambda (#{symname 1329}#
-                                                           #{marks 1330}#)
-                                                    (begin
-                                                      (vector-set!
-                                                        #{symnamevec 1321}#
-                                                        #{i 1328}#
-                                                        #{symname 1329}#)
-                                                      (vector-set!
-                                                        #{marksvec 1322}#
-                                                        #{i 1328}#
-                                                        #{marks 1330}#)
-                                                      (#{f 1326}#
-                                                        (cdr #{ids 1327}#)
-                                                        (#{1+}# #{i 
1328}#)))))))))
-                                         (begin (#{f 1326}# #{ids 1307}# 0)))
-                                       (#{make-ribcage 394}#
-                                         #{symnamevec 1321}#
-                                         #{marksvec 1322}#
-                                         #{labelvec 1316}#))))))))
-                         (cdr #{w 1309}#))))))
-       (#{smart-append 422}#
-         (lambda (#{m1 1335}# #{m2 1336}#)
-           (if (null? #{m2 1336}#)
-             #{m1 1335}#
-             (append #{m1 1335}# #{m2 1336}#))))
-       (#{join-wraps 424}#
-         (lambda (#{w1 1339}# #{w2 1340}#)
-           (begin
-             (let ((#{m1 1345}# (car #{w1 1339}#))
-                   (#{s1 1346}# (cdr #{w1 1339}#)))
-               (if (null? #{m1 1345}#)
-                 (if (null? #{s1 1346}#)
-                   #{w2 1340}#
-                   (cons (car #{w2 1340}#)
-                         (#{smart-append 422}#
-                           #{s1 1346}#
-                           (cdr #{w2 1340}#))))
-                 (cons (#{smart-append 422}#
-                         #{m1 1345}#
-                         (car #{w2 1340}#))
-                       (#{smart-append 422}#
-                         #{s1 1346}#
-                         (cdr #{w2 1340}#))))))))
-       (#{join-marks 426}#
-         (lambda (#{m1 1355}# #{m2 1356}#)
-           (#{smart-append 422}# #{m1 1355}# #{m2 1356}#)))
-       (#{same-marks? 428}#
-         (lambda (#{x 1359}# #{y 1360}#)
-           (begin
-             (let ((#{t 1365}# (eq? #{x 1359}# #{y 1360}#)))
-               (if #{t 1365}#
-                 #{t 1365}#
-                 (if (not (null? #{x 1359}#))
-                   (if (not (null? #{y 1360}#))
-                     (if (eq? (car #{x 1359}#) (car #{y 1360}#))
-                       (#{same-marks? 428}#
-                         (cdr #{x 1359}#)
-                         (cdr #{y 1360}#))
-                       #f)
-                     #f)
-                   #f))))))
-       (#{id-var-name 430}#
-         (lambda (#{id 1371}# #{w 1372}#)
-           (letrec*
-             ((#{search 1377}#
-                (lambda (#{sym 1393}# #{subst 1394}# #{marks 1395}#)
-                  (if (null? #{subst 1394}#)
-                    (values #f #{marks 1395}#)
-                    (begin
-                      (let ((#{fst 1400}# (car #{subst 1394}#)))
-                        (if (eq? #{fst 1400}# 'shift)
-                          (#{search 1377}#
-                            #{sym 1393}#
-                            (cdr #{subst 1394}#)
-                            (cdr #{marks 1395}#))
-                          (begin
-                            (let ((#{symnames 1402}#
-                                    (#{ribcage-symnames 398}# #{fst 1400}#)))
-                              (if (vector? #{symnames 1402}#)
-                                (#{search-vector-rib 1381}#
-                                  #{sym 1393}#
-                                  #{subst 1394}#
-                                  #{marks 1395}#
-                                  #{symnames 1402}#
-                                  #{fst 1400}#)
-                                (#{search-list-rib 1379}#
-                                  #{sym 1393}#
-                                  #{subst 1394}#
-                                  #{marks 1395}#
-                                  #{symnames 1402}#
-                                  #{fst 1400}#))))))))))
-              (#{search-list-rib 1379}#
-                (lambda (#{sym 1403}#
-                         #{subst 1404}#
-                         #{marks 1405}#
-                         #{symnames 1406}#
-                         #{ribcage 1407}#)
+                                   (letrec*
+                                     ((#{f 1289}#
+                                        (lambda (#{ids 1290}# #{i 1291}#)
+                                          (if (not (null? #{ids 1290}#))
+                                            (call-with-values
+                                              (lambda ()
+                                                (#{id-sym-name&marks 342}#
+                                                  (car #{ids 1290}#)
+                                                  #{w 1272}#))
+                                              (lambda (#{symname 1292}#
+                                                       #{marks 1293}#)
+                                                (begin
+                                                  (vector-set!
+                                                    #{symnamevec 1284}#
+                                                    #{i 1291}#
+                                                    #{symname 1292}#)
+                                                  (vector-set!
+                                                    #{marksvec 1285}#
+                                                    #{i 1291}#
+                                                    #{marks 1293}#)
+                                                  (#{f 1289}#
+                                                    (cdr #{ids 1290}#)
+                                                    (#{1+}# #{i 1291}#)))))))))
+                                     (begin (#{f 1289}# #{ids 1270}# 0)))
+                                   (#{make-ribcage 357}#
+                                     #{symnamevec 1284}#
+                                     #{marksvec 1285}#
+                                     #{labelvec 1279}#))))))))
+                     (cdr #{w 1272}#))))))
+   (#{smart-append 385}#
+     (lambda (#{m1 1298}# #{m2 1299}#)
+       (if (null? #{m2 1299}#)
+         #{m1 1298}#
+         (append #{m1 1298}# #{m2 1299}#))))
+   (#{join-wraps 387}#
+     (lambda (#{w1 1302}# #{w2 1303}#)
+       (begin
+         (let ((#{m1 1308}# (car #{w1 1302}#))
+               (#{s1 1309}# (cdr #{w1 1302}#)))
+           (if (null? #{m1 1308}#)
+             (if (null? #{s1 1309}#)
+               #{w2 1303}#
+               (cons (car #{w2 1303}#)
+                     (#{smart-append 385}#
+                       #{s1 1309}#
+                       (cdr #{w2 1303}#))))
+             (cons (#{smart-append 385}#
+                     #{m1 1308}#
+                     (car #{w2 1303}#))
+                   (#{smart-append 385}#
+                     #{s1 1309}#
+                     (cdr #{w2 1303}#))))))))
+   (#{join-marks 389}#
+     (lambda (#{m1 1318}# #{m2 1319}#)
+       (#{smart-append 385}# #{m1 1318}# #{m2 1319}#)))
+   (#{same-marks? 391}#
+     (lambda (#{x 1322}# #{y 1323}#)
+       (begin
+         (let ((#{t 1328}# (eq? #{x 1322}# #{y 1323}#)))
+           (if #{t 1328}#
+             #{t 1328}#
+             (if (not (null? #{x 1322}#))
+               (if (not (null? #{y 1323}#))
+                 (if (eq? (car #{x 1322}#) (car #{y 1323}#))
+                   (#{same-marks? 391}#
+                     (cdr #{x 1322}#)
+                     (cdr #{y 1323}#))
+                   #f)
+                 #f)
+               #f))))))
+   (#{id-var-name 393}#
+     (lambda (#{id 1334}# #{w 1335}#)
+       (letrec*
+         ((#{search 1340}#
+            (lambda (#{sym 1356}# #{subst 1357}# #{marks 1358}#)
+              (if (null? #{subst 1357}#)
+                (values #f #{marks 1358}#)
+                (begin
+                  (let ((#{fst 1363}# (car #{subst 1357}#)))
+                    (if (eq? #{fst 1363}# 'shift)
+                      (#{search 1340}#
+                        #{sym 1356}#
+                        (cdr #{subst 1357}#)
+                        (cdr #{marks 1358}#))
+                      (begin
+                        (let ((#{symnames 1365}#
+                                (#{ribcage-symnames 361}# #{fst 1363}#)))
+                          (if (vector? #{symnames 1365}#)
+                            (#{search-vector-rib 1344}#
+                              #{sym 1356}#
+                              #{subst 1357}#
+                              #{marks 1358}#
+                              #{symnames 1365}#
+                              #{fst 1363}#)
+                            (#{search-list-rib 1342}#
+                              #{sym 1356}#
+                              #{subst 1357}#
+                              #{marks 1358}#
+                              #{symnames 1365}#
+                              #{fst 1363}#))))))))))
+          (#{search-list-rib 1342}#
+            (lambda (#{sym 1366}#
+                     #{subst 1367}#
+                     #{marks 1368}#
+                     #{symnames 1369}#
+                     #{ribcage 1370}#)
+              (letrec*
+                ((#{f 1379}#
+                   (lambda (#{symnames 1380}# #{i 1381}#)
+                     (if (null? #{symnames 1380}#)
+                       (#{search 1340}#
+                         #{sym 1366}#
+                         (cdr #{subst 1367}#)
+                         #{marks 1368}#)
+                       (if (if (eq? (car #{symnames 1380}#) #{sym 1366}#)
+                             (#{same-marks? 391}#
+                               #{marks 1368}#
+                               (list-ref
+                                 (#{ribcage-marks 363}# #{ribcage 1370}#)
+                                 #{i 1381}#))
+                             #f)
+                         (values
+                           (list-ref
+                             (#{ribcage-labels 365}# #{ribcage 1370}#)
+                             #{i 1381}#)
+                           #{marks 1368}#)
+                         (#{f 1379}#
+                           (cdr #{symnames 1380}#)
+                           (#{1+}# #{i 1381}#)))))))
+                (begin (#{f 1379}# #{symnames 1369}# 0)))))
+          (#{search-vector-rib 1344}#
+            (lambda (#{sym 1390}#
+                     #{subst 1391}#
+                     #{marks 1392}#
+                     #{symnames 1393}#
+                     #{ribcage 1394}#)
+              (begin
+                (let ((#{n 1401}# (vector-length #{symnames 1393}#)))
                   (letrec*
-                    ((#{f 1416}#
-                       (lambda (#{symnames 1417}# #{i 1418}#)
-                         (if (null? #{symnames 1417}#)
-                           (#{search 1377}#
-                             #{sym 1403}#
-                             (cdr #{subst 1404}#)
-                             #{marks 1405}#)
-                           (if (if (eq? (car #{symnames 1417}#) #{sym 1403}#)
-                                 (#{same-marks? 428}#
-                                   #{marks 1405}#
-                                   (list-ref
-                                     (#{ribcage-marks 400}# #{ribcage 1407}#)
-                                     #{i 1418}#))
+                    ((#{f 1404}#
+                       (lambda (#{i 1405}#)
+                         (if (= #{i 1405}# #{n 1401}#)
+                           (#{search 1340}#
+                             #{sym 1390}#
+                             (cdr #{subst 1391}#)
+                             #{marks 1392}#)
+                           (if (if (eq? (vector-ref
+                                          #{symnames 1393}#
+                                          #{i 1405}#)
+                                        #{sym 1390}#)
+                                 (#{same-marks? 391}#
+                                   #{marks 1392}#
+                                   (vector-ref
+                                     (#{ribcage-marks 363}# #{ribcage 1394}#)
+                                     #{i 1405}#))
                                  #f)
                              (values
-                               (list-ref
-                                 (#{ribcage-labels 402}# #{ribcage 1407}#)
-                                 #{i 1418}#)
-                               #{marks 1405}#)
-                             (#{f 1416}#
-                               (cdr #{symnames 1417}#)
-                               (#{1+}# #{i 1418}#)))))))
-                    (begin (#{f 1416}# #{symnames 1406}# 0)))))
-              (#{search-vector-rib 1381}#
-                (lambda (#{sym 1427}#
-                         #{subst 1428}#
-                         #{marks 1429}#
-                         #{symnames 1430}#
-                         #{ribcage 1431}#)
-                  (begin
-                    (let ((#{n 1438}# (vector-length #{symnames 1430}#)))
-                      (letrec*
-                        ((#{f 1441}#
-                           (lambda (#{i 1442}#)
-                             (if (= #{i 1442}# #{n 1438}#)
-                               (#{search 1377}#
-                                 #{sym 1427}#
-                                 (cdr #{subst 1428}#)
-                                 #{marks 1429}#)
-                               (if (if (eq? (vector-ref
-                                              #{symnames 1430}#
-                                              #{i 1442}#)
-                                            #{sym 1427}#)
-                                     (#{same-marks? 428}#
-                                       #{marks 1429}#
-                                       (vector-ref
-                                         (#{ribcage-marks 400}#
-                                           #{ribcage 1431}#)
-                                         #{i 1442}#))
-                                     #f)
-                                 (values
-                                   (vector-ref
-                                     (#{ribcage-labels 402}# #{ribcage 1431}#)
-                                     #{i 1442}#)
-                                   #{marks 1429}#)
-                                 (#{f 1441}# (#{1+}# #{i 1442}#)))))))
-                        (begin (#{f 1441}# 0))))))))
+                               (vector-ref
+                                 (#{ribcage-labels 365}# #{ribcage 1394}#)
+                                 #{i 1405}#)
+                               #{marks 1392}#)
+                             (#{f 1404}# (#{1+}# #{i 1405}#)))))))
+                    (begin (#{f 1404}# 0))))))))
+         (begin
+           (if (symbol? #{id 1334}#)
              (begin
-               (if (symbol? #{id 1371}#)
-                 (begin
-                   (let ((#{t 1454}#
-                           (call-with-values
-                             (lambda ()
-                               (#{search 1377}#
-                                 #{id 1371}#
-                                 (cdr #{w 1372}#)
-                                 (car #{w 1372}#)))
-                             (lambda (#{x 1458}# . #{ignore 1459}#)
-                               #{x 1458}#))))
-                     (if #{t 1454}# #{t 1454}# #{id 1371}#)))
-                 (if (#{syntax-object? 342}# #{id 1371}#)
+               (let ((#{t 1417}#
+                       (#{search 1340}#
+                         #{id 1334}#
+                         (cdr #{w 1335}#)
+                         (car #{w 1335}#))))
+                 (if #{t 1417}# #{t 1417}# #{id 1334}#)))
+             (if (#{syntax-object? 305}# #{id 1334}#)
+               (begin
+                 (let ((#{id 1426}#
+                         (#{syntax-object-expression 307}# #{id 1334}#))
+                       (#{w1 1427}#
+                         (#{syntax-object-wrap 309}# #{id 1334}#)))
                    (begin
-                     (let ((#{id 1467}#
-                             (#{syntax-object-expression 344}# #{id 1371}#))
-                           (#{w1 1468}#
-                             (#{syntax-object-wrap 346}# #{id 1371}#)))
-                       (begin
-                         (let ((#{marks 1470}#
-                                 (#{join-marks 426}#
-                                   (car #{w 1372}#)
-                                   (car #{w1 1468}#))))
-                           (call-with-values
-                             (lambda ()
-                               (#{search 1377}#
-                                 #{id 1467}#
-                                 (cdr #{w 1372}#)
-                                 #{marks 1470}#))
-                             (lambda (#{new-id 1474}# #{marks 1475}#)
-                               (begin
-                                 (let ((#{t 1480}# #{new-id 1474}#))
-                                   (if #{t 1480}#
-                                     #{t 1480}#
-                                     (begin
-                                       (let ((#{t 1483}#
-                                               (call-with-values
-                                                 (lambda ()
-                                                   (#{search 1377}#
-                                                     #{id 1467}#
-                                                     (cdr #{w1 1468}#)
-                                                     #{marks 1475}#))
-                                                 (lambda (#{x 1486}#
-                                                          .
-                                                          #{ignore 1487}#)
-                                                   #{x 1486}#))))
-                                         (if #{t 1483}#
-                                           #{t 1483}#
-                                           #{id 1467}#))))))))))))
-                   (syntax-violation
-                     'id-var-name
-                     "invalid id"
-                     #{id 1371}#)))))))
-       (#{free-id=? 432}#
-         (lambda (#{i 1492}# #{j 1493}#)
-           (if (eq? (begin
-                      (let ((#{x 1499}# #{i 1492}#))
-                        (if (#{syntax-object? 342}# #{x 1499}#)
-                          (#{syntax-object-expression 344}# #{x 1499}#)
-                          #{x 1499}#)))
-                    (begin
-                      (let ((#{x 1502}# #{j 1493}#))
-                        (if (#{syntax-object? 342}# #{x 1502}#)
-                          (#{syntax-object-expression 344}# #{x 1502}#)
-                          #{x 1502}#))))
-             (eq? (#{id-var-name 430}# #{i 1492}# '(()))
-                  (#{id-var-name 430}# #{j 1493}# '(())))
-             #f)))
-       (#{bound-id=? 434}#
-         (lambda (#{i 1506}# #{j 1507}#)
-           (if (if (#{syntax-object? 342}# #{i 1506}#)
-                 (#{syntax-object? 342}# #{j 1507}#)
-                 #f)
-             (if (eq? (#{syntax-object-expression 344}# #{i 1506}#)
-                      (#{syntax-object-expression 344}# #{j 1507}#))
-               (#{same-marks? 428}#
-                 (car (#{syntax-object-wrap 346}# #{i 1506}#))
-                 (car (#{syntax-object-wrap 346}# #{j 1507}#)))
-               #f)
-             (eq? #{i 1506}# #{j 1507}#))))
-       (#{valid-bound-ids? 436}#
-         (lambda (#{ids 1516}#)
-           (if (letrec*
-                 ((#{all-ids? 1521}#
-                    (lambda (#{ids 1522}#)
-                      (begin
-                        (let ((#{t 1525}# (null? #{ids 1522}#)))
-                          (if #{t 1525}#
-                            #{t 1525}#
-                            (if (#{id? 376}# (car #{ids 1522}#))
-                              (#{all-ids? 1521}# (cdr #{ids 1522}#))
-                              #f)))))))
-                 (begin (#{all-ids? 1521}# #{ids 1516}#)))
-             (#{distinct-bound-ids? 438}# #{ids 1516}#)
-             #f)))
-       (#{distinct-bound-ids? 438}#
-         (lambda (#{ids 1530}#)
-           (letrec*
-             ((#{distinct? 1534}#
-                (lambda (#{ids 1535}#)
+                     (let ((#{marks 1429}#
+                             (#{join-marks 389}#
+                               (car #{w 1335}#)
+                               (car #{w1 1427}#))))
+                       (call-with-values
+                         (lambda ()
+                           (#{search 1340}#
+                             #{id 1426}#
+                             (cdr #{w 1335}#)
+                             #{marks 1429}#))
+                         (lambda (#{new-id 1433}# #{marks 1434}#)
+                           (begin
+                             (let ((#{t 1439}# #{new-id 1433}#))
+                               (if #{t 1439}#
+                                 #{t 1439}#
+                                 (begin
+                                   (let ((#{t 1442}#
+                                           (#{search 1340}#
+                                             #{id 1426}#
+                                             (cdr #{w1 1427}#)
+                                             #{marks 1434}#)))
+                                     (if #{t 1442}#
+                                       #{t 1442}#
+                                       #{id 1426}#))))))))))))
+               (syntax-violation
+                 'id-var-name
+                 "invalid id"
+                 #{id 1334}#)))))))
+   (#{free-id=? 395}#
+     (lambda (#{i 1447}# #{j 1448}#)
+       (if (eq? (begin
+                  (let ((#{x 1454}# #{i 1447}#))
+                    (if (#{syntax-object? 305}# #{x 1454}#)
+                      (#{syntax-object-expression 307}# #{x 1454}#)
+                      #{x 1454}#)))
+                (begin
+                  (let ((#{x 1457}# #{j 1448}#))
+                    (if (#{syntax-object? 305}# #{x 1457}#)
+                      (#{syntax-object-expression 307}# #{x 1457}#)
+                      #{x 1457}#))))
+         (eq? (#{id-var-name 393}# #{i 1447}# '(()))
+              (#{id-var-name 393}# #{j 1448}# '(())))
+         #f)))
+   (#{bound-id=? 397}#
+     (lambda (#{i 1461}# #{j 1462}#)
+       (if (if (#{syntax-object? 305}# #{i 1461}#)
+             (#{syntax-object? 305}# #{j 1462}#)
+             #f)
+         (if (eq? (#{syntax-object-expression 307}# #{i 1461}#)
+                  (#{syntax-object-expression 307}# #{j 1462}#))
+           (#{same-marks? 391}#
+             (car (#{syntax-object-wrap 309}# #{i 1461}#))
+             (car (#{syntax-object-wrap 309}# #{j 1462}#)))
+           #f)
+         (eq? #{i 1461}# #{j 1462}#))))
+   (#{valid-bound-ids? 399}#
+     (lambda (#{ids 1471}#)
+       (if (letrec*
+             ((#{all-ids? 1476}#
+                (lambda (#{ids 1477}#)
                   (begin
-                    (let ((#{t 1538}# (null? #{ids 1535}#)))
-                      (if #{t 1538}#
-                        #{t 1538}#
-                        (if (not (#{bound-id-member? 440}#
-                                   (car #{ids 1535}#)
-                                   (cdr #{ids 1535}#)))
-                          (#{distinct? 1534}# (cdr #{ids 1535}#))
+                    (let ((#{t 1480}# (null? #{ids 1477}#)))
+                      (if #{t 1480}#
+                        #{t 1480}#
+                        (if (#{id? 339}# (car #{ids 1477}#))
+                          (#{all-ids? 1476}# (cdr #{ids 1477}#))
                           #f)))))))
-             (begin (#{distinct? 1534}# #{ids 1530}#)))))
-       (#{bound-id-member? 440}#
-         (lambda (#{x 1542}# #{list 1543}#)
-           (if (not (null? #{list 1543}#))
-             (begin
-               (let ((#{t 1550}#
-                       (#{bound-id=? 434}#
-                         #{x 1542}#
-                         (car #{list 1543}#))))
-                 (if #{t 1550}#
-                   #{t 1550}#
-                   (#{bound-id-member? 440}#
-                     #{x 1542}#
-                     (cdr #{list 1543}#)))))
-             #f)))
-       (#{wrap 442}#
-         (lambda (#{x 1552}# #{w 1553}# #{defmod 1554}#)
-           (if (if (null? (car #{w 1553}#))
-                 (null? (cdr #{w 1553}#))
-                 #f)
-             #{x 1552}#
-             (if (#{syntax-object? 342}# #{x 1552}#)
-               (#{make-syntax-object 340}#
-                 (#{syntax-object-expression 344}# #{x 1552}#)
-                 (#{join-wraps 424}#
-                   #{w 1553}#
-                   (#{syntax-object-wrap 346}# #{x 1552}#))
-                 (#{syntax-object-module 348}# #{x 1552}#))
-               (if (null? #{x 1552}#)
-                 #{x 1552}#
-                 (#{make-syntax-object 340}#
-                   #{x 1552}#
-                   #{w 1553}#
-                   #{defmod 1554}#))))))
-       (#{source-wrap 444}#
-         (lambda (#{x 1569}#
-                  #{w 1570}#
-                  #{s 1571}#
-                  #{defmod 1572}#)
-           (#{wrap 442}#
-             (#{decorate-source 296}# #{x 1569}# #{s 1571}#)
-             #{w 1570}#
-             #{defmod 1572}#)))
-       (#{chi-sequence 446}#
-         (lambda (#{body 1577}#
-                  #{r 1578}#
-                  #{w 1579}#
-                  #{s 1580}#
-                  #{mod 1581}#)
-           (#{build-sequence 330}#
-             #{s 1580}#
-             (letrec*
-               ((#{dobody 1592}#
-                  (lambda (#{body 1593}#
-                           #{r 1594}#
-                           #{w 1595}#
-                           #{mod 1596}#)
-                    (if (null? #{body 1593}#)
-                      '()
-                      (begin
-                        (let ((#{first 1598}#
-                                (#{chi 456}#
-                                  (car #{body 1593}#)
-                                  #{r 1594}#
-                                  #{w 1595}#
-                                  #{mod 1596}#)))
-                          (cons #{first 1598}#
-                                (#{dobody 1592}#
-                                  (cdr #{body 1593}#)
-                                  #{r 1594}#
-                                  #{w 1595}#
-                                  #{mod 1596}#))))))))
-               (begin
-                 (#{dobody 1592}#
-                   #{body 1577}#
-                   #{r 1578}#
-                   #{w 1579}#
-                   #{mod 1581}#))))))
-       (#{chi-top-sequence 448}#
-         (lambda (#{body 1599}#
-                  #{r 1600}#
-                  #{w 1601}#
-                  #{s 1602}#
-                  #{m 1603}#
-                  #{esew 1604}#
-                  #{mod 1605}#)
-           (letrec*
-             ((#{scan 1614}#
-                (lambda (#{body 1615}#
-                         #{r 1616}#
-                         #{w 1617}#
-                         #{s 1618}#
-                         #{m 1619}#
-                         #{esew 1620}#
-                         #{mod 1621}#
-                         #{exps 1622}#)
-                  (if (null? #{body 1615}#)
-                    #{exps 1622}#
+             (begin (#{all-ids? 1476}# #{ids 1471}#)))
+         (#{distinct-bound-ids? 401}# #{ids 1471}#)
+         #f)))
+   (#{distinct-bound-ids? 401}#
+     (lambda (#{ids 1485}#)
+       (letrec*
+         ((#{distinct? 1489}#
+            (lambda (#{ids 1490}#)
+              (begin
+                (let ((#{t 1493}# (null? #{ids 1490}#)))
+                  (if #{t 1493}#
+                    #{t 1493}#
+                    (if (not (#{bound-id-member? 403}#
+                               (car #{ids 1490}#)
+                               (cdr #{ids 1490}#)))
+                      (#{distinct? 1489}# (cdr #{ids 1490}#))
+                      #f)))))))
+         (begin (#{distinct? 1489}# #{ids 1485}#)))))
+   (#{bound-id-member? 403}#
+     (lambda (#{x 1497}# #{list 1498}#)
+       (if (not (null? #{list 1498}#))
+         (begin
+           (let ((#{t 1505}#
+                   (#{bound-id=? 397}#
+                     #{x 1497}#
+                     (car #{list 1498}#))))
+             (if #{t 1505}#
+               #{t 1505}#
+               (#{bound-id-member? 403}#
+                 #{x 1497}#
+                 (cdr #{list 1498}#)))))
+         #f)))
+   (#{wrap 405}#
+     (lambda (#{x 1507}# #{w 1508}# #{defmod 1509}#)
+       (if (if (null? (car #{w 1508}#))
+             (null? (cdr #{w 1508}#))
+             #f)
+         #{x 1507}#
+         (if (#{syntax-object? 305}# #{x 1507}#)
+           (#{make-syntax-object 303}#
+             (#{syntax-object-expression 307}# #{x 1507}#)
+             (#{join-wraps 387}#
+               #{w 1508}#
+               (#{syntax-object-wrap 309}# #{x 1507}#))
+             (#{syntax-object-module 311}# #{x 1507}#))
+           (if (null? #{x 1507}#)
+             #{x 1507}#
+             (#{make-syntax-object 303}#
+               #{x 1507}#
+               #{w 1508}#
+               #{defmod 1509}#))))))
+   (#{source-wrap 407}#
+     (lambda (#{x 1524}#
+              #{w 1525}#
+              #{s 1526}#
+              #{defmod 1527}#)
+       (#{wrap 405}#
+         (#{decorate-source 259}# #{x 1524}# #{s 1526}#)
+         #{w 1525}#
+         #{defmod 1527}#)))
+   (#{chi-sequence 409}#
+     (lambda (#{body 1532}#
+              #{r 1533}#
+              #{w 1534}#
+              #{s 1535}#
+              #{mod 1536}#)
+       (#{build-sequence 293}#
+         #{s 1535}#
+         (letrec*
+           ((#{dobody 1547}#
+              (lambda (#{body 1548}#
+                       #{r 1549}#
+                       #{w 1550}#
+                       #{mod 1551}#)
+                (if (null? #{body 1548}#)
+                  '()
+                  (begin
+                    (let ((#{first 1553}#
+                            (#{chi 419}#
+                              (car #{body 1548}#)
+                              #{r 1549}#
+                              #{w 1550}#
+                              #{mod 1551}#)))
+                      (cons #{first 1553}#
+                            (#{dobody 1547}#
+                              (cdr #{body 1548}#)
+                              #{r 1549}#
+                              #{w 1550}#
+                              #{mod 1551}#))))))))
+           (begin
+             (#{dobody 1547}#
+               #{body 1532}#
+               #{r 1533}#
+               #{w 1534}#
+               #{mod 1536}#))))))
+   (#{chi-top-sequence 411}#
+     (lambda (#{body 1554}#
+              #{r 1555}#
+              #{w 1556}#
+              #{s 1557}#
+              #{m 1558}#
+              #{esew 1559}#
+              #{mod 1560}#)
+       (letrec*
+         ((#{scan 1569}#
+            (lambda (#{body 1570}#
+                     #{r 1571}#
+                     #{w 1572}#
+                     #{s 1573}#
+                     #{m 1574}#
+                     #{esew 1575}#
+                     #{mod 1576}#
+                     #{exps 1577}#)
+              (if (null? #{body 1570}#)
+                #{exps 1577}#
+                (call-with-values
+                  (lambda ()
                     (call-with-values
                       (lambda ()
-                        (call-with-values
-                          (lambda ()
-                            (begin
-                              (let ((#{e 1635}# (car #{body 1615}#)))
-                                (#{syntax-type 454}#
-                                  #{e 1635}#
-                                  #{r 1616}#
-                                  #{w 1617}#
-                                  (begin
-                                    (let ((#{t 1638}#
-                                            (#{source-annotation 357}#
-                                              #{e 1635}#)))
-                                      (if #{t 1638}# #{t 1638}# #{s 1618}#)))
-                                  #f
+                        (begin
+                          (let ((#{e 1590}# (car #{body 1570}#)))
+                            (#{syntax-type 417}#
+                              #{e 1590}#
+                              #{r 1571}#
+                              #{w 1572}#
+                              (begin
+                                (let ((#{t 1593}#
+                                        (#{source-annotation 320}#
+                                          #{e 1590}#)))
+                                  (if #{t 1593}# #{t 1593}# #{s 1573}#)))
+                              #f
+                              #{mod 1576}#
+                              #f))))
+                      (lambda (#{type 1595}#
+                               #{value 1596}#
+                               #{e 1597}#
+                               #{w 1598}#
+                               #{s 1599}#
+                               #{mod 1600}#)
+                        (if (eqv? #{type 1595}# 'begin-form)
+                          (let ((#{tmp 1608}# #{e 1597}#))
+                            (let ((#{tmp 1609}#
+                                    ($sc-dispatch #{tmp 1608}# '(_))))
+                              (if #{tmp 1609}#
+                                (@apply (lambda () #{exps 1577}#) #{tmp 1609}#)
+                                (let ((#{tmp 1610}#
+                                        ($sc-dispatch
+                                          #{tmp 1608}#
+                                          '(_ any . each-any))))
+                                  (if #{tmp 1610}#
+                                    (@apply
+                                      (lambda (#{e1 1613}# #{e2 1614}#)
+                                        (#{scan 1569}#
+                                          (cons #{e1 1613}# #{e2 1614}#)
+                                          #{r 1571}#
+                                          #{w 1598}#
+                                          #{s 1599}#
+                                          #{m 1574}#
+                                          #{esew 1575}#
+                                          #{mod 1600}#
+                                          #{exps 1577}#))
+                                      #{tmp 1610}#)
+                                    (syntax-violation
+                                      #f
+                                      "source expression failed to match any 
pattern"
+                                      #{tmp 1608}#))))))
+                          (if (eqv? #{type 1595}# 'local-syntax-form)
+                            (#{chi-local-syntax 429}#
+                              #{value 1596}#
+                              #{e 1597}#
+                              #{r 1571}#
+                              #{w 1598}#
+                              #{s 1599}#
+                              #{mod 1600}#
+                              (lambda (#{body 1617}#
+                                       #{r 1618}#
+                                       #{w 1619}#
+                                       #{s 1620}#
+                                       #{mod 1621}#)
+                                (#{scan 1569}#
+                                  #{body 1617}#
+                                  #{r 1618}#
+                                  #{w 1619}#
+                                  #{s 1620}#
+                                  #{m 1574}#
+                                  #{esew 1575}#
                                   #{mod 1621}#
-                                  #f))))
-                          (lambda (#{type 1640}#
-                                   #{value 1641}#
-                                   #{e 1642}#
-                                   #{w 1643}#
-                                   #{s 1644}#
-                                   #{mod 1645}#)
-                            (if (eqv? #{type 1640}# 'begin-form)
-                              (let ((#{tmp 1653}# #{e 1642}#))
-                                (let ((#{tmp 1654}#
-                                        ($sc-dispatch #{tmp 1653}# '(_))))
-                                  (if #{tmp 1654}#
+                                  #{exps 1577}#)))
+                            (if (eqv? #{type 1595}# 'eval-when-form)
+                              (let ((#{tmp 1628}# #{e 1597}#))
+                                (let ((#{tmp 1629}#
+                                        ($sc-dispatch
+                                          #{tmp 1628}#
+                                          '(_ each-any any . each-any))))
+                                  (if #{tmp 1629}#
                                     (@apply
-                                      (lambda () #{exps 1622}#)
-                                      #{tmp 1654}#)
-                                    (let ((#{tmp 1655}#
-                                            ($sc-dispatch
-                                              #{tmp 1653}#
-                                              '(_ any . each-any))))
-                                      (if #{tmp 1655}#
-                                        (@apply
-                                          (lambda (#{e1 1658}# #{e2 1659}#)
-                                            (#{scan 1614}#
-                                              (cons #{e1 1658}# #{e2 1659}#)
-                                              #{r 1616}#
-                                              #{w 1643}#
-                                              #{s 1644}#
-                                              #{m 1619}#
-                                              #{esew 1620}#
-                                              #{mod 1645}#
-                                              #{exps 1622}#))
-                                          #{tmp 1655}#)
-                                        (syntax-violation
-                                          #f
-                                          "source expression failed to match 
any pattern"
-                                          #{tmp 1653}#))))))
-                              (if (eqv? #{type 1640}# 'local-syntax-form)
-                                (#{chi-local-syntax 466}#
-                                  #{value 1641}#
-                                  #{e 1642}#
-                                  #{r 1616}#
-                                  #{w 1643}#
-                                  #{s 1644}#
-                                  #{mod 1645}#
-                                  (lambda (#{body 1662}#
-                                           #{r 1663}#
-                                           #{w 1664}#
-                                           #{s 1665}#
-                                           #{mod 1666}#)
-                                    (#{scan 1614}#
-                                      #{body 1662}#
-                                      #{r 1663}#
-                                      #{w 1664}#
-                                      #{s 1665}#
-                                      #{m 1619}#
-                                      #{esew 1620}#
-                                      #{mod 1666}#
-                                      #{exps 1622}#)))
-                                (if (eqv? #{type 1640}# 'eval-when-form)
-                                  (let ((#{tmp 1673}# #{e 1642}#))
-                                    (let ((#{tmp 1674}#
-                                            ($sc-dispatch
-                                              #{tmp 1673}#
-                                              '(_ each-any any . each-any))))
-                                      (if #{tmp 1674}#
-                                        (@apply
-                                          (lambda (#{x 1678}#
-                                                   #{e1 1679}#
-                                                   #{e2 1680}#)
-                                            (begin
-                                              (let ((#{when-list 1683}#
-                                                      (#{chi-when-list 452}#
-                                                        #{e 1642}#
-                                                        #{x 1678}#
-                                                        #{w 1643}#))
-                                                    (#{body 1684}#
-                                                      (cons #{e1 1679}#
-                                                            #{e2 1680}#)))
-                                                (if (eq? #{m 1619}# 'e)
-                                                  (if (memq 'eval
-                                                            #{when-list 1683}#)
-                                                    (#{scan 1614}#
-                                                      #{body 1684}#
-                                                      #{r 1616}#
-                                                      #{w 1643}#
-                                                      #{s 1644}#
-                                                      (if (memq 'expand
-                                                                #{when-list 
1683}#)
-                                                        'c&e
-                                                        'e)
-                                                      '(eval)
-                                                      #{mod 1645}#
-                                                      #{exps 1622}#)
-                                                    (begin
-                                                      (if (memq 'expand
-                                                                #{when-list 
1683}#)
-                                                        (#{top-level-eval-hook 
287}#
-                                                          (#{chi-top-sequence 
448}#
-                                                            #{body 1684}#
-                                                            #{r 1616}#
-                                                            #{w 1643}#
-                                                            #{s 1644}#
-                                                            'e
-                                                            '(eval)
-                                                            #{mod 1645}#)
-                                                          #{mod 1645}#))
-                                                      #{exps 1622}#))
-                                                  (if (memq 'load
-                                                            #{when-list 1683}#)
-                                                    (if (begin
-                                                          (let ((#{t 1693}#
-                                                                  (memq 
'compile
-                                                                        
#{when-list 1683}#)))
-                                                            (if #{t 1693}#
-                                                              #{t 1693}#
-                                                              (begin
-                                                                (let ((#{t 
1696}#
-                                                                        (memq 
'expand
-                                                                              
#{when-list 1683}#)))
-                                                                  (if #{t 
1696}#
-                                                                    #{t 1696}#
-                                                                    (if (eq? 
#{m 1619}#
-                                                                             
'c&e)
-                                                                      (memq 
'eval
-                                                                            
#{when-list 1683}#)
-                                                                      #f)))))))
-                                                      (#{scan 1614}#
-                                                        #{body 1684}#
-                                                        #{r 1616}#
-                                                        #{w 1643}#
-                                                        #{s 1644}#
-                                                        'c&e
-                                                        '(compile load)
-                                                        #{mod 1645}#
-                                                        #{exps 1622}#)
-                                                      (if (if (eq? #{m 1619}#
-                                                                   'c)
-                                                            #t
-                                                            (eq? #{m 1619}#
-                                                                 'c&e))
-                                                        (#{scan 1614}#
-                                                          #{body 1684}#
-                                                          #{r 1616}#
-                                                          #{w 1643}#
-                                                          #{s 1644}#
-                                                          'c
-                                                          '(load)
-                                                          #{mod 1645}#
-                                                          #{exps 1622}#)
-                                                        #{exps 1622}#))
-                                                    (if (begin
-                                                          (let ((#{t 1704}#
-                                                                  (memq 
'compile
-                                                                        
#{when-list 1683}#)))
-                                                            (if #{t 1704}#
-                                                              #{t 1704}#
-                                                              (begin
-                                                                (let ((#{t 
1707}#
-                                                                        (memq 
'expand
-                                                                              
#{when-list 1683}#)))
-                                                                  (if #{t 
1707}#
-                                                                    #{t 1707}#
-                                                                    (if (eq? 
#{m 1619}#
-                                                                             
'c&e)
-                                                                      (memq 
'eval
-                                                                            
#{when-list 1683}#)
-                                                                      #f)))))))
-                                                      (begin
-                                                        (#{top-level-eval-hook 
287}#
-                                                          (#{chi-top-sequence 
448}#
-                                                            #{body 1684}#
-                                                            #{r 1616}#
-                                                            #{w 1643}#
-                                                            #{s 1644}#
-                                                            'e
-                                                            '(eval)
-                                                            #{mod 1645}#)
-                                                          #{mod 1645}#)
-                                                        #{exps 1622}#)
-                                                      #{exps 1622}#))))))
-                                          #{tmp 1674}#)
-                                        (syntax-violation
-                                          #f
-                                          "source expression failed to match 
any pattern"
-                                          #{tmp 1673}#))))
-                                  (if (eqv? #{type 1640}# 'define-syntax-form)
-                                    (begin
-                                      (let ((#{n 1715}#
-                                              (#{id-var-name 430}#
-                                                #{value 1641}#
-                                                #{w 1643}#))
-                                            (#{r 1716}#
-                                              (#{macros-only-env 368}#
-                                                #{r 1616}#)))
-                                        (if (eqv? #{m 1619}# 'c)
-                                          (if (memq 'compile #{esew 1620}#)
-                                            (begin
-                                              (let ((#{e 1719}#
-                                                      (#{chi-install-global 
450}#
-                                                        #{n 1715}#
-                                                        (#{chi 456}#
-                                                          #{e 1642}#
-                                                          #{r 1716}#
-                                                          #{w 1643}#
-                                                          #{mod 1645}#))))
+                                      (lambda (#{x 1633}#
+                                               #{e1 1634}#
+                                               #{e2 1635}#)
+                                        (begin
+                                          (let ((#{when-list 1638}#
+                                                  (#{chi-when-list 415}#
+                                                    #{e 1597}#
+                                                    #{x 1633}#
+                                                    #{w 1598}#))
+                                                (#{body 1639}#
+                                                  (cons #{e1 1634}#
+                                                        #{e2 1635}#)))
+                                            (if (eq? #{m 1574}# 'e)
+                                              (if (memq 'eval
+                                                        #{when-list 1638}#)
+                                                (#{scan 1569}#
+                                                  #{body 1639}#
+                                                  #{r 1571}#
+                                                  #{w 1598}#
+                                                  #{s 1599}#
+                                                  (if (memq 'expand
+                                                            #{when-list 1638}#)
+                                                    'c&e
+                                                    'e)
+                                                  '(eval)
+                                                  #{mod 1600}#
+                                                  #{exps 1577}#)
                                                 (begin
-                                                  (#{top-level-eval-hook 287}#
-                                                    #{e 1719}#
-                                                    #{mod 1645}#)
-                                                  (if (memq 'load
-                                                            #{esew 1620}#)
-                                                    (cons #{e 1719}#
-                                                          #{exps 1622}#)
-                                                    #{exps 1622}#))))
-                                            (if (memq 'load #{esew 1620}#)
-                                              (cons (#{chi-install-global 450}#
-                                                      #{n 1715}#
-                                                      (#{chi 456}#
-                                                        #{e 1642}#
-                                                        #{r 1716}#
-                                                        #{w 1643}#
-                                                        #{mod 1645}#))
-                                                    #{exps 1622}#)
-                                              #{exps 1622}#))
-                                          (if (eqv? #{m 1619}# 'c&e)
+                                                  (if (memq 'expand
+                                                            #{when-list 1638}#)
+                                                    (#{top-level-eval-hook 
250}#
+                                                      (#{chi-top-sequence 411}#
+                                                        #{body 1639}#
+                                                        #{r 1571}#
+                                                        #{w 1598}#
+                                                        #{s 1599}#
+                                                        'e
+                                                        '(eval)
+                                                        #{mod 1600}#)
+                                                      #{mod 1600}#))
+                                                  #{exps 1577}#))
+                                              (if (memq 'load
+                                                        #{when-list 1638}#)
+                                                (if (begin
+                                                      (let ((#{t 1648}#
+                                                              (memq 'compile
+                                                                    
#{when-list 1638}#)))
+                                                        (if #{t 1648}#
+                                                          #{t 1648}#
+                                                          (begin
+                                                            (let ((#{t 1651}#
+                                                                    (memq 
'expand
+                                                                          
#{when-list 1638}#)))
+                                                              (if #{t 1651}#
+                                                                #{t 1651}#
+                                                                (if (eq? #{m 
1574}#
+                                                                         'c&e)
+                                                                  (memq 'eval
+                                                                        
#{when-list 1638}#)
+                                                                  #f)))))))
+                                                  (#{scan 1569}#
+                                                    #{body 1639}#
+                                                    #{r 1571}#
+                                                    #{w 1598}#
+                                                    #{s 1599}#
+                                                    'c&e
+                                                    '(compile load)
+                                                    #{mod 1600}#
+                                                    #{exps 1577}#)
+                                                  (if (if (eq? #{m 1574}# 'c)
+                                                        #t
+                                                        (eq? #{m 1574}# 'c&e))
+                                                    (#{scan 1569}#
+                                                      #{body 1639}#
+                                                      #{r 1571}#
+                                                      #{w 1598}#
+                                                      #{s 1599}#
+                                                      'c
+                                                      '(load)
+                                                      #{mod 1600}#
+                                                      #{exps 1577}#)
+                                                    #{exps 1577}#))
+                                                (if (begin
+                                                      (let ((#{t 1659}#
+                                                              (memq 'compile
+                                                                    
#{when-list 1638}#)))
+                                                        (if #{t 1659}#
+                                                          #{t 1659}#
+                                                          (begin
+                                                            (let ((#{t 1662}#
+                                                                    (memq 
'expand
+                                                                          
#{when-list 1638}#)))
+                                                              (if #{t 1662}#
+                                                                #{t 1662}#
+                                                                (if (eq? #{m 
1574}#
+                                                                         'c&e)
+                                                                  (memq 'eval
+                                                                        
#{when-list 1638}#)
+                                                                  #f)))))))
+                                                  (begin
+                                                    (#{top-level-eval-hook 
250}#
+                                                      (#{chi-top-sequence 411}#
+                                                        #{body 1639}#
+                                                        #{r 1571}#
+                                                        #{w 1598}#
+                                                        #{s 1599}#
+                                                        'e
+                                                        '(eval)
+                                                        #{mod 1600}#)
+                                                      #{mod 1600}#)
+                                                    #{exps 1577}#)
+                                                  #{exps 1577}#))))))
+                                      #{tmp 1629}#)
+                                    (syntax-violation
+                                      #f
+                                      "source expression failed to match any 
pattern"
+                                      #{tmp 1628}#))))
+                              (if (eqv? #{type 1595}# 'define-syntax-form)
+                                (begin
+                                  (let ((#{n 1670}#
+                                          (#{id-var-name 393}#
+                                            #{value 1596}#
+                                            #{w 1598}#))
+                                        (#{r 1671}#
+                                          (#{macros-only-env 331}#
+                                            #{r 1571}#)))
+                                    (if (eqv? #{m 1574}# 'c)
+                                      (if (memq 'compile #{esew 1575}#)
+                                        (begin
+                                          (let ((#{e 1674}#
+                                                  (#{chi-install-global 413}#
+                                                    #{n 1670}#
+                                                    (#{chi 419}#
+                                                      #{e 1597}#
+                                                      #{r 1671}#
+                                                      #{w 1598}#
+                                                      #{mod 1600}#))))
                                             (begin
-                                              (let ((#{e 1722}#
-                                                      (#{chi-install-global 
450}#
-                                                        #{n 1715}#
-                                                        (#{chi 456}#
-                                                          #{e 1642}#
-                                                          #{r 1716}#
-                                                          #{w 1643}#
-                                                          #{mod 1645}#))))
-                                                (begin
-                                                  (#{top-level-eval-hook 287}#
-                                                    #{e 1722}#
-                                                    #{mod 1645}#)
-                                                  (cons #{e 1722}#
-                                                        #{exps 1622}#))))
+                                              (#{top-level-eval-hook 250}#
+                                                #{e 1674}#
+                                                #{mod 1600}#)
+                                              (if (memq 'load #{esew 1575}#)
+                                                (cons #{e 1674}# #{exps 1577}#)
+                                                #{exps 1577}#))))
+                                        (if (memq 'load #{esew 1575}#)
+                                          (cons (#{chi-install-global 413}#
+                                                  #{n 1670}#
+                                                  (#{chi 419}#
+                                                    #{e 1597}#
+                                                    #{r 1671}#
+                                                    #{w 1598}#
+                                                    #{mod 1600}#))
+                                                #{exps 1577}#)
+                                          #{exps 1577}#))
+                                      (if (eqv? #{m 1574}# 'c&e)
+                                        (begin
+                                          (let ((#{e 1677}#
+                                                  (#{chi-install-global 413}#
+                                                    #{n 1670}#
+                                                    (#{chi 419}#
+                                                      #{e 1597}#
+                                                      #{r 1671}#
+                                                      #{w 1598}#
+                                                      #{mod 1600}#))))
                                             (begin
-                                              (if (memq 'eval #{esew 1620}#)
-                                                (#{top-level-eval-hook 287}#
-                                                  (#{chi-install-global 450}#
-                                                    #{n 1715}#
-                                                    (#{chi 456}#
-                                                      #{e 1642}#
-                                                      #{r 1716}#
-                                                      #{w 1643}#
-                                                      #{mod 1645}#))
-                                                  #{mod 1645}#))
-                                              #{exps 1622}#)))))
-                                    (if (eqv? #{type 1640}# 'define-form)
+                                              (#{top-level-eval-hook 250}#
+                                                #{e 1677}#
+                                                #{mod 1600}#)
+                                              (cons #{e 1677}#
+                                                    #{exps 1577}#))))
+                                        (begin
+                                          (if (memq 'eval #{esew 1575}#)
+                                            (#{top-level-eval-hook 250}#
+                                              (#{chi-install-global 413}#
+                                                #{n 1670}#
+                                                (#{chi 419}#
+                                                  #{e 1597}#
+                                                  #{r 1671}#
+                                                  #{w 1598}#
+                                                  #{mod 1600}#))
+                                              #{mod 1600}#))
+                                          #{exps 1577}#)))))
+                                (if (eqv? #{type 1595}# 'define-form)
+                                  (begin
+                                    (let ((#{n 1682}#
+                                            (#{id-var-name 393}#
+                                              #{value 1596}#
+                                              #{w 1598}#)))
                                       (begin
-                                        (let ((#{n 1727}#
-                                                (#{id-var-name 430}#
-                                                  #{value 1641}#
-                                                  #{w 1643}#)))
-                                          (begin
-                                            (let ((#{type 1729}#
-                                                    (car (#{lookup 370}#
-                                                           #{n 1727}#
-                                                           #{r 1616}#
-                                                           #{mod 1645}#))))
-                                              (if (if (eqv? #{type 1729}#
-                                                            'global)
+                                        (let ((#{type 1684}#
+                                                (car (#{lookup 333}#
+                                                       #{n 1682}#
+                                                       #{r 1571}#
+                                                       #{mod 1600}#))))
+                                          (if (if (eqv? #{type 1684}# 'global)
+                                                #t
+                                                (if (eqv? #{type 1684}# 'core)
+                                                  #t
+                                                  (if (eqv? #{type 1684}#
+                                                            'macro)
                                                     #t
-                                                    (if (eqv? #{type 1729}#
-                                                              'core)
-                                                      #t
-                                                      (if (eqv? #{type 1729}#
-                                                                'macro)
+                                                    (eqv? #{type 1684}#
+                                                          'module-ref))))
+                                            (begin
+                                              (if (if (if (eq? #{m 1574}# 'c)
                                                         #t
-                                                        (eqv? #{type 1729}#
-                                                              'module-ref))))
+                                                        (eq? #{m 1574}# 'c&e))
+                                                    (if (not 
(module-local-variable
+                                                               (current-module)
+                                                               #{n 1682}#))
+                                                      (current-module)
+                                                      #f)
+                                                    #f)
                                                 (begin
-                                                  (if (if (if (eq? #{m 1619}#
-                                                                   'c)
-                                                            #t
-                                                            (eq? #{m 1619}#
-                                                                 'c&e))
-                                                        (if (not 
(module-local-variable
-                                                                   
(current-module)
-                                                                   #{n 1727}#))
-                                                          (current-module)
-                                                          #f)
-                                                        #f)
-                                                    (begin
-                                                      (let ((#{old 1736}#
-                                                              (module-variable
-                                                                
(current-module)
-                                                                #{n 1727}#)))
-                                                        (if (if (variable?
-                                                                  #{old 1736}#)
-                                                              (variable-bound?
-                                                                #{old 1736}#)
-                                                              #f)
-                                                          (module-define!
+                                                  (let ((#{old 1691}#
+                                                          (module-variable
                                                             (current-module)
-                                                            #{n 1727}#
-                                                            (variable-ref
-                                                              #{old 1736}#))
-                                                          (module-add!
-                                                            (current-module)
-                                                            #{n 1727}#
-                                                            
(make-undefined-variable))))))
-                                                  (cons (if (eq? #{m 1619}#
-                                                                 'c&e)
+                                                            #{n 1682}#)))
+                                                    (if (if (variable?
+                                                              #{old 1691}#)
+                                                          (variable-bound?
+                                                            #{old 1691}#)
+                                                          #f)
+                                                      (module-define!
+                                                        (current-module)
+                                                        #{n 1682}#
+                                                        (variable-ref
+                                                          #{old 1691}#))
+                                                      (module-add!
+                                                        (current-module)
+                                                        #{n 1682}#
+                                                        
(make-undefined-variable))))))
+                                              (cons (if (eq? #{m 1574}# 'c&e)
+                                                      (begin
+                                                        (let ((#{x 1695}#
+                                                                
(#{build-global-definition 281}#
+                                                                  #{s 1599}#
+                                                                  #{n 1682}#
+                                                                  (#{chi 419}#
+                                                                    #{e 1597}#
+                                                                    #{r 1571}#
+                                                                    #{w 1598}#
+                                                                    #{mod 
1600}#))))
                                                           (begin
-                                                            (let ((#{x 1740}#
-                                                                    
(#{build-global-definition 318}#
-                                                                      #{s 
1644}#
-                                                                      #{n 
1727}#
-                                                                      (#{chi 
456}#
-                                                                        #{e 
1642}#
-                                                                        #{r 
1616}#
-                                                                        #{w 
1643}#
-                                                                        #{mod 
1645}#))))
-                                                              (begin
-                                                                
(#{top-level-eval-hook 287}#
-                                                                  #{x 1740}#
-                                                                  #{mod 1645}#)
-                                                                #{x 1740}#)))
-                                                          (lambda ()
-                                                            
(#{build-global-definition 318}#
-                                                              #{s 1644}#
-                                                              #{n 1727}#
-                                                              (#{chi 456}#
-                                                                #{e 1642}#
-                                                                #{r 1616}#
-                                                                #{w 1643}#
-                                                                #{mod 
1645}#))))
-                                                        #{exps 1622}#))
-                                                (if (eqv? #{type 1729}#
-                                                          'displaced-lexical)
-                                                  (syntax-violation
-                                                    #f
-                                                    "identifier out of context"
-                                                    #{e 1642}#
-                                                    (#{wrap 442}#
-                                                      #{value 1641}#
-                                                      #{w 1643}#
-                                                      #{mod 1645}#))
-                                                  (syntax-violation
-                                                    #f
-                                                    "cannot define keyword at 
top level"
-                                                    #{e 1642}#
-                                                    (#{wrap 442}#
-                                                      #{value 1641}#
-                                                      #{w 1643}#
-                                                      #{mod 1645}#))))))))
-                                      (cons (if (eq? #{m 1619}# 'c&e)
+                                                            
(#{top-level-eval-hook 250}#
+                                                              #{x 1695}#
+                                                              #{mod 1600}#)
+                                                            #{x 1695}#)))
+                                                      (lambda ()
+                                                        
(#{build-global-definition 281}#
+                                                          #{s 1599}#
+                                                          #{n 1682}#
+                                                          (#{chi 419}#
+                                                            #{e 1597}#
+                                                            #{r 1571}#
+                                                            #{w 1598}#
+                                                            #{mod 1600}#))))
+                                                    #{exps 1577}#))
+                                            (if (eqv? #{type 1684}#
+                                                      'displaced-lexical)
+                                              (syntax-violation
+                                                #f
+                                                "identifier out of context"
+                                                #{e 1597}#
+                                                (#{wrap 405}#
+                                                  #{value 1596}#
+                                                  #{w 1598}#
+                                                  #{mod 1600}#))
+                                              (syntax-violation
+                                                #f
+                                                "cannot define keyword at top 
level"
+                                                #{e 1597}#
+                                                (#{wrap 405}#
+                                                  #{value 1596}#
+                                                  #{w 1598}#
+                                                  #{mod 1600}#))))))))
+                                  (cons (if (eq? #{m 1574}# 'c&e)
+                                          (begin
+                                            (let ((#{x 1700}#
+                                                    (#{chi-expr 421}#
+                                                      #{type 1595}#
+                                                      #{value 1596}#
+                                                      #{e 1597}#
+                                                      #{r 1571}#
+                                                      #{w 1598}#
+                                                      #{s 1599}#
+                                                      #{mod 1600}#)))
                                               (begin
-                                                (let ((#{x 1745}#
-                                                        (#{chi-expr 458}#
-                                                          #{type 1640}#
-                                                          #{value 1641}#
-                                                          #{e 1642}#
-                                                          #{r 1616}#
-                                                          #{w 1643}#
-                                                          #{s 1644}#
-                                                          #{mod 1645}#)))
-                                                  (begin
-                                                    (#{top-level-eval-hook 
287}#
-                                                      #{x 1745}#
-                                                      #{mod 1645}#)
-                                                    #{x 1745}#)))
-                                              (lambda ()
-                                                (#{chi-expr 458}#
-                                                  #{type 1640}#
-                                                  #{value 1641}#
-                                                  #{e 1642}#
-                                                  #{r 1616}#
-                                                  #{w 1643}#
-                                                  #{s 1644}#
-                                                  #{mod 1645}#)))
-                                            #{exps 1622}#)))))))))
-                      (lambda (#{exps 1746}#)
-                        (#{scan 1614}#
-                          (cdr #{body 1615}#)
-                          #{r 1616}#
-                          #{w 1617}#
-                          #{s 1618}#
-                          #{m 1619}#
-                          #{esew 1620}#
-                          #{mod 1621}#
-                          #{exps 1746}#)))))))
-             (begin
-               (call-with-values
-                 (lambda ()
-                   (#{scan 1614}#
-                     #{body 1599}#
-                     #{r 1600}#
-                     #{w 1601}#
-                     #{s 1602}#
-                     #{m 1603}#
-                     #{esew 1604}#
-                     #{mod 1605}#
-                     '()))
-                 (lambda (#{exps 1748}#)
-                   (if (null? #{exps 1748}#)
-                     (#{build-void 300}# #{s 1602}#)
-                     (#{build-sequence 330}#
-                       #{s 1602}#
-                       (letrec*
-                         ((#{lp 1753}#
-                            (lambda (#{in 1754}# #{out 1755}#)
-                              (if (null? #{in 1754}#)
-                                #{out 1755}#
-                                (begin
-                                  (let ((#{e 1757}# (car #{in 1754}#)))
-                                    (#{lp 1753}#
-                                      (cdr #{in 1754}#)
-                                      (cons (if (procedure? #{e 1757}#)
-                                              (#{e 1757}#)
-                                              #{e 1757}#)
-                                            #{out 1755}#))))))))
-                         (begin (#{lp 1753}# #{exps 1748}# '())))))))))))
-       (#{chi-install-global 450}#
-         (lambda (#{name 1758}# #{e 1759}#)
-           (#{build-global-definition 318}#
+                                                (#{top-level-eval-hook 250}#
+                                                  #{x 1700}#
+                                                  #{mod 1600}#)
+                                                #{x 1700}#)))
+                                          (lambda ()
+                                            (#{chi-expr 421}#
+                                              #{type 1595}#
+                                              #{value 1596}#
+                                              #{e 1597}#
+                                              #{r 1571}#
+                                              #{w 1598}#
+                                              #{s 1599}#
+                                              #{mod 1600}#)))
+                                        #{exps 1577}#)))))))))
+                  (lambda (#{exps 1701}#)
+                    (#{scan 1569}#
+                      (cdr #{body 1570}#)
+                      #{r 1571}#
+                      #{w 1572}#
+                      #{s 1573}#
+                      #{m 1574}#
+                      #{esew 1575}#
+                      #{mod 1576}#
+                      #{exps 1701}#)))))))
+         (begin
+           (call-with-values
+             (lambda ()
+               (#{scan 1569}#
+                 #{body 1554}#
+                 #{r 1555}#
+                 #{w 1556}#
+                 #{s 1557}#
+                 #{m 1558}#
+                 #{esew 1559}#
+                 #{mod 1560}#
+                 '()))
+             (lambda (#{exps 1703}#)
+               (if (null? #{exps 1703}#)
+                 (#{build-void 263}# #{s 1557}#)
+                 (#{build-sequence 293}#
+                   #{s 1557}#
+                   (letrec*
+                     ((#{lp 1708}#
+                        (lambda (#{in 1709}# #{out 1710}#)
+                          (if (null? #{in 1709}#)
+                            #{out 1710}#
+                            (begin
+                              (let ((#{e 1712}# (car #{in 1709}#)))
+                                (#{lp 1708}#
+                                  (cdr #{in 1709}#)
+                                  (cons (if (procedure? #{e 1712}#)
+                                          (#{e 1712}#)
+                                          #{e 1712}#)
+                                        #{out 1710}#))))))))
+                     (begin (#{lp 1708}# #{exps 1703}# '())))))))))))
+   (#{chi-install-global 413}#
+     (lambda (#{name 1713}# #{e 1714}#)
+       (#{build-global-definition 281}#
+         #f
+         #{name 1713}#
+         (#{build-application 265}#
+           #f
+           (#{build-primref 289}#
              #f
-             #{name 1758}#
-             (#{build-application 302}#
-               #f
-               (#{build-primref 326}#
-                 #f
-                 'make-syntax-transformer)
-               (list (#{build-data 328}# #f #{name 1758}#)
-                     (#{build-data 328}# #f 'macro)
-                     #{e 1759}#)))))
-       (#{chi-when-list 452}#
-         (lambda (#{e 1767}# #{when-list 1768}# #{w 1769}#)
-           (letrec*
-             ((#{f 1776}#
-                (lambda (#{when-list 1777}# #{situations 1778}#)
-                  (if (null? #{when-list 1777}#)
-                    #{situations 1778}#
-                    (#{f 1776}#
-                      (cdr #{when-list 1777}#)
-                      (cons (begin
-                              (let ((#{x 1780}# (car #{when-list 1777}#)))
-                                (if (#{free-id=? 432}#
-                                      #{x 1780}#
-                                      '#(syntax-object
-                                         compile
-                                         ((top)
-                                          #(ribcage () () ())
-                                          #(ribcage () () ())
-                                          #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i1779"))
-                                          #(ribcage () () ())
-                                          #(ribcage
-                                            #(f when-list situations)
-                                            #((top) (top) (top))
-                                            #("i1773" "i1774" "i1775"))
-                                          #(ribcage () () ())
-                                          #(ribcage
-                                            #(e when-list w)
-                                            #((top) (top) (top))
-                                            #("i1770" "i1771" "i1772"))
-                                          #(ribcage
-                                            (lambda-var-list
-                                              gen-var
-                                              strip
-                                              chi-lambda-case
-                                              lambda*-formals
-                                              chi-simple-lambda
-                                              lambda-formals
-                                              ellipsis?
-                                              chi-void
-                                              eval-local-transformer
-                                              chi-local-syntax
-                                              chi-body
-                                              chi-macro
-                                              chi-application
-                                              chi-expr
-                                              chi
-                                              syntax-type
-                                              chi-when-list
-                                              chi-install-global
-                                              chi-top-sequence
-                                              chi-sequence
-                                              source-wrap
-                                              wrap
-                                              bound-id-member?
-                                              distinct-bound-ids?
-                                              valid-bound-ids?
-                                              bound-id=?
-                                              free-id=?
-                                              id-var-name
-                                              same-marks?
-                                              join-marks
-                                              join-wraps
-                                              smart-append
-                                              make-binding-wrap
-                                              extend-ribcage!
-                                              make-empty-ribcage
-                                              new-mark
-                                              anti-mark
-                                              the-anti-mark
-                                              top-marked?
-                                              top-wrap
-                                              empty-wrap
-                                              set-ribcage-labels!
-                                              set-ribcage-marks!
-                                              set-ribcage-symnames!
-                                              ribcage-labels
-                                              ribcage-marks
-                                              ribcage-symnames
-                                              ribcage?
-                                              make-ribcage
-                                              gen-labels
-                                              gen-label
-                                              make-rename
-                                              rename-marks
-                                              rename-new
-                                              rename-old
-                                              subst-rename?
-                                              wrap-subst
-                                              wrap-marks
-                                              make-wrap
-                                              id-sym-name&marks
-                                              id-sym-name
-                                              id?
-                                              nonsymbol-id?
-                                              global-extend
-                                              lookup
-                                              macros-only-env
-                                              extend-var-env
-                                              extend-env
-                                              null-env
-                                              binding-value
-                                              binding-type
-                                              make-binding
-                                              arg-check
-                                              source-annotation
-                                              no-source
-                                              set-syntax-object-module!
-                                              set-syntax-object-wrap!
-                                              set-syntax-object-expression!
-                                              syntax-object-module
-                                              syntax-object-wrap
-                                              syntax-object-expression
-                                              syntax-object?
-                                              make-syntax-object
-                                              build-lexical-var
-                                              build-letrec
-                                              build-named-let
-                                              build-let
-                                              build-sequence
-                                              build-data
-                                              build-primref
-                                              build-lambda-case
-                                              build-case-lambda
-                                              build-simple-lambda
-                                              build-global-definition
-                                              build-global-assignment
-                                              build-global-reference
-                                              analyze-variable
-                                              build-lexical-assignment
-                                              build-lexical-reference
-                                              build-dynlet
-                                              build-conditional
-                                              build-application
-                                              build-void
-                                              maybe-name-value!
-                                              decorate-source
-                                              get-global-definition-hook
-                                              put-global-definition-hook
-                                              gensym-hook
-                                              local-eval-hook
-                                              top-level-eval-hook
-                                              fx<
-                                              fx=
-                                              fx-
-                                              fx+
-                                              set-lambda-meta!
-                                              lambda-meta
-                                              lambda?
-                                              make-dynlet
-                                              make-letrec
-                                              make-let
-                                              make-lambda-case
-                                              make-lambda
-                                              make-sequence
-                                              make-application
-                                              make-conditional
-                                              make-toplevel-define
-                                              make-toplevel-set
-                                              make-toplevel-ref
-                                              make-module-set
-                                              make-module-ref
-                                              make-lexical-set
-                                              make-lexical-ref
-                                              make-primitive-ref
-                                              make-const
-                                              make-void)
-                                            ((top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top))
-                                            ("i485"
-                                             "i483"
-                                             "i481"
-                                             "i479"
-                                             "i477"
-                                             "i475"
-                                             "i473"
-                                             "i471"
-                                             "i469"
-                                             "i467"
-                                             "i465"
-                                             "i463"
-                                             "i461"
-                                             "i459"
-                                             "i457"
-                                             "i455"
-                                             "i453"
-                                             "i451"
-                                             "i449"
-                                             "i447"
-                                             "i445"
-                                             "i443"
-                                             "i441"
-                                             "i439"
-                                             "i437"
-                                             "i435"
-                                             "i433"
-                                             "i431"
-                                             "i429"
-                                             "i427"
-                                             "i425"
-                                             "i423"
-                                             "i421"
-                                             "i419"
-                                             "i417"
-                                             "i416"
-                                             "i415"
-                                             "i413"
-                                             "i412"
-                                             "i411"
-                                             "i410"
-                                             "i409"
-                                             "i407"
-                                             "i405"
-                                             "i403"
-                                             "i401"
-                                             "i399"
-                                             "i397"
-                                             "i395"
-                                             "i393"
-                                             "i390"
-                                             "i388"
-                                             "i387"
-                                             "i386"
-                                             "i385"
-                                             "i384"
-                                             "i383"
-                                             "i382"
-                                             "i381"
-                                             "i380"
-                                             "i378"
-                                             "i377"
-                                             "i375"
-                                             "i373"
-                                             "i371"
-                                             "i369"
-                                             "i367"
-                                             "i365"
-                                             "i363"
-                                             "i362"
-                                             "i361"
-                                             "i360"
-                                             "i359"
-                                             "i358"
-                                             "i356"
-                                             "i355"
-                                             "i353"
-                                             "i351"
-                                             "i349"
-                                             "i347"
-                                             "i345"
-                                             "i343"
-                                             "i341"
-                                             "i339"
-                                             "i337"
-                                             "i335"
-                                             "i333"
-                                             "i331"
-                                             "i329"
-                                             "i327"
-                                             "i325"
-                                             "i323"
-                                             "i321"
-                                             "i319"
-                                             "i317"
-                                             "i315"
-                                             "i313"
-                                             "i311"
-                                             "i309"
-                                             "i307"
-                                             "i305"
-                                             "i303"
-                                             "i301"
-                                             "i299"
-                                             "i297"
-                                             "i295"
-                                             "i293"
-                                             "i291"
-                                             "i290"
-                                             "i288"
-                                             "i286"
-                                             "i285"
-                                             "i284"
-                                             "i283"
-                                             "i282"
-                                             "i280"
-                                             "i278"
-                                             "i276"
-                                             "i273"
-                                             "i271"
-                                             "i269"
-                                             "i267"
-                                             "i265"
-                                             "i263"
-                                             "i261"
-                                             "i259"
-                                             "i257"
-                                             "i255"
-                                             "i253"
-                                             "i251"
-                                             "i249"
-                                             "i247"
-                                             "i245"
-                                             "i243"
-                                             "i241"
-                                             "i239"))
-                                          #(ribcage
-                                            (define-structure
-                                              define-expansion-accessors
-                                              define-expansion-constructors
-                                              and-map*)
-                                            ((top) (top) (top) (top))
-                                            ("i41" "i40" "i39" "i37")))
-                                         (hygiene guile)))
-                                  'compile
-                                  (if (#{free-id=? 432}#
-                                        #{x 1780}#
-                                        '#(syntax-object
-                                           load
-                                           ((top)
-                                            #(ribcage () () ())
-                                            #(ribcage () () ())
-                                            #(ribcage () () ())
-                                            #(ribcage #(x) #((top)) #("i1779"))
-                                            #(ribcage () () ())
-                                            #(ribcage
-                                              #(f when-list situations)
-                                              #((top) (top) (top))
-                                              #("i1773" "i1774" "i1775"))
-                                            #(ribcage () () ())
-                                            #(ribcage
-                                              #(e when-list w)
-                                              #((top) (top) (top))
-                                              #("i1770" "i1771" "i1772"))
-                                            #(ribcage
-                                              (lambda-var-list
-                                                gen-var
-                                                strip
-                                                chi-lambda-case
-                                                lambda*-formals
-                                                chi-simple-lambda
-                                                lambda-formals
-                                                ellipsis?
-                                                chi-void
-                                                eval-local-transformer
-                                                chi-local-syntax
-                                                chi-body
-                                                chi-macro
-                                                chi-application
-                                                chi-expr
-                                                chi
-                                                syntax-type
-                                                chi-when-list
-                                                chi-install-global
-                                                chi-top-sequence
-                                                chi-sequence
-                                                source-wrap
-                                                wrap
-                                                bound-id-member?
-                                                distinct-bound-ids?
-                                                valid-bound-ids?
-                                                bound-id=?
-                                                free-id=?
-                                                id-var-name
-                                                same-marks?
-                                                join-marks
-                                                join-wraps
-                                                smart-append
-                                                make-binding-wrap
-                                                extend-ribcage!
-                                                make-empty-ribcage
-                                                new-mark
-                                                anti-mark
-                                                the-anti-mark
-                                                top-marked?
-                                                top-wrap
-                                                empty-wrap
-                                                set-ribcage-labels!
-                                                set-ribcage-marks!
-                                                set-ribcage-symnames!
-                                                ribcage-labels
-                                                ribcage-marks
-                                                ribcage-symnames
-                                                ribcage?
-                                                make-ribcage
-                                                gen-labels
-                                                gen-label
-                                                make-rename
-                                                rename-marks
-                                                rename-new
-                                                rename-old
-                                                subst-rename?
-                                                wrap-subst
-                                                wrap-marks
-                                                make-wrap
-                                                id-sym-name&marks
-                                                id-sym-name
-                                                id?
-                                                nonsymbol-id?
-                                                global-extend
-                                                lookup
-                                                macros-only-env
-                                                extend-var-env
-                                                extend-env
-                                                null-env
-                                                binding-value
-                                                binding-type
-                                                make-binding
-                                                arg-check
-                                                source-annotation
-                                                no-source
-                                                set-syntax-object-module!
-                                                set-syntax-object-wrap!
-                                                set-syntax-object-expression!
-                                                syntax-object-module
-                                                syntax-object-wrap
-                                                syntax-object-expression
-                                                syntax-object?
-                                                make-syntax-object
-                                                build-lexical-var
-                                                build-letrec
-                                                build-named-let
-                                                build-let
-                                                build-sequence
-                                                build-data
-                                                build-primref
-                                                build-lambda-case
-                                                build-case-lambda
-                                                build-simple-lambda
-                                                build-global-definition
-                                                build-global-assignment
-                                                build-global-reference
-                                                analyze-variable
-                                                build-lexical-assignment
-                                                build-lexical-reference
-                                                build-dynlet
-                                                build-conditional
-                                                build-application
-                                                build-void
-                                                maybe-name-value!
-                                                decorate-source
-                                                get-global-definition-hook
-                                                put-global-definition-hook
-                                                gensym-hook
-                                                local-eval-hook
-                                                top-level-eval-hook
-                                                fx<
-                                                fx=
-                                                fx-
-                                                fx+
-                                                set-lambda-meta!
-                                                lambda-meta
-                                                lambda?
-                                                make-dynlet
-                                                make-letrec
-                                                make-let
-                                                make-lambda-case
-                                                make-lambda
-                                                make-sequence
-                                                make-application
-                                                make-conditional
-                                                make-toplevel-define
-                                                make-toplevel-set
-                                                make-toplevel-ref
-                                                make-module-set
-                                                make-module-ref
-                                                make-lexical-set
-                                                make-lexical-ref
-                                                make-primitive-ref
-                                                make-const
-                                                make-void)
-                                              ((top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top)
-                                               (top))
-                                              ("i485"
-                                               "i483"
-                                               "i481"
-                                               "i479"
-                                               "i477"
-                                               "i475"
-                                               "i473"
-                                               "i471"
-                                               "i469"
-                                               "i467"
-                                               "i465"
-                                               "i463"
-                                               "i461"
-                                               "i459"
-                                               "i457"
-                                               "i455"
-                                               "i453"
-                                               "i451"
-                                               "i449"
-                                               "i447"
-                                               "i445"
-                                               "i443"
-                                               "i441"
-                                               "i439"
-                                               "i437"
-                                               "i435"
-                                               "i433"
-                                               "i431"
-                                               "i429"
-                                               "i427"
-                                               "i425"
-                                               "i423"
-                                               "i421"
-                                               "i419"
-                                               "i417"
-                                               "i416"
-                                               "i415"
-                                               "i413"
-                                               "i412"
-                                               "i411"
-                                               "i410"
-                                               "i409"
-                                               "i407"
-                                               "i405"
-                                               "i403"
-                                               "i401"
-                                               "i399"
-                                               "i397"
-                                               "i395"
-                                               "i393"
-                                               "i390"
-                                               "i388"
-                                               "i387"
-                                               "i386"
-                                               "i385"
-                                               "i384"
-                                               "i383"
-                                               "i382"
-                                               "i381"
-                                               "i380"
-                                               "i378"
-                                               "i377"
-                                               "i375"
-                                               "i373"
-                                               "i371"
-                                               "i369"
-                                               "i367"
-                                               "i365"
-                                               "i363"
-                                               "i362"
-                                               "i361"
-                                               "i360"
-                                               "i359"
-                                               "i358"
-                                               "i356"
-                                               "i355"
-                                               "i353"
-                                               "i351"
-                                               "i349"
-                                               "i347"
-                                               "i345"
-                                               "i343"
-                                               "i341"
-                                               "i339"
-                                               "i337"
-                                               "i335"
-                                               "i333"
-                                               "i331"
-                                               "i329"
-                                               "i327"
-                                               "i325"
-                                               "i323"
-                                               "i321"
-                                               "i319"
-                                               "i317"
-                                               "i315"
-                                               "i313"
-                                               "i311"
-                                               "i309"
-                                               "i307"
-                                               "i305"
-                                               "i303"
-                                               "i301"
-                                               "i299"
-                                               "i297"
-                                               "i295"
-                                               "i293"
-                                               "i291"
-                                               "i290"
-                                               "i288"
-                                               "i286"
-                                               "i285"
-                                               "i284"
-                                               "i283"
-                                               "i282"
-                                               "i280"
-                                               "i278"
-                                               "i276"
-                                               "i273"
-                                               "i271"
-                                               "i269"
-                                               "i267"
-                                               "i265"
-                                               "i263"
-                                               "i261"
-                                               "i259"
-                                               "i257"
-                                               "i255"
-                                               "i253"
-                                               "i251"
-                                               "i249"
-                                               "i247"
-                                               "i245"
-                                               "i243"
-                                               "i241"
-                                               "i239"))
-                                            #(ribcage
-                                              (define-structure
-                                                define-expansion-accessors
-                                                define-expansion-constructors
-                                                and-map*)
-                                              ((top) (top) (top) (top))
-                                              ("i41" "i40" "i39" "i37")))
-                                           (hygiene guile)))
-                                    'load
-                                    (if (#{free-id=? 432}#
-                                          #{x 1780}#
-                                          '#(syntax-object
-                                             eval
-                                             ((top)
-                                              #(ribcage () () ())
-                                              #(ribcage () () ())
-                                              #(ribcage () () ())
-                                              #(ribcage
-                                                #(x)
-                                                #((top))
-                                                #("i1779"))
-                                              #(ribcage () () ())
-                                              #(ribcage
-                                                #(f when-list situations)
-                                                #((top) (top) (top))
-                                                #("i1773" "i1774" "i1775"))
-                                              #(ribcage () () ())
-                                              #(ribcage
-                                                #(e when-list w)
-                                                #((top) (top) (top))
-                                                #("i1770" "i1771" "i1772"))
-                                              #(ribcage
-                                                (lambda-var-list
-                                                  gen-var
-                                                  strip
-                                                  chi-lambda-case
-                                                  lambda*-formals
-                                                  chi-simple-lambda
-                                                  lambda-formals
-                                                  ellipsis?
-                                                  chi-void
-                                                  eval-local-transformer
-                                                  chi-local-syntax
-                                                  chi-body
-                                                  chi-macro
-                                                  chi-application
-                                                  chi-expr
-                                                  chi
-                                                  syntax-type
-                                                  chi-when-list
-                                                  chi-install-global
-                                                  chi-top-sequence
-                                                  chi-sequence
-                                                  source-wrap
-                                                  wrap
-                                                  bound-id-member?
-                                                  distinct-bound-ids?
-                                                  valid-bound-ids?
-                                                  bound-id=?
-                                                  free-id=?
-                                                  id-var-name
-                                                  same-marks?
-                                                  join-marks
-                                                  join-wraps
-                                                  smart-append
-                                                  make-binding-wrap
-                                                  extend-ribcage!
-                                                  make-empty-ribcage
-                                                  new-mark
-                                                  anti-mark
-                                                  the-anti-mark
-                                                  top-marked?
-                                                  top-wrap
-                                                  empty-wrap
-                                                  set-ribcage-labels!
-                                                  set-ribcage-marks!
-                                                  set-ribcage-symnames!
-                                                  ribcage-labels
-                                                  ribcage-marks
-                                                  ribcage-symnames
-                                                  ribcage?
-                                                  make-ribcage
-                                                  gen-labels
-                                                  gen-label
-                                                  make-rename
-                                                  rename-marks
-                                                  rename-new
-                                                  rename-old
-                                                  subst-rename?
-                                                  wrap-subst
-                                                  wrap-marks
-                                                  make-wrap
-                                                  id-sym-name&marks
-                                                  id-sym-name
-                                                  id?
-                                                  nonsymbol-id?
-                                                  global-extend
-                                                  lookup
-                                                  macros-only-env
-                                                  extend-var-env
-                                                  extend-env
-                                                  null-env
-                                                  binding-value
-                                                  binding-type
-                                                  make-binding
-                                                  arg-check
-                                                  source-annotation
-                                                  no-source
-                                                  set-syntax-object-module!
-                                                  set-syntax-object-wrap!
-                                                  set-syntax-object-expression!
-                                                  syntax-object-module
-                                                  syntax-object-wrap
-                                                  syntax-object-expression
-                                                  syntax-object?
-                                                  make-syntax-object
-                                                  build-lexical-var
-                                                  build-letrec
-                                                  build-named-let
-                                                  build-let
-                                                  build-sequence
-                                                  build-data
-                                                  build-primref
-                                                  build-lambda-case
-                                                  build-case-lambda
-                                                  build-simple-lambda
-                                                  build-global-definition
-                                                  build-global-assignment
-                                                  build-global-reference
-                                                  analyze-variable
-                                                  build-lexical-assignment
-                                                  build-lexical-reference
-                                                  build-dynlet
-                                                  build-conditional
-                                                  build-application
-                                                  build-void
-                                                  maybe-name-value!
-                                                  decorate-source
-                                                  get-global-definition-hook
-                                                  put-global-definition-hook
-                                                  gensym-hook
-                                                  local-eval-hook
-                                                  top-level-eval-hook
-                                                  fx<
-                                                  fx=
-                                                  fx-
-                                                  fx+
-                                                  set-lambda-meta!
-                                                  lambda-meta
-                                                  lambda?
-                                                  make-dynlet
-                                                  make-letrec
-                                                  make-let
-                                                  make-lambda-case
-                                                  make-lambda
-                                                  make-sequence
-                                                  make-application
-                                                  make-conditional
-                                                  make-toplevel-define
-                                                  make-toplevel-set
-                                                  make-toplevel-ref
-                                                  make-module-set
-                                                  make-module-ref
-                                                  make-lexical-set
-                                                  make-lexical-ref
-                                                  make-primitive-ref
-                                                  make-const
-                                                  make-void)
-                                                ((top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top)
-                                                 (top))
-                                                ("i485"
-                                                 "i483"
-                                                 "i481"
-                                                 "i479"
-                                                 "i477"
-                                                 "i475"
-                                                 "i473"
-                                                 "i471"
-                                                 "i469"
-                                                 "i467"
-                                                 "i465"
-                                                 "i463"
-                                                 "i461"
-                                                 "i459"
-                                                 "i457"
-                                                 "i455"
-                                                 "i453"
-                                                 "i451"
-                                                 "i449"
-                                                 "i447"
-                                                 "i445"
-                                                 "i443"
-                                                 "i441"
-                                                 "i439"
-                                                 "i437"
-                                                 "i435"
-                                                 "i433"
-                                                 "i431"
-                                                 "i429"
-                                                 "i427"
-                                                 "i425"
-                                                 "i423"
-                                                 "i421"
-                                                 "i419"
-                                                 "i417"
-                                                 "i416"
-                                                 "i415"
-                                                 "i413"
-                                                 "i412"
-                                                 "i411"
-                                                 "i410"
-                                                 "i409"
-                                                 "i407"
-                                                 "i405"
-                                                 "i403"
-                                                 "i401"
-                                                 "i399"
-                                                 "i397"
-                                                 "i395"
-                                                 "i393"
-                                                 "i390"
-                                                 "i388"
-                                                 "i387"
-                                                 "i386"
-                                                 "i385"
-                                                 "i384"
-                                                 "i383"
-                                                 "i382"
-                                                 "i381"
-                                                 "i380"
-                                                 "i378"
-                                                 "i377"
-                                                 "i375"
-                                                 "i373"
-                                                 "i371"
-                                                 "i369"
-                                                 "i367"
-                                                 "i365"
-                                                 "i363"
-                                                 "i362"
-                                                 "i361"
-                                                 "i360"
-                                                 "i359"
-                                                 "i358"
-                                                 "i356"
-                                                 "i355"
-                                                 "i353"
-                                                 "i351"
-                                                 "i349"
-                                                 "i347"
-                                                 "i345"
-                                                 "i343"
-                                                 "i341"
-                                                 "i339"
-                                                 "i337"
-                                                 "i335"
-                                                 "i333"
-                                                 "i331"
-                                                 "i329"
-                                                 "i327"
-                                                 "i325"
-                                                 "i323"
-                                                 "i321"
-                                                 "i319"
-                                                 "i317"
-                                                 "i315"
-                                                 "i313"
-                                                 "i311"
-                                                 "i309"
-                                                 "i307"
-                                                 "i305"
-                                                 "i303"
-                                                 "i301"
-                                                 "i299"
-                                                 "i297"
-                                                 "i295"
-                                                 "i293"
-                                                 "i291"
-                                                 "i290"
-                                                 "i288"
-                                                 "i286"
-                                                 "i285"
-                                                 "i284"
-                                                 "i283"
-                                                 "i282"
-                                                 "i280"
-                                                 "i278"
-                                                 "i276"
-                                                 "i273"
-                                                 "i271"
-                                                 "i269"
-                                                 "i267"
-                                                 "i265"
-                                                 "i263"
-                                                 "i261"
-                                                 "i259"
-                                                 "i257"
-                                                 "i255"
-                                                 "i253"
-                                                 "i251"
-                                                 "i249"
-                                                 "i247"
-                                                 "i245"
-                                                 "i243"
-                                                 "i241"
-                                                 "i239"))
-                                              #(ribcage
-                                                (define-structure
-                                                  define-expansion-accessors
-                                                  define-expansion-constructors
-                                                  and-map*)
-                                                ((top) (top) (top) (top))
-                                                ("i41" "i40" "i39" "i37")))
-                                             (hygiene guile)))
-                                      'eval
-                                      (if (#{free-id=? 432}#
-                                            #{x 1780}#
-                                            '#(syntax-object
-                                               expand
-                                               ((top)
-                                                #(ribcage () () ())
-                                                #(ribcage () () ())
-                                                #(ribcage () () ())
-                                                #(ribcage
-                                                  #(x)
-                                                  #((top))
-                                                  #("i1779"))
-                                                #(ribcage () () ())
-                                                #(ribcage
-                                                  #(f when-list situations)
-                                                  #((top) (top) (top))
-                                                  #("i1773" "i1774" "i1775"))
-                                                #(ribcage () () ())
-                                                #(ribcage
-                                                  #(e when-list w)
-                                                  #((top) (top) (top))
-                                                  #("i1770" "i1771" "i1772"))
-                                                #(ribcage
-                                                  (lambda-var-list
-                                                    gen-var
-                                                    strip
-                                                    chi-lambda-case
-                                                    lambda*-formals
-                                                    chi-simple-lambda
-                                                    lambda-formals
-                                                    ellipsis?
-                                                    chi-void
-                                                    eval-local-transformer
-                                                    chi-local-syntax
-                                                    chi-body
-                                                    chi-macro
-                                                    chi-application
-                                                    chi-expr
-                                                    chi
-                                                    syntax-type
-                                                    chi-when-list
-                                                    chi-install-global
-                                                    chi-top-sequence
-                                                    chi-sequence
-                                                    source-wrap
-                                                    wrap
-                                                    bound-id-member?
-                                                    distinct-bound-ids?
-                                                    valid-bound-ids?
-                                                    bound-id=?
-                                                    free-id=?
-                                                    id-var-name
-                                                    same-marks?
-                                                    join-marks
-                                                    join-wraps
-                                                    smart-append
-                                                    make-binding-wrap
-                                                    extend-ribcage!
-                                                    make-empty-ribcage
-                                                    new-mark
-                                                    anti-mark
-                                                    the-anti-mark
-                                                    top-marked?
-                                                    top-wrap
-                                                    empty-wrap
-                                                    set-ribcage-labels!
-                                                    set-ribcage-marks!
-                                                    set-ribcage-symnames!
-                                                    ribcage-labels
-                                                    ribcage-marks
-                                                    ribcage-symnames
-                                                    ribcage?
-                                                    make-ribcage
-                                                    gen-labels
-                                                    gen-label
-                                                    make-rename
-                                                    rename-marks
-                                                    rename-new
-                                                    rename-old
-                                                    subst-rename?
-                                                    wrap-subst
-                                                    wrap-marks
-                                                    make-wrap
-                                                    id-sym-name&marks
-                                                    id-sym-name
-                                                    id?
-                                                    nonsymbol-id?
-                                                    global-extend
-                                                    lookup
-                                                    macros-only-env
-                                                    extend-var-env
-                                                    extend-env
-                                                    null-env
-                                                    binding-value
-                                                    binding-type
-                                                    make-binding
-                                                    arg-check
-                                                    source-annotation
-                                                    no-source
-                                                    set-syntax-object-module!
-                                                    set-syntax-object-wrap!
-                                                    
set-syntax-object-expression!
-                                                    syntax-object-module
-                                                    syntax-object-wrap
-                                                    syntax-object-expression
-                                                    syntax-object?
-                                                    make-syntax-object
-                                                    build-lexical-var
-                                                    build-letrec
-                                                    build-named-let
-                                                    build-let
-                                                    build-sequence
-                                                    build-data
-                                                    build-primref
-                                                    build-lambda-case
-                                                    build-case-lambda
-                                                    build-simple-lambda
-                                                    build-global-definition
-                                                    build-global-assignment
-                                                    build-global-reference
-                                                    analyze-variable
-                                                    build-lexical-assignment
-                                                    build-lexical-reference
-                                                    build-dynlet
-                                                    build-conditional
-                                                    build-application
-                                                    build-void
-                                                    maybe-name-value!
-                                                    decorate-source
-                                                    get-global-definition-hook
-                                                    put-global-definition-hook
-                                                    gensym-hook
-                                                    local-eval-hook
-                                                    top-level-eval-hook
-                                                    fx<
-                                                    fx=
-                                                    fx-
-                                                    fx+
-                                                    set-lambda-meta!
-                                                    lambda-meta
-                                                    lambda?
-                                                    make-dynlet
-                                                    make-letrec
-                                                    make-let
-                                                    make-lambda-case
-                                                    make-lambda
-                                                    make-sequence
-                                                    make-application
-                                                    make-conditional
-                                                    make-toplevel-define
-                                                    make-toplevel-set
-                                                    make-toplevel-ref
-                                                    make-module-set
-                                                    make-module-ref
-                                                    make-lexical-set
-                                                    make-lexical-ref
-                                                    make-primitive-ref
-                                                    make-const
-                                                    make-void)
-                                                  ((top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top))
-                                                  ("i485"
-                                                   "i483"
-                                                   "i481"
-                                                   "i479"
-                                                   "i477"
-                                                   "i475"
-                                                   "i473"
-                                                   "i471"
-                                                   "i469"
-                                                   "i467"
-                                                   "i465"
-                                                   "i463"
-                                                   "i461"
-                                                   "i459"
-                                                   "i457"
-                                                   "i455"
-                                                   "i453"
-                                                   "i451"
-                                                   "i449"
-                                                   "i447"
-                                                   "i445"
-                                                   "i443"
-                                                   "i441"
-                                                   "i439"
-                                                   "i437"
-                                                   "i435"
-                                                   "i433"
-                                                   "i431"
-                                                   "i429"
-                                                   "i427"
-                                                   "i425"
-                                                   "i423"
-                                                   "i421"
-                                                   "i419"
-                                                   "i417"
-                                                   "i416"
-                                                   "i415"
-                                                   "i413"
-                                                   "i412"
-                                                   "i411"
-                                                   "i410"
-                                                   "i409"
-                                                   "i407"
-                                                   "i405"
-                                                   "i403"
-                                                   "i401"
-                                                   "i399"
-                                                   "i397"
-                                                   "i395"
-                                                   "i393"
-                                                   "i390"
-                                                   "i388"
-                                                   "i387"
-                                                   "i386"
-                                                   "i385"
-                                                   "i384"
-                                                   "i383"
-                                                   "i382"
-                                                   "i381"
-                                                   "i380"
-                                                   "i378"
-                                                   "i377"
-                                                   "i375"
-                                                   "i373"
-                                                   "i371"
-                                                   "i369"
-                                                   "i367"
-                                                   "i365"
-                                                   "i363"
-                                                   "i362"
-                                                   "i361"
-                                                   "i360"
-                                                   "i359"
-                                                   "i358"
-                                                   "i356"
-                                                   "i355"
-                                                   "i353"
-                                                   "i351"
-                                                   "i349"
-                                                   "i347"
-                                                   "i345"
-                                                   "i343"
-                                                   "i341"
-                                                   "i339"
-                                                   "i337"
-                                                   "i335"
-                                                   "i333"
-                                                   "i331"
-                                                   "i329"
-                                                   "i327"
-                                                   "i325"
-                                                   "i323"
-                                                   "i321"
-                                                   "i319"
-                                                   "i317"
-                                                   "i315"
-                                                   "i313"
-                                                   "i311"
-                                                   "i309"
-                                                   "i307"
-                                                   "i305"
-                                                   "i303"
-                                                   "i301"
-                                                   "i299"
-                                                   "i297"
-                                                   "i295"
-                                                   "i293"
-                                                   "i291"
-                                                   "i290"
-                                                   "i288"
-                                                   "i286"
-                                                   "i285"
-                                                   "i284"
-                                                   "i283"
-                                                   "i282"
-                                                   "i280"
-                                                   "i278"
-                                                   "i276"
-                                                   "i273"
-                                                   "i271"
-                                                   "i269"
-                                                   "i267"
-                                                   "i265"
-                                                   "i263"
-                                                   "i261"
-                                                   "i259"
-                                                   "i257"
-                                                   "i255"
-                                                   "i253"
-                                                   "i251"
-                                                   "i249"
-                                                   "i247"
-                                                   "i245"
-                                                   "i243"
-                                                   "i241"
-                                                   "i239"))
-                                                #(ribcage
-                                                  (define-structure
-                                                    define-expansion-accessors
-                                                    
define-expansion-constructors
-                                                    and-map*)
-                                                  ((top) (top) (top) (top))
-                                                  ("i41" "i40" "i39" "i37")))
-                                               (hygiene guile)))
-                                        'expand
-                                        (syntax-violation
-                                          'eval-when
-                                          "invalid situation"
-                                          #{e 1767}#
-                                          (#{wrap 442}#
-                                            #{x 1780}#
-                                            #{w 1769}#
-                                            #f))))))))
-                            #{situations 1778}#))))))
-             (begin (#{f 1776}# #{when-list 1768}# '())))))
-       (#{syntax-type 454}#
-         (lambda (#{e 1790}#
-                  #{r 1791}#
-                  #{w 1792}#
-                  #{s 1793}#
-                  #{rib 1794}#
-                  #{mod 1795}#
-                  #{for-car? 1796}#)
-           (if (symbol? #{e 1790}#)
-             (begin
-               (let ((#{n 1808}#
-                       (#{id-var-name 430}# #{e 1790}# #{w 1792}#)))
-                 (begin
-                   (let ((#{b 1810}#
-                           (#{lookup 370}#
-                             #{n 1808}#
-                             #{r 1791}#
-                             #{mod 1795}#)))
-                     (begin
-                       (let ((#{type 1812}# (car #{b 1810}#)))
-                         (if (eqv? #{type 1812}# 'lexical)
-                           (values
-                             #{type 1812}#
-                             (cdr #{b 1810}#)
-                             #{e 1790}#
-                             #{w 1792}#
-                             #{s 1793}#
-                             #{mod 1795}#)
-                           (if (eqv? #{type 1812}# 'global)
-                             (values
-                               #{type 1812}#
-                               #{n 1808}#
-                               #{e 1790}#
-                               #{w 1792}#
-                               #{s 1793}#
-                               #{mod 1795}#)
-                             (if (eqv? #{type 1812}# 'macro)
-                               (if #{for-car? 1796}#
-                                 (values
-                                   #{type 1812}#
-                                   (cdr #{b 1810}#)
-                                   #{e 1790}#
-                                   #{w 1792}#
-                                   #{s 1793}#
-                                   #{mod 1795}#)
-                                 (#{syntax-type 454}#
-                                   (#{chi-macro 462}#
-                                     (cdr #{b 1810}#)
-                                     #{e 1790}#
-                                     #{r 1791}#
-                                     #{w 1792}#
-                                     #{s 1793}#
-                                     #{rib 1794}#
-                                     #{mod 1795}#)
-                                   #{r 1791}#
-                                   '(())
-                                   #{s 1793}#
-                                   #{rib 1794}#
-                                   #{mod 1795}#
-                                   #f))
-                               (values
-                                 #{type 1812}#
-                                 (cdr #{b 1810}#)
-                                 #{e 1790}#
-                                 #{w 1792}#
-                                 #{s 1793}#
-                                 #{mod 1795}#))))))))))
-             (if (pair? #{e 1790}#)
-               (begin
-                 (let ((#{first 1826}# (car #{e 1790}#)))
-                   (call-with-values
-                     (lambda ()
-                       (#{syntax-type 454}#
-                         #{first 1826}#
-                         #{r 1791}#
-                         #{w 1792}#
-                         #{s 1793}#
-                         #{rib 1794}#
-                         #{mod 1795}#
-                         #t))
-                     (lambda (#{ftype 1827}#
-                              #{fval 1828}#
-                              #{fe 1829}#
-                              #{fw 1830}#
-                              #{fs 1831}#
-                              #{fmod 1832}#)
-                       (if (eqv? #{ftype 1827}# 'lexical)
-                         (values
-                           'lexical-call
-                           #{fval 1828}#
-                           #{e 1790}#
-                           #{w 1792}#
-                           #{s 1793}#
-                           #{mod 1795}#)
-                         (if (eqv? #{ftype 1827}# 'global)
-                           (values
-                             'global-call
-                             (#{make-syntax-object 340}#
-                               #{fval 1828}#
-                               #{w 1792}#
-                               #{fmod 1832}#)
-                             #{e 1790}#
-                             #{w 1792}#
-                             #{s 1793}#
-                             #{mod 1795}#)
-                           (if (eqv? #{ftype 1827}# 'macro)
-                             (#{syntax-type 454}#
-                               (#{chi-macro 462}#
-                                 #{fval 1828}#
-                                 #{e 1790}#
-                                 #{r 1791}#
-                                 #{w 1792}#
-                                 #{s 1793}#
-                                 #{rib 1794}#
-                                 #{mod 1795}#)
-                               #{r 1791}#
-                               '(())
-                               #{s 1793}#
-                               #{rib 1794}#
-                               #{mod 1795}#
-                               #{for-car? 1796}#)
-                             (if (eqv? #{ftype 1827}# 'module-ref)
-                               (call-with-values
-                                 (lambda ()
-                                   (#{fval 1828}#
-                                     #{e 1790}#
-                                     #{r 1791}#
-                                     #{w 1792}#))
-                                 (lambda (#{e 1844}#
-                                          #{r 1845}#
-                                          #{w 1846}#
-                                          #{s 1847}#
-                                          #{mod 1848}#)
-                                   (#{syntax-type 454}#
-                                     #{e 1844}#
-                                     #{r 1845}#
-                                     #{w 1846}#
-                                     #{s 1847}#
-                                     #{rib 1794}#
-                                     #{mod 1848}#
-                                     #{for-car? 1796}#)))
-                               (if (eqv? #{ftype 1827}# 'core)
-                                 (values
-                                   'core-form
-                                   #{fval 1828}#
-                                   #{e 1790}#
-                                   #{w 1792}#
-                                   #{s 1793}#
-                                   #{mod 1795}#)
-                                 (if (eqv? #{ftype 1827}# 'local-syntax)
-                                   (values
-                                     'local-syntax-form
-                                     #{fval 1828}#
-                                     #{e 1790}#
-                                     #{w 1792}#
-                                     #{s 1793}#
-                                     #{mod 1795}#)
-                                   (if (eqv? #{ftype 1827}# 'begin)
-                                     (values
-                                       'begin-form
-                                       #f
-                                       #{e 1790}#
-                                       #{w 1792}#
-                                       #{s 1793}#
-                                       #{mod 1795}#)
-                                     (if (eqv? #{ftype 1827}# 'eval-when)
-                                       (values
-                                         'eval-when-form
-                                         #f
-                                         #{e 1790}#
-                                         #{w 1792}#
-                                         #{s 1793}#
-                                         #{mod 1795}#)
-                                       (if (eqv? #{ftype 1827}# 'define)
-                                         (let ((#{tmp 1859}# #{e 1790}#))
-                                           (let ((#{tmp 1860}#
-                                                   ($sc-dispatch
-                                                     #{tmp 1859}#
-                                                     '(_ any any))))
-                                             (if (if #{tmp 1860}#
-                                                   (@apply
-                                                     (lambda (#{name 1863}#
-                                                              #{val 1864}#)
-                                                       (#{id? 376}#
-                                                         #{name 1863}#))
-                                                     #{tmp 1860}#)
-                                                   #f)
-                                               (@apply
-                                                 (lambda (#{name 1867}#
-                                                          #{val 1868}#)
-                                                   (values
-                                                     'define-form
-                                                     #{name 1867}#
-                                                     #{val 1868}#
-                                                     #{w 1792}#
-                                                     #{s 1793}#
-                                                     #{mod 1795}#))
-                                                 #{tmp 1860}#)
-                                               (let ((#{tmp 1869}#
-                                                       ($sc-dispatch
-                                                         #{tmp 1859}#
-                                                         '(_ (any . any)
-                                                             any
-                                                             .
-                                                             each-any))))
-                                                 (if (if #{tmp 1869}#
-                                                       (@apply
-                                                         (lambda (#{name 1874}#
-                                                                  #{args 1875}#
-                                                                  #{e1 1876}#
-                                                                  #{e2 1877}#)
-                                                           (if (#{id? 376}#
-                                                                 #{name 1874}#)
-                                                             
(#{valid-bound-ids? 436}#
-                                                               
(#{lambda-var-list 486}#
-                                                                 #{args 
1875}#))
-                                                             #f))
-                                                         #{tmp 1869}#)
-                                                       #f)
-                                                   (@apply
-                                                     (lambda (#{name 1884}#
-                                                              #{args 1885}#
-                                                              #{e1 1886}#
-                                                              #{e2 1887}#)
-                                                       (values
-                                                         'define-form
-                                                         (#{wrap 442}#
-                                                           #{name 1884}#
-                                                           #{w 1792}#
-                                                           #{mod 1795}#)
-                                                         (#{decorate-source 
296}#
-                                                           (cons 
'#(syntax-object
-                                                                    lambda
-                                                                    ((top)
-                                                                     #(ribcage
-                                                                       #(name
-                                                                         args
-                                                                         e1
-                                                                         e2)
-                                                                       #((top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top))
-                                                                       
#("i1880"
-                                                                         
"i1881"
-                                                                         
"i1882"
-                                                                         
"i1883"))
-                                                                     #(ribcage
-                                                                       ()
-                                                                       ()
-                                                                       ())
-                                                                     #(ribcage
-                                                                       ()
-                                                                       ()
-                                                                       ())
-                                                                     #(ribcage
-                                                                       #(ftype
-                                                                         fval
-                                                                         fe
-                                                                         fw
-                                                                         fs
-                                                                         fmod)
-                                                                       #((top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top))
-                                                                       
#("i1833"
-                                                                         
"i1834"
-                                                                         
"i1835"
-                                                                         
"i1836"
-                                                                         
"i1837"
-                                                                         
"i1838"))
-                                                                     #(ribcage
-                                                                       ()
-                                                                       ()
-                                                                       ())
-                                                                     #(ribcage
-                                                                       #(first)
-                                                                       #((top))
-                                                                       
#("i1825"))
-                                                                     #(ribcage
-                                                                       ()
-                                                                       ()
-                                                                       ())
-                                                                     #(ribcage
-                                                                       ()
-                                                                       ()
-                                                                       ())
-                                                                     #(ribcage
-                                                                       ()
-                                                                       ()
-                                                                       ())
-                                                                     #(ribcage
-                                                                       #(e
-                                                                         r
-                                                                         w
-                                                                         s
-                                                                         rib
-                                                                         mod
-                                                                         
for-car?)
-                                                                       #((top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top)
-                                                                         (top))
-                                                                       
#("i1797"
-                                                                         
"i1798"
-                                                                         
"i1799"
-                                                                         
"i1800"
-                                                                         
"i1801"
-                                                                         
"i1802"
-                                                                         
"i1803"))
-                                                                     #(ribcage
-                                                                       
(lambda-var-list
-                                                                         
gen-var
-                                                                         strip
-                                                                         
chi-lambda-case
-                                                                         
lambda*-formals
-                                                                         
chi-simple-lambda
-                                                                         
lambda-formals
-                                                                         
ellipsis?
-                                                                         
chi-void
-                                                                         
eval-local-transformer
-                                                                         
chi-local-syntax
-                                                                         
chi-body
-                                                                         
chi-macro
-                                                                         
chi-application
-                                                                         
chi-expr
-                                                                         chi
-                                                                         
syntax-type
-                                                                         
chi-when-list
-                                                                         
chi-install-global
-                                                                         
chi-top-sequence
-                                                                         
chi-sequence
-                                                                         
source-wrap
-                                                                         wrap
-                                                                         
bound-id-member?
-                                                                         
distinct-bound-ids?
-                                                                         
valid-bound-ids?
-                                                                         
bound-id=?
-                                                                         
free-id=?
-                                                                         
id-var-name
-                                                                         
same-marks?
-                                                                         
join-marks
-                                                                         
join-wraps
-                                                                         
smart-append
-                                                                         
make-binding-wrap
-                                                                         
extend-ribcage!
-                                                                         
make-empty-ribcage
-                                                                         
new-mark
-                                                                         
anti-mark
-                                                                         
the-anti-mark
-                                                                         
top-marked?
-                                                                         
top-wrap
-                                                                         
empty-wrap
-                                                                         
set-ribcage-labels!
-                                                                         
set-ribcage-marks!
-                                                                         
set-ribcage-symnames!
-                                                                         
ribcage-labels
-                                                                         
ribcage-marks
-                                                                         
ribcage-symnames
-                                                                         
ribcage?
-                                                                         
make-ribcage
-                                                                         
gen-labels
-                                                                         
gen-label
-                                                                         
make-rename
-                                                                         
rename-marks
-                                                                         
rename-new
-                                                                         
rename-old
-                                                                         
subst-rename?
-                                                                         
wrap-subst
-                                                                         
wrap-marks
-                                                                         
make-wrap
-                                                                         
id-sym-name&marks
-                                                                         
id-sym-name
-                                                                         id?
-                                                                         
nonsymbol-id?
-                                                                         
global-extend
-                                                                         lookup
-                                                                         
macros-only-env
-                                                                         
extend-var-env
-                                                                         
extend-env
-                                                                         
null-env
-                                                                         
binding-value
-                                                                         
binding-type
-                                                                         
make-binding
-                                                                         
arg-check
-                                                                         
source-annotation
-                                                                         
no-source
-                                                                         
set-syntax-object-module!
-                                                                         
set-syntax-object-wrap!
-                                                                         
set-syntax-object-expression!
-                                                                         
syntax-object-module
-                                                                         
syntax-object-wrap
-                                                                         
syntax-object-expression
-                                                                         
syntax-object?
-                                                                         
make-syntax-object
-                                                                         
build-lexical-var
-                                                                         
build-letrec
-                                                                         
build-named-let
-                                                                         
build-let
-                                                                         
build-sequence
-                                                                         
build-data
-                                                                         
build-primref
-                                                                         
build-lambda-case
-                                                                         
build-case-lambda
-                                                                         
build-simple-lambda
-                                                                         
build-global-definition
-                                                                         
build-global-assignment
-                                                                         
build-global-reference
-                                                                         
analyze-variable
-                                                                         
build-lexical-assignment
-                                                                         
build-lexical-reference
-                                                                         
build-dynlet
-                                                                         
build-conditional
-                                                                         
build-application
-                                                                         
build-void
-                                                                         
maybe-name-value!
-                                                                         
decorate-source
-                                                                         
get-global-definition-hook
-                                                                         
put-global-definition-hook
-                                                                         
gensym-hook
-                                                                         
local-eval-hook
-                                                                         
top-level-eval-hook
-                                                                         fx<
-                                                                         fx=
-                                                                         fx-
-                                                                         fx+
-                                                                         
set-lambda-meta!
-                                                                         
lambda-meta
-                                                                         
lambda?
-                                                                         
make-dynlet
-                                                                         
make-letrec
-                                                                         
make-let
-                                                                         
make-lambda-case
-                                                                         
make-lambda
-                                                                         
make-sequence
-                                                                         
make-application
-                                                                         
make-conditional
-                                                                         
make-toplevel-define
-                                                                         
make-toplevel-set
-                                                                         
make-toplevel-ref
-                                                                         
make-module-set
-                                                                         
make-module-ref
-                                                                         
make-lexical-set
-                                                                         
make-lexical-ref
-                                                                         
make-primitive-ref
-                                                                         
make-const
-                                                                         
make-void)
-                                                                       ((top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top))
-                                                                       ("i485"
-                                                                        "i483"
-                                                                        "i481"
-                                                                        "i479"
-                                                                        "i477"
-                                                                        "i475"
-                                                                        "i473"
-                                                                        "i471"
-                                                                        "i469"
-                                                                        "i467"
-                                                                        "i465"
-                                                                        "i463"
-                                                                        "i461"
-                                                                        "i459"
-                                                                        "i457"
-                                                                        "i455"
-                                                                        "i453"
-                                                                        "i451"
-                                                                        "i449"
-                                                                        "i447"
-                                                                        "i445"
-                                                                        "i443"
-                                                                        "i441"
-                                                                        "i439"
-                                                                        "i437"
-                                                                        "i435"
-                                                                        "i433"
-                                                                        "i431"
-                                                                        "i429"
-                                                                        "i427"
-                                                                        "i425"
-                                                                        "i423"
-                                                                        "i421"
-                                                                        "i419"
-                                                                        "i417"
-                                                                        "i416"
-                                                                        "i415"
-                                                                        "i413"
-                                                                        "i412"
-                                                                        "i411"
-                                                                        "i410"
-                                                                        "i409"
-                                                                        "i407"
-                                                                        "i405"
-                                                                        "i403"
-                                                                        "i401"
-                                                                        "i399"
-                                                                        "i397"
-                                                                        "i395"
-                                                                        "i393"
-                                                                        "i390"
-                                                                        "i388"
-                                                                        "i387"
-                                                                        "i386"
-                                                                        "i385"
-                                                                        "i384"
-                                                                        "i383"
-                                                                        "i382"
-                                                                        "i381"
-                                                                        "i380"
-                                                                        "i378"
-                                                                        "i377"
-                                                                        "i375"
-                                                                        "i373"
-                                                                        "i371"
-                                                                        "i369"
-                                                                        "i367"
-                                                                        "i365"
-                                                                        "i363"
-                                                                        "i362"
-                                                                        "i361"
-                                                                        "i360"
-                                                                        "i359"
-                                                                        "i358"
-                                                                        "i356"
-                                                                        "i355"
-                                                                        "i353"
-                                                                        "i351"
-                                                                        "i349"
-                                                                        "i347"
-                                                                        "i345"
-                                                                        "i343"
-                                                                        "i341"
-                                                                        "i339"
-                                                                        "i337"
-                                                                        "i335"
-                                                                        "i333"
-                                                                        "i331"
-                                                                        "i329"
-                                                                        "i327"
-                                                                        "i325"
-                                                                        "i323"
-                                                                        "i321"
-                                                                        "i319"
-                                                                        "i317"
-                                                                        "i315"
-                                                                        "i313"
-                                                                        "i311"
-                                                                        "i309"
-                                                                        "i307"
-                                                                        "i305"
-                                                                        "i303"
-                                                                        "i301"
-                                                                        "i299"
-                                                                        "i297"
-                                                                        "i295"
-                                                                        "i293"
-                                                                        "i291"
-                                                                        "i290"
-                                                                        "i288"
-                                                                        "i286"
-                                                                        "i285"
-                                                                        "i284"
-                                                                        "i283"
-                                                                        "i282"
-                                                                        "i280"
-                                                                        "i278"
-                                                                        "i276"
-                                                                        "i273"
-                                                                        "i271"
-                                                                        "i269"
-                                                                        "i267"
-                                                                        "i265"
-                                                                        "i263"
-                                                                        "i261"
-                                                                        "i259"
-                                                                        "i257"
-                                                                        "i255"
-                                                                        "i253"
-                                                                        "i251"
-                                                                        "i249"
-                                                                        "i247"
-                                                                        "i245"
-                                                                        "i243"
-                                                                        "i241"
-                                                                        
"i239"))
-                                                                     #(ribcage
-                                                                       
(define-structure
-                                                                         
define-expansion-accessors
-                                                                         
define-expansion-constructors
-                                                                         
and-map*)
-                                                                       ((top)
-                                                                        (top)
-                                                                        (top)
-                                                                        (top))
-                                                                       ("i41"
-                                                                        "i40"
-                                                                        "i39"
-                                                                        
"i37")))
-                                                                    (hygiene
-                                                                      guile))
-                                                                 (#{wrap 442}#
-                                                                   (cons 
#{args 1885}#
-                                                                         (cons 
#{e1 1886}#
-                                                                               
#{e2 1887}#))
-                                                                   #{w 1792}#
-                                                                   #{mod 
1795}#))
-                                                           #{s 1793}#)
-                                                         '(())
-                                                         #{s 1793}#
-                                                         #{mod 1795}#))
-                                                     #{tmp 1869}#)
-                                                   (let ((#{tmp 1890}#
-                                                           ($sc-dispatch
-                                                             #{tmp 1859}#
-                                                             '(_ any))))
-                                                     (if (if #{tmp 1890}#
-                                                           (@apply
-                                                             (lambda (#{name 
1892}#)
-                                                               (#{id? 376}#
-                                                                 #{name 
1892}#))
-                                                             #{tmp 1890}#)
-                                                           #f)
-                                                       (@apply
-                                                         (lambda (#{name 
1894}#)
-                                                           (values
-                                                             'define-form
-                                                             (#{wrap 442}#
-                                                               #{name 1894}#
-                                                               #{w 1792}#
-                                                               #{mod 1795}#)
-                                                             '(#(syntax-object
-                                                                 if
-                                                                 ((top)
-                                                                  #(ribcage
-                                                                    #(name)
-                                                                    #((top))
-                                                                    #("i1893"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(ftype
-                                                                      fval
-                                                                      fe
-                                                                      fw
-                                                                      fs
-                                                                      fmod)
-                                                                    #((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                    #("i1833"
-                                                                      "i1834"
-                                                                      "i1835"
-                                                                      "i1836"
-                                                                      "i1837"
-                                                                      "i1838"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(first)
-                                                                    #((top))
-                                                                    #("i1825"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(e
-                                                                      r
-                                                                      w
-                                                                      s
-                                                                      rib
-                                                                      mod
-                                                                      for-car?)
-                                                                    #((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                    #("i1797"
-                                                                      "i1798"
-                                                                      "i1799"
-                                                                      "i1800"
-                                                                      "i1801"
-                                                                      "i1802"
-                                                                      "i1803"))
-                                                                  #(ribcage
-                                                                    
(lambda-var-list
-                                                                      gen-var
-                                                                      strip
-                                                                      
chi-lambda-case
-                                                                      
lambda*-formals
-                                                                      
chi-simple-lambda
-                                                                      
lambda-formals
-                                                                      ellipsis?
-                                                                      chi-void
-                                                                      
eval-local-transformer
-                                                                      
chi-local-syntax
-                                                                      chi-body
-                                                                      chi-macro
-                                                                      
chi-application
-                                                                      chi-expr
-                                                                      chi
-                                                                      
syntax-type
-                                                                      
chi-when-list
-                                                                      
chi-install-global
-                                                                      
chi-top-sequence
-                                                                      
chi-sequence
-                                                                      
source-wrap
-                                                                      wrap
-                                                                      
bound-id-member?
-                                                                      
distinct-bound-ids?
-                                                                      
valid-bound-ids?
-                                                                      
bound-id=?
-                                                                      free-id=?
-                                                                      
id-var-name
-                                                                      
same-marks?
-                                                                      
join-marks
-                                                                      
join-wraps
-                                                                      
smart-append
-                                                                      
make-binding-wrap
-                                                                      
extend-ribcage!
-                                                                      
make-empty-ribcage
-                                                                      new-mark
-                                                                      anti-mark
-                                                                      
the-anti-mark
-                                                                      
top-marked?
-                                                                      top-wrap
-                                                                      
empty-wrap
-                                                                      
set-ribcage-labels!
-                                                                      
set-ribcage-marks!
-                                                                      
set-ribcage-symnames!
-                                                                      
ribcage-labels
-                                                                      
ribcage-marks
-                                                                      
ribcage-symnames
-                                                                      ribcage?
-                                                                      
make-ribcage
-                                                                      
gen-labels
-                                                                      gen-label
-                                                                      
make-rename
-                                                                      
rename-marks
-                                                                      
rename-new
-                                                                      
rename-old
-                                                                      
subst-rename?
-                                                                      
wrap-subst
-                                                                      
wrap-marks
-                                                                      make-wrap
-                                                                      
id-sym-name&marks
-                                                                      
id-sym-name
-                                                                      id?
-                                                                      
nonsymbol-id?
-                                                                      
global-extend
-                                                                      lookup
-                                                                      
macros-only-env
-                                                                      
extend-var-env
-                                                                      
extend-env
-                                                                      null-env
-                                                                      
binding-value
-                                                                      
binding-type
-                                                                      
make-binding
-                                                                      arg-check
-                                                                      
source-annotation
-                                                                      no-source
-                                                                      
set-syntax-object-module!
-                                                                      
set-syntax-object-wrap!
-                                                                      
set-syntax-object-expression!
-                                                                      
syntax-object-module
-                                                                      
syntax-object-wrap
-                                                                      
syntax-object-expression
-                                                                      
syntax-object?
-                                                                      
make-syntax-object
-                                                                      
build-lexical-var
-                                                                      
build-letrec
-                                                                      
build-named-let
-                                                                      build-let
-                                                                      
build-sequence
-                                                                      
build-data
-                                                                      
build-primref
-                                                                      
build-lambda-case
-                                                                      
build-case-lambda
-                                                                      
build-simple-lambda
-                                                                      
build-global-definition
-                                                                      
build-global-assignment
-                                                                      
build-global-reference
-                                                                      
analyze-variable
-                                                                      
build-lexical-assignment
-                                                                      
build-lexical-reference
-                                                                      
build-dynlet
-                                                                      
build-conditional
-                                                                      
build-application
-                                                                      
build-void
-                                                                      
maybe-name-value!
-                                                                      
decorate-source
-                                                                      
get-global-definition-hook
-                                                                      
put-global-definition-hook
-                                                                      
gensym-hook
-                                                                      
local-eval-hook
-                                                                      
top-level-eval-hook
-                                                                      fx<
-                                                                      fx=
-                                                                      fx-
-                                                                      fx+
-                                                                      
set-lambda-meta!
-                                                                      
lambda-meta
-                                                                      lambda?
-                                                                      
make-dynlet
-                                                                      
make-letrec
-                                                                      make-let
-                                                                      
make-lambda-case
-                                                                      
make-lambda
-                                                                      
make-sequence
-                                                                      
make-application
-                                                                      
make-conditional
-                                                                      
make-toplevel-define
-                                                                      
make-toplevel-set
-                                                                      
make-toplevel-ref
-                                                                      
make-module-set
-                                                                      
make-module-ref
-                                                                      
make-lexical-set
-                                                                      
make-lexical-ref
-                                                                      
make-primitive-ref
-                                                                      
make-const
-                                                                      
make-void)
-                                                                    ((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                    ("i485"
-                                                                     "i483"
-                                                                     "i481"
-                                                                     "i479"
-                                                                     "i477"
-                                                                     "i475"
-                                                                     "i473"
-                                                                     "i471"
-                                                                     "i469"
-                                                                     "i467"
-                                                                     "i465"
-                                                                     "i463"
-                                                                     "i461"
-                                                                     "i459"
-                                                                     "i457"
-                                                                     "i455"
-                                                                     "i453"
-                                                                     "i451"
-                                                                     "i449"
-                                                                     "i447"
-                                                                     "i445"
-                                                                     "i443"
-                                                                     "i441"
-                                                                     "i439"
-                                                                     "i437"
-                                                                     "i435"
-                                                                     "i433"
-                                                                     "i431"
-                                                                     "i429"
-                                                                     "i427"
-                                                                     "i425"
-                                                                     "i423"
-                                                                     "i421"
-                                                                     "i419"
-                                                                     "i417"
-                                                                     "i416"
-                                                                     "i415"
-                                                                     "i413"
-                                                                     "i412"
-                                                                     "i411"
-                                                                     "i410"
-                                                                     "i409"
-                                                                     "i407"
-                                                                     "i405"
-                                                                     "i403"
-                                                                     "i401"
-                                                                     "i399"
-                                                                     "i397"
-                                                                     "i395"
-                                                                     "i393"
-                                                                     "i390"
-                                                                     "i388"
-                                                                     "i387"
-                                                                     "i386"
-                                                                     "i385"
-                                                                     "i384"
-                                                                     "i383"
-                                                                     "i382"
-                                                                     "i381"
-                                                                     "i380"
-                                                                     "i378"
-                                                                     "i377"
-                                                                     "i375"
-                                                                     "i373"
-                                                                     "i371"
-                                                                     "i369"
-                                                                     "i367"
-                                                                     "i365"
-                                                                     "i363"
-                                                                     "i362"
-                                                                     "i361"
-                                                                     "i360"
-                                                                     "i359"
-                                                                     "i358"
-                                                                     "i356"
-                                                                     "i355"
-                                                                     "i353"
-                                                                     "i351"
-                                                                     "i349"
-                                                                     "i347"
-                                                                     "i345"
-                                                                     "i343"
-                                                                     "i341"
-                                                                     "i339"
-                                                                     "i337"
-                                                                     "i335"
-                                                                     "i333"
-                                                                     "i331"
-                                                                     "i329"
-                                                                     "i327"
-                                                                     "i325"
-                                                                     "i323"
-                                                                     "i321"
-                                                                     "i319"
-                                                                     "i317"
-                                                                     "i315"
-                                                                     "i313"
-                                                                     "i311"
-                                                                     "i309"
-                                                                     "i307"
-                                                                     "i305"
-                                                                     "i303"
-                                                                     "i301"
-                                                                     "i299"
-                                                                     "i297"
-                                                                     "i295"
-                                                                     "i293"
-                                                                     "i291"
-                                                                     "i290"
-                                                                     "i288"
-                                                                     "i286"
-                                                                     "i285"
-                                                                     "i284"
-                                                                     "i283"
-                                                                     "i282"
-                                                                     "i280"
-                                                                     "i278"
-                                                                     "i276"
-                                                                     "i273"
-                                                                     "i271"
-                                                                     "i269"
-                                                                     "i267"
-                                                                     "i265"
-                                                                     "i263"
-                                                                     "i261"
-                                                                     "i259"
-                                                                     "i257"
-                                                                     "i255"
-                                                                     "i253"
-                                                                     "i251"
-                                                                     "i249"
-                                                                     "i247"
-                                                                     "i245"
-                                                                     "i243"
-                                                                     "i241"
-                                                                     "i239"))
-                                                                  #(ribcage
-                                                                    
(define-structure
-                                                                      
define-expansion-accessors
-                                                                      
define-expansion-constructors
-                                                                      and-map*)
-                                                                    ((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                    ("i41"
-                                                                     "i40"
-                                                                     "i39"
-                                                                     "i37")))
-                                                                 (hygiene
-                                                                   guile))
-                                                               #(syntax-object
-                                                                 #f
-                                                                 ((top)
-                                                                  #(ribcage
-                                                                    #(name)
-                                                                    #((top))
-                                                                    #("i1893"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(ftype
-                                                                      fval
-                                                                      fe
-                                                                      fw
-                                                                      fs
-                                                                      fmod)
-                                                                    #((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                    #("i1833"
-                                                                      "i1834"
-                                                                      "i1835"
-                                                                      "i1836"
-                                                                      "i1837"
-                                                                      "i1838"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(first)
-                                                                    #((top))
-                                                                    #("i1825"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(e
-                                                                      r
-                                                                      w
-                                                                      s
-                                                                      rib
-                                                                      mod
-                                                                      for-car?)
-                                                                    #((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                    #("i1797"
-                                                                      "i1798"
-                                                                      "i1799"
-                                                                      "i1800"
-                                                                      "i1801"
-                                                                      "i1802"
-                                                                      "i1803"))
-                                                                  #(ribcage
-                                                                    
(lambda-var-list
-                                                                      gen-var
-                                                                      strip
-                                                                      
chi-lambda-case
-                                                                      
lambda*-formals
-                                                                      
chi-simple-lambda
-                                                                      
lambda-formals
-                                                                      ellipsis?
-                                                                      chi-void
-                                                                      
eval-local-transformer
-                                                                      
chi-local-syntax
-                                                                      chi-body
-                                                                      chi-macro
-                                                                      
chi-application
-                                                                      chi-expr
-                                                                      chi
-                                                                      
syntax-type
-                                                                      
chi-when-list
-                                                                      
chi-install-global
-                                                                      
chi-top-sequence
-                                                                      
chi-sequence
-                                                                      
source-wrap
-                                                                      wrap
-                                                                      
bound-id-member?
-                                                                      
distinct-bound-ids?
-                                                                      
valid-bound-ids?
-                                                                      
bound-id=?
-                                                                      free-id=?
-                                                                      
id-var-name
-                                                                      
same-marks?
-                                                                      
join-marks
-                                                                      
join-wraps
-                                                                      
smart-append
-                                                                      
make-binding-wrap
-                                                                      
extend-ribcage!
-                                                                      
make-empty-ribcage
-                                                                      new-mark
-                                                                      anti-mark
-                                                                      
the-anti-mark
-                                                                      
top-marked?
-                                                                      top-wrap
-                                                                      
empty-wrap
-                                                                      
set-ribcage-labels!
-                                                                      
set-ribcage-marks!
-                                                                      
set-ribcage-symnames!
-                                                                      
ribcage-labels
-                                                                      
ribcage-marks
-                                                                      
ribcage-symnames
-                                                                      ribcage?
-                                                                      
make-ribcage
-                                                                      
gen-labels
-                                                                      gen-label
-                                                                      
make-rename
-                                                                      
rename-marks
-                                                                      
rename-new
-                                                                      
rename-old
-                                                                      
subst-rename?
-                                                                      
wrap-subst
-                                                                      
wrap-marks
-                                                                      make-wrap
-                                                                      
id-sym-name&marks
-                                                                      
id-sym-name
-                                                                      id?
-                                                                      
nonsymbol-id?
-                                                                      
global-extend
-                                                                      lookup
-                                                                      
macros-only-env
-                                                                      
extend-var-env
-                                                                      
extend-env
-                                                                      null-env
-                                                                      
binding-value
-                                                                      
binding-type
-                                                                      
make-binding
-                                                                      arg-check
-                                                                      
source-annotation
-                                                                      no-source
-                                                                      
set-syntax-object-module!
-                                                                      
set-syntax-object-wrap!
-                                                                      
set-syntax-object-expression!
-                                                                      
syntax-object-module
-                                                                      
syntax-object-wrap
-                                                                      
syntax-object-expression
-                                                                      
syntax-object?
-                                                                      
make-syntax-object
-                                                                      
build-lexical-var
-                                                                      
build-letrec
-                                                                      
build-named-let
-                                                                      build-let
-                                                                      
build-sequence
-                                                                      
build-data
-                                                                      
build-primref
-                                                                      
build-lambda-case
-                                                                      
build-case-lambda
-                                                                      
build-simple-lambda
-                                                                      
build-global-definition
-                                                                      
build-global-assignment
-                                                                      
build-global-reference
-                                                                      
analyze-variable
-                                                                      
build-lexical-assignment
-                                                                      
build-lexical-reference
-                                                                      
build-dynlet
-                                                                      
build-conditional
-                                                                      
build-application
-                                                                      
build-void
-                                                                      
maybe-name-value!
-                                                                      
decorate-source
-                                                                      
get-global-definition-hook
-                                                                      
put-global-definition-hook
-                                                                      
gensym-hook
-                                                                      
local-eval-hook
-                                                                      
top-level-eval-hook
-                                                                      fx<
-                                                                      fx=
-                                                                      fx-
-                                                                      fx+
-                                                                      
set-lambda-meta!
-                                                                      
lambda-meta
-                                                                      lambda?
-                                                                      
make-dynlet
-                                                                      
make-letrec
-                                                                      make-let
-                                                                      
make-lambda-case
-                                                                      
make-lambda
-                                                                      
make-sequence
-                                                                      
make-application
-                                                                      
make-conditional
-                                                                      
make-toplevel-define
-                                                                      
make-toplevel-set
-                                                                      
make-toplevel-ref
-                                                                      
make-module-set
-                                                                      
make-module-ref
-                                                                      
make-lexical-set
-                                                                      
make-lexical-ref
-                                                                      
make-primitive-ref
-                                                                      
make-const
-                                                                      
make-void)
-                                                                    ((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                    ("i485"
-                                                                     "i483"
-                                                                     "i481"
-                                                                     "i479"
-                                                                     "i477"
-                                                                     "i475"
-                                                                     "i473"
-                                                                     "i471"
-                                                                     "i469"
-                                                                     "i467"
-                                                                     "i465"
-                                                                     "i463"
-                                                                     "i461"
-                                                                     "i459"
-                                                                     "i457"
-                                                                     "i455"
-                                                                     "i453"
-                                                                     "i451"
-                                                                     "i449"
-                                                                     "i447"
-                                                                     "i445"
-                                                                     "i443"
-                                                                     "i441"
-                                                                     "i439"
-                                                                     "i437"
-                                                                     "i435"
-                                                                     "i433"
-                                                                     "i431"
-                                                                     "i429"
-                                                                     "i427"
-                                                                     "i425"
-                                                                     "i423"
-                                                                     "i421"
-                                                                     "i419"
-                                                                     "i417"
-                                                                     "i416"
-                                                                     "i415"
-                                                                     "i413"
-                                                                     "i412"
-                                                                     "i411"
-                                                                     "i410"
-                                                                     "i409"
-                                                                     "i407"
-                                                                     "i405"
-                                                                     "i403"
-                                                                     "i401"
-                                                                     "i399"
-                                                                     "i397"
-                                                                     "i395"
-                                                                     "i393"
-                                                                     "i390"
-                                                                     "i388"
-                                                                     "i387"
-                                                                     "i386"
-                                                                     "i385"
-                                                                     "i384"
-                                                                     "i383"
-                                                                     "i382"
-                                                                     "i381"
-                                                                     "i380"
-                                                                     "i378"
-                                                                     "i377"
-                                                                     "i375"
-                                                                     "i373"
-                                                                     "i371"
-                                                                     "i369"
-                                                                     "i367"
-                                                                     "i365"
-                                                                     "i363"
-                                                                     "i362"
-                                                                     "i361"
-                                                                     "i360"
-                                                                     "i359"
-                                                                     "i358"
-                                                                     "i356"
-                                                                     "i355"
-                                                                     "i353"
-                                                                     "i351"
-                                                                     "i349"
-                                                                     "i347"
-                                                                     "i345"
-                                                                     "i343"
-                                                                     "i341"
-                                                                     "i339"
-                                                                     "i337"
-                                                                     "i335"
-                                                                     "i333"
-                                                                     "i331"
-                                                                     "i329"
-                                                                     "i327"
-                                                                     "i325"
-                                                                     "i323"
-                                                                     "i321"
-                                                                     "i319"
-                                                                     "i317"
-                                                                     "i315"
-                                                                     "i313"
-                                                                     "i311"
-                                                                     "i309"
-                                                                     "i307"
-                                                                     "i305"
-                                                                     "i303"
-                                                                     "i301"
-                                                                     "i299"
-                                                                     "i297"
-                                                                     "i295"
-                                                                     "i293"
-                                                                     "i291"
-                                                                     "i290"
-                                                                     "i288"
-                                                                     "i286"
-                                                                     "i285"
-                                                                     "i284"
-                                                                     "i283"
-                                                                     "i282"
-                                                                     "i280"
-                                                                     "i278"
-                                                                     "i276"
-                                                                     "i273"
-                                                                     "i271"
-                                                                     "i269"
-                                                                     "i267"
-                                                                     "i265"
-                                                                     "i263"
-                                                                     "i261"
-                                                                     "i259"
-                                                                     "i257"
-                                                                     "i255"
-                                                                     "i253"
-                                                                     "i251"
-                                                                     "i249"
-                                                                     "i247"
-                                                                     "i245"
-                                                                     "i243"
-                                                                     "i241"
-                                                                     "i239"))
-                                                                  #(ribcage
-                                                                    
(define-structure
-                                                                      
define-expansion-accessors
-                                                                      
define-expansion-constructors
-                                                                      and-map*)
-                                                                    ((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                    ("i41"
-                                                                     "i40"
-                                                                     "i39"
-                                                                     "i37")))
-                                                                 (hygiene
-                                                                   guile))
-                                                               #(syntax-object
-                                                                 #f
-                                                                 ((top)
-                                                                  #(ribcage
-                                                                    #(name)
-                                                                    #((top))
-                                                                    #("i1893"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(ftype
-                                                                      fval
-                                                                      fe
-                                                                      fw
-                                                                      fs
-                                                                      fmod)
-                                                                    #((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                    #("i1833"
-                                                                      "i1834"
-                                                                      "i1835"
-                                                                      "i1836"
-                                                                      "i1837"
-                                                                      "i1838"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(first)
-                                                                    #((top))
-                                                                    #("i1825"))
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    ()
-                                                                    ()
-                                                                    ())
-                                                                  #(ribcage
-                                                                    #(e
-                                                                      r
-                                                                      w
-                                                                      s
-                                                                      rib
-                                                                      mod
-                                                                      for-car?)
-                                                                    #((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                    #("i1797"
-                                                                      "i1798"
-                                                                      "i1799"
-                                                                      "i1800"
-                                                                      "i1801"
-                                                                      "i1802"
-                                                                      "i1803"))
-                                                                  #(ribcage
-                                                                    
(lambda-var-list
-                                                                      gen-var
-                                                                      strip
-                                                                      
chi-lambda-case
-                                                                      
lambda*-formals
-                                                                      
chi-simple-lambda
-                                                                      
lambda-formals
-                                                                      ellipsis?
-                                                                      chi-void
-                                                                      
eval-local-transformer
-                                                                      
chi-local-syntax
-                                                                      chi-body
-                                                                      chi-macro
-                                                                      
chi-application
-                                                                      chi-expr
-                                                                      chi
-                                                                      
syntax-type
-                                                                      
chi-when-list
-                                                                      
chi-install-global
-                                                                      
chi-top-sequence
-                                                                      
chi-sequence
-                                                                      
source-wrap
-                                                                      wrap
-                                                                      
bound-id-member?
-                                                                      
distinct-bound-ids?
-                                                                      
valid-bound-ids?
-                                                                      
bound-id=?
-                                                                      free-id=?
-                                                                      
id-var-name
-                                                                      
same-marks?
-                                                                      
join-marks
-                                                                      
join-wraps
-                                                                      
smart-append
-                                                                      
make-binding-wrap
-                                                                      
extend-ribcage!
-                                                                      
make-empty-ribcage
-                                                                      new-mark
-                                                                      anti-mark
-                                                                      
the-anti-mark
-                                                                      
top-marked?
-                                                                      top-wrap
-                                                                      
empty-wrap
-                                                                      
set-ribcage-labels!
-                                                                      
set-ribcage-marks!
-                                                                      
set-ribcage-symnames!
-                                                                      
ribcage-labels
-                                                                      
ribcage-marks
-                                                                      
ribcage-symnames
-                                                                      ribcage?
-                                                                      
make-ribcage
-                                                                      
gen-labels
-                                                                      gen-label
-                                                                      
make-rename
-                                                                      
rename-marks
-                                                                      
rename-new
-                                                                      
rename-old
-                                                                      
subst-rename?
-                                                                      
wrap-subst
-                                                                      
wrap-marks
-                                                                      make-wrap
-                                                                      
id-sym-name&marks
-                                                                      
id-sym-name
-                                                                      id?
-                                                                      
nonsymbol-id?
-                                                                      
global-extend
-                                                                      lookup
-                                                                      
macros-only-env
-                                                                      
extend-var-env
-                                                                      
extend-env
-                                                                      null-env
-                                                                      
binding-value
-                                                                      
binding-type
-                                                                      
make-binding
-                                                                      arg-check
-                                                                      
source-annotation
-                                                                      no-source
-                                                                      
set-syntax-object-module!
-                                                                      
set-syntax-object-wrap!
-                                                                      
set-syntax-object-expression!
-                                                                      
syntax-object-module
-                                                                      
syntax-object-wrap
-                                                                      
syntax-object-expression
-                                                                      
syntax-object?
-                                                                      
make-syntax-object
-                                                                      
build-lexical-var
-                                                                      
build-letrec
-                                                                      
build-named-let
-                                                                      build-let
-                                                                      
build-sequence
-                                                                      
build-data
-                                                                      
build-primref
-                                                                      
build-lambda-case
-                                                                      
build-case-lambda
-                                                                      
build-simple-lambda
-                                                                      
build-global-definition
-                                                                      
build-global-assignment
-                                                                      
build-global-reference
-                                                                      
analyze-variable
-                                                                      
build-lexical-assignment
-                                                                      
build-lexical-reference
-                                                                      
build-dynlet
-                                                                      
build-conditional
-                                                                      
build-application
-                                                                      
build-void
-                                                                      
maybe-name-value!
-                                                                      
decorate-source
-                                                                      
get-global-definition-hook
-                                                                      
put-global-definition-hook
-                                                                      
gensym-hook
-                                                                      
local-eval-hook
-                                                                      
top-level-eval-hook
-                                                                      fx<
-                                                                      fx=
-                                                                      fx-
-                                                                      fx+
-                                                                      
set-lambda-meta!
-                                                                      
lambda-meta
-                                                                      lambda?
-                                                                      
make-dynlet
-                                                                      
make-letrec
-                                                                      make-let
-                                                                      
make-lambda-case
-                                                                      
make-lambda
-                                                                      
make-sequence
-                                                                      
make-application
-                                                                      
make-conditional
-                                                                      
make-toplevel-define
-                                                                      
make-toplevel-set
-                                                                      
make-toplevel-ref
-                                                                      
make-module-set
-                                                                      
make-module-ref
-                                                                      
make-lexical-set
-                                                                      
make-lexical-ref
-                                                                      
make-primitive-ref
-                                                                      
make-const
-                                                                      
make-void)
-                                                                    ((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                    ("i485"
-                                                                     "i483"
-                                                                     "i481"
-                                                                     "i479"
-                                                                     "i477"
-                                                                     "i475"
-                                                                     "i473"
-                                                                     "i471"
-                                                                     "i469"
-                                                                     "i467"
-                                                                     "i465"
-                                                                     "i463"
-                                                                     "i461"
-                                                                     "i459"
-                                                                     "i457"
-                                                                     "i455"
-                                                                     "i453"
-                                                                     "i451"
-                                                                     "i449"
-                                                                     "i447"
-                                                                     "i445"
-                                                                     "i443"
-                                                                     "i441"
-                                                                     "i439"
-                                                                     "i437"
-                                                                     "i435"
-                                                                     "i433"
-                                                                     "i431"
-                                                                     "i429"
-                                                                     "i427"
-                                                                     "i425"
-                                                                     "i423"
-                                                                     "i421"
-                                                                     "i419"
-                                                                     "i417"
-                                                                     "i416"
-                                                                     "i415"
-                                                                     "i413"
-                                                                     "i412"
-                                                                     "i411"
-                                                                     "i410"
-                                                                     "i409"
-                                                                     "i407"
-                                                                     "i405"
-                                                                     "i403"
-                                                                     "i401"
-                                                                     "i399"
-                                                                     "i397"
-                                                                     "i395"
-                                                                     "i393"
-                                                                     "i390"
-                                                                     "i388"
-                                                                     "i387"
-                                                                     "i386"
-                                                                     "i385"
-                                                                     "i384"
-                                                                     "i383"
-                                                                     "i382"
-                                                                     "i381"
-                                                                     "i380"
-                                                                     "i378"
-                                                                     "i377"
-                                                                     "i375"
-                                                                     "i373"
-                                                                     "i371"
-                                                                     "i369"
-                                                                     "i367"
-                                                                     "i365"
-                                                                     "i363"
-                                                                     "i362"
-                                                                     "i361"
-                                                                     "i360"
-                                                                     "i359"
-                                                                     "i358"
-                                                                     "i356"
-                                                                     "i355"
-                                                                     "i353"
-                                                                     "i351"
-                                                                     "i349"
-                                                                     "i347"
-                                                                     "i345"
-                                                                     "i343"
-                                                                     "i341"
-                                                                     "i339"
-                                                                     "i337"
-                                                                     "i335"
-                                                                     "i333"
-                                                                     "i331"
-                                                                     "i329"
-                                                                     "i327"
-                                                                     "i325"
-                                                                     "i323"
-                                                                     "i321"
-                                                                     "i319"
-                                                                     "i317"
-                                                                     "i315"
-                                                                     "i313"
-                                                                     "i311"
-                                                                     "i309"
-                                                                     "i307"
-                                                                     "i305"
-                                                                     "i303"
-                                                                     "i301"
-                                                                     "i299"
-                                                                     "i297"
-                                                                     "i295"
-                                                                     "i293"
-                                                                     "i291"
-                                                                     "i290"
-                                                                     "i288"
-                                                                     "i286"
-                                                                     "i285"
-                                                                     "i284"
-                                                                     "i283"
-                                                                     "i282"
-                                                                     "i280"
-                                                                     "i278"
-                                                                     "i276"
-                                                                     "i273"
-                                                                     "i271"
-                                                                     "i269"
-                                                                     "i267"
-                                                                     "i265"
-                                                                     "i263"
-                                                                     "i261"
-                                                                     "i259"
-                                                                     "i257"
-                                                                     "i255"
-                                                                     "i253"
-                                                                     "i251"
-                                                                     "i249"
-                                                                     "i247"
-                                                                     "i245"
-                                                                     "i243"
-                                                                     "i241"
-                                                                     "i239"))
-                                                                  #(ribcage
-                                                                    
(define-structure
-                                                                      
define-expansion-accessors
-                                                                      
define-expansion-constructors
-                                                                      and-map*)
-                                                                    ((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                    ("i41"
-                                                                     "i40"
-                                                                     "i39"
-                                                                     "i37")))
-                                                                 (hygiene
-                                                                   guile)))
-                                                             '(())
-                                                             #{s 1793}#
-                                                             #{mod 1795}#))
-                                                         #{tmp 1890}#)
-                                                       (syntax-violation
-                                                         #f
-                                                         "source expression 
failed to match any pattern"
-                                                         #{tmp 1859}#))))))))
-                                         (if (eqv? #{ftype 1827}#
-                                                   'define-syntax)
-                                           (let ((#{tmp 1897}# #{e 1790}#))
-                                             (let ((#{tmp 1898}#
-                                                     ($sc-dispatch
-                                                       #{tmp 1897}#
-                                                       '(_ any any))))
-                                               (if (if #{tmp 1898}#
-                                                     (@apply
-                                                       (lambda (#{name 1901}#
-                                                                #{val 1902}#)
-                                                         (#{id? 376}#
-                                                           #{name 1901}#))
-                                                       #{tmp 1898}#)
-                                                     #f)
-                                                 (@apply
-                                                   (lambda (#{name 1905}#
-                                                            #{val 1906}#)
-                                                     (values
-                                                       'define-syntax-form
-                                                       #{name 1905}#
-                                                       #{val 1906}#
-                                                       #{w 1792}#
-                                                       #{s 1793}#
-                                                       #{mod 1795}#))
-                                                   #{tmp 1898}#)
-                                                 (syntax-violation
-                                                   #f
-                                                   "source expression failed 
to match any pattern"
-                                                   #{tmp 1897}#))))
-                                           (values
-                                             'call
-                                             #f
-                                             #{e 1790}#
-                                             #{w 1792}#
-                                             #{s 1793}#
-                                             #{mod 1795}#)))))))))))))))
-               (if (#{syntax-object? 342}# #{e 1790}#)
-                 (#{syntax-type 454}#
-                   (#{syntax-object-expression 344}# #{e 1790}#)
-                   #{r 1791}#
-                   (#{join-wraps 424}#
-                     #{w 1792}#
-                     (#{syntax-object-wrap 346}# #{e 1790}#))
-                   (begin
-                     (let ((#{t 1912}#
-                             (#{source-annotation 357}# #{e 1790}#)))
-                       (if #{t 1912}# #{t 1912}# #{s 1793}#)))
-                   #{rib 1794}#
-                   (begin
-                     (let ((#{t 1916}#
-                             (#{syntax-object-module 348}# #{e 1790}#)))
-                       (if #{t 1916}# #{t 1916}# #{mod 1795}#)))
-                   #{for-car? 1796}#)
-                 (if (self-evaluating? #{e 1790}#)
-                   (values
-                     'constant
-                     #f
-                     #{e 1790}#
-                     #{w 1792}#
-                     #{s 1793}#
-                     #{mod 1795}#)
-                   (values
-                     'other
-                     #f
-                     #{e 1790}#
-                     #{w 1792}#
-                     #{s 1793}#
-                     #{mod 1795}#)))))))
-       (#{chi 456}#
-         (lambda (#{e 1921}# #{r 1922}# #{w 1923}# #{mod 1924}#)
-           (call-with-values
-             (lambda ()
-               (#{syntax-type 454}#
-                 #{e 1921}#
-                 #{r 1922}#
-                 #{w 1923}#
-                 (#{source-annotation 357}# #{e 1921}#)
-                 #f
-                 #{mod 1924}#
-                 #f))
-             (lambda (#{type 1929}#
-                      #{value 1930}#
-                      #{e 1931}#
-                      #{w 1932}#
-                      #{s 1933}#
-                      #{mod 1934}#)
-               (#{chi-expr 458}#
-                 #{type 1929}#
-                 #{value 1930}#
-                 #{e 1931}#
-                 #{r 1922}#
-                 #{w 1932}#
-                 #{s 1933}#
-                 #{mod 1934}#)))))
-       (#{chi-expr 458}#
-         (lambda (#{type 1941}#
-                  #{value 1942}#
-                  #{e 1943}#
-                  #{r 1944}#
-                  #{w 1945}#
-                  #{s 1946}#
-                  #{mod 1947}#)
-           (if (eqv? #{type 1941}# 'lexical)
-             (#{build-lexical-reference 308}#
-               'value
-               #{s 1946}#
-               #{e 1943}#
-               #{value 1942}#)
-             (if (if (eqv? #{type 1941}# 'core)
-                   #t
-                   (eqv? #{type 1941}# 'core-form))
-               (#{value 1942}#
-                 #{e 1943}#
-                 #{r 1944}#
-                 #{w 1945}#
-                 #{s 1946}#
-                 #{mod 1947}#)
-               (if (eqv? #{type 1941}# 'module-ref)
-                 (call-with-values
-                   (lambda ()
-                     (#{value 1942}# #{e 1943}# #{r 1944}# #{w 1945}#))
-                   (lambda (#{e 1958}#
-                            #{r 1959}#
-                            #{w 1960}#
-                            #{s 1961}#
-                            #{mod 1962}#)
-                     (#{chi 456}#
-                       #{e 1958}#
-                       #{r 1959}#
-                       #{w 1960}#
-                       #{mod 1962}#)))
-                 (if (eqv? #{type 1941}# 'lexical-call)
-                   (#{chi-application 460}#
-                     (begin
-                       (let ((#{id 1970}# (car #{e 1943}#)))
-                         (#{build-lexical-reference 308}#
-                           'fun
-                           (#{source-annotation 357}# #{id 1970}#)
-                           (if (#{syntax-object? 342}# #{id 1970}#)
-                             (syntax->datum #{id 1970}#)
-                             #{id 1970}#)
-                           #{value 1942}#)))
-                     #{e 1943}#
-                     #{r 1944}#
-                     #{w 1945}#
-                     #{s 1946}#
-                     #{mod 1947}#)
-                   (if (eqv? #{type 1941}# 'global-call)
-                     (#{chi-application 460}#
-                       (#{build-global-reference 314}#
-                         (#{source-annotation 357}# (car #{e 1943}#))
-                         (if (#{syntax-object? 342}# #{value 1942}#)
-                           (#{syntax-object-expression 344}# #{value 1942}#)
-                           #{value 1942}#)
-                         (if (#{syntax-object? 342}# #{value 1942}#)
-                           (#{syntax-object-module 348}# #{value 1942}#)
-                           #{mod 1947}#))
-                       #{e 1943}#
-                       #{r 1944}#
-                       #{w 1945}#
-                       #{s 1946}#
-                       #{mod 1947}#)
-                     (if (eqv? #{type 1941}# 'constant)
-                       (#{build-data 328}#
-                         #{s 1946}#
-                         (#{strip 482}#
-                           (#{source-wrap 444}#
-                             #{e 1943}#
-                             #{w 1945}#
-                             #{s 1946}#
-                             #{mod 1947}#)
-                           '(())))
-                       (if (eqv? #{type 1941}# 'global)
-                         (#{build-global-reference 314}#
-                           #{s 1946}#
-                           #{value 1942}#
-                           #{mod 1947}#)
-                         (if (eqv? #{type 1941}# 'call)
-                           (#{chi-application 460}#
-                             (#{chi 456}#
-                               (car #{e 1943}#)
-                               #{r 1944}#
-                               #{w 1945}#
-                               #{mod 1947}#)
-                             #{e 1943}#
-                             #{r 1944}#
-                             #{w 1945}#
-                             #{s 1946}#
-                             #{mod 1947}#)
-                           (if (eqv? #{type 1941}# 'begin-form)
-                             (let ((#{tmp 1977}# #{e 1943}#))
-                               (let ((#{tmp 1978}#
-                                       ($sc-dispatch
-                                         #{tmp 1977}#
-                                         '(_ any . each-any))))
-                                 (if #{tmp 1978}#
-                                   (@apply
-                                     (lambda (#{e1 1981}# #{e2 1982}#)
-                                       (#{chi-sequence 446}#
-                                         (cons #{e1 1981}# #{e2 1982}#)
-                                         #{r 1944}#
-                                         #{w 1945}#
-                                         #{s 1946}#
-                                         #{mod 1947}#))
-                                     #{tmp 1978}#)
-                                   (syntax-violation
-                                     #f
-                                     "source expression failed to match any 
pattern"
-                                     #{tmp 1977}#))))
-                             (if (eqv? #{type 1941}# 'local-syntax-form)
-                               (#{chi-local-syntax 466}#
-                                 #{value 1942}#
-                                 #{e 1943}#
-                                 #{r 1944}#
-                                 #{w 1945}#
-                                 #{s 1946}#
-                                 #{mod 1947}#
-                                 #{chi-sequence 446}#)
-                               (if (eqv? #{type 1941}# 'eval-when-form)
-                                 (let ((#{tmp 1986}# #{e 1943}#))
-                                   (let ((#{tmp 1987}#
-                                           ($sc-dispatch
-                                             #{tmp 1986}#
-                                             '(_ each-any any . each-any))))
-                                     (if #{tmp 1987}#
-                                       (@apply
-                                         (lambda (#{x 1991}#
-                                                  #{e1 1992}#
-                                                  #{e2 1993}#)
-                                           (begin
-                                             (let ((#{when-list 1995}#
-                                                     (#{chi-when-list 452}#
-                                                       #{e 1943}#
-                                                       #{x 1991}#
-                                                       #{w 1945}#)))
-                                               (if (memq 'eval
-                                                         #{when-list 1995}#)
-                                                 (#{chi-sequence 446}#
-                                                   (cons #{e1 1992}#
-                                                         #{e2 1993}#)
-                                                   #{r 1944}#
-                                                   #{w 1945}#
-                                                   #{s 1946}#
-                                                   #{mod 1947}#)
-                                                 (#{chi-void 470}#)))))
-                                         #{tmp 1987}#)
-                                       (syntax-violation
-                                         #f
-                                         "source expression failed to match 
any pattern"
-                                         #{tmp 1986}#))))
-                                 (if (if (eqv? #{type 1941}# 'define-form)
-                                       #t
-                                       (eqv? #{type 1941}#
-                                             'define-syntax-form))
-                                   (syntax-violation
-                                     #f
-                                     "definition in expression context"
-                                     #{e 1943}#
-                                     (#{wrap 442}#
-                                       #{value 1942}#
-                                       #{w 1945}#
-                                       #{mod 1947}#))
-                                   (if (eqv? #{type 1941}# 'syntax)
-                                     (syntax-violation
-                                       #f
-                                       "reference to pattern variable outside 
syntax form"
-                                       (#{source-wrap 444}#
-                                         #{e 1943}#
-                                         #{w 1945}#
-                                         #{s 1946}#
-                                         #{mod 1947}#))
-                                     (if (eqv? #{type 1941}#
-                                               'displaced-lexical)
-                                       (syntax-violation
-                                         #f
-                                         "reference to identifier outside its 
scope"
-                                         (#{source-wrap 444}#
-                                           #{e 1943}#
-                                           #{w 1945}#
-                                           #{s 1946}#
-                                           #{mod 1947}#))
-                                       (syntax-violation
-                                         #f
-                                         "unexpected syntax"
-                                         (#{source-wrap 444}#
-                                           #{e 1943}#
-                                           #{w 1945}#
-                                           #{s 1946}#
-                                           #{mod 1947}#))))))))))))))))))
-       (#{chi-application 460}#
-         (lambda (#{x 2002}#
-                  #{e 2003}#
-                  #{r 2004}#
-                  #{w 2005}#
-                  #{s 2006}#
-                  #{mod 2007}#)
-           (let ((#{tmp 2014}# #{e 2003}#))
-             (let ((#{tmp 2015}#
-                     ($sc-dispatch #{tmp 2014}# '(any . each-any))))
-               (if #{tmp 2015}#
-                 (@apply
-                   (lambda (#{e0 2018}# #{e1 2019}#)
-                     (#{build-application 302}#
-                       #{s 2006}#
-                       #{x 2002}#
-                       (map (lambda (#{e 2020}#)
-                              (#{chi 456}#
-                                #{e 2020}#
-                                #{r 2004}#
-                                #{w 2005}#
-                                #{mod 2007}#))
-                            #{e1 2019}#)))
-                   #{tmp 2015}#)
-                 (syntax-violation
-                   #f
-                   "source expression failed to match any pattern"
-                   #{tmp 2014}#))))))
-       (#{chi-macro 462}#
-         (lambda (#{p 2023}#
-                  #{e 2024}#
-                  #{r 2025}#
-                  #{w 2026}#
-                  #{s 2027}#
-                  #{rib 2028}#
-                  #{mod 2029}#)
-           (letrec*
-             ((#{rebuild-macro-output 2038}#
-                (lambda (#{x 2039}# #{m 2040}#)
-                  (if (pair? #{x 2039}#)
-                    (#{decorate-source 296}#
-                      (cons (#{rebuild-macro-output 2038}#
-                              (car #{x 2039}#)
-                              #{m 2040}#)
-                            (#{rebuild-macro-output 2038}#
-                              (cdr #{x 2039}#)
-                              #{m 2040}#))
-                      #{s 2027}#)
-                    (if (#{syntax-object? 342}# #{x 2039}#)
-                      (begin
-                        (let ((#{w 2048}#
-                                (#{syntax-object-wrap 346}# #{x 2039}#)))
-                          (begin
-                            (let ((#{ms 2051}# (car #{w 2048}#))
-                                  (#{s 2052}# (cdr #{w 2048}#)))
-                              (if (if (pair? #{ms 2051}#)
-                                    (eq? (car #{ms 2051}#) #f)
-                                    #f)
-                                (#{make-syntax-object 340}#
-                                  (#{syntax-object-expression 344}# #{x 2039}#)
-                                  (cons (cdr #{ms 2051}#)
-                                        (if #{rib 2028}#
-                                          (cons #{rib 2028}# (cdr #{s 2052}#))
-                                          (cdr #{s 2052}#)))
-                                  (#{syntax-object-module 348}# #{x 2039}#))
-                                (#{make-syntax-object 340}#
-                                  (#{decorate-source 296}#
-                                    (#{syntax-object-expression 344}#
-                                      #{x 2039}#)
-                                    #{s 2052}#)
-                                  (cons (cons #{m 2040}# #{ms 2051}#)
-                                        (if #{rib 2028}#
-                                          (cons #{rib 2028}#
-                                                (cons 'shift #{s 2052}#))
-                                          (cons 'shift #{s 2052}#)))
-                                  (#{syntax-object-module 348}#
-                                    #{x 2039}#)))))))
-                      (if (vector? #{x 2039}#)
-                        (begin
-                          (let ((#{n 2064}# (vector-length #{x 2039}#)))
-                            (begin
-                              (let ((#{v 2066}#
-                                      (#{decorate-source 296}#
-                                        (make-vector #{n 2064}#)
-                                        #{x 2039}#)))
-                                (letrec*
-                                  ((#{loop 2069}#
-                                     (lambda (#{i 2070}#)
-                                       (if (= #{i 2070}# #{n 2064}#)
-                                         (begin (if #f #f) #{v 2066}#)
-                                         (begin
-                                           (vector-set!
-                                             #{v 2066}#
-                                             #{i 2070}#
-                                             (#{rebuild-macro-output 2038}#
-                                               (vector-ref
-                                                 #{x 2039}#
-                                                 #{i 2070}#)
-                                               #{m 2040}#))
-                                           (#{loop 2069}#
-                                             (#{1+}# #{i 2070}#)))))))
-                                  (begin (#{loop 2069}# 0)))))))
-                        (if (symbol? #{x 2039}#)
-                          (syntax-violation
-                            #f
-                            "encountered raw symbol in macro output"
-                            (#{source-wrap 444}#
-                              #{e 2024}#
-                              #{w 2026}#
-                              (cdr #{w 2026}#)
-                              #{mod 2029}#)
-                            #{x 2039}#)
-                          (#{decorate-source 296}#
-                            #{x 2039}#
-                            #{s 2027}#))))))))
-             (begin
-               (#{rebuild-macro-output 2038}#
-                 (#{p 2023}#
-                   (#{source-wrap 444}#
-                     #{e 2024}#
-                     (#{anti-mark 414}# #{w 2026}#)
-                     #{s 2027}#
-                     #{mod 2029}#))
-                 (gensym "m"))))))
-       (#{chi-body 464}#
-         (lambda (#{body 2080}#
-                  #{outer-form 2081}#
-                  #{r 2082}#
-                  #{w 2083}#
-                  #{mod 2084}#)
-           (begin
-             (let ((#{r 2092}#
-                     (cons '("placeholder" placeholder) #{r 2082}#)))
-               (begin
-                 (let ((#{ribcage 2094}#
-                         (#{make-ribcage 394}# '() '() '())))
-                   (begin
-                     (let ((#{w 2097}#
-                             (cons (car #{w 2083}#)
-                                   (cons #{ribcage 2094}# (cdr #{w 2083}#)))))
-                       (letrec*
-                         ((#{parse 2109}#
-                            (lambda (#{body 2110}#
-                                     #{ids 2111}#
-                                     #{labels 2112}#
-                                     #{var-ids 2113}#
-                                     #{vars 2114}#
-                                     #{vals 2115}#
-                                     #{bindings 2116}#)
-                              (if (null? #{body 2110}#)
-                                (syntax-violation
-                                  #f
-                                  "no expressions in body"
-                                  #{outer-form 2081}#)
-                                (begin
-                                  (let ((#{e 2121}# (cdr (car #{body 2110}#)))
-                                        (#{er 2122}#
-                                          (car (car #{body 2110}#))))
-                                    (call-with-values
-                                      (lambda ()
-                                        (#{syntax-type 454}#
-                                          #{e 2121}#
-                                          #{er 2122}#
-                                          '(())
-                                          (#{source-annotation 357}#
-                                            #{er 2122}#)
-                                          #{ribcage 2094}#
-                                          #{mod 2084}#
-                                          #f))
-                                      (lambda (#{type 2124}#
-                                               #{value 2125}#
-                                               #{e 2126}#
-                                               #{w 2127}#
-                                               #{s 2128}#
-                                               #{mod 2129}#)
-                                        (if (eqv? #{type 2124}# 'define-form)
-                                          (begin
-                                            (let ((#{id 2139}#
-                                                    (#{wrap 442}#
-                                                      #{value 2125}#
-                                                      #{w 2127}#
-                                                      #{mod 2129}#))
-                                                  (#{label 2140}#
-                                                    (#{gen-label 389}#)))
-                                              (begin
-                                                (let ((#{var 2142}#
-                                                        (#{gen-var 484}#
-                                                          #{id 2139}#)))
-                                                  (begin
-                                                    (#{extend-ribcage! 418}#
-                                                      #{ribcage 2094}#
-                                                      #{id 2139}#
-                                                      #{label 2140}#)
-                                                    (#{parse 2109}#
-                                                      (cdr #{body 2110}#)
-                                                      (cons #{id 2139}#
-                                                            #{ids 2111}#)
-                                                      (cons #{label 2140}#
-                                                            #{labels 2112}#)
-                                                      (cons #{id 2139}#
-                                                            #{var-ids 2113}#)
-                                                      (cons #{var 2142}#
-                                                            #{vars 2114}#)
-                                                      (cons (cons #{er 2122}#
-                                                                  (#{wrap 442}#
-                                                                    #{e 2126}#
-                                                                    #{w 2127}#
-                                                                    #{mod 
2129}#))
-                                                            #{vals 2115}#)
-                                                      (cons (cons 'lexical
-                                                                  #{var 2142}#)
-                                                            #{bindings 
2116}#)))))))
-                                          (if (eqv? #{type 2124}#
-                                                    'define-syntax-form)
-                                            (begin
-                                              (let ((#{id 2147}#
-                                                      (#{wrap 442}#
-                                                        #{value 2125}#
-                                                        #{w 2127}#
-                                                        #{mod 2129}#))
-                                                    (#{label 2148}#
-                                                      (#{gen-label 389}#)))
-                                                (begin
-                                                  (#{extend-ribcage! 418}#
-                                                    #{ribcage 2094}#
-                                                    #{id 2147}#
-                                                    #{label 2148}#)
-                                                  (#{parse 2109}#
-                                                    (cdr #{body 2110}#)
-                                                    (cons #{id 2147}#
-                                                          #{ids 2111}#)
-                                                    (cons #{label 2148}#
-                                                          #{labels 2112}#)
-                                                    #{var-ids 2113}#
-                                                    #{vars 2114}#
-                                                    #{vals 2115}#
-                                                    (cons (cons 'macro
-                                                                (cons #{er 
2122}#
-                                                                      (#{wrap 
442}#
-                                                                        #{e 
2126}#
-                                                                        #{w 
2127}#
-                                                                        #{mod 
2129}#)))
-                                                          #{bindings 
2116}#)))))
-                                            (if (eqv? #{type 2124}#
-                                                      'begin-form)
-                                              (let ((#{tmp 2151}# #{e 2126}#))
-                                                (let ((#{tmp 2152}#
-                                                        ($sc-dispatch
-                                                          #{tmp 2151}#
-                                                          '(_ . each-any))))
-                                                  (if #{tmp 2152}#
-                                                    (@apply
-                                                      (lambda (#{e1 2154}#)
-                                                        (#{parse 2109}#
-                                                          (letrec*
-                                                            ((#{f 2157}#
-                                                               (lambda 
(#{forms 2158}#)
-                                                                 (if (null? 
#{forms 2158}#)
-                                                                   (cdr #{body 
2110}#)
-                                                                   (cons (cons 
#{er 2122}#
-                                                                               
(#{wrap 442}#
-                                                                               
  (car #{forms 2158}#)
-                                                                               
  #{w 2127}#
-                                                                               
  #{mod 2129}#))
-                                                                         (#{f 
2157}#
-                                                                           
(cdr #{forms 2158}#)))))))
-                                                            (begin
-                                                              (#{f 2157}#
-                                                                #{e1 2154}#)))
-                                                          #{ids 2111}#
-                                                          #{labels 2112}#
-                                                          #{var-ids 2113}#
-                                                          #{vars 2114}#
-                                                          #{vals 2115}#
-                                                          #{bindings 2116}#))
-                                                      #{tmp 2152}#)
-                                                    (syntax-violation
-                                                      #f
-                                                      "source expression 
failed to match any pattern"
-                                                      #{tmp 2151}#))))
-                                              (if (eqv? #{type 2124}#
-                                                        'local-syntax-form)
-                                                (#{chi-local-syntax 466}#
-                                                  #{value 2125}#
-                                                  #{e 2126}#
-                                                  #{er 2122}#
-                                                  #{w 2127}#
-                                                  #{s 2128}#
-                                                  #{mod 2129}#
-                                                  (lambda (#{forms 2161}#
-                                                           #{er 2162}#
-                                                           #{w 2163}#
-                                                           #{s 2164}#
-                                                           #{mod 2165}#)
-                                                    (#{parse 2109}#
-                                                      (letrec*
-                                                        ((#{f 2173}#
-                                                           (lambda (#{forms 
2174}#)
-                                                             (if (null? 
#{forms 2174}#)
-                                                               (cdr #{body 
2110}#)
-                                                               (cons (cons 
#{er 2162}#
-                                                                           
(#{wrap 442}#
-                                                                             
(car #{forms 2174}#)
-                                                                             
#{w 2163}#
-                                                                             
#{mod 2165}#))
-                                                                     (#{f 
2173}#
-                                                                       (cdr 
#{forms 2174}#)))))))
-                                                        (begin
-                                                          (#{f 2173}#
-                                                            #{forms 2161}#)))
-                                                      #{ids 2111}#
-                                                      #{labels 2112}#
-                                                      #{var-ids 2113}#
-                                                      #{vars 2114}#
-                                                      #{vals 2115}#
-                                                      #{bindings 2116}#)))
-                                                (if (null? #{ids 2111}#)
-                                                  (#{build-sequence 330}#
-                                                    #f
-                                                    (map (lambda (#{x 2177}#)
-                                                           (#{chi 456}#
-                                                             (cdr #{x 2177}#)
-                                                             (car #{x 2177}#)
-                                                             '(())
-                                                             #{mod 2129}#))
-                                                         (cons (cons #{er 
2122}#
-                                                                     
(#{source-wrap 444}#
-                                                                       #{e 
2126}#
-                                                                       #{w 
2127}#
-                                                                       #{s 
2128}#
-                                                                       #{mod 
2129}#))
-                                                               (cdr #{body 
2110}#))))
-                                                  (begin
-                                                    (if (not 
(#{valid-bound-ids? 436}#
-                                                               #{ids 2111}#))
-                                                      (syntax-violation
-                                                        #f
-                                                        "invalid or duplicate 
identifier in definition"
-                                                        #{outer-form 2081}#))
-                                                    (letrec*
-                                                      ((#{loop 2184}#
-                                                         (lambda (#{bs 2185}#
-                                                                  #{er-cache 
2186}#
-                                                                  #{r-cache 
2187}#)
-                                                           (if (not (null? 
#{bs 2185}#))
-                                                             (begin
-                                                               (let ((#{b 
2190}#
-                                                                       (car 
#{bs 2185}#)))
-                                                                 (if (eq? (car 
#{b 2190}#)
-                                                                          
'macro)
-                                                                   (begin
-                                                                     (let 
((#{er 2193}#
-                                                                             
(car (cdr #{b 2190}#))))
-                                                                       (begin
-                                                                         (let 
((#{r-cache 2195}#
-                                                                               
  (if (eq? #{er 2193}#
-                                                                               
           #{er-cache 2186}#)
-                                                                               
    #{r-cache 2187}#
-                                                                               
    (#{macros-only-env 368}#
-                                                                               
      #{er 2193}#))))
-                                                                           
(begin
-                                                                             
(set-cdr!
-                                                                               
#{b 2190}#
-                                                                               
(#{eval-local-transformer 468}#
-                                                                               
  (#{chi 456}#
-                                                                               
    (cdr (cdr #{b 2190}#))
-                                                                               
    #{r-cache 2195}#
-                                                                               
    '(())
-                                                                               
    #{mod 2129}#)
-                                                                               
  #{mod 2129}#))
-                                                                             
(#{loop 2184}#
-                                                                               
(cdr #{bs 2185}#)
-                                                                               
#{er 2193}#
-                                                                               
#{r-cache 2195}#))))))
-                                                                   (#{loop 
2184}#
-                                                                     (cdr #{bs 
2185}#)
-                                                                     
#{er-cache 2186}#
-                                                                     #{r-cache 
2187}#))))))))
-                                                      (begin
-                                                        (#{loop 2184}#
-                                                          #{bindings 2116}#
-                                                          #f
-                                                          #f)))
-                                                    (set-cdr!
-                                                      #{r 2092}#
-                                                      (#{extend-env 364}#
-                                                        #{labels 2112}#
-                                                        #{bindings 2116}#
-                                                        (cdr #{r 2092}#)))
-                                                    (#{build-letrec 336}#
-                                                      #f
-                                                      #t
-                                                      (reverse
-                                                        (map syntax->datum
-                                                             #{var-ids 2113}#))
-                                                      (reverse #{vars 2114}#)
-                                                      (map (lambda (#{x 2198}#)
-                                                             (#{chi 456}#
-                                                               (cdr #{x 2198}#)
-                                                               (car #{x 2198}#)
-                                                               '(())
-                                                               #{mod 2129}#))
-                                                           (reverse
-                                                             #{vals 2115}#))
-                                                      (#{build-sequence 330}#
-                                                        #f
-                                                        (map (lambda (#{x 
2202}#)
-                                                               (#{chi 456}#
-                                                                 (cdr #{x 
2202}#)
-                                                                 (car #{x 
2202}#)
-                                                                 '(())
-                                                                 #{mod 2129}#))
-                                                             (cons (cons #{er 
2122}#
-                                                                         
(#{source-wrap 444}#
-                                                                           #{e 
2126}#
-                                                                           #{w 
2127}#
-                                                                           #{s 
2128}#
-                                                                           
#{mod 2129}#))
-                                                                   (cdr #{body 
2110}#)))))))))))))))))))
-                         (begin
-                           (#{parse 2109}#
-                             (map (lambda (#{x 2117}#)
-                                    (cons #{r 2092}#
-                                          (#{wrap 442}#
-                                            #{x 2117}#
-                                            #{w 2097}#
-                                            #{mod 2084}#)))
-                                  #{body 2080}#)
-                             '()
-                             '()
-                             '()
-                             '()
-                             '()
-                             '())))))))))))
-       (#{chi-local-syntax 466}#
-         (lambda (#{rec? 2205}#
-                  #{e 2206}#
-                  #{r 2207}#
-                  #{w 2208}#
-                  #{s 2209}#
-                  #{mod 2210}#
-                  #{k 2211}#)
-           (let ((#{tmp 2219}# #{e 2206}#))
-             (let ((#{tmp 2220}#
-                     ($sc-dispatch
-                       #{tmp 2219}#
-                       '(_ #(each (any any)) any . each-any))))
-               (if #{tmp 2220}#
-                 (@apply
-                   (lambda (#{id 2225}#
-                            #{val 2226}#
-                            #{e1 2227}#
-                            #{e2 2228}#)
-                     (begin
-                       (let ((#{ids 2230}# #{id 2225}#))
-                         (if (not (#{valid-bound-ids? 436}# #{ids 2230}#))
-                           (syntax-violation
-                             #f
-                             "duplicate bound keyword"
-                             #{e 2206}#)
-                           (begin
-                             (let ((#{labels 2233}#
-                                     (#{gen-labels 391}# #{ids 2230}#)))
-                               (begin
-                                 (let ((#{new-w 2235}#
-                                         (#{make-binding-wrap 420}#
-                                           #{ids 2230}#
-                                           #{labels 2233}#
-                                           #{w 2208}#)))
-                                   (#{k 2211}#
-                                     (cons #{e1 2227}# #{e2 2228}#)
-                                     (#{extend-env 364}#
-                                       #{labels 2233}#
-                                       (begin
-                                         (let ((#{w 2239}#
-                                                 (if #{rec? 2205}#
-                                                   #{new-w 2235}#
-                                                   #{w 2208}#))
-                                               (#{trans-r 2240}#
-                                                 (#{macros-only-env 368}#
-                                                   #{r 2207}#)))
-                                           (map (lambda (#{x 2241}#)
-                                                  (cons 'macro
-                                                        
(#{eval-local-transformer 468}#
-                                                          (#{chi 456}#
-                                                            #{x 2241}#
-                                                            #{trans-r 2240}#
-                                                            #{w 2239}#
-                                                            #{mod 2210}#)
-                                                          #{mod 2210}#)))
-                                                #{val 2226}#)))
-                                       #{r 2207}#)
-                                     #{new-w 2235}#
-                                     #{s 2209}#
-                                     #{mod 2210}#)))))))))
-                   #{tmp 2220}#)
-                 (let ((#{_ 2246}# #{tmp 2219}#))
-                   (syntax-violation
-                     #f
-                     "bad local syntax definition"
-                     (#{source-wrap 444}#
-                       #{e 2206}#
-                       #{w 2208}#
-                       #{s 2209}#
-                       #{mod 2210}#))))))))
-       (#{eval-local-transformer 468}#
-         (lambda (#{expanded 2247}# #{mod 2248}#)
-           (begin
-             (let ((#{p 2252}#
-                     (#{local-eval-hook 289}#
-                       #{expanded 2247}#
-                       #{mod 2248}#)))
-               (if (procedure? #{p 2252}#)
-                 #{p 2252}#
-                 (syntax-violation
-                   #f
-                   "nonprocedure transformer"
-                   #{p 2252}#))))))
-       (#{chi-void 470}#
-         (lambda () (#{build-void 300}# #f)))
-       (#{ellipsis? 472}#
-         (lambda (#{x 2254}#)
-           (if (#{nonsymbol-id? 374}# #{x 2254}#)
-             (#{free-id=? 432}#
-               #{x 2254}#
-               '#(syntax-object
-                  ...
-                  ((top)
-                   #(ribcage () () ())
-                   #(ribcage () () ())
-                   #(ribcage #(x) #((top)) #("i2255"))
-                   #(ribcage
-                     (lambda-var-list
-                       gen-var
-                       strip
-                       chi-lambda-case
-                       lambda*-formals
-                       chi-simple-lambda
-                       lambda-formals
-                       ellipsis?
-                       chi-void
-                       eval-local-transformer
-                       chi-local-syntax
-                       chi-body
-                       chi-macro
-                       chi-application
-                       chi-expr
-                       chi
-                       syntax-type
-                       chi-when-list
-                       chi-install-global
-                       chi-top-sequence
-                       chi-sequence
-                       source-wrap
-                       wrap
-                       bound-id-member?
-                       distinct-bound-ids?
-                       valid-bound-ids?
-                       bound-id=?
-                       free-id=?
-                       id-var-name
-                       same-marks?
-                       join-marks
-                       join-wraps
-                       smart-append
-                       make-binding-wrap
-                       extend-ribcage!
-                       make-empty-ribcage
-                       new-mark
-                       anti-mark
-                       the-anti-mark
-                       top-marked?
-                       top-wrap
-                       empty-wrap
-                       set-ribcage-labels!
-                       set-ribcage-marks!
-                       set-ribcage-symnames!
-                       ribcage-labels
-                       ribcage-marks
-                       ribcage-symnames
-                       ribcage?
-                       make-ribcage
-                       gen-labels
-                       gen-label
-                       make-rename
-                       rename-marks
-                       rename-new
-                       rename-old
-                       subst-rename?
-                       wrap-subst
-                       wrap-marks
-                       make-wrap
-                       id-sym-name&marks
-                       id-sym-name
-                       id?
-                       nonsymbol-id?
-                       global-extend
-                       lookup
-                       macros-only-env
-                       extend-var-env
-                       extend-env
-                       null-env
-                       binding-value
-                       binding-type
-                       make-binding
-                       arg-check
-                       source-annotation
-                       no-source
-                       set-syntax-object-module!
-                       set-syntax-object-wrap!
-                       set-syntax-object-expression!
-                       syntax-object-module
-                       syntax-object-wrap
-                       syntax-object-expression
-                       syntax-object?
-                       make-syntax-object
-                       build-lexical-var
-                       build-letrec
-                       build-named-let
-                       build-let
-                       build-sequence
-                       build-data
-                       build-primref
-                       build-lambda-case
-                       build-case-lambda
-                       build-simple-lambda
-                       build-global-definition
-                       build-global-assignment
-                       build-global-reference
-                       analyze-variable
-                       build-lexical-assignment
-                       build-lexical-reference
-                       build-dynlet
-                       build-conditional
-                       build-application
-                       build-void
-                       maybe-name-value!
-                       decorate-source
-                       get-global-definition-hook
-                       put-global-definition-hook
-                       gensym-hook
-                       local-eval-hook
-                       top-level-eval-hook
-                       fx<
-                       fx=
-                       fx-
-                       fx+
-                       set-lambda-meta!
-                       lambda-meta
-                       lambda?
-                       make-dynlet
-                       make-letrec
-                       make-let
-                       make-lambda-case
-                       make-lambda
-                       make-sequence
-                       make-application
-                       make-conditional
-                       make-toplevel-define
-                       make-toplevel-set
-                       make-toplevel-ref
-                       make-module-set
-                       make-module-ref
-                       make-lexical-set
-                       make-lexical-ref
-                       make-primitive-ref
-                       make-const
-                       make-void)
-                     ((top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top)
-                      (top))
-                     ("i485"
-                      "i483"
-                      "i481"
-                      "i479"
-                      "i477"
-                      "i475"
-                      "i473"
-                      "i471"
-                      "i469"
-                      "i467"
-                      "i465"
-                      "i463"
-                      "i461"
-                      "i459"
-                      "i457"
-                      "i455"
-                      "i453"
-                      "i451"
-                      "i449"
-                      "i447"
-                      "i445"
-                      "i443"
-                      "i441"
-                      "i439"
-                      "i437"
-                      "i435"
-                      "i433"
-                      "i431"
-                      "i429"
-                      "i427"
-                      "i425"
-                      "i423"
-                      "i421"
-                      "i419"
-                      "i417"
-                      "i416"
-                      "i415"
-                      "i413"
-                      "i412"
-                      "i411"
-                      "i410"
-                      "i409"
-                      "i407"
-                      "i405"
-                      "i403"
-                      "i401"
-                      "i399"
-                      "i397"
-                      "i395"
-                      "i393"
-                      "i390"
-                      "i388"
-                      "i387"
-                      "i386"
-                      "i385"
-                      "i384"
-                      "i383"
-                      "i382"
-                      "i381"
-                      "i380"
-                      "i378"
-                      "i377"
-                      "i375"
-                      "i373"
-                      "i371"
-                      "i369"
-                      "i367"
-                      "i365"
-                      "i363"
-                      "i362"
-                      "i361"
-                      "i360"
-                      "i359"
-                      "i358"
-                      "i356"
-                      "i355"
-                      "i353"
-                      "i351"
-                      "i349"
-                      "i347"
-                      "i345"
-                      "i343"
-                      "i341"
-                      "i339"
-                      "i337"
-                      "i335"
-                      "i333"
-                      "i331"
-                      "i329"
-                      "i327"
-                      "i325"
-                      "i323"
-                      "i321"
-                      "i319"
-                      "i317"
-                      "i315"
-                      "i313"
-                      "i311"
-                      "i309"
-                      "i307"
-                      "i305"
-                      "i303"
-                      "i301"
-                      "i299"
-                      "i297"
-                      "i295"
-                      "i293"
-                      "i291"
-                      "i290"
-                      "i288"
-                      "i286"
-                      "i285"
-                      "i284"
-                      "i283"
-                      "i282"
-                      "i280"
-                      "i278"
-                      "i276"
-                      "i273"
-                      "i271"
-                      "i269"
-                      "i267"
-                      "i265"
-                      "i263"
-                      "i261"
-                      "i259"
-                      "i257"
-                      "i255"
-                      "i253"
-                      "i251"
-                      "i249"
-                      "i247"
-                      "i245"
-                      "i243"
-                      "i241"
-                      "i239"))
-                   #(ribcage
-                     (define-structure
-                       define-expansion-accessors
-                       define-expansion-constructors
-                       and-map*)
-                     ((top) (top) (top) (top))
-                     ("i41" "i40" "i39" "i37")))
-                  (hygiene guile)))
-             #f)))
-       (#{lambda-formals 474}#
-         (lambda (#{orig-args 2258}#)
-           (letrec*
-             ((#{req 2261}#
-                (lambda (#{args 2264}# #{rreq 2265}#)
-                  (let ((#{tmp 2268}# #{args 2264}#))
-                    (let ((#{tmp 2269}# ($sc-dispatch #{tmp 2268}# '())))
-                      (if #{tmp 2269}#
-                        (@apply
-                          (lambda ()
-                            (#{check 2263}# (reverse #{rreq 2265}#) #f))
-                          #{tmp 2269}#)
-                        (let ((#{tmp 2270}#
-                                ($sc-dispatch #{tmp 2268}# '(any . any))))
-                          (if (if #{tmp 2270}#
-                                (@apply
-                                  (lambda (#{a 2273}# #{b 2274}#)
-                                    (#{id? 376}# #{a 2273}#))
-                                  #{tmp 2270}#)
-                                #f)
-                            (@apply
-                              (lambda (#{a 2277}# #{b 2278}#)
-                                (#{req 2261}#
-                                  #{b 2278}#
-                                  (cons #{a 2277}# #{rreq 2265}#)))
-                              #{tmp 2270}#)
-                            (let ((#{tmp 2279}# (list #{tmp 2268}#)))
-                              (if (if #{tmp 2279}#
-                                    (@apply
-                                      (lambda (#{r 2281}#)
-                                        (#{id? 376}# #{r 2281}#))
-                                      #{tmp 2279}#)
-                                    #f)
-                                (@apply
-                                  (lambda (#{r 2283}#)
-                                    (#{check 2263}#
-                                      (reverse #{rreq 2265}#)
-                                      #{r 2283}#))
-                                  #{tmp 2279}#)
-                                (let ((#{else 2285}# #{tmp 2268}#))
-                                  (syntax-violation
-                                    'lambda
-                                    "invalid argument list"
-                                    #{orig-args 2258}#
-                                    #{args 2264}#)))))))))))
-              (#{check 2263}#
-                (lambda (#{req 2286}# #{rest 2287}#)
-                  (if (#{distinct-bound-ids? 438}#
-                        (if #{rest 2287}#
-                          (cons #{rest 2287}# #{req 2286}#)
-                          #{req 2286}#))
-                    (values #{req 2286}# #f #{rest 2287}# #f)
-                    (syntax-violation
-                      'lambda
-                      "duplicate identifier in argument list"
-                      #{orig-args 2258}#)))))
-             (begin (#{req 2261}# #{orig-args 2258}# '())))))
-       (#{chi-simple-lambda 476}#
-         (lambda (#{e 2293}#
-                  #{r 2294}#
-                  #{w 2295}#
-                  #{s 2296}#
-                  #{mod 2297}#
-                  #{req 2298}#
-                  #{rest 2299}#
-                  #{meta 2300}#
-                  #{body 2301}#)
-           (begin
-             (let ((#{ids 2313}#
-                     (if #{rest 2299}#
-                       (append #{req 2298}# (list #{rest 2299}#))
-                       #{req 2298}#)))
-               (begin
-                 (let ((#{vars 2315}#
-                         (map #{gen-var 484}# #{ids 2313}#)))
-                   (begin
-                     (let ((#{labels 2317}#
-                             (#{gen-labels 391}# #{ids 2313}#)))
-                       (#{build-simple-lambda 320}#
-                         #{s 2296}#
-                         (map syntax->datum #{req 2298}#)
-                         (if #{rest 2299}#
-                           (syntax->datum #{rest 2299}#)
-                           #f)
-                         #{vars 2315}#
-                         #{meta 2300}#
-                         (#{chi-body 464}#
-                           #{body 2301}#
-                           (#{source-wrap 444}#
-                             #{e 2293}#
-                             #{w 2295}#
-                             #{s 2296}#
-                             #{mod 2297}#)
-                           (#{extend-var-env 366}#
-                             #{labels 2317}#
-                             #{vars 2315}#
-                             #{r 2294}#)
-                           (#{make-binding-wrap 420}#
-                             #{ids 2313}#
-                             #{labels 2317}#
-                             #{w 2295}#)
-                           #{mod 2297}#))))))))))
-       (#{lambda*-formals 478}#
-         (lambda (#{orig-args 2320}#)
-           (letrec*
-             ((#{req 2323}#
-                (lambda (#{args 2332}# #{rreq 2333}#)
-                  (let ((#{tmp 2336}# #{args 2332}#))
-                    (let ((#{tmp 2337}# ($sc-dispatch #{tmp 2336}# '())))
-                      (if #{tmp 2337}#
-                        (@apply
-                          (lambda ()
-                            (#{check 2331}#
-                              (reverse #{rreq 2333}#)
-                              '()
-                              #f
-                              '()))
-                          #{tmp 2337}#)
-                        (let ((#{tmp 2338}#
-                                ($sc-dispatch #{tmp 2336}# '(any . any))))
-                          (if (if #{tmp 2338}#
-                                (@apply
-                                  (lambda (#{a 2341}# #{b 2342}#)
-                                    (#{id? 376}# #{a 2341}#))
-                                  #{tmp 2338}#)
-                                #f)
-                            (@apply
-                              (lambda (#{a 2345}# #{b 2346}#)
-                                (#{req 2323}#
-                                  #{b 2346}#
-                                  (cons #{a 2345}# #{rreq 2333}#)))
-                              #{tmp 2338}#)
-                            (let ((#{tmp 2347}#
-                                    ($sc-dispatch #{tmp 2336}# '(any . any))))
-                              (if (if #{tmp 2347}#
-                                    (@apply
-                                      (lambda (#{a 2350}# #{b 2351}#)
-                                        (eq? (syntax->datum #{a 2350}#)
-                                             #:optional))
-                                      #{tmp 2347}#)
-                                    #f)
-                                (@apply
-                                  (lambda (#{a 2354}# #{b 2355}#)
-                                    (#{opt 2325}#
-                                      #{b 2355}#
-                                      (reverse #{rreq 2333}#)
-                                      '()))
-                                  #{tmp 2347}#)
-                                (let ((#{tmp 2356}#
-                                        ($sc-dispatch
-                                          #{tmp 2336}#
-                                          '(any . any))))
-                                  (if (if #{tmp 2356}#
-                                        (@apply
-                                          (lambda (#{a 2359}# #{b 2360}#)
-                                            (eq? (syntax->datum #{a 2359}#)
-                                                 #:key))
-                                          #{tmp 2356}#)
-                                        #f)
-                                    (@apply
-                                      (lambda (#{a 2363}# #{b 2364}#)
-                                        (#{key 2327}#
-                                          #{b 2364}#
-                                          (reverse #{rreq 2333}#)
-                                          '()
-                                          '()))
-                                      #{tmp 2356}#)
-                                    (let ((#{tmp 2365}#
-                                            ($sc-dispatch
-                                              #{tmp 2336}#
-                                              '(any any))))
-                                      (if (if #{tmp 2365}#
-                                            (@apply
-                                              (lambda (#{a 2368}# #{b 2369}#)
-                                                (eq? (syntax->datum #{a 2368}#)
-                                                     #:rest))
-                                              #{tmp 2365}#)
-                                            #f)
-                                        (@apply
-                                          (lambda (#{a 2372}# #{b 2373}#)
-                                            (#{rest 2329}#
-                                              #{b 2373}#
-                                              (reverse #{rreq 2333}#)
-                                              '()
-                                              '()))
-                                          #{tmp 2365}#)
-                                        (let ((#{tmp 2374}#
-                                                (list #{tmp 2336}#)))
-                                          (if (if #{tmp 2374}#
-                                                (@apply
-                                                  (lambda (#{r 2376}#)
-                                                    (#{id? 376}# #{r 2376}#))
-                                                  #{tmp 2374}#)
-                                                #f)
-                                            (@apply
-                                              (lambda (#{r 2378}#)
-                                                (#{rest 2329}#
-                                                  #{r 2378}#
-                                                  (reverse #{rreq 2333}#)
-                                                  '()
-                                                  '()))
-                                              #{tmp 2374}#)
-                                            (let ((#{else 2380}# #{tmp 2336}#))
-                                              (syntax-violation
-                                                'lambda*
-                                                "invalid argument list"
-                                                #{orig-args 2320}#
-                                                #{args 2332}#)))))))))))))))))
-              (#{opt 2325}#
-                (lambda (#{args 2381}# #{req 2382}# #{ropt 2383}#)
-                  (let ((#{tmp 2387}# #{args 2381}#))
-                    (let ((#{tmp 2388}# ($sc-dispatch #{tmp 2387}# '())))
-                      (if #{tmp 2388}#
-                        (@apply
-                          (lambda ()
-                            (#{check 2331}#
-                              #{req 2382}#
-                              (reverse #{ropt 2383}#)
-                              #f
-                              '()))
-                          #{tmp 2388}#)
-                        (let ((#{tmp 2389}#
-                                ($sc-dispatch #{tmp 2387}# '(any . any))))
-                          (if (if #{tmp 2389}#
-                                (@apply
-                                  (lambda (#{a 2392}# #{b 2393}#)
-                                    (#{id? 376}# #{a 2392}#))
-                                  #{tmp 2389}#)
-                                #f)
-                            (@apply
-                              (lambda (#{a 2396}# #{b 2397}#)
-                                (#{opt 2325}#
-                                  #{b 2397}#
-                                  #{req 2382}#
-                                  (cons (cons #{a 2396}#
-                                              '(#(syntax-object
-                                                  #f
-                                                  ((top)
-                                                   #(ribcage
-                                                     #(a b)
-                                                     #((top) (top))
-                                                     #("i2394" "i2395"))
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(args req ropt)
-                                                     #((top) (top) (top))
-                                                     #("i2384"
-                                                       "i2385"
-                                                       "i2386"))
-                                                   #(ribcage
-                                                     (check rest key opt req)
-                                                     ((top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top))
-                                                     ("i2330"
-                                                      "i2328"
-                                                      "i2326"
-                                                      "i2324"
-                                                      "i2322"))
-                                                   #(ribcage
-                                                     #(orig-args)
-                                                     #((top))
-                                                     #("i2321"))
-                                                   #(ribcage
-                                                     (lambda-var-list
-                                                       gen-var
-                                                       strip
-                                                       chi-lambda-case
-                                                       lambda*-formals
-                                                       chi-simple-lambda
-                                                       lambda-formals
-                                                       ellipsis?
-                                                       chi-void
-                                                       eval-local-transformer
-                                                       chi-local-syntax
-                                                       chi-body
-                                                       chi-macro
-                                                       chi-application
-                                                       chi-expr
-                                                       chi
-                                                       syntax-type
-                                                       chi-when-list
-                                                       chi-install-global
-                                                       chi-top-sequence
-                                                       chi-sequence
-                                                       source-wrap
-                                                       wrap
-                                                       bound-id-member?
-                                                       distinct-bound-ids?
-                                                       valid-bound-ids?
-                                                       bound-id=?
-                                                       free-id=?
-                                                       id-var-name
-                                                       same-marks?
-                                                       join-marks
-                                                       join-wraps
-                                                       smart-append
-                                                       make-binding-wrap
-                                                       extend-ribcage!
-                                                       make-empty-ribcage
-                                                       new-mark
-                                                       anti-mark
-                                                       the-anti-mark
-                                                       top-marked?
-                                                       top-wrap
-                                                       empty-wrap
-                                                       set-ribcage-labels!
-                                                       set-ribcage-marks!
-                                                       set-ribcage-symnames!
-                                                       ribcage-labels
-                                                       ribcage-marks
-                                                       ribcage-symnames
-                                                       ribcage?
-                                                       make-ribcage
-                                                       gen-labels
-                                                       gen-label
-                                                       make-rename
-                                                       rename-marks
-                                                       rename-new
-                                                       rename-old
-                                                       subst-rename?
-                                                       wrap-subst
-                                                       wrap-marks
-                                                       make-wrap
-                                                       id-sym-name&marks
-                                                       id-sym-name
-                                                       id?
-                                                       nonsymbol-id?
-                                                       global-extend
-                                                       lookup
-                                                       macros-only-env
-                                                       extend-var-env
-                                                       extend-env
-                                                       null-env
-                                                       binding-value
-                                                       binding-type
-                                                       make-binding
-                                                       arg-check
-                                                       source-annotation
-                                                       no-source
-                                                       
set-syntax-object-module!
-                                                       set-syntax-object-wrap!
-                                                       
set-syntax-object-expression!
-                                                       syntax-object-module
-                                                       syntax-object-wrap
-                                                       syntax-object-expression
-                                                       syntax-object?
-                                                       make-syntax-object
-                                                       build-lexical-var
-                                                       build-letrec
-                                                       build-named-let
-                                                       build-let
-                                                       build-sequence
-                                                       build-data
-                                                       build-primref
-                                                       build-lambda-case
-                                                       build-case-lambda
-                                                       build-simple-lambda
-                                                       build-global-definition
-                                                       build-global-assignment
-                                                       build-global-reference
-                                                       analyze-variable
-                                                       build-lexical-assignment
-                                                       build-lexical-reference
-                                                       build-dynlet
-                                                       build-conditional
-                                                       build-application
-                                                       build-void
-                                                       maybe-name-value!
-                                                       decorate-source
-                                                       
get-global-definition-hook
-                                                       
put-global-definition-hook
-                                                       gensym-hook
-                                                       local-eval-hook
-                                                       top-level-eval-hook
-                                                       fx<
-                                                       fx=
-                                                       fx-
-                                                       fx+
-                                                       set-lambda-meta!
-                                                       lambda-meta
-                                                       lambda?
-                                                       make-dynlet
-                                                       make-letrec
-                                                       make-let
-                                                       make-lambda-case
-                                                       make-lambda
-                                                       make-sequence
-                                                       make-application
-                                                       make-conditional
-                                                       make-toplevel-define
-                                                       make-toplevel-set
-                                                       make-toplevel-ref
-                                                       make-module-set
-                                                       make-module-ref
-                                                       make-lexical-set
-                                                       make-lexical-ref
-                                                       make-primitive-ref
-                                                       make-const
-                                                       make-void)
-                                                     ((top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top))
-                                                     ("i485"
-                                                      "i483"
-                                                      "i481"
-                                                      "i479"
-                                                      "i477"
-                                                      "i475"
-                                                      "i473"
-                                                      "i471"
-                                                      "i469"
-                                                      "i467"
-                                                      "i465"
-                                                      "i463"
-                                                      "i461"
-                                                      "i459"
-                                                      "i457"
-                                                      "i455"
-                                                      "i453"
-                                                      "i451"
-                                                      "i449"
-                                                      "i447"
-                                                      "i445"
-                                                      "i443"
-                                                      "i441"
-                                                      "i439"
-                                                      "i437"
-                                                      "i435"
-                                                      "i433"
-                                                      "i431"
-                                                      "i429"
-                                                      "i427"
-                                                      "i425"
-                                                      "i423"
-                                                      "i421"
-                                                      "i419"
-                                                      "i417"
-                                                      "i416"
-                                                      "i415"
-                                                      "i413"
-                                                      "i412"
-                                                      "i411"
-                                                      "i410"
-                                                      "i409"
-                                                      "i407"
-                                                      "i405"
-                                                      "i403"
-                                                      "i401"
-                                                      "i399"
-                                                      "i397"
-                                                      "i395"
-                                                      "i393"
-                                                      "i390"
-                                                      "i388"
-                                                      "i387"
-                                                      "i386"
-                                                      "i385"
-                                                      "i384"
-                                                      "i383"
-                                                      "i382"
-                                                      "i381"
-                                                      "i380"
-                                                      "i378"
-                                                      "i377"
-                                                      "i375"
-                                                      "i373"
-                                                      "i371"
-                                                      "i369"
-                                                      "i367"
-                                                      "i365"
-                                                      "i363"
-                                                      "i362"
-                                                      "i361"
-                                                      "i360"
-                                                      "i359"
-                                                      "i358"
-                                                      "i356"
-                                                      "i355"
-                                                      "i353"
-                                                      "i351"
-                                                      "i349"
-                                                      "i347"
-                                                      "i345"
-                                                      "i343"
-                                                      "i341"
-                                                      "i339"
-                                                      "i337"
-                                                      "i335"
-                                                      "i333"
-                                                      "i331"
-                                                      "i329"
-                                                      "i327"
-                                                      "i325"
-                                                      "i323"
-                                                      "i321"
-                                                      "i319"
-                                                      "i317"
-                                                      "i315"
-                                                      "i313"
-                                                      "i311"
-                                                      "i309"
-                                                      "i307"
-                                                      "i305"
-                                                      "i303"
-                                                      "i301"
-                                                      "i299"
-                                                      "i297"
-                                                      "i295"
-                                                      "i293"
-                                                      "i291"
-                                                      "i290"
-                                                      "i288"
-                                                      "i286"
-                                                      "i285"
-                                                      "i284"
-                                                      "i283"
-                                                      "i282"
-                                                      "i280"
-                                                      "i278"
-                                                      "i276"
-                                                      "i273"
-                                                      "i271"
-                                                      "i269"
-                                                      "i267"
-                                                      "i265"
-                                                      "i263"
-                                                      "i261"
-                                                      "i259"
-                                                      "i257"
-                                                      "i255"
-                                                      "i253"
-                                                      "i251"
-                                                      "i249"
-                                                      "i247"
-                                                      "i245"
-                                                      "i243"
-                                                      "i241"
-                                                      "i239"))
-                                                   #(ribcage
-                                                     (define-structure
-                                                       
define-expansion-accessors
-                                                       
define-expansion-constructors
-                                                       and-map*)
-                                                     ((top) (top) (top) (top))
-                                                     ("i41"
-                                                      "i40"
-                                                      "i39"
-                                                      "i37")))
-                                                  (hygiene guile))))
-                                        #{ropt 2383}#)))
-                              #{tmp 2389}#)
-                            (let ((#{tmp 2398}#
-                                    ($sc-dispatch
-                                      #{tmp 2387}#
-                                      '((any any) . any))))
-                              (if (if #{tmp 2398}#
-                                    (@apply
-                                      (lambda (#{a 2402}#
-                                               #{init 2403}#
-                                               #{b 2404}#)
-                                        (#{id? 376}# #{a 2402}#))
-                                      #{tmp 2398}#)
-                                    #f)
-                                (@apply
-                                  (lambda (#{a 2408}# #{init 2409}# #{b 2410}#)
-                                    (#{opt 2325}#
-                                      #{b 2410}#
-                                      #{req 2382}#
-                                      (cons (list #{a 2408}# #{init 2409}#)
-                                            #{ropt 2383}#)))
-                                  #{tmp 2398}#)
-                                (let ((#{tmp 2411}#
-                                        ($sc-dispatch
-                                          #{tmp 2387}#
-                                          '(any . any))))
-                                  (if (if #{tmp 2411}#
-                                        (@apply
-                                          (lambda (#{a 2414}# #{b 2415}#)
-                                            (eq? (syntax->datum #{a 2414}#)
-                                                 #:key))
-                                          #{tmp 2411}#)
-                                        #f)
-                                    (@apply
-                                      (lambda (#{a 2418}# #{b 2419}#)
-                                        (#{key 2327}#
-                                          #{b 2419}#
-                                          #{req 2382}#
-                                          (reverse #{ropt 2383}#)
-                                          '()))
-                                      #{tmp 2411}#)
-                                    (let ((#{tmp 2420}#
-                                            ($sc-dispatch
-                                              #{tmp 2387}#
-                                              '(any any))))
-                                      (if (if #{tmp 2420}#
-                                            (@apply
-                                              (lambda (#{a 2423}# #{b 2424}#)
-                                                (eq? (syntax->datum #{a 2423}#)
-                                                     #:rest))
-                                              #{tmp 2420}#)
-                                            #f)
-                                        (@apply
-                                          (lambda (#{a 2427}# #{b 2428}#)
-                                            (#{rest 2329}#
-                                              #{b 2428}#
-                                              #{req 2382}#
-                                              (reverse #{ropt 2383}#)
-                                              '()))
-                                          #{tmp 2420}#)
-                                        (let ((#{tmp 2429}#
-                                                (list #{tmp 2387}#)))
-                                          (if (if #{tmp 2429}#
-                                                (@apply
-                                                  (lambda (#{r 2431}#)
-                                                    (#{id? 376}# #{r 2431}#))
-                                                  #{tmp 2429}#)
-                                                #f)
-                                            (@apply
-                                              (lambda (#{r 2433}#)
-                                                (#{rest 2329}#
-                                                  #{r 2433}#
-                                                  #{req 2382}#
-                                                  (reverse #{ropt 2383}#)
-                                                  '()))
-                                              #{tmp 2429}#)
-                                            (let ((#{else 2435}# #{tmp 2387}#))
-                                              (syntax-violation
-                                                'lambda*
-                                                "invalid optional argument 
list"
-                                                #{orig-args 2320}#
-                                                #{args 2381}#)))))))))))))))))
-              (#{key 2327}#
-                (lambda (#{args 2436}#
-                         #{req 2437}#
-                         #{opt 2438}#
-                         #{rkey 2439}#)
-                  (let ((#{tmp 2444}# #{args 2436}#))
-                    (let ((#{tmp 2445}# ($sc-dispatch #{tmp 2444}# '())))
-                      (if #{tmp 2445}#
-                        (@apply
-                          (lambda ()
-                            (#{check 2331}#
-                              #{req 2437}#
-                              #{opt 2438}#
-                              #f
-                              (cons #f (reverse #{rkey 2439}#))))
-                          #{tmp 2445}#)
-                        (let ((#{tmp 2446}#
-                                ($sc-dispatch #{tmp 2444}# '(any . any))))
-                          (if (if #{tmp 2446}#
-                                (@apply
-                                  (lambda (#{a 2449}# #{b 2450}#)
-                                    (#{id? 376}# #{a 2449}#))
-                                  #{tmp 2446}#)
-                                #f)
-                            (@apply
-                              (lambda (#{a 2453}# #{b 2454}#)
-                                (let ((#{tmp 2456}#
-                                        (symbol->keyword
-                                          (syntax->datum #{a 2453}#))))
-                                  (let ((#{k 2458}# #{tmp 2456}#))
-                                    (#{key 2327}#
-                                      #{b 2454}#
-                                      #{req 2437}#
-                                      #{opt 2438}#
-                                      (cons (cons #{k 2458}#
-                                                  (cons #{a 2453}#
-                                                        '(#(syntax-object
-                                                            #f
-                                                            ((top)
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(k)
-                                                               #((top))
-                                                               #("i2457"))
-                                                             #(ribcage
-                                                               #(a b)
-                                                               #((top) (top))
-                                                               #("i2451"
-                                                                 "i2452"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(args
-                                                                 req
-                                                                 opt
-                                                                 rkey)
-                                                               #((top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top))
-                                                               #("i2440"
-                                                                 "i2441"
-                                                                 "i2442"
-                                                                 "i2443"))
-                                                             #(ribcage
-                                                               (check rest
-                                                                      key
-                                                                      opt
-                                                                      req)
-                                                               ((top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top))
-                                                               ("i2330"
-                                                                "i2328"
-                                                                "i2326"
-                                                                "i2324"
-                                                                "i2322"))
-                                                             #(ribcage
-                                                               #(orig-args)
-                                                               #((top))
-                                                               #("i2321"))
-                                                             #(ribcage
-                                                               (lambda-var-list
-                                                                 gen-var
-                                                                 strip
-                                                                 
chi-lambda-case
-                                                                 
lambda*-formals
-                                                                 
chi-simple-lambda
-                                                                 lambda-formals
-                                                                 ellipsis?
-                                                                 chi-void
-                                                                 
eval-local-transformer
-                                                                 
chi-local-syntax
-                                                                 chi-body
-                                                                 chi-macro
-                                                                 
chi-application
-                                                                 chi-expr
-                                                                 chi
-                                                                 syntax-type
-                                                                 chi-when-list
-                                                                 
chi-install-global
-                                                                 
chi-top-sequence
-                                                                 chi-sequence
-                                                                 source-wrap
-                                                                 wrap
-                                                                 
bound-id-member?
-                                                                 
distinct-bound-ids?
-                                                                 
valid-bound-ids?
-                                                                 bound-id=?
-                                                                 free-id=?
-                                                                 id-var-name
-                                                                 same-marks?
-                                                                 join-marks
-                                                                 join-wraps
-                                                                 smart-append
-                                                                 
make-binding-wrap
-                                                                 
extend-ribcage!
-                                                                 
make-empty-ribcage
-                                                                 new-mark
-                                                                 anti-mark
-                                                                 the-anti-mark
-                                                                 top-marked?
-                                                                 top-wrap
-                                                                 empty-wrap
-                                                                 
set-ribcage-labels!
-                                                                 
set-ribcage-marks!
-                                                                 
set-ribcage-symnames!
-                                                                 ribcage-labels
-                                                                 ribcage-marks
-                                                                 
ribcage-symnames
-                                                                 ribcage?
-                                                                 make-ribcage
-                                                                 gen-labels
-                                                                 gen-label
-                                                                 make-rename
-                                                                 rename-marks
-                                                                 rename-new
-                                                                 rename-old
-                                                                 subst-rename?
-                                                                 wrap-subst
-                                                                 wrap-marks
-                                                                 make-wrap
-                                                                 
id-sym-name&marks
-                                                                 id-sym-name
-                                                                 id?
-                                                                 nonsymbol-id?
-                                                                 global-extend
-                                                                 lookup
-                                                                 
macros-only-env
-                                                                 extend-var-env
-                                                                 extend-env
-                                                                 null-env
-                                                                 binding-value
-                                                                 binding-type
-                                                                 make-binding
-                                                                 arg-check
-                                                                 
source-annotation
-                                                                 no-source
-                                                                 
set-syntax-object-module!
-                                                                 
set-syntax-object-wrap!
-                                                                 
set-syntax-object-expression!
-                                                                 
syntax-object-module
-                                                                 
syntax-object-wrap
-                                                                 
syntax-object-expression
-                                                                 syntax-object?
-                                                                 
make-syntax-object
-                                                                 
build-lexical-var
-                                                                 build-letrec
-                                                                 
build-named-let
-                                                                 build-let
-                                                                 build-sequence
-                                                                 build-data
-                                                                 build-primref
-                                                                 
build-lambda-case
-                                                                 
build-case-lambda
-                                                                 
build-simple-lambda
-                                                                 
build-global-definition
-                                                                 
build-global-assignment
-                                                                 
build-global-reference
-                                                                 
analyze-variable
-                                                                 
build-lexical-assignment
-                                                                 
build-lexical-reference
-                                                                 build-dynlet
-                                                                 
build-conditional
-                                                                 
build-application
-                                                                 build-void
-                                                                 
maybe-name-value!
-                                                                 
decorate-source
-                                                                 
get-global-definition-hook
-                                                                 
put-global-definition-hook
-                                                                 gensym-hook
-                                                                 
local-eval-hook
-                                                                 
top-level-eval-hook
-                                                                 fx<
-                                                                 fx=
-                                                                 fx-
-                                                                 fx+
-                                                                 
set-lambda-meta!
-                                                                 lambda-meta
-                                                                 lambda?
-                                                                 make-dynlet
-                                                                 make-letrec
-                                                                 make-let
-                                                                 
make-lambda-case
-                                                                 make-lambda
-                                                                 make-sequence
-                                                                 
make-application
-                                                                 
make-conditional
-                                                                 
make-toplevel-define
-                                                                 
make-toplevel-set
-                                                                 
make-toplevel-ref
-                                                                 
make-module-set
-                                                                 
make-module-ref
-                                                                 
make-lexical-set
-                                                                 
make-lexical-ref
-                                                                 
make-primitive-ref
-                                                                 make-const
-                                                                 make-void)
-                                                               ((top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top))
-                                                               ("i485"
-                                                                "i483"
-                                                                "i481"
-                                                                "i479"
-                                                                "i477"
-                                                                "i475"
-                                                                "i473"
-                                                                "i471"
-                                                                "i469"
-                                                                "i467"
-                                                                "i465"
-                                                                "i463"
-                                                                "i461"
-                                                                "i459"
-                                                                "i457"
-                                                                "i455"
-                                                                "i453"
-                                                                "i451"
-                                                                "i449"
-                                                                "i447"
-                                                                "i445"
-                                                                "i443"
-                                                                "i441"
-                                                                "i439"
-                                                                "i437"
-                                                                "i435"
-                                                                "i433"
-                                                                "i431"
-                                                                "i429"
-                                                                "i427"
-                                                                "i425"
-                                                                "i423"
-                                                                "i421"
-                                                                "i419"
-                                                                "i417"
-                                                                "i416"
-                                                                "i415"
-                                                                "i413"
-                                                                "i412"
-                                                                "i411"
-                                                                "i410"
-                                                                "i409"
-                                                                "i407"
-                                                                "i405"
-                                                                "i403"
-                                                                "i401"
-                                                                "i399"
-                                                                "i397"
-                                                                "i395"
-                                                                "i393"
-                                                                "i390"
-                                                                "i388"
-                                                                "i387"
-                                                                "i386"
-                                                                "i385"
-                                                                "i384"
-                                                                "i383"
-                                                                "i382"
-                                                                "i381"
-                                                                "i380"
-                                                                "i378"
-                                                                "i377"
-                                                                "i375"
-                                                                "i373"
-                                                                "i371"
-                                                                "i369"
-                                                                "i367"
-                                                                "i365"
-                                                                "i363"
-                                                                "i362"
-                                                                "i361"
-                                                                "i360"
-                                                                "i359"
-                                                                "i358"
-                                                                "i356"
-                                                                "i355"
-                                                                "i353"
-                                                                "i351"
-                                                                "i349"
-                                                                "i347"
-                                                                "i345"
-                                                                "i343"
-                                                                "i341"
-                                                                "i339"
-                                                                "i337"
-                                                                "i335"
-                                                                "i333"
-                                                                "i331"
-                                                                "i329"
-                                                                "i327"
-                                                                "i325"
-                                                                "i323"
-                                                                "i321"
-                                                                "i319"
-                                                                "i317"
-                                                                "i315"
-                                                                "i313"
-                                                                "i311"
-                                                                "i309"
-                                                                "i307"
-                                                                "i305"
-                                                                "i303"
-                                                                "i301"
-                                                                "i299"
-                                                                "i297"
-                                                                "i295"
-                                                                "i293"
-                                                                "i291"
-                                                                "i290"
-                                                                "i288"
-                                                                "i286"
-                                                                "i285"
-                                                                "i284"
-                                                                "i283"
-                                                                "i282"
-                                                                "i280"
-                                                                "i278"
-                                                                "i276"
-                                                                "i273"
-                                                                "i271"
-                                                                "i269"
-                                                                "i267"
-                                                                "i265"
-                                                                "i263"
-                                                                "i261"
-                                                                "i259"
-                                                                "i257"
-                                                                "i255"
-                                                                "i253"
-                                                                "i251"
-                                                                "i249"
-                                                                "i247"
-                                                                "i245"
-                                                                "i243"
-                                                                "i241"
-                                                                "i239"))
-                                                             #(ribcage
-                                                               
(define-structure
-                                                                 
define-expansion-accessors
-                                                                 
define-expansion-constructors
-                                                                 and-map*)
-                                                               ((top)
-                                                                (top)
-                                                                (top)
-                                                                (top))
-                                                               ("i41"
-                                                                "i40"
-                                                                "i39"
-                                                                "i37")))
-                                                            (hygiene guile)))))
-                                            #{rkey 2439}#)))))
-                              #{tmp 2446}#)
-                            (let ((#{tmp 2459}#
-                                    ($sc-dispatch
-                                      #{tmp 2444}#
-                                      '((any any) . any))))
-                              (if (if #{tmp 2459}#
-                                    (@apply
-                                      (lambda (#{a 2463}#
-                                               #{init 2464}#
-                                               #{b 2465}#)
-                                        (#{id? 376}# #{a 2463}#))
-                                      #{tmp 2459}#)
-                                    #f)
-                                (@apply
-                                  (lambda (#{a 2469}# #{init 2470}# #{b 2471}#)
-                                    (let ((#{tmp 2473}#
-                                            (symbol->keyword
-                                              (syntax->datum #{a 2469}#))))
-                                      (let ((#{k 2475}# #{tmp 2473}#))
-                                        (#{key 2327}#
-                                          #{b 2471}#
-                                          #{req 2437}#
-                                          #{opt 2438}#
-                                          (cons (list #{k 2475}#
-                                                      #{a 2469}#
-                                                      #{init 2470}#)
-                                                #{rkey 2439}#)))))
-                                  #{tmp 2459}#)
-                                (let ((#{tmp 2476}#
-                                        ($sc-dispatch
-                                          #{tmp 2444}#
-                                          '((any any any) . any))))
-                                  (if (if #{tmp 2476}#
-                                        (@apply
-                                          (lambda (#{a 2481}#
-                                                   #{init 2482}#
-                                                   #{k 2483}#
-                                                   #{b 2484}#)
-                                            (if (#{id? 376}# #{a 2481}#)
-                                              (keyword?
-                                                (syntax->datum #{k 2483}#))
-                                              #f))
-                                          #{tmp 2476}#)
-                                        #f)
-                                    (@apply
-                                      (lambda (#{a 2491}#
-                                               #{init 2492}#
-                                               #{k 2493}#
-                                               #{b 2494}#)
-                                        (#{key 2327}#
-                                          #{b 2494}#
-                                          #{req 2437}#
-                                          #{opt 2438}#
-                                          (cons (list #{k 2493}#
-                                                      #{a 2491}#
-                                                      #{init 2492}#)
-                                                #{rkey 2439}#)))
-                                      #{tmp 2476}#)
-                                    (let ((#{tmp 2495}#
-                                            ($sc-dispatch
-                                              #{tmp 2444}#
-                                              '(any))))
-                                      (if (if #{tmp 2495}#
-                                            (@apply
-                                              (lambda (#{aok 2497}#)
-                                                (eq? (syntax->datum
-                                                       #{aok 2497}#)
-                                                     #:allow-other-keys))
-                                              #{tmp 2495}#)
-                                            #f)
-                                        (@apply
-                                          (lambda (#{aok 2499}#)
-                                            (#{check 2331}#
-                                              #{req 2437}#
-                                              #{opt 2438}#
-                                              #f
-                                              (cons #t
-                                                    (reverse #{rkey 2439}#))))
-                                          #{tmp 2495}#)
-                                        (let ((#{tmp 2500}#
-                                                ($sc-dispatch
-                                                  #{tmp 2444}#
-                                                  '(any any any))))
-                                          (if (if #{tmp 2500}#
-                                                (@apply
-                                                  (lambda (#{aok 2504}#
-                                                           #{a 2505}#
-                                                           #{b 2506}#)
-                                                    (if (eq? (syntax->datum
-                                                               #{aok 2504}#)
-                                                             
#:allow-other-keys)
-                                                      (eq? (syntax->datum
-                                                             #{a 2505}#)
-                                                           #:rest)
-                                                      #f))
-                                                  #{tmp 2500}#)
-                                                #f)
-                                            (@apply
-                                              (lambda (#{aok 2512}#
-                                                       #{a 2513}#
-                                                       #{b 2514}#)
-                                                (#{rest 2329}#
-                                                  #{b 2514}#
-                                                  #{req 2437}#
-                                                  #{opt 2438}#
-                                                  (cons #t
-                                                        (reverse
-                                                          #{rkey 2439}#))))
-                                              #{tmp 2500}#)
-                                            (let ((#{tmp 2515}#
-                                                    ($sc-dispatch
-                                                      #{tmp 2444}#
-                                                      '(any . any))))
-                                              (if (if #{tmp 2515}#
-                                                    (@apply
-                                                      (lambda (#{aok 2518}#
-                                                               #{r 2519}#)
-                                                        (if (eq? (syntax->datum
-                                                                   #{aok 
2518}#)
-                                                                 
#:allow-other-keys)
-                                                          (#{id? 376}#
-                                                            #{r 2519}#)
-                                                          #f))
-                                                      #{tmp 2515}#)
-                                                    #f)
-                                                (@apply
-                                                  (lambda (#{aok 2524}#
-                                                           #{r 2525}#)
-                                                    (#{rest 2329}#
-                                                      #{r 2525}#
-                                                      #{req 2437}#
-                                                      #{opt 2438}#
-                                                      (cons #t
-                                                            (reverse
-                                                              #{rkey 2439}#))))
-                                                  #{tmp 2515}#)
-                                                (let ((#{tmp 2526}#
-                                                        ($sc-dispatch
-                                                          #{tmp 2444}#
-                                                          '(any any))))
-                                                  (if (if #{tmp 2526}#
-                                                        (@apply
-                                                          (lambda (#{a 2529}#
-                                                                   #{b 2530}#)
-                                                            (eq? (syntax->datum
-                                                                   #{a 2529}#)
-                                                                 #:rest))
-                                                          #{tmp 2526}#)
-                                                        #f)
-                                                    (@apply
-                                                      (lambda (#{a 2533}#
-                                                               #{b 2534}#)
-                                                        (#{rest 2329}#
-                                                          #{b 2534}#
-                                                          #{req 2437}#
-                                                          #{opt 2438}#
-                                                          (cons #f
-                                                                (reverse
-                                                                  #{rkey 
2439}#))))
-                                                      #{tmp 2526}#)
-                                                    (let ((#{tmp 2535}#
-                                                            (list #{tmp 
2444}#)))
-                                                      (if (if #{tmp 2535}#
-                                                            (@apply
-                                                              (lambda (#{r 
2537}#)
-                                                                (#{id? 376}#
-                                                                  #{r 2537}#))
-                                                              #{tmp 2535}#)
-                                                            #f)
-                                                        (@apply
-                                                          (lambda (#{r 2539}#)
-                                                            (#{rest 2329}#
-                                                              #{r 2539}#
-                                                              #{req 2437}#
-                                                              #{opt 2438}#
-                                                              (cons #f
-                                                                    (reverse
-                                                                      #{rkey 
2439}#))))
-                                                          #{tmp 2535}#)
-                                                        (let ((#{else 2541}#
-                                                                #{tmp 2444}#))
-                                                          (syntax-violation
-                                                            'lambda*
-                                                            "invalid keyword 
argument list"
-                                                            #{orig-args 2320}#
-                                                            #{args 
2436}#)))))))))))))))))))))))
-              (#{rest 2329}#
-                (lambda (#{args 2542}#
-                         #{req 2543}#
-                         #{opt 2544}#
-                         #{kw 2545}#)
-                  (let ((#{tmp 2550}# #{args 2542}#))
-                    (let ((#{tmp 2551}# (list #{tmp 2550}#)))
-                      (if (if #{tmp 2551}#
-                            (@apply
-                              (lambda (#{r 2553}#) (#{id? 376}# #{r 2553}#))
-                              #{tmp 2551}#)
-                            #f)
-                        (@apply
-                          (lambda (#{r 2555}#)
-                            (#{check 2331}#
-                              #{req 2543}#
-                              #{opt 2544}#
-                              #{r 2555}#
-                              #{kw 2545}#))
-                          #{tmp 2551}#)
-                        (let ((#{else 2557}# #{tmp 2550}#))
-                          (syntax-violation
-                            'lambda*
-                            "invalid rest argument"
-                            #{orig-args 2320}#
-                            #{args 2542}#)))))))
-              (#{check 2331}#
-                (lambda (#{req 2558}#
-                         #{opt 2559}#
-                         #{rest 2560}#
-                         #{kw 2561}#)
-                  (if (#{distinct-bound-ids? 438}#
-                        (append
-                          #{req 2558}#
-                          (map car #{opt 2559}#)
-                          (if #{rest 2560}# (list #{rest 2560}#) '())
-                          (if (pair? #{kw 2561}#)
-                            (map cadr (cdr #{kw 2561}#))
-                            '())))
-                    (values
-                      #{req 2558}#
-                      #{opt 2559}#
-                      #{rest 2560}#
-                      #{kw 2561}#)
-                    (syntax-violation
-                      'lambda*
-                      "duplicate identifier in argument list"
-                      #{orig-args 2320}#)))))
-             (begin (#{req 2323}# #{orig-args 2320}# '())))))
-       (#{chi-lambda-case 480}#
-         (lambda (#{e 2569}#
-                  #{r 2570}#
-                  #{w 2571}#
-                  #{s 2572}#
-                  #{mod 2573}#
-                  #{get-formals 2574}#
-                  #{clauses 2575}#)
-           (letrec*
-             ((#{expand-req 2584}#
-                (lambda (#{req 2591}#
-                         #{opt 2592}#
-                         #{rest 2593}#
-                         #{kw 2594}#
-                         #{body 2595}#)
-                  (begin
-                    (let ((#{vars 2603}#
-                            (map #{gen-var 484}# #{req 2591}#))
-                          (#{labels 2604}#
-                            (#{gen-labels 391}# #{req 2591}#)))
-                      (begin
-                        (let ((#{r* 2607}#
-                                (#{extend-var-env 366}#
-                                  #{labels 2604}#
-                                  #{vars 2603}#
-                                  #{r 2570}#))
-                              (#{w* 2608}#
-                                (#{make-binding-wrap 420}#
-                                  #{req 2591}#
-                                  #{labels 2604}#
-                                  #{w 2571}#)))
-                          (#{expand-opt 2586}#
-                            (map syntax->datum #{req 2591}#)
-                            #{opt 2592}#
-                            #{rest 2593}#
-                            #{kw 2594}#
-                            #{body 2595}#
-                            (reverse #{vars 2603}#)
-                            #{r* 2607}#
-                            #{w* 2608}#
-                            '()
-                            '())))))))
-              (#{expand-opt 2586}#
-                (lambda (#{req 2609}#
-                         #{opt 2610}#
-                         #{rest 2611}#
-                         #{kw 2612}#
-                         #{body 2613}#
-                         #{vars 2614}#
-                         #{r* 2615}#
-                         #{w* 2616}#
-                         #{out 2617}#
-                         #{inits 2618}#)
-                  (if (pair? #{opt 2610}#)
-                    (let ((#{tmp 2631}# (car #{opt 2610}#)))
-                      (let ((#{tmp 2632}#
-                              ($sc-dispatch #{tmp 2631}# '(any any))))
-                        (if #{tmp 2632}#
-                          (@apply
-                            (lambda (#{id 2635}# #{i 2636}#)
-                              (begin
-                                (let ((#{v 2639}#
-                                        (#{gen-var 484}# #{id 2635}#)))
-                                  (begin
-                                    (let ((#{l 2641}#
-                                            (#{gen-labels 391}#
-                                              (list #{v 2639}#))))
-                                      (begin
-                                        (let ((#{r** 2643}#
-                                                (#{extend-var-env 366}#
-                                                  #{l 2641}#
-                                                  (list #{v 2639}#)
-                                                  #{r* 2615}#)))
-                                          (begin
-                                            (let ((#{w** 2645}#
-                                                    (#{make-binding-wrap 420}#
-                                                      (list #{id 2635}#)
-                                                      #{l 2641}#
-                                                      #{w* 2616}#)))
-                                              (#{expand-opt 2586}#
-                                                #{req 2609}#
-                                                (cdr #{opt 2610}#)
-                                                #{rest 2611}#
-                                                #{kw 2612}#
-                                                #{body 2613}#
-                                                (cons #{v 2639}# #{vars 2614}#)
-                                                #{r** 2643}#
-                                                #{w** 2645}#
-                                                (cons (syntax->datum
-                                                        #{id 2635}#)
-                                                      #{out 2617}#)
-                                                (cons (#{chi 456}#
-                                                        #{i 2636}#
-                                                        #{r* 2615}#
-                                                        #{w* 2616}#
-                                                        #{mod 2573}#)
-                                                      #{inits 2618}#)))))))))))
-                            #{tmp 2632}#)
-                          (syntax-violation
-                            #f
-                            "source expression failed to match any pattern"
-                            #{tmp 2631}#))))
-                    (if #{rest 2611}#
-                      (begin
-                        (let ((#{v 2650}# (#{gen-var 484}# #{rest 2611}#)))
-                          (begin
-                            (let ((#{l 2652}#
-                                    (#{gen-labels 391}# (list #{v 2650}#))))
-                              (begin
-                                (let ((#{r* 2654}#
-                                        (#{extend-var-env 366}#
-                                          #{l 2652}#
-                                          (list #{v 2650}#)
-                                          #{r* 2615}#)))
-                                  (begin
-                                    (let ((#{w* 2656}#
-                                            (#{make-binding-wrap 420}#
-                                              (list #{rest 2611}#)
-                                              #{l 2652}#
-                                              #{w* 2616}#)))
-                                      (#{expand-kw 2588}#
-                                        #{req 2609}#
-                                        (if (pair? #{out 2617}#)
-                                          (reverse #{out 2617}#)
-                                          #f)
-                                        (syntax->datum #{rest 2611}#)
-                                        (if (pair? #{kw 2612}#)
-                                          (cdr #{kw 2612}#)
-                                          #{kw 2612}#)
-                                        #{body 2613}#
-                                        (cons #{v 2650}# #{vars 2614}#)
-                                        #{r* 2654}#
-                                        #{w* 2656}#
-                                        (if (pair? #{kw 2612}#)
-                                          (car #{kw 2612}#)
-                                          #f)
-                                        '()
-                                        #{inits 2618}#)))))))))
-                      (#{expand-kw 2588}#
-                        #{req 2609}#
-                        (if (pair? #{out 2617}#)
-                          (reverse #{out 2617}#)
-                          #f)
-                        #f
-                        (if (pair? #{kw 2612}#)
-                          (cdr #{kw 2612}#)
-                          #{kw 2612}#)
-                        #{body 2613}#
-                        #{vars 2614}#
-                        #{r* 2615}#
-                        #{w* 2616}#
-                        (if (pair? #{kw 2612}#) (car #{kw 2612}#) #f)
-                        '()
-                        #{inits 2618}#)))))
-              (#{expand-kw 2588}#
-                (lambda (#{req 2658}#
-                         #{opt 2659}#
-                         #{rest 2660}#
-                         #{kw 2661}#
-                         #{body 2662}#
-                         #{vars 2663}#
-                         #{r* 2664}#
-                         #{w* 2665}#
-                         #{aok 2666}#
-                         #{out 2667}#
-                         #{inits 2668}#)
-                  (if (pair? #{kw 2661}#)
-                    (let ((#{tmp 2682}# (car #{kw 2661}#)))
-                      (let ((#{tmp 2683}#
-                              ($sc-dispatch #{tmp 2682}# '(any any any))))
-                        (if #{tmp 2683}#
-                          (@apply
-                            (lambda (#{k 2687}# #{id 2688}# #{i 2689}#)
-                              (begin
-                                (let ((#{v 2692}#
-                                        (#{gen-var 484}# #{id 2688}#)))
-                                  (begin
-                                    (let ((#{l 2694}#
-                                            (#{gen-labels 391}#
-                                              (list #{v 2692}#))))
-                                      (begin
-                                        (let ((#{r** 2696}#
-                                                (#{extend-var-env 366}#
-                                                  #{l 2694}#
-                                                  (list #{v 2692}#)
-                                                  #{r* 2664}#)))
-                                          (begin
-                                            (let ((#{w** 2698}#
-                                                    (#{make-binding-wrap 420}#
-                                                      (list #{id 2688}#)
-                                                      #{l 2694}#
-                                                      #{w* 2665}#)))
-                                              (#{expand-kw 2588}#
-                                                #{req 2658}#
-                                                #{opt 2659}#
-                                                #{rest 2660}#
-                                                (cdr #{kw 2661}#)
-                                                #{body 2662}#
-                                                (cons #{v 2692}# #{vars 2663}#)
-                                                #{r** 2696}#
-                                                #{w** 2698}#
-                                                #{aok 2666}#
-                                                (cons (list (syntax->datum
-                                                              #{k 2687}#)
-                                                            (syntax->datum
-                                                              #{id 2688}#)
-                                                            #{v 2692}#)
-                                                      #{out 2667}#)
-                                                (cons (#{chi 456}#
-                                                        #{i 2689}#
-                                                        #{r* 2664}#
-                                                        #{w* 2665}#
-                                                        #{mod 2573}#)
-                                                      #{inits 2668}#)))))))))))
-                            #{tmp 2683}#)
-                          (syntax-violation
-                            #f
-                            "source expression failed to match any pattern"
-                            #{tmp 2682}#))))
-                    (#{expand-body 2590}#
-                      #{req 2658}#
-                      #{opt 2659}#
-                      #{rest 2660}#
-                      (if (begin
-                            (let ((#{t 2702}# #{aok 2666}#))
-                              (if #{t 2702}# #{t 2702}# (pair? #{out 2667}#))))
-                        (cons #{aok 2666}# (reverse #{out 2667}#))
-                        #f)
-                      #{body 2662}#
-                      (reverse #{vars 2663}#)
-                      #{r* 2664}#
-                      #{w* 2665}#
-                      (reverse #{inits 2668}#)
-                      '()))))
-              (#{expand-body 2590}#
-                (lambda (#{req 2704}#
-                         #{opt 2705}#
-                         #{rest 2706}#
-                         #{kw 2707}#
-                         #{body 2708}#
-                         #{vars 2709}#
-                         #{r* 2710}#
-                         #{w* 2711}#
-                         #{inits 2712}#
-                         #{meta 2713}#)
-                  (let ((#{tmp 2724}# #{body 2708}#))
-                    (let ((#{tmp 2725}#
-                            ($sc-dispatch #{tmp 2724}# '(any any . each-any))))
-                      (if (if #{tmp 2725}#
-                            (@apply
-                              (lambda (#{docstring 2729}#
-                                       #{e1 2730}#
-                                       #{e2 2731}#)
-                                (string? (syntax->datum #{docstring 2729}#)))
-                              #{tmp 2725}#)
-                            #f)
-                        (@apply
-                          (lambda (#{docstring 2735}# #{e1 2736}# #{e2 2737}#)
-                            (#{expand-body 2590}#
-                              #{req 2704}#
-                              #{opt 2705}#
-                              #{rest 2706}#
-                              #{kw 2707}#
-                              (cons #{e1 2736}# #{e2 2737}#)
-                              #{vars 2709}#
-                              #{r* 2710}#
-                              #{w* 2711}#
-                              #{inits 2712}#
-                              (append
-                                #{meta 2713}#
-                                (list (cons 'documentation
-                                            (syntax->datum
-                                              #{docstring 2735}#))))))
-                          #{tmp 2725}#)
-                        (let ((#{tmp 2740}#
-                                ($sc-dispatch
-                                  #{tmp 2724}#
-                                  '(#(vector #(each (any . any)))
-                                    any
-                                    .
-                                    each-any))))
-                          (if #{tmp 2740}#
-                            (@apply
-                              (lambda (#{k 2745}#
-                                       #{v 2746}#
-                                       #{e1 2747}#
-                                       #{e2 2748}#)
-                                (#{expand-body 2590}#
-                                  #{req 2704}#
-                                  #{opt 2705}#
-                                  #{rest 2706}#
-                                  #{kw 2707}#
-                                  (cons #{e1 2747}# #{e2 2748}#)
-                                  #{vars 2709}#
-                                  #{r* 2710}#
-                                  #{w* 2711}#
-                                  #{inits 2712}#
-                                  (append
-                                    #{meta 2713}#
-                                    (syntax->datum
-                                      (map cons #{k 2745}# #{v 2746}#)))))
-                              #{tmp 2740}#)
-                            (let ((#{tmp 2752}#
-                                    ($sc-dispatch
-                                      #{tmp 2724}#
-                                      '(any . each-any))))
-                              (if #{tmp 2752}#
-                                (@apply
-                                  (lambda (#{e1 2755}# #{e2 2756}#)
-                                    (values
-                                      #{meta 2713}#
-                                      #{req 2704}#
-                                      #{opt 2705}#
-                                      #{rest 2706}#
-                                      #{kw 2707}#
-                                      #{inits 2712}#
-                                      #{vars 2709}#
-                                      (#{chi-body 464}#
-                                        (cons #{e1 2755}# #{e2 2756}#)
-                                        (#{source-wrap 444}#
-                                          #{e 2569}#
-                                          #{w 2571}#
-                                          #{s 2572}#
-                                          #{mod 2573}#)
-                                        #{r* 2710}#
-                                        #{w* 2711}#
-                                        #{mod 2573}#)))
-                                  #{tmp 2752}#)
-                                (syntax-violation
-                                  #f
-                                  "source expression failed to match any 
pattern"
-                                  #{tmp 2724}#)))))))))))
-             (begin
-               (let ((#{tmp 2758}# #{clauses 2575}#))
-                 (let ((#{tmp 2759}# ($sc-dispatch #{tmp 2758}# '())))
-                   (if #{tmp 2759}#
-                     (@apply (lambda () (values '() #f)) #{tmp 2759}#)
-                     (let ((#{tmp 2760}#
-                             ($sc-dispatch
-                               #{tmp 2758}#
-                               '((any any . each-any)
-                                 .
-                                 #(each (any any . each-any))))))
-                       (if #{tmp 2760}#
-                         (@apply
-                           (lambda (#{args 2767}#
-                                    #{e1 2768}#
-                                    #{e2 2769}#
-                                    #{args* 2770}#
-                                    #{e1* 2771}#
-                                    #{e2* 2772}#)
-                             (call-with-values
-                               (lambda () (#{get-formals 2574}# #{args 2767}#))
-                               (lambda (#{req 2773}#
-                                        #{opt 2774}#
-                                        #{rest 2775}#
-                                        #{kw 2776}#)
-                                 (call-with-values
-                                   (lambda ()
-                                     (#{expand-req 2584}#
-                                       #{req 2773}#
-                                       #{opt 2774}#
-                                       #{rest 2775}#
-                                       #{kw 2776}#
-                                       (cons #{e1 2768}# #{e2 2769}#)))
-                                   (lambda (#{meta 2782}#
-                                            #{req 2783}#
-                                            #{opt 2784}#
-                                            #{rest 2785}#
-                                            #{kw 2786}#
-                                            #{inits 2787}#
-                                            #{vars 2788}#
-                                            #{body 2789}#)
-                                     (call-with-values
-                                       (lambda ()
-                                         (#{chi-lambda-case 480}#
-                                           #{e 2569}#
-                                           #{r 2570}#
-                                           #{w 2571}#
-                                           #{s 2572}#
-                                           #{mod 2573}#
-                                           #{get-formals 2574}#
-                                           (map (lambda (#{tmp 2800}#
-                                                         #{tmp 2799}#
-                                                         #{tmp 2798}#)
-                                                  (cons #{tmp 2798}#
-                                                        (cons #{tmp 2799}#
-                                                              #{tmp 2800}#)))
-                                                #{e2* 2772}#
-                                                #{e1* 2771}#
-                                                #{args* 2770}#)))
-                                       (lambda (#{meta* 2802}# #{else* 2803}#)
-                                         (values
-                                           (append
-                                             #{meta 2782}#
-                                             #{meta* 2802}#)
-                                           (#{build-lambda-case 324}#
-                                             #{s 2572}#
-                                             #{req 2783}#
-                                             #{opt 2784}#
-                                             #{rest 2785}#
-                                             #{kw 2786}#
-                                             #{inits 2787}#
-                                             #{vars 2788}#
-                                             #{body 2789}#
-                                             #{else* 2803}#)))))))))
-                           #{tmp 2760}#)
-                         (syntax-violation
-                           #f
-                           "source expression failed to match any pattern"
-                           #{tmp 2758}#))))))))))
-       (#{strip 482}#
-         (lambda (#{x 2806}# #{w 2807}#)
-           (if (memq 'top (car #{w 2807}#))
-             #{x 2806}#
-             (letrec*
-               ((#{f 2814}#
-                  (lambda (#{x 2815}#)
-                    (if (#{syntax-object? 342}# #{x 2815}#)
-                      (#{strip 482}#
-                        (#{syntax-object-expression 344}# #{x 2815}#)
-                        (#{syntax-object-wrap 346}# #{x 2815}#))
-                      (if (pair? #{x 2815}#)
-                        (begin
-                          (let ((#{a 2822}# (#{f 2814}# (car #{x 2815}#)))
-                                (#{d 2823}# (#{f 2814}# (cdr #{x 2815}#))))
-                            (if (if (eq? #{a 2822}# (car #{x 2815}#))
-                                  (eq? #{d 2823}# (cdr #{x 2815}#))
-                                  #f)
-                              #{x 2815}#
-                              (cons #{a 2822}# #{d 2823}#))))
-                        (if (vector? #{x 2815}#)
-                          (begin
-                            (let ((#{old 2829}# (vector->list #{x 2815}#)))
-                              (begin
-                                (let ((#{new 2831}#
-                                        (map #{f 2814}# #{old 2829}#)))
-                                  (if (#{and-map* 38}#
-                                        eq?
-                                        #{old 2829}#
-                                        #{new 2831}#)
-                                    #{x 2815}#
-                                    (list->vector #{new 2831}#))))))
-                          #{x 2815}#))))))
-               (begin (#{f 2814}# #{x 2806}#))))))
-       (#{gen-var 484}#
-         (lambda (#{id 2833}#)
-           (begin
-             (let ((#{id 2836}#
-                     (if (#{syntax-object? 342}# #{id 2833}#)
-                       (#{syntax-object-expression 344}# #{id 2833}#)
-                       #{id 2833}#)))
-               (gensym
-                 (string-append (symbol->string #{id 2836}#) " "))))))
-       (#{lambda-var-list 486}#
-         (lambda (#{vars 2838}#)
-           (letrec*
-             ((#{lvl 2844}#
-                (lambda (#{vars 2845}# #{ls 2846}# #{w 2847}#)
-                  (if (pair? #{vars 2845}#)
-                    (#{lvl 2844}#
-                      (cdr #{vars 2845}#)
-                      (cons (#{wrap 442}# (car #{vars 2845}#) #{w 2847}# #f)
-                            #{ls 2846}#)
-                      #{w 2847}#)
-                    (if (#{id? 376}# #{vars 2845}#)
-                      (cons (#{wrap 442}# #{vars 2845}# #{w 2847}# #f)
-                            #{ls 2846}#)
-                      (if (null? #{vars 2845}#)
-                        #{ls 2846}#
-                        (if (#{syntax-object? 342}# #{vars 2845}#)
-                          (#{lvl 2844}#
-                            (#{syntax-object-expression 344}# #{vars 2845}#)
-                            #{ls 2846}#
-                            (#{join-wraps 424}#
-                              #{w 2847}#
-                              (#{syntax-object-wrap 346}# #{vars 2845}#)))
-                          (cons #{vars 2845}# #{ls 2846}#))))))))
-             (begin (#{lvl 2844}# #{vars 2838}# '() '(())))))))
-      (begin
-        (lambda (#{src 804}# #{name 805}#)
-          (make-struct/no-tail
-            (vector-ref %expanded-vtables 2)
-            #{src 804}#
-            #{name 805}#))
-        (lambda (#{x 1182}# #{update 1183}#)
-          (vector-set! #{x 1182}# 1 #{update 1183}#))
-        (lambda (#{x 1186}# #{update 1187}#)
-          (vector-set! #{x 1186}# 2 #{update 1187}#))
-        (lambda (#{x 1190}# #{update 1191}#)
-          (vector-set! #{x 1190}# 3 #{update 1191}#))
-        (lambda (#{x 1271}#)
-          (if (vector? #{x 1271}#)
-            (if (= (vector-length #{x 1271}#) 4)
-              (eq? (vector-ref #{x 1271}# 0) 'ribcage)
-              #f)
-            #f))
-        (begin
-          (#{global-extend 372}#
-            'local-syntax
-            'letrec-syntax
-            #t)
-          (#{global-extend 372}#
-            'local-syntax
-            'let-syntax
-            #f)
-          (#{global-extend 372}#
-            'core
-            'fluid-let-syntax
-            (lambda (#{e 2858}#
-                     #{r 2859}#
-                     #{w 2860}#
-                     #{s 2861}#
-                     #{mod 2862}#)
-              (let ((#{tmp 2868}# #{e 2858}#))
-                (let ((#{tmp 2869}#
-                        ($sc-dispatch
-                          #{tmp 2868}#
-                          '(_ #(each (any any)) any . each-any))))
-                  (if (if #{tmp 2869}#
-                        (@apply
-                          (lambda (#{var 2874}#
-                                   #{val 2875}#
-                                   #{e1 2876}#
-                                   #{e2 2877}#)
-                            (#{valid-bound-ids? 436}# #{var 2874}#))
-                          #{tmp 2869}#)
-                        #f)
-                    (@apply
-                      (lambda (#{var 2883}#
-                               #{val 2884}#
-                               #{e1 2885}#
-                               #{e2 2886}#)
-                        (begin
-                          (let ((#{names 2888}#
-                                  (map (lambda (#{x 2889}#)
-                                         (#{id-var-name 430}#
-                                           #{x 2889}#
-                                           #{w 2860}#))
-                                       #{var 2883}#)))
-                            (begin
-                              (for-each
-                                (lambda (#{id 2892}# #{n 2893}#)
-                                  (begin
-                                    (let ((#{atom-key 2898}#
-                                            (car (#{lookup 370}#
-                                                   #{n 2893}#
-                                                   #{r 2859}#
-                                                   #{mod 2862}#))))
-                                      (if (eqv? #{atom-key 2898}#
-                                                'displaced-lexical)
-                                        (syntax-violation
-                                          'fluid-let-syntax
-                                          "identifier out of context"
-                                          #{e 2858}#
-                                          (#{source-wrap 444}#
-                                            #{id 2892}#
-                                            #{w 2860}#
-                                            #{s 2861}#
-                                            #{mod 2862}#))))))
-                                #{var 2883}#
-                                #{names 2888}#)
-                              (#{chi-body 464}#
-                                (cons #{e1 2885}# #{e2 2886}#)
-                                (#{source-wrap 444}#
-                                  #{e 2858}#
-                                  #{w 2860}#
-                                  #{s 2861}#
-                                  #{mod 2862}#)
-                                (#{extend-env 364}#
-                                  #{names 2888}#
-                                  (begin
-                                    (let ((#{trans-r 2904}#
-                                            (#{macros-only-env 368}#
-                                              #{r 2859}#)))
-                                      (map (lambda (#{x 2905}#)
-                                             (cons 'macro
-                                                   (#{eval-local-transformer 
468}#
-                                                     (#{chi 456}#
-                                                       #{x 2905}#
-                                                       #{trans-r 2904}#
-                                                       #{w 2860}#
-                                                       #{mod 2862}#)
-                                                     #{mod 2862}#)))
-                                           #{val 2884}#)))
-                                  #{r 2859}#)
-                                #{w 2860}#
-                                #{mod 2862}#)))))
-                      #{tmp 2869}#)
-                    (let ((#{_ 2910}# #{tmp 2868}#))
-                      (syntax-violation
-                        'fluid-let-syntax
-                        "bad syntax"
-                        (#{source-wrap 444}#
-                          #{e 2858}#
-                          #{w 2860}#
-                          #{s 2861}#
-                          #{mod 2862}#))))))))
-          (#{global-extend 372}#
-            'core
-            'quote
-            (lambda (#{e 2911}#
-                     #{r 2912}#
-                     #{w 2913}#
-                     #{s 2914}#
-                     #{mod 2915}#)
-              (let ((#{tmp 2921}# #{e 2911}#))
-                (let ((#{tmp 2922}#
-                        ($sc-dispatch #{tmp 2921}# '(_ any))))
-                  (if #{tmp 2922}#
-                    (@apply
-                      (lambda (#{e 2924}#)
-                        (#{build-data 328}#
-                          #{s 2914}#
-                          (#{strip 482}# #{e 2924}# #{w 2913}#)))
-                      #{tmp 2922}#)
-                    (let ((#{_ 2926}# #{tmp 2921}#))
-                      (syntax-violation
-                        'quote
-                        "bad syntax"
-                        (#{source-wrap 444}#
-                          #{e 2911}#
-                          #{w 2913}#
-                          #{s 2914}#
-                          #{mod 2915}#))))))))
-          (#{global-extend 372}#
-            'core
-            'syntax
-            (letrec*
-              ((#{gen-syntax 2928}#
-                 (lambda (#{src 2943}#
-                          #{e 2944}#
-                          #{r 2945}#
-                          #{maps 2946}#
-                          #{ellipsis? 2947}#
-                          #{mod 2948}#)
-                   (if (#{id? 376}# #{e 2944}#)
-                     (begin
-                       (let ((#{label 2956}#
-                               (#{id-var-name 430}# #{e 2944}# '(()))))
-                         (begin
-                           (let ((#{b 2959}#
-                                   (#{lookup 370}#
-                                     #{label 2956}#
-                                     #{r 2945}#
-                                     #{mod 2948}#)))
-                             (if (eq? (car #{b 2959}#) 'syntax)
-                               (call-with-values
-                                 (lambda ()
-                                   (begin
-                                     (let ((#{var.lev 2962}# (cdr #{b 2959}#)))
-                                       (#{gen-ref 2930}#
-                                         #{src 2943}#
-                                         (car #{var.lev 2962}#)
-                                         (cdr #{var.lev 2962}#)
-                                         #{maps 2946}#))))
-                                 (lambda (#{var 2964}# #{maps 2965}#)
-                                   (values
-                                     (list 'ref #{var 2964}#)
-                                     #{maps 2965}#)))
-                               (if (#{ellipsis? 2947}# #{e 2944}#)
-                                 (syntax-violation
-                                   'syntax
-                                   "misplaced ellipsis"
-                                   #{src 2943}#)
-                                 (values
-                                   (list 'quote #{e 2944}#)
-                                   #{maps 2946}#)))))))
-                     (let ((#{tmp 2970}# #{e 2944}#))
-                       (let ((#{tmp 2971}#
-                               ($sc-dispatch #{tmp 2970}# '(any any))))
-                         (if (if #{tmp 2971}#
-                               (@apply
-                                 (lambda (#{dots 2974}# #{e 2975}#)
-                                   (#{ellipsis? 2947}# #{dots 2974}#))
-                                 #{tmp 2971}#)
-                               #f)
-                           (@apply
-                             (lambda (#{dots 2978}# #{e 2979}#)
-                               (#{gen-syntax 2928}#
-                                 #{src 2943}#
-                                 #{e 2979}#
-                                 #{r 2945}#
-                                 #{maps 2946}#
-                                 (lambda (#{x 2980}#) #f)
-                                 #{mod 2948}#))
-                             #{tmp 2971}#)
-                           (let ((#{tmp 2982}#
-                                   ($sc-dispatch
-                                     #{tmp 2970}#
-                                     '(any any . any))))
-                             (if (if #{tmp 2982}#
-                                   (@apply
-                                     (lambda (#{x 2986}#
-                                              #{dots 2987}#
-                                              #{y 2988}#)
-                                       (#{ellipsis? 2947}# #{dots 2987}#))
-                                     #{tmp 2982}#)
-                                   #f)
-                               (@apply
-                                 (lambda (#{x 2992}# #{dots 2993}# #{y 2994}#)
-                                   (letrec*
-                                     ((#{f 2998}#
-                                        (lambda (#{y 2999}# #{k 3000}#)
-                                          (let ((#{tmp 3007}# #{y 2999}#))
-                                            (let ((#{tmp 3008}#
-                                                    ($sc-dispatch
-                                                      #{tmp 3007}#
-                                                      '(any . any))))
-                                              (if (if #{tmp 3008}#
-                                                    (@apply
-                                                      (lambda (#{dots 3011}#
-                                                               #{y 3012}#)
-                                                        (#{ellipsis? 2947}#
-                                                          #{dots 3011}#))
-                                                      #{tmp 3008}#)
-                                                    #f)
-                                                (@apply
-                                                  (lambda (#{dots 3015}#
-                                                           #{y 3016}#)
-                                                    (#{f 2998}#
-                                                      #{y 3016}#
-                                                      (lambda (#{maps 3017}#)
-                                                        (call-with-values
-                                                          (lambda ()
-                                                            (#{k 3000}#
-                                                              (cons '()
-                                                                    #{maps 
3017}#)))
-                                                          (lambda (#{x 3019}#
-                                                                   #{maps 
3020}#)
-                                                            (if (null? (car 
#{maps 3020}#))
-                                                              (syntax-violation
-                                                                'syntax
-                                                                "extra 
ellipsis"
-                                                                #{src 2943}#)
-                                                              (values
-                                                                (#{gen-mappend 
2932}#
-                                                                  #{x 3019}#
-                                                                  (car #{maps 
3020}#))
-                                                                (cdr #{maps 
3020}#))))))))
-                                                  #{tmp 3008}#)
-                                                (let ((#{_ 3024}#
-                                                        #{tmp 3007}#))
-                                                  (call-with-values
-                                                    (lambda ()
-                                                      (#{gen-syntax 2928}#
-                                                        #{src 2943}#
-                                                        #{y 2999}#
-                                                        #{r 2945}#
-                                                        #{maps 2946}#
-                                                        #{ellipsis? 2947}#
-                                                        #{mod 2948}#))
-                                                    (lambda (#{y 3025}#
-                                                             #{maps 3026}#)
-                                                      (call-with-values
-                                                        (lambda ()
-                                                          (#{k 3000}#
-                                                            #{maps 3026}#))
-                                                        (lambda (#{x 3029}#
-                                                                 #{maps 3030}#)
-                                                          (values
-                                                            (#{gen-append 
2938}#
-                                                              #{x 3029}#
-                                                              #{y 3025}#)
-                                                            #{maps 
3030}#))))))))))))
-                                     (begin
-                                       (#{f 2998}#
-                                         #{y 2994}#
-                                         (lambda (#{maps 3001}#)
-                                           (call-with-values
-                                             (lambda ()
-                                               (#{gen-syntax 2928}#
-                                                 #{src 2943}#
-                                                 #{x 2992}#
-                                                 #{r 2945}#
-                                                 (cons '() #{maps 3001}#)
-                                                 #{ellipsis? 2947}#
-                                                 #{mod 2948}#))
-                                             (lambda (#{x 3003}# #{maps 3004}#)
-                                               (if (null? (car #{maps 3004}#))
-                                                 (syntax-violation
-                                                   'syntax
-                                                   "extra ellipsis"
-                                                   #{src 2943}#)
-                                                 (values
-                                                   (#{gen-map 2934}#
-                                                     #{x 3003}#
-                                                     (car #{maps 3004}#))
-                                                   (cdr #{maps 3004}#))))))))))
-                                 #{tmp 2982}#)
-                               (let ((#{tmp 3033}#
-                                       ($sc-dispatch
-                                         #{tmp 2970}#
-                                         '(any . any))))
-                                 (if #{tmp 3033}#
-                                   (@apply
-                                     (lambda (#{x 3036}# #{y 3037}#)
-                                       (call-with-values
-                                         (lambda ()
-                                           (#{gen-syntax 2928}#
-                                             #{src 2943}#
-                                             #{x 3036}#
-                                             #{r 2945}#
-                                             #{maps 2946}#
-                                             #{ellipsis? 2947}#
-                                             #{mod 2948}#))
-                                         (lambda (#{x 3038}# #{maps 3039}#)
-                                           (call-with-values
-                                             (lambda ()
-                                               (#{gen-syntax 2928}#
-                                                 #{src 2943}#
-                                                 #{y 3037}#
-                                                 #{r 2945}#
-                                                 #{maps 3039}#
-                                                 #{ellipsis? 2947}#
-                                                 #{mod 2948}#))
-                                             (lambda (#{y 3042}# #{maps 3043}#)
-                                               (values
-                                                 (#{gen-cons 2936}#
-                                                   #{x 3038}#
-                                                   #{y 3042}#)
-                                                 #{maps 3043}#))))))
-                                     #{tmp 3033}#)
-                                   (let ((#{tmp 3046}#
-                                           ($sc-dispatch
-                                             #{tmp 2970}#
-                                             '#(vector (any . each-any)))))
-                                     (if #{tmp 3046}#
-                                       (@apply
-                                         (lambda (#{e1 3049}# #{e2 3050}#)
-                                           (call-with-values
-                                             (lambda ()
-                                               (#{gen-syntax 2928}#
-                                                 #{src 2943}#
-                                                 (cons #{e1 3049}# #{e2 3050}#)
-                                                 #{r 2945}#
-                                                 #{maps 2946}#
-                                                 #{ellipsis? 2947}#
-                                                 #{mod 2948}#))
-                                             (lambda (#{e 3052}# #{maps 3053}#)
-                                               (values
-                                                 (#{gen-vector 2940}#
-                                                   #{e 3052}#)
-                                                 #{maps 3053}#))))
-                                         #{tmp 3046}#)
-                                       (let ((#{_ 3057}# #{tmp 2970}#))
-                                         (values
-                                           (list 'quote #{e 2944}#)
-                                           #{maps 2946}#))))))))))))))
-               (#{gen-ref 2930}#
-                 (lambda (#{src 3059}#
-                          #{var 3060}#
-                          #{level 3061}#
-                          #{maps 3062}#)
-                   (if (= #{level 3061}# 0)
-                     (values #{var 3060}# #{maps 3062}#)
-                     (if (null? #{maps 3062}#)
-                       (syntax-violation
-                         'syntax
-                         "missing ellipsis"
-                         #{src 3059}#)
-                       (call-with-values
-                         (lambda ()
-                           (#{gen-ref 2930}#
-                             #{src 3059}#
-                             #{var 3060}#
-                             (#{1-}# #{level 3061}#)
-                             (cdr #{maps 3062}#)))
-                         (lambda (#{outer-var 3069}# #{outer-maps 3070}#)
-                           (begin
-                             (let ((#{b 3074}#
-                                     (assq #{outer-var 3069}#
-                                           (car #{maps 3062}#))))
-                               (if #{b 3074}#
-                                 (values (cdr #{b 3074}#) #{maps 3062}#)
-                                 (begin
-                                   (let ((#{inner-var 3076}#
-                                           (#{gen-var 484}# 'tmp)))
-                                     (values
-                                       #{inner-var 3076}#
-                                       (cons (cons (cons #{outer-var 3069}#
-                                                         #{inner-var 3076}#)
-                                                   (car #{maps 3062}#))
-                                             #{outer-maps 3070}#)))))))))))))
-               (#{gen-mappend 2932}#
-                 (lambda (#{e 3077}# #{map-env 3078}#)
-                   (list 'apply
-                         '(primitive append)
-                         (#{gen-map 2934}# #{e 3077}# #{map-env 3078}#))))
-               (#{gen-map 2934}#
-                 (lambda (#{e 3082}# #{map-env 3083}#)
-                   (begin
-                     (let ((#{formals 3088}# (map cdr #{map-env 3083}#))
-                           (#{actuals 3089}#
-                             (map (lambda (#{x 3090}#)
-                                    (list 'ref (car #{x 3090}#)))
-                                  #{map-env 3083}#)))
-                       (if (eq? (car #{e 3082}#) 'ref)
-                         (car #{actuals 3089}#)
-                         (if (and-map
-                               (lambda (#{x 3097}#)
-                                 (if (eq? (car #{x 3097}#) 'ref)
-                                   (memq (car (cdr #{x 3097}#))
-                                         #{formals 3088}#)
-                                   #f))
-                               (cdr #{e 3082}#))
-                           (cons 'map
-                                 (cons (list 'primitive (car #{e 3082}#))
-                                       (map (begin
-                                              (let ((#{r 3103}#
-                                                      (map cons
-                                                           #{formals 3088}#
-                                                           #{actuals 3089}#)))
-                                                (lambda (#{x 3104}#)
-                                                  (cdr (assq (car (cdr #{x 
3104}#))
-                                                             #{r 3103}#)))))
-                                            (cdr #{e 3082}#))))
-                           (cons 'map
-                                 (cons (list 'lambda
-                                             #{formals 3088}#
-                                             #{e 3082}#)
-                                       #{actuals 3089}#))))))))
-               (#{gen-cons 2936}#
-                 (lambda (#{x 3108}# #{y 3109}#)
-                   (begin
-                     (let ((#{atom-key 3114}# (car #{y 3109}#)))
-                       (if (eqv? #{atom-key 3114}# 'quote)
-                         (if (eq? (car #{x 3108}#) 'quote)
-                           (list 'quote
-                                 (cons (car (cdr #{x 3108}#))
-                                       (car (cdr #{y 3109}#))))
-                           (if (eq? (car (cdr #{y 3109}#)) '())
-                             (list 'list #{x 3108}#)
-                             (list 'cons #{x 3108}# #{y 3109}#)))
-                         (if (eqv? #{atom-key 3114}# 'list)
-                           (cons 'list (cons #{x 3108}# (cdr #{y 3109}#)))
-                           (list 'cons #{x 3108}# #{y 3109}#)))))))
-               (#{gen-append 2938}#
-                 (lambda (#{x 3123}# #{y 3124}#)
-                   (if (equal? #{y 3124}# ''())
-                     #{x 3123}#
-                     (list 'append #{x 3123}# #{y 3124}#))))
-               (#{gen-vector 2940}#
-                 (lambda (#{x 3128}#)
-                   (if (eq? (car #{x 3128}#) 'list)
-                     (cons 'vector (cdr #{x 3128}#))
-                     (if (eq? (car #{x 3128}#) 'quote)
-                       (list 'quote
-                             (list->vector (car (cdr #{x 3128}#))))
-                       (list 'list->vector #{x 3128}#)))))
-               (#{regen 2942}#
-                 (lambda (#{x 3138}#)
-                   (begin
-                     (let ((#{atom-key 3142}# (car #{x 3138}#)))
-                       (if (eqv? #{atom-key 3142}# 'ref)
-                         (#{build-lexical-reference 308}#
-                           'value
-                           #f
-                           (car (cdr #{x 3138}#))
-                           (car (cdr #{x 3138}#)))
-                         (if (eqv? #{atom-key 3142}# 'primitive)
-                           (#{build-primref 326}# #f (car (cdr #{x 3138}#)))
-                           (if (eqv? #{atom-key 3142}# 'quote)
-                             (#{build-data 328}# #f (car (cdr #{x 3138}#)))
-                             (if (eqv? #{atom-key 3142}# 'lambda)
-                               (if (list? (car (cdr #{x 3138}#)))
-                                 (#{build-simple-lambda 320}#
-                                   #f
-                                   (car (cdr #{x 3138}#))
-                                   #f
-                                   (car (cdr #{x 3138}#))
-                                   '()
-                                   (#{regen 2942}#
-                                     (car (cdr (cdr #{x 3138}#)))))
-                                 (error "how did we get here" #{x 3138}#))
-                               (#{build-application 302}#
-                                 #f
-                                 (#{build-primref 326}# #f (car #{x 3138}#))
-                                 (map #{regen 2942}#
-                                      (cdr #{x 3138}#))))))))))))
-              (begin
-                (lambda (#{e 3154}#
-                         #{r 3155}#
-                         #{w 3156}#
-                         #{s 3157}#
-                         #{mod 3158}#)
-                  (begin
-                    (let ((#{e 3165}#
-                            (#{source-wrap 444}#
-                              #{e 3154}#
-                              #{w 3156}#
-                              #{s 3157}#
-                              #{mod 3158}#)))
-                      (let ((#{tmp 3166}# #{e 3165}#))
-                        (let ((#{tmp 3167}#
-                                ($sc-dispatch #{tmp 3166}# '(_ any))))
-                          (if #{tmp 3167}#
-                            (@apply
-                              (lambda (#{x 3169}#)
-                                (call-with-values
-                                  (lambda ()
-                                    (#{gen-syntax 2928}#
-                                      #{e 3165}#
-                                      #{x 3169}#
-                                      #{r 3155}#
-                                      '()
-                                      #{ellipsis? 472}#
-                                      #{mod 3158}#))
-                                  (lambda (#{e 3170}# #{maps 3171}#)
-                                    (#{regen 2942}# #{e 3170}#))))
-                              #{tmp 3167}#)
-                            (let ((#{_ 3175}# #{tmp 3166}#))
-                              (syntax-violation
-                                'syntax
-                                "bad `syntax' form"
-                                #{e 3165}#)))))))))))
-          (#{global-extend 372}#
-            'core
-            'lambda
-            (lambda (#{e 3176}#
-                     #{r 3177}#
-                     #{w 3178}#
-                     #{s 3179}#
-                     #{mod 3180}#)
-              (let ((#{tmp 3186}# #{e 3176}#))
-                (let ((#{tmp 3187}#
-                        ($sc-dispatch
-                          #{tmp 3186}#
-                          '(_ any any . each-any))))
-                  (if #{tmp 3187}#
-                    (@apply
-                      (lambda (#{args 3191}# #{e1 3192}# #{e2 3193}#)
-                        (call-with-values
-                          (lambda ()
-                            (#{lambda-formals 474}# #{args 3191}#))
-                          (lambda (#{req 3194}#
-                                   #{opt 3195}#
-                                   #{rest 3196}#
-                                   #{kw 3197}#)
-                            (letrec*
-                              ((#{lp 3205}#
-                                 (lambda (#{body 3206}# #{meta 3207}#)
-                                   (let ((#{tmp 3209}# #{body 3206}#))
-                                     (let ((#{tmp 3210}#
-                                             ($sc-dispatch
-                                               #{tmp 3209}#
-                                               '(any any . each-any))))
-                                       (if (if #{tmp 3210}#
-                                             (@apply
-                                               (lambda (#{docstring 3214}#
-                                                        #{e1 3215}#
-                                                        #{e2 3216}#)
-                                                 (string?
-                                                   (syntax->datum
-                                                     #{docstring 3214}#)))
-                                               #{tmp 3210}#)
-                                             #f)
-                                         (@apply
-                                           (lambda (#{docstring 3220}#
-                                                    #{e1 3221}#
-                                                    #{e2 3222}#)
-                                             (#{lp 3205}#
-                                               (cons #{e1 3221}# #{e2 3222}#)
-                                               (append
-                                                 #{meta 3207}#
-                                                 (list (cons 'documentation
-                                                             (syntax->datum
-                                                               #{docstring 
3220}#))))))
-                                           #{tmp 3210}#)
-                                         (let ((#{tmp 3225}#
-                                                 ($sc-dispatch
-                                                   #{tmp 3209}#
-                                                   '(#(vector
-                                                       #(each (any . any)))
-                                                     any
-                                                     .
-                                                     each-any))))
-                                           (if #{tmp 3225}#
-                                             (@apply
-                                               (lambda (#{k 3230}#
-                                                        #{v 3231}#
-                                                        #{e1 3232}#
-                                                        #{e2 3233}#)
-                                                 (#{lp 3205}#
-                                                   (cons #{e1 3232}#
-                                                         #{e2 3233}#)
-                                                   (append
-                                                     #{meta 3207}#
-                                                     (syntax->datum
-                                                       (map cons
-                                                            #{k 3230}#
-                                                            #{v 3231}#)))))
-                                               #{tmp 3225}#)
-                                             (let ((#{_ 3238}# #{tmp 3209}#))
-                                               (#{chi-simple-lambda 476}#
-                                                 #{e 3176}#
-                                                 #{r 3177}#
-                                                 #{w 3178}#
-                                                 #{s 3179}#
-                                                 #{mod 3180}#
-                                                 #{req 3194}#
-                                                 #{rest 3196}#
-                                                 #{meta 3207}#
-                                                 #{body 3206}#))))))))))
-                              (begin
-                                (#{lp 3205}#
-                                  (cons #{e1 3192}# #{e2 3193}#)
-                                  '()))))))
-                      #{tmp 3187}#)
-                    (let ((#{_ 3240}# #{tmp 3186}#))
-                      (syntax-violation
-                        'lambda
-                        "bad lambda"
-                        #{e 3176}#)))))))
-          (#{global-extend 372}#
-            'core
-            'lambda*
-            (lambda (#{e 3241}#
-                     #{r 3242}#
-                     #{w 3243}#
-                     #{s 3244}#
-                     #{mod 3245}#)
-              (let ((#{tmp 3251}# #{e 3241}#))
-                (let ((#{tmp 3252}#
-                        ($sc-dispatch
-                          #{tmp 3251}#
-                          '(_ any any . each-any))))
-                  (if #{tmp 3252}#
-                    (@apply
-                      (lambda (#{args 3256}# #{e1 3257}# #{e2 3258}#)
-                        (call-with-values
-                          (lambda ()
-                            (#{chi-lambda-case 480}#
-                              #{e 3241}#
-                              #{r 3242}#
-                              #{w 3243}#
-                              #{s 3244}#
-                              #{mod 3245}#
-                              #{lambda*-formals 478}#
-                              (list (cons #{args 3256}#
-                                          (cons #{e1 3257}# #{e2 3258}#)))))
-                          (lambda (#{meta 3260}# #{lcase 3261}#)
-                            (#{build-case-lambda 322}#
-                              #{s 3244}#
-                              #{meta 3260}#
-                              #{lcase 3261}#))))
-                      #{tmp 3252}#)
-                    (let ((#{_ 3265}# #{tmp 3251}#))
-                      (syntax-violation
-                        'lambda
-                        "bad lambda*"
-                        #{e 3241}#)))))))
-          (#{global-extend 372}#
-            'core
-            'case-lambda
-            (lambda (#{e 3266}#
-                     #{r 3267}#
-                     #{w 3268}#
-                     #{s 3269}#
-                     #{mod 3270}#)
-              (let ((#{tmp 3276}# #{e 3266}#))
-                (let ((#{tmp 3277}#
-                        ($sc-dispatch
-                          #{tmp 3276}#
-                          '(_ (any any . each-any)
-                              .
-                              #(each (any any . each-any))))))
-                  (if #{tmp 3277}#
-                    (@apply
-                      (lambda (#{args 3284}#
-                               #{e1 3285}#
-                               #{e2 3286}#
-                               #{args* 3287}#
-                               #{e1* 3288}#
-                               #{e2* 3289}#)
-                        (call-with-values
-                          (lambda ()
-                            (#{chi-lambda-case 480}#
-                              #{e 3266}#
-                              #{r 3267}#
-                              #{w 3268}#
-                              #{s 3269}#
-                              #{mod 3270}#
-                              #{lambda-formals 474}#
-                              (cons (cons #{args 3284}#
-                                          (cons #{e1 3285}# #{e2 3286}#))
-                                    (map (lambda (#{tmp 3293}#
-                                                  #{tmp 3292}#
-                                                  #{tmp 3291}#)
-                                           (cons #{tmp 3291}#
-                                                 (cons #{tmp 3292}#
-                                                       #{tmp 3293}#)))
-                                         #{e2* 3289}#
-                                         #{e1* 3288}#
-                                         #{args* 3287}#))))
-                          (lambda (#{meta 3295}# #{lcase 3296}#)
-                            (#{build-case-lambda 322}#
-                              #{s 3269}#
-                              #{meta 3295}#
-                              #{lcase 3296}#))))
-                      #{tmp 3277}#)
-                    (let ((#{_ 3300}# #{tmp 3276}#))
-                      (syntax-violation
-                        'case-lambda
-                        "bad case-lambda"
-                        #{e 3266}#)))))))
-          (#{global-extend 372}#
-            'core
-            'case-lambda*
-            (lambda (#{e 3301}#
-                     #{r 3302}#
-                     #{w 3303}#
-                     #{s 3304}#
-                     #{mod 3305}#)
-              (let ((#{tmp 3311}# #{e 3301}#))
-                (let ((#{tmp 3312}#
-                        ($sc-dispatch
-                          #{tmp 3311}#
-                          '(_ (any any . each-any)
-                              .
-                              #(each (any any . each-any))))))
-                  (if #{tmp 3312}#
-                    (@apply
-                      (lambda (#{args 3319}#
-                               #{e1 3320}#
-                               #{e2 3321}#
-                               #{args* 3322}#
-                               #{e1* 3323}#
-                               #{e2* 3324}#)
-                        (call-with-values
-                          (lambda ()
-                            (#{chi-lambda-case 480}#
-                              #{e 3301}#
-                              #{r 3302}#
-                              #{w 3303}#
-                              #{s 3304}#
-                              #{mod 3305}#
-                              #{lambda*-formals 478}#
-                              (cons (cons #{args 3319}#
-                                          (cons #{e1 3320}# #{e2 3321}#))
-                                    (map (lambda (#{tmp 3328}#
-                                                  #{tmp 3327}#
-                                                  #{tmp 3326}#)
-                                           (cons #{tmp 3326}#
-                                                 (cons #{tmp 3327}#
-                                                       #{tmp 3328}#)))
-                                         #{e2* 3324}#
-                                         #{e1* 3323}#
-                                         #{args* 3322}#))))
-                          (lambda (#{meta 3330}# #{lcase 3331}#)
-                            (#{build-case-lambda 322}#
-                              #{s 3304}#
-                              #{meta 3330}#
-                              #{lcase 3331}#))))
-                      #{tmp 3312}#)
-                    (let ((#{_ 3335}# #{tmp 3311}#))
-                      (syntax-violation
-                        'case-lambda
-                        "bad case-lambda*"
-                        #{e 3301}#)))))))
-          (#{global-extend 372}#
-            'core
-            'let
-            (letrec*
-              ((#{chi-let 3337}#
-                 (lambda (#{e 3338}#
-                          #{r 3339}#
-                          #{w 3340}#
-                          #{s 3341}#
-                          #{mod 3342}#
-                          #{constructor 3343}#
-                          #{ids 3344}#
-                          #{vals 3345}#
-                          #{exps 3346}#)
-                   (if (not (#{valid-bound-ids? 436}# #{ids 3344}#))
-                     (syntax-violation
-                       'let
-                       "duplicate bound variable"
-                       #{e 3338}#)
-                     (begin
-                       (let ((#{labels 3358}#
-                               (#{gen-labels 391}# #{ids 3344}#))
-                             (#{new-vars 3359}#
-                               (map #{gen-var 484}# #{ids 3344}#)))
-                         (begin
-                           (let ((#{nw 3362}#
-                                   (#{make-binding-wrap 420}#
-                                     #{ids 3344}#
-                                     #{labels 3358}#
-                                     #{w 3340}#))
-                                 (#{nr 3363}#
-                                   (#{extend-var-env 366}#
-                                     #{labels 3358}#
-                                     #{new-vars 3359}#
-                                     #{r 3339}#)))
-                             (#{constructor 3343}#
-                               #{s 3341}#
-                               (map syntax->datum #{ids 3344}#)
-                               #{new-vars 3359}#
-                               (map (lambda (#{x 3364}#)
-                                      (#{chi 456}#
-                                        #{x 3364}#
-                                        #{r 3339}#
-                                        #{w 3340}#
-                                        #{mod 3342}#))
-                                    #{vals 3345}#)
-                               (#{chi-body 464}#
-                                 #{exps 3346}#
-                                 (#{source-wrap 444}#
-                                   #{e 3338}#
-                                   #{nw 3362}#
-                                   #{s 3341}#
-                                   #{mod 3342}#)
-                                 #{nr 3363}#
-                                 #{nw 3362}#
-                                 #{mod 3342}#))))))))))
-              (begin
-                (lambda (#{e 3366}#
-                         #{r 3367}#
-                         #{w 3368}#
-                         #{s 3369}#
-                         #{mod 3370}#)
-                  (let ((#{tmp 3376}# #{e 3366}#))
-                    (let ((#{tmp 3377}#
-                            ($sc-dispatch
-                              #{tmp 3376}#
-                              '(_ #(each (any any)) any . each-any))))
-                      (if (if #{tmp 3377}#
-                            (@apply
-                              (lambda (#{id 3382}#
-                                       #{val 3383}#
-                                       #{e1 3384}#
-                                       #{e2 3385}#)
-                                (and-map #{id? 376}# #{id 3382}#))
-                              #{tmp 3377}#)
-                            #f)
-                        (@apply
-                          (lambda (#{id 3391}#
-                                   #{val 3392}#
-                                   #{e1 3393}#
-                                   #{e2 3394}#)
-                            (#{chi-let 3337}#
-                              #{e 3366}#
-                              #{r 3367}#
-                              #{w 3368}#
-                              #{s 3369}#
-                              #{mod 3370}#
-                              #{build-let 332}#
-                              #{id 3391}#
-                              #{val 3392}#
-                              (cons #{e1 3393}# #{e2 3394}#)))
-                          #{tmp 3377}#)
-                        (let ((#{tmp 3398}#
-                                ($sc-dispatch
-                                  #{tmp 3376}#
-                                  '(_ any #(each (any any)) any . each-any))))
-                          (if (if #{tmp 3398}#
-                                (@apply
-                                  (lambda (#{f 3404}#
-                                           #{id 3405}#
-                                           #{val 3406}#
-                                           #{e1 3407}#
-                                           #{e2 3408}#)
-                                    (if (#{id? 376}# #{f 3404}#)
-                                      (and-map #{id? 376}# #{id 3405}#)
-                                      #f))
-                                  #{tmp 3398}#)
-                                #f)
-                            (@apply
-                              (lambda (#{f 3417}#
-                                       #{id 3418}#
-                                       #{val 3419}#
-                                       #{e1 3420}#
-                                       #{e2 3421}#)
-                                (#{chi-let 3337}#
-                                  #{e 3366}#
-                                  #{r 3367}#
-                                  #{w 3368}#
-                                  #{s 3369}#
-                                  #{mod 3370}#
-                                  #{build-named-let 334}#
-                                  (cons #{f 3417}# #{id 3418}#)
-                                  #{val 3419}#
-                                  (cons #{e1 3420}# #{e2 3421}#)))
-                              #{tmp 3398}#)
-                            (let ((#{_ 3426}# #{tmp 3376}#))
-                              (syntax-violation
-                                'let
-                                "bad let"
-                                (#{source-wrap 444}#
-                                  #{e 3366}#
-                                  #{w 3368}#
-                                  #{s 3369}#
-                                  #{mod 3370}#))))))))))))
-          (#{global-extend 372}#
-            'core
-            'letrec
-            (lambda (#{e 3427}#
-                     #{r 3428}#
-                     #{w 3429}#
-                     #{s 3430}#
-                     #{mod 3431}#)
-              (let ((#{tmp 3437}# #{e 3427}#))
-                (let ((#{tmp 3438}#
-                        ($sc-dispatch
-                          #{tmp 3437}#
-                          '(_ #(each (any any)) any . each-any))))
-                  (if (if #{tmp 3438}#
-                        (@apply
-                          (lambda (#{id 3443}#
-                                   #{val 3444}#
-                                   #{e1 3445}#
-                                   #{e2 3446}#)
-                            (and-map #{id? 376}# #{id 3443}#))
-                          #{tmp 3438}#)
-                        #f)
-                    (@apply
-                      (lambda (#{id 3452}#
-                               #{val 3453}#
-                               #{e1 3454}#
-                               #{e2 3455}#)
-                        (begin
-                          (let ((#{ids 3457}# #{id 3452}#))
-                            (if (not (#{valid-bound-ids? 436}# #{ids 3457}#))
-                              (syntax-violation
-                                'letrec
-                                "duplicate bound variable"
-                                #{e 3427}#)
-                              (begin
-                                (let ((#{labels 3461}#
-                                        (#{gen-labels 391}# #{ids 3457}#))
-                                      (#{new-vars 3462}#
-                                        (map #{gen-var 484}# #{ids 3457}#)))
-                                  (begin
-                                    (let ((#{w 3465}#
-                                            (#{make-binding-wrap 420}#
-                                              #{ids 3457}#
-                                              #{labels 3461}#
-                                              #{w 3429}#))
-                                          (#{r 3466}#
-                                            (#{extend-var-env 366}#
-                                              #{labels 3461}#
-                                              #{new-vars 3462}#
-                                              #{r 3428}#)))
-                                      (#{build-letrec 336}#
-                                        #{s 3430}#
-                                        #f
-                                        (map syntax->datum #{ids 3457}#)
-                                        #{new-vars 3462}#
-                                        (map (lambda (#{x 3467}#)
-                                               (#{chi 456}#
-                                                 #{x 3467}#
-                                                 #{r 3466}#
-                                                 #{w 3465}#
-                                                 #{mod 3431}#))
-                                             #{val 3453}#)
-                                        (#{chi-body 464}#
-                                          (cons #{e1 3454}# #{e2 3455}#)
-                                          (#{source-wrap 444}#
-                                            #{e 3427}#
-                                            #{w 3465}#
-                                            #{s 3430}#
-                                            #{mod 3431}#)
-                                          #{r 3466}#
-                                          #{w 3465}#
-                                          #{mod 3431}#))))))))))
-                      #{tmp 3438}#)
-                    (let ((#{_ 3472}# #{tmp 3437}#))
-                      (syntax-violation
-                        'letrec
-                        "bad letrec"
-                        (#{source-wrap 444}#
-                          #{e 3427}#
-                          #{w 3429}#
-                          #{s 3430}#
-                          #{mod 3431}#))))))))
-          (#{global-extend 372}#
-            'core
-            'letrec*
-            (lambda (#{e 3473}#
-                     #{r 3474}#
-                     #{w 3475}#
-                     #{s 3476}#
-                     #{mod 3477}#)
-              (let ((#{tmp 3483}# #{e 3473}#))
-                (let ((#{tmp 3484}#
-                        ($sc-dispatch
-                          #{tmp 3483}#
-                          '(_ #(each (any any)) any . each-any))))
-                  (if (if #{tmp 3484}#
-                        (@apply
-                          (lambda (#{id 3489}#
-                                   #{val 3490}#
-                                   #{e1 3491}#
-                                   #{e2 3492}#)
-                            (and-map #{id? 376}# #{id 3489}#))
-                          #{tmp 3484}#)
-                        #f)
-                    (@apply
-                      (lambda (#{id 3498}#
-                               #{val 3499}#
-                               #{e1 3500}#
-                               #{e2 3501}#)
-                        (begin
-                          (let ((#{ids 3503}# #{id 3498}#))
-                            (if (not (#{valid-bound-ids? 436}# #{ids 3503}#))
-                              (syntax-violation
-                                'letrec*
-                                "duplicate bound variable"
-                                #{e 3473}#)
-                              (begin
-                                (let ((#{labels 3507}#
-                                        (#{gen-labels 391}# #{ids 3503}#))
-                                      (#{new-vars 3508}#
-                                        (map #{gen-var 484}# #{ids 3503}#)))
-                                  (begin
-                                    (let ((#{w 3511}#
-                                            (#{make-binding-wrap 420}#
-                                              #{ids 3503}#
-                                              #{labels 3507}#
-                                              #{w 3475}#))
-                                          (#{r 3512}#
-                                            (#{extend-var-env 366}#
-                                              #{labels 3507}#
-                                              #{new-vars 3508}#
-                                              #{r 3474}#)))
-                                      (#{build-letrec 336}#
-                                        #{s 3476}#
-                                        #t
-                                        (map syntax->datum #{ids 3503}#)
-                                        #{new-vars 3508}#
-                                        (map (lambda (#{x 3513}#)
-                                               (#{chi 456}#
-                                                 #{x 3513}#
-                                                 #{r 3512}#
-                                                 #{w 3511}#
-                                                 #{mod 3477}#))
-                                             #{val 3499}#)
-                                        (#{chi-body 464}#
-                                          (cons #{e1 3500}# #{e2 3501}#)
-                                          (#{source-wrap 444}#
-                                            #{e 3473}#
-                                            #{w 3511}#
-                                            #{s 3476}#
-                                            #{mod 3477}#)
-                                          #{r 3512}#
-                                          #{w 3511}#
-                                          #{mod 3477}#))))))))))
-                      #{tmp 3484}#)
-                    (let ((#{_ 3518}# #{tmp 3483}#))
-                      (syntax-violation
-                        'letrec*
-                        "bad letrec*"
-                        (#{source-wrap 444}#
-                          #{e 3473}#
-                          #{w 3475}#
-                          #{s 3476}#
-                          #{mod 3477}#))))))))
-          (#{global-extend 372}#
-            'core
-            'set!
-            (lambda (#{e 3519}#
-                     #{r 3520}#
-                     #{w 3521}#
-                     #{s 3522}#
-                     #{mod 3523}#)
-              (let ((#{tmp 3529}# #{e 3519}#))
-                (let ((#{tmp 3530}#
-                        ($sc-dispatch #{tmp 3529}# '(_ any any))))
-                  (if (if #{tmp 3530}#
-                        (@apply
-                          (lambda (#{id 3533}# #{val 3534}#)
-                            (#{id? 376}# #{id 3533}#))
-                          #{tmp 3530}#)
-                        #f)
-                    (@apply
-                      (lambda (#{id 3537}# #{val 3538}#)
-                        (begin
-                          (let ((#{n 3541}#
-                                  (#{id-var-name 430}# #{id 3537}# #{w 3521}#))
-                                (#{id-mod 3542}#
-                                  (if (#{syntax-object? 342}# #{id 3537}#)
-                                    (#{syntax-object-module 348}# #{id 3537}#)
-                                    #{mod 3523}#)))
-                            (begin
-                              (let ((#{b 3544}#
-                                      (#{lookup 370}#
-                                        #{n 3541}#
-                                        #{r 3520}#
-                                        #{id-mod 3542}#)))
-                                (begin
-                                  (let ((#{atom-key 3547}# (car #{b 3544}#)))
-                                    (if (eqv? #{atom-key 3547}# 'lexical)
-                                      (#{build-lexical-assignment 310}#
-                                        #{s 3522}#
-                                        (syntax->datum #{id 3537}#)
-                                        (cdr #{b 3544}#)
-                                        (#{chi 456}#
-                                          #{val 3538}#
-                                          #{r 3520}#
-                                          #{w 3521}#
-                                          #{mod 3523}#))
-                                      (if (eqv? #{atom-key 3547}# 'global)
-                                        (#{build-global-assignment 316}#
-                                          #{s 3522}#
-                                          #{n 3541}#
-                                          (#{chi 456}#
-                                            #{val 3538}#
-                                            #{r 3520}#
-                                            #{w 3521}#
-                                            #{mod 3523}#)
-                                          #{id-mod 3542}#)
-                                        (if (eqv? #{atom-key 3547}# 'macro)
-                                          (begin
-                                            (let ((#{p 3554}#
-                                                    (cdr #{b 3544}#)))
-                                              (if (procedure-property
-                                                    #{p 3554}#
-                                                    'variable-transformer)
-                                                (#{chi 456}#
-                                                  (#{chi-macro 462}#
-                                                    #{p 3554}#
-                                                    #{e 3519}#
-                                                    #{r 3520}#
-                                                    #{w 3521}#
-                                                    #{s 3522}#
-                                                    #f
-                                                    #{mod 3523}#)
-                                                  #{r 3520}#
-                                                  '(())
-                                                  #{mod 3523}#)
-                                                (syntax-violation
-                                                  'set!
-                                                  "not a variable transformer"
-                                                  (#{wrap 442}#
-                                                    #{e 3519}#
-                                                    #{w 3521}#
-                                                    #{mod 3523}#)
-                                                  (#{wrap 442}#
-                                                    #{id 3537}#
-                                                    #{w 3521}#
-                                                    #{id-mod 3542}#)))))
-                                          (if (eqv? #{atom-key 3547}#
-                                                    'displaced-lexical)
-                                            (syntax-violation
-                                              'set!
-                                              "identifier out of context"
-                                              (#{wrap 442}#
-                                                #{id 3537}#
-                                                #{w 3521}#
-                                                #{mod 3523}#))
-                                            (syntax-violation
-                                              'set!
-                                              "bad set!"
-                                              (#{source-wrap 444}#
-                                                #{e 3519}#
-                                                #{w 3521}#
-                                                #{s 3522}#
-                                                #{mod 3523}#)))))))))))))
-                      #{tmp 3530}#)
-                    (let ((#{tmp 3559}#
-                            ($sc-dispatch
-                              #{tmp 3529}#
-                              '(_ (any . each-any) any))))
-                      (if #{tmp 3559}#
-                        (@apply
-                          (lambda (#{head 3563}# #{tail 3564}# #{val 3565}#)
-                            (call-with-values
-                              (lambda ()
-                                (#{syntax-type 454}#
-                                  #{head 3563}#
-                                  #{r 3520}#
-                                  '(())
-                                  #f
-                                  #f
-                                  #{mod 3523}#
-                                  #t))
-                              (lambda (#{type 3568}#
-                                       #{value 3569}#
-                                       #{ee 3570}#
-                                       #{ww 3571}#
-                                       #{ss 3572}#
-                                       #{modmod 3573}#)
-                                (if (eqv? #{type 3568}# 'module-ref)
-                                  (begin
-                                    (let ((#{val 3582}#
-                                            (#{chi 456}#
-                                              #{val 3565}#
-                                              #{r 3520}#
-                                              #{w 3521}#
-                                              #{mod 3523}#)))
-                                      (call-with-values
-                                        (lambda ()
-                                          (#{value 3569}#
-                                            (cons #{head 3563}# #{tail 3564}#)
-                                            #{r 3520}#
-                                            #{w 3521}#))
-                                        (lambda (#{e 3584}#
-                                                 #{r 3585}#
-                                                 #{w 3586}#
-                                                 #{s* 3587}#
-                                                 #{mod 3588}#)
-                                          (let ((#{tmp 3594}# #{e 3584}#))
-                                            (let ((#{tmp 3595}#
-                                                    (list #{tmp 3594}#)))
-                                              (if (if #{tmp 3595}#
-                                                    (@apply
-                                                      (lambda (#{e 3597}#)
-                                                        (#{id? 376}#
-                                                          #{e 3597}#))
-                                                      #{tmp 3595}#)
-                                                    #f)
-                                                (@apply
-                                                  (lambda (#{e 3599}#)
-                                                    (#{build-global-assignment 
316}#
-                                                      #{s 3522}#
-                                                      (syntax->datum
-                                                        #{e 3599}#)
-                                                      #{val 3582}#
-                                                      #{mod 3588}#))
-                                                  #{tmp 3595}#)
-                                                (syntax-violation
-                                                  #f
-                                                  "source expression failed to 
match any pattern"
-                                                  #{tmp 3594}#))))))))
-                                  (#{build-application 302}#
-                                    #{s 3522}#
-                                    (#{chi 456}#
-                                      (list '#(syntax-object
-                                               setter
-                                               ((top)
-                                                #(ribcage () () ())
-                                                #(ribcage () () ())
-                                                #(ribcage
-                                                  #(type value ee ww ss modmod)
-                                                  #((top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top))
-                                                  #("i3574"
-                                                    "i3575"
-                                                    "i3576"
-                                                    "i3577"
-                                                    "i3578"
-                                                    "i3579"))
-                                                #(ribcage
-                                                  #(head tail val)
-                                                  #((top) (top) (top))
-                                                  #("i3560" "i3561" "i3562"))
-                                                #(ribcage () () ())
-                                                #(ribcage
-                                                  #(e r w s mod)
-                                                  #((top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top))
-                                                  #("i3524"
-                                                    "i3525"
-                                                    "i3526"
-                                                    "i3527"
-                                                    "i3528"))
-                                                #(ribcage
-                                                  (lambda-var-list
-                                                    gen-var
-                                                    strip
-                                                    chi-lambda-case
-                                                    lambda*-formals
-                                                    chi-simple-lambda
-                                                    lambda-formals
-                                                    ellipsis?
-                                                    chi-void
-                                                    eval-local-transformer
-                                                    chi-local-syntax
-                                                    chi-body
-                                                    chi-macro
-                                                    chi-application
-                                                    chi-expr
-                                                    chi
-                                                    syntax-type
-                                                    chi-when-list
-                                                    chi-install-global
-                                                    chi-top-sequence
-                                                    chi-sequence
-                                                    source-wrap
-                                                    wrap
-                                                    bound-id-member?
-                                                    distinct-bound-ids?
-                                                    valid-bound-ids?
-                                                    bound-id=?
-                                                    free-id=?
-                                                    id-var-name
-                                                    same-marks?
-                                                    join-marks
-                                                    join-wraps
-                                                    smart-append
-                                                    make-binding-wrap
-                                                    extend-ribcage!
-                                                    make-empty-ribcage
-                                                    new-mark
-                                                    anti-mark
-                                                    the-anti-mark
-                                                    top-marked?
-                                                    top-wrap
-                                                    empty-wrap
-                                                    set-ribcage-labels!
-                                                    set-ribcage-marks!
-                                                    set-ribcage-symnames!
-                                                    ribcage-labels
-                                                    ribcage-marks
-                                                    ribcage-symnames
-                                                    ribcage?
-                                                    make-ribcage
-                                                    gen-labels
-                                                    gen-label
-                                                    make-rename
-                                                    rename-marks
-                                                    rename-new
-                                                    rename-old
-                                                    subst-rename?
-                                                    wrap-subst
-                                                    wrap-marks
-                                                    make-wrap
-                                                    id-sym-name&marks
-                                                    id-sym-name
-                                                    id?
-                                                    nonsymbol-id?
-                                                    global-extend
-                                                    lookup
-                                                    macros-only-env
-                                                    extend-var-env
-                                                    extend-env
-                                                    null-env
-                                                    binding-value
-                                                    binding-type
-                                                    make-binding
-                                                    arg-check
-                                                    source-annotation
-                                                    no-source
-                                                    set-syntax-object-module!
-                                                    set-syntax-object-wrap!
-                                                    
set-syntax-object-expression!
-                                                    syntax-object-module
-                                                    syntax-object-wrap
-                                                    syntax-object-expression
-                                                    syntax-object?
-                                                    make-syntax-object
-                                                    build-lexical-var
-                                                    build-letrec
-                                                    build-named-let
-                                                    build-let
-                                                    build-sequence
-                                                    build-data
-                                                    build-primref
-                                                    build-lambda-case
-                                                    build-case-lambda
-                                                    build-simple-lambda
-                                                    build-global-definition
-                                                    build-global-assignment
-                                                    build-global-reference
-                                                    analyze-variable
-                                                    build-lexical-assignment
-                                                    build-lexical-reference
-                                                    build-dynlet
-                                                    build-conditional
-                                                    build-application
-                                                    build-void
-                                                    maybe-name-value!
-                                                    decorate-source
-                                                    get-global-definition-hook
-                                                    put-global-definition-hook
-                                                    gensym-hook
-                                                    local-eval-hook
-                                                    top-level-eval-hook
-                                                    fx<
-                                                    fx=
-                                                    fx-
-                                                    fx+
-                                                    set-lambda-meta!
-                                                    lambda-meta
-                                                    lambda?
-                                                    make-dynlet
-                                                    make-letrec
-                                                    make-let
-                                                    make-lambda-case
-                                                    make-lambda
-                                                    make-sequence
-                                                    make-application
-                                                    make-conditional
-                                                    make-toplevel-define
-                                                    make-toplevel-set
-                                                    make-toplevel-ref
-                                                    make-module-set
-                                                    make-module-ref
-                                                    make-lexical-set
-                                                    make-lexical-ref
-                                                    make-primitive-ref
-                                                    make-const
-                                                    make-void)
-                                                  ((top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top)
-                                                   (top))
-                                                  ("i485"
-                                                   "i483"
-                                                   "i481"
-                                                   "i479"
-                                                   "i477"
-                                                   "i475"
-                                                   "i473"
-                                                   "i471"
-                                                   "i469"
-                                                   "i467"
-                                                   "i465"
-                                                   "i463"
-                                                   "i461"
-                                                   "i459"
-                                                   "i457"
-                                                   "i455"
-                                                   "i453"
-                                                   "i451"
-                                                   "i449"
-                                                   "i447"
-                                                   "i445"
-                                                   "i443"
-                                                   "i441"
-                                                   "i439"
-                                                   "i437"
-                                                   "i435"
-                                                   "i433"
-                                                   "i431"
-                                                   "i429"
-                                                   "i427"
-                                                   "i425"
-                                                   "i423"
-                                                   "i421"
-                                                   "i419"
-                                                   "i417"
-                                                   "i416"
-                                                   "i415"
-                                                   "i413"
-                                                   "i412"
-                                                   "i411"
-                                                   "i410"
-                                                   "i409"
-                                                   "i407"
-                                                   "i405"
-                                                   "i403"
-                                                   "i401"
-                                                   "i399"
-                                                   "i397"
-                                                   "i395"
-                                                   "i393"
-                                                   "i390"
-                                                   "i388"
-                                                   "i387"
-                                                   "i386"
-                                                   "i385"
-                                                   "i384"
-                                                   "i383"
-                                                   "i382"
-                                                   "i381"
-                                                   "i380"
-                                                   "i378"
-                                                   "i377"
-                                                   "i375"
-                                                   "i373"
-                                                   "i371"
-                                                   "i369"
-                                                   "i367"
-                                                   "i365"
-                                                   "i363"
-                                                   "i362"
-                                                   "i361"
-                                                   "i360"
-                                                   "i359"
-                                                   "i358"
-                                                   "i356"
-                                                   "i355"
-                                                   "i353"
-                                                   "i351"
-                                                   "i349"
-                                                   "i347"
-                                                   "i345"
-                                                   "i343"
-                                                   "i341"
-                                                   "i339"
-                                                   "i337"
-                                                   "i335"
-                                                   "i333"
-                                                   "i331"
-                                                   "i329"
-                                                   "i327"
-                                                   "i325"
-                                                   "i323"
-                                                   "i321"
-                                                   "i319"
-                                                   "i317"
-                                                   "i315"
-                                                   "i313"
-                                                   "i311"
-                                                   "i309"
-                                                   "i307"
-                                                   "i305"
-                                                   "i303"
-                                                   "i301"
-                                                   "i299"
-                                                   "i297"
-                                                   "i295"
-                                                   "i293"
-                                                   "i291"
-                                                   "i290"
-                                                   "i288"
-                                                   "i286"
-                                                   "i285"
-                                                   "i284"
-                                                   "i283"
-                                                   "i282"
-                                                   "i280"
-                                                   "i278"
-                                                   "i276"
-                                                   "i273"
-                                                   "i271"
-                                                   "i269"
-                                                   "i267"
-                                                   "i265"
-                                                   "i263"
-                                                   "i261"
-                                                   "i259"
-                                                   "i257"
-                                                   "i255"
-                                                   "i253"
-                                                   "i251"
-                                                   "i249"
-                                                   "i247"
-                                                   "i245"
-                                                   "i243"
-                                                   "i241"
-                                                   "i239"))
-                                                #(ribcage
-                                                  (define-structure
-                                                    define-expansion-accessors
-                                                    
define-expansion-constructors
-                                                    and-map*)
-                                                  ((top) (top) (top) (top))
-                                                  ("i41" "i40" "i39" "i37")))
-                                               (hygiene guile))
-                                            #{head 3563}#)
-                                      #{r 3520}#
-                                      #{w 3521}#
-                                      #{mod 3523}#)
-                                    (map (lambda (#{e 3601}#)
-                                           (#{chi 456}#
-                                             #{e 3601}#
-                                             #{r 3520}#
-                                             #{w 3521}#
-                                             #{mod 3523}#))
-                                         (append
-                                           #{tail 3564}#
-                                           (list #{val 3565}#))))))))
-                          #{tmp 3559}#)
-                        (let ((#{_ 3605}# #{tmp 3529}#))
-                          (syntax-violation
-                            'set!
-                            "bad set!"
-                            (#{source-wrap 444}#
-                              #{e 3519}#
-                              #{w 3521}#
-                              #{s 3522}#
-                              #{mod 3523}#))))))))))
-          (#{global-extend 372}#
-            'module-ref
-            '@
-            (lambda (#{e 3606}# #{r 3607}# #{w 3608}#)
-              (let ((#{tmp 3612}# #{e 3606}#))
-                (let ((#{tmp 3613}#
-                        ($sc-dispatch #{tmp 3612}# '(_ each-any any))))
-                  (if (if #{tmp 3613}#
-                        (@apply
-                          (lambda (#{mod 3616}# #{id 3617}#)
-                            (if (and-map #{id? 376}# #{mod 3616}#)
-                              (#{id? 376}# #{id 3617}#)
-                              #f))
-                          #{tmp 3613}#)
-                        #f)
-                    (@apply
-                      (lambda (#{mod 3623}# #{id 3624}#)
-                        (values
-                          (syntax->datum #{id 3624}#)
-                          #{r 3607}#
-                          #{w 3608}#
-                          #f
-                          (syntax->datum
-                            (cons '#(syntax-object
-                                     public
+             'make-syntax-transformer)
+           (list (#{build-data 291}# #f #{name 1713}#)
+                 (#{build-data 291}# #f 'macro)
+                 #{e 1714}#)))))
+   (#{chi-when-list 415}#
+     (lambda (#{e 1722}# #{when-list 1723}# #{w 1724}#)
+       (letrec*
+         ((#{f 1731}#
+            (lambda (#{when-list 1732}# #{situations 1733}#)
+              (if (null? #{when-list 1732}#)
+                #{situations 1733}#
+                (#{f 1731}#
+                  (cdr #{when-list 1732}#)
+                  (cons (begin
+                          (let ((#{x 1735}# (car #{when-list 1732}#)))
+                            (if (#{free-id=? 395}#
+                                  #{x 1735}#
+                                  '#(syntax-object
+                                     compile
                                      ((top)
+                                      #(ribcage () () ())
+                                      #(ribcage () () ())
+                                      #(ribcage () () ())
+                                      #(ribcage #(x) #((top)) #("i1734"))
+                                      #(ribcage () () ())
                                       #(ribcage
-                                        #(mod id)
-                                        #((top) (top))
-                                        #("i3621" "i3622"))
+                                        #(f when-list situations)
+                                        #((top) (top) (top))
+                                        #("i1728" "i1729" "i1730"))
                                       #(ribcage () () ())
                                       #(ribcage
-                                        #(e r w)
+                                        #(e when-list w)
                                         #((top) (top) (top))
-                                        #("i3609" "i3610" "i3611"))
+                                        #("i1725" "i1726" "i1727"))
                                       #(ribcage
                                         (lambda-var-list
                                           gen-var
@@ -10707,96 +1625,36 @@
                                           maybe-name-value!
                                           decorate-source
                                           get-global-definition-hook
-                                          put-global-definition-hook
-                                          gensym-hook
-                                          local-eval-hook
-                                          top-level-eval-hook
-                                          fx<
-                                          fx=
-                                          fx-
-                                          fx+
-                                          set-lambda-meta!
-                                          lambda-meta
-                                          lambda?
-                                          make-dynlet
-                                          make-letrec
-                                          make-let
-                                          make-lambda-case
-                                          make-lambda
-                                          make-sequence
-                                          make-application
-                                          make-conditional
-                                          make-toplevel-define
-                                          make-toplevel-set
-                                          make-toplevel-ref
-                                          make-module-set
-                                          make-module-ref
-                                          make-lexical-set
-                                          make-lexical-ref
-                                          make-primitive-ref
-                                          make-const
-                                          make-void)
-                                        ((top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
-                                         (top)
+                                          put-global-definition-hook
+                                          gensym-hook
+                                          local-eval-hook
+                                          top-level-eval-hook
+                                          fx<
+                                          fx=
+                                          fx-
+                                          fx+
+                                          set-lambda-meta!
+                                          lambda-meta
+                                          lambda?
+                                          make-dynlet
+                                          make-letrec
+                                          make-let
+                                          make-lambda-case
+                                          make-lambda
+                                          make-sequence
+                                          make-application
+                                          make-conditional
+                                          make-toplevel-define
+                                          make-toplevel-set
+                                          make-toplevel-ref
+                                          make-module-set
+                                          make-module-ref
+                                          make-lexical-set
+                                          make-lexical-ref
+                                          make-primitive-ref
+                                          make-const
+                                          make-void)
+                                        ((top)
                                          (top)
                                          (top)
                                          (top)
@@ -10871,836 +1729,230 @@
                                          (top)
                                          (top)
                                          (top)
-                                         (top))
-                                        ("i485"
-                                         "i483"
-                                         "i481"
-                                         "i479"
-                                         "i477"
-                                         "i475"
-                                         "i473"
-                                         "i471"
-                                         "i469"
-                                         "i467"
-                                         "i465"
-                                         "i463"
-                                         "i461"
-                                         "i459"
-                                         "i457"
-                                         "i455"
-                                         "i453"
-                                         "i451"
-                                         "i449"
-                                         "i447"
-                                         "i445"
-                                         "i443"
-                                         "i441"
-                                         "i439"
-                                         "i437"
-                                         "i435"
-                                         "i433"
-                                         "i431"
-                                         "i429"
-                                         "i427"
-                                         "i425"
-                                         "i423"
-                                         "i421"
-                                         "i419"
-                                         "i417"
-                                         "i416"
-                                         "i415"
-                                         "i413"
-                                         "i412"
-                                         "i411"
-                                         "i410"
-                                         "i409"
-                                         "i407"
-                                         "i405"
-                                         "i403"
-                                         "i401"
-                                         "i399"
-                                         "i397"
-                                         "i395"
-                                         "i393"
-                                         "i390"
-                                         "i388"
-                                         "i387"
-                                         "i386"
-                                         "i385"
-                                         "i384"
-                                         "i383"
-                                         "i382"
-                                         "i381"
-                                         "i380"
-                                         "i378"
-                                         "i377"
-                                         "i375"
-                                         "i373"
-                                         "i371"
-                                         "i369"
-                                         "i367"
-                                         "i365"
-                                         "i363"
-                                         "i362"
-                                         "i361"
-                                         "i360"
-                                         "i359"
-                                         "i358"
-                                         "i356"
-                                         "i355"
-                                         "i353"
-                                         "i351"
-                                         "i349"
-                                         "i347"
-                                         "i345"
-                                         "i343"
-                                         "i341"
-                                         "i339"
-                                         "i337"
-                                         "i335"
-                                         "i333"
-                                         "i331"
-                                         "i329"
-                                         "i327"
-                                         "i325"
-                                         "i323"
-                                         "i321"
-                                         "i319"
-                                         "i317"
-                                         "i315"
-                                         "i313"
-                                         "i311"
-                                         "i309"
-                                         "i307"
-                                         "i305"
-                                         "i303"
-                                         "i301"
-                                         "i299"
-                                         "i297"
-                                         "i295"
-                                         "i293"
-                                         "i291"
-                                         "i290"
-                                         "i288"
-                                         "i286"
-                                         "i285"
-                                         "i284"
-                                         "i283"
-                                         "i282"
-                                         "i280"
-                                         "i278"
-                                         "i276"
-                                         "i273"
-                                         "i271"
-                                         "i269"
-                                         "i267"
-                                         "i265"
-                                         "i263"
-                                         "i261"
-                                         "i259"
-                                         "i257"
-                                         "i255"
-                                         "i253"
-                                         "i251"
-                                         "i249"
-                                         "i247"
-                                         "i245"
-                                         "i243"
-                                         "i241"
-                                         "i239"))
-                                      #(ribcage
-                                        (define-structure
-                                          define-expansion-accessors
-                                          define-expansion-constructors
-                                          and-map*)
-                                        ((top) (top) (top) (top))
-                                        ("i41" "i40" "i39" "i37")))
-                                     (hygiene guile))
-                                  #{mod 3623}#))))
-                      #{tmp 3613}#)
-                    (syntax-violation
-                      #f
-                      "source expression failed to match any pattern"
-                      #{tmp 3612}#))))))
-          (#{global-extend 372}#
-            'module-ref
-            '@@
-            (lambda (#{e 3626}# #{r 3627}# #{w 3628}#)
-              (letrec*
-                ((#{remodulate 3633}#
-                   (lambda (#{x 3634}# #{mod 3635}#)
-                     (if (pair? #{x 3634}#)
-                       (cons (#{remodulate 3633}#
-                               (car #{x 3634}#)
-                               #{mod 3635}#)
-                             (#{remodulate 3633}#
-                               (cdr #{x 3634}#)
-                               #{mod 3635}#))
-                       (if (#{syntax-object? 342}# #{x 3634}#)
-                         (#{make-syntax-object 340}#
-                           (#{remodulate 3633}#
-                             (#{syntax-object-expression 344}# #{x 3634}#)
-                             #{mod 3635}#)
-                           (#{syntax-object-wrap 346}# #{x 3634}#)
-                           #{mod 3635}#)
-                         (if (vector? #{x 3634}#)
-                           (begin
-                             (let ((#{n 3646}# (vector-length #{x 3634}#)))
-                               (begin
-                                 (let ((#{v 3648}# (make-vector #{n 3646}#)))
-                                   (letrec*
-                                     ((#{loop 3651}#
-                                        (lambda (#{i 3652}#)
-                                          (if (= #{i 3652}# #{n 3646}#)
-                                            (begin (if #f #f) #{v 3648}#)
-                                            (begin
-                                              (vector-set!
-                                                #{v 3648}#
-                                                #{i 3652}#
-                                                (#{remodulate 3633}#
-                                                  (vector-ref
-                                                    #{x 3634}#
-                                                    #{i 3652}#)
-                                                  #{mod 3635}#))
-                                              (#{loop 3651}#
-                                                (#{1+}# #{i 3652}#)))))))
-                                     (begin (#{loop 3651}# 0)))))))
-                           #{x 3634}#))))))
-                (begin
-                  (let ((#{tmp 3658}# #{e 3626}#))
-                    (let ((#{tmp 3659}#
-                            ($sc-dispatch #{tmp 3658}# '(_ each-any any))))
-                      (if (if #{tmp 3659}#
-                            (@apply
-                              (lambda (#{mod 3662}# #{exp 3663}#)
-                                (and-map #{id? 376}# #{mod 3662}#))
-                              #{tmp 3659}#)
-                            #f)
-                        (@apply
-                          (lambda (#{mod 3667}# #{exp 3668}#)
-                            (begin
-                              (let ((#{mod 3670}#
-                                      (syntax->datum
-                                        (cons '#(syntax-object
-                                                 private
-                                                 ((top)
-                                                  #(ribcage
-                                                    #(mod exp)
-                                                    #((top) (top))
-                                                    #("i3665" "i3666"))
-                                                  #(ribcage
-                                                    (remodulate)
-                                                    ((top))
-                                                    ("i3632"))
-                                                  #(ribcage
-                                                    #(e r w)
-                                                    #((top) (top) (top))
-                                                    #("i3629" "i3630" "i3631"))
-                                                  #(ribcage
-                                                    (lambda-var-list
-                                                      gen-var
-                                                      strip
-                                                      chi-lambda-case
-                                                      lambda*-formals
-                                                      chi-simple-lambda
-                                                      lambda-formals
-                                                      ellipsis?
-                                                      chi-void
-                                                      eval-local-transformer
-                                                      chi-local-syntax
-                                                      chi-body
-                                                      chi-macro
-                                                      chi-application
-                                                      chi-expr
-                                                      chi
-                                                      syntax-type
-                                                      chi-when-list
-                                                      chi-install-global
-                                                      chi-top-sequence
-                                                      chi-sequence
-                                                      source-wrap
-                                                      wrap
-                                                      bound-id-member?
-                                                      distinct-bound-ids?
-                                                      valid-bound-ids?
-                                                      bound-id=?
-                                                      free-id=?
-                                                      id-var-name
-                                                      same-marks?
-                                                      join-marks
-                                                      join-wraps
-                                                      smart-append
-                                                      make-binding-wrap
-                                                      extend-ribcage!
-                                                      make-empty-ribcage
-                                                      new-mark
-                                                      anti-mark
-                                                      the-anti-mark
-                                                      top-marked?
-                                                      top-wrap
-                                                      empty-wrap
-                                                      set-ribcage-labels!
-                                                      set-ribcage-marks!
-                                                      set-ribcage-symnames!
-                                                      ribcage-labels
-                                                      ribcage-marks
-                                                      ribcage-symnames
-                                                      ribcage?
-                                                      make-ribcage
-                                                      gen-labels
-                                                      gen-label
-                                                      make-rename
-                                                      rename-marks
-                                                      rename-new
-                                                      rename-old
-                                                      subst-rename?
-                                                      wrap-subst
-                                                      wrap-marks
-                                                      make-wrap
-                                                      id-sym-name&marks
-                                                      id-sym-name
-                                                      id?
-                                                      nonsymbol-id?
-                                                      global-extend
-                                                      lookup
-                                                      macros-only-env
-                                                      extend-var-env
-                                                      extend-env
-                                                      null-env
-                                                      binding-value
-                                                      binding-type
-                                                      make-binding
-                                                      arg-check
-                                                      source-annotation
-                                                      no-source
-                                                      set-syntax-object-module!
-                                                      set-syntax-object-wrap!
-                                                      
set-syntax-object-expression!
-                                                      syntax-object-module
-                                                      syntax-object-wrap
-                                                      syntax-object-expression
-                                                      syntax-object?
-                                                      make-syntax-object
-                                                      build-lexical-var
-                                                      build-letrec
-                                                      build-named-let
-                                                      build-let
-                                                      build-sequence
-                                                      build-data
-                                                      build-primref
-                                                      build-lambda-case
-                                                      build-case-lambda
-                                                      build-simple-lambda
-                                                      build-global-definition
-                                                      build-global-assignment
-                                                      build-global-reference
-                                                      analyze-variable
-                                                      build-lexical-assignment
-                                                      build-lexical-reference
-                                                      build-dynlet
-                                                      build-conditional
-                                                      build-application
-                                                      build-void
-                                                      maybe-name-value!
-                                                      decorate-source
-                                                      
get-global-definition-hook
-                                                      
put-global-definition-hook
-                                                      gensym-hook
-                                                      local-eval-hook
-                                                      top-level-eval-hook
-                                                      fx<
-                                                      fx=
-                                                      fx-
-                                                      fx+
-                                                      set-lambda-meta!
-                                                      lambda-meta
-                                                      lambda?
-                                                      make-dynlet
-                                                      make-letrec
-                                                      make-let
-                                                      make-lambda-case
-                                                      make-lambda
-                                                      make-sequence
-                                                      make-application
-                                                      make-conditional
-                                                      make-toplevel-define
-                                                      make-toplevel-set
-                                                      make-toplevel-ref
-                                                      make-module-set
-                                                      make-module-ref
-                                                      make-lexical-set
-                                                      make-lexical-ref
-                                                      make-primitive-ref
-                                                      make-const
-                                                      make-void)
-                                                    ((top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top)
-                                                     (top))
-                                                    ("i485"
-                                                     "i483"
-                                                     "i481"
-                                                     "i479"
-                                                     "i477"
-                                                     "i475"
-                                                     "i473"
-                                                     "i471"
-                                                     "i469"
-                                                     "i467"
-                                                     "i465"
-                                                     "i463"
-                                                     "i461"
-                                                     "i459"
-                                                     "i457"
-                                                     "i455"
-                                                     "i453"
-                                                     "i451"
-                                                     "i449"
-                                                     "i447"
-                                                     "i445"
-                                                     "i443"
-                                                     "i441"
-                                                     "i439"
-                                                     "i437"
-                                                     "i435"
-                                                     "i433"
-                                                     "i431"
-                                                     "i429"
-                                                     "i427"
-                                                     "i425"
-                                                     "i423"
-                                                     "i421"
-                                                     "i419"
-                                                     "i417"
-                                                     "i416"
-                                                     "i415"
-                                                     "i413"
-                                                     "i412"
-                                                     "i411"
-                                                     "i410"
-                                                     "i409"
-                                                     "i407"
-                                                     "i405"
-                                                     "i403"
-                                                     "i401"
-                                                     "i399"
-                                                     "i397"
-                                                     "i395"
-                                                     "i393"
-                                                     "i390"
-                                                     "i388"
-                                                     "i387"
-                                                     "i386"
-                                                     "i385"
-                                                     "i384"
-                                                     "i383"
-                                                     "i382"
-                                                     "i381"
-                                                     "i380"
-                                                     "i378"
-                                                     "i377"
-                                                     "i375"
-                                                     "i373"
-                                                     "i371"
-                                                     "i369"
-                                                     "i367"
-                                                     "i365"
-                                                     "i363"
-                                                     "i362"
-                                                     "i361"
-                                                     "i360"
-                                                     "i359"
-                                                     "i358"
-                                                     "i356"
-                                                     "i355"
-                                                     "i353"
-                                                     "i351"
-                                                     "i349"
-                                                     "i347"
-                                                     "i345"
-                                                     "i343"
-                                                     "i341"
-                                                     "i339"
-                                                     "i337"
-                                                     "i335"
-                                                     "i333"
-                                                     "i331"
-                                                     "i329"
-                                                     "i327"
-                                                     "i325"
-                                                     "i323"
-                                                     "i321"
-                                                     "i319"
-                                                     "i317"
-                                                     "i315"
-                                                     "i313"
-                                                     "i311"
-                                                     "i309"
-                                                     "i307"
-                                                     "i305"
-                                                     "i303"
-                                                     "i301"
-                                                     "i299"
-                                                     "i297"
-                                                     "i295"
-                                                     "i293"
-                                                     "i291"
-                                                     "i290"
-                                                     "i288"
-                                                     "i286"
-                                                     "i285"
-                                                     "i284"
-                                                     "i283"
-                                                     "i282"
-                                                     "i280"
-                                                     "i278"
-                                                     "i276"
-                                                     "i273"
-                                                     "i271"
-                                                     "i269"
-                                                     "i267"
-                                                     "i265"
-                                                     "i263"
-                                                     "i261"
-                                                     "i259"
-                                                     "i257"
-                                                     "i255"
-                                                     "i253"
-                                                     "i251"
-                                                     "i249"
-                                                     "i247"
-                                                     "i245"
-                                                     "i243"
-                                                     "i241"
-                                                     "i239"))
-                                                  #(ribcage
-                                                    (define-structure
-                                                      
define-expansion-accessors
-                                                      
define-expansion-constructors
-                                                      and-map*)
-                                                    ((top) (top) (top) (top))
-                                                    ("i41" "i40" "i39" "i37")))
-                                                 (hygiene guile))
-                                              #{mod 3667}#))))
-                                (values
-                                  (#{remodulate 3633}#
-                                    #{exp 3668}#
-                                    #{mod 3670}#)
-                                  #{r 3627}#
-                                  #{w 3628}#
-                                  (#{source-annotation 357}# #{exp 3668}#)
-                                  #{mod 3670}#))))
-                          #{tmp 3659}#)
-                        (syntax-violation
-                          #f
-                          "source expression failed to match any pattern"
-                          #{tmp 3658}#))))))))
-          (#{global-extend 372}#
-            'core
-            'if
-            (lambda (#{e 3672}#
-                     #{r 3673}#
-                     #{w 3674}#
-                     #{s 3675}#
-                     #{mod 3676}#)
-              (let ((#{tmp 3682}# #{e 3672}#))
-                (let ((#{tmp 3683}#
-                        ($sc-dispatch #{tmp 3682}# '(_ any any))))
-                  (if #{tmp 3683}#
-                    (@apply
-                      (lambda (#{test 3686}# #{then 3687}#)
-                        (#{build-conditional 304}#
-                          #{s 3675}#
-                          (#{chi 456}#
-                            #{test 3686}#
-                            #{r 3673}#
-                            #{w 3674}#
-                            #{mod 3676}#)
-                          (#{chi 456}#
-                            #{then 3687}#
-                            #{r 3673}#
-                            #{w 3674}#
-                            #{mod 3676}#)
-                          (#{build-void 300}# #f)))
-                      #{tmp 3683}#)
-                    (let ((#{tmp 3689}#
-                            ($sc-dispatch #{tmp 3682}# '(_ any any any))))
-                      (if #{tmp 3689}#
-                        (@apply
-                          (lambda (#{test 3693}# #{then 3694}# #{else 3695}#)
-                            (#{build-conditional 304}#
-                              #{s 3675}#
-                              (#{chi 456}#
-                                #{test 3693}#
-                                #{r 3673}#
-                                #{w 3674}#
-                                #{mod 3676}#)
-                              (#{chi 456}#
-                                #{then 3694}#
-                                #{r 3673}#
-                                #{w 3674}#
-                                #{mod 3676}#)
-                              (#{chi 456}#
-                                #{else 3695}#
-                                #{r 3673}#
-                                #{w 3674}#
-                                #{mod 3676}#)))
-                          #{tmp 3689}#)
-                        (syntax-violation
-                          #f
-                          "source expression failed to match any pattern"
-                          #{tmp 3682}#))))))))
-          (#{global-extend 372}#
-            'core
-            'with-fluids
-            (lambda (#{e 3696}#
-                     #{r 3697}#
-                     #{w 3698}#
-                     #{s 3699}#
-                     #{mod 3700}#)
-              (let ((#{tmp 3706}# #{e 3696}#))
-                (let ((#{tmp 3707}#
-                        ($sc-dispatch
-                          #{tmp 3706}#
-                          '(_ #(each (any any)) any . each-any))))
-                  (if #{tmp 3707}#
-                    (@apply
-                      (lambda (#{fluid 3712}#
-                               #{val 3713}#
-                               #{b 3714}#
-                               #{b* 3715}#)
-                        (#{build-dynlet 306}#
-                          #{s 3699}#
-                          (map (lambda (#{x 3716}#)
-                                 (#{chi 456}#
-                                   #{x 3716}#
-                                   #{r 3697}#
-                                   #{w 3698}#
-                                   #{mod 3700}#))
-                               #{fluid 3712}#)
-                          (map (lambda (#{x 3719}#)
-                                 (#{chi 456}#
-                                   #{x 3719}#
-                                   #{r 3697}#
-                                   #{w 3698}#
-                                   #{mod 3700}#))
-                               #{val 3713}#)
-                          (#{chi-body 464}#
-                            (cons #{b 3714}# #{b* 3715}#)
-                            (#{source-wrap 444}#
-                              #{e 3696}#
-                              #{w 3698}#
-                              #{s 3699}#
-                              #{mod 3700}#)
-                            #{r 3697}#
-                            #{w 3698}#
-                            #{mod 3700}#)))
-                      #{tmp 3707}#)
-                    (syntax-violation
-                      #f
-                      "source expression failed to match any pattern"
-                      #{tmp 3706}#))))))
-          (#{global-extend 372}# 'begin 'begin '())
-          (#{global-extend 372}# 'define 'define '())
-          (#{global-extend 372}#
-            'define-syntax
-            'define-syntax
-            '())
-          (#{global-extend 372}# 'eval-when 'eval-when '())
-          (#{global-extend 372}#
-            'core
-            'syntax-case
-            (letrec*
-              ((#{convert-pattern 3724}#
-                 (lambda (#{pattern 3731}# #{keys 3732}#)
-                   (letrec*
-                     ((#{cvt* 3736}#
-                        (lambda (#{p* 3739}# #{n 3740}# #{ids 3741}#)
-                          (if (null? #{p* 3739}#)
-                            (values '() #{ids 3741}#)
-                            (call-with-values
-                              (lambda ()
-                                (#{cvt* 3736}#
-                                  (cdr #{p* 3739}#)
-                                  #{n 3740}#
-                                  #{ids 3741}#))
-                              (lambda (#{y 3745}# #{ids 3746}#)
-                                (call-with-values
-                                  (lambda ()
-                                    (#{cvt 3738}#
-                                      (car #{p* 3739}#)
-                                      #{n 3740}#
-                                      #{ids 3746}#))
-                                  (lambda (#{x 3749}# #{ids 3750}#)
-                                    (values
-                                      (cons #{x 3749}# #{y 3745}#)
-                                      #{ids 3750}#))))))))
-                      (#{cvt 3738}#
-                        (lambda (#{p 3753}# #{n 3754}# #{ids 3755}#)
-                          (if (#{id? 376}# #{p 3753}#)
-                            (if (#{bound-id-member? 440}#
-                                  #{p 3753}#
-                                  #{keys 3732}#)
-                              (values
-                                (vector 'free-id #{p 3753}#)
-                                #{ids 3755}#)
-                              (if (#{free-id=? 432}#
-                                    #{p 3753}#
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top)
+                                         (top))
+                                        ("i448"
+                                         "i446"
+                                         "i444"
+                                         "i442"
+                                         "i440"
+                                         "i438"
+                                         "i436"
+                                         "i434"
+                                         "i432"
+                                         "i430"
+                                         "i428"
+                                         "i426"
+                                         "i424"
+                                         "i422"
+                                         "i420"
+                                         "i418"
+                                         "i416"
+                                         "i414"
+                                         "i412"
+                                         "i410"
+                                         "i408"
+                                         "i406"
+                                         "i404"
+                                         "i402"
+                                         "i400"
+                                         "i398"
+                                         "i396"
+                                         "i394"
+                                         "i392"
+                                         "i390"
+                                         "i388"
+                                         "i386"
+                                         "i384"
+                                         "i382"
+                                         "i380"
+                                         "i379"
+                                         "i378"
+                                         "i376"
+                                         "i375"
+                                         "i374"
+                                         "i373"
+                                         "i372"
+                                         "i370"
+                                         "i368"
+                                         "i366"
+                                         "i364"
+                                         "i362"
+                                         "i360"
+                                         "i358"
+                                         "i356"
+                                         "i353"
+                                         "i351"
+                                         "i350"
+                                         "i349"
+                                         "i348"
+                                         "i347"
+                                         "i346"
+                                         "i345"
+                                         "i344"
+                                         "i343"
+                                         "i341"
+                                         "i340"
+                                         "i338"
+                                         "i336"
+                                         "i334"
+                                         "i332"
+                                         "i330"
+                                         "i328"
+                                         "i326"
+                                         "i325"
+                                         "i324"
+                                         "i323"
+                                         "i322"
+                                         "i321"
+                                         "i319"
+                                         "i318"
+                                         "i316"
+                                         "i314"
+                                         "i312"
+                                         "i310"
+                                         "i308"
+                                         "i306"
+                                         "i304"
+                                         "i302"
+                                         "i300"
+                                         "i298"
+                                         "i296"
+                                         "i294"
+                                         "i292"
+                                         "i290"
+                                         "i288"
+                                         "i286"
+                                         "i284"
+                                         "i282"
+                                         "i280"
+                                         "i278"
+                                         "i276"
+                                         "i274"
+                                         "i272"
+                                         "i270"
+                                         "i268"
+                                         "i266"
+                                         "i264"
+                                         "i262"
+                                         "i260"
+                                         "i258"
+                                         "i256"
+                                         "i254"
+                                         "i253"
+                                         "i251"
+                                         "i249"
+                                         "i248"
+                                         "i247"
+                                         "i246"
+                                         "i245"
+                                         "i243"
+                                         "i241"
+                                         "i239"
+                                         "i236"
+                                         "i234"
+                                         "i232"
+                                         "i230"
+                                         "i228"
+                                         "i226"
+                                         "i224"
+                                         "i222"
+                                         "i220"
+                                         "i218"
+                                         "i216"
+                                         "i214"
+                                         "i212"
+                                         "i210"
+                                         "i208"
+                                         "i206"
+                                         "i204"
+                                         "i202"))
+                                      #(ribcage
+                                        (define-structure
+                                          define-expansion-accessors
+                                          define-expansion-constructors)
+                                        ((top) (top) (top))
+                                        ("i40" "i39" "i38")))
+                                     (hygiene guile)))
+                              'compile
+                              (if (#{free-id=? 395}#
+                                    #{x 1735}#
                                     '#(syntax-object
-                                       _
+                                       load
                                        ((top)
                                         #(ribcage () () ())
+                                        #(ribcage () () ())
+                                        #(ribcage () () ())
+                                        #(ribcage #(x) #((top)) #("i1734"))
+                                        #(ribcage () () ())
                                         #(ribcage
-                                          #(p n ids)
+                                          #(f when-list situations)
                                           #((top) (top) (top))
-                                          #("i3756" "i3757" "i3758"))
-                                        #(ribcage
-                                          (cvt cvt*)
-                                          ((top) (top))
-                                          ("i3737" "i3735"))
-                                        #(ribcage
-                                          #(pattern keys)
-                                          #((top) (top))
-                                          #("i3733" "i3734"))
+                                          #("i1728" "i1729" "i1730"))
+                                        #(ribcage () () ())
                                         #(ribcage
-                                          (gen-syntax-case
-                                            gen-clause
-                                            build-dispatch-call
-                                            convert-pattern)
-                                          ((top) (top) (top) (top))
-                                          ("i3729" "i3727" "i3725" "i3723"))
+                                          #(e when-list w)
+                                          #((top) (top) (top))
+                                          #("i1725" "i1726" "i1727"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
@@ -11974,2427 +2226,11964 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("i485"
-                                           "i483"
-                                           "i481"
-                                           "i479"
-                                           "i477"
-                                           "i475"
-                                           "i473"
-                                           "i471"
-                                           "i469"
-                                           "i467"
-                                           "i465"
-                                           "i463"
-                                           "i461"
-                                           "i459"
-                                           "i457"
-                                           "i455"
-                                           "i453"
-                                           "i451"
-                                           "i449"
-                                           "i447"
-                                           "i445"
-                                           "i443"
-                                           "i441"
-                                           "i439"
-                                           "i437"
-                                           "i435"
-                                           "i433"
-                                           "i431"
-                                           "i429"
-                                           "i427"
-                                           "i425"
-                                           "i423"
-                                           "i421"
-                                           "i419"
-                                           "i417"
+                                          ("i448"
+                                           "i446"
+                                           "i444"
+                                           "i442"
+                                           "i440"
+                                           "i438"
+                                           "i436"
+                                           "i434"
+                                           "i432"
+                                           "i430"
+                                           "i428"
+                                           "i426"
+                                           "i424"
+                                           "i422"
+                                           "i420"
+                                           "i418"
                                            "i416"
-                                           "i415"
-                                           "i413"
+                                           "i414"
                                            "i412"
-                                           "i411"
                                            "i410"
-                                           "i409"
-                                           "i407"
-                                           "i405"
-                                           "i403"
-                                           "i401"
-                                           "i399"
-                                           "i397"
-                                           "i395"
-                                           "i393"
+                                           "i408"
+                                           "i406"
+                                           "i404"
+                                           "i402"
+                                           "i400"
+                                           "i398"
+                                           "i396"
+                                           "i394"
+                                           "i392"
                                            "i390"
                                            "i388"
-                                           "i387"
                                            "i386"
-                                           "i385"
                                            "i384"
-                                           "i383"
                                            "i382"
-                                           "i381"
                                            "i380"
+                                           "i379"
                                            "i378"
-                                           "i377"
+                                           "i376"
                                            "i375"
+                                           "i374"
                                            "i373"
-                                           "i371"
-                                           "i369"
-                                           "i367"
-                                           "i365"
-                                           "i363"
+                                           "i372"
+                                           "i370"
+                                           "i368"
+                                           "i366"
+                                           "i364"
                                            "i362"
-                                           "i361"
                                            "i360"
-                                           "i359"
                                            "i358"
                                            "i356"
-                                           "i355"
                                            "i353"
                                            "i351"
+                                           "i350"
                                            "i349"
+                                           "i348"
                                            "i347"
+                                           "i346"
                                            "i345"
+                                           "i344"
                                            "i343"
                                            "i341"
-                                           "i339"
-                                           "i337"
-                                           "i335"
-                                           "i333"
-                                           "i331"
-                                           "i329"
-                                           "i327"
+                                           "i340"
+                                           "i338"
+                                           "i336"
+                                           "i334"
+                                           "i332"
+                                           "i330"
+                                           "i328"
+                                           "i326"
                                            "i325"
+                                           "i324"
                                            "i323"
+                                           "i322"
                                            "i321"
                                            "i319"
-                                           "i317"
-                                           "i315"
-                                           "i313"
-                                           "i311"
-                                           "i309"
-                                           "i307"
-                                           "i305"
-                                           "i303"
-                                           "i301"
-                                           "i299"
-                                           "i297"
-                                           "i295"
-                                           "i293"
-                                           "i291"
+                                           "i318"
+                                           "i316"
+                                           "i314"
+                                           "i312"
+                                           "i310"
+                                           "i308"
+                                           "i306"
+                                           "i304"
+                                           "i302"
+                                           "i300"
+                                           "i298"
+                                           "i296"
+                                           "i294"
+                                           "i292"
                                            "i290"
                                            "i288"
                                            "i286"
-                                           "i285"
                                            "i284"
-                                           "i283"
                                            "i282"
                                            "i280"
                                            "i278"
                                            "i276"
-                                           "i273"
-                                           "i271"
-                                           "i269"
-                                           "i267"
-                                           "i265"
-                                           "i263"
-                                           "i261"
-                                           "i259"
-                                           "i257"
-                                           "i255"
+                                           "i274"
+                                           "i272"
+                                           "i270"
+                                           "i268"
+                                           "i266"
+                                           "i264"
+                                           "i262"
+                                           "i260"
+                                           "i258"
+                                           "i256"
+                                           "i254"
                                            "i253"
                                            "i251"
                                            "i249"
+                                           "i248"
                                            "i247"
+                                           "i246"
                                            "i245"
                                            "i243"
                                            "i241"
-                                           "i239"))
+                                           "i239"
+                                           "i236"
+                                           "i234"
+                                           "i232"
+                                           "i230"
+                                           "i228"
+                                           "i226"
+                                           "i224"
+                                           "i222"
+                                           "i220"
+                                           "i218"
+                                           "i216"
+                                           "i214"
+                                           "i212"
+                                           "i210"
+                                           "i208"
+                                           "i206"
+                                           "i204"
+                                           "i202"))
                                         #(ribcage
                                           (define-structure
                                             define-expansion-accessors
-                                            define-expansion-constructors
-                                            and-map*)
-                                          ((top) (top) (top) (top))
-                                          ("i41" "i40" "i39" "i37")))
+                                            define-expansion-constructors)
+                                          ((top) (top) (top))
+                                          ("i40" "i39" "i38")))
                                        (hygiene guile)))
-                                (values '_ #{ids 3755}#)
+                                'load
+                                (if (#{free-id=? 395}#
+                                      #{x 1735}#
+                                      '#(syntax-object
+                                         eval
+                                         ((top)
+                                          #(ribcage () () ())
+                                          #(ribcage () () ())
+                                          #(ribcage () () ())
+                                          #(ribcage #(x) #((top)) #("i1734"))
+                                          #(ribcage () () ())
+                                          #(ribcage
+                                            #(f when-list situations)
+                                            #((top) (top) (top))
+                                            #("i1728" "i1729" "i1730"))
+                                          #(ribcage () () ())
+                                          #(ribcage
+                                            #(e when-list w)
+                                            #((top) (top) (top))
+                                            #("i1725" "i1726" "i1727"))
+                                          #(ribcage
+                                            (lambda-var-list
+                                              gen-var
+                                              strip
+                                              chi-lambda-case
+                                              lambda*-formals
+                                              chi-simple-lambda
+                                              lambda-formals
+                                              ellipsis?
+                                              chi-void
+                                              eval-local-transformer
+                                              chi-local-syntax
+                                              chi-body
+                                              chi-macro
+                                              chi-application
+                                              chi-expr
+                                              chi
+                                              syntax-type
+                                              chi-when-list
+                                              chi-install-global
+                                              chi-top-sequence
+                                              chi-sequence
+                                              source-wrap
+                                              wrap
+                                              bound-id-member?
+                                              distinct-bound-ids?
+                                              valid-bound-ids?
+                                              bound-id=?
+                                              free-id=?
+                                              id-var-name
+                                              same-marks?
+                                              join-marks
+                                              join-wraps
+                                              smart-append
+                                              make-binding-wrap
+                                              extend-ribcage!
+                                              make-empty-ribcage
+                                              new-mark
+                                              anti-mark
+                                              the-anti-mark
+                                              top-marked?
+                                              top-wrap
+                                              empty-wrap
+                                              set-ribcage-labels!
+                                              set-ribcage-marks!
+                                              set-ribcage-symnames!
+                                              ribcage-labels
+                                              ribcage-marks
+                                              ribcage-symnames
+                                              ribcage?
+                                              make-ribcage
+                                              gen-labels
+                                              gen-label
+                                              make-rename
+                                              rename-marks
+                                              rename-new
+                                              rename-old
+                                              subst-rename?
+                                              wrap-subst
+                                              wrap-marks
+                                              make-wrap
+                                              id-sym-name&marks
+                                              id-sym-name
+                                              id?
+                                              nonsymbol-id?
+                                              global-extend
+                                              lookup
+                                              macros-only-env
+                                              extend-var-env
+                                              extend-env
+                                              null-env
+                                              binding-value
+                                              binding-type
+                                              make-binding
+                                              arg-check
+                                              source-annotation
+                                              no-source
+                                              set-syntax-object-module!
+                                              set-syntax-object-wrap!
+                                              set-syntax-object-expression!
+                                              syntax-object-module
+                                              syntax-object-wrap
+                                              syntax-object-expression
+                                              syntax-object?
+                                              make-syntax-object
+                                              build-lexical-var
+                                              build-letrec
+                                              build-named-let
+                                              build-let
+                                              build-sequence
+                                              build-data
+                                              build-primref
+                                              build-lambda-case
+                                              build-case-lambda
+                                              build-simple-lambda
+                                              build-global-definition
+                                              build-global-assignment
+                                              build-global-reference
+                                              analyze-variable
+                                              build-lexical-assignment
+                                              build-lexical-reference
+                                              build-dynlet
+                                              build-conditional
+                                              build-application
+                                              build-void
+                                              maybe-name-value!
+                                              decorate-source
+                                              get-global-definition-hook
+                                              put-global-definition-hook
+                                              gensym-hook
+                                              local-eval-hook
+                                              top-level-eval-hook
+                                              fx<
+                                              fx=
+                                              fx-
+                                              fx+
+                                              set-lambda-meta!
+                                              lambda-meta
+                                              lambda?
+                                              make-dynlet
+                                              make-letrec
+                                              make-let
+                                              make-lambda-case
+                                              make-lambda
+                                              make-sequence
+                                              make-application
+                                              make-conditional
+                                              make-toplevel-define
+                                              make-toplevel-set
+                                              make-toplevel-ref
+                                              make-module-set
+                                              make-module-ref
+                                              make-lexical-set
+                                              make-lexical-ref
+                                              make-primitive-ref
+                                              make-const
+                                              make-void)
+                                            ((top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top)
+                                             (top))
+                                            ("i448"
+                                             "i446"
+                                             "i444"
+                                             "i442"
+                                             "i440"
+                                             "i438"
+                                             "i436"
+                                             "i434"
+                                             "i432"
+                                             "i430"
+                                             "i428"
+                                             "i426"
+                                             "i424"
+                                             "i422"
+                                             "i420"
+                                             "i418"
+                                             "i416"
+                                             "i414"
+                                             "i412"
+                                             "i410"
+                                             "i408"
+                                             "i406"
+                                             "i404"
+                                             "i402"
+                                             "i400"
+                                             "i398"
+                                             "i396"
+                                             "i394"
+                                             "i392"
+                                             "i390"
+                                             "i388"
+                                             "i386"
+                                             "i384"
+                                             "i382"
+                                             "i380"
+                                             "i379"
+                                             "i378"
+                                             "i376"
+                                             "i375"
+                                             "i374"
+                                             "i373"
+                                             "i372"
+                                             "i370"
+                                             "i368"
+                                             "i366"
+                                             "i364"
+                                             "i362"
+                                             "i360"
+                                             "i358"
+                                             "i356"
+                                             "i353"
+                                             "i351"
+                                             "i350"
+                                             "i349"
+                                             "i348"
+                                             "i347"
+                                             "i346"
+                                             "i345"
+                                             "i344"
+                                             "i343"
+                                             "i341"
+                                             "i340"
+                                             "i338"
+                                             "i336"
+                                             "i334"
+                                             "i332"
+                                             "i330"
+                                             "i328"
+                                             "i326"
+                                             "i325"
+                                             "i324"
+                                             "i323"
+                                             "i322"
+                                             "i321"
+                                             "i319"
+                                             "i318"
+                                             "i316"
+                                             "i314"
+                                             "i312"
+                                             "i310"
+                                             "i308"
+                                             "i306"
+                                             "i304"
+                                             "i302"
+                                             "i300"
+                                             "i298"
+                                             "i296"
+                                             "i294"
+                                             "i292"
+                                             "i290"
+                                             "i288"
+                                             "i286"
+                                             "i284"
+                                             "i282"
+                                             "i280"
+                                             "i278"
+                                             "i276"
+                                             "i274"
+                                             "i272"
+                                             "i270"
+                                             "i268"
+                                             "i266"
+                                             "i264"
+                                             "i262"
+                                             "i260"
+                                             "i258"
+                                             "i256"
+                                             "i254"
+                                             "i253"
+                                             "i251"
+                                             "i249"
+                                             "i248"
+                                             "i247"
+                                             "i246"
+                                             "i245"
+                                             "i243"
+                                             "i241"
+                                             "i239"
+                                             "i236"
+                                             "i234"
+                                             "i232"
+                                             "i230"
+                                             "i228"
+                                             "i226"
+                                             "i224"
+                                             "i222"
+                                             "i220"
+                                             "i218"
+                                             "i216"
+                                             "i214"
+                                             "i212"
+                                             "i210"
+                                             "i208"
+                                             "i206"
+                                             "i204"
+                                             "i202"))
+                                          #(ribcage
+                                            (define-structure
+                                              define-expansion-accessors
+                                              define-expansion-constructors)
+                                            ((top) (top) (top))
+                                            ("i40" "i39" "i38")))
+                                         (hygiene guile)))
+                                  'eval
+                                  (if (#{free-id=? 395}#
+                                        #{x 1735}#
+                                        '#(syntax-object
+                                           expand
+                                           ((top)
+                                            #(ribcage () () ())
+                                            #(ribcage () () ())
+                                            #(ribcage () () ())
+                                            #(ribcage #(x) #((top)) #("i1734"))
+                                            #(ribcage () () ())
+                                            #(ribcage
+                                              #(f when-list situations)
+                                              #((top) (top) (top))
+                                              #("i1728" "i1729" "i1730"))
+                                            #(ribcage () () ())
+                                            #(ribcage
+                                              #(e when-list w)
+                                              #((top) (top) (top))
+                                              #("i1725" "i1726" "i1727"))
+                                            #(ribcage
+                                              (lambda-var-list
+                                                gen-var
+                                                strip
+                                                chi-lambda-case
+                                                lambda*-formals
+                                                chi-simple-lambda
+                                                lambda-formals
+                                                ellipsis?
+                                                chi-void
+                                                eval-local-transformer
+                                                chi-local-syntax
+                                                chi-body
+                                                chi-macro
+                                                chi-application
+                                                chi-expr
+                                                chi
+                                                syntax-type
+                                                chi-when-list
+                                                chi-install-global
+                                                chi-top-sequence
+                                                chi-sequence
+                                                source-wrap
+                                                wrap
+                                                bound-id-member?
+                                                distinct-bound-ids?
+                                                valid-bound-ids?
+                                                bound-id=?
+                                                free-id=?
+                                                id-var-name
+                                                same-marks?
+                                                join-marks
+                                                join-wraps
+                                                smart-append
+                                                make-binding-wrap
+                                                extend-ribcage!
+                                                make-empty-ribcage
+                                                new-mark
+                                                anti-mark
+                                                the-anti-mark
+                                                top-marked?
+                                                top-wrap
+                                                empty-wrap
+                                                set-ribcage-labels!
+                                                set-ribcage-marks!
+                                                set-ribcage-symnames!
+                                                ribcage-labels
+                                                ribcage-marks
+                                                ribcage-symnames
+                                                ribcage?
+                                                make-ribcage
+                                                gen-labels
+                                                gen-label
+                                                make-rename
+                                                rename-marks
+                                                rename-new
+                                                rename-old
+                                                subst-rename?
+                                                wrap-subst
+                                                wrap-marks
+                                                make-wrap
+                                                id-sym-name&marks
+                                                id-sym-name
+                                                id?
+                                                nonsymbol-id?
+                                                global-extend
+                                                lookup
+                                                macros-only-env
+                                                extend-var-env
+                                                extend-env
+                                                null-env
+                                                binding-value
+                                                binding-type
+                                                make-binding
+                                                arg-check
+                                                source-annotation
+                                                no-source
+                                                set-syntax-object-module!
+                                                set-syntax-object-wrap!
+                                                set-syntax-object-expression!
+                                                syntax-object-module
+                                                syntax-object-wrap
+                                                syntax-object-expression
+                                                syntax-object?
+                                                make-syntax-object
+                                                build-lexical-var
+                                                build-letrec
+                                                build-named-let
+                                                build-let
+                                                build-sequence
+                                                build-data
+                                                build-primref
+                                                build-lambda-case
+                                                build-case-lambda
+                                                build-simple-lambda
+                                                build-global-definition
+                                                build-global-assignment
+                                                build-global-reference
+                                                analyze-variable
+                                                build-lexical-assignment
+                                                build-lexical-reference
+                                                build-dynlet
+                                                build-conditional
+                                                build-application
+                                                build-void
+                                                maybe-name-value!
+                                                decorate-source
+                                                get-global-definition-hook
+                                                put-global-definition-hook
+                                                gensym-hook
+                                                local-eval-hook
+                                                top-level-eval-hook
+                                                fx<
+                                                fx=
+                                                fx-
+                                                fx+
+                                                set-lambda-meta!
+                                                lambda-meta
+                                                lambda?
+                                                make-dynlet
+                                                make-letrec
+                                                make-let
+                                                make-lambda-case
+                                                make-lambda
+                                                make-sequence
+                                                make-application
+                                                make-conditional
+                                                make-toplevel-define
+                                                make-toplevel-set
+                                                make-toplevel-ref
+                                                make-module-set
+                                                make-module-ref
+                                                make-lexical-set
+                                                make-lexical-ref
+                                                make-primitive-ref
+                                                make-const
+                                                make-void)
+                                              ((top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top)
+                                               (top))
+                                              ("i448"
+                                               "i446"
+                                               "i444"
+                                               "i442"
+                                               "i440"
+                                               "i438"
+                                               "i436"
+                                               "i434"
+                                               "i432"
+                                               "i430"
+                                               "i428"
+                                               "i426"
+                                               "i424"
+                                               "i422"
+                                               "i420"
+                                               "i418"
+                                               "i416"
+                                               "i414"
+                                               "i412"
+                                               "i410"
+                                               "i408"
+                                               "i406"
+                                               "i404"
+                                               "i402"
+                                               "i400"
+                                               "i398"
+                                               "i396"
+                                               "i394"
+                                               "i392"
+                                               "i390"
+                                               "i388"
+                                               "i386"
+                                               "i384"
+                                               "i382"
+                                               "i380"
+                                               "i379"
+                                               "i378"
+                                               "i376"
+                                               "i375"
+                                               "i374"
+                                               "i373"
+                                               "i372"
+                                               "i370"
+                                               "i368"
+                                               "i366"
+                                               "i364"
+                                               "i362"
+                                               "i360"
+                                               "i358"
+                                               "i356"
+                                               "i353"
+                                               "i351"
+                                               "i350"
+                                               "i349"
+                                               "i348"
+                                               "i347"
+                                               "i346"
+                                               "i345"
+                                               "i344"
+                                               "i343"
+                                               "i341"
+                                               "i340"
+                                               "i338"
+                                               "i336"
+                                               "i334"
+                                               "i332"
+                                               "i330"
+                                               "i328"
+                                               "i326"
+                                               "i325"
+                                               "i324"
+                                               "i323"
+                                               "i322"
+                                               "i321"
+                                               "i319"
+                                               "i318"
+                                               "i316"
+                                               "i314"
+                                               "i312"
+                                               "i310"
+                                               "i308"
+                                               "i306"
+                                               "i304"
+                                               "i302"
+                                               "i300"
+                                               "i298"
+                                               "i296"
+                                               "i294"
+                                               "i292"
+                                               "i290"
+                                               "i288"
+                                               "i286"
+                                               "i284"
+                                               "i282"
+                                               "i280"
+                                               "i278"
+                                               "i276"
+                                               "i274"
+                                               "i272"
+                                               "i270"
+                                               "i268"
+                                               "i266"
+                                               "i264"
+                                               "i262"
+                                               "i260"
+                                               "i258"
+                                               "i256"
+                                               "i254"
+                                               "i253"
+                                               "i251"
+                                               "i249"
+                                               "i248"
+                                               "i247"
+                                               "i246"
+                                               "i245"
+                                               "i243"
+                                               "i241"
+                                               "i239"
+                                               "i236"
+                                               "i234"
+                                               "i232"
+                                               "i230"
+                                               "i228"
+                                               "i226"
+                                               "i224"
+                                               "i222"
+                                               "i220"
+                                               "i218"
+                                               "i216"
+                                               "i214"
+                                               "i212"
+                                               "i210"
+                                               "i208"
+                                               "i206"
+                                               "i204"
+                                               "i202"))
+                                            #(ribcage
+                                              (define-structure
+                                                define-expansion-accessors
+                                                define-expansion-constructors)
+                                              ((top) (top) (top))
+                                              ("i40" "i39" "i38")))
+                                           (hygiene guile)))
+                                    'expand
+                                    (syntax-violation
+                                      'eval-when
+                                      "invalid situation"
+                                      #{e 1722}#
+                                      (#{wrap 405}#
+                                        #{x 1735}#
+                                        #{w 1724}#
+                                        #f))))))))
+                        #{situations 1733}#))))))
+         (begin (#{f 1731}# #{when-list 1723}# '())))))
+   (#{syntax-type 417}#
+     (lambda (#{e 1745}#
+              #{r 1746}#
+              #{w 1747}#
+              #{s 1748}#
+              #{rib 1749}#
+              #{mod 1750}#
+              #{for-car? 1751}#)
+       (if (symbol? #{e 1745}#)
+         (begin
+           (let ((#{n 1763}#
+                   (#{id-var-name 393}# #{e 1745}# #{w 1747}#)))
+             (begin
+               (let ((#{b 1765}#
+                       (#{lookup 333}#
+                         #{n 1763}#
+                         #{r 1746}#
+                         #{mod 1750}#)))
+                 (begin
+                   (let ((#{type 1767}# (car #{b 1765}#)))
+                     (if (eqv? #{type 1767}# 'lexical)
+                       (values
+                         #{type 1767}#
+                         (cdr #{b 1765}#)
+                         #{e 1745}#
+                         #{w 1747}#
+                         #{s 1748}#
+                         #{mod 1750}#)
+                       (if (eqv? #{type 1767}# 'global)
+                         (values
+                           #{type 1767}#
+                           #{n 1763}#
+                           #{e 1745}#
+                           #{w 1747}#
+                           #{s 1748}#
+                           #{mod 1750}#)
+                         (if (eqv? #{type 1767}# 'macro)
+                           (if #{for-car? 1751}#
+                             (values
+                               #{type 1767}#
+                               (cdr #{b 1765}#)
+                               #{e 1745}#
+                               #{w 1747}#
+                               #{s 1748}#
+                               #{mod 1750}#)
+                             (#{syntax-type 417}#
+                               (#{chi-macro 425}#
+                                 (cdr #{b 1765}#)
+                                 #{e 1745}#
+                                 #{r 1746}#
+                                 #{w 1747}#
+                                 #{s 1748}#
+                                 #{rib 1749}#
+                                 #{mod 1750}#)
+                               #{r 1746}#
+                               '(())
+                               #{s 1748}#
+                               #{rib 1749}#
+                               #{mod 1750}#
+                               #f))
+                           (values
+                             #{type 1767}#
+                             (cdr #{b 1765}#)
+                             #{e 1745}#
+                             #{w 1747}#
+                             #{s 1748}#
+                             #{mod 1750}#))))))))))
+         (if (pair? #{e 1745}#)
+           (begin
+             (let ((#{first 1781}# (car #{e 1745}#)))
+               (call-with-values
+                 (lambda ()
+                   (#{syntax-type 417}#
+                     #{first 1781}#
+                     #{r 1746}#
+                     #{w 1747}#
+                     #{s 1748}#
+                     #{rib 1749}#
+                     #{mod 1750}#
+                     #t))
+                 (lambda (#{ftype 1782}#
+                          #{fval 1783}#
+                          #{fe 1784}#
+                          #{fw 1785}#
+                          #{fs 1786}#
+                          #{fmod 1787}#)
+                   (if (eqv? #{ftype 1782}# 'lexical)
+                     (values
+                       'lexical-call
+                       #{fval 1783}#
+                       #{e 1745}#
+                       #{w 1747}#
+                       #{s 1748}#
+                       #{mod 1750}#)
+                     (if (eqv? #{ftype 1782}# 'global)
+                       (values
+                         'global-call
+                         (#{make-syntax-object 303}#
+                           #{fval 1783}#
+                           #{w 1747}#
+                           #{fmod 1787}#)
+                         #{e 1745}#
+                         #{w 1747}#
+                         #{s 1748}#
+                         #{mod 1750}#)
+                       (if (eqv? #{ftype 1782}# 'macro)
+                         (#{syntax-type 417}#
+                           (#{chi-macro 425}#
+                             #{fval 1783}#
+                             #{e 1745}#
+                             #{r 1746}#
+                             #{w 1747}#
+                             #{s 1748}#
+                             #{rib 1749}#
+                             #{mod 1750}#)
+                           #{r 1746}#
+                           '(())
+                           #{s 1748}#
+                           #{rib 1749}#
+                           #{mod 1750}#
+                           #{for-car? 1751}#)
+                         (if (eqv? #{ftype 1782}# 'module-ref)
+                           (call-with-values
+                             (lambda ()
+                               (#{fval 1783}#
+                                 #{e 1745}#
+                                 #{r 1746}#
+                                 #{w 1747}#))
+                             (lambda (#{e 1799}#
+                                      #{r 1800}#
+                                      #{w 1801}#
+                                      #{s 1802}#
+                                      #{mod 1803}#)
+                               (#{syntax-type 417}#
+                                 #{e 1799}#
+                                 #{r 1800}#
+                                 #{w 1801}#
+                                 #{s 1802}#
+                                 #{rib 1749}#
+                                 #{mod 1803}#
+                                 #{for-car? 1751}#)))
+                           (if (eqv? #{ftype 1782}# 'core)
+                             (values
+                               'core-form
+                               #{fval 1783}#
+                               #{e 1745}#
+                               #{w 1747}#
+                               #{s 1748}#
+                               #{mod 1750}#)
+                             (if (eqv? #{ftype 1782}# 'local-syntax)
+                               (values
+                                 'local-syntax-form
+                                 #{fval 1783}#
+                                 #{e 1745}#
+                                 #{w 1747}#
+                                 #{s 1748}#
+                                 #{mod 1750}#)
+                               (if (eqv? #{ftype 1782}# 'begin)
+                                 (values
+                                   'begin-form
+                                   #f
+                                   #{e 1745}#
+                                   #{w 1747}#
+                                   #{s 1748}#
+                                   #{mod 1750}#)
+                                 (if (eqv? #{ftype 1782}# 'eval-when)
+                                   (values
+                                     'eval-when-form
+                                     #f
+                                     #{e 1745}#
+                                     #{w 1747}#
+                                     #{s 1748}#
+                                     #{mod 1750}#)
+                                   (if (eqv? #{ftype 1782}# 'define)
+                                     (let ((#{tmp 1814}# #{e 1745}#))
+                                       (let ((#{tmp 1815}#
+                                               ($sc-dispatch
+                                                 #{tmp 1814}#
+                                                 '(_ any any))))
+                                         (if (if #{tmp 1815}#
+                                               (@apply
+                                                 (lambda (#{name 1818}#
+                                                          #{val 1819}#)
+                                                   (#{id? 339}# #{name 1818}#))
+                                                 #{tmp 1815}#)
+                                               #f)
+                                           (@apply
+                                             (lambda (#{name 1822}#
+                                                      #{val 1823}#)
+                                               (values
+                                                 'define-form
+                                                 #{name 1822}#
+                                                 #{val 1823}#
+                                                 #{w 1747}#
+                                                 #{s 1748}#
+                                                 #{mod 1750}#))
+                                             #{tmp 1815}#)
+                                           (let ((#{tmp 1824}#
+                                                   ($sc-dispatch
+                                                     #{tmp 1814}#
+                                                     '(_ (any . any)
+                                                         any
+                                                         .
+                                                         each-any))))
+                                             (if (if #{tmp 1824}#
+                                                   (@apply
+                                                     (lambda (#{name 1829}#
+                                                              #{args 1830}#
+                                                              #{e1 1831}#
+                                                              #{e2 1832}#)
+                                                       (if (#{id? 339}#
+                                                             #{name 1829}#)
+                                                         (#{valid-bound-ids? 
399}#
+                                                           (#{lambda-var-list 
449}#
+                                                             #{args 1830}#))
+                                                         #f))
+                                                     #{tmp 1824}#)
+                                                   #f)
+                                               (@apply
+                                                 (lambda (#{name 1839}#
+                                                          #{args 1840}#
+                                                          #{e1 1841}#
+                                                          #{e2 1842}#)
+                                                   (values
+                                                     'define-form
+                                                     (#{wrap 405}#
+                                                       #{name 1839}#
+                                                       #{w 1747}#
+                                                       #{mod 1750}#)
+                                                     (#{decorate-source 259}#
+                                                       (cons '#(syntax-object
+                                                                lambda
+                                                                ((top)
+                                                                 #(ribcage
+                                                                   #(name
+                                                                     args
+                                                                     e1
+                                                                     e2)
+                                                                   #((top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top))
+                                                                   #("i1835"
+                                                                     "i1836"
+                                                                     "i1837"
+                                                                     "i1838"))
+                                                                 #(ribcage
+                                                                   ()
+                                                                   ()
+                                                                   ())
+                                                                 #(ribcage
+                                                                   ()
+                                                                   ()
+                                                                   ())
+                                                                 #(ribcage
+                                                                   #(ftype
+                                                                     fval
+                                                                     fe
+                                                                     fw
+                                                                     fs
+                                                                     fmod)
+                                                                   #((top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top))
+                                                                   #("i1788"
+                                                                     "i1789"
+                                                                     "i1790"
+                                                                     "i1791"
+                                                                     "i1792"
+                                                                     "i1793"))
+                                                                 #(ribcage
+                                                                   ()
+                                                                   ()
+                                                                   ())
+                                                                 #(ribcage
+                                                                   #(first)
+                                                                   #((top))
+                                                                   #("i1780"))
+                                                                 #(ribcage
+                                                                   ()
+                                                                   ()
+                                                                   ())
+                                                                 #(ribcage
+                                                                   ()
+                                                                   ()
+                                                                   ())
+                                                                 #(ribcage
+                                                                   ()
+                                                                   ()
+                                                                   ())
+                                                                 #(ribcage
+                                                                   #(e
+                                                                     r
+                                                                     w
+                                                                     s
+                                                                     rib
+                                                                     mod
+                                                                     for-car?)
+                                                                   #((top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top)
+                                                                     (top))
+                                                                   #("i1752"
+                                                                     "i1753"
+                                                                     "i1754"
+                                                                     "i1755"
+                                                                     "i1756"
+                                                                     "i1757"
+                                                                     "i1758"))
+                                                                 #(ribcage
+                                                                   
(lambda-var-list
+                                                                     gen-var
+                                                                     strip
+                                                                     
chi-lambda-case
+                                                                     
lambda*-formals
+                                                                     
chi-simple-lambda
+                                                                     
lambda-formals
+                                                                     ellipsis?
+                                                                     chi-void
+                                                                     
eval-local-transformer
+                                                                     
chi-local-syntax
+                                                                     chi-body
+                                                                     chi-macro
+                                                                     
chi-application
+                                                                     chi-expr
+                                                                     chi
+                                                                     
syntax-type
+                                                                     
chi-when-list
+                                                                     
chi-install-global
+                                                                     
chi-top-sequence
+                                                                     
chi-sequence
+                                                                     
source-wrap
+                                                                     wrap
+                                                                     
bound-id-member?
+                                                                     
distinct-bound-ids?
+                                                                     
valid-bound-ids?
+                                                                     bound-id=?
+                                                                     free-id=?
+                                                                     
id-var-name
+                                                                     
same-marks?
+                                                                     join-marks
+                                                                     join-wraps
+                                                                     
smart-append
+                                                                     
make-binding-wrap
+                                                                     
extend-ribcage!
+                                                                     
make-empty-ribcage
+                                                                     new-mark
+                                                                     anti-mark
+                                                                     
the-anti-mark
+                                                                     
top-marked?
+                                                                     top-wrap
+                                                                     empty-wrap
+                                                                     
set-ribcage-labels!
+                                                                     
set-ribcage-marks!
+                                                                     
set-ribcage-symnames!
+                                                                     
ribcage-labels
+                                                                     
ribcage-marks
+                                                                     
ribcage-symnames
+                                                                     ribcage?
+                                                                     
make-ribcage
+                                                                     gen-labels
+                                                                     gen-label
+                                                                     
make-rename
+                                                                     
rename-marks
+                                                                     rename-new
+                                                                     rename-old
+                                                                     
subst-rename?
+                                                                     wrap-subst
+                                                                     wrap-marks
+                                                                     make-wrap
+                                                                     
id-sym-name&marks
+                                                                     
id-sym-name
+                                                                     id?
+                                                                     
nonsymbol-id?
+                                                                     
global-extend
+                                                                     lookup
+                                                                     
macros-only-env
+                                                                     
extend-var-env
+                                                                     extend-env
+                                                                     null-env
+                                                                     
binding-value
+                                                                     
binding-type
+                                                                     
make-binding
+                                                                     arg-check
+                                                                     
source-annotation
+                                                                     no-source
+                                                                     
set-syntax-object-module!
+                                                                     
set-syntax-object-wrap!
+                                                                     
set-syntax-object-expression!
+                                                                     
syntax-object-module
+                                                                     
syntax-object-wrap
+                                                                     
syntax-object-expression
+                                                                     
syntax-object?
+                                                                     
make-syntax-object
+                                                                     
build-lexical-var
+                                                                     
build-letrec
+                                                                     
build-named-let
+                                                                     build-let
+                                                                     
build-sequence
+                                                                     build-data
+                                                                     
build-primref
+                                                                     
build-lambda-case
+                                                                     
build-case-lambda
+                                                                     
build-simple-lambda
+                                                                     
build-global-definition
+                                                                     
build-global-assignment
+                                                                     
build-global-reference
+                                                                     
analyze-variable
+                                                                     
build-lexical-assignment
+                                                                     
build-lexical-reference
+                                                                     
build-dynlet
+                                                                     
build-conditional
+                                                                     
build-application
+                                                                     build-void
+                                                                     
maybe-name-value!
+                                                                     
decorate-source
+                                                                     
get-global-definition-hook
+                                                                     
put-global-definition-hook
+                                                                     
gensym-hook
+                                                                     
local-eval-hook
+                                                                     
top-level-eval-hook
+                                                                     fx<
+                                                                     fx=
+                                                                     fx-
+                                                                     fx+
+                                                                     
set-lambda-meta!
+                                                                     
lambda-meta
+                                                                     lambda?
+                                                                     
make-dynlet
+                                                                     
make-letrec
+                                                                     make-let
+                                                                     
make-lambda-case
+                                                                     
make-lambda
+                                                                     
make-sequence
+                                                                     
make-application
+                                                                     
make-conditional
+                                                                     
make-toplevel-define
+                                                                     
make-toplevel-set
+                                                                     
make-toplevel-ref
+                                                                     
make-module-set
+                                                                     
make-module-ref
+                                                                     
make-lexical-set
+                                                                     
make-lexical-ref
+                                                                     
make-primitive-ref
+                                                                     make-const
+                                                                     make-void)
+                                                                   ((top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top)
+                                                                    (top))
+                                                                   ("i448"
+                                                                    "i446"
+                                                                    "i444"
+                                                                    "i442"
+                                                                    "i440"
+                                                                    "i438"
+                                                                    "i436"
+                                                                    "i434"
+                                                                    "i432"
+                                                                    "i430"
+                                                                    "i428"
+                                                                    "i426"
+                                                                    "i424"
+                                                                    "i422"
+                                                                    "i420"
+                                                                    "i418"
+                                                                    "i416"
+                                                                    "i414"
+                                                                    "i412"
+                                                                    "i410"
+                                                                    "i408"
+                                                                    "i406"
+                                                                    "i404"
+                                                                    "i402"
+                                                                    "i400"
+                                                                    "i398"
+                                                                    "i396"
+                                                                    "i394"
+                                                                    "i392"
+                                                                    "i390"
+                                                                    "i388"
+                                                                    "i386"
+                                                                    "i384"
+                                                                    "i382"
+                                                                    "i380"
+                                                                    "i379"
+                                                                    "i378"
+                                                                    "i376"
+                                                                    "i375"
+                                                                    "i374"
+                                                                    "i373"
+                                                                    "i372"
+                                                                    "i370"
+                                                                    "i368"
+                                                                    "i366"
+                                                                    "i364"
+                                                                    "i362"
+                                                                    "i360"
+                                                                    "i358"
+                                                                    "i356"
+                                                                    "i353"
+                                                                    "i351"
+                                                                    "i350"
+                                                                    "i349"
+                                                                    "i348"
+                                                                    "i347"
+                                                                    "i346"
+                                                                    "i345"
+                                                                    "i344"
+                                                                    "i343"
+                                                                    "i341"
+                                                                    "i340"
+                                                                    "i338"
+                                                                    "i336"
+                                                                    "i334"
+                                                                    "i332"
+                                                                    "i330"
+                                                                    "i328"
+                                                                    "i326"
+                                                                    "i325"
+                                                                    "i324"
+                                                                    "i323"
+                                                                    "i322"
+                                                                    "i321"
+                                                                    "i319"
+                                                                    "i318"
+                                                                    "i316"
+                                                                    "i314"
+                                                                    "i312"
+                                                                    "i310"
+                                                                    "i308"
+                                                                    "i306"
+                                                                    "i304"
+                                                                    "i302"
+                                                                    "i300"
+                                                                    "i298"
+                                                                    "i296"
+                                                                    "i294"
+                                                                    "i292"
+                                                                    "i290"
+                                                                    "i288"
+                                                                    "i286"
+                                                                    "i284"
+                                                                    "i282"
+                                                                    "i280"
+                                                                    "i278"
+                                                                    "i276"
+                                                                    "i274"
+                                                                    "i272"
+                                                                    "i270"
+                                                                    "i268"
+                                                                    "i266"
+                                                                    "i264"
+                                                                    "i262"
+                                                                    "i260"
+                                                                    "i258"
+                                                                    "i256"
+                                                                    "i254"
+                                                                    "i253"
+                                                                    "i251"
+                                                                    "i249"
+                                                                    "i248"
+                                                                    "i247"
+                                                                    "i246"
+                                                                    "i245"
+                                                                    "i243"
+                                                                    "i241"
+                                                                    "i239"
+                                                                    "i236"
+                                                                    "i234"
+                                                                    "i232"
+                                                                    "i230"
+                                                                    "i228"
+                                                                    "i226"
+                                                                    "i224"
+                                                                    "i222"
+                                                                    "i220"
+                                                                    "i218"
+                                                                    "i216"
+                                                                    "i214"
+                                                                    "i212"
+                                                                    "i210"
+                                                                    "i208"
+                                                                    "i206"
+                                                                    "i204"
+                                                                    "i202"))
+                                                                 #(ribcage
+                                                                   
(define-structure
+                                                                     
define-expansion-accessors
+                                                                     
define-expansion-constructors)
+                                                                   ((top)
+                                                                    (top)
+                                                                    (top))
+                                                                   ("i40"
+                                                                    "i39"
+                                                                    "i38")))
+                                                                (hygiene
+                                                                  guile))
+                                                             (#{wrap 405}#
+                                                               (cons #{args 
1840}#
+                                                                     (cons 
#{e1 1841}#
+                                                                           
#{e2 1842}#))
+                                                               #{w 1747}#
+                                                               #{mod 1750}#))
+                                                       #{s 1748}#)
+                                                     '(())
+                                                     #{s 1748}#
+                                                     #{mod 1750}#))
+                                                 #{tmp 1824}#)
+                                               (let ((#{tmp 1845}#
+                                                       ($sc-dispatch
+                                                         #{tmp 1814}#
+                                                         '(_ any))))
+                                                 (if (if #{tmp 1845}#
+                                                       (@apply
+                                                         (lambda (#{name 
1847}#)
+                                                           (#{id? 339}#
+                                                             #{name 1847}#))
+                                                         #{tmp 1845}#)
+                                                       #f)
+                                                   (@apply
+                                                     (lambda (#{name 1849}#)
+                                                       (values
+                                                         'define-form
+                                                         (#{wrap 405}#
+                                                           #{name 1849}#
+                                                           #{w 1747}#
+                                                           #{mod 1750}#)
+                                                         '(#(syntax-object
+                                                             if
+                                                             ((top)
+                                                              #(ribcage
+                                                                #(name)
+                                                                #((top))
+                                                                #("i1848"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(ftype
+                                                                  fval
+                                                                  fe
+                                                                  fw
+                                                                  fs
+                                                                  fmod)
+                                                                #((top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top))
+                                                                #("i1788"
+                                                                  "i1789"
+                                                                  "i1790"
+                                                                  "i1791"
+                                                                  "i1792"
+                                                                  "i1793"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(first)
+                                                                #((top))
+                                                                #("i1780"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(e
+                                                                  r
+                                                                  w
+                                                                  s
+                                                                  rib
+                                                                  mod
+                                                                  for-car?)
+                                                                #((top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top))
+                                                                #("i1752"
+                                                                  "i1753"
+                                                                  "i1754"
+                                                                  "i1755"
+                                                                  "i1756"
+                                                                  "i1757"
+                                                                  "i1758"))
+                                                              #(ribcage
+                                                                
(lambda-var-list
+                                                                  gen-var
+                                                                  strip
+                                                                  
chi-lambda-case
+                                                                  
lambda*-formals
+                                                                  
chi-simple-lambda
+                                                                  
lambda-formals
+                                                                  ellipsis?
+                                                                  chi-void
+                                                                  
eval-local-transformer
+                                                                  
chi-local-syntax
+                                                                  chi-body
+                                                                  chi-macro
+                                                                  
chi-application
+                                                                  chi-expr
+                                                                  chi
+                                                                  syntax-type
+                                                                  chi-when-list
+                                                                  
chi-install-global
+                                                                  
chi-top-sequence
+                                                                  chi-sequence
+                                                                  source-wrap
+                                                                  wrap
+                                                                  
bound-id-member?
+                                                                  
distinct-bound-ids?
+                                                                  
valid-bound-ids?
+                                                                  bound-id=?
+                                                                  free-id=?
+                                                                  id-var-name
+                                                                  same-marks?
+                                                                  join-marks
+                                                                  join-wraps
+                                                                  smart-append
+                                                                  
make-binding-wrap
+                                                                  
extend-ribcage!
+                                                                  
make-empty-ribcage
+                                                                  new-mark
+                                                                  anti-mark
+                                                                  the-anti-mark
+                                                                  top-marked?
+                                                                  top-wrap
+                                                                  empty-wrap
+                                                                  
set-ribcage-labels!
+                                                                  
set-ribcage-marks!
+                                                                  
set-ribcage-symnames!
+                                                                  
ribcage-labels
+                                                                  ribcage-marks
+                                                                  
ribcage-symnames
+                                                                  ribcage?
+                                                                  make-ribcage
+                                                                  gen-labels
+                                                                  gen-label
+                                                                  make-rename
+                                                                  rename-marks
+                                                                  rename-new
+                                                                  rename-old
+                                                                  subst-rename?
+                                                                  wrap-subst
+                                                                  wrap-marks
+                                                                  make-wrap
+                                                                  
id-sym-name&marks
+                                                                  id-sym-name
+                                                                  id?
+                                                                  nonsymbol-id?
+                                                                  global-extend
+                                                                  lookup
+                                                                  
macros-only-env
+                                                                  
extend-var-env
+                                                                  extend-env
+                                                                  null-env
+                                                                  binding-value
+                                                                  binding-type
+                                                                  make-binding
+                                                                  arg-check
+                                                                  
source-annotation
+                                                                  no-source
+                                                                  
set-syntax-object-module!
+                                                                  
set-syntax-object-wrap!
+                                                                  
set-syntax-object-expression!
+                                                                  
syntax-object-module
+                                                                  
syntax-object-wrap
+                                                                  
syntax-object-expression
+                                                                  
syntax-object?
+                                                                  
make-syntax-object
+                                                                  
build-lexical-var
+                                                                  build-letrec
+                                                                  
build-named-let
+                                                                  build-let
+                                                                  
build-sequence
+                                                                  build-data
+                                                                  build-primref
+                                                                  
build-lambda-case
+                                                                  
build-case-lambda
+                                                                  
build-simple-lambda
+                                                                  
build-global-definition
+                                                                  
build-global-assignment
+                                                                  
build-global-reference
+                                                                  
analyze-variable
+                                                                  
build-lexical-assignment
+                                                                  
build-lexical-reference
+                                                                  build-dynlet
+                                                                  
build-conditional
+                                                                  
build-application
+                                                                  build-void
+                                                                  
maybe-name-value!
+                                                                  
decorate-source
+                                                                  
get-global-definition-hook
+                                                                  
put-global-definition-hook
+                                                                  gensym-hook
+                                                                  
local-eval-hook
+                                                                  
top-level-eval-hook
+                                                                  fx<
+                                                                  fx=
+                                                                  fx-
+                                                                  fx+
+                                                                  
set-lambda-meta!
+                                                                  lambda-meta
+                                                                  lambda?
+                                                                  make-dynlet
+                                                                  make-letrec
+                                                                  make-let
+                                                                  
make-lambda-case
+                                                                  make-lambda
+                                                                  make-sequence
+                                                                  
make-application
+                                                                  
make-conditional
+                                                                  
make-toplevel-define
+                                                                  
make-toplevel-set
+                                                                  
make-toplevel-ref
+                                                                  
make-module-set
+                                                                  
make-module-ref
+                                                                  
make-lexical-set
+                                                                  
make-lexical-ref
+                                                                  
make-primitive-ref
+                                                                  make-const
+                                                                  make-void)
+                                                                ((top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top))
+                                                                ("i448"
+                                                                 "i446"
+                                                                 "i444"
+                                                                 "i442"
+                                                                 "i440"
+                                                                 "i438"
+                                                                 "i436"
+                                                                 "i434"
+                                                                 "i432"
+                                                                 "i430"
+                                                                 "i428"
+                                                                 "i426"
+                                                                 "i424"
+                                                                 "i422"
+                                                                 "i420"
+                                                                 "i418"
+                                                                 "i416"
+                                                                 "i414"
+                                                                 "i412"
+                                                                 "i410"
+                                                                 "i408"
+                                                                 "i406"
+                                                                 "i404"
+                                                                 "i402"
+                                                                 "i400"
+                                                                 "i398"
+                                                                 "i396"
+                                                                 "i394"
+                                                                 "i392"
+                                                                 "i390"
+                                                                 "i388"
+                                                                 "i386"
+                                                                 "i384"
+                                                                 "i382"
+                                                                 "i380"
+                                                                 "i379"
+                                                                 "i378"
+                                                                 "i376"
+                                                                 "i375"
+                                                                 "i374"
+                                                                 "i373"
+                                                                 "i372"
+                                                                 "i370"
+                                                                 "i368"
+                                                                 "i366"
+                                                                 "i364"
+                                                                 "i362"
+                                                                 "i360"
+                                                                 "i358"
+                                                                 "i356"
+                                                                 "i353"
+                                                                 "i351"
+                                                                 "i350"
+                                                                 "i349"
+                                                                 "i348"
+                                                                 "i347"
+                                                                 "i346"
+                                                                 "i345"
+                                                                 "i344"
+                                                                 "i343"
+                                                                 "i341"
+                                                                 "i340"
+                                                                 "i338"
+                                                                 "i336"
+                                                                 "i334"
+                                                                 "i332"
+                                                                 "i330"
+                                                                 "i328"
+                                                                 "i326"
+                                                                 "i325"
+                                                                 "i324"
+                                                                 "i323"
+                                                                 "i322"
+                                                                 "i321"
+                                                                 "i319"
+                                                                 "i318"
+                                                                 "i316"
+                                                                 "i314"
+                                                                 "i312"
+                                                                 "i310"
+                                                                 "i308"
+                                                                 "i306"
+                                                                 "i304"
+                                                                 "i302"
+                                                                 "i300"
+                                                                 "i298"
+                                                                 "i296"
+                                                                 "i294"
+                                                                 "i292"
+                                                                 "i290"
+                                                                 "i288"
+                                                                 "i286"
+                                                                 "i284"
+                                                                 "i282"
+                                                                 "i280"
+                                                                 "i278"
+                                                                 "i276"
+                                                                 "i274"
+                                                                 "i272"
+                                                                 "i270"
+                                                                 "i268"
+                                                                 "i266"
+                                                                 "i264"
+                                                                 "i262"
+                                                                 "i260"
+                                                                 "i258"
+                                                                 "i256"
+                                                                 "i254"
+                                                                 "i253"
+                                                                 "i251"
+                                                                 "i249"
+                                                                 "i248"
+                                                                 "i247"
+                                                                 "i246"
+                                                                 "i245"
+                                                                 "i243"
+                                                                 "i241"
+                                                                 "i239"
+                                                                 "i236"
+                                                                 "i234"
+                                                                 "i232"
+                                                                 "i230"
+                                                                 "i228"
+                                                                 "i226"
+                                                                 "i224"
+                                                                 "i222"
+                                                                 "i220"
+                                                                 "i218"
+                                                                 "i216"
+                                                                 "i214"
+                                                                 "i212"
+                                                                 "i210"
+                                                                 "i208"
+                                                                 "i206"
+                                                                 "i204"
+                                                                 "i202"))
+                                                              #(ribcage
+                                                                
(define-structure
+                                                                  
define-expansion-accessors
+                                                                  
define-expansion-constructors)
+                                                                ((top)
+                                                                 (top)
+                                                                 (top))
+                                                                ("i40"
+                                                                 "i39"
+                                                                 "i38")))
+                                                             (hygiene guile))
+                                                           #(syntax-object
+                                                             #f
+                                                             ((top)
+                                                              #(ribcage
+                                                                #(name)
+                                                                #((top))
+                                                                #("i1848"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(ftype
+                                                                  fval
+                                                                  fe
+                                                                  fw
+                                                                  fs
+                                                                  fmod)
+                                                                #((top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top))
+                                                                #("i1788"
+                                                                  "i1789"
+                                                                  "i1790"
+                                                                  "i1791"
+                                                                  "i1792"
+                                                                  "i1793"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(first)
+                                                                #((top))
+                                                                #("i1780"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(e
+                                                                  r
+                                                                  w
+                                                                  s
+                                                                  rib
+                                                                  mod
+                                                                  for-car?)
+                                                                #((top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top))
+                                                                #("i1752"
+                                                                  "i1753"
+                                                                  "i1754"
+                                                                  "i1755"
+                                                                  "i1756"
+                                                                  "i1757"
+                                                                  "i1758"))
+                                                              #(ribcage
+                                                                
(lambda-var-list
+                                                                  gen-var
+                                                                  strip
+                                                                  
chi-lambda-case
+                                                                  
lambda*-formals
+                                                                  
chi-simple-lambda
+                                                                  
lambda-formals
+                                                                  ellipsis?
+                                                                  chi-void
+                                                                  
eval-local-transformer
+                                                                  
chi-local-syntax
+                                                                  chi-body
+                                                                  chi-macro
+                                                                  
chi-application
+                                                                  chi-expr
+                                                                  chi
+                                                                  syntax-type
+                                                                  chi-when-list
+                                                                  
chi-install-global
+                                                                  
chi-top-sequence
+                                                                  chi-sequence
+                                                                  source-wrap
+                                                                  wrap
+                                                                  
bound-id-member?
+                                                                  
distinct-bound-ids?
+                                                                  
valid-bound-ids?
+                                                                  bound-id=?
+                                                                  free-id=?
+                                                                  id-var-name
+                                                                  same-marks?
+                                                                  join-marks
+                                                                  join-wraps
+                                                                  smart-append
+                                                                  
make-binding-wrap
+                                                                  
extend-ribcage!
+                                                                  
make-empty-ribcage
+                                                                  new-mark
+                                                                  anti-mark
+                                                                  the-anti-mark
+                                                                  top-marked?
+                                                                  top-wrap
+                                                                  empty-wrap
+                                                                  
set-ribcage-labels!
+                                                                  
set-ribcage-marks!
+                                                                  
set-ribcage-symnames!
+                                                                  
ribcage-labels
+                                                                  ribcage-marks
+                                                                  
ribcage-symnames
+                                                                  ribcage?
+                                                                  make-ribcage
+                                                                  gen-labels
+                                                                  gen-label
+                                                                  make-rename
+                                                                  rename-marks
+                                                                  rename-new
+                                                                  rename-old
+                                                                  subst-rename?
+                                                                  wrap-subst
+                                                                  wrap-marks
+                                                                  make-wrap
+                                                                  
id-sym-name&marks
+                                                                  id-sym-name
+                                                                  id?
+                                                                  nonsymbol-id?
+                                                                  global-extend
+                                                                  lookup
+                                                                  
macros-only-env
+                                                                  
extend-var-env
+                                                                  extend-env
+                                                                  null-env
+                                                                  binding-value
+                                                                  binding-type
+                                                                  make-binding
+                                                                  arg-check
+                                                                  
source-annotation
+                                                                  no-source
+                                                                  
set-syntax-object-module!
+                                                                  
set-syntax-object-wrap!
+                                                                  
set-syntax-object-expression!
+                                                                  
syntax-object-module
+                                                                  
syntax-object-wrap
+                                                                  
syntax-object-expression
+                                                                  
syntax-object?
+                                                                  
make-syntax-object
+                                                                  
build-lexical-var
+                                                                  build-letrec
+                                                                  
build-named-let
+                                                                  build-let
+                                                                  
build-sequence
+                                                                  build-data
+                                                                  build-primref
+                                                                  
build-lambda-case
+                                                                  
build-case-lambda
+                                                                  
build-simple-lambda
+                                                                  
build-global-definition
+                                                                  
build-global-assignment
+                                                                  
build-global-reference
+                                                                  
analyze-variable
+                                                                  
build-lexical-assignment
+                                                                  
build-lexical-reference
+                                                                  build-dynlet
+                                                                  
build-conditional
+                                                                  
build-application
+                                                                  build-void
+                                                                  
maybe-name-value!
+                                                                  
decorate-source
+                                                                  
get-global-definition-hook
+                                                                  
put-global-definition-hook
+                                                                  gensym-hook
+                                                                  
local-eval-hook
+                                                                  
top-level-eval-hook
+                                                                  fx<
+                                                                  fx=
+                                                                  fx-
+                                                                  fx+
+                                                                  
set-lambda-meta!
+                                                                  lambda-meta
+                                                                  lambda?
+                                                                  make-dynlet
+                                                                  make-letrec
+                                                                  make-let
+                                                                  
make-lambda-case
+                                                                  make-lambda
+                                                                  make-sequence
+                                                                  
make-application
+                                                                  
make-conditional
+                                                                  
make-toplevel-define
+                                                                  
make-toplevel-set
+                                                                  
make-toplevel-ref
+                                                                  
make-module-set
+                                                                  
make-module-ref
+                                                                  
make-lexical-set
+                                                                  
make-lexical-ref
+                                                                  
make-primitive-ref
+                                                                  make-const
+                                                                  make-void)
+                                                                ((top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top))
+                                                                ("i448"
+                                                                 "i446"
+                                                                 "i444"
+                                                                 "i442"
+                                                                 "i440"
+                                                                 "i438"
+                                                                 "i436"
+                                                                 "i434"
+                                                                 "i432"
+                                                                 "i430"
+                                                                 "i428"
+                                                                 "i426"
+                                                                 "i424"
+                                                                 "i422"
+                                                                 "i420"
+                                                                 "i418"
+                                                                 "i416"
+                                                                 "i414"
+                                                                 "i412"
+                                                                 "i410"
+                                                                 "i408"
+                                                                 "i406"
+                                                                 "i404"
+                                                                 "i402"
+                                                                 "i400"
+                                                                 "i398"
+                                                                 "i396"
+                                                                 "i394"
+                                                                 "i392"
+                                                                 "i390"
+                                                                 "i388"
+                                                                 "i386"
+                                                                 "i384"
+                                                                 "i382"
+                                                                 "i380"
+                                                                 "i379"
+                                                                 "i378"
+                                                                 "i376"
+                                                                 "i375"
+                                                                 "i374"
+                                                                 "i373"
+                                                                 "i372"
+                                                                 "i370"
+                                                                 "i368"
+                                                                 "i366"
+                                                                 "i364"
+                                                                 "i362"
+                                                                 "i360"
+                                                                 "i358"
+                                                                 "i356"
+                                                                 "i353"
+                                                                 "i351"
+                                                                 "i350"
+                                                                 "i349"
+                                                                 "i348"
+                                                                 "i347"
+                                                                 "i346"
+                                                                 "i345"
+                                                                 "i344"
+                                                                 "i343"
+                                                                 "i341"
+                                                                 "i340"
+                                                                 "i338"
+                                                                 "i336"
+                                                                 "i334"
+                                                                 "i332"
+                                                                 "i330"
+                                                                 "i328"
+                                                                 "i326"
+                                                                 "i325"
+                                                                 "i324"
+                                                                 "i323"
+                                                                 "i322"
+                                                                 "i321"
+                                                                 "i319"
+                                                                 "i318"
+                                                                 "i316"
+                                                                 "i314"
+                                                                 "i312"
+                                                                 "i310"
+                                                                 "i308"
+                                                                 "i306"
+                                                                 "i304"
+                                                                 "i302"
+                                                                 "i300"
+                                                                 "i298"
+                                                                 "i296"
+                                                                 "i294"
+                                                                 "i292"
+                                                                 "i290"
+                                                                 "i288"
+                                                                 "i286"
+                                                                 "i284"
+                                                                 "i282"
+                                                                 "i280"
+                                                                 "i278"
+                                                                 "i276"
+                                                                 "i274"
+                                                                 "i272"
+                                                                 "i270"
+                                                                 "i268"
+                                                                 "i266"
+                                                                 "i264"
+                                                                 "i262"
+                                                                 "i260"
+                                                                 "i258"
+                                                                 "i256"
+                                                                 "i254"
+                                                                 "i253"
+                                                                 "i251"
+                                                                 "i249"
+                                                                 "i248"
+                                                                 "i247"
+                                                                 "i246"
+                                                                 "i245"
+                                                                 "i243"
+                                                                 "i241"
+                                                                 "i239"
+                                                                 "i236"
+                                                                 "i234"
+                                                                 "i232"
+                                                                 "i230"
+                                                                 "i228"
+                                                                 "i226"
+                                                                 "i224"
+                                                                 "i222"
+                                                                 "i220"
+                                                                 "i218"
+                                                                 "i216"
+                                                                 "i214"
+                                                                 "i212"
+                                                                 "i210"
+                                                                 "i208"
+                                                                 "i206"
+                                                                 "i204"
+                                                                 "i202"))
+                                                              #(ribcage
+                                                                
(define-structure
+                                                                  
define-expansion-accessors
+                                                                  
define-expansion-constructors)
+                                                                ((top)
+                                                                 (top)
+                                                                 (top))
+                                                                ("i40"
+                                                                 "i39"
+                                                                 "i38")))
+                                                             (hygiene guile))
+                                                           #(syntax-object
+                                                             #f
+                                                             ((top)
+                                                              #(ribcage
+                                                                #(name)
+                                                                #((top))
+                                                                #("i1848"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(ftype
+                                                                  fval
+                                                                  fe
+                                                                  fw
+                                                                  fs
+                                                                  fmod)
+                                                                #((top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top))
+                                                                #("i1788"
+                                                                  "i1789"
+                                                                  "i1790"
+                                                                  "i1791"
+                                                                  "i1792"
+                                                                  "i1793"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(first)
+                                                                #((top))
+                                                                #("i1780"))
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                ()
+                                                                ()
+                                                                ())
+                                                              #(ribcage
+                                                                #(e
+                                                                  r
+                                                                  w
+                                                                  s
+                                                                  rib
+                                                                  mod
+                                                                  for-car?)
+                                                                #((top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top)
+                                                                  (top))
+                                                                #("i1752"
+                                                                  "i1753"
+                                                                  "i1754"
+                                                                  "i1755"
+                                                                  "i1756"
+                                                                  "i1757"
+                                                                  "i1758"))
+                                                              #(ribcage
+                                                                
(lambda-var-list
+                                                                  gen-var
+                                                                  strip
+                                                                  
chi-lambda-case
+                                                                  
lambda*-formals
+                                                                  
chi-simple-lambda
+                                                                  
lambda-formals
+                                                                  ellipsis?
+                                                                  chi-void
+                                                                  
eval-local-transformer
+                                                                  
chi-local-syntax
+                                                                  chi-body
+                                                                  chi-macro
+                                                                  
chi-application
+                                                                  chi-expr
+                                                                  chi
+                                                                  syntax-type
+                                                                  chi-when-list
+                                                                  
chi-install-global
+                                                                  
chi-top-sequence
+                                                                  chi-sequence
+                                                                  source-wrap
+                                                                  wrap
+                                                                  
bound-id-member?
+                                                                  
distinct-bound-ids?
+                                                                  
valid-bound-ids?
+                                                                  bound-id=?
+                                                                  free-id=?
+                                                                  id-var-name
+                                                                  same-marks?
+                                                                  join-marks
+                                                                  join-wraps
+                                                                  smart-append
+                                                                  
make-binding-wrap
+                                                                  
extend-ribcage!
+                                                                  
make-empty-ribcage
+                                                                  new-mark
+                                                                  anti-mark
+                                                                  the-anti-mark
+                                                                  top-marked?
+                                                                  top-wrap
+                                                                  empty-wrap
+                                                                  
set-ribcage-labels!
+                                                                  
set-ribcage-marks!
+                                                                  
set-ribcage-symnames!
+                                                                  
ribcage-labels
+                                                                  ribcage-marks
+                                                                  
ribcage-symnames
+                                                                  ribcage?
+                                                                  make-ribcage
+                                                                  gen-labels
+                                                                  gen-label
+                                                                  make-rename
+                                                                  rename-marks
+                                                                  rename-new
+                                                                  rename-old
+                                                                  subst-rename?
+                                                                  wrap-subst
+                                                                  wrap-marks
+                                                                  make-wrap
+                                                                  
id-sym-name&marks
+                                                                  id-sym-name
+                                                                  id?
+                                                                  nonsymbol-id?
+                                                                  global-extend
+                                                                  lookup
+                                                                  
macros-only-env
+                                                                  
extend-var-env
+                                                                  extend-env
+                                                                  null-env
+                                                                  binding-value
+                                                                  binding-type
+                                                                  make-binding
+                                                                  arg-check
+                                                                  
source-annotation
+                                                                  no-source
+                                                                  
set-syntax-object-module!
+                                                                  
set-syntax-object-wrap!
+                                                                  
set-syntax-object-expression!
+                                                                  
syntax-object-module
+                                                                  
syntax-object-wrap
+                                                                  
syntax-object-expression
+                                                                  
syntax-object?
+                                                                  
make-syntax-object
+                                                                  
build-lexical-var
+                                                                  build-letrec
+                                                                  
build-named-let
+                                                                  build-let
+                                                                  
build-sequence
+                                                                  build-data
+                                                                  build-primref
+                                                                  
build-lambda-case
+                                                                  
build-case-lambda
+                                                                  
build-simple-lambda
+                                                                  
build-global-definition
+                                                                  
build-global-assignment
+                                                                  
build-global-reference
+                                                                  
analyze-variable
+                                                                  
build-lexical-assignment
+                                                                  
build-lexical-reference
+                                                                  build-dynlet
+                                                                  
build-conditional
+                                                                  
build-application
+                                                                  build-void
+                                                                  
maybe-name-value!
+                                                                  
decorate-source
+                                                                  
get-global-definition-hook
+                                                                  
put-global-definition-hook
+                                                                  gensym-hook
+                                                                  
local-eval-hook
+                                                                  
top-level-eval-hook
+                                                                  fx<
+                                                                  fx=
+                                                                  fx-
+                                                                  fx+
+                                                                  
set-lambda-meta!
+                                                                  lambda-meta
+                                                                  lambda?
+                                                                  make-dynlet
+                                                                  make-letrec
+                                                                  make-let
+                                                                  
make-lambda-case
+                                                                  make-lambda
+                                                                  make-sequence
+                                                                  
make-application
+                                                                  
make-conditional
+                                                                  
make-toplevel-define
+                                                                  
make-toplevel-set
+                                                                  
make-toplevel-ref
+                                                                  
make-module-set
+                                                                  
make-module-ref
+                                                                  
make-lexical-set
+                                                                  
make-lexical-ref
+                                                                  
make-primitive-ref
+                                                                  make-const
+                                                                  make-void)
+                                                                ((top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+