guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, master, updated. release_1-9-6-73-ge80


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-6-73-ge809758
Date: Tue, 05 Jan 2010 14:34:59 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e809758a7e0f3f63162a0a9064b95bd1c1d10628

The branch, master has been updated
       via  e809758a7e0f3f63162a0a9064b95bd1c1d10628 (commit)
       via  bab980466108c6c22d2c820213d07b3d1b18c48e (commit)
       via  9f09b127d447991bd749235f78516700a20c7dff (commit)
       via  ea7d717b1ed5ae84812c53dbbc3f399c6ff0b65e (commit)
       via  54cd715022acc06bcf59038d863b1a3ab7e4bba1 (commit)
      from  e773b1e6ce2af1753034cb1065518c2341228008 (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 e809758a7e0f3f63162a0a9064b95bd1c1d10628
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 5 15:20:47 2010 +0100

    clean up macros.[ch]
    
    There are some incompatible changes here, but only to interfaces that
    were introduced earlier in 1.9, or interfaces which have been broken
    since early in 1.9.
    
    * libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Bump, as the macro
      changes affect the interface that is called by psyntax-generated macro
      definitions.
    
    * libguile/inline.h (scm_words): New function, allocates a variable
      number of contiguous scm_t_bits locations, with a given value in the
      0th word, and 0 in the rest of the words.
    
    * libguile/macros.h: Rework interface to correspond more closely, and
      minimally, to the needs of memoize.c and psyntax.
      (SCM_ASSYNT, SCM_MACRO_TYPE_BITS, SCM_MACRO_TYPE_MASK)
      (SCM_F_MACRO_EXTENDED, SCM_MACROP, SCM_MACRO_TYPE)
      (SCM_MACRO_IS_EXTENDED, SCM_BUILTIN_MACRO_P, SCM_SYNCASE_MACRO_P)
      (SCM_MACRO_CODE, scm_tc16_macro): Remove CPP macros related to the
      representation of Scheme macros.
      (scm_i_make_primitive_macro): Renamed from scm_i_makbimacro.
      (scm_i_macro_primitive): New accessor so that memoize.c can get to the
      primitive syntax transformer.
      (scm_make_syncase_macro, scm_make_extended_syncase_macro)
      (scm_syncase_macro_type, scm_syncase_macro_binding): Removed these
      functions, replaced by make-syntax-transformer and its accessors.
      (scm_macro_binding): New accessor, the same as what
      scm_syncase_macro_binding was.
    
    * libguile/macros.c: All representation details of syntax transformers
      are private to this file now.
      (macro_print): Print macros as #<syntax-transformer ...>, or
      #<primitive-syntax-transformer ...> if psyntax has not attached a
      transformer of its own.
      (scm_i_make_primitive_macro): Represent macros as 5-word smobs.
      (scm_make_syntax_transformer): New constructor for syntax transformers
      (macros), exported to scheme. Takes a name, and looks it up in the
      current module to determine the previous primitive transformer, if
      any.
      (scm_macro_type): Instead of returning 'builtin-macro!, etc, return
      the type as set by psyntax, or #f if it's a primitive.
      (scm_macro_name): Return the stored macro name.
      (scm_macro_transformer): Return the psyntax-set syntax transformer.
      Hacky, but should help introspection somewhat.
    
    * libguile/memoize.c (memoize_env_ref_transformer): Use the new
      scm_i_macro_primitive, and adapt to other macro API changes.
    
    * module/ice-9/psyntax.scm (put-global-definition-hook)
      (get-global-definition-hook, chi-install-global): Call (and generate
      calls to) the new macro constructors and accessors.
    
    * module/ice-9/psyntax-pp.scm: Doubly regenerated.
    
    * module/ice-9/debugging/traps.scm (trap-here): Comment out this
      definition and export, while it's not working.

commit bab980466108c6c22d2c820213d07b3d1b18c48e
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 5 11:05:12 2010 +0100

    remove mmacros, SCM_SYNTAX snarf macro
    
    * libguile/snarf.h (SCM_SYNTAX): Remove snarf macro, users can't define
      primitive syntax any more.
    
    * libguile/memoize.c (SCM_SYNTAX): Define locally, and just call
      scm_i_makbimacro as there's no difference between that and
      scm_makmmacro. Alter invocations to suit.
    
    * libguile/macros.h:
    * libguile/macros.c (scm_i_makmmacro): Remove; users can't define
      primitive syntax any more. Use define-syntax instead.
      (scm_make_synt): Remove, this was only used by the SCM_SYNTAX snarf
      macro.
      (scm_i_makbimacro): Change prototype of this internal function to make
      the gsubr on behalf of the caller.
      (macro_print, scm_macro_type): Remove cases for mmacros.

commit 9f09b127d447991bd749235f78516700a20c7dff
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 5 10:39:40 2010 +0100

    remove scm_makacro and scm_makmacro
    
    * libguile/macros.h:
    * libguile/macros.c (scm_makacro): Remove this function for making
      "acros", as it is unused and won't work with the compiler.
      (scm_makmacro): Remove this deprecated function for making
      non-memoizing macros, as they won't work with the compiler.
      (macro_print, scm_macro_type): Remove a couple of cases for macros
      that can't be created any more.

commit ea7d717b1ed5ae84812c53dbbc3f399c6ff0b65e
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 5 10:17:41 2010 +0100

    fix include paths in foreign.c
    
    * libguile/foreign.c: Fix include paths.

commit 54cd715022acc06bcf59038d863b1a3ab7e4bba1
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 5 10:16:45 2010 +0100

    remove the deprecatd scm_make_subr_*
    
    * libguile/deprecated.h:
    * libguile/deprecated.c (scm_make_subr, scm_make_subr_with_generic)
      (scm_make_subr_opt): Remove these functions that were deprecated in
      2003, as they explicitly reference subr types.

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

Summary of changes:
 libguile/_scm.h                  |    4 +-
 libguile/deprecated.c            |   34 +-
 libguile/deprecated.h            |   12 +-
 libguile/foreign.c               |    4 +-
 libguile/inline.h                |   41 +-
 libguile/macros.c                |  297 +-
 libguile/macros.h                |   40 +-
 libguile/memoize.c               |   62 +-
 libguile/snarf.h                 |    6 +-
 module/ice-9/debugging/traps.scm |    7 +-
 module/ice-9/psyntax-pp.scm      |15563 +++++++++++++++++++-------------------
 module/ice-9/psyntax.scm         |   83 +-
 12 files changed, 8007 insertions(+), 8146 deletions(-)

diff --git a/libguile/_scm.h b/libguile/_scm.h
index b5c818c..c3aa8ff 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -3,7 +3,7 @@
 #ifndef SCM__SCM_H
 #define SCM__SCM_H
 
-/* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008, 2009 Free Software 
Foundation, Inc.
+/* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008, 2009, 2010 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
@@ -176,7 +176,7 @@
 
 /* Major and minor versions must be single characters. */
 #define SCM_OBJCODE_MAJOR_VERSION 0
-#define SCM_OBJCODE_MINOR_VERSION M
+#define SCM_OBJCODE_MINOR_VERSION N
 #define SCM_OBJCODE_MAJOR_VERSION_STRING        \
   SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
 #define SCM_OBJCODE_MINOR_VERSION_STRING        \
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index c53776c..3a61342 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -2,7 +2,7 @@
    deprecate something, move it here when that is feasible.
 */
 
-/* Copyright (C) 2003, 2004, 2006, 2008, 2009 Free Software Foundation, Inc.
+/* Copyright (C) 2003, 2004, 2006, 2008, 2009, 2010 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
@@ -508,38 +508,6 @@ SCM_DEFINE (scm_read_and_eval_x, "read-and-eval!", 0, 1, 0,
 }
 #undef FUNC_NAME
 
-SCM
-scm_make_subr_opt (const char *name, int type, SCM (*fcn) (), int set)
-{
-  scm_c_issue_deprecation_warning 
-    ("`scm_make_subr_opt' is deprecated.  Use `scm_c_make_subr' or "
-     "`scm_c_define_subr' instead.");
-
-  if (set)
-    return scm_c_define_subr (name, type, fcn);
-  else
-    return scm_c_make_subr (name, type, fcn);
-}
-
-SCM 
-scm_make_subr (const char *name, int type, SCM (*fcn) ())
-{
-  scm_c_issue_deprecation_warning 
-    ("`scm_make_subr' is deprecated.  Use `scm_c_define_subr' instead.");
-
-  return scm_c_define_subr (name, type, fcn);
-}
-
-SCM
-scm_make_subr_with_generic (const char *name, int type, SCM (*fcn) (), SCM *gf)
-{
-  scm_c_issue_deprecation_warning 
-    ("`scm_make_subr_with_generic' is deprecated.  Use "
-     "`scm_c_define_subr_with_generic' instead.");
-  
-  return scm_c_define_subr_with_generic (name, type, fcn, gf);
-}
-
 /* Call thunk(closure) underneath a top-level error handler.
  * If an error occurs, pass the exitval through err_filter and return it.
  * If no error occurs, return the value of thunk.
diff --git a/libguile/deprecated.h b/libguile/deprecated.h
index be56d37..671f40f 100644
--- a/libguile/deprecated.h
+++ b/libguile/deprecated.h
@@ -5,7 +5,7 @@
 #ifndef SCM_DEPRECATED_H
 #define SCM_DEPRECATED_H
 
-/* Copyright (C) 2003,2004, 2005, 2006, 2007, 2009 Free Software Foundation, 
Inc.
+/* Copyright (C) 2003,2004, 2005, 2006, 2007, 2009, 2010 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
@@ -172,16 +172,6 @@ SCM_DEPRECATED SCM scm_read_and_eval_x (SCM port);
 
 #define SCM_SUBR_DOC(x) SCM_BOOL_F
 
-SCM_DEPRECATED SCM scm_make_subr (const char *name, int type, SCM (*fcn) ());
-SCM_DEPRECATED SCM scm_make_subr_with_generic (const char *name,
-                                              int type,
-                                              SCM (*fcn) (),
-                                              SCM *gf);
-SCM_DEPRECATED SCM scm_make_subr_opt (const char *name,
-                                     int type,
-                                     SCM (*fcn) (),
-                                     int set);
-
 SCM_DEPRECATED SCM scm_call_catching_errors (SCM (*thunk)(), SCM 
(*err_filter)(),
                                             void * closure);
 
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 8ace4a1..cdf58b3 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -21,8 +21,8 @@
 #endif
 
 #include <string.h>
-#include "_scm.h"
-#include "foreign.h"
+#include "libguile/_scm.h"
+#include "libguile/foreign.h"
 
 
 
diff --git a/libguile/inline.h b/libguile/inline.h
index 09a1b5a..018e6c6 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -3,7 +3,7 @@
 #ifndef SCM_INLINE_H
 #define SCM_INLINE_H
 
-/* Copyright (C) 2001, 2002, 2003, 2004, 2006, 2008, 2009 Free Software 
Foundation, Inc.
+/* Copyright (C) 2001, 2002, 2003, 2004, 2006, 2008, 2009, 2010 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
@@ -87,6 +87,9 @@ SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr,
                             scm_t_bits ccr, scm_t_bits cdr);
 SCM_API SCM scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr,
                                       scm_t_bits ccr, scm_t_bits cdr);
+SCM_API SCM scm_words (scm_t_bits car, scm_t_uint16 n_words);
+/* no immutable words for now, would require initialization at the same time as
+   allocation */
 
 SCM_API SCM scm_array_handle_ref (scm_t_array_handle *h, ssize_t pos);
 SCM_API void scm_array_handle_set (scm_t_array_handle *h, ssize_t pos, SCM 
val);
@@ -241,6 +244,42 @@ scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr,
 SCM_C_EXTERN_INLINE
 #endif
 SCM
+scm_words (scm_t_bits car, scm_t_uint16 n_words)
+{
+  SCM z;
+
+  z = SCM_PACK ((scm_t_bits) (GC_MALLOC (sizeof (scm_t_bits) * n_words)));
+  SCM_GC_SET_CELL_WORD (z, 0, car);
+
+  /* FIXME: is the following concern even relevant with BDW-GC? */
+
+  /* When this function is inlined, it's possible that the last
+     SCM_GC_SET_CELL_WORD above will be adjacent to a following
+     initialization of z.  E.g., it occurred in scm_make_real.  GCC
+     from around version 3 (e.g., certainly 3.2) began taking
+     advantage of strict C aliasing rules which say that it's OK to
+     interchange the initialization above and the one below when the
+     pointer types appear to differ sufficiently.  We don't want that,
+     of course.  GCC allows this behaviour to be disabled with the
+     -fno-strict-aliasing option, but would also need to be supplied
+     by Guile users.  Instead, the following statements prevent the
+     reordering.
+   */
+#ifdef __GNUC__
+  __asm__ volatile ("" : : : "memory");
+#else
+  /* portable version, just in case any other compiler does the same
+     thing.  */
+  scm_remember_upto_here_1 (z);
+#endif
+
+  return z;
+}
+
+#ifndef SCM_INLINE_C_INCLUDING_INLINE_H
+SCM_C_EXTERN_INLINE
+#endif
+SCM
 scm_array_handle_ref (scm_t_array_handle *h, ssize_t p)
 {
   if (SCM_UNLIKELY (p < 0 && ((size_t)-p) > h->base))
diff --git a/libguile/macros.c b/libguile/macros.c
index 0d71400..edb6538 100644
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003, 2006, 2008, 2009 
Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003, 2006, 2008, 2009, 
2010 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
@@ -22,296 +22,161 @@
 # include <config.h>
 #endif
 
-#define SCM_BUILDING_DEPRECATED_CODE
-
 #include "libguile/_scm.h"
-#include "libguile/alist.h" /* for SCM_EXTEND_ENV (well...) */
-#include "libguile/eval.h"
 #include "libguile/ports.h"
 #include "libguile/print.h"
-#include "libguile/root.h"
 #include "libguile/smob.h"
-#include "libguile/deprecation.h"
-
 #include "libguile/validate.h"
-#include "libguile/programs.h"
 #include "libguile/macros.h"
 
 #include "libguile/private-options.h"
 
-scm_t_bits scm_tc16_macro;
 
+static scm_t_bits scm_tc16_macro;
 
-static int
-macro_print (SCM macro, SCM port, scm_print_state *pstate)
-{
-  SCM code = SCM_MACRO_CODE (macro);
+#define SCM_MACROP(x) SCM_SMOB_PREDICATE (scm_tc16_macro, (x))
+#define SCM_MACRO_PRIMITIVE(m) ((scm_t_macro_primitive)SCM_SMOB_DATA (m))
+#define SCM_MACRO_NAME(m) (SCM_SMOB_OBJECT_2 (m))
+#define SCM_MACRO_TYPE(m) (SCM_SMOB_OBJECT_3 (m))
+#define SCM_MACRO_BINDING(m) (SCM_CELL_OBJECT ((m), 4))
+#define SCM_VALIDATE_MACRO(p,v) SCM_MAKE_VALIDATE ((p), (v), MACROP)
 
-  scm_puts ("#<", port);
 
-  if (SCM_MACRO_TYPE (macro) < 4 && SCM_MACRO_IS_EXTENDED (macro))
-    scm_puts ("extended-", port);
+SCM_API scm_t_bits scm_tc16_macro;
 
-  /* FIXME: doesn't catch boot closures; but do we care? */
-  if (!SCM_PROGRAM_P (code))
-    scm_puts ("primitive-", port);
 
-  if (SCM_MACRO_TYPE (macro) == 0)
-    scm_puts ("syntax", port);
-#if SCM_ENABLE_DEPRECATED == 1
-  if (SCM_MACRO_TYPE (macro) == 1)
-    scm_puts ("macro", port);
-#endif
-  if (SCM_MACRO_TYPE (macro) == 2)
-    scm_puts ("macro!", port);
-  if (SCM_MACRO_TYPE (macro) == 3)
-    scm_puts ("builtin-macro!", port);
-  if (SCM_MACRO_TYPE (macro) == 4)
-    scm_puts ("syncase-macro", port);
-
-  scm_putc (' ', port);
+static int
+macro_print (SCM macro, SCM port, scm_print_state *pstate)
+{
+  if (scm_is_false (SCM_MACRO_TYPE (macro)))
+    scm_puts ("#<primitive-syntax-transformer ", port);
+  else
+    scm_puts ("#<syntax-transformer ", port);
   scm_iprin1 (scm_macro_name (macro), port, pstate);
-
-  if (SCM_MACRO_IS_EXTENDED (macro))
-    {
-      scm_putc (' ', port);
-      scm_write (SCM_SMOB_OBJECT_2 (macro), port);
-      scm_putc (' ', port);
-      scm_write (SCM_SMOB_OBJECT_3 (macro), port);
-    }
-
   scm_putc ('>', port);
 
   return 1;
 }
 
-static SCM
-makmac (SCM code, scm_t_bits flags)
-{
-  SCM z;
-  SCM_NEWSMOB (z, scm_tc16_macro, SCM_UNPACK (code));
-  SCM_SET_SMOB_FLAGS (z, flags);
-  return z;
-}
-
 /* Return a mmacro that is known to be one of guile's built in macros. */
 SCM
-scm_i_makbimacro (SCM code)
-#define FUNC_NAME "scm_i_makbimacro"
+scm_i_make_primitive_macro (const char *name, scm_t_macro_primitive fn)
 {
-  SCM_VALIDATE_PROC (1, code);
-  return makmac (code, 3);
-}
-#undef FUNC_NAME
-
-
-SCM_DEFINE (scm_makmmacro, "procedure->memoizing-macro", 1, 0, 0, 
-           (SCM code),
-           "Return a @dfn{macro} which, when a symbol defined to this value\n"
-           "appears as the first symbol in an expression, evaluates the\n"
-           "result of applying @var{code} to the expression and the\n"
-           "environment.\n\n"
-           "@code{procedure->memoizing-macro} is the same as\n"
-           "@code{procedure->macro}, except that the expression returned by\n"
-           "@var{code} replaces the original macro expression in the 
memoized\n"
-           "form of the containing code.")
-#define FUNC_NAME s_scm_makmmacro
-{
-  SCM_VALIDATE_PROC (1, code);
-  return makmac (code, 2);
+  SCM z = scm_words (scm_tc16_macro, 5);
+  SCM_SET_SMOB_DATA_N (z, 1, (scm_t_bits)fn);
+  SCM_SET_SMOB_DATA_N (z, 2, scm_from_locale_symbol (name));
+  SCM_SET_SMOB_DATA_N (z, 3, SCM_BOOL_F);
+  SCM_SET_SMOB_DATA_N (z, 4, SCM_BOOL_F);
+  return z;
 }
-#undef FUNC_NAME
 
-
-SCM_DEFINE (scm_makacro, "procedure->syntax", 1, 0, 0,
-            (SCM code),
-           "Return a @dfn{macro} which, when a symbol defined to this value\n"
-           "appears as the first symbol in an expression, returns the\n"
-           "result of applying @var{code} to the expression and the\n"
-           "environment.")
-#define FUNC_NAME s_scm_makacro
+scm_t_macro_primitive
+scm_i_macro_primitive (SCM macro)
 {
-  SCM_VALIDATE_PROC (1, code);
-  return makmac (code, 0);
+  return SCM_MACRO_PRIMITIVE (macro);
 }
-#undef FUNC_NAME
-
 
-#if SCM_ENABLE_DEPRECATED == 1
 
-SCM_DEFINE (scm_makmacro, "procedure->macro", 1, 0, 0, 
-           (SCM code),
-           "Return a @dfn{macro} which, when a symbol defined to this value\n"
-           "appears as the first symbol in an expression, evaluates the\n"
-           "result of applying @var{code} to the expression and the\n"
-           "environment.  For example:\n"
-           "\n"
-           "@lisp\n"
-           "(define trace\n"
-           "  (procedure->macro\n"
-           "   (lambda (x env) `(set! ,(cadr x) (tracef ,(cadr x) ',(cadr 
x))))))\n\n"
-           "(trace @i{foo}) @equiv{} (set! @i{foo} (tracef @i{foo} 
'@i{foo})).\n"
-           "@end lisp")
-#define FUNC_NAME s_scm_makmacro
-{
-  scm_c_issue_deprecation_warning
-    ("The function procedure->macro is deprecated, and so are"
-     " non-memoizing macros in general.  Use memoizing macros"
-     " or r5rs macros instead.");
-
-  SCM_VALIDATE_PROC (1, code);
-  return makmac (code, 1);
-}
-#undef FUNC_NAME
-
-#endif
-
-SCM_DEFINE (scm_make_syncase_macro, "make-syncase-macro", 2, 0, 0,
-            (SCM type, SCM binding),
-           "Return a @dfn{macro} that requires expansion by syntax-case.\n"
-            "While users should not call this function, it is useful to know\n"
-            "that syntax-case macros are represented as Guile primitive 
macros.")
-#define FUNC_NAME s_scm_make_syncase_macro
+SCM_DEFINE (scm_make_syntax_transformer, "make-syntax-transformer", 3, 0, 0,
+            (SCM name, SCM type, SCM binding),
+           "Construct a @dfn{syntax transformer}.\n\n"
+            "This function is part of Guile's low-level support for the 
psyntax\n"
+            "syntax expander. Users should not call this function.")
+#define FUNC_NAME s_scm_make_syntax_transformer
 {
   SCM z;
-  SCM_VALIDATE_SYMBOL (1, type);
+  SCM (*prim)(SCM,SCM) = NULL;
 
-  SCM_NEWSMOB3 (z, scm_tc16_macro, SCM_UNPACK (binding), SCM_UNPACK (type),
-                SCM_UNPACK (binding));
-  SCM_SET_SMOB_FLAGS (z, 4 | SCM_F_MACRO_EXTENDED);
-  return z;
-}
-#undef FUNC_NAME
+  if (scm_is_true (name))
+    {
+      SCM existing_var;
+      
+      SCM_VALIDATE_SYMBOL (1, name);
+      existing_var = scm_sym2var (name, scm_current_module_lookup_closure (),
+                                  SCM_BOOL_F);
+      if (scm_is_true (existing_var)
+          && scm_is_true (scm_variable_bound_p (existing_var))
+          && SCM_MACROP (SCM_VARIABLE_REF (existing_var)))
+        prim = SCM_MACRO_PRIMITIVE (SCM_VARIABLE_REF (existing_var));
+    }
 
-SCM_DEFINE (scm_make_extended_syncase_macro, "make-extended-syncase-macro", 3, 
0, 0,
-            (SCM m, SCM type, SCM binding),
-           "Extend a core macro @var{m} with a syntax-case binding.")
-#define FUNC_NAME s_scm_make_extended_syncase_macro
-{
-  SCM z;
-  SCM_VALIDATE_SMOB (1, m, macro);
   SCM_VALIDATE_SYMBOL (2, type);
 
-  SCM_NEWSMOB3 (z, scm_tc16_macro, SCM_SMOB_DATA (m), SCM_UNPACK (type),
-                SCM_UNPACK (binding));
-  SCM_SET_SMOB_FLAGS (z, SCM_SMOB_FLAGS (m) | SCM_F_MACRO_EXTENDED);
+  z = scm_words (scm_tc16_macro, 5);
+  SCM_SET_SMOB_DATA_N (z, 1, prim);
+  SCM_SET_SMOB_DATA_N (z, 2, name);
+  SCM_SET_SMOB_DATA_N (z, 3, type);
+  SCM_SET_SMOB_DATA_N (z, 4, binding);
   return z;
 }
 #undef FUNC_NAME
 
-
-
 SCM_DEFINE (scm_macro_p, "macro?", 1, 0, 0, 
             (SCM obj),
-           "Return @code{#t} if @var{obj} is a regular macro, a memoizing 
macro, a\n"
-           "syntax transformer, or a syntax-case macro.")
+           "Return @code{#t} if @var{obj} is a syntax transformer (an object 
that "
+            "transforms Scheme expressions at expansion-time).\n\n"
+            "Macros are actually just one kind of syntax transformer; this\n"
+            "procedure has its name due to historical reasons.")
 #define FUNC_NAME s_scm_macro_p
 {
-  return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_macro, obj));
+  return scm_from_bool (SCM_MACROP (obj));
 }
 #undef FUNC_NAME
 
-
-SCM_SYMBOL (scm_sym_syntax, "syntax");
-#if SCM_ENABLE_DEPRECATED == 1
-SCM_SYMBOL (scm_sym_macro, "macro");
-#endif
-SCM_SYMBOL (scm_sym_mmacro, "macro!");
-SCM_SYMBOL (scm_sym_bimacro, "builtin-macro!");
-SCM_SYMBOL (scm_sym_syncase_macro, "syncase-macro");
-
 SCM_DEFINE (scm_macro_type, "macro-type", 1, 0, 0, 
             (SCM m),
-           "Return one of the symbols @code{syntax}, @code{macro},\n"
-           "@code{macro!}, or @code{syntax-case}, depending on whether\n"
-            "@var{m} is a syntax transformer, a regular macro, a memoizing\n"
-            "macro, or a syntax-case macro, respectively.  If @var{m} is\n"
-            "not a macro, @code{#f} is returned.")
+           "Return the type of the syntax transformer @var{m}, as passed to\n"
+            "@code{make-syntax-transformer}. If @var{m} is a primitive 
syntax\n"
+            "transformer, @code{#f} will be returned.")
 #define FUNC_NAME s_scm_macro_type
 {
-  if (!SCM_SMOB_PREDICATE (scm_tc16_macro, m))
-    return SCM_BOOL_F;
-  switch (SCM_MACRO_TYPE (m))
-    {
-    case 0: return scm_sym_syntax;
-#if SCM_ENABLE_DEPRECATED == 1
-    case 1: return scm_sym_macro;
-#endif
-    case 2: return scm_sym_mmacro;
-    case 3: return scm_sym_bimacro;
-    case 4: return scm_sym_syncase_macro;
-    default: scm_wrong_type_arg (FUNC_NAME, 1, m);
-    }
+  SCM_VALIDATE_MACRO (1, m);
+  return SCM_MACRO_TYPE (m);
 }
 #undef FUNC_NAME
 
-
 SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0, 
             (SCM m),
-           "Return the name of the macro @var{m}.")
+           "Return the name of the syntax transformer @var{m}.")
 #define FUNC_NAME s_scm_macro_name
 {
-  SCM_VALIDATE_SMOB (1, m, macro);
-  if (scm_is_true (scm_procedure_p (SCM_SMOB_OBJECT (m))))
-    return scm_procedure_name (SCM_SMOB_OBJECT (m));
-  return SCM_BOOL_F;
+  SCM_VALIDATE_MACRO (1, m);
+  return SCM_MACRO_NAME (m);
 }
 #undef FUNC_NAME
 
-
 SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0, 
             (SCM m),
-           "Return the transformer of the macro @var{m}.")
+           "Return the transformer procedure of the macro @var{m}.\n\n"
+            "If @var{m} is a syntax transformer but not a macro, @code{#f}\n"
+            "will be returned. (This can happen, for example, with primitive\n"
+            "syntax transformers).")
 #define FUNC_NAME s_scm_macro_transformer
 {
-  SCM data;
-
-  SCM_VALIDATE_SMOB (1, m, macro);
-  data = SCM_PACK (SCM_SMOB_DATA (m));
-  
-  if (scm_is_true (scm_procedure_p (data)))
-    return data;
+  SCM_VALIDATE_MACRO (1, m);
+  /* here we rely on knowledge of how psyntax represents macro bindings, but
+     hey, there is code out there that calls this function, and expects to get
+     a procedure in return... */
+  if (scm_is_pair (SCM_MACRO_BINDING (m))
+      && scm_is_true (scm_procedure_p (scm_car (SCM_MACRO_BINDING (m)))))
+    return scm_car (SCM_MACRO_BINDING (m));
   else
     return SCM_BOOL_F;
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (scm_syncase_macro_type, "syncase-macro-type", 1, 0, 0, 
+SCM_DEFINE (scm_macro_binding, "macro-binding", 1, 0, 0, 
             (SCM m),
-           "Return the type of the macro @var{m}.")
-#define FUNC_NAME s_scm_syncase_macro_type
-{
-  SCM_VALIDATE_SMOB (1, m, macro);
-
-  if (SCM_MACRO_IS_EXTENDED (m))
-    return SCM_SMOB_OBJECT_2 (m);
-  else
-    return SCM_BOOL_F;
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_syncase_macro_binding, "syncase-macro-binding", 1, 0, 0, 
-            (SCM m),
-           "Return the binding of the macro @var{m}.")
-#define FUNC_NAME s_scm_syncase_macro_binding
+           "Return the binding of the syntax transformer @var{m}, as passed 
to\n"
+            "@code{make-syntax-transformer}. If @var{m} is a primitive 
syntax\n"
+            "transformer, @code{#f} will be returned.")
+#define FUNC_NAME s_scm_macro_transformer
 {
-  SCM_VALIDATE_SMOB (1, m, macro);
-
-  if (SCM_MACRO_IS_EXTENDED (m))
-    return SCM_SMOB_OBJECT_3 (m);
-  else
-    return SCM_BOOL_F;
+  SCM_VALIDATE_MACRO (1, m);
+  return SCM_MACRO_BINDING (m);
 }
 #undef FUNC_NAME
 
-SCM
-scm_make_synt (const char *name, SCM (*macroizer) (), SCM (*fcn)() )
-{
-  SCM var = scm_c_define (name, SCM_UNDEFINED);
-  SCM transformer = scm_c_make_gsubr (name, 2, 0, 0, fcn);
-  SCM_VARIABLE_SET (var, macroizer (transformer));
-  return SCM_UNSPECIFIED;
-}
 
 void
 scm_init_macros ()
diff --git a/libguile/macros.h b/libguile/macros.h
index f05d2f1..de2496e 100644
--- a/libguile/macros.h
+++ b/libguile/macros.h
@@ -3,7 +3,7 @@
 #ifndef SCM_MACROS_H
 #define SCM_MACROS_H
 
-/* Copyright (C) 1998,2000,2001,2002,2003, 2006, 2008, 2009 Free Software 
Foundation, Inc.
+/* Copyright (C) 1998,2000,2001,2002,2003, 2006, 2008, 2009, 2010 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
@@ -27,42 +27,22 @@
 
 
 
-#define SCM_ASSYNT(_cond, _msg, _subr) \
-  if (!(_cond)) scm_misc_error (_subr, _msg, SCM_EOL);
+typedef SCM (*scm_t_macro_primitive) (SCM, SCM);
 
-#define SCM_MACRO_TYPE_BITS  (3)
-#define SCM_MACRO_TYPE_MASK  ((1<<SCM_MACRO_TYPE_BITS)-1)
-#define SCM_F_MACRO_EXTENDED (1<<SCM_MACRO_TYPE_BITS)
-
-#define SCM_MACROP(x) SCM_SMOB_PREDICATE (scm_tc16_macro, (x))
-#define SCM_MACRO_TYPE(m) (SCM_SMOB_FLAGS (m) & SCM_MACRO_TYPE_MASK)
-#define SCM_MACRO_IS_EXTENDED(m) (SCM_SMOB_FLAGS (m) & SCM_F_MACRO_EXTENDED)
-#define SCM_BUILTIN_MACRO_P(x) (SCM_MACROP (x) && SCM_MACRO_TYPE (x) == 3)
-#define SCM_SYNCASE_MACRO_P(x) (SCM_MACROP (x) && SCM_MACRO_TYPE (x) == 4)
-#define SCM_MACRO_CODE(m) SCM_SMOB_OBJECT (m)
-
-SCM_API scm_t_bits scm_tc16_macro;
-
-SCM_INTERNAL SCM scm_i_makbimacro (SCM code);
-SCM_API SCM scm_makmmacro (SCM code);
-SCM_API SCM scm_makacro (SCM code);
-SCM_API SCM scm_make_syncase_macro (SCM type, SCM binding);
-SCM_API SCM scm_make_extended_syncase_macro (SCM builtin, SCM type,
-                                             SCM binding);
+SCM_API SCM scm_make_syntax_transformer (SCM name_or_existing_definition,
+                                         SCM type, SCM binding);
 SCM_API SCM scm_macro_p (SCM obj);
 SCM_API SCM scm_macro_type (SCM m);
 SCM_API SCM scm_macro_name (SCM m);
+SCM_API SCM scm_macro_binding (SCM m);
 SCM_API SCM scm_macro_transformer (SCM m);
-SCM_API SCM scm_syncase_macro_type (SCM m);
-SCM_API SCM scm_syncase_macro_binding (SCM m);
-SCM_API SCM scm_make_synt (const char *name,
-                          SCM (*macroizer) (SCM),
-                          SCM (*fcn) ());
+
+SCM_INTERNAL SCM scm_i_make_primitive_macro (const char *name,
+                                             scm_t_macro_primitive fn);
+SCM_INTERNAL scm_t_macro_primitive scm_i_macro_primitive (SCM m);
+
 SCM_INTERNAL void scm_init_macros (void);
 
-#if SCM_ENABLE_DEPRECATED == 1
-SCM_DEPRECATED SCM scm_makmacro (SCM code);
-#endif
 
 #endif  /* SCM_MACROS_H */
 
diff --git a/libguile/memoize.c b/libguile/memoize.c
index d2504dc..7360941 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009
+/* Copyright (C) 
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010
  * Free Software Foundation, Inc.
  * 
  * This library is free software; you can redistribute it and/or
@@ -275,9 +275,7 @@ static SCM scm_m_set_x (SCM xorig, SCM env);
 
 
 
-typedef SCM (*t_syntax_transformer) (SCM, SCM);
-
-static t_syntax_transformer
+static scm_t_macro_primitive
 memoize_env_ref_transformer (SCM env, SCM x)
 {
   SCM var;
@@ -287,15 +285,8 @@ memoize_env_ref_transformer (SCM env, SCM x)
 
   var = scm_module_variable (env, x);
   if (scm_is_true (var) && scm_is_true (scm_variable_bound_p (var))
-      && SCM_MACROP (scm_variable_ref (var)))
-    { 
-      SCM mac = scm_variable_ref (var);
-      if (SCM_IMP (SCM_MACRO_CODE (mac))
-          || (SCM_TYP7 (SCM_MACRO_CODE (mac)) != scm_tc7_gsubr))
-        syntax_error ("bad macro", x, SCM_UNDEFINED);
-      else
-        return (t_syntax_transformer)SCM_SUBRF (SCM_MACRO_CODE (mac)); /* 
global macro */
-    }
+      && scm_is_true (scm_macro_p (scm_variable_ref (var))))
+    return scm_i_macro_primitive (scm_variable_ref (var));
   else
     return NULL; /* anything else */
 }
@@ -331,7 +322,7 @@ memoize (SCM exp, SCM env)
   if (scm_is_pair (exp))
     {
       SCM CAR;
-      t_syntax_transformer trans;
+      scm_t_macro_primitive trans;
       
       CAR = CAR (exp);
       if (scm_is_symbol (CAR))
@@ -390,27 +381,28 @@ memoize_sequence (const SCM forms, const SCM env)
 
 /* Memoization.  */
 
-/* bimacros (built-in macros) have isym codes.
-   mmacros don't exist at runtime, they just expand out to more primitive
-   forms. */
-SCM_SYNTAX (s_at, "@", scm_i_makbimacro, scm_m_at);
-SCM_SYNTAX (s_atat, "@@", scm_i_makbimacro, scm_m_atat);
-SCM_SYNTAX (s_and, "and", scm_makmmacro, scm_m_and);
-SCM_SYNTAX (s_begin, "begin", scm_i_makbimacro, scm_m_begin);
-SCM_SYNTAX (s_atcall_cc, "@call-with-current-continuation", scm_i_makbimacro, 
scm_m_cont);
-SCM_SYNTAX (s_at_call_with_values, "@call-with-values", scm_i_makbimacro, 
scm_m_at_call_with_values);
-SCM_SYNTAX (s_cond, "cond", scm_makmmacro, scm_m_cond);
-SCM_SYNTAX (s_define, "define", scm_i_makbimacro, scm_m_define);
-SCM_SYNTAX (s_eval_when, "eval-when", scm_makmmacro, scm_m_eval_when);
-SCM_SYNTAX (s_if, "if", scm_i_makbimacro, scm_m_if);
-SCM_SYNTAX (s_lambda, "lambda", scm_i_makbimacro, scm_m_lambda);
-SCM_SYNTAX (s_let, "let", scm_i_makbimacro, scm_m_let);
-SCM_SYNTAX (s_letrec, "letrec", scm_makmmacro, scm_m_letrec);
-SCM_SYNTAX (s_letstar, "let*", scm_makmmacro, scm_m_letstar);
-SCM_SYNTAX (s_or, "or", scm_makmmacro, scm_m_or);
-SCM_SYNTAX (s_quote, "quote", scm_i_makbimacro, scm_m_quote);
-SCM_SYNTAX (s_set_x, "set!", scm_i_makbimacro, scm_m_set_x);
-SCM_SYNTAX (s_atapply, "@apply", scm_i_makbimacro, scm_m_apply);
+#define SCM_SYNTAX(RANAME, STR, CFN)  \
+SCM_SNARF_HERE(static const char RANAME[]=STR)\
+SCM_SNARF_INIT(scm_c_define (RANAME, scm_i_make_primitive_macro (RANAME, CFN)))
+
+SCM_SYNTAX (s_at, "@", scm_m_at);
+SCM_SYNTAX (s_atat, "@@", scm_m_atat);
+SCM_SYNTAX (s_and, "and", scm_m_and);
+SCM_SYNTAX (s_begin, "begin", scm_m_begin);
+SCM_SYNTAX (s_atcall_cc, "@call-with-current-continuation", scm_m_cont);
+SCM_SYNTAX (s_at_call_with_values, "@call-with-values", 
scm_m_at_call_with_values);
+SCM_SYNTAX (s_cond, "cond", scm_m_cond);
+SCM_SYNTAX (s_define, "define", scm_m_define);
+SCM_SYNTAX (s_eval_when, "eval-when", scm_m_eval_when);
+SCM_SYNTAX (s_if, "if", scm_m_if);
+SCM_SYNTAX (s_lambda, "lambda", scm_m_lambda);
+SCM_SYNTAX (s_let, "let", scm_m_let);
+SCM_SYNTAX (s_letrec, "letrec", scm_m_letrec);
+SCM_SYNTAX (s_letstar, "let*", scm_m_letstar);
+SCM_SYNTAX (s_or, "or", scm_m_or);
+SCM_SYNTAX (s_quote, "quote", scm_m_quote);
+SCM_SYNTAX (s_set_x, "set!", scm_m_set_x);
+SCM_SYNTAX (s_atapply, "@apply", scm_m_apply);
 
 
 SCM_GLOBAL_SYMBOL (scm_sym_apply, "apply");
diff --git a/libguile/snarf.h b/libguile/snarf.h
index ef1fcd0..e5b059b 100644
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -3,7 +3,7 @@
 #ifndef SCM_SNARF_H
 #define SCM_SNARF_H
 
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 
2009 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 
2009, 2010 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
@@ -211,10 +211,6 @@ scm_c_define_subr_with_generic (RANAME, TYPE, \
                                 (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \
 )
 
-#define SCM_SYNTAX(RANAME, STR, TYPE, CFN)  \
-SCM_SNARF_HERE(static const char RANAME[]=STR)\
-SCM_SNARF_INIT(scm_make_synt (RANAME, TYPE, CFN))
-
 #ifdef SCM_SUPPORT_STATIC_ALLOCATION
 
 # define SCM_SYMBOL(c_name, scheme_name)                               \
diff --git a/module/ice-9/debugging/traps.scm b/module/ice-9/debugging/traps.scm
index 132e2d4..1d509f4 100755
--- a/module/ice-9/debugging/traps.scm
+++ b/module/ice-9/debugging/traps.scm
@@ -1,6 +1,6 @@
 ;;;; (ice-9 debugging traps) -- abstraction of libguile's traps interface
 
-;;; Copyright (C) 2002, 2004, 2009 Free Software Foundation, Inc.
+;;; Copyright (C) 2002, 2004, 2009, 2010 Free Software Foundation, Inc.
 ;;; Copyright (C) 2005 Neil Jerram
 ;;;
 ;;;; This library is free software; you can redistribute it and/or
@@ -81,7 +81,9 @@
            without-traps
             guile-trap-features)
   #:re-export (make)
-  #:export-syntax (trap-here))
+  ;; FIXME: see below
+  ;; #:export-syntax (trap-here)
+  )
 
 ;; How to debug the debugging infrastructure, when needed.  Grep for
 ;; "(trc " to find other symbols that can be passed to trc-add.
@@ -888,6 +890,7 @@ it twice."
 
 ;; (trap-here EXPRESSION . OPTIONS)
 ;; FIXME: no longer working due to no mmacros, no local-eval
+#;
 (define trap-here
   (procedure->memoizing-macro
    (lambda (expr env)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index ec229ce..2755252 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,610 +1,618 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(letrec ((#{and-map*\ 60}#
-           (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#)
-             (let ((#{t\ 130}# (null? #{first\ 123}#)))
-               (if #{t\ 130}#
-                 #{t\ 130}#
-                 (if (null? #{rest\ 124}#)
-                   (letrec ((#{andmap\ 134}#
-                              (lambda (#{first\ 135}#)
-                                (let ((#{x\ 138}# (car #{first\ 135}#))
-                                      (#{first\ 139}# (cdr #{first\ 135}#)))
-                                  (if (null? #{first\ 139}#)
-                                    (#{f\ 122}# #{x\ 138}#)
-                                    (if (#{f\ 122}# #{x\ 138}#)
-                                      (#{andmap\ 134}# #{first\ 139}#)
+(letrec ((#{and-map*\ 9214}#
+           (lambda (#{f\ 9276}# #{first\ 9277}# . #{rest\ 9278}#)
+             (let ((#{t\ 9284}# (null? #{first\ 9277}#)))
+               (if #{t\ 9284}#
+                 #{t\ 9284}#
+                 (if (null? #{rest\ 9278}#)
+                   (letrec ((#{andmap\ 9288}#
+                              (lambda (#{first\ 9289}#)
+                                (let ((#{x\ 9292}# (car #{first\ 9289}#))
+                                      (#{first\ 9293}# (cdr #{first\ 9289}#)))
+                                  (if (null? #{first\ 9293}#)
+                                    (#{f\ 9276}# #{x\ 9292}#)
+                                    (if (#{f\ 9276}# #{x\ 9292}#)
+                                      (#{andmap\ 9288}# #{first\ 9293}#)
                                       #f))))))
-                     (#{andmap\ 134}# #{first\ 123}#))
-                   (letrec ((#{andmap\ 145}#
-                              (lambda (#{first\ 146}# #{rest\ 147}#)
-                                (let ((#{x\ 152}# (car #{first\ 146}#))
-                                      (#{xr\ 153}# (map car #{rest\ 147}#))
-                                      (#{first\ 154}# (cdr #{first\ 146}#))
-                                      (#{rest\ 155}# (map cdr #{rest\ 147}#)))
-                                  (if (null? #{first\ 154}#)
-                                    (apply #{f\ 122}#
-                                           (cons #{x\ 152}# #{xr\ 153}#))
-                                    (if (apply #{f\ 122}#
-                                               (cons #{x\ 152}# #{xr\ 153}#))
-                                      (#{andmap\ 145}#
-                                        #{first\ 154}#
-                                        #{rest\ 155}#)
+                     (#{andmap\ 9288}# #{first\ 9277}#))
+                   (letrec ((#{andmap\ 9299}#
+                              (lambda (#{first\ 9300}# #{rest\ 9301}#)
+                                (let ((#{x\ 9306}# (car #{first\ 9300}#))
+                                      (#{xr\ 9307}# (map car #{rest\ 9301}#))
+                                      (#{first\ 9308}# (cdr #{first\ 9300}#))
+                                      (#{rest\ 9309}#
+                                        (map cdr #{rest\ 9301}#)))
+                                  (if (null? #{first\ 9308}#)
+                                    (apply #{f\ 9276}#
+                                           (cons #{x\ 9306}# #{xr\ 9307}#))
+                                    (if (apply #{f\ 9276}#
+                                               (cons #{x\ 9306}# #{xr\ 9307}#))
+                                      (#{andmap\ 9299}#
+                                        #{first\ 9308}#
+                                        #{rest\ 9309}#)
                                       #f))))))
-                     (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#))))))))
-  (letrec ((#{lambda-var-list\ 375}#
-             (lambda (#{vars\ 590}#)
-               (letrec ((#{lvl\ 596}#
-                          (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#)
-                            (if (pair? #{vars\ 597}#)
-                              (#{lvl\ 596}#
-                                (cdr #{vars\ 597}#)
-                                (cons (#{wrap\ 329}#
-                                        (car #{vars\ 597}#)
-                                        #{w\ 599}#
+                     (#{andmap\ 9299}# #{first\ 9277}# #{rest\ 9278}#))))))))
+  (letrec ((#{lambda-var-list\ 9529}#
+             (lambda (#{vars\ 9744}#)
+               (letrec ((#{lvl\ 9750}#
+                          (lambda (#{vars\ 9751}# #{ls\ 9752}# #{w\ 9753}#)
+                            (if (pair? #{vars\ 9751}#)
+                              (#{lvl\ 9750}#
+                                (cdr #{vars\ 9751}#)
+                                (cons (#{wrap\ 9483}#
+                                        (car #{vars\ 9751}#)
+                                        #{w\ 9753}#
                                         #f)
-                                      #{ls\ 598}#)
-                                #{w\ 599}#)
-                              (if (#{id?\ 260}# #{vars\ 597}#)
-                                (cons (#{wrap\ 329}#
-                                        #{vars\ 597}#
-                                        #{w\ 599}#
+                                      #{ls\ 9752}#)
+                                #{w\ 9753}#)
+                              (if (#{id?\ 9414}# #{vars\ 9751}#)
+                                (cons (#{wrap\ 9483}#
+                                        #{vars\ 9751}#
+                                        #{w\ 9753}#
                                         #f)
-                                      #{ls\ 598}#)
-                                (if (null? #{vars\ 597}#)
-                                  #{ls\ 598}#
-                                  (if (#{syntax-object?\ 224}# #{vars\ 597}#)
-                                    (#{lvl\ 596}#
-                                      (#{syntax-object-expression\ 226}#
-                                        #{vars\ 597}#)
-                                      #{ls\ 598}#
-                                      (#{join-wraps\ 311}#
-                                        #{w\ 599}#
-                                        (#{syntax-object-wrap\ 228}#
-                                          #{vars\ 597}#)))
-                                    (cons #{vars\ 597}# #{ls\ 598}#))))))))
-                 (#{lvl\ 596}#
-                   #{vars\ 590}#
+                                      #{ls\ 9752}#)
+                                (if (null? #{vars\ 9751}#)
+                                  #{ls\ 9752}#
+                                  (if (#{syntax-object?\ 9378}# #{vars\ 9751}#)
+                                    (#{lvl\ 9750}#
+                                      (#{syntax-object-expression\ 9380}#
+                                        #{vars\ 9751}#)
+                                      #{ls\ 9752}#
+                                      (#{join-wraps\ 9465}#
+                                        #{w\ 9753}#
+                                        (#{syntax-object-wrap\ 9382}#
+                                          #{vars\ 9751}#)))
+                                    (cons #{vars\ 9751}# #{ls\ 9752}#))))))))
+                 (#{lvl\ 9750}#
+                   #{vars\ 9744}#
                    '()
                    '(())))))
-           (#{gen-var\ 373}#
-             (lambda (#{id\ 610}#)
-               (let ((#{id\ 613}#
-                       (if (#{syntax-object?\ 224}# #{id\ 610}#)
-                         (#{syntax-object-expression\ 226}# #{id\ 610}#)
-                         #{id\ 610}#)))
+           (#{gen-var\ 9527}#
+             (lambda (#{id\ 9764}#)
+               (let ((#{id\ 9767}#
+                       (if (#{syntax-object?\ 9378}# #{id\ 9764}#)
+                         (#{syntax-object-expression\ 9380}# #{id\ 9764}#)
+                         #{id\ 9764}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 613}#) " ")))))
-           (#{strip\ 371}#
-             (lambda (#{x\ 615}# #{w\ 616}#)
+                   (string-append (symbol->string #{id\ 9767}#) " ")))))
+           (#{strip\ 9525}#
+             (lambda (#{x\ 9769}# #{w\ 9770}#)
                (if (memq 'top
-                         (#{wrap-marks\ 267}# #{w\ 616}#))
-                 #{x\ 615}#
-                 (letrec ((#{f\ 622}# (lambda (#{x\ 623}#)
-                                        (if (#{syntax-object?\ 224}#
-                                              #{x\ 623}#)
-                                          (#{strip\ 371}#
-                                            (#{syntax-object-expression\ 226}#
-                                              #{x\ 623}#)
-                                            (#{syntax-object-wrap\ 228}#
-                                              #{x\ 623}#))
-                                          (if (pair? #{x\ 623}#)
-                                            (let ((#{a\ 630}# (#{f\ 622}# (car 
#{x\ 623}#)))
-                                                  (#{d\ 631}# (#{f\ 622}# (cdr 
#{x\ 623}#))))
-                                              (if (if (eq? #{a\ 630}#
-                                                           (car #{x\ 623}#))
-                                                    (eq? #{d\ 631}#
-                                                         (cdr #{x\ 623}#))
-                                                    #f)
-                                                #{x\ 623}#
-                                                (cons #{a\ 630}# #{d\ 631}#)))
-                                            (if (vector? #{x\ 623}#)
-                                              (let ((#{old\ 637}#
-                                                      (vector->list
-                                                        #{x\ 623}#)))
-                                                (let ((#{new\ 639}#
-                                                        (map #{f\ 622}#
-                                                             #{old\ 637}#)))
-                                                  (if (#{and-map*\ 60}#
-                                                        eq?
-                                                        #{old\ 637}#
-                                                        #{new\ 639}#)
-                                                    #{x\ 623}#
-                                                    (list->vector
-                                                      #{new\ 639}#))))
-                                              #{x\ 623}#))))))
-                   (#{f\ 622}# #{x\ 615}#)))))
-           (#{chi-lambda-case\ 369}#
-             (lambda (#{e\ 641}#
-                      #{r\ 642}#
-                      #{w\ 643}#
-                      #{s\ 644}#
-                      #{mod\ 645}#
-                      #{get-formals\ 646}#
-                      #{clauses\ 647}#)
-               (letrec ((#{expand-body\ 662}#
-                          (lambda (#{req\ 663}#
-                                   #{opt\ 664}#
-                                   #{rest\ 665}#
-                                   #{kw\ 666}#
-                                   #{body\ 667}#
-                                   #{vars\ 668}#
-                                   #{r*\ 669}#
-                                   #{w*\ 670}#
-                                   #{inits\ 671}#)
-                            ((lambda (#{tmp\ 681}#)
-                               ((lambda (#{tmp\ 682}#)
-                                  (if (if #{tmp\ 682}#
-                                        (apply (lambda (#{docstring\ 686}#
-                                                        #{e1\ 687}#
-                                                        #{e2\ 688}#)
+                         (#{wrap-marks\ 9421}# #{w\ 9770}#))
+                 #{x\ 9769}#
+                 (letrec ((#{f\ 9776}#
+                            (lambda (#{x\ 9777}#)
+                              (if (#{syntax-object?\ 9378}# #{x\ 9777}#)
+                                (#{strip\ 9525}#
+                                  (#{syntax-object-expression\ 9380}#
+                                    #{x\ 9777}#)
+                                  (#{syntax-object-wrap\ 9382}# #{x\ 9777}#))
+                                (if (pair? #{x\ 9777}#)
+                                  (let ((#{a\ 9784}#
+                                          (#{f\ 9776}# (car #{x\ 9777}#)))
+                                        (#{d\ 9785}#
+                                          (#{f\ 9776}# (cdr #{x\ 9777}#))))
+                                    (if (if (eq? #{a\ 9784}# (car #{x\ 9777}#))
+                                          (eq? #{d\ 9785}# (cdr #{x\ 9777}#))
+                                          #f)
+                                      #{x\ 9777}#
+                                      (cons #{a\ 9784}# #{d\ 9785}#)))
+                                  (if (vector? #{x\ 9777}#)
+                                    (let ((#{old\ 9791}#
+                                            (vector->list #{x\ 9777}#)))
+                                      (let ((#{new\ 9793}#
+                                              (map #{f\ 9776}# #{old\ 9791}#)))
+                                        (if (#{and-map*\ 9214}#
+                                              eq?
+                                              #{old\ 9791}#
+                                              #{new\ 9793}#)
+                                          #{x\ 9777}#
+                                          (list->vector #{new\ 9793}#))))
+                                    #{x\ 9777}#))))))
+                   (#{f\ 9776}# #{x\ 9769}#)))))
+           (#{chi-lambda-case\ 9523}#
+             (lambda (#{e\ 9795}#
+                      #{r\ 9796}#
+                      #{w\ 9797}#
+                      #{s\ 9798}#
+                      #{mod\ 9799}#
+                      #{get-formals\ 9800}#
+                      #{clauses\ 9801}#)
+               (letrec ((#{expand-body\ 9816}#
+                          (lambda (#{req\ 9817}#
+                                   #{opt\ 9818}#
+                                   #{rest\ 9819}#
+                                   #{kw\ 9820}#
+                                   #{body\ 9821}#
+                                   #{vars\ 9822}#
+                                   #{r*\ 9823}#
+                                   #{w*\ 9824}#
+                                   #{inits\ 9825}#)
+                            ((lambda (#{tmp\ 9835}#)
+                               ((lambda (#{tmp\ 9836}#)
+                                  (if (if #{tmp\ 9836}#
+                                        (apply (lambda (#{docstring\ 9840}#
+                                                        #{e1\ 9841}#
+                                                        #{e2\ 9842}#)
                                                  (string?
                                                    (syntax->datum
-                                                     #{docstring\ 686}#)))
-                                               #{tmp\ 682}#)
+                                                     #{docstring\ 9840}#)))
+                                               #{tmp\ 9836}#)
                                         #f)
-                                    (apply (lambda (#{docstring\ 692}#
-                                                    #{e1\ 693}#
-                                                    #{e2\ 694}#)
+                                    (apply (lambda (#{docstring\ 9846}#
+                                                    #{e1\ 9847}#
+                                                    #{e2\ 9848}#)
                                              (values
                                                (syntax->datum
-                                                 #{docstring\ 692}#)
-                                               #{req\ 663}#
-                                               #{opt\ 664}#
-                                               #{rest\ 665}#
-                                               #{kw\ 666}#
-                                               #{inits\ 671}#
-                                               #{vars\ 668}#
-                                               (#{chi-body\ 353}#
-                                                 (cons #{e1\ 693}# #{e2\ 694}#)
-                                                 (#{source-wrap\ 331}#
-                                                   #{e\ 641}#
-                                                   #{w\ 643}#
-                                                   #{s\ 644}#
-                                                   #{mod\ 645}#)
-                                                 #{r*\ 669}#
-                                                 #{w*\ 670}#
-                                                 #{mod\ 645}#)))
-                                           #{tmp\ 682}#)
-                                    ((lambda (#{tmp\ 696}#)
-                                       (if #{tmp\ 696}#
-                                         (apply (lambda (#{e1\ 699}#
-                                                         #{e2\ 700}#)
+                                                 #{docstring\ 9846}#)
+                                               #{req\ 9817}#
+                                               #{opt\ 9818}#
+                                               #{rest\ 9819}#
+                                               #{kw\ 9820}#
+                                               #{inits\ 9825}#
+                                               #{vars\ 9822}#
+                                               (#{chi-body\ 9507}#
+                                                 (cons #{e1\ 9847}#
+                                                       #{e2\ 9848}#)
+                                                 (#{source-wrap\ 9485}#
+                                                   #{e\ 9795}#
+                                                   #{w\ 9797}#
+                                                   #{s\ 9798}#
+                                                   #{mod\ 9799}#)
+                                                 #{r*\ 9823}#
+                                                 #{w*\ 9824}#
+                                                 #{mod\ 9799}#)))
+                                           #{tmp\ 9836}#)
+                                    ((lambda (#{tmp\ 9850}#)
+                                       (if #{tmp\ 9850}#
+                                         (apply (lambda (#{e1\ 9853}#
+                                                         #{e2\ 9854}#)
                                                   (values
                                                     #f
-                                                    #{req\ 663}#
-                                                    #{opt\ 664}#
-                                                    #{rest\ 665}#
-                                                    #{kw\ 666}#
-                                                    #{inits\ 671}#
-                                                    #{vars\ 668}#
-                                                    (#{chi-body\ 353}#
-                                                      (cons #{e1\ 699}#
-                                                            #{e2\ 700}#)
-                                                      (#{source-wrap\ 331}#
-                                                        #{e\ 641}#
-                                                        #{w\ 643}#
-                                                        #{s\ 644}#
-                                                        #{mod\ 645}#)
-                                                      #{r*\ 669}#
-                                                      #{w*\ 670}#
-                                                      #{mod\ 645}#)))
-                                                #{tmp\ 696}#)
+                                                    #{req\ 9817}#
+                                                    #{opt\ 9818}#
+                                                    #{rest\ 9819}#
+                                                    #{kw\ 9820}#
+                                                    #{inits\ 9825}#
+                                                    #{vars\ 9822}#
+                                                    (#{chi-body\ 9507}#
+                                                      (cons #{e1\ 9853}#
+                                                            #{e2\ 9854}#)
+                                                      (#{source-wrap\ 9485}#
+                                                        #{e\ 9795}#
+                                                        #{w\ 9797}#
+                                                        #{s\ 9798}#
+                                                        #{mod\ 9799}#)
+                                                      #{r*\ 9823}#
+                                                      #{w*\ 9824}#
+                                                      #{mod\ 9799}#)))
+                                                #{tmp\ 9850}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 681}#)))
+                                           #{tmp\ 9835}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 681}#
+                                       #{tmp\ 9835}#
                                        '(any . each-any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 681}#
+                                  #{tmp\ 9835}#
                                   '(any any . each-any))))
-                             #{body\ 667}#)))
-                        (#{expand-kw\ 660}#
-                          (lambda (#{req\ 702}#
-                                   #{opt\ 703}#
-                                   #{rest\ 704}#
-                                   #{kw\ 705}#
-                                   #{body\ 706}#
-                                   #{vars\ 707}#
-                                   #{r*\ 708}#
-                                   #{w*\ 709}#
-                                   #{aok\ 710}#
-                                   #{out\ 711}#
-                                   #{inits\ 712}#)
-                            (if (pair? #{kw\ 705}#)
-                              ((lambda (#{tmp\ 726}#)
-                                 ((lambda (#{tmp\ 727}#)
-                                    (if #{tmp\ 727}#
-                                      (apply (lambda (#{k\ 731}#
-                                                      #{id\ 732}#
-                                                      #{i\ 733}#)
-                                               (let ((#{v\ 736}# (#{gen-var\ 
373}#
-                                                                   #{id\ 
732}#)))
-                                                 (let ((#{l\ 738}# 
(#{gen-labels\ 278}#
-                                                                     (list 
#{v\ 736}#))))
-                                                   (let ((#{r**\ 740}#
-                                                           (#{extend-var-env\ 
250}#
-                                                             #{l\ 738}#
-                                                             (list #{v\ 736}#)
-                                                             #{r*\ 708}#)))
-                                                     (let ((#{w**\ 742}#
-                                                             
(#{make-binding-wrap\ 307}#
-                                                               (list #{id\ 
732}#)
-                                                               #{l\ 738}#
-                                                               #{w*\ 709}#)))
-                                                       (#{expand-kw\ 660}#
-                                                         #{req\ 702}#
-                                                         #{opt\ 703}#
-                                                         #{rest\ 704}#
-                                                         (cdr #{kw\ 705}#)
-                                                         #{body\ 706}#
-                                                         (cons #{v\ 736}#
-                                                               #{vars\ 707}#)
-                                                         #{r**\ 740}#
-                                                         #{w**\ 742}#
-                                                         #{aok\ 710}#
+                             #{body\ 9821}#)))
+                        (#{expand-kw\ 9814}#
+                          (lambda (#{req\ 9856}#
+                                   #{opt\ 9857}#
+                                   #{rest\ 9858}#
+                                   #{kw\ 9859}#
+                                   #{body\ 9860}#
+                                   #{vars\ 9861}#
+                                   #{r*\ 9862}#
+                                   #{w*\ 9863}#
+                                   #{aok\ 9864}#
+                                   #{out\ 9865}#
+                                   #{inits\ 9866}#)
+                            (if (pair? #{kw\ 9859}#)
+                              ((lambda (#{tmp\ 9880}#)
+                                 ((lambda (#{tmp\ 9881}#)
+                                    (if #{tmp\ 9881}#
+                                      (apply (lambda (#{k\ 9885}#
+                                                      #{id\ 9886}#
+                                                      #{i\ 9887}#)
+                                               (let ((#{v\ 9890}#
+                                                       (#{gen-var\ 9527}#
+                                                         #{id\ 9886}#)))
+                                                 (let ((#{l\ 9892}#
+                                                         (#{gen-labels\ 9432}#
+                                                           (list #{v\ 
9890}#))))
+                                                   (let ((#{r**\ 9894}#
+                                                           (#{extend-var-env\ 
9404}#
+                                                             #{l\ 9892}#
+                                                             (list #{v\ 9890}#)
+                                                             #{r*\ 9862}#)))
+                                                     (let ((#{w**\ 9896}#
+                                                             
(#{make-binding-wrap\ 9461}#
+                                                               (list #{id\ 
9886}#)
+                                                               #{l\ 9892}#
+                                                               #{w*\ 9863}#)))
+                                                       (#{expand-kw\ 9814}#
+                                                         #{req\ 9856}#
+                                                         #{opt\ 9857}#
+                                                         #{rest\ 9858}#
+                                                         (cdr #{kw\ 9859}#)
+                                                         #{body\ 9860}#
+                                                         (cons #{v\ 9890}#
+                                                               #{vars\ 9861}#)
+                                                         #{r**\ 9894}#
+                                                         #{w**\ 9896}#
+                                                         #{aok\ 9864}#
                                                          (cons (list 
(syntax->datum
-                                                                       #{k\ 
731}#)
+                                                                       #{k\ 
9885}#)
                                                                      
(syntax->datum
-                                                                       #{id\ 
732}#)
-                                                                     #{v\ 
736}#)
-                                                               #{out\ 711}#)
-                                                         (cons (#{chi\ 345}#
-                                                                 #{i\ 733}#
-                                                                 #{r*\ 708}#
-                                                                 #{w*\ 709}#
-                                                                 #{mod\ 645}#)
-                                                               #{inits\ 
712}#)))))))
-                                             #{tmp\ 727}#)
+                                                                       #{id\ 
9886}#)
+                                                                     #{v\ 
9890}#)
+                                                               #{out\ 9865}#)
+                                                         (cons (#{chi\ 9499}#
+                                                                 #{i\ 9887}#
+                                                                 #{r*\ 9862}#
+                                                                 #{w*\ 9863}#
+                                                                 #{mod\ 9799}#)
+                                                               #{inits\ 
9866}#)))))))
+                                             #{tmp\ 9881}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 726}#)))
+                                        #{tmp\ 9880}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 726}#
+                                    #{tmp\ 9880}#
                                     '(any any any))))
-                               (car #{kw\ 705}#))
-                              (#{expand-body\ 662}#
-                                #{req\ 702}#
-                                #{opt\ 703}#
-                                #{rest\ 704}#
-                                (if (let ((#{t\ 746}# #{aok\ 710}#))
-                                      (if #{t\ 746}#
-                                        #{t\ 746}#
-                                        (pair? #{out\ 711}#)))
-                                  (cons #{aok\ 710}# (reverse #{out\ 711}#))
+                               (car #{kw\ 9859}#))
+                              (#{expand-body\ 9816}#
+                                #{req\ 9856}#
+                                #{opt\ 9857}#
+                                #{rest\ 9858}#
+                                (if (let ((#{t\ 9900}# #{aok\ 9864}#))
+                                      (if #{t\ 9900}#
+                                        #{t\ 9900}#
+                                        (pair? #{out\ 9865}#)))
+                                  (cons #{aok\ 9864}# (reverse #{out\ 9865}#))
                                   #f)
-                                #{body\ 706}#
-                                (reverse #{vars\ 707}#)
-                                #{r*\ 708}#
-                                #{w*\ 709}#
-                                (reverse #{inits\ 712}#)))))
-                        (#{expand-opt\ 658}#
-                          (lambda (#{req\ 748}#
-                                   #{opt\ 749}#
-                                   #{rest\ 750}#
-                                   #{kw\ 751}#
-                                   #{body\ 752}#
-                                   #{vars\ 753}#
-                                   #{r*\ 754}#
-                                   #{w*\ 755}#
-                                   #{out\ 756}#
-                                   #{inits\ 757}#)
-                            (if (pair? #{opt\ 749}#)
-                              ((lambda (#{tmp\ 770}#)
-                                 ((lambda (#{tmp\ 771}#)
-                                    (if #{tmp\ 771}#
-                                      (apply (lambda (#{id\ 774}# #{i\ 775}#)
-                                               (let ((#{v\ 778}# (#{gen-var\ 
373}#
-                                                                   #{id\ 
774}#)))
-                                                 (let ((#{l\ 780}# 
(#{gen-labels\ 278}#
-                                                                     (list 
#{v\ 778}#))))
-                                                   (let ((#{r**\ 782}#
-                                                           (#{extend-var-env\ 
250}#
-                                                             #{l\ 780}#
-                                                             (list #{v\ 778}#)
-                                                             #{r*\ 754}#)))
-                                                     (let ((#{w**\ 784}#
-                                                             
(#{make-binding-wrap\ 307}#
-                                                               (list #{id\ 
774}#)
-                                                               #{l\ 780}#
-                                                               #{w*\ 755}#)))
-                                                       (#{expand-opt\ 658}#
-                                                         #{req\ 748}#
-                                                         (cdr #{opt\ 749}#)
-                                                         #{rest\ 750}#
-                                                         #{kw\ 751}#
-                                                         #{body\ 752}#
-                                                         (cons #{v\ 778}#
-                                                               #{vars\ 753}#)
-                                                         #{r**\ 782}#
-                                                         #{w**\ 784}#
+                                #{body\ 9860}#
+                                (reverse #{vars\ 9861}#)
+                                #{r*\ 9862}#
+                                #{w*\ 9863}#
+                                (reverse #{inits\ 9866}#)))))
+                        (#{expand-opt\ 9812}#
+                          (lambda (#{req\ 9902}#
+                                   #{opt\ 9903}#
+                                   #{rest\ 9904}#
+                                   #{kw\ 9905}#
+                                   #{body\ 9906}#
+                                   #{vars\ 9907}#
+                                   #{r*\ 9908}#
+                                   #{w*\ 9909}#
+                                   #{out\ 9910}#
+                                   #{inits\ 9911}#)
+                            (if (pair? #{opt\ 9903}#)
+                              ((lambda (#{tmp\ 9924}#)
+                                 ((lambda (#{tmp\ 9925}#)
+                                    (if #{tmp\ 9925}#
+                                      (apply (lambda (#{id\ 9928}# #{i\ 9929}#)
+                                               (let ((#{v\ 9932}#
+                                                       (#{gen-var\ 9527}#
+                                                         #{id\ 9928}#)))
+                                                 (let ((#{l\ 9934}#
+                                                         (#{gen-labels\ 9432}#
+                                                           (list #{v\ 
9932}#))))
+                                                   (let ((#{r**\ 9936}#
+                                                           (#{extend-var-env\ 
9404}#
+                                                             #{l\ 9934}#
+                                                             (list #{v\ 9932}#)
+                                                             #{r*\ 9908}#)))
+                                                     (let ((#{w**\ 9938}#
+                                                             
(#{make-binding-wrap\ 9461}#
+                                                               (list #{id\ 
9928}#)
+                                                               #{l\ 9934}#
+                                                               #{w*\ 9909}#)))
+                                                       (#{expand-opt\ 9812}#
+                                                         #{req\ 9902}#
+                                                         (cdr #{opt\ 9903}#)
+                                                         #{rest\ 9904}#
+                                                         #{kw\ 9905}#
+                                                         #{body\ 9906}#
+                                                         (cons #{v\ 9932}#
+                                                               #{vars\ 9907}#)
+                                                         #{r**\ 9936}#
+                                                         #{w**\ 9938}#
                                                          (cons (syntax->datum
-                                                                 #{id\ 774}#)
-                                                               #{out\ 756}#)
-                                                         (cons (#{chi\ 345}#
-                                                                 #{i\ 775}#
-                                                                 #{r*\ 754}#
-                                                                 #{w*\ 755}#
-                                                                 #{mod\ 645}#)
-                                                               #{inits\ 
757}#)))))))
-                                             #{tmp\ 771}#)
+                                                                 #{id\ 9928}#)
+                                                               #{out\ 9910}#)
+                                                         (cons (#{chi\ 9499}#
+                                                                 #{i\ 9929}#
+                                                                 #{r*\ 9908}#
+                                                                 #{w*\ 9909}#
+                                                                 #{mod\ 9799}#)
+                                                               #{inits\ 
9911}#)))))))
+                                             #{tmp\ 9925}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 770}#)))
+                                        #{tmp\ 9924}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 770}#
+                                    #{tmp\ 9924}#
                                     '(any any))))
-                               (car #{opt\ 749}#))
-                              (if #{rest\ 750}#
-                                (let ((#{v\ 789}# (#{gen-var\ 373}#
-                                                    #{rest\ 750}#)))
-                                  (let ((#{l\ 791}# (#{gen-labels\ 278}#
-                                                      (list #{v\ 789}#))))
-                                    (let ((#{r*\ 793}#
-                                            (#{extend-var-env\ 250}#
-                                              #{l\ 791}#
-                                              (list #{v\ 789}#)
-                                              #{r*\ 754}#)))
-                                      (let ((#{w*\ 795}#
-                                              (#{make-binding-wrap\ 307}#
-                                                (list #{rest\ 750}#)
-                                                #{l\ 791}#
-                                                #{w*\ 755}#)))
-                                        (#{expand-kw\ 660}#
-                                          #{req\ 748}#
-                                          (if (pair? #{out\ 756}#)
-                                            (reverse #{out\ 756}#)
+                               (car #{opt\ 9903}#))
+                              (if #{rest\ 9904}#
+                                (let ((#{v\ 9943}#
+                                        (#{gen-var\ 9527}# #{rest\ 9904}#)))
+                                  (let ((#{l\ 9945}#
+                                          (#{gen-labels\ 9432}#
+                                            (list #{v\ 9943}#))))
+                                    (let ((#{r*\ 9947}#
+                                            (#{extend-var-env\ 9404}#
+                                              #{l\ 9945}#
+                                              (list #{v\ 9943}#)
+                                              #{r*\ 9908}#)))
+                                      (let ((#{w*\ 9949}#
+                                              (#{make-binding-wrap\ 9461}#
+                                                (list #{rest\ 9904}#)
+                                                #{l\ 9945}#
+                                                #{w*\ 9909}#)))
+                                        (#{expand-kw\ 9814}#
+                                          #{req\ 9902}#
+                                          (if (pair? #{out\ 9910}#)
+                                            (reverse #{out\ 9910}#)
                                             #f)
-                                          (syntax->datum #{rest\ 750}#)
-                                          (if (pair? #{kw\ 751}#)
-                                            (cdr #{kw\ 751}#)
-                                            #{kw\ 751}#)
-                                          #{body\ 752}#
-                                          (cons #{v\ 789}# #{vars\ 753}#)
-                                          #{r*\ 793}#
-                                          #{w*\ 795}#
-                                          (if (pair? #{kw\ 751}#)
-                                            (car #{kw\ 751}#)
+                                          (syntax->datum #{rest\ 9904}#)
+                                          (if (pair? #{kw\ 9905}#)
+                                            (cdr #{kw\ 9905}#)
+                                            #{kw\ 9905}#)
+                                          #{body\ 9906}#
+                                          (cons #{v\ 9943}# #{vars\ 9907}#)
+                                          #{r*\ 9947}#
+                                          #{w*\ 9949}#
+                                          (if (pair? #{kw\ 9905}#)
+                                            (car #{kw\ 9905}#)
                                             #f)
                                           '()
-                                          #{inits\ 757}#)))))
-                                (#{expand-kw\ 660}#
-                                  #{req\ 748}#
-                                  (if (pair? #{out\ 756}#)
-                                    (reverse #{out\ 756}#)
+                                          #{inits\ 9911}#)))))
+                                (#{expand-kw\ 9814}#
+                                  #{req\ 9902}#
+                                  (if (pair? #{out\ 9910}#)
+                                    (reverse #{out\ 9910}#)
                                     #f)
                                   #f
-                                  (if (pair? #{kw\ 751}#)
-                                    (cdr #{kw\ 751}#)
-                                    #{kw\ 751}#)
-                                  #{body\ 752}#
-                                  #{vars\ 753}#
-                                  #{r*\ 754}#
-                                  #{w*\ 755}#
-                                  (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f)
+                                  (if (pair? #{kw\ 9905}#)
+                                    (cdr #{kw\ 9905}#)
+                                    #{kw\ 9905}#)
+                                  #{body\ 9906}#
+                                  #{vars\ 9907}#
+                                  #{r*\ 9908}#
+                                  #{w*\ 9909}#
+                                  (if (pair? #{kw\ 9905}#)
+                                    (car #{kw\ 9905}#)
+                                    #f)
                                   '()
-                                  #{inits\ 757}#)))))
-                        (#{expand-req\ 656}#
-                          (lambda (#{req\ 797}#
-                                   #{opt\ 798}#
-                                   #{rest\ 799}#
-                                   #{kw\ 800}#
-                                   #{body\ 801}#)
-                            (let ((#{vars\ 809}#
-                                    (map #{gen-var\ 373}# #{req\ 797}#))
-                                  (#{labels\ 810}#
-                                    (#{gen-labels\ 278}# #{req\ 797}#)))
-                              (let ((#{r*\ 813}#
-                                      (#{extend-var-env\ 250}#
-                                        #{labels\ 810}#
-                                        #{vars\ 809}#
-                                        #{r\ 642}#))
-                                    (#{w*\ 814}#
-                                      (#{make-binding-wrap\ 307}#
-                                        #{req\ 797}#
-                                        #{labels\ 810}#
-                                        #{w\ 643}#)))
-                                (#{expand-opt\ 658}#
-                                  (map syntax->datum #{req\ 797}#)
-                                  #{opt\ 798}#
-                                  #{rest\ 799}#
-                                  #{kw\ 800}#
-                                  #{body\ 801}#
-                                  (reverse #{vars\ 809}#)
-                                  #{r*\ 813}#
-                                  #{w*\ 814}#
+                                  #{inits\ 9911}#)))))
+                        (#{expand-req\ 9810}#
+                          (lambda (#{req\ 9951}#
+                                   #{opt\ 9952}#
+                                   #{rest\ 9953}#
+                                   #{kw\ 9954}#
+                                   #{body\ 9955}#)
+                            (let ((#{vars\ 9963}#
+                                    (map #{gen-var\ 9527}# #{req\ 9951}#))
+                                  (#{labels\ 9964}#
+                                    (#{gen-labels\ 9432}# #{req\ 9951}#)))
+                              (let ((#{r*\ 9967}#
+                                      (#{extend-var-env\ 9404}#
+                                        #{labels\ 9964}#
+                                        #{vars\ 9963}#
+                                        #{r\ 9796}#))
+                                    (#{w*\ 9968}#
+                                      (#{make-binding-wrap\ 9461}#
+                                        #{req\ 9951}#
+                                        #{labels\ 9964}#
+                                        #{w\ 9797}#)))
+                                (#{expand-opt\ 9812}#
+                                  (map syntax->datum #{req\ 9951}#)
+                                  #{opt\ 9952}#
+                                  #{rest\ 9953}#
+                                  #{kw\ 9954}#
+                                  #{body\ 9955}#
+                                  (reverse #{vars\ 9963}#)
+                                  #{r*\ 9967}#
+                                  #{w*\ 9968}#
                                   '()
                                   '()))))))
-                 ((lambda (#{tmp\ 815}#)
-                    ((lambda (#{tmp\ 816}#)
-                       (if #{tmp\ 816}#
-                         (apply (lambda () (values #f #f)) #{tmp\ 816}#)
-                         ((lambda (#{tmp\ 817}#)
-                            (if #{tmp\ 817}#
-                              (apply (lambda (#{args\ 824}#
-                                              #{e1\ 825}#
-                                              #{e2\ 826}#
-                                              #{args*\ 827}#
-                                              #{e1*\ 828}#
-                                              #{e2*\ 829}#)
+                 ((lambda (#{tmp\ 9969}#)
+                    ((lambda (#{tmp\ 9970}#)
+                       (if #{tmp\ 9970}#
+                         (apply (lambda () (values #f #f)) #{tmp\ 9970}#)
+                         ((lambda (#{tmp\ 9971}#)
+                            (if #{tmp\ 9971}#
+                              (apply (lambda (#{args\ 9978}#
+                                              #{e1\ 9979}#
+                                              #{e2\ 9980}#
+                                              #{args*\ 9981}#
+                                              #{e1*\ 9982}#
+                                              #{e2*\ 9983}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{get-formals\ 646}#
-                                             #{args\ 824}#))
-                                         (lambda (#{req\ 830}#
-                                                  #{opt\ 831}#
-                                                  #{rest\ 832}#
-                                                  #{kw\ 833}#)
+                                           (#{get-formals\ 9800}#
+                                             #{args\ 9978}#))
+                                         (lambda (#{req\ 9984}#
+                                                  #{opt\ 9985}#
+                                                  #{rest\ 9986}#
+                                                  #{kw\ 9987}#)
                                            (call-with-values
                                              (lambda ()
-                                               (#{expand-req\ 656}#
-                                                 #{req\ 830}#
-                                                 #{opt\ 831}#
-                                                 #{rest\ 832}#
-                                                 #{kw\ 833}#
-                                                 (cons #{e1\ 825}#
-                                                       #{e2\ 826}#)))
-                                             (lambda (#{docstring\ 839}#
-                                                      #{req\ 840}#
-                                                      #{opt\ 841}#
-                                                      #{rest\ 842}#
-                                                      #{kw\ 843}#
-                                                      #{inits\ 844}#
-                                                      #{vars\ 845}#
-                                                      #{body\ 846}#)
+                                               (#{expand-req\ 9810}#
+                                                 #{req\ 9984}#
+                                                 #{opt\ 9985}#
+                                                 #{rest\ 9986}#
+                                                 #{kw\ 9987}#
+                                                 (cons #{e1\ 9979}#
+                                                       #{e2\ 9980}#)))
+                                             (lambda (#{docstring\ 9993}#
+                                                      #{req\ 9994}#
+                                                      #{opt\ 9995}#
+                                                      #{rest\ 9996}#
+                                                      #{kw\ 9997}#
+                                                      #{inits\ 9998}#
+                                                      #{vars\ 9999}#
+                                                      #{body\ 10000}#)
                                                (call-with-values
                                                  (lambda ()
-                                                   (#{chi-lambda-case\ 369}#
-                                                     #{e\ 641}#
-                                                     #{r\ 642}#
-                                                     #{w\ 643}#
-                                                     #{s\ 644}#
-                                                     #{mod\ 645}#
-                                                     #{get-formals\ 646}#
-                                                     (map (lambda (#{tmp\ 857}#
-                                                                   #{tmp\ 856}#
-                                                                   #{tmp\ 
855}#)
-                                                            (cons #{tmp\ 855}#
-                                                                  (cons #{tmp\ 
856}#
-                                                                        #{tmp\ 
857}#)))
-                                                          #{e2*\ 829}#
-                                                          #{e1*\ 828}#
-                                                          #{args*\ 827}#)))
-                                                 (lambda (#{docstring*\ 859}#
-                                                          #{else*\ 860}#)
+                                                   (#{chi-lambda-case\ 9523}#
+                                                     #{e\ 9795}#
+                                                     #{r\ 9796}#
+                                                     #{w\ 9797}#
+                                                     #{s\ 9798}#
+                                                     #{mod\ 9799}#
+                                                     #{get-formals\ 9800}#
+                                                     (map (lambda (#{tmp\ 
10011}#
+                                                                   #{tmp\ 
10010}#
+                                                                   #{tmp\ 
10009}#)
+                                                            (cons #{tmp\ 
10009}#
+                                                                  (cons #{tmp\ 
10010}#
+                                                                        #{tmp\ 
10011}#)))
+                                                          #{e2*\ 9983}#
+                                                          #{e1*\ 9982}#
+                                                          #{args*\ 9981}#)))
+                                                 (lambda (#{docstring*\ 10013}#
+                                                          #{else*\ 10014}#)
                                                    (values
-                                                     (let ((#{t\ 865}# 
#{docstring\ 839}#))
-                                                       (if #{t\ 865}#
-                                                         #{t\ 865}#
-                                                         #{docstring*\ 859}#))
-                                                     (#{build-lambda-case\ 
206}#
-                                                       #{s\ 644}#
-                                                       #{req\ 840}#
-                                                       #{opt\ 841}#
-                                                       #{rest\ 842}#
-                                                       #{kw\ 843}#
-                                                       #{inits\ 844}#
-                                                       #{vars\ 845}#
-                                                       #{body\ 846}#
-                                                       #{else*\ 860}#)))))))))
-                                     #{tmp\ 817}#)
+                                                     (let ((#{t\ 10019}#
+                                                             #{docstring\ 
9993}#))
+                                                       (if #{t\ 10019}#
+                                                         #{t\ 10019}#
+                                                         #{docstring*\ 
10013}#))
+                                                     (#{build-lambda-case\ 
9360}#
+                                                       #{s\ 9798}#
+                                                       #{req\ 9994}#
+                                                       #{opt\ 9995}#
+                                                       #{rest\ 9996}#
+                                                       #{kw\ 9997}#
+                                                       #{inits\ 9998}#
+                                                       #{vars\ 9999}#
+                                                       #{body\ 10000}#
+                                                       #{else*\ 
10014}#)))))))))
+                                     #{tmp\ 9971}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 815}#)))
+                                #{tmp\ 9969}#)))
                           ($sc-dispatch
-                            #{tmp\ 815}#
+                            #{tmp\ 9969}#
                             '((any any . each-any)
                               .
                               #(each (any any . each-any)))))))
-                     ($sc-dispatch #{tmp\ 815}# (quote ()))))
-                  #{clauses\ 647}#))))
-           (#{lambda*-formals\ 367}#
-             (lambda (#{orig-args\ 867}#)
-               (letrec ((#{check\ 878}#
-                          (lambda (#{req\ 879}#
-                                   #{opt\ 880}#
-                                   #{rest\ 881}#
-                                   #{kw\ 882}#)
-                            (if (#{distinct-bound-ids?\ 325}#
+                     ($sc-dispatch #{tmp\ 9969}# (quote ()))))
+                  #{clauses\ 9801}#))))
+           (#{lambda*-formals\ 9521}#
+             (lambda (#{orig-args\ 10021}#)
+               (letrec ((#{check\ 10032}#
+                          (lambda (#{req\ 10033}#
+                                   #{opt\ 10034}#
+                                   #{rest\ 10035}#
+                                   #{kw\ 10036}#)
+                            (if (#{distinct-bound-ids?\ 9479}#
                                   (append
-                                    #{req\ 879}#
-                                    (map car #{opt\ 880}#)
-                                    (if #{rest\ 881}#
-                                      (list #{rest\ 881}#)
+                                    #{req\ 10033}#
+                                    (map car #{opt\ 10034}#)
+                                    (if #{rest\ 10035}#
+                                      (list #{rest\ 10035}#)
                                       '())
-                                    (if (pair? #{kw\ 882}#)
-                                      (map cadr (cdr #{kw\ 882}#))
+                                    (if (pair? #{kw\ 10036}#)
+                                      (map cadr (cdr #{kw\ 10036}#))
                                       '())))
                               (values
-                                #{req\ 879}#
-                                #{opt\ 880}#
-                                #{rest\ 881}#
-                                #{kw\ 882}#)
+                                #{req\ 10033}#
+                                #{opt\ 10034}#
+                                #{rest\ 10035}#
+                                #{kw\ 10036}#)
                               (syntax-violation
                                 'lambda*
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 867}#))))
-                        (#{rest\ 876}#
-                          (lambda (#{args\ 890}#
-                                   #{req\ 891}#
-                                   #{opt\ 892}#
-                                   #{kw\ 893}#)
-                            ((lambda (#{tmp\ 898}#)
-                               ((lambda (#{tmp\ 899}#)
-                                  (if (if #{tmp\ 899}#
-                                        (apply (lambda (#{r\ 901}#)
-                                                 (#{id?\ 260}# #{r\ 901}#))
-                                               #{tmp\ 899}#)
+                                #{orig-args\ 10021}#))))
+                        (#{rest\ 10030}#
+                          (lambda (#{args\ 10044}#
+                                   #{req\ 10045}#
+                                   #{opt\ 10046}#
+                                   #{kw\ 10047}#)
+                            ((lambda (#{tmp\ 10052}#)
+                               ((lambda (#{tmp\ 10053}#)
+                                  (if (if #{tmp\ 10053}#
+                                        (apply (lambda (#{r\ 10055}#)
+                                                 (#{id?\ 9414}# #{r\ 10055}#))
+                                               #{tmp\ 10053}#)
                                         #f)
-                                    (apply (lambda (#{r\ 903}#)
-                                             (#{check\ 878}#
-                                               #{req\ 891}#
-                                               #{opt\ 892}#
-                                               #{r\ 903}#
-                                               #{kw\ 893}#))
-                                           #{tmp\ 899}#)
-                                    ((lambda (#{else\ 905}#)
+                                    (apply (lambda (#{r\ 10057}#)
+                                             (#{check\ 10032}#
+                                               #{req\ 10045}#
+                                               #{opt\ 10046}#
+                                               #{r\ 10057}#
+                                               #{kw\ 10047}#))
+                                           #{tmp\ 10053}#)
+                                    ((lambda (#{else\ 10059}#)
                                        (syntax-violation
                                          'lambda*
                                          "invalid rest argument"
-                                         #{orig-args\ 867}#
-                                         #{args\ 890}#))
-                                     #{tmp\ 898}#)))
-                                (list #{tmp\ 898}#)))
-                             #{args\ 890}#)))
-                        (#{key\ 874}#
-                          (lambda (#{args\ 906}#
-                                   #{req\ 907}#
-                                   #{opt\ 908}#
-                                   #{rkey\ 909}#)
-                            ((lambda (#{tmp\ 914}#)
-                               ((lambda (#{tmp\ 915}#)
-                                  (if #{tmp\ 915}#
+                                         #{orig-args\ 10021}#
+                                         #{args\ 10044}#))
+                                     #{tmp\ 10052}#)))
+                                (list #{tmp\ 10052}#)))
+                             #{args\ 10044}#)))
+                        (#{key\ 10028}#
+                          (lambda (#{args\ 10060}#
+                                   #{req\ 10061}#
+                                   #{opt\ 10062}#
+                                   #{rkey\ 10063}#)
+                            ((lambda (#{tmp\ 10068}#)
+                               ((lambda (#{tmp\ 10069}#)
+                                  (if #{tmp\ 10069}#
                                     (apply (lambda ()
-                                             (#{check\ 878}#
-                                               #{req\ 907}#
-                                               #{opt\ 908}#
+                                             (#{check\ 10032}#
+                                               #{req\ 10061}#
+                                               #{opt\ 10062}#
                                                #f
                                                (cons #f
-                                                     (reverse #{rkey\ 909}#))))
-                                           #{tmp\ 915}#)
-                                    ((lambda (#{tmp\ 916}#)
-                                       (if (if #{tmp\ 916}#
-                                             (apply (lambda (#{a\ 919}#
-                                                             #{b\ 920}#)
-                                                      (#{id?\ 260}#
-                                                        #{a\ 919}#))
-                                                    #{tmp\ 916}#)
+                                                     (reverse
+                                                       #{rkey\ 10063}#))))
+                                           #{tmp\ 10069}#)
+                                    ((lambda (#{tmp\ 10070}#)
+                                       (if (if #{tmp\ 10070}#
+                                             (apply (lambda (#{a\ 10073}#
+                                                             #{b\ 10074}#)
+                                                      (#{id?\ 9414}#
+                                                        #{a\ 10073}#))
+                                                    #{tmp\ 10070}#)
                                              #f)
-                                         (apply (lambda (#{a\ 923}# #{b\ 924}#)
-                                                  ((lambda (#{tmp\ 926}#)
-                                                     ((lambda (#{k\ 928}#)
-                                                        (#{key\ 874}#
-                                                          #{b\ 924}#
-                                                          #{req\ 907}#
-                                                          #{opt\ 908}#
-                                                          (cons (cons #{k\ 
928}#
-                                                                      (cons 
#{a\ 923}#
+                                         (apply (lambda (#{a\ 10077}#
+                                                         #{b\ 10078}#)
+                                                  ((lambda (#{tmp\ 10080}#)
+                                                     ((lambda (#{k\ 10082}#)
+                                                        (#{key\ 10028}#
+                                                          #{b\ 10078}#
+                                                          #{req\ 10061}#
+                                                          #{opt\ 10062}#
+                                                          (cons (cons #{k\ 
10082}#
+                                                                      (cons 
#{a\ 10077}#
                                                                             
'(#(syntax-object
                                                                                
 #f
                                                                                
 ((top)
                                                                                
  #(ribcage
                                                                                
    #(k)
                                                                                
    #((top))
-                                                                               
    #("i927"))
+                                                                               
    #("i10081"))
                                                                                
  #(ribcage
                                                                                
    #(a
                                                                                
      b)
                                                                                
    #((top)
                                                                                
      (top))
-                                                                               
    #("i921"
-                                                                               
      "i922"))
+                                                                               
    #("i10075"
+                                                                               
      "i10076"))
                                                                                
  #(ribcage
                                                                                
    ()
                                                                                
    ()
@@ -618,10 +626,10 @@
                                                                                
      (top)
                                                                                
      (top)
                                                                                
      (top))
-                                                                               
    #("i910"
-                                                                               
      "i911"
-                                                                               
      "i912"
-                                                                               
      "i913"))
+                                                                               
    #("i10064"
+                                                                               
      "i10065"
+                                                                               
      "i10066"
+                                                                               
      "i10067"))
                                                                                
  #(ribcage
                                                                                
    (check rest
                                                                                
           key
@@ -632,15 +640,15 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i877"
-                                                                               
     "i875"
-                                                                               
     "i873"
-                                                                               
     "i871"
-                                                                               
     "i869"))
+                                                                               
    ("i10031"
+                                                                               
     "i10029"
+                                                                               
     "i10027"
+                                                                               
     "i10025"
+                                                                               
     "i10023"))
                                                                                
  #(ribcage
                                                                                
    #(orig-args)
                                                                                
    #((top))
-                                                                               
    #("i868"))
+                                                                               
    #("i10022"))
                                                                                
  #(ribcage
                                                                                
    (lambda-var-list
                                                                                
      gen-var
@@ -876,349 +884,351 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i374"
-                                                                               
     "i372"
-                                                                               
     "i370"
-                                                                               
     "i368"
-                                                                               
     "i366"
-                                                                               
     "i364"
-                                                                               
     "i362"
-                                                                               
     "i360"
-                                                                               
     "i358"
-                                                                               
     "i356"
-                                                                               
     "i354"
-                                                                               
     "i352"
-                                                                               
     "i350"
-                                                                               
     "i348"
-                                                                               
     "i346"
-                                                                               
     "i344"
-                                                                               
     "i342"
-                                                                               
     "i340"
-                                                                               
     "i338"
-                                                                               
     "i336"
-                                                                               
     "i334"
-                                                                               
     "i332"
-                                                                               
     "i330"
-                                                                               
     "i328"
-                                                                               
     "i326"
-                                                                               
     "i324"
-                                                                               
     "i322"
-                                                                               
     "i320"
-                                                                               
     "i318"
-                                                                               
     "i316"
-                                                                               
     "i314"
-                                                                               
     "i312"
-                                                                               
     "i310"
-                                                                               
     "i308"
-                                                                               
     "i306"
-                                                                               
     "i304"
-                                                                               
     "i303"
-                                                                               
     "i302"
-                                                                               
     "i300"
-                                                                               
     "i299"
-                                                                               
     "i298"
-                                                                               
     "i297"
-                                                                               
     "i296"
-                                                                               
     "i294"
-                                                                               
     "i292"
-                                                                               
     "i290"
-                                                                               
     "i288"
-                                                                               
     "i286"
-                                                                               
     "i284"
-                                                                               
     "i282"
-                                                                               
     "i280"
-                                                                               
     "i277"
-                                                                               
     "i275"
-                                                                               
     "i274"
-                                                                               
     "i273"
-                                                                               
     "i272"
-                                                                               
     "i271"
-                                                                               
     "i270"
-                                                                               
     "i268"
-                                                                               
     "i266"
-                                                                               
     "i264"
-                                                                               
     "i262"
-                                                                               
     "i261"
-                                                                               
     "i259"
-                                                                               
     "i257"
-                                                                               
     "i255"
-                                                                               
     "i253"
-                                                                               
     "i251"
-                                                                               
     "i249"
-                                                                               
     "i247"
-                                                                               
     "i246"
-                                                                               
     "i244"
-                                                                               
     "i242"
-                                                                               
     "i241"
-                                                                               
     "i240"
-                                                                               
     "i238"
-                                                                               
     "i237"
-                                                                               
     "i235"
-                                                                               
     "i233"
-                                                                               
     "i231"
-                                                                               
     "i229"
-                                                                               
     "i227"
-                                                                               
     "i225"
-                                                                               
     "i223"
-                                                                               
     "i221"
-                                                                               
     "i219"
-                                                                               
     "i217"
-                                                                               
     "i215"
-                                                                               
     "i213"
-                                                                               
     "i211"
-                                                                               
     "i209"
-                                                                               
     "i207"
-                                                                               
     "i205"
-                                                                               
     "i203"
-                                                                               
     "i201"
-                                                                               
     "i199"
-                                                                               
     "i197"
-                                                                               
     "i195"
-                                                                               
     "i193"
-                                                                               
     "i191"
-                                                                               
     "i189"
-                                                                               
     "i187"
-                                                                               
     "i185"
-                                                                               
     "i183"
-                                                                               
     "i181"
-                                                                               
     "i179"
-                                                                               
     "i177"
-                                                                               
     "i175"
-                                                                               
     "i174"
-                                                                               
     "i172"
-                                                                               
     "i170"
-                                                                               
     "i168"
-                                                                               
     "i166"
-                                                                               
     "i164"
-                                                                               
     "i162"
-                                                                               
     "i160"
-                                                                               
     "i158"))
+                                                                               
    ("i9528"
+                                                                               
     "i9526"
+                                                                               
     "i9524"
+                                                                               
     "i9522"
+                                                                               
     "i9520"
+                                                                               
     "i9518"
+                                                                               
     "i9516"
+                                                                               
     "i9514"
+                                                                               
     "i9512"
+                                                                               
     "i9510"
+                                                                               
     "i9508"
+                                                                               
     "i9506"
+                                                                               
     "i9504"
+                                                                               
     "i9502"
+                                                                               
     "i9500"
+                                                                               
     "i9498"
+                                                                               
     "i9496"
+                                                                               
     "i9494"
+                                                                               
     "i9492"
+                                                                               
     "i9490"
+                                                                               
     "i9488"
+                                                                               
     "i9486"
+                                                                               
     "i9484"
+                                                                               
     "i9482"
+                                                                               
     "i9480"
+                                                                               
     "i9478"
+                                                                               
     "i9476"
+                                                                               
     "i9474"
+                                                                               
     "i9472"
+                                                                               
     "i9470"
+                                                                               
     "i9468"
+                                                                               
     "i9466"
+                                                                               
     "i9464"
+                                                                               
     "i9462"
+                                                                               
     "i9460"
+                                                                               
     "i9458"
+                                                                               
     "i9457"
+                                                                               
     "i9456"
+                                                                               
     "i9454"
+                                                                               
     "i9453"
+                                                                               
     "i9452"
+                                                                               
     "i9451"
+                                                                               
     "i9450"
+                                                                               
     "i9448"
+                                                                               
     "i9446"
+                                                                               
     "i9444"
+                                                                               
     "i9442"
+                                                                               
     "i9440"
+                                                                               
     "i9438"
+                                                                               
     "i9436"
+                                                                               
     "i9434"
+                                                                               
     "i9431"
+                                                                               
     "i9429"
+                                                                               
     "i9428"
+                                                                               
     "i9427"
+                                                                               
     "i9426"
+                                                                               
     "i9425"
+                                                                               
     "i9424"
+                                                                               
     "i9422"
+                                                                               
     "i9420"
+                                                                               
     "i9418"
+                                                                               
     "i9416"
+                                                                               
     "i9415"
+                                                                               
     "i9413"
+                                                                               
     "i9411"
+                                                                               
     "i9409"
+                                                                               
     "i9407"
+                                                                               
     "i9405"
+                                                                               
     "i9403"
+                                                                               
     "i9401"
+                                                                               
     "i9400"
+                                                                               
     "i9398"
+                                                                               
     "i9396"
+                                                                               
     "i9395"
+                                                                               
     "i9394"
+                                                                               
     "i9392"
+                                                                               
     "i9391"
+                                                                               
     "i9389"
+                                                                               
     "i9387"
+                                                                               
     "i9385"
+                                                                               
     "i9383"
+                                                                               
     "i9381"
+                                                                               
     "i9379"
+                                                                               
     "i9377"
+                                                                               
     "i9375"
+                                                                               
     "i9373"
+                                                                               
     "i9371"
+                                                                               
     "i9369"
+                                                                               
     "i9367"
+                                                                               
     "i9365"
+                                                                               
     "i9363"
+                                                                               
     "i9361"
+                                                                               
     "i9359"
+                                                                               
     "i9357"
+                                                                               
     "i9355"
+                                                                               
     "i9353"
+                                                                               
     "i9351"
+                                                                               
     "i9349"
+                                                                               
     "i9347"
+                                                                               
     "i9345"
+                                                                               
     "i9343"
+                                                                               
     "i9341"
+                                                                               
     "i9339"
+                                                                               
     "i9337"
+                                                                               
     "i9335"
+                                                                               
     "i9333"
+                                                                               
     "i9331"
+                                                                               
     "i9329"
+                                                                               
     "i9328"
+                                                                               
     "i9326"
+                                                                               
     "i9324"
+                                                                               
     "i9322"
+                                                                               
     "i9320"
+                                                                               
     "i9318"
+                                                                               
     "i9316"
+                                                                               
     "i9314"
+                                                                               
     "i9312"))
                                                                                
  #(ribcage
                                                                                
    (define-structure
                                                                                
      and-map*)
                                                                                
    ((top)
                                                                                
     (top))
-                                                                               
    ("i61"
-                                                                               
     "i59")))
+                                                                               
    ("i9215"
+                                                                               
     "i9213")))
                                                                                
 (hygiene
                                                                                
   guile)))))
-                                                                #{rkey\ 
909}#)))
-                                                      #{tmp\ 926}#))
+                                                                #{rkey\ 
10063}#)))
+                                                      #{tmp\ 10080}#))
                                                    (symbol->keyword
                                                      (syntax->datum
-                                                       #{a\ 923}#))))
-                                                #{tmp\ 916}#)
-                                         ((lambda (#{tmp\ 929}#)
-                                            (if (if #{tmp\ 929}#
-                                                  (apply (lambda (#{a\ 933}#
-                                                                  #{init\ 934}#
-                                                                  #{b\ 935}#)
-                                                           (#{id?\ 260}#
-                                                             #{a\ 933}#))
-                                                         #{tmp\ 929}#)
+                                                       #{a\ 10077}#))))
+                                                #{tmp\ 10070}#)
+                                         ((lambda (#{tmp\ 10083}#)
+                                            (if (if #{tmp\ 10083}#
+                                                  (apply (lambda (#{a\ 10087}#
+                                                                  #{init\ 
10088}#
+                                                                  #{b\ 10089}#)
+                                                           (#{id?\ 9414}#
+                                                             #{a\ 10087}#))
+                                                         #{tmp\ 10083}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 939}#
-                                                              #{init\ 940}#
-                                                              #{b\ 941}#)
-                                                       ((lambda (#{tmp\ 943}#)
-                                                          ((lambda (#{k\ 945}#)
-                                                             (#{key\ 874}#
-                                                               #{b\ 941}#
-                                                               #{req\ 907}#
-                                                               #{opt\ 908}#
-                                                               (cons (list 
#{k\ 945}#
-                                                                           
#{a\ 939}#
-                                                                           
#{init\ 940}#)
-                                                                     #{rkey\ 
909}#)))
-                                                           #{tmp\ 943}#))
+                                              (apply (lambda (#{a\ 10093}#
+                                                              #{init\ 10094}#
+                                                              #{b\ 10095}#)
+                                                       ((lambda (#{tmp\ 
10097}#)
+                                                          ((lambda (#{k\ 
10099}#)
+                                                             (#{key\ 10028}#
+                                                               #{b\ 10095}#
+                                                               #{req\ 10061}#
+                                                               #{opt\ 10062}#
+                                                               (cons (list 
#{k\ 10099}#
+                                                                           
#{a\ 10093}#
+                                                                           
#{init\ 10094}#)
+                                                                     #{rkey\ 
10063}#)))
+                                                           #{tmp\ 10097}#))
                                                         (symbol->keyword
                                                           (syntax->datum
-                                                            #{a\ 939}#))))
-                                                     #{tmp\ 929}#)
-                                              ((lambda (#{tmp\ 946}#)
-                                                 (if (if #{tmp\ 946}#
-                                                       (apply (lambda (#{a\ 
951}#
-                                                                       #{init\ 
952}#
-                                                                       #{k\ 
953}#
-                                                                       #{b\ 
954}#)
-                                                                (if (#{id?\ 
260}#
-                                                                      #{a\ 
951}#)
+                                                            #{a\ 10093}#))))
+                                                     #{tmp\ 10083}#)
+                                              ((lambda (#{tmp\ 10100}#)
+                                                 (if (if #{tmp\ 10100}#
+                                                       (apply (lambda (#{a\ 
10105}#
+                                                                       #{init\ 
10106}#
+                                                                       #{k\ 
10107}#
+                                                                       #{b\ 
10108}#)
+                                                                (if (#{id?\ 
9414}#
+                                                                      #{a\ 
10105}#)
                                                                   (keyword?
                                                                     
(syntax->datum
-                                                                      #{k\ 
953}#))
+                                                                      #{k\ 
10107}#))
                                                                   #f))
-                                                              #{tmp\ 946}#)
+                                                              #{tmp\ 10100}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 961}#
-                                                                   #{init\ 
962}#
-                                                                   #{k\ 963}#
-                                                                   #{b\ 964}#)
-                                                            (#{key\ 874}#
-                                                              #{b\ 964}#
-                                                              #{req\ 907}#
-                                                              #{opt\ 908}#
-                                                              (cons (list #{k\ 
963}#
-                                                                          #{a\ 
961}#
-                                                                          
#{init\ 962}#)
-                                                                    #{rkey\ 
909}#)))
-                                                          #{tmp\ 946}#)
-                                                   ((lambda (#{tmp\ 965}#)
-                                                      (if (if #{tmp\ 965}#
-                                                            (apply (lambda 
(#{aok\ 967}#)
+                                                   (apply (lambda (#{a\ 10115}#
+                                                                   #{init\ 
10116}#
+                                                                   #{k\ 10117}#
+                                                                   #{b\ 
10118}#)
+                                                            (#{key\ 10028}#
+                                                              #{b\ 10118}#
+                                                              #{req\ 10061}#
+                                                              #{opt\ 10062}#
+                                                              (cons (list #{k\ 
10117}#
+                                                                          #{a\ 
10115}#
+                                                                          
#{init\ 10116}#)
+                                                                    #{rkey\ 
10063}#)))
+                                                          #{tmp\ 10100}#)
+                                                   ((lambda (#{tmp\ 10119}#)
+                                                      (if (if #{tmp\ 10119}#
+                                                            (apply (lambda 
(#{aok\ 10121}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{aok\ 967}#)
+                                                                            
#{aok\ 10121}#)
                                                                           
#:allow-other-keys))
-                                                                   #{tmp\ 
965}#)
+                                                                   #{tmp\ 
10119}#)
                                                             #f)
-                                                        (apply (lambda (#{aok\ 
969}#)
-                                                                 (#{check\ 
878}#
-                                                                   #{req\ 907}#
-                                                                   #{opt\ 908}#
+                                                        (apply (lambda (#{aok\ 
10123}#)
+                                                                 (#{check\ 
10032}#
+                                                                   #{req\ 
10061}#
+                                                                   #{opt\ 
10062}#
                                                                    #f
                                                                    (cons #t
                                                                          
(reverse
-                                                                           
#{rkey\ 909}#))))
-                                                               #{tmp\ 965}#)
-                                                        ((lambda (#{tmp\ 970}#)
-                                                           (if (if #{tmp\ 970}#
-                                                                 (apply 
(lambda (#{aok\ 974}#
-                                                                               
  #{a\ 975}#
-                                                                               
  #{b\ 976}#)
+                                                                           
#{rkey\ 10063}#))))
+                                                               #{tmp\ 10119}#)
+                                                        ((lambda (#{tmp\ 
10124}#)
+                                                           (if (if #{tmp\ 
10124}#
+                                                                 (apply 
(lambda (#{aok\ 10128}#
+                                                                               
  #{a\ 10129}#
+                                                                               
  #{b\ 10130}#)
                                                                           (if 
(eq? (syntax->datum
-                                                                               
      #{aok\ 974}#)
+                                                                               
      #{aok\ 10128}#)
                                                                                
    #:allow-other-keys)
                                                                             
(eq? (syntax->datum
-                                                                               
    #{a\ 975}#)
+                                                                               
    #{a\ 10129}#)
                                                                                
  #:rest)
                                                                             
#f))
-                                                                        #{tmp\ 
970}#)
+                                                                        #{tmp\ 
10124}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{aok\ 982}#
-                                                                             
#{a\ 983}#
-                                                                             
#{b\ 984}#)
-                                                                      (#{rest\ 
876}#
-                                                                        #{b\ 
984}#
-                                                                        #{req\ 
907}#
-                                                                        #{opt\ 
908}#
+                                                             (apply (lambda 
(#{aok\ 10136}#
+                                                                             
#{a\ 10137}#
+                                                                             
#{b\ 10138}#)
+                                                                      (#{rest\ 
10030}#
+                                                                        #{b\ 
10138}#
+                                                                        #{req\ 
10061}#
+                                                                        #{opt\ 
10062}#
                                                                         (cons 
#t
                                                                               
(reverse
-                                                                               
 #{rkey\ 909}#))))
-                                                                    #{tmp\ 
970}#)
-                                                             ((lambda (#{tmp\ 
985}#)
-                                                                (if (if #{tmp\ 
985}#
-                                                                      (apply 
(lambda (#{aok\ 988}#
-                                                                               
       #{r\ 989}#)
+                                                                               
 #{rkey\ 10063}#))))
+                                                                    #{tmp\ 
10124}#)
+                                                             ((lambda (#{tmp\ 
10139}#)
+                                                                (if (if #{tmp\ 
10139}#
+                                                                      (apply 
(lambda (#{aok\ 10142}#
+                                                                               
       #{r\ 10143}#)
                                                                                
(if (eq? (syntax->datum
-                                                                               
           #{aok\ 988}#)
+                                                                               
           #{aok\ 10142}#)
                                                                                
         #:allow-other-keys)
-                                                                               
  (#{id?\ 260}#
-                                                                               
    #{r\ 989}#)
+                                                                               
  (#{id?\ 9414}#
+                                                                               
    #{r\ 10143}#)
                                                                                
  #f))
-                                                                             
#{tmp\ 985}#)
+                                                                             
#{tmp\ 10139}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{aok\ 994}#
-                                                                               
   #{r\ 995}#)
-                                                                           
(#{rest\ 876}#
-                                                                             
#{r\ 995}#
-                                                                             
#{req\ 907}#
-                                                                             
#{opt\ 908}#
+                                                                  (apply 
(lambda (#{aok\ 10148}#
+                                                                               
   #{r\ 10149}#)
+                                                                           
(#{rest\ 10030}#
+                                                                             
#{r\ 10149}#
+                                                                             
#{req\ 10061}#
+                                                                             
#{opt\ 10062}#
                                                                              
(cons #t
                                                                                
    (reverse
-                                                                               
      #{rkey\ 909}#))))
-                                                                         
#{tmp\ 985}#)
-                                                                  ((lambda 
(#{tmp\ 996}#)
-                                                                     (if (if 
#{tmp\ 996}#
-                                                                           
(apply (lambda (#{a\ 999}#
-                                                                               
            #{b\ 1000}#)
+                                                                               
      #{rkey\ 10063}#))))
+                                                                         
#{tmp\ 10139}#)
+                                                                  ((lambda 
(#{tmp\ 10150}#)
+                                                                     (if (if 
#{tmp\ 10150}#
+                                                                           
(apply (lambda (#{a\ 10153}#
+                                                                               
            #{b\ 10154}#)
                                                                                
     (eq? (syntax->datum
-                                                                               
            #{a\ 999}#)
+                                                                               
            #{a\ 10153}#)
                                                                                
          #:rest))
-                                                                               
   #{tmp\ 996}#)
+                                                                               
   #{tmp\ 10150}#)
                                                                            #f)
-                                                                       (apply 
(lambda (#{a\ 1003}#
-                                                                               
        #{b\ 1004}#)
-                                                                               
 (#{rest\ 876}#
-                                                                               
   #{b\ 1004}#
-                                                                               
   #{req\ 907}#
-                                                                               
   #{opt\ 908}#
+                                                                       (apply 
(lambda (#{a\ 10157}#
+                                                                               
        #{b\ 10158}#)
+                                                                               
 (#{rest\ 10030}#
+                                                                               
   #{b\ 10158}#
+                                                                               
   #{req\ 10061}#
+                                                                               
   #{opt\ 10062}#
                                                                                
   (cons #f
                                                                                
         (reverse
-                                                                               
           #{rkey\ 909}#))))
-                                                                              
#{tmp\ 996}#)
-                                                                       
((lambda (#{tmp\ 1005}#)
-                                                                          (if 
(if #{tmp\ 1005}#
-                                                                               
 (apply (lambda (#{r\ 1007}#)
-                                                                               
          (#{id?\ 260}#
-                                                                               
            #{r\ 1007}#))
-                                                                               
        #{tmp\ 1005}#)
+                                                                               
           #{rkey\ 10063}#))))
+                                                                              
#{tmp\ 10150}#)
+                                                                       
((lambda (#{tmp\ 10159}#)
+                                                                          (if 
(if #{tmp\ 10159}#
+                                                                               
 (apply (lambda (#{r\ 10161}#)
+                                                                               
          (#{id?\ 9414}#
+                                                                               
            #{r\ 10161}#))
+                                                                               
        #{tmp\ 10159}#)
                                                                                
 #f)
-                                                                            
(apply (lambda (#{r\ 1009}#)
-                                                                               
      (#{rest\ 876}#
-                                                                               
        #{r\ 1009}#
-                                                                               
        #{req\ 907}#
-                                                                               
        #{opt\ 908}#
+                                                                            
(apply (lambda (#{r\ 10163}#)
+                                                                               
      (#{rest\ 10030}#
+                                                                               
        #{r\ 10163}#
+                                                                               
        #{req\ 10061}#
+                                                                               
        #{opt\ 10062}#
                                                                                
        (cons #f
                                                                                
              (reverse
-                                                                               
                #{rkey\ 909}#))))
-                                                                               
    #{tmp\ 1005}#)
-                                                                            
((lambda (#{else\ 1011}#)
+                                                                               
                #{rkey\ 10063}#))))
+                                                                               
    #{tmp\ 10159}#)
+                                                                            
((lambda (#{else\ 10165}#)
                                                                                
(syntax-violation
                                                                                
  'lambda*
                                                                                
  "invalid keyword argument list"
-                                                                               
  #{orig-args\ 867}#
-                                                                               
  #{args\ 906}#))
-                                                                             
#{tmp\ 914}#)))
-                                                                        (list 
#{tmp\ 914}#))))
+                                                                               
  #{orig-args\ 10021}#
+                                                                               
  #{args\ 10060}#))
+                                                                             
#{tmp\ 10068}#)))
+                                                                        (list 
#{tmp\ 10068}#))))
                                                                    
($sc-dispatch
-                                                                     #{tmp\ 
914}#
+                                                                     #{tmp\ 
10068}#
                                                                      '(any 
any)))))
                                                               ($sc-dispatch
-                                                                #{tmp\ 914}#
+                                                                #{tmp\ 10068}#
                                                                 '(any .
                                                                       any)))))
                                                          ($sc-dispatch
-                                                           #{tmp\ 914}#
+                                                           #{tmp\ 10068}#
                                                            '(any any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 914}#
+                                                      #{tmp\ 10068}#
                                                       '(any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 914}#
+                                                 #{tmp\ 10068}#
                                                  '((any any any) . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 914}#
+                                            #{tmp\ 10068}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 914}#
+                                       #{tmp\ 10068}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 914}# (quote ()))))
-                             #{args\ 906}#)))
-                        (#{opt\ 872}#
-                          (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#)
-                            ((lambda (#{tmp\ 1018}#)
-                               ((lambda (#{tmp\ 1019}#)
-                                  (if #{tmp\ 1019}#
+                                ($sc-dispatch #{tmp\ 10068}# (quote ()))))
+                             #{args\ 10060}#)))
+                        (#{opt\ 10026}#
+                          (lambda (#{args\ 10166}#
+                                   #{req\ 10167}#
+                                   #{ropt\ 10168}#)
+                            ((lambda (#{tmp\ 10172}#)
+                               ((lambda (#{tmp\ 10173}#)
+                                  (if #{tmp\ 10173}#
                                     (apply (lambda ()
-                                             (#{check\ 878}#
-                                               #{req\ 1013}#
-                                               (reverse #{ropt\ 1014}#)
+                                             (#{check\ 10032}#
+                                               #{req\ 10167}#
+                                               (reverse #{ropt\ 10168}#)
                                                #f
                                                '()))
-                                           #{tmp\ 1019}#)
-                                    ((lambda (#{tmp\ 1020}#)
-                                       (if (if #{tmp\ 1020}#
-                                             (apply (lambda (#{a\ 1023}#
-                                                             #{b\ 1024}#)
-                                                      (#{id?\ 260}#
-                                                        #{a\ 1023}#))
-                                                    #{tmp\ 1020}#)
+                                           #{tmp\ 10173}#)
+                                    ((lambda (#{tmp\ 10174}#)
+                                       (if (if #{tmp\ 10174}#
+                                             (apply (lambda (#{a\ 10177}#
+                                                             #{b\ 10178}#)
+                                                      (#{id?\ 9414}#
+                                                        #{a\ 10177}#))
+                                                    #{tmp\ 10174}#)
                                              #f)
-                                         (apply (lambda (#{a\ 1027}#
-                                                         #{b\ 1028}#)
-                                                  (#{opt\ 872}#
-                                                    #{b\ 1028}#
-                                                    #{req\ 1013}#
-                                                    (cons (cons #{a\ 1027}#
+                                         (apply (lambda (#{a\ 10181}#
+                                                         #{b\ 10182}#)
+                                                  (#{opt\ 10026}#
+                                                    #{b\ 10182}#
+                                                    #{req\ 10167}#
+                                                    (cons (cons #{a\ 10181}#
                                                                 
'(#(syntax-object
                                                                     #f
                                                                     ((top)
@@ -1226,8 +1236,8 @@
                                                                        #(a b)
                                                                        #((top)
                                                                          (top))
-                                                                       
#("i1025"
-                                                                         
"i1026"))
+                                                                       
#("i10179"
+                                                                         
"i10180"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
@@ -1239,9 +1249,9 @@
                                                                        #((top)
                                                                          (top)
                                                                          (top))
-                                                                       
#("i1015"
-                                                                         
"i1016"
-                                                                         
"i1017"))
+                                                                       
#("i10169"
+                                                                         
"i10170"
+                                                                         
"i10171"))
                                                                      #(ribcage
                                                                        (check 
rest
                                                                               
key
@@ -1252,15 +1262,15 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i877"
-                                                                        "i875"
-                                                                        "i873"
-                                                                        "i871"
-                                                                        
"i869"))
+                                                                       
("i10031"
+                                                                        
"i10029"
+                                                                        
"i10027"
+                                                                        
"i10025"
+                                                                        
"i10023"))
                                                                      #(ribcage
                                                                        
#(orig-args)
                                                                        #((top))
-                                                                       
#("i868"))
+                                                                       
#("i10022"))
                                                                      #(ribcage
                                                                        
(lambda-var-list
                                                                          
gen-var
@@ -1496,462 +1506,462 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i374"
-                                                                        "i372"
-                                                                        "i370"
-                                                                        "i368"
-                                                                        "i366"
-                                                                        "i364"
-                                                                        "i362"
-                                                                        "i360"
-                                                                        "i358"
-                                                                        "i356"
-                                                                        "i354"
-                                                                        "i352"
-                                                                        "i350"
-                                                                        "i348"
-                                                                        "i346"
-                                                                        "i344"
-                                                                        "i342"
-                                                                        "i340"
-                                                                        "i338"
-                                                                        "i336"
-                                                                        "i334"
-                                                                        "i332"
-                                                                        "i330"
-                                                                        "i328"
-                                                                        "i326"
-                                                                        "i324"
-                                                                        "i322"
-                                                                        "i320"
-                                                                        "i318"
-                                                                        "i316"
-                                                                        "i314"
-                                                                        "i312"
-                                                                        "i310"
-                                                                        "i308"
-                                                                        "i306"
-                                                                        "i304"
-                                                                        "i303"
-                                                                        "i302"
-                                                                        "i300"
-                                                                        "i299"
-                                                                        "i298"
-                                                                        "i297"
-                                                                        "i296"
-                                                                        "i294"
-                                                                        "i292"
-                                                                        "i290"
-                                                                        "i288"
-                                                                        "i286"
-                                                                        "i284"
-                                                                        "i282"
-                                                                        "i280"
-                                                                        "i277"
-                                                                        "i275"
-                                                                        "i274"
-                                                                        "i273"
-                                                                        "i272"
-                                                                        "i271"
-                                                                        "i270"
-                                                                        "i268"
-                                                                        "i266"
-                                                                        "i264"
-                                                                        "i262"
-                                                                        "i261"
-                                                                        "i259"
-                                                                        "i257"
-                                                                        "i255"
-                                                                        "i253"
-                                                                        "i251"
-                                                                        "i249"
-                                                                        "i247"
-                                                                        "i246"
-                                                                        "i244"
-                                                                        "i242"
-                                                                        "i241"
-                                                                        "i240"
-                                                                        "i238"
-                                                                        "i237"
-                                                                        "i235"
-                                                                        "i233"
-                                                                        "i231"
-                                                                        "i229"
-                                                                        "i227"
-                                                                        "i225"
-                                                                        "i223"
-                                                                        "i221"
-                                                                        "i219"
-                                                                        "i217"
-                                                                        "i215"
-                                                                        "i213"
-                                                                        "i211"
-                                                                        "i209"
-                                                                        "i207"
-                                                                        "i205"
-                                                                        "i203"
-                                                                        "i201"
-                                                                        "i199"
-                                                                        "i197"
-                                                                        "i195"
-                                                                        "i193"
-                                                                        "i191"
-                                                                        "i189"
-                                                                        "i187"
-                                                                        "i185"
-                                                                        "i183"
-                                                                        "i181"
-                                                                        "i179"
-                                                                        "i177"
-                                                                        "i175"
-                                                                        "i174"
-                                                                        "i172"
-                                                                        "i170"
-                                                                        "i168"
-                                                                        "i166"
-                                                                        "i164"
-                                                                        "i162"
-                                                                        "i160"
-                                                                        
"i158"))
+                                                                       ("i9528"
+                                                                        "i9526"
+                                                                        "i9524"
+                                                                        "i9522"
+                                                                        "i9520"
+                                                                        "i9518"
+                                                                        "i9516"
+                                                                        "i9514"
+                                                                        "i9512"
+                                                                        "i9510"
+                                                                        "i9508"
+                                                                        "i9506"
+                                                                        "i9504"
+                                                                        "i9502"
+                                                                        "i9500"
+                                                                        "i9498"
+                                                                        "i9496"
+                                                                        "i9494"
+                                                                        "i9492"
+                                                                        "i9490"
+                                                                        "i9488"
+                                                                        "i9486"
+                                                                        "i9484"
+                                                                        "i9482"
+                                                                        "i9480"
+                                                                        "i9478"
+                                                                        "i9476"
+                                                                        "i9474"
+                                                                        "i9472"
+                                                                        "i9470"
+                                                                        "i9468"
+                                                                        "i9466"
+                                                                        "i9464"
+                                                                        "i9462"
+                                                                        "i9460"
+                                                                        "i9458"
+                                                                        "i9457"
+                                                                        "i9456"
+                                                                        "i9454"
+                                                                        "i9453"
+                                                                        "i9452"
+                                                                        "i9451"
+                                                                        "i9450"
+                                                                        "i9448"
+                                                                        "i9446"
+                                                                        "i9444"
+                                                                        "i9442"
+                                                                        "i9440"
+                                                                        "i9438"
+                                                                        "i9436"
+                                                                        "i9434"
+                                                                        "i9431"
+                                                                        "i9429"
+                                                                        "i9428"
+                                                                        "i9427"
+                                                                        "i9426"
+                                                                        "i9425"
+                                                                        "i9424"
+                                                                        "i9422"
+                                                                        "i9420"
+                                                                        "i9418"
+                                                                        "i9416"
+                                                                        "i9415"
+                                                                        "i9413"
+                                                                        "i9411"
+                                                                        "i9409"
+                                                                        "i9407"
+                                                                        "i9405"
+                                                                        "i9403"
+                                                                        "i9401"
+                                                                        "i9400"
+                                                                        "i9398"
+                                                                        "i9396"
+                                                                        "i9395"
+                                                                        "i9394"
+                                                                        "i9392"
+                                                                        "i9391"
+                                                                        "i9389"
+                                                                        "i9387"
+                                                                        "i9385"
+                                                                        "i9383"
+                                                                        "i9381"
+                                                                        "i9379"
+                                                                        "i9377"
+                                                                        "i9375"
+                                                                        "i9373"
+                                                                        "i9371"
+                                                                        "i9369"
+                                                                        "i9367"
+                                                                        "i9365"
+                                                                        "i9363"
+                                                                        "i9361"
+                                                                        "i9359"
+                                                                        "i9357"
+                                                                        "i9355"
+                                                                        "i9353"
+                                                                        "i9351"
+                                                                        "i9349"
+                                                                        "i9347"
+                                                                        "i9345"
+                                                                        "i9343"
+                                                                        "i9341"
+                                                                        "i9339"
+                                                                        "i9337"
+                                                                        "i9335"
+                                                                        "i9333"
+                                                                        "i9331"
+                                                                        "i9329"
+                                                                        "i9328"
+                                                                        "i9326"
+                                                                        "i9324"
+                                                                        "i9322"
+                                                                        "i9320"
+                                                                        "i9318"
+                                                                        "i9316"
+                                                                        "i9314"
+                                                                        
"i9312"))
                                                                      #(ribcage
                                                                        
(define-structure
                                                                          
and-map*)
                                                                        ((top)
                                                                         (top))
-                                                                       ("i61"
-                                                                        
"i59")))
+                                                                       ("i9215"
+                                                                        
"i9213")))
                                                                     (hygiene
                                                                       guile))))
-                                                          #{ropt\ 1014}#)))
-                                                #{tmp\ 1020}#)
-                                         ((lambda (#{tmp\ 1029}#)
-                                            (if (if #{tmp\ 1029}#
-                                                  (apply (lambda (#{a\ 1033}#
-                                                                  #{init\ 
1034}#
-                                                                  #{b\ 1035}#)
-                                                           (#{id?\ 260}#
-                                                             #{a\ 1033}#))
-                                                         #{tmp\ 1029}#)
+                                                          #{ropt\ 10168}#)))
+                                                #{tmp\ 10174}#)
+                                         ((lambda (#{tmp\ 10183}#)
+                                            (if (if #{tmp\ 10183}#
+                                                  (apply (lambda (#{a\ 10187}#
+                                                                  #{init\ 
10188}#
+                                                                  #{b\ 10189}#)
+                                                           (#{id?\ 9414}#
+                                                             #{a\ 10187}#))
+                                                         #{tmp\ 10183}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 1039}#
-                                                              #{init\ 1040}#
-                                                              #{b\ 1041}#)
-                                                       (#{opt\ 872}#
-                                                         #{b\ 1041}#
-                                                         #{req\ 1013}#
-                                                         (cons (list #{a\ 
1039}#
-                                                                     #{init\ 
1040}#)
-                                                               #{ropt\ 
1014}#)))
-                                                     #{tmp\ 1029}#)
-                                              ((lambda (#{tmp\ 1042}#)
-                                                 (if (if #{tmp\ 1042}#
-                                                       (apply (lambda (#{a\ 
1045}#
-                                                                       #{b\ 
1046}#)
+                                              (apply (lambda (#{a\ 10193}#
+                                                              #{init\ 10194}#
+                                                              #{b\ 10195}#)
+                                                       (#{opt\ 10026}#
+                                                         #{b\ 10195}#
+                                                         #{req\ 10167}#
+                                                         (cons (list #{a\ 
10193}#
+                                                                     #{init\ 
10194}#)
+                                                               #{ropt\ 
10168}#)))
+                                                     #{tmp\ 10183}#)
+                                              ((lambda (#{tmp\ 10196}#)
+                                                 (if (if #{tmp\ 10196}#
+                                                       (apply (lambda (#{a\ 
10199}#
+                                                                       #{b\ 
10200}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
1045}#)
+                                                                       #{a\ 
10199}#)
                                                                      #:key))
-                                                              #{tmp\ 1042}#)
+                                                              #{tmp\ 10196}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 1049}#
-                                                                   #{b\ 1050}#)
-                                                            (#{key\ 874}#
-                                                              #{b\ 1050}#
-                                                              #{req\ 1013}#
+                                                   (apply (lambda (#{a\ 10203}#
+                                                                   #{b\ 
10204}#)
+                                                            (#{key\ 10028}#
+                                                              #{b\ 10204}#
+                                                              #{req\ 10167}#
                                                               (reverse
-                                                                #{ropt\ 1014}#)
+                                                                #{ropt\ 
10168}#)
                                                               '()))
-                                                          #{tmp\ 1042}#)
-                                                   ((lambda (#{tmp\ 1051}#)
-                                                      (if (if #{tmp\ 1051}#
-                                                            (apply (lambda 
(#{a\ 1054}#
-                                                                            
#{b\ 1055}#)
+                                                          #{tmp\ 10196}#)
+                                                   ((lambda (#{tmp\ 10205}#)
+                                                      (if (if #{tmp\ 10205}#
+                                                            (apply (lambda 
(#{a\ 10208}#
+                                                                            
#{b\ 10209}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 1054}#)
+                                                                            
#{a\ 10208}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
1051}#)
+                                                                   #{tmp\ 
10205}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
1058}#
-                                                                        #{b\ 
1059}#)
-                                                                 (#{rest\ 876}#
-                                                                   #{b\ 1059}#
-                                                                   #{req\ 
1013}#
+                                                        (apply (lambda (#{a\ 
10212}#
+                                                                        #{b\ 
10213}#)
+                                                                 (#{rest\ 
10030}#
+                                                                   #{b\ 10213}#
+                                                                   #{req\ 
10167}#
                                                                    (reverse
-                                                                     #{ropt\ 
1014}#)
+                                                                     #{ropt\ 
10168}#)
                                                                    '()))
-                                                               #{tmp\ 1051}#)
-                                                        ((lambda (#{tmp\ 
1060}#)
-                                                           (if (if #{tmp\ 
1060}#
-                                                                 (apply 
(lambda (#{r\ 1062}#)
-                                                                          
(#{id?\ 260}#
-                                                                            
#{r\ 1062}#))
-                                                                        #{tmp\ 
1060}#)
+                                                               #{tmp\ 10205}#)
+                                                        ((lambda (#{tmp\ 
10214}#)
+                                                           (if (if #{tmp\ 
10214}#
+                                                                 (apply 
(lambda (#{r\ 10216}#)
+                                                                          
(#{id?\ 9414}#
+                                                                            
#{r\ 10216}#))
+                                                                        #{tmp\ 
10214}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 1064}#)
-                                                                      (#{rest\ 
876}#
-                                                                        #{r\ 
1064}#
-                                                                        #{req\ 
1013}#
+                                                             (apply (lambda 
(#{r\ 10218}#)
+                                                                      (#{rest\ 
10030}#
+                                                                        #{r\ 
10218}#
+                                                                        #{req\ 
10167}#
                                                                         
(reverse
-                                                                          
#{ropt\ 1014}#)
+                                                                          
#{ropt\ 10168}#)
                                                                         '()))
-                                                                    #{tmp\ 
1060}#)
-                                                             ((lambda (#{else\ 
1066}#)
+                                                                    #{tmp\ 
10214}#)
+                                                             ((lambda (#{else\ 
10220}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
optional argument list"
-                                                                  #{orig-args\ 
867}#
-                                                                  #{args\ 
1012}#))
-                                                              #{tmp\ 1018}#)))
-                                                         (list #{tmp\ 
1018}#))))
+                                                                  #{orig-args\ 
10021}#
+                                                                  #{args\ 
10166}#))
+                                                              #{tmp\ 10172}#)))
+                                                         (list #{tmp\ 
10172}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1018}#
+                                                      #{tmp\ 10172}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 1018}#
+                                                 #{tmp\ 10172}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 1018}#
+                                            #{tmp\ 10172}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 1018}#
+                                       #{tmp\ 10172}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 1018}# (quote ()))))
-                             #{args\ 1012}#)))
-                        (#{req\ 870}#
-                          (lambda (#{args\ 1067}# #{rreq\ 1068}#)
-                            ((lambda (#{tmp\ 1071}#)
-                               ((lambda (#{tmp\ 1072}#)
-                                  (if #{tmp\ 1072}#
+                                ($sc-dispatch #{tmp\ 10172}# (quote ()))))
+                             #{args\ 10166}#)))
+                        (#{req\ 10024}#
+                          (lambda (#{args\ 10221}# #{rreq\ 10222}#)
+                            ((lambda (#{tmp\ 10225}#)
+                               ((lambda (#{tmp\ 10226}#)
+                                  (if #{tmp\ 10226}#
                                     (apply (lambda ()
-                                             (#{check\ 878}#
-                                               (reverse #{rreq\ 1068}#)
+                                             (#{check\ 10032}#
+                                               (reverse #{rreq\ 10222}#)
                                                '()
                                                #f
                                                '()))
-                                           #{tmp\ 1072}#)
-                                    ((lambda (#{tmp\ 1073}#)
-                                       (if (if #{tmp\ 1073}#
-                                             (apply (lambda (#{a\ 1076}#
-                                                             #{b\ 1077}#)
-                                                      (#{id?\ 260}#
-                                                        #{a\ 1076}#))
-                                                    #{tmp\ 1073}#)
+                                           #{tmp\ 10226}#)
+                                    ((lambda (#{tmp\ 10227}#)
+                                       (if (if #{tmp\ 10227}#
+                                             (apply (lambda (#{a\ 10230}#
+                                                             #{b\ 10231}#)
+                                                      (#{id?\ 9414}#
+                                                        #{a\ 10230}#))
+                                                    #{tmp\ 10227}#)
                                              #f)
-                                         (apply (lambda (#{a\ 1080}#
-                                                         #{b\ 1081}#)
-                                                  (#{req\ 870}#
-                                                    #{b\ 1081}#
-                                                    (cons #{a\ 1080}#
-                                                          #{rreq\ 1068}#)))
-                                                #{tmp\ 1073}#)
-                                         ((lambda (#{tmp\ 1082}#)
-                                            (if (if #{tmp\ 1082}#
-                                                  (apply (lambda (#{a\ 1085}#
-                                                                  #{b\ 1086}#)
+                                         (apply (lambda (#{a\ 10234}#
+                                                         #{b\ 10235}#)
+                                                  (#{req\ 10024}#
+                                                    #{b\ 10235}#
+                                                    (cons #{a\ 10234}#
+                                                          #{rreq\ 10222}#)))
+                                                #{tmp\ 10227}#)
+                                         ((lambda (#{tmp\ 10236}#)
+                                            (if (if #{tmp\ 10236}#
+                                                  (apply (lambda (#{a\ 10239}#
+                                                                  #{b\ 10240}#)
                                                            (eq? (syntax->datum
-                                                                  #{a\ 1085}#)
+                                                                  #{a\ 10239}#)
                                                                 #:optional))
-                                                         #{tmp\ 1082}#)
+                                                         #{tmp\ 10236}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 1089}#
-                                                              #{b\ 1090}#)
-                                                       (#{opt\ 872}#
-                                                         #{b\ 1090}#
+                                              (apply (lambda (#{a\ 10243}#
+                                                              #{b\ 10244}#)
+                                                       (#{opt\ 10026}#
+                                                         #{b\ 10244}#
                                                          (reverse
-                                                           #{rreq\ 1068}#)
+                                                           #{rreq\ 10222}#)
                                                          '()))
-                                                     #{tmp\ 1082}#)
-                                              ((lambda (#{tmp\ 1091}#)
-                                                 (if (if #{tmp\ 1091}#
-                                                       (apply (lambda (#{a\ 
1094}#
-                                                                       #{b\ 
1095}#)
+                                                     #{tmp\ 10236}#)
+                                              ((lambda (#{tmp\ 10245}#)
+                                                 (if (if #{tmp\ 10245}#
+                                                       (apply (lambda (#{a\ 
10248}#
+                                                                       #{b\ 
10249}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
1094}#)
+                                                                       #{a\ 
10248}#)
                                                                      #:key))
-                                                              #{tmp\ 1091}#)
+                                                              #{tmp\ 10245}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 1098}#
-                                                                   #{b\ 1099}#)
-                                                            (#{key\ 874}#
-                                                              #{b\ 1099}#
+                                                   (apply (lambda (#{a\ 10252}#
+                                                                   #{b\ 
10253}#)
+                                                            (#{key\ 10028}#
+                                                              #{b\ 10253}#
                                                               (reverse
-                                                                #{rreq\ 1068}#)
+                                                                #{rreq\ 
10222}#)
                                                               '()
                                                               '()))
-                                                          #{tmp\ 1091}#)
-                                                   ((lambda (#{tmp\ 1100}#)
-                                                      (if (if #{tmp\ 1100}#
-                                                            (apply (lambda 
(#{a\ 1103}#
-                                                                            
#{b\ 1104}#)
+                                                          #{tmp\ 10245}#)
+                                                   ((lambda (#{tmp\ 10254}#)
+                                                      (if (if #{tmp\ 10254}#
+                                                            (apply (lambda 
(#{a\ 10257}#
+                                                                            
#{b\ 10258}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 1103}#)
+                                                                            
#{a\ 10257}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
1100}#)
+                                                                   #{tmp\ 
10254}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
1107}#
-                                                                        #{b\ 
1108}#)
-                                                                 (#{rest\ 876}#
-                                                                   #{b\ 1108}#
+                                                        (apply (lambda (#{a\ 
10261}#
+                                                                        #{b\ 
10262}#)
+                                                                 (#{rest\ 
10030}#
+                                                                   #{b\ 10262}#
                                                                    (reverse
-                                                                     #{rreq\ 
1068}#)
+                                                                     #{rreq\ 
10222}#)
                                                                    '()
                                                                    '()))
-                                                               #{tmp\ 1100}#)
-                                                        ((lambda (#{tmp\ 
1109}#)
-                                                           (if (if #{tmp\ 
1109}#
-                                                                 (apply 
(lambda (#{r\ 1111}#)
-                                                                          
(#{id?\ 260}#
-                                                                            
#{r\ 1111}#))
-                                                                        #{tmp\ 
1109}#)
+                                                               #{tmp\ 10254}#)
+                                                        ((lambda (#{tmp\ 
10263}#)
+                                                           (if (if #{tmp\ 
10263}#
+                                                                 (apply 
(lambda (#{r\ 10265}#)
+                                                                          
(#{id?\ 9414}#
+                                                                            
#{r\ 10265}#))
+                                                                        #{tmp\ 
10263}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 1113}#)
-                                                                      (#{rest\ 
876}#
-                                                                        #{r\ 
1113}#
+                                                             (apply (lambda 
(#{r\ 10267}#)
+                                                                      (#{rest\ 
10030}#
+                                                                        #{r\ 
10267}#
                                                                         
(reverse
-                                                                          
#{rreq\ 1068}#)
+                                                                          
#{rreq\ 10222}#)
                                                                         '()
                                                                         '()))
-                                                                    #{tmp\ 
1109}#)
-                                                             ((lambda (#{else\ 
1115}#)
+                                                                    #{tmp\ 
10263}#)
+                                                             ((lambda (#{else\ 
10269}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
argument list"
-                                                                  #{orig-args\ 
867}#
-                                                                  #{args\ 
1067}#))
-                                                              #{tmp\ 1071}#)))
-                                                         (list #{tmp\ 
1071}#))))
+                                                                  #{orig-args\ 
10021}#
+                                                                  #{args\ 
10221}#))
+                                                              #{tmp\ 10225}#)))
+                                                         (list #{tmp\ 
10225}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1071}#
+                                                      #{tmp\ 10225}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 1071}#
+                                                 #{tmp\ 10225}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 1071}#
+                                            #{tmp\ 10225}#
                                             '(any . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 1071}#
+                                       #{tmp\ 10225}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 1071}# (quote ()))))
-                             #{args\ 1067}#))))
-                 (#{req\ 870}# #{orig-args\ 867}# (quote ())))))
-           (#{chi-simple-lambda\ 365}#
-             (lambda (#{e\ 1116}#
-                      #{r\ 1117}#
-                      #{w\ 1118}#
-                      #{s\ 1119}#
-                      #{mod\ 1120}#
-                      #{req\ 1121}#
-                      #{rest\ 1122}#
-                      #{docstring\ 1123}#
-                      #{body\ 1124}#)
-               (let ((#{ids\ 1136}#
-                       (if #{rest\ 1122}#
-                         (append #{req\ 1121}# (list #{rest\ 1122}#))
-                         #{req\ 1121}#)))
-                 (let ((#{vars\ 1138}#
-                         (map #{gen-var\ 373}# #{ids\ 1136}#)))
-                   (let ((#{labels\ 1140}#
-                           (#{gen-labels\ 278}# #{ids\ 1136}#)))
-                     (#{build-simple-lambda\ 202}#
-                       #{s\ 1119}#
-                       (map syntax->datum #{req\ 1121}#)
-                       (if #{rest\ 1122}#
-                         (syntax->datum #{rest\ 1122}#)
+                                ($sc-dispatch #{tmp\ 10225}# (quote ()))))
+                             #{args\ 10221}#))))
+                 (#{req\ 10024}# #{orig-args\ 10021}# (quote ())))))
+           (#{chi-simple-lambda\ 9519}#
+             (lambda (#{e\ 10270}#
+                      #{r\ 10271}#
+                      #{w\ 10272}#
+                      #{s\ 10273}#
+                      #{mod\ 10274}#
+                      #{req\ 10275}#
+                      #{rest\ 10276}#
+                      #{docstring\ 10277}#
+                      #{body\ 10278}#)
+               (let ((#{ids\ 10290}#
+                       (if #{rest\ 10276}#
+                         (append #{req\ 10275}# (list #{rest\ 10276}#))
+                         #{req\ 10275}#)))
+                 (let ((#{vars\ 10292}#
+                         (map #{gen-var\ 9527}# #{ids\ 10290}#)))
+                   (let ((#{labels\ 10294}#
+                           (#{gen-labels\ 9432}# #{ids\ 10290}#)))
+                     (#{build-simple-lambda\ 9356}#
+                       #{s\ 10273}#
+                       (map syntax->datum #{req\ 10275}#)
+                       (if #{rest\ 10276}#
+                         (syntax->datum #{rest\ 10276}#)
                          #f)
-                       #{vars\ 1138}#
-                       #{docstring\ 1123}#
-                       (#{chi-body\ 353}#
-                         #{body\ 1124}#
-                         (#{source-wrap\ 331}#
-                           #{e\ 1116}#
-                           #{w\ 1118}#
-                           #{s\ 1119}#
-                           #{mod\ 1120}#)
-                         (#{extend-var-env\ 250}#
-                           #{labels\ 1140}#
-                           #{vars\ 1138}#
-                           #{r\ 1117}#)
-                         (#{make-binding-wrap\ 307}#
-                           #{ids\ 1136}#
-                           #{labels\ 1140}#
-                           #{w\ 1118}#)
-                         #{mod\ 1120}#)))))))
-           (#{lambda-formals\ 363}#
-             (lambda (#{orig-args\ 1143}#)
-               (letrec ((#{check\ 1148}#
-                          (lambda (#{req\ 1149}# #{rest\ 1150}#)
-                            (if (#{distinct-bound-ids?\ 325}#
-                                  (if #{rest\ 1150}#
-                                    (cons #{rest\ 1150}# #{req\ 1149}#)
-                                    #{req\ 1149}#))
-                              (values #{req\ 1149}# #f #{rest\ 1150}# #f)
+                       #{vars\ 10292}#
+                       #{docstring\ 10277}#
+                       (#{chi-body\ 9507}#
+                         #{body\ 10278}#
+                         (#{source-wrap\ 9485}#
+                           #{e\ 10270}#
+                           #{w\ 10272}#
+                           #{s\ 10273}#
+                           #{mod\ 10274}#)
+                         (#{extend-var-env\ 9404}#
+                           #{labels\ 10294}#
+                           #{vars\ 10292}#
+                           #{r\ 10271}#)
+                         (#{make-binding-wrap\ 9461}#
+                           #{ids\ 10290}#
+                           #{labels\ 10294}#
+                           #{w\ 10272}#)
+                         #{mod\ 10274}#)))))))
+           (#{lambda-formals\ 9517}#
+             (lambda (#{orig-args\ 10297}#)
+               (letrec ((#{check\ 10302}#
+                          (lambda (#{req\ 10303}# #{rest\ 10304}#)
+                            (if (#{distinct-bound-ids?\ 9479}#
+                                  (if #{rest\ 10304}#
+                                    (cons #{rest\ 10304}# #{req\ 10303}#)
+                                    #{req\ 10303}#))
+                              (values #{req\ 10303}# #f #{rest\ 10304}# #f)
                               (syntax-violation
                                 'lambda
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 1143}#))))
-                        (#{req\ 1146}#
-                          (lambda (#{args\ 1156}# #{rreq\ 1157}#)
-                            ((lambda (#{tmp\ 1160}#)
-                               ((lambda (#{tmp\ 1161}#)
-                                  (if #{tmp\ 1161}#
+                                #{orig-args\ 10297}#))))
+                        (#{req\ 10300}#
+                          (lambda (#{args\ 10310}# #{rreq\ 10311}#)
+                            ((lambda (#{tmp\ 10314}#)
+                               ((lambda (#{tmp\ 10315}#)
+                                  (if #{tmp\ 10315}#
                                     (apply (lambda ()
-                                             (#{check\ 1148}#
-                                               (reverse #{rreq\ 1157}#)
+                                             (#{check\ 10302}#
+                                               (reverse #{rreq\ 10311}#)
                                                #f))
-                                           #{tmp\ 1161}#)
-                                    ((lambda (#{tmp\ 1162}#)
-                                       (if (if #{tmp\ 1162}#
-                                             (apply (lambda (#{a\ 1165}#
-                                                             #{b\ 1166}#)
-                                                      (#{id?\ 260}#
-                                                        #{a\ 1165}#))
-                                                    #{tmp\ 1162}#)
+                                           #{tmp\ 10315}#)
+                                    ((lambda (#{tmp\ 10316}#)
+                                       (if (if #{tmp\ 10316}#
+                                             (apply (lambda (#{a\ 10319}#
+                                                             #{b\ 10320}#)
+                                                      (#{id?\ 9414}#
+                                                        #{a\ 10319}#))
+                                                    #{tmp\ 10316}#)
                                              #f)
-                                         (apply (lambda (#{a\ 1169}#
-                                                         #{b\ 1170}#)
-                                                  (#{req\ 1146}#
-                                                    #{b\ 1170}#
-                                                    (cons #{a\ 1169}#
-                                                          #{rreq\ 1157}#)))
-                                                #{tmp\ 1162}#)
-                                         ((lambda (#{tmp\ 1171}#)
-                                            (if (if #{tmp\ 1171}#
-                                                  (apply (lambda (#{r\ 1173}#)
-                                                           (#{id?\ 260}#
-                                                             #{r\ 1173}#))
-                                                         #{tmp\ 1171}#)
+                                         (apply (lambda (#{a\ 10323}#
+                                                         #{b\ 10324}#)
+                                                  (#{req\ 10300}#
+                                                    #{b\ 10324}#
+                                                    (cons #{a\ 10323}#
+                                                          #{rreq\ 10311}#)))
+                                                #{tmp\ 10316}#)
+                                         ((lambda (#{tmp\ 10325}#)
+                                            (if (if #{tmp\ 10325}#
+                                                  (apply (lambda (#{r\ 10327}#)
+                                                           (#{id?\ 9414}#
+                                                             #{r\ 10327}#))
+                                                         #{tmp\ 10325}#)
                                                   #f)
-                                              (apply (lambda (#{r\ 1175}#)
-                                                       (#{check\ 1148}#
+                                              (apply (lambda (#{r\ 10329}#)
+                                                       (#{check\ 10302}#
                                                          (reverse
-                                                           #{rreq\ 1157}#)
-                                                         #{r\ 1175}#))
-                                                     #{tmp\ 1171}#)
-                                              ((lambda (#{else\ 1177}#)
+                                                           #{rreq\ 10311}#)
+                                                         #{r\ 10329}#))
+                                                     #{tmp\ 10325}#)
+                                              ((lambda (#{else\ 10331}#)
                                                  (syntax-violation
                                                    'lambda
                                                    "invalid argument list"
-                                                   #{orig-args\ 1143}#
-                                                   #{args\ 1156}#))
-                                               #{tmp\ 1160}#)))
-                                          (list #{tmp\ 1160}#))))
+                                                   #{orig-args\ 10297}#
+                                                   #{args\ 10310}#))
+                                               #{tmp\ 10314}#)))
+                                          (list #{tmp\ 10314}#))))
                                      ($sc-dispatch
-                                       #{tmp\ 1160}#
+                                       #{tmp\ 10314}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 1160}# (quote ()))))
-                             #{args\ 1156}#))))
-                 (#{req\ 1146}# #{orig-args\ 1143}# (quote ())))))
-           (#{ellipsis?\ 361}#
-             (lambda (#{x\ 1178}#)
-               (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#)
-                 (#{free-id=?\ 319}#
-                   #{x\ 1178}#
+                                ($sc-dispatch #{tmp\ 10314}# (quote ()))))
+                             #{args\ 10310}#))))
+                 (#{req\ 10300}# #{orig-args\ 10297}# (quote ())))))
+           (#{ellipsis?\ 9515}#
+             (lambda (#{x\ 10332}#)
+               (if (#{nonsymbol-id?\ 9412}# #{x\ 10332}#)
+                 (#{free-id=?\ 9473}#
+                   #{x\ 10332}#
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
-                       #(ribcage #(x) #((top)) #("i1179"))
+                       #(ribcage #(x) #((top)) #("i10333"))
                        #(ribcage
                          (lambda-var-list
                            gen-var
@@ -2187,1366 +2197,1372 @@
                           (top)
                           (top)
                           (top))
-                         ("i374"
-                          "i372"
-                          "i370"
-                          "i368"
-                          "i366"
-                          "i364"
-                          "i362"
-                          "i360"
-                          "i358"
-                          "i356"
-                          "i354"
-                          "i352"
-                          "i350"
-                          "i348"
-                          "i346"
-                          "i344"
-                          "i342"
-                          "i340"
-                          "i338"
-                          "i336"
-                          "i334"
-                          "i332"
-                          "i330"
-                          "i328"
-                          "i326"
-                          "i324"
-                          "i322"
-                          "i320"
-                          "i318"
-                          "i316"
-                          "i314"
-                          "i312"
-                          "i310"
-                          "i308"
-                          "i306"
-                          "i304"
-                          "i303"
-                          "i302"
-                          "i300"
-                          "i299"
-                          "i298"
-                          "i297"
-                          "i296"
-                          "i294"
-                          "i292"
-                          "i290"
-                          "i288"
-                          "i286"
-                          "i284"
-                          "i282"
-                          "i280"
-                          "i277"
-                          "i275"
-                          "i274"
-                          "i273"
-                          "i272"
-                          "i271"
-                          "i270"
-                          "i268"
-                          "i266"
-                          "i264"
-                          "i262"
-                          "i261"
-                          "i259"
-                          "i257"
-                          "i255"
-                          "i253"
-                          "i251"
-                          "i249"
-                          "i247"
-                          "i246"
-                          "i244"
-                          "i242"
-                          "i241"
-                          "i240"
-                          "i238"
-                          "i237"
-                          "i235"
-                          "i233"
-                          "i231"
-                          "i229"
-                          "i227"
-                          "i225"
-                          "i223"
-                          "i221"
-                          "i219"
-                          "i217"
-                          "i215"
-                          "i213"
-                          "i211"
-                          "i209"
-                          "i207"
-                          "i205"
-                          "i203"
-                          "i201"
-                          "i199"
-                          "i197"
-                          "i195"
-                          "i193"
-                          "i191"
-                          "i189"
-                          "i187"
-                          "i185"
-                          "i183"
-                          "i181"
-                          "i179"
-                          "i177"
-                          "i175"
-                          "i174"
-                          "i172"
-                          "i170"
-                          "i168"
-                          "i166"
-                          "i164"
-                          "i162"
-                          "i160"
-                          "i158"))
+                         ("i9528"
+                          "i9526"
+                          "i9524"
+                          "i9522"
+                          "i9520"
+                          "i9518"
+                          "i9516"
+                          "i9514"
+                          "i9512"
+                          "i9510"
+                          "i9508"
+                          "i9506"
+                          "i9504"
+                          "i9502"
+                          "i9500"
+                          "i9498"
+                          "i9496"
+                          "i9494"
+                          "i9492"
+                          "i9490"
+                          "i9488"
+                          "i9486"
+                          "i9484"
+                          "i9482"
+                          "i9480"
+                          "i9478"
+                          "i9476"
+                          "i9474"
+                          "i9472"
+                          "i9470"
+                          "i9468"
+                          "i9466"
+                          "i9464"
+                          "i9462"
+                          "i9460"
+                          "i9458"
+                          "i9457"
+                          "i9456"
+                          "i9454"
+                          "i9453"
+                          "i9452"
+                          "i9451"
+                          "i9450"
+                          "i9448"
+                          "i9446"
+                          "i9444"
+                          "i9442"
+                          "i9440"
+                          "i9438"
+                          "i9436"
+                          "i9434"
+                          "i9431"
+                          "i9429"
+                          "i9428"
+                          "i9427"
+                          "i9426"
+                          "i9425"
+                          "i9424"
+                          "i9422"
+                          "i9420"
+                          "i9418"
+                          "i9416"
+                          "i9415"
+                          "i9413"
+                          "i9411"
+                          "i9409"
+                          "i9407"
+                          "i9405"
+                          "i9403"
+                          "i9401"
+                          "i9400"
+                          "i9398"
+                          "i9396"
+                          "i9395"
+                          "i9394"
+                          "i9392"
+                          "i9391"
+                          "i9389"
+                          "i9387"
+                          "i9385"
+                          "i9383"
+                          "i9381"
+                          "i9379"
+                          "i9377"
+                          "i9375"
+                          "i9373"
+                          "i9371"
+                          "i9369"
+                          "i9367"
+                          "i9365"
+                          "i9363"
+                          "i9361"
+                          "i9359"
+                          "i9357"
+                          "i9355"
+                          "i9353"
+                          "i9351"
+                          "i9349"
+                          "i9347"
+                          "i9345"
+                          "i9343"
+                          "i9341"
+                          "i9339"
+                          "i9337"
+                          "i9335"
+                          "i9333"
+                          "i9331"
+                          "i9329"
+                          "i9328"
+                          "i9326"
+                          "i9324"
+                          "i9322"
+                          "i9320"
+                          "i9318"
+                          "i9316"
+                          "i9314"
+                          "i9312"))
                        #(ribcage
                          (define-structure and-map*)
                          ((top) (top))
-                         ("i61" "i59")))
+                         ("i9215" "i9213")))
                       (hygiene guile)))
                  #f)))
-           (#{chi-void\ 359}#
-             (lambda () (#{build-void\ 182}# #f)))
-           (#{eval-local-transformer\ 357}#
-             (lambda (#{expanded\ 1183}# #{mod\ 1184}#)
-               (let ((#{p\ 1188}#
-                       (#{local-eval-hook\ 173}#
-                         #{expanded\ 1183}#
-                         #{mod\ 1184}#)))
-                 (if (procedure? #{p\ 1188}#)
-                   (cons #{p\ 1188}# (module-name (current-module)))
+           (#{chi-void\ 9513}#
+             (lambda () (#{build-void\ 9336}# #f)))
+           (#{eval-local-transformer\ 9511}#
+             (lambda (#{expanded\ 10337}# #{mod\ 10338}#)
+               (let ((#{p\ 10342}#
+                       (#{local-eval-hook\ 9327}#
+                         #{expanded\ 10337}#
+                         #{mod\ 10338}#)))
+                 (if (procedure? #{p\ 10342}#)
+                   (cons #{p\ 10342}#
+                         (module-name (current-module)))
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 1188}#)))))
-           (#{chi-local-syntax\ 355}#
-             (lambda (#{rec?\ 1189}#
-                      #{e\ 1190}#
-                      #{r\ 1191}#
-                      #{w\ 1192}#
-                      #{s\ 1193}#
-                      #{mod\ 1194}#
-                      #{k\ 1195}#)
-               ((lambda (#{tmp\ 1203}#)
-                  ((lambda (#{tmp\ 1204}#)
-                     (if #{tmp\ 1204}#
-                       (apply (lambda (#{_\ 1210}#
-                                       #{id\ 1211}#
-                                       #{val\ 1212}#
-                                       #{e1\ 1213}#
-                                       #{e2\ 1214}#)
-                                (let ((#{ids\ 1216}# #{id\ 1211}#))
-                                  (if (not (#{valid-bound-ids?\ 323}#
-                                             #{ids\ 1216}#))
+                     #{p\ 10342}#)))))
+           (#{chi-local-syntax\ 9509}#
+             (lambda (#{rec?\ 10343}#
+                      #{e\ 10344}#
+                      #{r\ 10345}#
+                      #{w\ 10346}#
+                      #{s\ 10347}#
+                      #{mod\ 10348}#
+                      #{k\ 10349}#)
+               ((lambda (#{tmp\ 10357}#)
+                  ((lambda (#{tmp\ 10358}#)
+                     (if #{tmp\ 10358}#
+                       (apply (lambda (#{_\ 10364}#
+                                       #{id\ 10365}#
+                                       #{val\ 10366}#
+                                       #{e1\ 10367}#
+                                       #{e2\ 10368}#)
+                                (let ((#{ids\ 10370}# #{id\ 10365}#))
+                                  (if (not (#{valid-bound-ids?\ 9477}#
+                                             #{ids\ 10370}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{e\ 1190}#)
-                                    (let ((#{labels\ 1219}#
-                                            (#{gen-labels\ 278}#
-                                              #{ids\ 1216}#)))
-                                      (let ((#{new-w\ 1221}#
-                                              (#{make-binding-wrap\ 307}#
-                                                #{ids\ 1216}#
-                                                #{labels\ 1219}#
-                                                #{w\ 1192}#)))
-                                        (#{k\ 1195}#
-                                          (cons #{e1\ 1213}# #{e2\ 1214}#)
-                                          (#{extend-env\ 248}#
-                                            #{labels\ 1219}#
-                                            (let ((#{w\ 1225}#
-                                                    (if #{rec?\ 1189}#
-                                                      #{new-w\ 1221}#
-                                                      #{w\ 1192}#))
-                                                  (#{trans-r\ 1226}#
-                                                    (#{macros-only-env\ 252}#
-                                                      #{r\ 1191}#)))
-                                              (map (lambda (#{x\ 1227}#)
+                                      #{e\ 10344}#)
+                                    (let ((#{labels\ 10373}#
+                                            (#{gen-labels\ 9432}#
+                                              #{ids\ 10370}#)))
+                                      (let ((#{new-w\ 10375}#
+                                              (#{make-binding-wrap\ 9461}#
+                                                #{ids\ 10370}#
+                                                #{labels\ 10373}#
+                                                #{w\ 10346}#)))
+                                        (#{k\ 10349}#
+                                          (cons #{e1\ 10367}# #{e2\ 10368}#)
+                                          (#{extend-env\ 9402}#
+                                            #{labels\ 10373}#
+                                            (let ((#{w\ 10379}#
+                                                    (if #{rec?\ 10343}#
+                                                      #{new-w\ 10375}#
+                                                      #{w\ 10346}#))
+                                                  (#{trans-r\ 10380}#
+                                                    (#{macros-only-env\ 9406}#
+                                                      #{r\ 10345}#)))
+                                              (map (lambda (#{x\ 10381}#)
                                                      (cons 'macro
-                                                           
(#{eval-local-transformer\ 357}#
-                                                             (#{chi\ 345}#
-                                                               #{x\ 1227}#
-                                                               #{trans-r\ 
1226}#
-                                                               #{w\ 1225}#
-                                                               #{mod\ 1194}#)
-                                                             #{mod\ 1194}#)))
-                                                   #{val\ 1212}#))
-                                            #{r\ 1191}#)
-                                          #{new-w\ 1221}#
-                                          #{s\ 1193}#
-                                          #{mod\ 1194}#))))))
-                              #{tmp\ 1204}#)
-                       ((lambda (#{_\ 1232}#)
+                                                           
(#{eval-local-transformer\ 9511}#
+                                                             (#{chi\ 9499}#
+                                                               #{x\ 10381}#
+                                                               #{trans-r\ 
10380}#
+                                                               #{w\ 10379}#
+                                                               #{mod\ 10348}#)
+                                                             #{mod\ 10348}#)))
+                                                   #{val\ 10366}#))
+                                            #{r\ 10345}#)
+                                          #{new-w\ 10375}#
+                                          #{s\ 10347}#
+                                          #{mod\ 10348}#))))))
+                              #{tmp\ 10358}#)
+                       ((lambda (#{_\ 10386}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 331}#
-                              #{e\ 1190}#
-                              #{w\ 1192}#
-                              #{s\ 1193}#
-                              #{mod\ 1194}#)))
-                        #{tmp\ 1203}#)))
+                            (#{source-wrap\ 9485}#
+                              #{e\ 10344}#
+                              #{w\ 10346}#
+                              #{s\ 10347}#
+                              #{mod\ 10348}#)))
+                        #{tmp\ 10357}#)))
                    ($sc-dispatch
-                     #{tmp\ 1203}#
+                     #{tmp\ 10357}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 1190}#)))
-           (#{chi-body\ 353}#
-             (lambda (#{body\ 1233}#
-                      #{outer-form\ 1234}#
-                      #{r\ 1235}#
-                      #{w\ 1236}#
-                      #{mod\ 1237}#)
-               (let ((#{r\ 1245}#
+                #{e\ 10344}#)))
+           (#{chi-body\ 9507}#
+             (lambda (#{body\ 10387}#
+                      #{outer-form\ 10388}#
+                      #{r\ 10389}#
+                      #{w\ 10390}#
+                      #{mod\ 10391}#)
+               (let ((#{r\ 10399}#
                        (cons '("placeholder" placeholder)
-                             #{r\ 1235}#)))
-                 (let ((#{ribcage\ 1247}#
-                         (#{make-ribcage\ 281}#
+                             #{r\ 10389}#)))
+                 (let ((#{ribcage\ 10401}#
+                         (#{make-ribcage\ 9435}#
                            '()
                            '()
                            '())))
-                   (let ((#{w\ 1250}#
-                           (#{make-wrap\ 265}#
-                             (#{wrap-marks\ 267}# #{w\ 1236}#)
-                             (cons #{ribcage\ 1247}#
-                                   (#{wrap-subst\ 269}# #{w\ 1236}#)))))
-                     (letrec ((#{parse\ 1259}#
-                                (lambda (#{body\ 1260}#
-                                         #{ids\ 1261}#
-                                         #{labels\ 1262}#
-                                         #{var-ids\ 1263}#
-                                         #{vars\ 1264}#
-                                         #{vals\ 1265}#
-                                         #{bindings\ 1266}#)
-                                  (if (null? #{body\ 1260}#)
+                   (let ((#{w\ 10404}#
+                           (#{make-wrap\ 9419}#
+                             (#{wrap-marks\ 9421}# #{w\ 10390}#)
+                             (cons #{ribcage\ 10401}#
+                                   (#{wrap-subst\ 9423}# #{w\ 10390}#)))))
+                     (letrec ((#{parse\ 10413}#
+                                (lambda (#{body\ 10414}#
+                                         #{ids\ 10415}#
+                                         #{labels\ 10416}#
+                                         #{var-ids\ 10417}#
+                                         #{vars\ 10418}#
+                                         #{vals\ 10419}#
+                                         #{bindings\ 10420}#)
+                                  (if (null? #{body\ 10414}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 1234}#)
-                                    (let ((#{e\ 1271}# (cdar #{body\ 1260}#))
-                                          (#{er\ 1272}# (caar #{body\ 1260}#)))
+                                      #{outer-form\ 10388}#)
+                                    (let ((#{e\ 10425}# (cdar #{body\ 10414}#))
+                                          (#{er\ 10426}#
+                                            (caar #{body\ 10414}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 341}#
-                                            #{e\ 1271}#
-                                            #{er\ 1272}#
+                                          (#{syntax-type\ 9495}#
+                                            #{e\ 10425}#
+                                            #{er\ 10426}#
                                             '(())
-                                            (#{source-annotation\ 239}#
-                                              #{er\ 1272}#)
-                                            #{ribcage\ 1247}#
-                                            #{mod\ 1237}#
+                                            (#{source-annotation\ 9393}#
+                                              #{er\ 10426}#)
+                                            #{ribcage\ 10401}#
+                                            #{mod\ 10391}#
                                             #f))
-                                        (lambda (#{type\ 1274}#
-                                                 #{value\ 1275}#
-                                                 #{e\ 1276}#
-                                                 #{w\ 1277}#
-                                                 #{s\ 1278}#
-                                                 #{mod\ 1279}#)
-                                          (if (memv #{type\ 1274}#
+                                        (lambda (#{type\ 10428}#
+                                                 #{value\ 10429}#
+                                                 #{e\ 10430}#
+                                                 #{w\ 10431}#
+                                                 #{s\ 10432}#
+                                                 #{mod\ 10433}#)
+                                          (if (memv #{type\ 10428}#
                                                     '(define-form))
-                                            (let ((#{id\ 1289}#
-                                                    (#{wrap\ 329}#
-                                                      #{value\ 1275}#
-                                                      #{w\ 1277}#
-                                                      #{mod\ 1279}#))
-                                                  (#{label\ 1290}#
-                                                    (#{gen-label\ 276}#)))
-                                              (let ((#{var\ 1292}#
-                                                      (#{gen-var\ 373}#
-                                                        #{id\ 1289}#)))
+                                            (let ((#{id\ 10443}#
+                                                    (#{wrap\ 9483}#
+                                                      #{value\ 10429}#
+                                                      #{w\ 10431}#
+                                                      #{mod\ 10433}#))
+                                                  (#{label\ 10444}#
+                                                    (#{gen-label\ 9430}#)))
+                                              (let ((#{var\ 10446}#
+                                                      (#{gen-var\ 9527}#
+                                                        #{id\ 10443}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 305}#
-                                                    #{ribcage\ 1247}#
-                                                    #{id\ 1289}#
-                                                    #{label\ 1290}#)
-                                                  (#{parse\ 1259}#
-                                                    (cdr #{body\ 1260}#)
-                                                    (cons #{id\ 1289}#
-                                                          #{ids\ 1261}#)
-                                                    (cons #{label\ 1290}#
-                                                          #{labels\ 1262}#)
-                                                    (cons #{id\ 1289}#
-                                                          #{var-ids\ 1263}#)
-                                                    (cons #{var\ 1292}#
-                                                          #{vars\ 1264}#)
-                                                    (cons (cons #{er\ 1272}#
-                                                                (#{wrap\ 329}#
-                                                                  #{e\ 1276}#
-                                                                  #{w\ 1277}#
-                                                                  #{mod\ 
1279}#))
-                                                          #{vals\ 1265}#)
+                                                  (#{extend-ribcage!\ 9459}#
+                                                    #{ribcage\ 10401}#
+                                                    #{id\ 10443}#
+                                                    #{label\ 10444}#)
+                                                  (#{parse\ 10413}#
+                                                    (cdr #{body\ 10414}#)
+                                                    (cons #{id\ 10443}#
+                                                          #{ids\ 10415}#)
+                                                    (cons #{label\ 10444}#
+                                                          #{labels\ 10416}#)
+                                                    (cons #{id\ 10443}#
+                                                          #{var-ids\ 10417}#)
+                                                    (cons #{var\ 10446}#
+                                                          #{vars\ 10418}#)
+                                                    (cons (cons #{er\ 10426}#
+                                                                (#{wrap\ 9483}#
+                                                                  #{e\ 10430}#
+                                                                  #{w\ 10431}#
+                                                                  #{mod\ 
10433}#))
+                                                          #{vals\ 10419}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 1292}#)
-                                                          #{bindings\ 
1266}#)))))
-                                            (if (memv #{type\ 1274}#
+                                                                #{var\ 10446}#)
+                                                          #{bindings\ 
10420}#)))))
+                                            (if (memv #{type\ 10428}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 1297}#
-                                                      (#{wrap\ 329}#
-                                                        #{value\ 1275}#
-                                                        #{w\ 1277}#
-                                                        #{mod\ 1279}#))
-                                                    (#{label\ 1298}#
-                                                      (#{gen-label\ 276}#)))
+                                              (let ((#{id\ 10451}#
+                                                      (#{wrap\ 9483}#
+                                                        #{value\ 10429}#
+                                                        #{w\ 10431}#
+                                                        #{mod\ 10433}#))
+                                                    (#{label\ 10452}#
+                                                      (#{gen-label\ 9430}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 305}#
-                                                    #{ribcage\ 1247}#
-                                                    #{id\ 1297}#
-                                                    #{label\ 1298}#)
-                                                  (#{parse\ 1259}#
-                                                    (cdr #{body\ 1260}#)
-                                                    (cons #{id\ 1297}#
-                                                          #{ids\ 1261}#)
-                                                    (cons #{label\ 1298}#
-                                                          #{labels\ 1262}#)
-                                                    #{var-ids\ 1263}#
-                                                    #{vars\ 1264}#
-                                                    #{vals\ 1265}#
+                                                  (#{extend-ribcage!\ 9459}#
+                                                    #{ribcage\ 10401}#
+                                                    #{id\ 10451}#
+                                                    #{label\ 10452}#)
+                                                  (#{parse\ 10413}#
+                                                    (cdr #{body\ 10414}#)
+                                                    (cons #{id\ 10451}#
+                                                          #{ids\ 10415}#)
+                                                    (cons #{label\ 10452}#
+                                                          #{labels\ 10416}#)
+                                                    #{var-ids\ 10417}#
+                                                    #{vars\ 10418}#
+                                                    #{vals\ 10419}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
1272}#
-                                                                      (#{wrap\ 
329}#
-                                                                        #{e\ 
1276}#
-                                                                        #{w\ 
1277}#
-                                                                        #{mod\ 
1279}#)))
-                                                          #{bindings\ 
1266}#))))
-                                              (if (memv #{type\ 1274}#
+                                                                (cons #{er\ 
10426}#
+                                                                      (#{wrap\ 
9483}#
+                                                                        #{e\ 
10430}#
+                                                                        #{w\ 
10431}#
+                                                                        #{mod\ 
10433}#)))
+                                                          #{bindings\ 
10420}#))))
+                                              (if (memv #{type\ 10428}#
                                                         '(begin-form))
-                                                ((lambda (#{tmp\ 1301}#)
-                                                   ((lambda (#{tmp\ 1302}#)
-                                                      (if #{tmp\ 1302}#
-                                                        (apply (lambda (#{_\ 
1305}#
-                                                                        #{e1\ 
1306}#)
-                                                                 (#{parse\ 
1259}#
-                                                                   (letrec 
((#{f\ 1309}#
-                                                                              
(lambda (#{forms\ 1310}#)
-                                                                               
 (if (null? #{forms\ 1310}#)
-                                                                               
   (cdr #{body\ 1260}#)
-                                                                               
   (cons (cons #{er\ 1272}#
-                                                                               
               (#{wrap\ 329}#
-                                                                               
                 (car #{forms\ 1310}#)
-                                                                               
                 #{w\ 1277}#
-                                                                               
                 #{mod\ 1279}#))
-                                                                               
         (#{f\ 1309}#
-                                                                               
           (cdr #{forms\ 1310}#)))))))
-                                                                     (#{f\ 
1309}#
-                                                                       #{e1\ 
1306}#))
-                                                                   #{ids\ 
1261}#
-                                                                   #{labels\ 
1262}#
-                                                                   #{var-ids\ 
1263}#
-                                                                   #{vars\ 
1264}#
-                                                                   #{vals\ 
1265}#
-                                                                   #{bindings\ 
1266}#))
-                                                               #{tmp\ 1302}#)
+                                                ((lambda (#{tmp\ 10455}#)
+                                                   ((lambda (#{tmp\ 10456}#)
+                                                      (if #{tmp\ 10456}#
+                                                        (apply (lambda (#{_\ 
10459}#
+                                                                        #{e1\ 
10460}#)
+                                                                 (#{parse\ 
10413}#
+                                                                   (letrec 
((#{f\ 10463}#
+                                                                              
(lambda (#{forms\ 10464}#)
+                                                                               
 (if (null? #{forms\ 10464}#)
+                                                                               
   (cdr #{body\ 10414}#)
+                                                                               
   (cons (cons #{er\ 10426}#
+                                                                               
               (#{wrap\ 9483}#
+                                                                               
                 (car #{forms\ 10464}#)
+                                                                               
                 #{w\ 10431}#
+                                                                               
                 #{mod\ 10433}#))
+                                                                               
         (#{f\ 10463}#
+                                                                               
           (cdr #{forms\ 10464}#)))))))
+                                                                     (#{f\ 
10463}#
+                                                                       #{e1\ 
10460}#))
+                                                                   #{ids\ 
10415}#
+                                                                   #{labels\ 
10416}#
+                                                                   #{var-ids\ 
10417}#
+                                                                   #{vars\ 
10418}#
+                                                                   #{vals\ 
10419}#
+                                                                   #{bindings\ 
10420}#))
+                                                               #{tmp\ 10456}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 1301}#)))
+                                                          #{tmp\ 10455}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1301}#
+                                                      #{tmp\ 10455}#
                                                       '(any . each-any))))
-                                                 #{e\ 1276}#)
-                                                (if (memv #{type\ 1274}#
+                                                 #{e\ 10430}#)
+                                                (if (memv #{type\ 10428}#
                                                           '(local-syntax-form))
-                                                  (#{chi-local-syntax\ 355}#
-                                                    #{value\ 1275}#
-                                                    #{e\ 1276}#
-                                                    #{er\ 1272}#
-                                                    #{w\ 1277}#
-                                                    #{s\ 1278}#
-                                                    #{mod\ 1279}#
-                                                    (lambda (#{forms\ 1313}#
-                                                             #{er\ 1314}#
-                                                             #{w\ 1315}#
-                                                             #{s\ 1316}#
-                                                             #{mod\ 1317}#)
-                                                      (#{parse\ 1259}#
-                                                        (letrec ((#{f\ 1325}#
-                                                                   (lambda 
(#{forms\ 1326}#)
-                                                                     (if 
(null? #{forms\ 1326}#)
-                                                                       (cdr 
#{body\ 1260}#)
-                                                                       (cons 
(cons #{er\ 1314}#
-                                                                               
    (#{wrap\ 329}#
-                                                                               
      (car #{forms\ 1326}#)
-                                                                               
      #{w\ 1315}#
-                                                                               
      #{mod\ 1317}#))
-                                                                             
(#{f\ 1325}#
-                                                                               
(cdr #{forms\ 1326}#)))))))
-                                                          (#{f\ 1325}#
-                                                            #{forms\ 1313}#))
-                                                        #{ids\ 1261}#
-                                                        #{labels\ 1262}#
-                                                        #{var-ids\ 1263}#
-                                                        #{vars\ 1264}#
-                                                        #{vals\ 1265}#
-                                                        #{bindings\ 1266}#)))
-                                                  (if (null? #{ids\ 1261}#)
-                                                    (#{build-sequence\ 212}#
+                                                  (#{chi-local-syntax\ 9509}#
+                                                    #{value\ 10429}#
+                                                    #{e\ 10430}#
+                                                    #{er\ 10426}#
+                                                    #{w\ 10431}#
+                                                    #{s\ 10432}#
+                                                    #{mod\ 10433}#
+                                                    (lambda (#{forms\ 10467}#
+                                                             #{er\ 10468}#
+                                                             #{w\ 10469}#
+                                                             #{s\ 10470}#
+                                                             #{mod\ 10471}#)
+                                                      (#{parse\ 10413}#
+                                                        (letrec ((#{f\ 10479}#
+                                                                   (lambda 
(#{forms\ 10480}#)
+                                                                     (if 
(null? #{forms\ 10480}#)
+                                                                       (cdr 
#{body\ 10414}#)
+                                                                       (cons 
(cons #{er\ 10468}#
+                                                                               
    (#{wrap\ 9483}#
+                                                                               
      (car #{forms\ 10480}#)
+                                                                               
      #{w\ 10469}#
+                                                                               
      #{mod\ 10471}#))
+                                                                             
(#{f\ 10479}#
+                                                                               
(cdr #{forms\ 10480}#)))))))
+                                                          (#{f\ 10479}#
+                                                            #{forms\ 10467}#))
+                                                        #{ids\ 10415}#
+                                                        #{labels\ 10416}#
+                                                        #{var-ids\ 10417}#
+                                                        #{vars\ 10418}#
+                                                        #{vals\ 10419}#
+                                                        #{bindings\ 10420}#)))
+                                                  (if (null? #{ids\ 10415}#)
+                                                    (#{build-sequence\ 9366}#
                                                       #f
-                                                      (map (lambda (#{x\ 
1329}#)
-                                                             (#{chi\ 345}#
-                                                               (cdr #{x\ 
1329}#)
-                                                               (car #{x\ 
1329}#)
+                                                      (map (lambda (#{x\ 
10483}#)
+                                                             (#{chi\ 9499}#
+                                                               (cdr #{x\ 
10483}#)
+                                                               (car #{x\ 
10483}#)
                                                                '(())
-                                                               #{mod\ 1279}#))
-                                                           (cons (cons #{er\ 
1272}#
-                                                                       
(#{source-wrap\ 331}#
-                                                                         #{e\ 
1276}#
-                                                                         #{w\ 
1277}#
-                                                                         #{s\ 
1278}#
-                                                                         
#{mod\ 1279}#))
-                                                                 (cdr #{body\ 
1260}#))))
+                                                               #{mod\ 10433}#))
+                                                           (cons (cons #{er\ 
10426}#
+                                                                       
(#{source-wrap\ 9485}#
+                                                                         #{e\ 
10430}#
+                                                                         #{w\ 
10431}#
+                                                                         #{s\ 
10432}#
+                                                                         
#{mod\ 10433}#))
+                                                                 (cdr #{body\ 
10414}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 323}#
-                                                                 #{ids\ 
1261}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 9477}#
+                                                                 #{ids\ 
10415}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 
1234}#))
-                                                      (letrec ((#{loop\ 1336}#
-                                                                 (lambda 
(#{bs\ 1337}#
-                                                                          
#{er-cache\ 1338}#
-                                                                          
#{r-cache\ 1339}#)
-                                                                   (if (not 
(null? #{bs\ 1337}#))
-                                                                     (let 
((#{b\ 1342}#
-                                                                             
(car #{bs\ 1337}#)))
-                                                                       (if 
(eq? (car #{b\ 1342}#)
+                                                          #{outer-form\ 
10388}#))
+                                                      (letrec ((#{loop\ 10490}#
+                                                                 (lambda 
(#{bs\ 10491}#
+                                                                          
#{er-cache\ 10492}#
+                                                                          
#{r-cache\ 10493}#)
+                                                                   (if (not 
(null? #{bs\ 10491}#))
+                                                                     (let 
((#{b\ 10496}#
+                                                                             
(car #{bs\ 10491}#)))
+                                                                       (if 
(eq? (car #{b\ 10496}#)
                                                                                
 'macro)
-                                                                         (let 
((#{er\ 1345}#
-                                                                               
  (cadr #{b\ 1342}#)))
-                                                                           
(let ((#{r-cache\ 1347}#
-                                                                               
    (if (eq? #{er\ 1345}#
-                                                                               
             #{er-cache\ 1338}#)
-                                                                               
      #{r-cache\ 1339}#
-                                                                               
      (#{macros-only-env\ 252}#
-                                                                               
        #{er\ 1345}#))))
+                                                                         (let 
((#{er\ 10499}#
+                                                                               
  (cadr #{b\ 10496}#)))
+                                                                           
(let ((#{r-cache\ 10501}#
+                                                                               
    (if (eq? #{er\ 10499}#
+                                                                               
             #{er-cache\ 10492}#)
+                                                                               
      #{r-cache\ 10493}#
+                                                                               
      (#{macros-only-env\ 9406}#
+                                                                               
        #{er\ 10499}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 1342}#
-                                                                               
  (#{eval-local-transformer\ 357}#
-                                                                               
    (#{chi\ 345}#
-                                                                               
      (cddr #{b\ 1342}#)
-                                                                               
      #{r-cache\ 1347}#
+                                                                               
  #{b\ 10496}#
+                                                                               
  (#{eval-local-transformer\ 9511}#
+                                                                               
    (#{chi\ 9499}#
+                                                                               
      (cddr #{b\ 10496}#)
+                                                                               
      #{r-cache\ 10501}#
                                                                                
      '(())
-                                                                               
      #{mod\ 1279}#)
-                                                                               
    #{mod\ 1279}#))
-                                                                               
(#{loop\ 1336}#
-                                                                               
  (cdr #{bs\ 1337}#)
-                                                                               
  #{er\ 1345}#
-                                                                               
  #{r-cache\ 1347}#))))
-                                                                         
(#{loop\ 1336}#
-                                                                           
(cdr #{bs\ 1337}#)
-                                                                           
#{er-cache\ 1338}#
-                                                                           
#{r-cache\ 1339}#)))))))
-                                                        (#{loop\ 1336}#
-                                                          #{bindings\ 1266}#
+                                                                               
      #{mod\ 10433}#)
+                                                                               
    #{mod\ 10433}#))
+                                                                               
(#{loop\ 10490}#
+                                                                               
  (cdr #{bs\ 10491}#)
+                                                                               
  #{er\ 10499}#
+                                                                               
  #{r-cache\ 10501}#))))
+                                                                         
(#{loop\ 10490}#
+                                                                           
(cdr #{bs\ 10491}#)
+                                                                           
#{er-cache\ 10492}#
+                                                                           
#{r-cache\ 10493}#)))))))
+                                                        (#{loop\ 10490}#
+                                                          #{bindings\ 10420}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 1245}#
-                                                        (#{extend-env\ 248}#
-                                                          #{labels\ 1262}#
-                                                          #{bindings\ 1266}#
-                                                          (cdr #{r\ 1245}#)))
-                                                      (#{build-letrec\ 218}#
+                                                        #{r\ 10399}#
+                                                        (#{extend-env\ 9402}#
+                                                          #{labels\ 10416}#
+                                                          #{bindings\ 10420}#
+                                                          (cdr #{r\ 10399}#)))
+                                                      (#{build-letrec\ 9372}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 1263}#)
-                                                        #{vars\ 1264}#
-                                                        (map (lambda (#{x\ 
1350}#)
-                                                               (#{chi\ 345}#
-                                                                 (cdr #{x\ 
1350}#)
-                                                                 (car #{x\ 
1350}#)
+                                                             #{var-ids\ 
10417}#)
+                                                        #{vars\ 10418}#
+                                                        (map (lambda (#{x\ 
10504}#)
+                                                               (#{chi\ 9499}#
+                                                                 (cdr #{x\ 
10504}#)
+                                                                 (car #{x\ 
10504}#)
                                                                  '(())
-                                                                 #{mod\ 
1279}#))
-                                                             #{vals\ 1265}#)
-                                                        (#{build-sequence\ 
212}#
+                                                                 #{mod\ 
10433}#))
+                                                             #{vals\ 10419}#)
+                                                        (#{build-sequence\ 
9366}#
                                                           #f
-                                                          (map (lambda (#{x\ 
1354}#)
-                                                                 (#{chi\ 345}#
-                                                                   (cdr #{x\ 
1354}#)
-                                                                   (car #{x\ 
1354}#)
+                                                          (map (lambda (#{x\ 
10508}#)
+                                                                 (#{chi\ 9499}#
+                                                                   (cdr #{x\ 
10508}#)
+                                                                   (car #{x\ 
10508}#)
                                                                    '(())
-                                                                   #{mod\ 
1279}#))
-                                                               (cons (cons 
#{er\ 1272}#
-                                                                           
(#{source-wrap\ 331}#
-                                                                             
#{e\ 1276}#
-                                                                             
#{w\ 1277}#
-                                                                             
#{s\ 1278}#
-                                                                             
#{mod\ 1279}#))
-                                                                     (cdr 
#{body\ 1260}#))))))))))))))))))
-                       (#{parse\ 1259}#
-                         (map (lambda (#{x\ 1267}#)
-                                (cons #{r\ 1245}#
-                                      (#{wrap\ 329}#
-                                        #{x\ 1267}#
-                                        #{w\ 1250}#
-                                        #{mod\ 1237}#)))
-                              #{body\ 1233}#)
+                                                                   #{mod\ 
10433}#))
+                                                               (cons (cons 
#{er\ 10426}#
+                                                                           
(#{source-wrap\ 9485}#
+                                                                             
#{e\ 10430}#
+                                                                             
#{w\ 10431}#
+                                                                             
#{s\ 10432}#
+                                                                             
#{mod\ 10433}#))
+                                                                     (cdr 
#{body\ 10414}#))))))))))))))))))
+                       (#{parse\ 10413}#
+                         (map (lambda (#{x\ 10421}#)
+                                (cons #{r\ 10399}#
+                                      (#{wrap\ 9483}#
+                                        #{x\ 10421}#
+                                        #{w\ 10404}#
+                                        #{mod\ 10391}#)))
+                              #{body\ 10387}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{chi-macro\ 351}#
-             (lambda (#{p\ 1357}#
-                      #{e\ 1358}#
-                      #{r\ 1359}#
-                      #{w\ 1360}#
-                      #{rib\ 1361}#
-                      #{mod\ 1362}#)
-               (letrec ((#{rebuild-macro-output\ 1370}#
-                          (lambda (#{x\ 1371}# #{m\ 1372}#)
-                            (if (pair? #{x\ 1371}#)
-                              (cons (#{rebuild-macro-output\ 1370}#
-                                      (car #{x\ 1371}#)
-                                      #{m\ 1372}#)
-                                    (#{rebuild-macro-output\ 1370}#
-                                      (cdr #{x\ 1371}#)
-                                      #{m\ 1372}#))
-                              (if (#{syntax-object?\ 224}# #{x\ 1371}#)
-                                (let ((#{w\ 1380}#
-                                        (#{syntax-object-wrap\ 228}#
-                                          #{x\ 1371}#)))
-                                  (let ((#{ms\ 1383}#
-                                          (#{wrap-marks\ 267}# #{w\ 1380}#))
-                                        (#{s\ 1384}#
-                                          (#{wrap-subst\ 269}# #{w\ 1380}#)))
-                                    (if (if (pair? #{ms\ 1383}#)
-                                          (eq? (car #{ms\ 1383}#) #f)
+           (#{chi-macro\ 9505}#
+             (lambda (#{p\ 10511}#
+                      #{e\ 10512}#
+                      #{r\ 10513}#
+                      #{w\ 10514}#
+                      #{rib\ 10515}#
+                      #{mod\ 10516}#)
+               (letrec ((#{rebuild-macro-output\ 10524}#
+                          (lambda (#{x\ 10525}# #{m\ 10526}#)
+                            (if (pair? #{x\ 10525}#)
+                              (cons (#{rebuild-macro-output\ 10524}#
+                                      (car #{x\ 10525}#)
+                                      #{m\ 10526}#)
+                                    (#{rebuild-macro-output\ 10524}#
+                                      (cdr #{x\ 10525}#)
+                                      #{m\ 10526}#))
+                              (if (#{syntax-object?\ 9378}# #{x\ 10525}#)
+                                (let ((#{w\ 10534}#
+                                        (#{syntax-object-wrap\ 9382}#
+                                          #{x\ 10525}#)))
+                                  (let ((#{ms\ 10537}#
+                                          (#{wrap-marks\ 9421}# #{w\ 10534}#))
+                                        (#{s\ 10538}#
+                                          (#{wrap-subst\ 9423}# #{w\ 10534}#)))
+                                    (if (if (pair? #{ms\ 10537}#)
+                                          (eq? (car #{ms\ 10537}#) #f)
                                           #f)
-                                      (#{make-syntax-object\ 222}#
-                                        (#{syntax-object-expression\ 226}#
-                                          #{x\ 1371}#)
-                                        (#{make-wrap\ 265}#
-                                          (cdr #{ms\ 1383}#)
-                                          (if #{rib\ 1361}#
-                                            (cons #{rib\ 1361}#
-                                                  (cdr #{s\ 1384}#))
-                                            (cdr #{s\ 1384}#)))
-                                        (#{syntax-object-module\ 230}#
-                                          #{x\ 1371}#))
-                                      (#{make-syntax-object\ 222}#
-                                        (#{syntax-object-expression\ 226}#
-                                          #{x\ 1371}#)
-                                        (#{make-wrap\ 265}#
-                                          (cons #{m\ 1372}# #{ms\ 1383}#)
-                                          (if #{rib\ 1361}#
-                                            (cons #{rib\ 1361}#
+                                      (#{make-syntax-object\ 9376}#
+                                        (#{syntax-object-expression\ 9380}#
+                                          #{x\ 10525}#)
+                                        (#{make-wrap\ 9419}#
+                                          (cdr #{ms\ 10537}#)
+                                          (if #{rib\ 10515}#
+                                            (cons #{rib\ 10515}#
+                                                  (cdr #{s\ 10538}#))
+                                            (cdr #{s\ 10538}#)))
+                                        (#{syntax-object-module\ 9384}#
+                                          #{x\ 10525}#))
+                                      (#{make-syntax-object\ 9376}#
+                                        (#{syntax-object-expression\ 9380}#
+                                          #{x\ 10525}#)
+                                        (#{make-wrap\ 9419}#
+                                          (cons #{m\ 10526}# #{ms\ 10537}#)
+                                          (if #{rib\ 10515}#
+                                            (cons #{rib\ 10515}#
                                                   (cons 'shift
-                                                        #{s\ 1384}#))
-                                            (cons (quote shift) #{s\ 1384}#)))
+                                                        #{s\ 10538}#))
+                                            (cons (quote shift) #{s\ 10538}#)))
                                         (cons 'hygiene
-                                              (cdr #{p\ 1357}#))))))
-                                (if (vector? #{x\ 1371}#)
-                                  (let ((#{n\ 1392}#
-                                          (vector-length #{x\ 1371}#)))
-                                    (let ((#{v\ 1394}#
-                                            (make-vector #{n\ 1392}#)))
-                                      (letrec ((#{loop\ 1397}#
-                                                 (lambda (#{i\ 1398}#)
-                                                   (if (#{fx=\ 167}#
-                                                         #{i\ 1398}#
-                                                         #{n\ 1392}#)
+                                              (cdr #{p\ 10511}#))))))
+                                (if (vector? #{x\ 10525}#)
+                                  (let ((#{n\ 10546}#
+                                          (vector-length #{x\ 10525}#)))
+                                    (let ((#{v\ 10548}#
+                                            (make-vector #{n\ 10546}#)))
+                                      (letrec ((#{loop\ 10551}#
+                                                 (lambda (#{i\ 10552}#)
+                                                   (if (#{fx=\ 9321}#
+                                                         #{i\ 10552}#
+                                                         #{n\ 10546}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 1394}#)
+                                                       #{v\ 10548}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 1394}#
-                                                         #{i\ 1398}#
-                                                         
(#{rebuild-macro-output\ 1370}#
+                                                         #{v\ 10548}#
+                                                         #{i\ 10552}#
+                                                         
(#{rebuild-macro-output\ 10524}#
                                                            (vector-ref
-                                                             #{x\ 1371}#
-                                                             #{i\ 1398}#)
-                                                           #{m\ 1372}#))
-                                                       (#{loop\ 1397}#
-                                                         (#{fx+\ 163}#
-                                                           #{i\ 1398}#
+                                                             #{x\ 10525}#
+                                                             #{i\ 10552}#)
+                                                           #{m\ 10526}#))
+                                                       (#{loop\ 10551}#
+                                                         (#{fx+\ 9317}#
+                                                           #{i\ 10552}#
                                                            1)))))))
-                                        (#{loop\ 1397}# 0))))
-                                  (if (symbol? #{x\ 1371}#)
+                                        (#{loop\ 10551}# 0))))
+                                  (if (symbol? #{x\ 10525}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{source-wrap\ 331}#
-                                        #{e\ 1358}#
-                                        #{w\ 1360}#
-                                        (#{wrap-subst\ 269}# #{w\ 1360}#)
-                                        #{mod\ 1362}#)
-                                      #{x\ 1371}#)
-                                    #{x\ 1371}#)))))))
-                 (#{rebuild-macro-output\ 1370}#
-                   ((car #{p\ 1357}#)
-                    (#{wrap\ 329}#
-                      #{e\ 1358}#
-                      (#{anti-mark\ 301}# #{w\ 1360}#)
-                      #{mod\ 1362}#))
+                                      (#{source-wrap\ 9485}#
+                                        #{e\ 10512}#
+                                        #{w\ 10514}#
+                                        (#{wrap-subst\ 9423}# #{w\ 10514}#)
+                                        #{mod\ 10516}#)
+                                      #{x\ 10525}#)
+                                    #{x\ 10525}#)))))))
+                 (#{rebuild-macro-output\ 10524}#
+                   ((car #{p\ 10511}#)
+                    (#{wrap\ 9483}#
+                      #{e\ 10512}#
+                      (#{anti-mark\ 9455}# #{w\ 10514}#)
+                      #{mod\ 10516}#))
                    (gensym "m")))))
-           (#{chi-application\ 349}#
-             (lambda (#{x\ 1405}#
-                      #{e\ 1406}#
-                      #{r\ 1407}#
-                      #{w\ 1408}#
-                      #{s\ 1409}#
-                      #{mod\ 1410}#)
-               ((lambda (#{tmp\ 1417}#)
-                  ((lambda (#{tmp\ 1418}#)
-                     (if #{tmp\ 1418}#
-                       (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#)
-                                (#{build-application\ 184}#
-                                  #{s\ 1409}#
-                                  #{x\ 1405}#
-                                  (map (lambda (#{e\ 1423}#)
-                                         (#{chi\ 345}#
-                                           #{e\ 1423}#
-                                           #{r\ 1407}#
-                                           #{w\ 1408}#
-                                           #{mod\ 1410}#))
-                                       #{e1\ 1422}#)))
-                              #{tmp\ 1418}#)
+           (#{chi-application\ 9503}#
+             (lambda (#{x\ 10559}#
+                      #{e\ 10560}#
+                      #{r\ 10561}#
+                      #{w\ 10562}#
+                      #{s\ 10563}#
+                      #{mod\ 10564}#)
+               ((lambda (#{tmp\ 10571}#)
+                  ((lambda (#{tmp\ 10572}#)
+                     (if #{tmp\ 10572}#
+                       (apply (lambda (#{e0\ 10575}# #{e1\ 10576}#)
+                                (#{build-application\ 9338}#
+                                  #{s\ 10563}#
+                                  #{x\ 10559}#
+                                  (map (lambda (#{e\ 10577}#)
+                                         (#{chi\ 9499}#
+                                           #{e\ 10577}#
+                                           #{r\ 10561}#
+                                           #{w\ 10562}#
+                                           #{mod\ 10564}#))
+                                       #{e1\ 10576}#)))
+                              #{tmp\ 10572}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 1417}#)))
+                         #{tmp\ 10571}#)))
                    ($sc-dispatch
-                     #{tmp\ 1417}#
+                     #{tmp\ 10571}#
                      '(any . each-any))))
-                #{e\ 1406}#)))
-           (#{chi-expr\ 347}#
-             (lambda (#{type\ 1426}#
-                      #{value\ 1427}#
-                      #{e\ 1428}#
-                      #{r\ 1429}#
-                      #{w\ 1430}#
-                      #{s\ 1431}#
-                      #{mod\ 1432}#)
-               (if (memv #{type\ 1426}# (quote (lexical)))
-                 (#{build-lexical-reference\ 188}#
+                #{e\ 10560}#)))
+           (#{chi-expr\ 9501}#
+             (lambda (#{type\ 10580}#
+                      #{value\ 10581}#
+                      #{e\ 10582}#
+                      #{r\ 10583}#
+                      #{w\ 10584}#
+                      #{s\ 10585}#
+                      #{mod\ 10586}#)
+               (if (memv #{type\ 10580}# (quote (lexical)))
+                 (#{build-lexical-reference\ 9342}#
                    'value
-                   #{s\ 1431}#
-                   #{e\ 1428}#
-                   #{value\ 1427}#)
-                 (if (memv #{type\ 1426}# (quote (core core-form)))
-                   (#{value\ 1427}#
-                     #{e\ 1428}#
-                     #{r\ 1429}#
-                     #{w\ 1430}#
-                     #{s\ 1431}#
-                     #{mod\ 1432}#)
-                   (if (memv #{type\ 1426}# (quote (module-ref)))
+                   #{s\ 10585}#
+                   #{e\ 10582}#
+                   #{value\ 10581}#)
+                 (if (memv #{type\ 10580}# (quote (core core-form)))
+                   (#{value\ 10581}#
+                     #{e\ 10582}#
+                     #{r\ 10583}#
+                     #{w\ 10584}#
+                     #{s\ 10585}#
+                     #{mod\ 10586}#)
+                   (if (memv #{type\ 10580}# (quote (module-ref)))
                      (call-with-values
-                       (lambda () (#{value\ 1427}# #{e\ 1428}#))
-                       (lambda (#{id\ 1443}# #{mod\ 1444}#)
-                         (#{build-global-reference\ 194}#
-                           #{s\ 1431}#
-                           #{id\ 1443}#
-                           #{mod\ 1444}#)))
-                     (if (memv #{type\ 1426}# (quote (lexical-call)))
-                       (#{chi-application\ 349}#
-                         (#{build-lexical-reference\ 188}#
+                       (lambda () (#{value\ 10581}# #{e\ 10582}#))
+                       (lambda (#{id\ 10597}# #{mod\ 10598}#)
+                         (#{build-global-reference\ 9348}#
+                           #{s\ 10585}#
+                           #{id\ 10597}#
+                           #{mod\ 10598}#)))
+                     (if (memv #{type\ 10580}# (quote (lexical-call)))
+                       (#{chi-application\ 9503}#
+                         (#{build-lexical-reference\ 9342}#
                            'fun
-                           (#{source-annotation\ 239}# (car #{e\ 1428}#))
-                           (car #{e\ 1428}#)
-                           #{value\ 1427}#)
-                         #{e\ 1428}#
-                         #{r\ 1429}#
-                         #{w\ 1430}#
-                         #{s\ 1431}#
-                         #{mod\ 1432}#)
-                       (if (memv #{type\ 1426}# (quote (global-call)))
-                         (#{chi-application\ 349}#
-                           (#{build-global-reference\ 194}#
-                             (#{source-annotation\ 239}# (car #{e\ 1428}#))
-                             (if (#{syntax-object?\ 224}# #{value\ 1427}#)
-                               (#{syntax-object-expression\ 226}#
-                                 #{value\ 1427}#)
-                               #{value\ 1427}#)
-                             (if (#{syntax-object?\ 224}# #{value\ 1427}#)
-                               (#{syntax-object-module\ 230}# #{value\ 1427}#)
-                               #{mod\ 1432}#))
-                           #{e\ 1428}#
-                           #{r\ 1429}#
-                           #{w\ 1430}#
-                           #{s\ 1431}#
-                           #{mod\ 1432}#)
-                         (if (memv #{type\ 1426}# (quote (constant)))
-                           (#{build-data\ 210}#
-                             #{s\ 1431}#
-                             (#{strip\ 371}#
-                               (#{source-wrap\ 331}#
-                                 #{e\ 1428}#
-                                 #{w\ 1430}#
-                                 #{s\ 1431}#
-                                 #{mod\ 1432}#)
+                           (#{source-annotation\ 9393}# (car #{e\ 10582}#))
+                           (car #{e\ 10582}#)
+                           #{value\ 10581}#)
+                         #{e\ 10582}#
+                         #{r\ 10583}#
+                         #{w\ 10584}#
+                         #{s\ 10585}#
+                         #{mod\ 10586}#)
+                       (if (memv #{type\ 10580}# (quote (global-call)))
+                         (#{chi-application\ 9503}#
+                           (#{build-global-reference\ 9348}#
+                             (#{source-annotation\ 9393}# (car #{e\ 10582}#))
+                             (if (#{syntax-object?\ 9378}# #{value\ 10581}#)
+                               (#{syntax-object-expression\ 9380}#
+                                 #{value\ 10581}#)
+                               #{value\ 10581}#)
+                             (if (#{syntax-object?\ 9378}# #{value\ 10581}#)
+                               (#{syntax-object-module\ 9384}#
+                                 #{value\ 10581}#)
+                               #{mod\ 10586}#))
+                           #{e\ 10582}#
+                           #{r\ 10583}#
+                           #{w\ 10584}#
+                           #{s\ 10585}#
+                           #{mod\ 10586}#)
+                         (if (memv #{type\ 10580}# (quote (constant)))
+                           (#{build-data\ 9364}#
+                             #{s\ 10585}#
+                             (#{strip\ 9525}#
+                               (#{source-wrap\ 9485}#
+                                 #{e\ 10582}#
+                                 #{w\ 10584}#
+                                 #{s\ 10585}#
+                                 #{mod\ 10586}#)
                                '(())))
-                           (if (memv #{type\ 1426}# (quote (global)))
-                             (#{build-global-reference\ 194}#
-                               #{s\ 1431}#
-                               #{value\ 1427}#
-                               #{mod\ 1432}#)
-                             (if (memv #{type\ 1426}# (quote (call)))
-                               (#{chi-application\ 349}#
-                                 (#{chi\ 345}#
-                                   (car #{e\ 1428}#)
-                                   #{r\ 1429}#
-                                   #{w\ 1430}#
-                                   #{mod\ 1432}#)
-                                 #{e\ 1428}#
-                                 #{r\ 1429}#
-                                 #{w\ 1430}#
-                                 #{s\ 1431}#
-                                 #{mod\ 1432}#)
-                               (if (memv #{type\ 1426}# (quote (begin-form)))
-                                 ((lambda (#{tmp\ 1454}#)
-                                    ((lambda (#{tmp\ 1455}#)
-                                       (if #{tmp\ 1455}#
-                                         (apply (lambda (#{_\ 1459}#
-                                                         #{e1\ 1460}#
-                                                         #{e2\ 1461}#)
-                                                  (#{chi-sequence\ 333}#
-                                                    (cons #{e1\ 1460}#
-                                                          #{e2\ 1461}#)
-                                                    #{r\ 1429}#
-                                                    #{w\ 1430}#
-                                                    #{s\ 1431}#
-                                                    #{mod\ 1432}#))
-                                                #{tmp\ 1455}#)
+                           (if (memv #{type\ 10580}# (quote (global)))
+                             (#{build-global-reference\ 9348}#
+                               #{s\ 10585}#
+                               #{value\ 10581}#
+                               #{mod\ 10586}#)
+                             (if (memv #{type\ 10580}# (quote (call)))
+                               (#{chi-application\ 9503}#
+                                 (#{chi\ 9499}#
+                                   (car #{e\ 10582}#)
+                                   #{r\ 10583}#
+                                   #{w\ 10584}#
+                                   #{mod\ 10586}#)
+                                 #{e\ 10582}#
+                                 #{r\ 10583}#
+                                 #{w\ 10584}#
+                                 #{s\ 10585}#
+                                 #{mod\ 10586}#)
+                               (if (memv #{type\ 10580}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 10608}#)
+                                    ((lambda (#{tmp\ 10609}#)
+                                       (if #{tmp\ 10609}#
+                                         (apply (lambda (#{_\ 10613}#
+                                                         #{e1\ 10614}#
+                                                         #{e2\ 10615}#)
+                                                  (#{chi-sequence\ 9487}#
+                                                    (cons #{e1\ 10614}#
+                                                          #{e2\ 10615}#)
+                                                    #{r\ 10583}#
+                                                    #{w\ 10584}#
+                                                    #{s\ 10585}#
+                                                    #{mod\ 10586}#))
+                                                #{tmp\ 10609}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 1454}#)))
+                                           #{tmp\ 10608}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 1454}#
+                                       #{tmp\ 10608}#
                                        '(any any . each-any))))
-                                  #{e\ 1428}#)
-                                 (if (memv #{type\ 1426}#
+                                  #{e\ 10582}#)
+                                 (if (memv #{type\ 10580}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 355}#
-                                     #{value\ 1427}#
-                                     #{e\ 1428}#
-                                     #{r\ 1429}#
-                                     #{w\ 1430}#
-                                     #{s\ 1431}#
-                                     #{mod\ 1432}#
-                                     #{chi-sequence\ 333}#)
-                                   (if (memv #{type\ 1426}#
+                                   (#{chi-local-syntax\ 9509}#
+                                     #{value\ 10581}#
+                                     #{e\ 10582}#
+                                     #{r\ 10583}#
+                                     #{w\ 10584}#
+                                     #{s\ 10585}#
+                                     #{mod\ 10586}#
+                                     #{chi-sequence\ 9487}#)
+                                   (if (memv #{type\ 10580}#
                                              '(eval-when-form))
-                                     ((lambda (#{tmp\ 1465}#)
-                                        ((lambda (#{tmp\ 1466}#)
-                                           (if #{tmp\ 1466}#
-                                             (apply (lambda (#{_\ 1471}#
-                                                             #{x\ 1472}#
-                                                             #{e1\ 1473}#
-                                                             #{e2\ 1474}#)
-                                                      (let ((#{when-list\ 
1476}#
-                                                              
(#{chi-when-list\ 339}#
-                                                                #{e\ 1428}#
-                                                                #{x\ 1472}#
-                                                                #{w\ 1430}#)))
+                                     ((lambda (#{tmp\ 10619}#)
+                                        ((lambda (#{tmp\ 10620}#)
+                                           (if #{tmp\ 10620}#
+                                             (apply (lambda (#{_\ 10625}#
+                                                             #{x\ 10626}#
+                                                             #{e1\ 10627}#
+                                                             #{e2\ 10628}#)
+                                                      (let ((#{when-list\ 
10630}#
+                                                              
(#{chi-when-list\ 9493}#
+                                                                #{e\ 10582}#
+                                                                #{x\ 10626}#
+                                                                #{w\ 10584}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
1476}#)
-                                                          (#{chi-sequence\ 
333}#
-                                                            (cons #{e1\ 1473}#
-                                                                  #{e2\ 1474}#)
-                                                            #{r\ 1429}#
-                                                            #{w\ 1430}#
-                                                            #{s\ 1431}#
-                                                            #{mod\ 1432}#)
-                                                          (#{chi-void\ 
359}#))))
-                                                    #{tmp\ 1466}#)
+                                                                  #{when-list\ 
10630}#)
+                                                          (#{chi-sequence\ 
9487}#
+                                                            (cons #{e1\ 10627}#
+                                                                  #{e2\ 
10628}#)
+                                                            #{r\ 10583}#
+                                                            #{w\ 10584}#
+                                                            #{s\ 10585}#
+                                                            #{mod\ 10586}#)
+                                                          (#{chi-void\ 
9513}#))))
+                                                    #{tmp\ 10620}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 1465}#)))
+                                               #{tmp\ 10619}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 1465}#
+                                           #{tmp\ 10619}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 1428}#)
-                                     (if (memv #{type\ 1426}#
+                                      #{e\ 10582}#)
+                                     (if (memv #{type\ 10580}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 1428}#
-                                         (#{wrap\ 329}#
-                                           #{value\ 1427}#
-                                           #{w\ 1430}#
-                                           #{mod\ 1432}#))
-                                       (if (memv #{type\ 1426}#
+                                         #{e\ 10582}#
+                                         (#{wrap\ 9483}#
+                                           #{value\ 10581}#
+                                           #{w\ 10584}#
+                                           #{mod\ 10586}#))
+                                       (if (memv #{type\ 10580}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 331}#
-                                             #{e\ 1428}#
-                                             #{w\ 1430}#
-                                             #{s\ 1431}#
-                                             #{mod\ 1432}#))
-                                         (if (memv #{type\ 1426}#
+                                           (#{source-wrap\ 9485}#
+                                             #{e\ 10582}#
+                                             #{w\ 10584}#
+                                             #{s\ 10585}#
+                                             #{mod\ 10586}#))
+                                         (if (memv #{type\ 10580}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 331}#
-                                               #{e\ 1428}#
-                                               #{w\ 1430}#
-                                               #{s\ 1431}#
-                                               #{mod\ 1432}#))
+                                             (#{source-wrap\ 9485}#
+                                               #{e\ 10582}#
+                                               #{w\ 10584}#
+                                               #{s\ 10585}#
+                                               #{mod\ 10586}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 331}#
-                                               #{e\ 1428}#
-                                               #{w\ 1430}#
-                                               #{s\ 1431}#
-                                               #{mod\ 1432}#))))))))))))))))))
-           (#{chi\ 345}#
-             (lambda (#{e\ 1483}#
-                      #{r\ 1484}#
-                      #{w\ 1485}#
-                      #{mod\ 1486}#)
+                                             (#{source-wrap\ 9485}#
+                                               #{e\ 10582}#
+                                               #{w\ 10584}#
+                                               #{s\ 10585}#
+                                               #{mod\ 10586}#))))))))))))))))))
+           (#{chi\ 9499}#
+             (lambda (#{e\ 10637}#
+                      #{r\ 10638}#
+                      #{w\ 10639}#
+                      #{mod\ 10640}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 341}#
-                     #{e\ 1483}#
-                     #{r\ 1484}#
-                     #{w\ 1485}#
-                     (#{source-annotation\ 239}# #{e\ 1483}#)
+                   (#{syntax-type\ 9495}#
+                     #{e\ 10637}#
+                     #{r\ 10638}#
+                     #{w\ 10639}#
+                     (#{source-annotation\ 9393}# #{e\ 10637}#)
                      #f
-                     #{mod\ 1486}#
+                     #{mod\ 10640}#
                      #f))
-                 (lambda (#{type\ 1491}#
-                          #{value\ 1492}#
-                          #{e\ 1493}#
-                          #{w\ 1494}#
-                          #{s\ 1495}#
-                          #{mod\ 1496}#)
-                   (#{chi-expr\ 347}#
-                     #{type\ 1491}#
-                     #{value\ 1492}#
-                     #{e\ 1493}#
-                     #{r\ 1484}#
-                     #{w\ 1494}#
-                     #{s\ 1495}#
-                     #{mod\ 1496}#)))))
-           (#{chi-top\ 343}#
-             (lambda (#{e\ 1503}#
-                      #{r\ 1504}#
-                      #{w\ 1505}#
-                      #{m\ 1506}#
-                      #{esew\ 1507}#
-                      #{mod\ 1508}#)
+                 (lambda (#{type\ 10645}#
+                          #{value\ 10646}#
+                          #{e\ 10647}#
+                          #{w\ 10648}#
+                          #{s\ 10649}#
+                          #{mod\ 10650}#)
+                   (#{chi-expr\ 9501}#
+                     #{type\ 10645}#
+                     #{value\ 10646}#
+                     #{e\ 10647}#
+                     #{r\ 10638}#
+                     #{w\ 10648}#
+                     #{s\ 10649}#
+                     #{mod\ 10650}#)))))
+           (#{chi-top\ 9497}#
+             (lambda (#{e\ 10657}#
+                      #{r\ 10658}#
+                      #{w\ 10659}#
+                      #{m\ 10660}#
+                      #{esew\ 10661}#
+                      #{mod\ 10662}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 341}#
-                     #{e\ 1503}#
-                     #{r\ 1504}#
-                     #{w\ 1505}#
-                     (#{source-annotation\ 239}# #{e\ 1503}#)
+                   (#{syntax-type\ 9495}#
+                     #{e\ 10657}#
+                     #{r\ 10658}#
+                     #{w\ 10659}#
+                     (#{source-annotation\ 9393}# #{e\ 10657}#)
                      #f
-                     #{mod\ 1508}#
+                     #{mod\ 10662}#
                      #f))
-                 (lambda (#{type\ 1529}#
-                          #{value\ 1530}#
-                          #{e\ 1531}#
-                          #{w\ 1532}#
-                          #{s\ 1533}#
-                          #{mod\ 1534}#)
-                   (if (memv #{type\ 1529}# (quote (begin-form)))
-                     ((lambda (#{tmp\ 1542}#)
-                        ((lambda (#{tmp\ 1543}#)
-                           (if #{tmp\ 1543}#
-                             (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#))
-                                    #{tmp\ 1543}#)
-                             ((lambda (#{tmp\ 1546}#)
-                                (if #{tmp\ 1546}#
-                                  (apply (lambda (#{_\ 1550}#
-                                                  #{e1\ 1551}#
-                                                  #{e2\ 1552}#)
-                                           (#{chi-top-sequence\ 335}#
-                                             (cons #{e1\ 1551}# #{e2\ 1552}#)
-                                             #{r\ 1504}#
-                                             #{w\ 1532}#
-                                             #{s\ 1533}#
-                                             #{m\ 1506}#
-                                             #{esew\ 1507}#
-                                             #{mod\ 1534}#))
-                                         #{tmp\ 1546}#)
+                 (lambda (#{type\ 10683}#
+                          #{value\ 10684}#
+                          #{e\ 10685}#
+                          #{w\ 10686}#
+                          #{s\ 10687}#
+                          #{mod\ 10688}#)
+                   (if (memv #{type\ 10683}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 10696}#)
+                        ((lambda (#{tmp\ 10697}#)
+                           (if #{tmp\ 10697}#
+                             (apply (lambda (#{_\ 10699}#)
+                                      (#{chi-void\ 9513}#))
+                                    #{tmp\ 10697}#)
+                             ((lambda (#{tmp\ 10700}#)
+                                (if #{tmp\ 10700}#
+                                  (apply (lambda (#{_\ 10704}#
+                                                  #{e1\ 10705}#
+                                                  #{e2\ 10706}#)
+                                           (#{chi-top-sequence\ 9489}#
+                                             (cons #{e1\ 10705}# #{e2\ 10706}#)
+                                             #{r\ 10658}#
+                                             #{w\ 10686}#
+                                             #{s\ 10687}#
+                                             #{m\ 10660}#
+                                             #{esew\ 10661}#
+                                             #{mod\ 10688}#))
+                                         #{tmp\ 10700}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 1542}#)))
+                                    #{tmp\ 10696}#)))
                               ($sc-dispatch
-                                #{tmp\ 1542}#
+                                #{tmp\ 10696}#
                                 '(any any . each-any)))))
-                         ($sc-dispatch #{tmp\ 1542}# (quote (any)))))
-                      #{e\ 1531}#)
-                     (if (memv #{type\ 1529}# (quote (local-syntax-form)))
-                       (#{chi-local-syntax\ 355}#
-                         #{value\ 1530}#
-                         #{e\ 1531}#
-                         #{r\ 1504}#
-                         #{w\ 1532}#
-                         #{s\ 1533}#
-                         #{mod\ 1534}#
-                         (lambda (#{body\ 1555}#
-                                  #{r\ 1556}#
-                                  #{w\ 1557}#
-                                  #{s\ 1558}#
-                                  #{mod\ 1559}#)
-                           (#{chi-top-sequence\ 335}#
-                             #{body\ 1555}#
-                             #{r\ 1556}#
-                             #{w\ 1557}#
-                             #{s\ 1558}#
-                             #{m\ 1506}#
-                             #{esew\ 1507}#
-                             #{mod\ 1559}#)))
-                       (if (memv #{type\ 1529}# (quote (eval-when-form)))
-                         ((lambda (#{tmp\ 1566}#)
-                            ((lambda (#{tmp\ 1567}#)
-                               (if #{tmp\ 1567}#
-                                 (apply (lambda (#{_\ 1572}#
-                                                 #{x\ 1573}#
-                                                 #{e1\ 1574}#
-                                                 #{e2\ 1575}#)
-                                          (let ((#{when-list\ 1578}#
-                                                  (#{chi-when-list\ 339}#
-                                                    #{e\ 1531}#
-                                                    #{x\ 1573}#
-                                                    #{w\ 1532}#))
-                                                (#{body\ 1579}#
-                                                  (cons #{e1\ 1574}#
-                                                        #{e2\ 1575}#)))
-                                            (if (eq? #{m\ 1506}# (quote e))
+                         ($sc-dispatch #{tmp\ 10696}# (quote (any)))))
+                      #{e\ 10685}#)
+                     (if (memv #{type\ 10683}#
+                               '(local-syntax-form))
+                       (#{chi-local-syntax\ 9509}#
+                         #{value\ 10684}#
+                         #{e\ 10685}#
+                         #{r\ 10658}#
+                         #{w\ 10686}#
+                         #{s\ 10687}#
+                         #{mod\ 10688}#
+                         (lambda (#{body\ 10709}#
+                                  #{r\ 10710}#
+                                  #{w\ 10711}#
+                                  #{s\ 10712}#
+                                  #{mod\ 10713}#)
+                           (#{chi-top-sequence\ 9489}#
+                             #{body\ 10709}#
+                             #{r\ 10710}#
+                             #{w\ 10711}#
+                             #{s\ 10712}#
+                             #{m\ 10660}#
+                             #{esew\ 10661}#
+                             #{mod\ 10713}#)))
+                       (if (memv #{type\ 10683}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 10720}#)
+                            ((lambda (#{tmp\ 10721}#)
+                               (if #{tmp\ 10721}#
+                                 (apply (lambda (#{_\ 10726}#
+                                                 #{x\ 10727}#
+                                                 #{e1\ 10728}#
+                                                 #{e2\ 10729}#)
+                                          (let ((#{when-list\ 10732}#
+                                                  (#{chi-when-list\ 9493}#
+                                                    #{e\ 10685}#
+                                                    #{x\ 10727}#
+                                                    #{w\ 10686}#))
+                                                (#{body\ 10733}#
+                                                  (cons #{e1\ 10728}#
+                                                        #{e2\ 10729}#)))
+                                            (if (eq? #{m\ 10660}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 1578}#)
-                                                (#{chi-top-sequence\ 335}#
-                                                  #{body\ 1579}#
-                                                  #{r\ 1504}#
-                                                  #{w\ 1532}#
-                                                  #{s\ 1533}#
+                                                        #{when-list\ 10732}#)
+                                                (#{chi-top-sequence\ 9489}#
+                                                  #{body\ 10733}#
+                                                  #{r\ 10658}#
+                                                  #{w\ 10686}#
+                                                  #{s\ 10687}#
                                                   'e
                                                   '(eval)
-                                                  #{mod\ 1534}#)
-                                                (#{chi-void\ 359}#))
+                                                  #{mod\ 10688}#)
+                                                (#{chi-void\ 9513}#))
                                               (if (memq 'load
-                                                        #{when-list\ 1578}#)
-                                                (if (let ((#{t\ 1588}#
+                                                        #{when-list\ 10732}#)
+                                                (if (let ((#{t\ 10742}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
1578}#)))
-                                                      (if #{t\ 1588}#
-                                                        #{t\ 1588}#
-                                                        (if (eq? #{m\ 1506}#
+                                                                  #{when-list\ 
10732}#)))
+                                                      (if #{t\ 10742}#
+                                                        #{t\ 10742}#
+                                                        (if (eq? #{m\ 10660}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
1578}#)
+                                                                #{when-list\ 
10732}#)
                                                           #f)))
-                                                  (#{chi-top-sequence\ 335}#
-                                                    #{body\ 1579}#
-                                                    #{r\ 1504}#
-                                                    #{w\ 1532}#
-                                                    #{s\ 1533}#
+                                                  (#{chi-top-sequence\ 9489}#
+                                                    #{body\ 10733}#
+                                                    #{r\ 10658}#
+                                                    #{w\ 10686}#
+                                                    #{s\ 10687}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 1534}#)
-                                                  (if (memq #{m\ 1506}#
+                                                    #{mod\ 10688}#)
+                                                  (if (memq #{m\ 10660}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 335}#
-                                                      #{body\ 1579}#
-                                                      #{r\ 1504}#
-                                                      #{w\ 1532}#
-                                                      #{s\ 1533}#
+                                                    (#{chi-top-sequence\ 9489}#
+                                                      #{body\ 10733}#
+                                                      #{r\ 10658}#
+                                                      #{w\ 10686}#
+                                                      #{s\ 10687}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 1534}#)
-                                                    (#{chi-void\ 359}#)))
-                                                (if (let ((#{t\ 1596}#
+                                                      #{mod\ 10688}#)
+                                                    (#{chi-void\ 9513}#)))
+                                                (if (let ((#{t\ 10750}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
1578}#)))
-                                                      (if #{t\ 1596}#
-                                                        #{t\ 1596}#
-                                                        (if (eq? #{m\ 1506}#
+                                                                  #{when-list\ 
10732}#)))
+                                                      (if #{t\ 10750}#
+                                                        #{t\ 10750}#
+                                                        (if (eq? #{m\ 10660}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
1578}#)
+                                                                #{when-list\ 
10732}#)
                                                           #f)))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
171}#
-                                                      (#{chi-top-sequence\ 
335}#
-                                                        #{body\ 1579}#
-                                                        #{r\ 1504}#
-                                                        #{w\ 1532}#
-                                                        #{s\ 1533}#
+                                                    (#{top-level-eval-hook\ 
9325}#
+                                                      (#{chi-top-sequence\ 
9489}#
+                                                        #{body\ 10733}#
+                                                        #{r\ 10658}#
+                                                        #{w\ 10686}#
+                                                        #{s\ 10687}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 1534}#)
-                                                      #{mod\ 1534}#)
-                                                    (#{chi-void\ 359}#))
-                                                  (#{chi-void\ 359}#))))))
-                                        #{tmp\ 1567}#)
+                                                        #{mod\ 10688}#)
+                                                      #{mod\ 10688}#)
+                                                    (#{chi-void\ 9513}#))
+                                                  (#{chi-void\ 9513}#))))))
+                                        #{tmp\ 10721}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 1566}#)))
+                                   #{tmp\ 10720}#)))
                              ($sc-dispatch
-                               #{tmp\ 1566}#
+                               #{tmp\ 10720}#
                                '(any each-any any . each-any))))
-                          #{e\ 1531}#)
-                         (if (memv #{type\ 1529}#
+                          #{e\ 10685}#)
+                         (if (memv #{type\ 10683}#
                                    '(define-syntax-form))
-                           (let ((#{n\ 1604}#
-                                   (#{id-var-name\ 317}#
-                                     #{value\ 1530}#
-                                     #{w\ 1532}#))
-                                 (#{r\ 1605}#
-                                   (#{macros-only-env\ 252}# #{r\ 1504}#)))
-                             (if (memv #{m\ 1506}# (quote (c)))
-                               (if (memq (quote compile) #{esew\ 1507}#)
-                                 (let ((#{e\ 1608}#
-                                         (#{chi-install-global\ 337}#
-                                           #{n\ 1604}#
-                                           (#{chi\ 345}#
-                                             #{e\ 1531}#
-                                             #{r\ 1605}#
-                                             #{w\ 1532}#
-                                             #{mod\ 1534}#))))
+                           (let ((#{n\ 10758}#
+                                   (#{id-var-name\ 9471}#
+                                     #{value\ 10684}#
+                                     #{w\ 10686}#))
+                                 (#{r\ 10759}#
+                                   (#{macros-only-env\ 9406}# #{r\ 10658}#)))
+                             (if (memv #{m\ 10660}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 10661}#)
+                                 (let ((#{e\ 10762}#
+                                         (#{chi-install-global\ 9491}#
+                                           #{n\ 10758}#
+                                           (#{chi\ 9499}#
+                                             #{e\ 10685}#
+                                             #{r\ 10759}#
+                                             #{w\ 10686}#
+                                             #{mod\ 10688}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 171}#
-                                       #{e\ 1608}#
-                                       #{mod\ 1534}#)
-                                     (if (memq (quote load) #{esew\ 1507}#)
-                                       #{e\ 1608}#
-                                       (#{chi-void\ 359}#))))
-                                 (if (memq (quote load) #{esew\ 1507}#)
-                                   (#{chi-install-global\ 337}#
-                                     #{n\ 1604}#
-                                     (#{chi\ 345}#
-                                       #{e\ 1531}#
-                                       #{r\ 1605}#
-                                       #{w\ 1532}#
-                                       #{mod\ 1534}#))
-                                   (#{chi-void\ 359}#)))
-                               (if (memv #{m\ 1506}# (quote (c&e)))
-                                 (let ((#{e\ 1611}#
-                                         (#{chi-install-global\ 337}#
-                                           #{n\ 1604}#
-                                           (#{chi\ 345}#
-                                             #{e\ 1531}#
-                                             #{r\ 1605}#
-                                             #{w\ 1532}#
-                                             #{mod\ 1534}#))))
+                                     (#{top-level-eval-hook\ 9325}#
+                                       #{e\ 10762}#
+                                       #{mod\ 10688}#)
+                                     (if (memq (quote load) #{esew\ 10661}#)
+                                       #{e\ 10762}#
+                                       (#{chi-void\ 9513}#))))
+                                 (if (memq (quote load) #{esew\ 10661}#)
+                                   (#{chi-install-global\ 9491}#
+                                     #{n\ 10758}#
+                                     (#{chi\ 9499}#
+                                       #{e\ 10685}#
+                                       #{r\ 10759}#
+                                       #{w\ 10686}#
+                                       #{mod\ 10688}#))
+                                   (#{chi-void\ 9513}#)))
+                               (if (memv #{m\ 10660}# (quote (c&e)))
+                                 (let ((#{e\ 10765}#
+                                         (#{chi-install-global\ 9491}#
+                                           #{n\ 10758}#
+                                           (#{chi\ 9499}#
+                                             #{e\ 10685}#
+                                             #{r\ 10759}#
+                                             #{w\ 10686}#
+                                             #{mod\ 10688}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 171}#
-                                       #{e\ 1611}#
-                                       #{mod\ 1534}#)
-                                     #{e\ 1611}#))
+                                     (#{top-level-eval-hook\ 9325}#
+                                       #{e\ 10765}#
+                                       #{mod\ 10688}#)
+                                     #{e\ 10765}#))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 1507}#)
-                                     (#{top-level-eval-hook\ 171}#
-                                       (#{chi-install-global\ 337}#
-                                         #{n\ 1604}#
-                                         (#{chi\ 345}#
-                                           #{e\ 1531}#
-                                           #{r\ 1605}#
-                                           #{w\ 1532}#
-                                           #{mod\ 1534}#))
-                                       #{mod\ 1534}#))
-                                   (#{chi-void\ 359}#)))))
-                           (if (memv #{type\ 1529}# (quote (define-form)))
-                             (let ((#{n\ 1616}#
-                                     (#{id-var-name\ 317}#
-                                       #{value\ 1530}#
-                                       #{w\ 1532}#)))
-                               (let ((#{type\ 1618}#
-                                       (#{binding-type\ 243}#
-                                         (#{lookup\ 254}#
-                                           #{n\ 1616}#
-                                           #{r\ 1504}#
-                                           #{mod\ 1534}#))))
-                                 (if (memv #{type\ 1618}#
+                                   (if (memq (quote eval) #{esew\ 10661}#)
+                                     (#{top-level-eval-hook\ 9325}#
+                                       (#{chi-install-global\ 9491}#
+                                         #{n\ 10758}#
+                                         (#{chi\ 9499}#
+                                           #{e\ 10685}#
+                                           #{r\ 10759}#
+                                           #{w\ 10686}#
+                                           #{mod\ 10688}#))
+                                       #{mod\ 10688}#))
+                                   (#{chi-void\ 9513}#)))))
+                           (if (memv #{type\ 10683}# (quote (define-form)))
+                             (let ((#{n\ 10770}#
+                                     (#{id-var-name\ 9471}#
+                                       #{value\ 10684}#
+                                       #{w\ 10686}#)))
+                               (let ((#{type\ 10772}#
+                                       (#{binding-type\ 9397}#
+                                         (#{lookup\ 9408}#
+                                           #{n\ 10770}#
+                                           #{r\ 10658}#
+                                           #{mod\ 10688}#))))
+                                 (if (memv #{type\ 10772}#
                                            '(global core macro module-ref))
                                    (begin
                                      (if (if (not (module-local-variable
                                                     (current-module)
-                                                    #{n\ 1616}#))
+                                                    #{n\ 10770}#))
                                            (current-module)
                                            #f)
-                                       (let ((#{old\ 1623}#
+                                       (let ((#{old\ 10777}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 1616}#)))
+                                                 #{n\ 10770}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 1616}#
-                                           (if (variable? #{old\ 1623}#)
-                                             (variable-ref #{old\ 1623}#)
+                                           #{n\ 10770}#
+                                           (if (variable? #{old\ 10777}#)
+                                             (variable-ref #{old\ 10777}#)
                                              #f))))
-                                     (let ((#{x\ 1626}#
-                                             (#{build-global-definition\ 200}#
-                                               #{s\ 1533}#
-                                               #{n\ 1616}#
-                                               (#{chi\ 345}#
-                                                 #{e\ 1531}#
-                                                 #{r\ 1504}#
-                                                 #{w\ 1532}#
-                                                 #{mod\ 1534}#))))
+                                     (let ((#{x\ 10780}#
+                                             (#{build-global-definition\ 9354}#
+                                               #{s\ 10687}#
+                                               #{n\ 10770}#
+                                               (#{chi\ 9499}#
+                                                 #{e\ 10685}#
+                                                 #{r\ 10658}#
+                                                 #{w\ 10686}#
+                                                 #{mod\ 10688}#))))
                                        (begin
-                                         (if (eq? #{m\ 1506}# (quote c&e))
-                                           (#{top-level-eval-hook\ 171}#
-                                             #{x\ 1626}#
-                                             #{mod\ 1534}#))
-                                         #{x\ 1626}#)))
-                                   (if (memv #{type\ 1618}#
+                                         (if (eq? #{m\ 10660}# (quote c&e))
+                                           (#{top-level-eval-hook\ 9325}#
+                                             #{x\ 10780}#
+                                             #{mod\ 10688}#))
+                                         #{x\ 10780}#)))
+                                   (if (memv #{type\ 10772}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 1531}#
-                                       (#{wrap\ 329}#
-                                         #{value\ 1530}#
-                                         #{w\ 1532}#
-                                         #{mod\ 1534}#))
+                                       #{e\ 10685}#
+                                       (#{wrap\ 9483}#
+                                         #{value\ 10684}#
+                                         #{w\ 10686}#
+                                         #{mod\ 10688}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{e\ 1531}#
-                                       (#{wrap\ 329}#
-                                         #{value\ 1530}#
-                                         #{w\ 1532}#
-                                         #{mod\ 1534}#))))))
-                             (let ((#{x\ 1632}#
-                                     (#{chi-expr\ 347}#
-                                       #{type\ 1529}#
-                                       #{value\ 1530}#
-                                       #{e\ 1531}#
-                                       #{r\ 1504}#
-                                       #{w\ 1532}#
-                                       #{s\ 1533}#
-                                       #{mod\ 1534}#)))
+                                       #{e\ 10685}#
+                                       (#{wrap\ 9483}#
+                                         #{value\ 10684}#
+                                         #{w\ 10686}#
+                                         #{mod\ 10688}#))))))
+                             (let ((#{x\ 10786}#
+                                     (#{chi-expr\ 9501}#
+                                       #{type\ 10683}#
+                                       #{value\ 10684}#
+                                       #{e\ 10685}#
+                                       #{r\ 10658}#
+                                       #{w\ 10686}#
+                                       #{s\ 10687}#
+                                       #{mod\ 10688}#)))
                                (begin
-                                 (if (eq? #{m\ 1506}# (quote c&e))
-                                   (#{top-level-eval-hook\ 171}#
-                                     #{x\ 1632}#
-                                     #{mod\ 1534}#))
-                                 #{x\ 1632}#)))))))))))
-           (#{syntax-type\ 341}#
-             (lambda (#{e\ 1633}#
-                      #{r\ 1634}#
-                      #{w\ 1635}#
-                      #{s\ 1636}#
-                      #{rib\ 1637}#
-                      #{mod\ 1638}#
-                      #{for-car?\ 1639}#)
-               (if (symbol? #{e\ 1633}#)
-                 (let ((#{n\ 1651}#
-                         (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#)))
-                   (let ((#{b\ 1653}#
-                           (#{lookup\ 254}#
-                             #{n\ 1651}#
-                             #{r\ 1634}#
-                             #{mod\ 1638}#)))
-                     (let ((#{type\ 1655}#
-                             (#{binding-type\ 243}# #{b\ 1653}#)))
-                       (if (memv #{type\ 1655}# (quote (lexical)))
+                                 (if (eq? #{m\ 10660}# (quote c&e))
+                                   (#{top-level-eval-hook\ 9325}#
+                                     #{x\ 10786}#
+                                     #{mod\ 10688}#))
+                                 #{x\ 10786}#)))))))))))
+           (#{syntax-type\ 9495}#
+             (lambda (#{e\ 10787}#
+                      #{r\ 10788}#
+                      #{w\ 10789}#
+                      #{s\ 10790}#
+                      #{rib\ 10791}#
+                      #{mod\ 10792}#
+                      #{for-car?\ 10793}#)
+               (if (symbol? #{e\ 10787}#)
+                 (let ((#{n\ 10805}#
+                         (#{id-var-name\ 9471}# #{e\ 10787}# #{w\ 10789}#)))
+                   (let ((#{b\ 10807}#
+                           (#{lookup\ 9408}#
+                             #{n\ 10805}#
+                             #{r\ 10788}#
+                             #{mod\ 10792}#)))
+                     (let ((#{type\ 10809}#
+                             (#{binding-type\ 9397}# #{b\ 10807}#)))
+                       (if (memv #{type\ 10809}# (quote (lexical)))
                          (values
-                           #{type\ 1655}#
-                           (#{binding-value\ 245}# #{b\ 1653}#)
-                           #{e\ 1633}#
-                           #{w\ 1635}#
-                           #{s\ 1636}#
-                           #{mod\ 1638}#)
-                         (if (memv #{type\ 1655}# (quote (global)))
+                           #{type\ 10809}#
+                           (#{binding-value\ 9399}# #{b\ 10807}#)
+                           #{e\ 10787}#
+                           #{w\ 10789}#
+                           #{s\ 10790}#
+                           #{mod\ 10792}#)
+                         (if (memv #{type\ 10809}# (quote (global)))
                            (values
-                             #{type\ 1655}#
-                             #{n\ 1651}#
-                             #{e\ 1633}#
-                             #{w\ 1635}#
-                             #{s\ 1636}#
-                             #{mod\ 1638}#)
-                           (if (memv #{type\ 1655}# (quote (macro)))
-                             (if #{for-car?\ 1639}#
+                             #{type\ 10809}#
+                             #{n\ 10805}#
+                             #{e\ 10787}#
+                             #{w\ 10789}#
+                             #{s\ 10790}#
+                             #{mod\ 10792}#)
+                           (if (memv #{type\ 10809}# (quote (macro)))
+                             (if #{for-car?\ 10793}#
                                (values
-                                 #{type\ 1655}#
-                                 (#{binding-value\ 245}# #{b\ 1653}#)
-                                 #{e\ 1633}#
-                                 #{w\ 1635}#
-                                 #{s\ 1636}#
-                                 #{mod\ 1638}#)
-                               (#{syntax-type\ 341}#
-                                 (#{chi-macro\ 351}#
-                                   (#{binding-value\ 245}# #{b\ 1653}#)
-                                   #{e\ 1633}#
-                                   #{r\ 1634}#
-                                   #{w\ 1635}#
-                                   #{rib\ 1637}#
-                                   #{mod\ 1638}#)
-                                 #{r\ 1634}#
+                                 #{type\ 10809}#
+                                 (#{binding-value\ 9399}# #{b\ 10807}#)
+                                 #{e\ 10787}#
+                                 #{w\ 10789}#
+                                 #{s\ 10790}#
+                                 #{mod\ 10792}#)
+                               (#{syntax-type\ 9495}#
+                                 (#{chi-macro\ 9505}#
+                                   (#{binding-value\ 9399}# #{b\ 10807}#)
+                                   #{e\ 10787}#
+                                   #{r\ 10788}#
+                                   #{w\ 10789}#
+                                   #{rib\ 10791}#
+                                   #{mod\ 10792}#)
+                                 #{r\ 10788}#
                                  '(())
-                                 #{s\ 1636}#
-                                 #{rib\ 1637}#
-                                 #{mod\ 1638}#
+                                 #{s\ 10790}#
+                                 #{rib\ 10791}#
+                                 #{mod\ 10792}#
                                  #f))
                              (values
-                               #{type\ 1655}#
-                               (#{binding-value\ 245}# #{b\ 1653}#)
-                               #{e\ 1633}#
-                               #{w\ 1635}#
-                               #{s\ 1636}#
-                               #{mod\ 1638}#)))))))
-                 (if (pair? #{e\ 1633}#)
-                   (let ((#{first\ 1664}# (car #{e\ 1633}#)))
+                               #{type\ 10809}#
+                               (#{binding-value\ 9399}# #{b\ 10807}#)
+                               #{e\ 10787}#
+                               #{w\ 10789}#
+                               #{s\ 10790}#
+                               #{mod\ 10792}#)))))))
+                 (if (pair? #{e\ 10787}#)
+                   (let ((#{first\ 10818}# (car #{e\ 10787}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 341}#
-                           #{first\ 1664}#
-                           #{r\ 1634}#
-                           #{w\ 1635}#
-                           #{s\ 1636}#
-                           #{rib\ 1637}#
-                           #{mod\ 1638}#
+                         (#{syntax-type\ 9495}#
+                           #{first\ 10818}#
+                           #{r\ 10788}#
+                           #{w\ 10789}#
+                           #{s\ 10790}#
+                           #{rib\ 10791}#
+                           #{mod\ 10792}#
                            #t))
-                       (lambda (#{ftype\ 1665}#
-                                #{fval\ 1666}#
-                                #{fe\ 1667}#
-                                #{fw\ 1668}#
-                                #{fs\ 1669}#
-                                #{fmod\ 1670}#)
-                         (if (memv #{ftype\ 1665}# (quote (lexical)))
+                       (lambda (#{ftype\ 10819}#
+                                #{fval\ 10820}#
+                                #{fe\ 10821}#
+                                #{fw\ 10822}#
+                                #{fs\ 10823}#
+                                #{fmod\ 10824}#)
+                         (if (memv #{ftype\ 10819}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 1666}#
-                             #{e\ 1633}#
-                             #{w\ 1635}#
-                             #{s\ 1636}#
-                             #{mod\ 1638}#)
-                           (if (memv #{ftype\ 1665}# (quote (global)))
+                             #{fval\ 10820}#
+                             #{e\ 10787}#
+                             #{w\ 10789}#
+                             #{s\ 10790}#
+                             #{mod\ 10792}#)
+                           (if (memv #{ftype\ 10819}# (quote (global)))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 222}#
-                                 #{fval\ 1666}#
-                                 #{w\ 1635}#
-                                 #{fmod\ 1670}#)
-                               #{e\ 1633}#
-                               #{w\ 1635}#
-                               #{s\ 1636}#
-                               #{mod\ 1638}#)
-                             (if (memv #{ftype\ 1665}# (quote (macro)))
-                               (#{syntax-type\ 341}#
-                                 (#{chi-macro\ 351}#
-                                   #{fval\ 1666}#
-                                   #{e\ 1633}#
-                                   #{r\ 1634}#
-                                   #{w\ 1635}#
-                                   #{rib\ 1637}#
-                                   #{mod\ 1638}#)
-                                 #{r\ 1634}#
+                               (#{make-syntax-object\ 9376}#
+                                 #{fval\ 10820}#
+                                 #{w\ 10789}#
+                                 #{fmod\ 10824}#)
+                               #{e\ 10787}#
+                               #{w\ 10789}#
+                               #{s\ 10790}#
+                               #{mod\ 10792}#)
+                             (if (memv #{ftype\ 10819}# (quote (macro)))
+                               (#{syntax-type\ 9495}#
+                                 (#{chi-macro\ 9505}#
+                                   #{fval\ 10820}#
+                                   #{e\ 10787}#
+                                   #{r\ 10788}#
+                                   #{w\ 10789}#
+                                   #{rib\ 10791}#
+                                   #{mod\ 10792}#)
+                                 #{r\ 10788}#
                                  '(())
-                                 #{s\ 1636}#
-                                 #{rib\ 1637}#
-                                 #{mod\ 1638}#
-                                 #{for-car?\ 1639}#)
-                               (if (memv #{ftype\ 1665}# (quote (module-ref)))
+                                 #{s\ 10790}#
+                                 #{rib\ 10791}#
+                                 #{mod\ 10792}#
+                                 #{for-car?\ 10793}#)
+                               (if (memv #{ftype\ 10819}# (quote (module-ref)))
                                  (call-with-values
-                                   (lambda () (#{fval\ 1666}# #{e\ 1633}#))
-                                   (lambda (#{sym\ 1682}# #{mod\ 1683}#)
-                                     (#{syntax-type\ 341}#
-                                       #{sym\ 1682}#
-                                       #{r\ 1634}#
-                                       #{w\ 1635}#
-                                       #{s\ 1636}#
-                                       #{rib\ 1637}#
-                                       #{mod\ 1683}#
-                                       #{for-car?\ 1639}#)))
-                                 (if (memv #{ftype\ 1665}# (quote (core)))
+                                   (lambda () (#{fval\ 10820}# #{e\ 10787}#))
+                                   (lambda (#{sym\ 10836}# #{mod\ 10837}#)
+                                     (#{syntax-type\ 9495}#
+                                       #{sym\ 10836}#
+                                       #{r\ 10788}#
+                                       #{w\ 10789}#
+                                       #{s\ 10790}#
+                                       #{rib\ 10791}#
+                                       #{mod\ 10837}#
+                                       #{for-car?\ 10793}#)))
+                                 (if (memv #{ftype\ 10819}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 1666}#
-                                     #{e\ 1633}#
-                                     #{w\ 1635}#
-                                     #{s\ 1636}#
-                                     #{mod\ 1638}#)
-                                   (if (memv #{ftype\ 1665}#
+                                     #{fval\ 10820}#
+                                     #{e\ 10787}#
+                                     #{w\ 10789}#
+                                     #{s\ 10790}#
+                                     #{mod\ 10792}#)
+                                   (if (memv #{ftype\ 10819}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 1666}#
-                                       #{e\ 1633}#
-                                       #{w\ 1635}#
-                                       #{s\ 1636}#
-                                       #{mod\ 1638}#)
-                                     (if (memv #{ftype\ 1665}# (quote (begin)))
+                                       #{fval\ 10820}#
+                                       #{e\ 10787}#
+                                       #{w\ 10789}#
+                                       #{s\ 10790}#
+                                       #{mod\ 10792}#)
+                                     (if (memv #{ftype\ 10819}#
+                                               '(begin))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 1633}#
-                                         #{w\ 1635}#
-                                         #{s\ 1636}#
-                                         #{mod\ 1638}#)
-                                       (if (memv #{ftype\ 1665}#
+                                         #{e\ 10787}#
+                                         #{w\ 10789}#
+                                         #{s\ 10790}#
+                                         #{mod\ 10792}#)
+                                       (if (memv #{ftype\ 10819}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 1633}#
-                                           #{w\ 1635}#
-                                           #{s\ 1636}#
-                                           #{mod\ 1638}#)
-                                         (if (memv #{ftype\ 1665}#
+                                           #{e\ 10787}#
+                                           #{w\ 10789}#
+                                           #{s\ 10790}#
+                                           #{mod\ 10792}#)
+                                         (if (memv #{ftype\ 10819}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 1691}#)
-                                              ((lambda (#{tmp\ 1692}#)
-                                                 (if (if #{tmp\ 1692}#
-                                                       (apply (lambda (#{_\ 
1696}#
-                                                                       #{name\ 
1697}#
-                                                                       #{val\ 
1698}#)
-                                                                (#{id?\ 260}#
-                                                                  #{name\ 
1697}#))
-                                                              #{tmp\ 1692}#)
+                                           ((lambda (#{tmp\ 10845}#)
+                                              ((lambda (#{tmp\ 10846}#)
+                                                 (if (if #{tmp\ 10846}#
+                                                       (apply (lambda (#{_\ 
10850}#
+                                                                       #{name\ 
10851}#
+                                                                       #{val\ 
10852}#)
+                                                                (#{id?\ 9414}#
+                                                                  #{name\ 
10851}#))
+                                                              #{tmp\ 10846}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 1702}#
-                                                                   #{name\ 
1703}#
-                                                                   #{val\ 
1704}#)
+                                                   (apply (lambda (#{_\ 10856}#
+                                                                   #{name\ 
10857}#
+                                                                   #{val\ 
10858}#)
                                                             (values
                                                               'define-form
-                                                              #{name\ 1703}#
-                                                              #{val\ 1704}#
-                                                              #{w\ 1635}#
-                                                              #{s\ 1636}#
-                                                              #{mod\ 1638}#))
-                                                          #{tmp\ 1692}#)
-                                                   ((lambda (#{tmp\ 1705}#)
-                                                      (if (if #{tmp\ 1705}#
-                                                            (apply (lambda 
(#{_\ 1711}#
-                                                                            
#{name\ 1712}#
-                                                                            
#{args\ 1713}#
-                                                                            
#{e1\ 1714}#
-                                                                            
#{e2\ 1715}#)
-                                                                     (if 
(#{id?\ 260}#
-                                                                           
#{name\ 1712}#)
-                                                                       
(#{valid-bound-ids?\ 323}#
-                                                                         
(#{lambda-var-list\ 375}#
-                                                                           
#{args\ 1713}#))
+                                                              #{name\ 10857}#
+                                                              #{val\ 10858}#
+                                                              #{w\ 10789}#
+                                                              #{s\ 10790}#
+                                                              #{mod\ 10792}#))
+                                                          #{tmp\ 10846}#)
+                                                   ((lambda (#{tmp\ 10859}#)
+                                                      (if (if #{tmp\ 10859}#
+                                                            (apply (lambda 
(#{_\ 10865}#
+                                                                            
#{name\ 10866}#
+                                                                            
#{args\ 10867}#
+                                                                            
#{e1\ 10868}#
+                                                                            
#{e2\ 10869}#)
+                                                                     (if 
(#{id?\ 9414}#
+                                                                           
#{name\ 10866}#)
+                                                                       
(#{valid-bound-ids?\ 9477}#
+                                                                         
(#{lambda-var-list\ 9529}#
+                                                                           
#{args\ 10867}#))
                                                                        #f))
-                                                                   #{tmp\ 
1705}#)
+                                                                   #{tmp\ 
10859}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
1723}#
-                                                                        
#{name\ 1724}#
-                                                                        
#{args\ 1725}#
-                                                                        #{e1\ 
1726}#
-                                                                        #{e2\ 
1727}#)
+                                                        (apply (lambda (#{_\ 
10877}#
+                                                                        
#{name\ 10878}#
+                                                                        
#{args\ 10879}#
+                                                                        #{e1\ 
10880}#
+                                                                        #{e2\ 
10881}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
329}#
-                                                                     #{name\ 
1724}#
-                                                                     #{w\ 
1635}#
-                                                                     #{mod\ 
1638}#)
-                                                                   
(#{decorate-source\ 180}#
+                                                                   (#{wrap\ 
9483}#
+                                                                     #{name\ 
10878}#
+                                                                     #{w\ 
10789}#
+                                                                     #{mod\ 
10792}#)
+                                                                   
(#{decorate-source\ 9334}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -3561,11 +3577,11 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i1718"
-                                                                               
    "i1719"
-                                                                               
    "i1720"
-                                                                               
    "i1721"
-                                                                               
    "i1722"))
+                                                                               
  #("i10872"
+                                                                               
    "i10873"
+                                                                               
    "i10874"
+                                                                               
    "i10875"
+                                                                               
    "i10876"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3587,12 +3603,12 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i1671"
-                                                                               
    "i1672"
-                                                                               
    "i1673"
-                                                                               
    "i1674"
-                                                                               
    "i1675"
-                                                                               
    "i1676"))
+                                                                               
  #("i10825"
+                                                                               
    "i10826"
+                                                                               
    "i10827"
+                                                                               
    "i10828"
+                                                                               
    "i10829"
+                                                                               
    "i10830"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3600,7 +3616,7 @@
                                                                                
#(ribcage
                                                                                
  #(first)
                                                                                
  #((top))
-                                                                               
  #("i1663"))
+                                                                               
  #("i10817"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3628,13 +3644,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i1640"
-                                                                               
    "i1641"
-                                                                               
    "i1642"
-                                                                               
    "i1643"
-                                                                               
    "i1644"
-                                                                               
    "i1645"
-                                                                               
    "i1646"))
+                                                                               
  #("i10794"
+                                                                               
    "i10795"
+                                                                               
    "i10796"
+                                                                               
    "i10797"
+                                                                               
    "i10798"
+                                                                               
    "i10799"
+                                                                               
    "i10800"))
                                                                                
#(ribcage
                                                                                
  (lambda-var-list
                                                                                
    gen-var
@@ -3870,159 +3886,159 @@
                                                                                
   (top)
                                                                                
   (top)
                                                                                
   (top))
-                                                                               
  ("i374"
-                                                                               
   "i372"
-                                                                               
   "i370"
-                                                                               
   "i368"
-                                                                               
   "i366"
-                                                                               
   "i364"
-                                                                               
   "i362"
-                                                                               
   "i360"
-                                                                               
   "i358"
-                                                                               
   "i356"
-                                                                               
   "i354"
-                                                                               
   "i352"
-                                                                               
   "i350"
-                                                                               
   "i348"
-                                                                               
   "i346"
-                                                                               
   "i344"
-                                                                               
   "i342"
-                                                                               
   "i340"
-                                                                               
   "i338"
-                                                                               
   "i336"
-                                                                               
   "i334"
-                                                                               
   "i332"
-                                                                               
   "i330"
-                                                                               
   "i328"
-                                                                               
   "i326"
-                                                                               
   "i324"
-                                                                               
   "i322"
-                                                                               
   "i320"
-                                                                               
   "i318"
-                                                                               
   "i316"
-                                                                               
   "i314"
-                                                                               
   "i312"
-                                                                               
   "i310"
-                                                                               
   "i308"
-                                                                               
   "i306"
-                                                                               
   "i304"
-                                                                               
   "i303"
-                                                                               
   "i302"
-                                                                               
   "i300"
-                                                                               
   "i299"
-                                                                               
   "i298"
-                                                                               
   "i297"
-                                                                               
   "i296"
-                                                                               
   "i294"
-                                                                               
   "i292"
-                                                                               
   "i290"
-                                                                               
   "i288"
-                                                                               
   "i286"
-                                                                               
   "i284"
-                                                                               
   "i282"
-                                                                               
   "i280"
-                                                                               
   "i277"
-                                                                               
   "i275"
-                                                                               
   "i274"
-                                                                               
   "i273"
-                                                                               
   "i272"
-                                                                               
   "i271"
-                                                                               
   "i270"
-                                                                               
   "i268"
-                                                                               
   "i266"
-                                                                               
   "i264"
-                                                                               
   "i262"
-                                                                               
   "i261"
-                                                                               
   "i259"
-                                                                               
   "i257"
-                                                                               
   "i255"
-                                                                               
   "i253"
-                                                                               
   "i251"
-                                                                               
   "i249"
-                                                                               
   "i247"
-                                                                               
   "i246"
-                                                                               
   "i244"
-                                                                               
   "i242"
-                                                                               
   "i241"
-                                                                               
   "i240"
-                                                                               
   "i238"
-                                                                               
   "i237"
-                                                                               
   "i235"
-                                                                               
   "i233"
-                                                                               
   "i231"
-                                                                               
   "i229"
-                                                                               
   "i227"
-                                                                               
   "i225"
-                                                                               
   "i223"
-                                                                               
   "i221"
-                                                                               
   "i219"
-                                                                               
   "i217"
-                                                                               
   "i215"
-                                                                               
   "i213"
-                                                                               
   "i211"
-                                                                               
   "i209"
-                                                                               
   "i207"
-                                                                               
   "i205"
-                                                                               
   "i203"
-                                                                               
   "i201"
-                                                                               
   "i199"
-                                                                               
   "i197"
-                                                                               
   "i195"
-                                                                               
   "i193"
-                                                                               
   "i191"
-                                                                               
   "i189"
-                                                                               
   "i187"
-                                                                               
   "i185"
-                                                                               
   "i183"
-                                                                               
   "i181"
-                                                                               
   "i179"
-                                                                               
   "i177"
-                                                                               
   "i175"
-                                                                               
   "i174"
-                                                                               
   "i172"
-                                                                               
   "i170"
-                                                                               
   "i168"
-                                                                               
   "i166"
-                                                                               
   "i164"
-                                                                               
   "i162"
-                                                                               
   "i160"
-                                                                               
   "i158"))
+                                                                               
  ("i9528"
+                                                                               
   "i9526"
+                                                                               
   "i9524"
+                                                                               
   "i9522"
+                                                                               
   "i9520"
+                                                                               
   "i9518"
+                                                                               
   "i9516"
+                                                                               
   "i9514"
+                                                                               
   "i9512"
+                                                                               
   "i9510"
+                                                                               
   "i9508"
+                                                                               
   "i9506"
+                                                                               
   "i9504"
+                                                                               
   "i9502"
+                                                                               
   "i9500"
+                                                                               
   "i9498"
+                                                                               
   "i9496"
+                                                                               
   "i9494"
+                                                                               
   "i9492"
+                                                                               
   "i9490"
+                                                                               
   "i9488"
+                                                                               
   "i9486"
+                                                                               
   "i9484"
+                                                                               
   "i9482"
+                                                                               
   "i9480"
+                                                                               
   "i9478"
+                                                                               
   "i9476"
+                                                                               
   "i9474"
+                                                                               
   "i9472"
+                                                                               
   "i9470"
+                                                                               
   "i9468"
+                                                                               
   "i9466"
+                                                                               
   "i9464"
+                                                                               
   "i9462"
+                                                                               
   "i9460"
+                                                                               
   "i9458"
+                                                                               
   "i9457"
+                                                                               
   "i9456"
+                                                                               
   "i9454"
+                                                                               
   "i9453"
+                                                                               
   "i9452"
+                                                                               
   "i9451"
+                                                                               
   "i9450"
+                                                                               
   "i9448"
+                                                                               
   "i9446"
+                                                                               
   "i9444"
+                                                                               
   "i9442"
+                                                                               
   "i9440"
+                                                                               
   "i9438"
+                                                                               
   "i9436"
+                                                                               
   "i9434"
+                                                                               
   "i9431"
+                                                                               
   "i9429"
+                                                                               
   "i9428"
+                                                                               
   "i9427"
+                                                                               
   "i9426"
+                                                                               
   "i9425"
+                                                                               
   "i9424"
+                                                                               
   "i9422"
+                                                                               
   "i9420"
+                                                                               
   "i9418"
+                                                                               
   "i9416"
+                                                                               
   "i9415"
+                                                                               
   "i9413"
+                                                                               
   "i9411"
+                                                                               
   "i9409"
+                                                                               
   "i9407"
+                                                                               
   "i9405"
+                                                                               
   "i9403"
+                                                                               
   "i9401"
+                                                                               
   "i9400"
+                                                                               
   "i9398"
+                                                                               
   "i9396"
+                                                                               
   "i9395"
+                                                                               
   "i9394"
+                                                                               
   "i9392"
+                                                                               
   "i9391"
+                                                                               
   "i9389"
+                                                                               
   "i9387"
+                                                                               
   "i9385"
+                                                                               
   "i9383"
+                                                                               
   "i9381"
+                                                                               
   "i9379"
+                                                                               
   "i9377"
+                                                                               
   "i9375"
+                                                                               
   "i9373"
+                                                                               
   "i9371"
+                                                                               
   "i9369"
+                                                                               
   "i9367"
+                                                                               
   "i9365"
+                                                                               
   "i9363"
+                                                                               
   "i9361"
+                                                                               
   "i9359"
+                                                                               
   "i9357"
+                                                                               
   "i9355"
+                                                                               
   "i9353"
+                                                                               
   "i9351"
+                                                                               
   "i9349"
+                                                                               
   "i9347"
+                                                                               
   "i9345"
+                                                                               
   "i9343"
+                                                                               
   "i9341"
+                                                                               
   "i9339"
+                                                                               
   "i9337"
+                                                                               
   "i9335"
+                                                                               
   "i9333"
+                                                                               
   "i9331"
+                                                                               
   "i9329"
+                                                                               
   "i9328"
+                                                                               
   "i9326"
+                                                                               
   "i9324"
+                                                                               
   "i9322"
+                                                                               
   "i9320"
+                                                                               
   "i9318"
+                                                                               
   "i9316"
+                                                                               
   "i9314"
+                                                                               
   "i9312"))
                                                                                
#(ribcage
                                                                                
  (define-structure
                                                                                
    and-map*)
                                                                                
  ((top)
                                                                                
   (top))
-                                                                               
  ("i61"
-                                                                               
   "i59")))
+                                                                               
  ("i9215"
+                                                                               
   "i9213")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 329}#
-                                                                             
(cons #{args\ 1725}#
-                                                                               
    (cons #{e1\ 1726}#
-                                                                               
          #{e2\ 1727}#))
-                                                                             
#{w\ 1635}#
-                                                                             
#{mod\ 1638}#))
-                                                                     #{s\ 
1636}#)
+                                                                           
(#{wrap\ 9483}#
+                                                                             
(cons #{args\ 10879}#
+                                                                               
    (cons #{e1\ 10880}#
+                                                                               
          #{e2\ 10881}#))
+                                                                             
#{w\ 10789}#
+                                                                             
#{mod\ 10792}#))
+                                                                     #{s\ 
10790}#)
                                                                    '(())
-                                                                   #{s\ 1636}#
-                                                                   #{mod\ 
1638}#))
-                                                               #{tmp\ 1705}#)
-                                                        ((lambda (#{tmp\ 
1730}#)
-                                                           (if (if #{tmp\ 
1730}#
-                                                                 (apply 
(lambda (#{_\ 1733}#
-                                                                               
  #{name\ 1734}#)
-                                                                          
(#{id?\ 260}#
-                                                                            
#{name\ 1734}#))
-                                                                        #{tmp\ 
1730}#)
+                                                                   #{s\ 10790}#
+                                                                   #{mod\ 
10792}#))
+                                                               #{tmp\ 10859}#)
+                                                        ((lambda (#{tmp\ 
10884}#)
+                                                           (if (if #{tmp\ 
10884}#
+                                                                 (apply 
(lambda (#{_\ 10887}#
+                                                                               
  #{name\ 10888}#)
+                                                                          
(#{id?\ 9414}#
+                                                                            
#{name\ 10888}#))
+                                                                        #{tmp\ 
10884}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 1737}#
-                                                                             
#{name\ 1738}#)
+                                                             (apply (lambda 
(#{_\ 10891}#
+                                                                             
#{name\ 10892}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 329}#
-                                                                          
#{name\ 1738}#
-                                                                          #{w\ 
1635}#
-                                                                          
#{mod\ 1638}#)
+                                                                        
(#{wrap\ 9483}#
+                                                                          
#{name\ 10892}#
+                                                                          #{w\ 
10789}#
+                                                                          
#{mod\ 10792}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -4031,8 +4047,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i1735"
-                                                                               
  "i1736"))
+                                                                               
#("i10889"
+                                                                               
  "i10890"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4054,12 +4070,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1671"
-                                                                               
  "i1672"
-                                                                               
  "i1673"
-                                                                               
  "i1674"
-                                                                               
  "i1675"
-                                                                               
  "i1676"))
+                                                                               
#("i10825"
+                                                                               
  "i10826"
+                                                                               
  "i10827"
+                                                                               
  "i10828"
+                                                                               
  "i10829"
+                                                                               
  "i10830"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4067,7 +4083,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i1663"))
+                                                                               
#("i10817"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4095,13 +4111,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1640"
-                                                                               
  "i1641"
-                                                                               
  "i1642"
-                                                                               
  "i1643"
-                                                                               
  "i1644"
-                                                                               
  "i1645"
-                                                                               
  "i1646"))
+                                                                               
#("i10794"
+                                                                               
  "i10795"
+                                                                               
  "i10796"
+                                                                               
  "i10797"
+                                                                               
  "i10798"
+                                                                               
  "i10799"
+                                                                               
  "i10800"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4337,130 +4353,130 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i374"
-                                                                               
 "i372"
-                                                                               
 "i370"
-                                                                               
 "i368"
-                                                                               
 "i366"
-                                                                               
 "i364"
-                                                                               
 "i362"
-                                                                               
 "i360"
-                                                                               
 "i358"
-                                                                               
 "i356"
-                                                                               
 "i354"
-                                                                               
 "i352"
-                                                                               
 "i350"
-                                                                               
 "i348"
-                                                                               
 "i346"
-                                                                               
 "i344"
-                                                                               
 "i342"
-                                                                               
 "i340"
-                                                                               
 "i338"
-                                                                               
 "i336"
-                                                                               
 "i334"
-                                                                               
 "i332"
-                                                                               
 "i330"
-                                                                               
 "i328"
-                                                                               
 "i326"
-                                                                               
 "i324"
-                                                                               
 "i322"
-                                                                               
 "i320"
-                                                                               
 "i318"
-                                                                               
 "i316"
-                                                                               
 "i314"
-                                                                               
 "i312"
-                                                                               
 "i310"
-                                                                               
 "i308"
-                                                                               
 "i306"
-                                                                               
 "i304"
-                                                                               
 "i303"
-                                                                               
 "i302"
-                                                                               
 "i300"
-                                                                               
 "i299"
-                                                                               
 "i298"
-                                                                               
 "i297"
-                                                                               
 "i296"
-                                                                               
 "i294"
-                                                                               
 "i292"
-                                                                               
 "i290"
-                                                                               
 "i288"
-                                                                               
 "i286"
-                                                                               
 "i284"
-                                                                               
 "i282"
-                                                                               
 "i280"
-                                                                               
 "i277"
-                                                                               
 "i275"
-                                                                               
 "i274"
-                                                                               
 "i273"
-                                                                               
 "i272"
-                                                                               
 "i271"
-                                                                               
 "i270"
-                                                                               
 "i268"
-                                                                               
 "i266"
-                                                                               
 "i264"
-                                                                               
 "i262"
-                                                                               
 "i261"
-                                                                               
 "i259"
-                                                                               
 "i257"
-                                                                               
 "i255"
-                                                                               
 "i253"
-                                                                               
 "i251"
-                                                                               
 "i249"
-                                                                               
 "i247"
-                                                                               
 "i246"
-                                                                               
 "i244"
-                                                                               
 "i242"
-                                                                               
 "i241"
-                                                                               
 "i240"
-                                                                               
 "i238"
-                                                                               
 "i237"
-                                                                               
 "i235"
-                                                                               
 "i233"
-                                                                               
 "i231"
-                                                                               
 "i229"
-                                                                               
 "i227"
-                                                                               
 "i225"
-                                                                               
 "i223"
-                                                                               
 "i221"
-                                                                               
 "i219"
-                                                                               
 "i217"
-                                                                               
 "i215"
-                                                                               
 "i213"
-                                                                               
 "i211"
-                                                                               
 "i209"
-                                                                               
 "i207"
-                                                                               
 "i205"
-                                                                               
 "i203"
-                                                                               
 "i201"
-                                                                               
 "i199"
-                                                                               
 "i197"
-                                                                               
 "i195"
-                                                                               
 "i193"
-                                                                               
 "i191"
-                                                                               
 "i189"
-                                                                               
 "i187"
-                                                                               
 "i185"
-                                                                               
 "i183"
-                                                                               
 "i181"
-                                                                               
 "i179"
-                                                                               
 "i177"
-                                                                               
 "i175"
-                                                                               
 "i174"
-                                                                               
 "i172"
-                                                                               
 "i170"
-                                                                               
 "i168"
-                                                                               
 "i166"
-                                                                               
 "i164"
-                                                                               
 "i162"
-                                                                               
 "i160"
-                                                                               
 "i158"))
+                                                                               
("i9528"
+                                                                               
 "i9526"
+                                                                               
 "i9524"
+                                                                               
 "i9522"
+                                                                               
 "i9520"
+                                                                               
 "i9518"
+                                                                               
 "i9516"
+                                                                               
 "i9514"
+                                                                               
 "i9512"
+                                                                               
 "i9510"
+                                                                               
 "i9508"
+                                                                               
 "i9506"
+                                                                               
 "i9504"
+                                                                               
 "i9502"
+                                                                               
 "i9500"
+                                                                               
 "i9498"
+                                                                               
 "i9496"
+                                                                               
 "i9494"
+                                                                               
 "i9492"
+                                                                               
 "i9490"
+                                                                               
 "i9488"
+                                                                               
 "i9486"
+                                                                               
 "i9484"
+                                                                               
 "i9482"
+                                                                               
 "i9480"
+                                                                               
 "i9478"
+                                                                               
 "i9476"
+                                                                               
 "i9474"
+                                                                               
 "i9472"
+                                                                               
 "i9470"
+                                                                               
 "i9468"
+                                                                               
 "i9466"
+                                                                               
 "i9464"
+                                                                               
 "i9462"
+                                                                               
 "i9460"
+                                                                               
 "i9458"
+                                                                               
 "i9457"
+                                                                               
 "i9456"
+                                                                               
 "i9454"
+                                                                               
 "i9453"
+                                                                               
 "i9452"
+                                                                               
 "i9451"
+                                                                               
 "i9450"
+                                                                               
 "i9448"
+                                                                               
 "i9446"
+                                                                               
 "i9444"
+                                                                               
 "i9442"
+                                                                               
 "i9440"
+                                                                               
 "i9438"
+                                                                               
 "i9436"
+                                                                               
 "i9434"
+                                                                               
 "i9431"
+                                                                               
 "i9429"
+                                                                               
 "i9428"
+                                                                               
 "i9427"
+                                                                               
 "i9426"
+                                                                               
 "i9425"
+                                                                               
 "i9424"
+                                                                               
 "i9422"
+                                                                               
 "i9420"
+                                                                               
 "i9418"
+                                                                               
 "i9416"
+                                                                               
 "i9415"
+                                                                               
 "i9413"
+                                                                               
 "i9411"
+                                                                               
 "i9409"
+                                                                               
 "i9407"
+                                                                               
 "i9405"
+                                                                               
 "i9403"
+                                                                               
 "i9401"
+                                                                               
 "i9400"
+                                                                               
 "i9398"
+                                                                               
 "i9396"
+                                                                               
 "i9395"
+                                                                               
 "i9394"
+                                                                               
 "i9392"
+                                                                               
 "i9391"
+                                                                               
 "i9389"
+                                                                               
 "i9387"
+                                                                               
 "i9385"
+                                                                               
 "i9383"
+                                                                               
 "i9381"
+                                                                               
 "i9379"
+                                                                               
 "i9377"
+                                                                               
 "i9375"
+                                                                               
 "i9373"
+                                                                               
 "i9371"
+                                                                               
 "i9369"
+                                                                               
 "i9367"
+                                                                               
 "i9365"
+                                                                               
 "i9363"
+                                                                               
 "i9361"
+                                                                               
 "i9359"
+                                                                               
 "i9357"
+                                                                               
 "i9355"
+                                                                               
 "i9353"
+                                                                               
 "i9351"
+                                                                               
 "i9349"
+                                                                               
 "i9347"
+                                                                               
 "i9345"
+                                                                               
 "i9343"
+                                                                               
 "i9341"
+                                                                               
 "i9339"
+                                                                               
 "i9337"
+                                                                               
 "i9335"
+                                                                               
 "i9333"
+                                                                               
 "i9331"
+                                                                               
 "i9329"
+                                                                               
 "i9328"
+                                                                               
 "i9326"
+                                                                               
 "i9324"
+                                                                               
 "i9322"
+                                                                               
 "i9320"
+                                                                               
 "i9318"
+                                                                               
 "i9316"
+                                                                               
 "i9314"
+                                                                               
 "i9312"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i61"
-                                                                               
 "i59")))
+                                                                               
("i9215"
+                                                                               
 "i9213")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4471,8 +4487,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i1735"
-                                                                               
  "i1736"))
+                                                                               
#("i10889"
+                                                                               
  "i10890"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4494,12 +4510,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1671"
-                                                                               
  "i1672"
-                                                                               
  "i1673"
-                                                                               
  "i1674"
-                                                                               
  "i1675"
-                                                                               
  "i1676"))
+                                                                               
#("i10825"
+                                                                               
  "i10826"
+                                                                               
  "i10827"
+                                                                               
  "i10828"
+                                                                               
  "i10829"
+                                                                               
  "i10830"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4507,7 +4523,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i1663"))
+                                                                               
#("i10817"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4535,13 +4551,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1640"
-                                                                               
  "i1641"
-                                                                               
  "i1642"
-                                                                               
  "i1643"
-                                                                               
  "i1644"
-                                                                               
  "i1645"
-                                                                               
  "i1646"))
+                                                                               
#("i10794"
+                                                                               
  "i10795"
+                                                                               
  "i10796"
+                                                                               
  "i10797"
+                                                                               
  "i10798"
+                                                                               
  "i10799"
+                                                                               
  "i10800"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4777,130 +4793,130 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i374"
-                                                                               
 "i372"
-                                                                               
 "i370"
-                                                                               
 "i368"
-                                                                               
 "i366"
-                                                                               
 "i364"
-                                                                               
 "i362"
-                                                                               
 "i360"
-                                                                               
 "i358"
-                                                                               
 "i356"
-                                                                               
 "i354"
-                                                                               
 "i352"
-                                                                               
 "i350"
-                                                                               
 "i348"
-                                                                               
 "i346"
-                                                                               
 "i344"
-                                                                               
 "i342"
-                                                                               
 "i340"
-                                                                               
 "i338"
-                                                                               
 "i336"
-                                                                               
 "i334"
-                                                                               
 "i332"
-                                                                               
 "i330"
-                                                                               
 "i328"
-                                                                               
 "i326"
-                                                                               
 "i324"
-                                                                               
 "i322"
-                                                                               
 "i320"
-                                                                               
 "i318"
-                                                                               
 "i316"
-                                                                               
 "i314"
-                                                                               
 "i312"
-                                                                               
 "i310"
-                                                                               
 "i308"
-                                                                               
 "i306"
-                                                                               
 "i304"
-                                                                               
 "i303"
-                                                                               
 "i302"
-                                                                               
 "i300"
-                                                                               
 "i299"
-                                                                               
 "i298"
-                                                                               
 "i297"
-                                                                               
 "i296"
-                                                                               
 "i294"
-                                                                               
 "i292"
-                                                                               
 "i290"
-                                                                               
 "i288"
-                                                                               
 "i286"
-                                                                               
 "i284"
-                                                                               
 "i282"
-                                                                               
 "i280"
-                                                                               
 "i277"
-                                                                               
 "i275"
-                                                                               
 "i274"
-                                                                               
 "i273"
-                                                                               
 "i272"
-                                                                               
 "i271"
-                                                                               
 "i270"
-                                                                               
 "i268"
-                                                                               
 "i266"
-                                                                               
 "i264"
-                                                                               
 "i262"
-                                                                               
 "i261"
-                                                                               
 "i259"
-                                                                               
 "i257"
-                                                                               
 "i255"
-                                                                               
 "i253"
-                                                                               
 "i251"
-                                                                               
 "i249"
-                                                                               
 "i247"
-                                                                               
 "i246"
-                                                                               
 "i244"
-                                                                               
 "i242"
-                                                                               
 "i241"
-                                                                               
 "i240"
-                                                                               
 "i238"
-                                                                               
 "i237"
-                                                                               
 "i235"
-                                                                               
 "i233"
-                                                                               
 "i231"
-                                                                               
 "i229"
-                                                                               
 "i227"
-                                                                               
 "i225"
-                                                                               
 "i223"
-                                                                               
 "i221"
-                                                                               
 "i219"
-                                                                               
 "i217"
-                                                                               
 "i215"
-                                                                               
 "i213"
-                                                                               
 "i211"
-                                                                               
 "i209"
-                                                                               
 "i207"
-                                                                               
 "i205"
-                                                                               
 "i203"
-                                                                               
 "i201"
-                                                                               
 "i199"
-                                                                               
 "i197"
-                                                                               
 "i195"
-                                                                               
 "i193"
-                                                                               
 "i191"
-                                                                               
 "i189"
-                                                                               
 "i187"
-                                                                               
 "i185"
-                                                                               
 "i183"
-                                                                               
 "i181"
-                                                                               
 "i179"
-                                                                               
 "i177"
-                                                                               
 "i175"
-                                                                               
 "i174"
-                                                                               
 "i172"
-                                                                               
 "i170"
-                                                                               
 "i168"
-                                                                               
 "i166"
-                                                                               
 "i164"
-                                                                               
 "i162"
-                                                                               
 "i160"
-                                                                               
 "i158"))
+                                                                               
("i9528"
+                                                                               
 "i9526"
+                                                                               
 "i9524"
+                                                                               
 "i9522"
+                                                                               
 "i9520"
+                                                                               
 "i9518"
+                                                                               
 "i9516"
+                                                                               
 "i9514"
+                                                                               
 "i9512"
+                                                                               
 "i9510"
+                                                                               
 "i9508"
+                                                                               
 "i9506"
+                                                                               
 "i9504"
+                                                                               
 "i9502"
+                                                                               
 "i9500"
+                                                                               
 "i9498"
+                                                                               
 "i9496"
+                                                                               
 "i9494"
+                                                                               
 "i9492"
+                                                                               
 "i9490"
+                                                                               
 "i9488"
+                                                                               
 "i9486"
+                                                                               
 "i9484"
+                                                                               
 "i9482"
+                                                                               
 "i9480"
+                                                                               
 "i9478"
+                                                                               
 "i9476"
+                                                                               
 "i9474"
+                                                                               
 "i9472"
+                                                                               
 "i9470"
+                                                                               
 "i9468"
+                                                                               
 "i9466"
+                                                                               
 "i9464"
+                                                                               
 "i9462"
+                                                                               
 "i9460"
+                                                                               
 "i9458"
+                                                                               
 "i9457"
+                                                                               
 "i9456"
+                                                                               
 "i9454"
+                                                                               
 "i9453"
+                                                                               
 "i9452"
+                                                                               
 "i9451"
+                                                                               
 "i9450"
+                                                                               
 "i9448"
+                                                                               
 "i9446"
+                                                                               
 "i9444"
+                                                                               
 "i9442"
+                                                                               
 "i9440"
+                                                                               
 "i9438"
+                                                                               
 "i9436"
+                                                                               
 "i9434"
+                                                                               
 "i9431"
+                                                                               
 "i9429"
+                                                                               
 "i9428"
+                                                                               
 "i9427"
+                                                                               
 "i9426"
+                                                                               
 "i9425"
+                                                                               
 "i9424"
+                                                                               
 "i9422"
+                                                                               
 "i9420"
+                                                                               
 "i9418"
+                                                                               
 "i9416"
+                                                                               
 "i9415"
+                                                                               
 "i9413"
+                                                                               
 "i9411"
+                                                                               
 "i9409"
+                                                                               
 "i9407"
+                                                                               
 "i9405"
+                                                                               
 "i9403"
+                                                                               
 "i9401"
+                                                                               
 "i9400"
+                                                                               
 "i9398"
+                                                                               
 "i9396"
+                                                                               
 "i9395"
+                                                                               
 "i9394"
+                                                                               
 "i9392"
+                                                                               
 "i9391"
+                                                                               
 "i9389"
+                                                                               
 "i9387"
+                                                                               
 "i9385"
+                                                                               
 "i9383"
+                                                                               
 "i9381"
+                                                                               
 "i9379"
+                                                                               
 "i9377"
+                                                                               
 "i9375"
+                                                                               
 "i9373"
+                                                                               
 "i9371"
+                                                                               
 "i9369"
+                                                                               
 "i9367"
+                                                                               
 "i9365"
+                                                                               
 "i9363"
+                                                                               
 "i9361"
+                                                                               
 "i9359"
+                                                                               
 "i9357"
+                                                                               
 "i9355"
+                                                                               
 "i9353"
+                                                                               
 "i9351"
+                                                                               
 "i9349"
+                                                                               
 "i9347"
+                                                                               
 "i9345"
+                                                                               
 "i9343"
+                                                                               
 "i9341"
+                                                                               
 "i9339"
+                                                                               
 "i9337"
+                                                                               
 "i9335"
+                                                                               
 "i9333"
+                                                                               
 "i9331"
+                                                                               
 "i9329"
+                                                                               
 "i9328"
+                                                                               
 "i9326"
+                                                                               
 "i9324"
+                                                                               
 "i9322"
+                                                                               
 "i9320"
+                                                                               
 "i9318"
+                                                                               
 "i9316"
+                                                                               
 "i9314"
+                                                                               
 "i9312"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i61"
-                                                                               
 "i59")))
+                                                                               
("i9215"
+                                                                               
 "i9213")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4911,8 +4927,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i1735"
-                                                                               
  "i1736"))
+                                                                               
#("i10889"
+                                                                               
  "i10890"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4934,12 +4950,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1671"
-                                                                               
  "i1672"
-                                                                               
  "i1673"
-                                                                               
  "i1674"
-                                                                               
  "i1675"
-                                                                               
  "i1676"))
+                                                                               
#("i10825"
+                                                                               
  "i10826"
+                                                                               
  "i10827"
+                                                                               
  "i10828"
+                                                                               
  "i10829"
+                                                                               
  "i10830"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4947,7 +4963,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i1663"))
+                                                                               
#("i10817"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4975,13 +4991,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i1640"
-                                                                               
  "i1641"
-                                                                               
  "i1642"
-                                                                               
  "i1643"
-                                                                               
  "i1644"
-                                                                               
  "i1645"
-                                                                               
  "i1646"))
+                                                                               
#("i10794"
+                                                                               
  "i10795"
+                                                                               
  "i10796"
+                                                                               
  "i10797"
+                                                                               
  "i10798"
+                                                                               
  "i10799"
+                                                                               
  "i10800"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5217,231 +5233,231 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i374"
-                                                                               
 "i372"
-                                                                               
 "i370"
-                                                                               
 "i368"
-                                                                               
 "i366"
-                                                                               
 "i364"
-                                                                               
 "i362"
-                                                                               
 "i360"
-                                                                               
 "i358"
-                                                                               
 "i356"
-                                                                               
 "i354"
-                                                                               
 "i352"
-                                                                               
 "i350"
-                                                                               
 "i348"
-                                                                               
 "i346"
-                                                                               
 "i344"
-                                                                               
 "i342"
-                                                                               
 "i340"
-                                                                               
 "i338"
-                                                                               
 "i336"
-                                                                               
 "i334"
-                                                                               
 "i332"
-                                                                               
 "i330"
-                                                                               
 "i328"
-                                                                               
 "i326"
-                                                                               
 "i324"
-                                                                               
 "i322"
-                                                                               
 "i320"
-                                                                               
 "i318"
-                                                                               
 "i316"
-                                                                               
 "i314"
-                                                                               
 "i312"
-                                                                               
 "i310"
-                                                                               
 "i308"
-                                                                               
 "i306"
-                                                                               
 "i304"
-                                                                               
 "i303"
-                                                                               
 "i302"
-                                                                               
 "i300"
-                                                                               
 "i299"
-                                                                               
 "i298"
-                                                                               
 "i297"
-                                                                               
 "i296"
-                                                                               
 "i294"
-                                                                               
 "i292"
-                                                                               
 "i290"
-                                                                               
 "i288"
-                                                                               
 "i286"
-                                                                               
 "i284"
-                                                                               
 "i282"
-                                                                               
 "i280"
-                                                                               
 "i277"
-                                                                               
 "i275"
-                                                                               
 "i274"
-                                                                               
 "i273"
-                                                                               
 "i272"
-                                                                               
 "i271"
-                                                                               
 "i270"
-                                                                               
 "i268"
-                                                                               
 "i266"
-                                                                               
 "i264"
-                                                                               
 "i262"
-                                                                               
 "i261"
-                                                                               
 "i259"
-                                                                               
 "i257"
-                                                                               
 "i255"
-                                                                               
 "i253"
-                                                                               
 "i251"
-                                                                               
 "i249"
-                                                                               
 "i247"
-                                                                               
 "i246"
-                                                                               
 "i244"
-                                                                               
 "i242"
-                                                                               
 "i241"
-                                                                               
 "i240"
-                                                                               
 "i238"
-                                                                               
 "i237"
-                                                                               
 "i235"
-                                                                               
 "i233"
-                                                                               
 "i231"
-                                                                               
 "i229"
-                                                                               
 "i227"
-                                                                               
 "i225"
-                                                                               
 "i223"
-                                                                               
 "i221"
-                                                                               
 "i219"
-                                                                               
 "i217"
-                                                                               
 "i215"
-                                                                               
 "i213"
-                                                                               
 "i211"
-                                                                               
 "i209"
-                                                                               
 "i207"
-                                                                               
 "i205"
-                                                                               
 "i203"
-                                                                               
 "i201"
-                                                                               
 "i199"
-                                                                               
 "i197"
-                                                                               
 "i195"
-                                                                               
 "i193"
-                                                                               
 "i191"
-                                                                               
 "i189"
-                                                                               
 "i187"
-                                                                               
 "i185"
-                                                                               
 "i183"
-                                                                               
 "i181"
-                                                                               
 "i179"
-                                                                               
 "i177"
-                                                                               
 "i175"
-                                                                               
 "i174"
-                                                                               
 "i172"
-                                                                               
 "i170"
-                                                                               
 "i168"
-                                                                               
 "i166"
-                                                                               
 "i164"
-                                                                               
 "i162"
-                                                                               
 "i160"
-                                                                               
 "i158"))
+                                                                               
("i9528"
+                                                                               
 "i9526"
+                                                                               
 "i9524"
+                                                                               
 "i9522"
+                                                                               
 "i9520"
+                                                                               
 "i9518"
+                                                                               
 "i9516"
+                                                                               
 "i9514"
+                                                                               
 "i9512"
+                                                                               
 "i9510"
+                                                                               
 "i9508"
+                                                                               
 "i9506"
+                                                                               
 "i9504"
+                                                                               
 "i9502"
+                                                                               
 "i9500"
+                                                                               
 "i9498"
+                                                                               
 "i9496"
+                                                                               
 "i9494"
+                                                                               
 "i9492"
+                                                                               
 "i9490"
+                                                                               
 "i9488"
+                                                                               
 "i9486"
+                                                                               
 "i9484"
+                                                                               
 "i9482"
+                                                                               
 "i9480"
+                                                                               
 "i9478"
+                                                                               
 "i9476"
+                                                                               
 "i9474"
+                                                                               
 "i9472"
+                                                                               
 "i9470"
+                                                                               
 "i9468"
+                                                                               
 "i9466"
+                                                                               
 "i9464"
+                                                                               
 "i9462"
+                                                                               
 "i9460"
+                                                                               
 "i9458"
+                                                                               
 "i9457"
+                                                                               
 "i9456"
+                                                                               
 "i9454"
+                                                                               
 "i9453"
+                                                                               
 "i9452"
+                                                                               
 "i9451"
+                                                                               
 "i9450"
+                                                                               
 "i9448"
+                                                                               
 "i9446"
+                                                                               
 "i9444"
+                                                                               
 "i9442"
+                                                                               
 "i9440"
+                                                                               
 "i9438"
+                                                                               
 "i9436"
+                                                                               
 "i9434"
+                                                                               
 "i9431"
+                                                                               
 "i9429"
+                                                                               
 "i9428"
+                                                                               
 "i9427"
+                                                                               
 "i9426"
+                                                                               
 "i9425"
+                                                                               
 "i9424"
+                                                                               
 "i9422"
+                                                                               
 "i9420"
+                                                                               
 "i9418"
+                                                                               
 "i9416"
+                                                                               
 "i9415"
+                                                                               
 "i9413"
+                                                                               
 "i9411"
+                                                                               
 "i9409"
+                                                                               
 "i9407"
+                                                                               
 "i9405"
+                                                                               
 "i9403"
+                                                                               
 "i9401"
+                                                                               
 "i9400"
+                                                                               
 "i9398"
+                                                                               
 "i9396"
+                                                                               
 "i9395"
+                                                                               
 "i9394"
+                                                                               
 "i9392"
+                                                                               
 "i9391"
+                                                                               
 "i9389"
+                                                                               
 "i9387"
+                                                                               
 "i9385"
+                                                                               
 "i9383"
+                                                                               
 "i9381"
+                                                                               
 "i9379"
+                                                                               
 "i9377"
+                                                                               
 "i9375"
+                                                                               
 "i9373"
+                                                                               
 "i9371"
+                                                                               
 "i9369"
+                                                                               
 "i9367"
+                                                                               
 "i9365"
+                                                                               
 "i9363"
+                                                                               
 "i9361"
+                                                                               
 "i9359"
+                                                                               
 "i9357"
+                                                                               
 "i9355"
+                                                                               
 "i9353"
+                                                                               
 "i9351"
+                                                                               
 "i9349"
+                                                                               
 "i9347"
+                                                                               
 "i9345"
+                                                                               
 "i9343"
+                                                                               
 "i9341"
+                                                                               
 "i9339"
+                                                                               
 "i9337"
+                                                                               
 "i9335"
+                                                                               
 "i9333"
+                                                                               
 "i9331"
+                                                                               
 "i9329"
+                                                                               
 "i9328"
+                                                                               
 "i9326"
+                                                                               
 "i9324"
+                                                                               
 "i9322"
+                                                                               
 "i9320"
+                                                                               
 "i9318"
+                                                                               
 "i9316"
+                                                                               
 "i9314"
+                                                                               
 "i9312"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i61"
-                                                                               
 "i59")))
+                                                                               
("i9215"
+                                                                               
 "i9213")))
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
1636}#
-                                                                        #{mod\ 
1638}#))
-                                                                    #{tmp\ 
1730}#)
+                                                                        #{s\ 
10790}#
+                                                                        #{mod\ 
10792}#))
+                                                                    #{tmp\ 
10884}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 1691}#)))
+                                                               #{tmp\ 
10845}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 1691}#
+                                                           #{tmp\ 10845}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 1691}#
+                                                      #{tmp\ 10845}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 1691}#
+                                                 #{tmp\ 10845}#
                                                  '(any any any))))
-                                            #{e\ 1633}#)
-                                           (if (memv #{ftype\ 1665}#
+                                            #{e\ 10787}#)
+                                           (if (memv #{ftype\ 10819}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 1741}#)
-                                                ((lambda (#{tmp\ 1742}#)
-                                                   (if (if #{tmp\ 1742}#
-                                                         (apply (lambda (#{_\ 
1746}#
-                                                                         
#{name\ 1747}#
-                                                                         
#{val\ 1748}#)
-                                                                  (#{id?\ 260}#
-                                                                    #{name\ 
1747}#))
-                                                                #{tmp\ 1742}#)
+                                             ((lambda (#{tmp\ 10895}#)
+                                                ((lambda (#{tmp\ 10896}#)
+                                                   (if (if #{tmp\ 10896}#
+                                                         (apply (lambda (#{_\ 
10900}#
+                                                                         
#{name\ 10901}#
+                                                                         
#{val\ 10902}#)
+                                                                  (#{id?\ 
9414}#
+                                                                    #{name\ 
10901}#))
+                                                                #{tmp\ 10896}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 
1752}#
-                                                                     #{name\ 
1753}#
-                                                                     #{val\ 
1754}#)
+                                                     (apply (lambda (#{_\ 
10906}#
+                                                                     #{name\ 
10907}#
+                                                                     #{val\ 
10908}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 1753}#
-                                                                #{val\ 1754}#
-                                                                #{w\ 1635}#
-                                                                #{s\ 1636}#
-                                                                #{mod\ 1638}#))
-                                                            #{tmp\ 1742}#)
+                                                                #{name\ 10907}#
+                                                                #{val\ 10908}#
+                                                                #{w\ 10789}#
+                                                                #{s\ 10790}#
+                                                                #{mod\ 
10792}#))
+                                                            #{tmp\ 10896}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 1741}#)))
+                                                       #{tmp\ 10895}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 1741}#
+                                                   #{tmp\ 10895}#
                                                    '(any any any))))
-                                              #{e\ 1633}#)
+                                              #{e\ 10787}#)
                                              (values
                                                'call
                                                #f
-                                               #{e\ 1633}#
-                                               #{w\ 1635}#
-                                               #{s\ 1636}#
-                                               #{mod\ 1638}#))))))))))))))
-                   (if (#{syntax-object?\ 224}# #{e\ 1633}#)
-                     (#{syntax-type\ 341}#
-                       (#{syntax-object-expression\ 226}# #{e\ 1633}#)
-                       #{r\ 1634}#
-                       (#{join-wraps\ 311}#
-                         #{w\ 1635}#
-                         (#{syntax-object-wrap\ 228}# #{e\ 1633}#))
-                       #{s\ 1636}#
-                       #{rib\ 1637}#
-                       (let ((#{t\ 1760}#
-                               (#{syntax-object-module\ 230}# #{e\ 1633}#)))
-                         (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#))
-                       #{for-car?\ 1639}#)
-                     (if (self-evaluating? #{e\ 1633}#)
+                                               #{e\ 10787}#
+                                               #{w\ 10789}#
+                                               #{s\ 10790}#
+                                               #{mod\ 10792}#))))))))))))))
+                   (if (#{syntax-object?\ 9378}# #{e\ 10787}#)
+                     (#{syntax-type\ 9495}#
+                       (#{syntax-object-expression\ 9380}# #{e\ 10787}#)
+                       #{r\ 10788}#
+                       (#{join-wraps\ 9465}#
+                         #{w\ 10789}#
+                         (#{syntax-object-wrap\ 9382}# #{e\ 10787}#))
+                       #{s\ 10790}#
+                       #{rib\ 10791}#
+                       (let ((#{t\ 10914}#
+                               (#{syntax-object-module\ 9384}# #{e\ 10787}#)))
+                         (if #{t\ 10914}# #{t\ 10914}# #{mod\ 10792}#))
+                       #{for-car?\ 10793}#)
+                     (if (self-evaluating? #{e\ 10787}#)
                        (values
                          'constant
                          #f
-                         #{e\ 1633}#
-                         #{w\ 1635}#
-                         #{s\ 1636}#
-                         #{mod\ 1638}#)
+                         #{e\ 10787}#
+                         #{w\ 10789}#
+                         #{s\ 10790}#
+                         #{mod\ 10792}#)
                        (values
                          'other
                          #f
-                         #{e\ 1633}#
-                         #{w\ 1635}#
-                         #{s\ 1636}#
-                         #{mod\ 1638}#)))))))
-           (#{chi-when-list\ 339}#
-             (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#)
-               (letrec ((#{f\ 1774}#
-                          (lambda (#{when-list\ 1775}# #{situations\ 1776}#)
-                            (if (null? #{when-list\ 1775}#)
-                              #{situations\ 1776}#
-                              (#{f\ 1774}#
-                                (cdr #{when-list\ 1775}#)
-                                (cons (let ((#{x\ 1778}#
-                                              (car #{when-list\ 1775}#)))
-                                        (if (#{free-id=?\ 319}#
-                                              #{x\ 1778}#
+                         #{e\ 10787}#
+                         #{w\ 10789}#
+                         #{s\ 10790}#
+                         #{mod\ 10792}#)))))))
+           (#{chi-when-list\ 9493}#
+             (lambda (#{e\ 10919}# #{when-list\ 10920}# #{w\ 10921}#)
+               (letrec ((#{f\ 10928}#
+                          (lambda (#{when-list\ 10929}# #{situations\ 10930}#)
+                            (if (null? #{when-list\ 10929}#)
+                              #{situations\ 10930}#
+                              (#{f\ 10928}#
+                                (cdr #{when-list\ 10929}#)
+                                (cons (let ((#{x\ 10932}#
+                                              (car #{when-list\ 10929}#)))
+                                        (if (#{free-id=?\ 9473}#
+                                              #{x\ 10932}#
                                               '#(syntax-object
                                                  compile
                                                  ((top)
@@ -5451,17 +5467,21 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i1777"))
+                                                    #("i10931"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i1771" "i1772" "i1773"))
+                                                    #("i10925"
+                                                      "i10926"
+                                                      "i10927"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i1768" "i1769" "i1770"))
+                                                    #("i10922"
+                                                      "i10923"
+                                                      "i10924"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -5697,131 +5717,131 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i374"
-                                                     "i372"
-                                                     "i370"
-                                                     "i368"
-                                                     "i366"
-                                                     "i364"
-                                                     "i362"
-                                                     "i360"
-                                                     "i358"
-                                                     "i356"
-                                                     "i354"
-                                                     "i352"
-                                                     "i350"
-                                                     "i348"
-                                                     "i346"
-                                                     "i344"
-                                                     "i342"
-                                                     "i340"
-                                                     "i338"
-                                                     "i336"
-                                                     "i334"
-                                                     "i332"
-                                                     "i330"
-                                                     "i328"
-                                                     "i326"
-                                                     "i324"
-                                                     "i322"
-                                                     "i320"
-                                                     "i318"
-                                                     "i316"
-                                                     "i314"
-                                                     "i312"
-                                                     "i310"
-                                                     "i308"
-                                                     "i306"
-                                                     "i304"
-                                                     "i303"
-                                                     "i302"
-                                                     "i300"
-                                                     "i299"
-                                                     "i298"
-                                                     "i297"
-                                                     "i296"
-                                                     "i294"
-                                                     "i292"
-                                                     "i290"
-                                                     "i288"
-                                                     "i286"
-                                                     "i284"
-                                                     "i282"
-                                                     "i280"
-                                                     "i277"
-                                                     "i275"
-                                                     "i274"
-                                                     "i273"
-                                                     "i272"
-                                                     "i271"
-                                                     "i270"
-                                                     "i268"
-                                                     "i266"
-                                                     "i264"
-                                                     "i262"
-                                                     "i261"
-                                                     "i259"
-                                                     "i257"
-                                                     "i255"
-                                                     "i253"
-                                                     "i251"
-                                                     "i249"
-                                                     "i247"
-                                                     "i246"
-                                                     "i244"
-                                                     "i242"
-                                                     "i241"
-                                                     "i240"
-                                                     "i238"
-                                                     "i237"
-                                                     "i235"
-                                                     "i233"
-                                                     "i231"
-                                                     "i229"
-                                                     "i227"
-                                                     "i225"
-                                                     "i223"
-                                                     "i221"
-                                                     "i219"
-                                                     "i217"
-                                                     "i215"
-                                                     "i213"
-                                                     "i211"
-                                                     "i209"
-                                                     "i207"
-                                                     "i205"
-                                                     "i203"
-                                                     "i201"
-                                                     "i199"
-                                                     "i197"
-                                                     "i195"
-                                                     "i193"
-                                                     "i191"
-                                                     "i189"
-                                                     "i187"
-                                                     "i185"
-                                                     "i183"
-                                                     "i181"
-                                                     "i179"
-                                                     "i177"
-                                                     "i175"
-                                                     "i174"
-                                                     "i172"
-                                                     "i170"
-                                                     "i168"
-                                                     "i166"
-                                                     "i164"
-                                                     "i162"
-                                                     "i160"
-                                                     "i158"))
+                                                    ("i9528"
+                                                     "i9526"
+                                                     "i9524"
+                                                     "i9522"
+                                                     "i9520"
+                                                     "i9518"
+                                                     "i9516"
+                                                     "i9514"
+                                                     "i9512"
+                                                     "i9510"
+                                                     "i9508"
+                                                     "i9506"
+                                                     "i9504"
+                                                     "i9502"
+                                                     "i9500"
+                                                     "i9498"
+                                                     "i9496"
+                                                     "i9494"
+                                                     "i9492"
+                                                     "i9490"
+                                                     "i9488"
+                                                     "i9486"
+                                                     "i9484"
+                                                     "i9482"
+                                                     "i9480"
+                                                     "i9478"
+                                                     "i9476"
+                                                     "i9474"
+                                                     "i9472"
+                                                     "i9470"
+                                                     "i9468"
+                                                     "i9466"
+                                                     "i9464"
+                                                     "i9462"
+                                                     "i9460"
+                                                     "i9458"
+                                                     "i9457"
+                                                     "i9456"
+                                                     "i9454"
+                                                     "i9453"
+                                                     "i9452"
+                                                     "i9451"
+                                                     "i9450"
+                                                     "i9448"
+                                                     "i9446"
+                                                     "i9444"
+                                                     "i9442"
+                                                     "i9440"
+                                                     "i9438"
+                                                     "i9436"
+                                                     "i9434"
+                                                     "i9431"
+                                                     "i9429"
+                                                     "i9428"
+                                                     "i9427"
+                                                     "i9426"
+                                                     "i9425"
+                                                     "i9424"
+                                                     "i9422"
+                                                     "i9420"
+                                                     "i9418"
+                                                     "i9416"
+                                                     "i9415"
+                                                     "i9413"
+                                                     "i9411"
+                                                     "i9409"
+                                                     "i9407"
+                                                     "i9405"
+                                                     "i9403"
+                                                     "i9401"
+                                                     "i9400"
+                                                     "i9398"
+                                                     "i9396"
+                                                     "i9395"
+                                                     "i9394"
+                                                     "i9392"
+                                                     "i9391"
+                                                     "i9389"
+                                                     "i9387"
+                                                     "i9385"
+                                                     "i9383"
+                                                     "i9381"
+                                                     "i9379"
+                                                     "i9377"
+                                                     "i9375"
+                                                     "i9373"
+                                                     "i9371"
+                                                     "i9369"
+                                                     "i9367"
+                                                     "i9365"
+                                                     "i9363"
+                                                     "i9361"
+                                                     "i9359"
+                                                     "i9357"
+                                                     "i9355"
+                                                     "i9353"
+                                                     "i9351"
+                                                     "i9349"
+                                                     "i9347"
+                                                     "i9345"
+                                                     "i9343"
+                                                     "i9341"
+                                                     "i9339"
+                                                     "i9337"
+                                                     "i9335"
+                                                     "i9333"
+                                                     "i9331"
+                                                     "i9329"
+                                                     "i9328"
+                                                     "i9326"
+                                                     "i9324"
+                                                     "i9322"
+                                                     "i9320"
+                                                     "i9318"
+                                                     "i9316"
+                                                     "i9314"
+                                                     "i9312"))
                                                   #(ribcage
                                                     (define-structure and-map*)
                                                     ((top) (top))
-                                                    ("i61" "i59")))
+                                                    ("i9215" "i9213")))
                                                  (hygiene guile)))
                                           'compile
-                                          (if (#{free-id=?\ 319}#
-                                                #{x\ 1778}#
+                                          (if (#{free-id=?\ 9473}#
+                                                #{x\ 10932}#
                                                 '#(syntax-object
                                                    load
                                                    ((top)
@@ -5831,21 +5851,21 @@
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i1777"))
+                                                      #("i10931"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f when-list situations)
                                                       #((top) (top) (top))
-                                                      #("i1771"
-                                                        "i1772"
-                                                        "i1773"))
+                                                      #("i10925"
+                                                        "i10926"
+                                                        "i10927"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e when-list w)
                                                       #((top) (top) (top))
-                                                      #("i1768"
-                                                        "i1769"
-                                                        "i1770"))
+                                                      #("i10922"
+                                                        "i10923"
+                                                        "i10924"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -6081,132 +6101,132 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i374"
-                                                       "i372"
-                                                       "i370"
-                                                       "i368"
-                                                       "i366"
-                                                       "i364"
-                                                       "i362"
-                                                       "i360"
-                                                       "i358"
-                                                       "i356"
-                                                       "i354"
-                                                       "i352"
-                                                       "i350"
-                                                       "i348"
-                                                       "i346"
-                                                       "i344"
-                                                       "i342"
-                                                       "i340"
-                                                       "i338"
-                                                       "i336"
-                                                       "i334"
-                                                       "i332"
-                                                       "i330"
-                                                       "i328"
-                                                       "i326"
-                                                       "i324"
-                                                       "i322"
-                                                       "i320"
-                                                       "i318"
-                                                       "i316"
-                                                       "i314"
-                                                       "i312"
-                                                       "i310"
-                                                       "i308"
-                                                       "i306"
-                                                       "i304"
-                                                       "i303"
-                                                       "i302"
-                                                       "i300"
-                                                       "i299"
-                                                       "i298"
-                                                       "i297"
-                                                       "i296"
-                                                       "i294"
-                                                       "i292"
-                                                       "i290"
-                                                       "i288"
-                                                       "i286"
-                                                       "i284"
-                                                       "i282"
-                                                       "i280"
-                                                       "i277"
-                                                       "i275"
-                                                       "i274"
-                                                       "i273"
-                                                       "i272"
-                                                       "i271"
-                                                       "i270"
-                                                       "i268"
-                                                       "i266"
-                                                       "i264"
-                                                       "i262"
-                                                       "i261"
-                                                       "i259"
-                                                       "i257"
-                                                       "i255"
-                                                       "i253"
-                                                       "i251"
-                                                       "i249"
-                                                       "i247"
-                                                       "i246"
-                                                       "i244"
-                                                       "i242"
-                                                       "i241"
-                                                       "i240"
-                                                       "i238"
-                                                       "i237"
-                                                       "i235"
-                                                       "i233"
-                                                       "i231"
-                                                       "i229"
-                                                       "i227"
-                                                       "i225"
-                                                       "i223"
-                                                       "i221"
-                                                       "i219"
-                                                       "i217"
-                                                       "i215"
-                                                       "i213"
-                                                       "i211"
-                                                       "i209"
-                                                       "i207"
-                                                       "i205"
-                                                       "i203"
-                                                       "i201"
-                                                       "i199"
-                                                       "i197"
-                                                       "i195"
-                                                       "i193"
-                                                       "i191"
-                                                       "i189"
-                                                       "i187"
-                                                       "i185"
-                                                       "i183"
-                                                       "i181"
-                                                       "i179"
-                                                       "i177"
-                                                       "i175"
-                                                       "i174"
-                                                       "i172"
-                                                       "i170"
-                                                       "i168"
-                                                       "i166"
-                                                       "i164"
-                                                       "i162"
-                                                       "i160"
-                                                       "i158"))
+                                                      ("i9528"
+                                                       "i9526"
+                                                       "i9524"
+                                                       "i9522"
+                                                       "i9520"
+                                                       "i9518"
+                                                       "i9516"
+                                                       "i9514"
+                                                       "i9512"
+                                                       "i9510"
+                                                       "i9508"
+                                                       "i9506"
+                                                       "i9504"
+                                                       "i9502"
+                                                       "i9500"
+                                                       "i9498"
+                                                       "i9496"
+                                                       "i9494"
+                                                       "i9492"
+                                                       "i9490"
+                                                       "i9488"
+                                                       "i9486"
+                                                       "i9484"
+                                                       "i9482"
+                                                       "i9480"
+                                                       "i9478"
+                                                       "i9476"
+                                                       "i9474"
+                                                       "i9472"
+                                                       "i9470"
+                                                       "i9468"
+                                                       "i9466"
+                                                       "i9464"
+                                                       "i9462"
+                                                       "i9460"
+                                                       "i9458"
+                                                       "i9457"
+                                                       "i9456"
+                                                       "i9454"
+                                                       "i9453"
+                                                       "i9452"
+                                                       "i9451"
+                                                       "i9450"
+                                                       "i9448"
+                                                       "i9446"
+                                                       "i9444"
+                                                       "i9442"
+                                                       "i9440"
+                                                       "i9438"
+                                                       "i9436"
+                                                       "i9434"
+                                                       "i9431"
+                                                       "i9429"
+                                                       "i9428"
+                                                       "i9427"
+                                                       "i9426"
+                                                       "i9425"
+                                                       "i9424"
+                                                       "i9422"
+                                                       "i9420"
+                                                       "i9418"
+                                                       "i9416"
+                                                       "i9415"
+                                                       "i9413"
+                                                       "i9411"
+                                                       "i9409"
+                                                       "i9407"
+                                                       "i9405"
+                                                       "i9403"
+                                                       "i9401"
+                                                       "i9400"
+                                                       "i9398"
+                                                       "i9396"
+                                                       "i9395"
+                                                       "i9394"
+                                                       "i9392"
+                                                       "i9391"
+                                                       "i9389"
+                                                       "i9387"
+                                                       "i9385"
+                                                       "i9383"
+                                                       "i9381"
+                                                       "i9379"
+                                                       "i9377"
+                                                       "i9375"
+                                                       "i9373"
+                                                       "i9371"
+                                                       "i9369"
+                                                       "i9367"
+                                                       "i9365"
+                                                       "i9363"
+                                                       "i9361"
+                                                       "i9359"
+                                                       "i9357"
+                                                       "i9355"
+                                                       "i9353"
+                                                       "i9351"
+                                                       "i9349"
+                                                       "i9347"
+                                                       "i9345"
+                                                       "i9343"
+                                                       "i9341"
+                                                       "i9339"
+                                                       "i9337"
+                                                       "i9335"
+                                                       "i9333"
+                                                       "i9331"
+                                                       "i9329"
+                                                       "i9328"
+                                                       "i9326"
+                                                       "i9324"
+                                                       "i9322"
+                                                       "i9320"
+                                                       "i9318"
+                                                       "i9316"
+                                                       "i9314"
+                                                       "i9312"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i61" "i59")))
+                                                      ("i9215" "i9213")))
                                                    (hygiene guile)))
                                             'load
-                                            (if (#{free-id=?\ 319}#
-                                                  #{x\ 1778}#
+                                            (if (#{free-id=?\ 9473}#
+                                                  #{x\ 10932}#
                                                   '#(syntax-object
                                                      eval
                                                      ((top)
@@ -6216,23 +6236,23 @@
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i1777"))
+                                                        #("i10931"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(f
                                                           when-list
                                                           situations)
                                                         #((top) (top) (top))
-                                                        #("i1771"
-                                                          "i1772"
-                                                          "i1773"))
+                                                        #("i10925"
+                                                          "i10926"
+                                                          "i10927"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(e when-list w)
                                                         #((top) (top) (top))
-                                                        #("i1768"
-                                                          "i1769"
-                                                          "i1770"))
+                                                        #("i10922"
+                                                          "i10923"
+                                                          "i10924"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -6468,1044 +6488,1030 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                        ("i374"
-                                                         "i372"
-                                                         "i370"
-                                                         "i368"
-                                                         "i366"
-                                                         "i364"
-                                                         "i362"
-                                                         "i360"
-                                                         "i358"
-                                                         "i356"
-                                                         "i354"
-                                                         "i352"
-                                                         "i350"
-                                                         "i348"
-                                                         "i346"
-                                                         "i344"
-                                                         "i342"
-                                                         "i340"
-                                                         "i338"
-                                                         "i336"
-                                                         "i334"
-                                                         "i332"
-                                                         "i330"
-                                                         "i328"
-                                                         "i326"
-                                                         "i324"
-                                                         "i322"
-                                                         "i320"
-                                                         "i318"
-                                                         "i316"
-                                                         "i314"
-                                                         "i312"
-                                                         "i310"
-                                                         "i308"
-                                                         "i306"
-                                                         "i304"
-                                                         "i303"
-                                                         "i302"
-                                                         "i300"
-                                                         "i299"
-                                                         "i298"
-                                                         "i297"
-                                                         "i296"
-                                                         "i294"
-                                                         "i292"
-                                                         "i290"
-                                                         "i288"
-                                                         "i286"
-                                                         "i284"
-                                                         "i282"
-                                                         "i280"
-                                                         "i277"
-                                                         "i275"
-                                                         "i274"
-                                                         "i273"
-                                                         "i272"
-                                                         "i271"
-                                                         "i270"
-                                                         "i268"
-                                                         "i266"
-                                                         "i264"
-                                                         "i262"
-                                                         "i261"
-                                                         "i259"
-                                                         "i257"
-                                                         "i255"
-                                                         "i253"
-                                                         "i251"
-                                                         "i249"
-                                                         "i247"
-                                                         "i246"
-                                                         "i244"
-                                                         "i242"
-                                                         "i241"
-                                                         "i240"
-                                                         "i238"
-                                                         "i237"
-                                                         "i235"
-                                                         "i233"
-                                                         "i231"
-                                                         "i229"
-                                                         "i227"
-                                                         "i225"
-                                                         "i223"
-                                                         "i221"
-                                                         "i219"
-                                                         "i217"
-                                                         "i215"
-                                                         "i213"
-                                                         "i211"
-                                                         "i209"
-                                                         "i207"
-                                                         "i205"
-                                                         "i203"
-                                                         "i201"
-                                                         "i199"
-                                                         "i197"
-                                                         "i195"
-                                                         "i193"
-                                                         "i191"
-                                                         "i189"
-                                                         "i187"
-                                                         "i185"
-                                                         "i183"
-                                                         "i181"
-                                                         "i179"
-                                                         "i177"
-                                                         "i175"
-                                                         "i174"
-                                                         "i172"
-                                                         "i170"
-                                                         "i168"
-                                                         "i166"
-                                                         "i164"
-                                                         "i162"
-                                                         "i160"
-                                                         "i158"))
+                                                        ("i9528"
+                                                         "i9526"
+                                                         "i9524"
+                                                         "i9522"
+                                                         "i9520"
+                                                         "i9518"
+                                                         "i9516"
+                                                         "i9514"
+                                                         "i9512"
+                                                         "i9510"
+                                                         "i9508"
+                                                         "i9506"
+                                                         "i9504"
+                                                         "i9502"
+                                                         "i9500"
+                                                         "i9498"
+                                                         "i9496"
+                                                         "i9494"
+                                                         "i9492"
+                                                         "i9490"
+                                                         "i9488"
+                                                         "i9486"
+                                                         "i9484"
+                                                         "i9482"
+                                                         "i9480"
+                                                         "i9478"
+                                                         "i9476"
+                                                         "i9474"
+                                                         "i9472"
+                                                         "i9470"
+                                                         "i9468"
+                                                         "i9466"
+                                                         "i9464"
+                                                         "i9462"
+                                                         "i9460"
+                                                         "i9458"
+                                                         "i9457"
+                                                         "i9456"
+                                                         "i9454"
+                                                         "i9453"
+                                                         "i9452"
+                                                         "i9451"
+                                                         "i9450"
+                                                         "i9448"
+                                                         "i9446"
+                                                         "i9444"
+                                                         "i9442"
+                                                         "i9440"
+                                                         "i9438"
+                                                         "i9436"
+                                                         "i9434"
+                                                         "i9431"
+                                                         "i9429"
+                                                         "i9428"
+                                                         "i9427"
+                                                         "i9426"
+                                                         "i9425"
+                                                         "i9424"
+                                                         "i9422"
+                                                         "i9420"
+                                                         "i9418"
+                                                         "i9416"
+                                                         "i9415"
+                                                         "i9413"
+                                                         "i9411"
+                                                         "i9409"
+                                                         "i9407"
+                                                         "i9405"
+                                                         "i9403"
+                                                         "i9401"
+                                                         "i9400"
+                                                         "i9398"
+                                                         "i9396"
+                                                         "i9395"
+                                                         "i9394"
+                                                         "i9392"
+                                                         "i9391"
+                                                         "i9389"
+                                                         "i9387"
+                                                         "i9385"
+                                                         "i9383"
+                                                         "i9381"
+                                                         "i9379"
+                                                         "i9377"
+                                                         "i9375"
+                                                         "i9373"
+                                                         "i9371"
+                                                         "i9369"
+                                                         "i9367"
+                                                         "i9365"
+                                                         "i9363"
+                                                         "i9361"
+                                                         "i9359"
+                                                         "i9357"
+                                                         "i9355"
+                                                         "i9353"
+                                                         "i9351"
+                                                         "i9349"
+                                                         "i9347"
+                                                         "i9345"
+                                                         "i9343"
+                                                         "i9341"
+                                                         "i9339"
+                                                         "i9337"
+                                                         "i9335"
+                                                         "i9333"
+                                                         "i9331"
+                                                         "i9329"
+                                                         "i9328"
+                                                         "i9326"
+                                                         "i9324"
+                                                         "i9322"
+                                                         "i9320"
+                                                         "i9318"
+                                                         "i9316"
+                                                         "i9314"
+                                                         "i9312"))
                                                       #(ribcage
                                                         (define-structure
                                                           and-map*)
                                                         ((top) (top))
-                                                        ("i61" "i59")))
+                                                        ("i9215" "i9213")))
                                                      (hygiene guile)))
                                               'eval
                                               (syntax-violation
                                                 'eval-when
                                                 "invalid situation"
-                                                #{e\ 1765}#
-                                                (#{wrap\ 329}#
-                                                  #{x\ 1778}#
-                                                  #{w\ 1767}#
+                                                #{e\ 10919}#
+                                                (#{wrap\ 9483}#
+                                                  #{x\ 10932}#
+                                                  #{w\ 10921}#
                                                   #f))))))
-                                      #{situations\ 1776}#))))))
-                 (#{f\ 1774}# #{when-list\ 1766}# (quote ())))))
-           (#{chi-install-global\ 337}#
-             (lambda (#{name\ 1786}# #{e\ 1787}#)
-               (#{build-global-definition\ 200}#
+                                      #{situations\ 10930}#))))))
+                 (#{f\ 10928}# #{when-list\ 10920}# (quote ())))))
+           (#{chi-install-global\ 9491}#
+             (lambda (#{name\ 10940}# #{e\ 10941}#)
+               (#{build-global-definition\ 9354}#
                  #f
-                 #{name\ 1786}#
-                 (if (let ((#{v\ 1792}#
-                             (module-variable
-                               (current-module)
-                               #{name\ 1786}#)))
-                       (if #{v\ 1792}#
-                         (if (variable-bound? #{v\ 1792}#)
-                           (if (macro? (variable-ref #{v\ 1792}#))
-                             (not (eq? (macro-type (variable-ref #{v\ 1792}#))
-                                       'syncase-macro))
-                             #f)
-                           #f)
-                         #f))
-                   (#{build-application\ 184}#
-                     #f
-                     (#{build-primref\ 208}#
-                       #f
-                       'make-extended-syncase-macro)
-                     (list (#{build-application\ 184}#
-                             #f
-                             (#{build-primref\ 208}# #f (quote module-ref))
-                             (list (#{build-application\ 184}#
-                                     #f
-                                     (#{build-primref\ 208}#
-                                       #f
-                                       'current-module)
-                                     '())
-                                   (#{build-data\ 210}# #f #{name\ 1786}#)))
-                           (#{build-data\ 210}# #f (quote macro))
-                           (#{build-application\ 184}#
-                             #f
-                             (#{build-primref\ 208}# #f (quote cons))
-                             (list #{e\ 1787}#
-                                   (#{build-application\ 184}#
-                                     #f
-                                     (#{build-primref\ 208}#
-                                       #f
-                                       'module-name)
-                                     (list (#{build-application\ 184}#
-                                             #f
-                                             (#{build-primref\ 208}#
-                                               #f
-                                               'current-module)
-                                             '())))))))
-                   (#{build-application\ 184}#
+                 #{name\ 10940}#
+                 (#{build-application\ 9338}#
+                   #f
+                   (#{build-primref\ 9362}#
                      #f
-                     (#{build-primref\ 208}#
-                       #f
-                       'make-syncase-macro)
-                     (list (#{build-data\ 210}# #f (quote macro))
-                           (#{build-application\ 184}#
-                             #f
-                             (#{build-primref\ 208}# #f (quote cons))
-                             (list #{e\ 1787}#
-                                   (#{build-application\ 184}#
+                     'make-syntax-transformer)
+                   (list (#{build-data\ 9364}# #f #{name\ 10940}#)
+                         (#{build-data\ 9364}# #f (quote macro))
+                         (#{build-application\ 9338}#
+                           #f
+                           (#{build-primref\ 9362}# #f (quote cons))
+                           (list #{e\ 10941}#
+                                 (#{build-application\ 9338}#
+                                   #f
+                                   (#{build-primref\ 9362}#
                                      #f
-                                     (#{build-primref\ 208}#
-                                       #f
-                                       'module-name)
-                                     (list (#{build-application\ 184}#
+                                     'module-name)
+                                   (list (#{build-application\ 9338}#
+                                           #f
+                                           (#{build-primref\ 9362}#
                                              #f
-                                             (#{build-primref\ 208}#
-                                               #f
-                                               'current-module)
-                                             '())))))))))))
-           (#{chi-top-sequence\ 335}#
-             (lambda (#{body\ 1820}#
-                      #{r\ 1821}#
-                      #{w\ 1822}#
-                      #{s\ 1823}#
-                      #{m\ 1824}#
-                      #{esew\ 1825}#
-                      #{mod\ 1826}#)
-               (#{build-sequence\ 212}#
-                 #{s\ 1823}#
-                 (letrec ((#{dobody\ 1841}#
-                            (lambda (#{body\ 1842}#
-                                     #{r\ 1843}#
-                                     #{w\ 1844}#
-                                     #{m\ 1845}#
-                                     #{esew\ 1846}#
-                                     #{mod\ 1847}#)
-                              (if (null? #{body\ 1842}#)
+                                             'current-module)
+                                           '()))))))))))
+           (#{chi-top-sequence\ 9489}#
+             (lambda (#{body\ 10955}#
+                      #{r\ 10956}#
+                      #{w\ 10957}#
+                      #{s\ 10958}#
+                      #{m\ 10959}#
+                      #{esew\ 10960}#
+                      #{mod\ 10961}#)
+               (#{build-sequence\ 9366}#
+                 #{s\ 10958}#
+                 (letrec ((#{dobody\ 10976}#
+                            (lambda (#{body\ 10977}#
+                                     #{r\ 10978}#
+                                     #{w\ 10979}#
+                                     #{m\ 10980}#
+                                     #{esew\ 10981}#
+                                     #{mod\ 10982}#)
+                              (if (null? #{body\ 10977}#)
                                 '()
-                                (let ((#{first\ 1849}#
-                                        (#{chi-top\ 343}#
-                                          (car #{body\ 1842}#)
-                                          #{r\ 1843}#
-                                          #{w\ 1844}#
-                                          #{m\ 1845}#
-                                          #{esew\ 1846}#
-                                          #{mod\ 1847}#)))
-                                  (cons #{first\ 1849}#
-                                        (#{dobody\ 1841}#
-                                          (cdr #{body\ 1842}#)
-                                          #{r\ 1843}#
-                                          #{w\ 1844}#
-                                          #{m\ 1845}#
-                                          #{esew\ 1846}#
-                                          #{mod\ 1847}#)))))))
-                   (#{dobody\ 1841}#
-                     #{body\ 1820}#
-                     #{r\ 1821}#
-                     #{w\ 1822}#
-                     #{m\ 1824}#
-                     #{esew\ 1825}#
-                     #{mod\ 1826}#)))))
-           (#{chi-sequence\ 333}#
-             (lambda (#{body\ 1850}#
-                      #{r\ 1851}#
-                      #{w\ 1852}#
-                      #{s\ 1853}#
-                      #{mod\ 1854}#)
-               (#{build-sequence\ 212}#
-                 #{s\ 1853}#
-                 (letrec ((#{dobody\ 1865}#
-                            (lambda (#{body\ 1866}#
-                                     #{r\ 1867}#
-                                     #{w\ 1868}#
-                                     #{mod\ 1869}#)
-                              (if (null? #{body\ 1866}#)
+                                (let ((#{first\ 10984}#
+                                        (#{chi-top\ 9497}#
+                                          (car #{body\ 10977}#)
+                                          #{r\ 10978}#
+                                          #{w\ 10979}#
+                                          #{m\ 10980}#
+                                          #{esew\ 10981}#
+                                          #{mod\ 10982}#)))
+                                  (cons #{first\ 10984}#
+                                        (#{dobody\ 10976}#
+                                          (cdr #{body\ 10977}#)
+                                          #{r\ 10978}#
+                                          #{w\ 10979}#
+                                          #{m\ 10980}#
+                                          #{esew\ 10981}#
+                                          #{mod\ 10982}#)))))))
+                   (#{dobody\ 10976}#
+                     #{body\ 10955}#
+                     #{r\ 10956}#
+                     #{w\ 10957}#
+                     #{m\ 10959}#
+                     #{esew\ 10960}#
+                     #{mod\ 10961}#)))))
+           (#{chi-sequence\ 9487}#
+             (lambda (#{body\ 10985}#
+                      #{r\ 10986}#
+                      #{w\ 10987}#
+                      #{s\ 10988}#
+                      #{mod\ 10989}#)
+               (#{build-sequence\ 9366}#
+                 #{s\ 10988}#
+                 (letrec ((#{dobody\ 11000}#
+                            (lambda (#{body\ 11001}#
+                                     #{r\ 11002}#
+                                     #{w\ 11003}#
+                                     #{mod\ 11004}#)
+                              (if (null? #{body\ 11001}#)
                                 '()
-                                (let ((#{first\ 1871}#
-                                        (#{chi\ 345}#
-                                          (car #{body\ 1866}#)
-                                          #{r\ 1867}#
-                                          #{w\ 1868}#
-                                          #{mod\ 1869}#)))
-                                  (cons #{first\ 1871}#
-                                        (#{dobody\ 1865}#
-                                          (cdr #{body\ 1866}#)
-                                          #{r\ 1867}#
-                                          #{w\ 1868}#
-                                          #{mod\ 1869}#)))))))
-                   (#{dobody\ 1865}#
-                     #{body\ 1850}#
-                     #{r\ 1851}#
-                     #{w\ 1852}#
-                     #{mod\ 1854}#)))))
-           (#{source-wrap\ 331}#
-             (lambda (#{x\ 1872}#
-                      #{w\ 1873}#
-                      #{s\ 1874}#
-                      #{defmod\ 1875}#)
-               (#{wrap\ 329}#
-                 (#{decorate-source\ 180}#
-                   #{x\ 1872}#
-                   #{s\ 1874}#)
-                 #{w\ 1873}#
-                 #{defmod\ 1875}#)))
-           (#{wrap\ 329}#
-             (lambda (#{x\ 1880}# #{w\ 1881}# #{defmod\ 1882}#)
-               (if (if (null? (#{wrap-marks\ 267}# #{w\ 1881}#))
-                     (null? (#{wrap-subst\ 269}# #{w\ 1881}#))
+                                (let ((#{first\ 11006}#
+                                        (#{chi\ 9499}#
+                                          (car #{body\ 11001}#)
+                                          #{r\ 11002}#
+                                          #{w\ 11003}#
+                                          #{mod\ 11004}#)))
+                                  (cons #{first\ 11006}#
+                                        (#{dobody\ 11000}#
+                                          (cdr #{body\ 11001}#)
+                                          #{r\ 11002}#
+                                          #{w\ 11003}#
+                                          #{mod\ 11004}#)))))))
+                   (#{dobody\ 11000}#
+                     #{body\ 10985}#
+                     #{r\ 10986}#
+                     #{w\ 10987}#
+                     #{mod\ 10989}#)))))
+           (#{source-wrap\ 9485}#
+             (lambda (#{x\ 11007}#
+                      #{w\ 11008}#
+                      #{s\ 11009}#
+                      #{defmod\ 11010}#)
+               (#{wrap\ 9483}#
+                 (#{decorate-source\ 9334}#
+                   #{x\ 11007}#
+                   #{s\ 11009}#)
+                 #{w\ 11008}#
+                 #{defmod\ 11010}#)))
+           (#{wrap\ 9483}#
+             (lambda (#{x\ 11015}# #{w\ 11016}# #{defmod\ 11017}#)
+               (if (if (null? (#{wrap-marks\ 9421}# #{w\ 11016}#))
+                     (null? (#{wrap-subst\ 9423}# #{w\ 11016}#))
                      #f)
-                 #{x\ 1880}#
-                 (if (#{syntax-object?\ 224}# #{x\ 1880}#)
-                   (#{make-syntax-object\ 222}#
-                     (#{syntax-object-expression\ 226}# #{x\ 1880}#)
-                     (#{join-wraps\ 311}#
-                       #{w\ 1881}#
-                       (#{syntax-object-wrap\ 228}# #{x\ 1880}#))
-                     (#{syntax-object-module\ 230}# #{x\ 1880}#))
-                   (if (null? #{x\ 1880}#)
-                     #{x\ 1880}#
-                     (#{make-syntax-object\ 222}#
-                       #{x\ 1880}#
-                       #{w\ 1881}#
-                       #{defmod\ 1882}#))))))
-           (#{bound-id-member?\ 327}#
-             (lambda (#{x\ 1895}# #{list\ 1896}#)
-               (if (not (null? #{list\ 1896}#))
-                 (let ((#{t\ 1903}#
-                         (#{bound-id=?\ 321}#
-                           #{x\ 1895}#
-                           (car #{list\ 1896}#))))
-                   (if #{t\ 1903}#
-                     #{t\ 1903}#
-                     (#{bound-id-member?\ 327}#
-                       #{x\ 1895}#
-                       (cdr #{list\ 1896}#))))
+                 #{x\ 11015}#
+                 (if (#{syntax-object?\ 9378}# #{x\ 11015}#)
+                   (#{make-syntax-object\ 9376}#
+                     (#{syntax-object-expression\ 9380}# #{x\ 11015}#)
+                     (#{join-wraps\ 9465}#
+                       #{w\ 11016}#
+                       (#{syntax-object-wrap\ 9382}# #{x\ 11015}#))
+                     (#{syntax-object-module\ 9384}# #{x\ 11015}#))
+                   (if (null? #{x\ 11015}#)
+                     #{x\ 11015}#
+                     (#{make-syntax-object\ 9376}#
+                       #{x\ 11015}#
+                       #{w\ 11016}#
+                       #{defmod\ 11017}#))))))
+           (#{bound-id-member?\ 9481}#
+             (lambda (#{x\ 11030}# #{list\ 11031}#)
+               (if (not (null? #{list\ 11031}#))
+                 (let ((#{t\ 11038}#
+                         (#{bound-id=?\ 9475}#
+                           #{x\ 11030}#
+                           (car #{list\ 11031}#))))
+                   (if #{t\ 11038}#
+                     #{t\ 11038}#
+                     (#{bound-id-member?\ 9481}#
+                       #{x\ 11030}#
+                       (cdr #{list\ 11031}#))))
                  #f)))
-           (#{distinct-bound-ids?\ 325}#
-             (lambda (#{ids\ 1905}#)
-               (letrec ((#{distinct?\ 1909}#
-                          (lambda (#{ids\ 1910}#)
-                            (let ((#{t\ 1913}# (null? #{ids\ 1910}#)))
-                              (if #{t\ 1913}#
-                                #{t\ 1913}#
-                                (if (not (#{bound-id-member?\ 327}#
-                                           (car #{ids\ 1910}#)
-                                           (cdr #{ids\ 1910}#)))
-                                  (#{distinct?\ 1909}# (cdr #{ids\ 1910}#))
+           (#{distinct-bound-ids?\ 9479}#
+             (lambda (#{ids\ 11040}#)
+               (letrec ((#{distinct?\ 11044}#
+                          (lambda (#{ids\ 11045}#)
+                            (let ((#{t\ 11048}# (null? #{ids\ 11045}#)))
+                              (if #{t\ 11048}#
+                                #{t\ 11048}#
+                                (if (not (#{bound-id-member?\ 9481}#
+                                           (car #{ids\ 11045}#)
+                                           (cdr #{ids\ 11045}#)))
+                                  (#{distinct?\ 11044}# (cdr #{ids\ 11045}#))
                                   #f))))))
-                 (#{distinct?\ 1909}# #{ids\ 1905}#))))
-           (#{valid-bound-ids?\ 323}#
-             (lambda (#{ids\ 1917}#)
-               (if (letrec ((#{all-ids?\ 1922}#
-                              (lambda (#{ids\ 1923}#)
-                                (let ((#{t\ 1926}# (null? #{ids\ 1923}#)))
-                                  (if #{t\ 1926}#
-                                    #{t\ 1926}#
-                                    (if (#{id?\ 260}# (car #{ids\ 1923}#))
-                                      (#{all-ids?\ 1922}# (cdr #{ids\ 1923}#))
+                 (#{distinct?\ 11044}# #{ids\ 11040}#))))
+           (#{valid-bound-ids?\ 9477}#
+             (lambda (#{ids\ 11052}#)
+               (if (letrec ((#{all-ids?\ 11057}#
+                              (lambda (#{ids\ 11058}#)
+                                (let ((#{t\ 11061}# (null? #{ids\ 11058}#)))
+                                  (if #{t\ 11061}#
+                                    #{t\ 11061}#
+                                    (if (#{id?\ 9414}# (car #{ids\ 11058}#))
+                                      (#{all-ids?\ 11057}#
+                                        (cdr #{ids\ 11058}#))
                                       #f))))))
-                     (#{all-ids?\ 1922}# #{ids\ 1917}#))
-                 (#{distinct-bound-ids?\ 325}# #{ids\ 1917}#)
+                     (#{all-ids?\ 11057}# #{ids\ 11052}#))
+                 (#{distinct-bound-ids?\ 9479}# #{ids\ 11052}#)
                  #f)))
-           (#{bound-id=?\ 321}#
-             (lambda (#{i\ 1931}# #{j\ 1932}#)
-               (if (if (#{syntax-object?\ 224}# #{i\ 1931}#)
-                     (#{syntax-object?\ 224}# #{j\ 1932}#)
+           (#{bound-id=?\ 9475}#
+             (lambda (#{i\ 11066}# #{j\ 11067}#)
+               (if (if (#{syntax-object?\ 9378}# #{i\ 11066}#)
+                     (#{syntax-object?\ 9378}# #{j\ 11067}#)
                      #f)
-                 (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1931}#)
-                          (#{syntax-object-expression\ 226}# #{j\ 1932}#))
-                   (#{same-marks?\ 315}#
-                     (#{wrap-marks\ 267}#
-                       (#{syntax-object-wrap\ 228}# #{i\ 1931}#))
-                     (#{wrap-marks\ 267}#
-                       (#{syntax-object-wrap\ 228}# #{j\ 1932}#)))
+                 (if (eq? (#{syntax-object-expression\ 9380}# #{i\ 11066}#)
+                          (#{syntax-object-expression\ 9380}# #{j\ 11067}#))
+                   (#{same-marks?\ 9469}#
+                     (#{wrap-marks\ 9421}#
+                       (#{syntax-object-wrap\ 9382}# #{i\ 11066}#))
+                     (#{wrap-marks\ 9421}#
+                       (#{syntax-object-wrap\ 9382}# #{j\ 11067}#)))
                    #f)
-                 (eq? #{i\ 1931}# #{j\ 1932}#))))
-           (#{free-id=?\ 319}#
-             (lambda (#{i\ 1939}# #{j\ 1940}#)
-               (if (eq? (let ((#{x\ 1946}# #{i\ 1939}#))
-                          (if (#{syntax-object?\ 224}# #{x\ 1946}#)
-                            (#{syntax-object-expression\ 226}# #{x\ 1946}#)
-                            #{x\ 1946}#))
-                        (let ((#{x\ 1949}# #{j\ 1940}#))
-                          (if (#{syntax-object?\ 224}# #{x\ 1949}#)
-                            (#{syntax-object-expression\ 226}# #{x\ 1949}#)
-                            #{x\ 1949}#)))
-                 (eq? (#{id-var-name\ 317}# #{i\ 1939}# (quote (())))
-                      (#{id-var-name\ 317}# #{j\ 1940}# (quote (()))))
+                 (eq? #{i\ 11066}# #{j\ 11067}#))))
+           (#{free-id=?\ 9473}#
+             (lambda (#{i\ 11074}# #{j\ 11075}#)
+               (if (eq? (let ((#{x\ 11081}# #{i\ 11074}#))
+                          (if (#{syntax-object?\ 9378}# #{x\ 11081}#)
+                            (#{syntax-object-expression\ 9380}# #{x\ 11081}#)
+                            #{x\ 11081}#))
+                        (let ((#{x\ 11084}# #{j\ 11075}#))
+                          (if (#{syntax-object?\ 9378}# #{x\ 11084}#)
+                            (#{syntax-object-expression\ 9380}# #{x\ 11084}#)
+                            #{x\ 11084}#)))
+                 (eq? (#{id-var-name\ 9471}# #{i\ 11074}# (quote (())))
+                      (#{id-var-name\ 9471}# #{j\ 11075}# (quote (()))))
                  #f)))
-           (#{id-var-name\ 317}#
-             (lambda (#{id\ 1953}# #{w\ 1954}#)
-               (letrec ((#{search-vector-rib\ 1963}#
-                          (lambda (#{sym\ 1975}#
-                                   #{subst\ 1976}#
-                                   #{marks\ 1977}#
-                                   #{symnames\ 1978}#
-                                   #{ribcage\ 1979}#)
-                            (let ((#{n\ 1986}#
-                                    (vector-length #{symnames\ 1978}#)))
-                              (letrec ((#{f\ 1989}#
-                                         (lambda (#{i\ 1990}#)
-                                           (if (#{fx=\ 167}#
-                                                 #{i\ 1990}#
-                                                 #{n\ 1986}#)
-                                             (#{search\ 1959}#
-                                               #{sym\ 1975}#
-                                               (cdr #{subst\ 1976}#)
-                                               #{marks\ 1977}#)
+           (#{id-var-name\ 9471}#
+             (lambda (#{id\ 11088}# #{w\ 11089}#)
+               (letrec ((#{search-vector-rib\ 11098}#
+                          (lambda (#{sym\ 11110}#
+                                   #{subst\ 11111}#
+                                   #{marks\ 11112}#
+                                   #{symnames\ 11113}#
+                                   #{ribcage\ 11114}#)
+                            (let ((#{n\ 11121}#
+                                    (vector-length #{symnames\ 11113}#)))
+                              (letrec ((#{f\ 11124}#
+                                         (lambda (#{i\ 11125}#)
+                                           (if (#{fx=\ 9321}#
+                                                 #{i\ 11125}#
+                                                 #{n\ 11121}#)
+                                             (#{search\ 11094}#
+                                               #{sym\ 11110}#
+                                               (cdr #{subst\ 11111}#)
+                                               #{marks\ 11112}#)
                                              (if (if (eq? (vector-ref
-                                                            #{symnames\ 1978}#
-                                                            #{i\ 1990}#)
-                                                          #{sym\ 1975}#)
-                                                   (#{same-marks?\ 315}#
-                                                     #{marks\ 1977}#
+                                                            #{symnames\ 11113}#
+                                                            #{i\ 11125}#)
+                                                          #{sym\ 11110}#)
+                                                   (#{same-marks?\ 9469}#
+                                                     #{marks\ 11112}#
                                                      (vector-ref
-                                                       (#{ribcage-marks\ 287}#
-                                                         #{ribcage\ 1979}#)
-                                                       #{i\ 1990}#))
+                                                       (#{ribcage-marks\ 9441}#
+                                                         #{ribcage\ 11114}#)
+                                                       #{i\ 11125}#))
                                                    #f)
                                                (values
                                                  (vector-ref
-                                                   (#{ribcage-labels\ 289}#
-                                                     #{ribcage\ 1979}#)
-                                                   #{i\ 1990}#)
-                                                 #{marks\ 1977}#)
-                                               (#{f\ 1989}#
-                                                 (#{fx+\ 163}#
-                                                   #{i\ 1990}#
+                                                   (#{ribcage-labels\ 9443}#
+                                                     #{ribcage\ 11114}#)
+                                                   #{i\ 11125}#)
+                                                 #{marks\ 11112}#)
+                                               (#{f\ 11124}#
+                                                 (#{fx+\ 9317}#
+                                                   #{i\ 11125}#
                                                    1)))))))
-                                (#{f\ 1989}# 0)))))
-                        (#{search-list-rib\ 1961}#
-                          (lambda (#{sym\ 1998}#
-                                   #{subst\ 1999}#
-                                   #{marks\ 2000}#
-                                   #{symnames\ 2001}#
-                                   #{ribcage\ 2002}#)
-                            (letrec ((#{f\ 2011}#
-                                       (lambda (#{symnames\ 2012}# #{i\ 2013}#)
-                                         (if (null? #{symnames\ 2012}#)
-                                           (#{search\ 1959}#
-                                             #{sym\ 1998}#
-                                             (cdr #{subst\ 1999}#)
-                                             #{marks\ 2000}#)
-                                           (if (if (eq? (car #{symnames\ 
2012}#)
-                                                        #{sym\ 1998}#)
-                                                 (#{same-marks?\ 315}#
-                                                   #{marks\ 2000}#
+                                (#{f\ 11124}# 0)))))
+                        (#{search-list-rib\ 11096}#
+                          (lambda (#{sym\ 11133}#
+                                   #{subst\ 11134}#
+                                   #{marks\ 11135}#
+                                   #{symnames\ 11136}#
+                                   #{ribcage\ 11137}#)
+                            (letrec ((#{f\ 11146}#
+                                       (lambda (#{symnames\ 11147}#
+                                                #{i\ 11148}#)
+                                         (if (null? #{symnames\ 11147}#)
+                                           (#{search\ 11094}#
+                                             #{sym\ 11133}#
+                                             (cdr #{subst\ 11134}#)
+                                             #{marks\ 11135}#)
+                                           (if (if (eq? (car #{symnames\ 
11147}#)
+                                                        #{sym\ 11133}#)
+                                                 (#{same-marks?\ 9469}#
+                                                   #{marks\ 11135}#
                                                    (list-ref
-                                                     (#{ribcage-marks\ 287}#
-                                                       #{ribcage\ 2002}#)
-                                                     #{i\ 2013}#))
+                                                     (#{ribcage-marks\ 9441}#
+                                                       #{ribcage\ 11137}#)
+                                                     #{i\ 11148}#))
                                                  #f)
                                              (values
                                                (list-ref
-                                                 (#{ribcage-labels\ 289}#
-                                                   #{ribcage\ 2002}#)
-                                                 #{i\ 2013}#)
-                                               #{marks\ 2000}#)
-                                             (#{f\ 2011}#
-                                               (cdr #{symnames\ 2012}#)
-                                               (#{fx+\ 163}#
-                                                 #{i\ 2013}#
+                                                 (#{ribcage-labels\ 9443}#
+                                                   #{ribcage\ 11137}#)
+                                                 #{i\ 11148}#)
+                                               #{marks\ 11135}#)
+                                             (#{f\ 11146}#
+                                               (cdr #{symnames\ 11147}#)
+                                               (#{fx+\ 9317}#
+                                                 #{i\ 11148}#
                                                  1)))))))
-                              (#{f\ 2011}# #{symnames\ 2001}# 0))))
-                        (#{search\ 1959}#
-                          (lambda (#{sym\ 2021}#
-                                   #{subst\ 2022}#
-                                   #{marks\ 2023}#)
-                            (if (null? #{subst\ 2022}#)
-                              (values #f #{marks\ 2023}#)
-                              (let ((#{fst\ 2028}# (car #{subst\ 2022}#)))
-                                (if (eq? #{fst\ 2028}# (quote shift))
-                                  (#{search\ 1959}#
-                                    #{sym\ 2021}#
-                                    (cdr #{subst\ 2022}#)
-                                    (cdr #{marks\ 2023}#))
-                                  (let ((#{symnames\ 2030}#
-                                          (#{ribcage-symnames\ 285}#
-                                            #{fst\ 2028}#)))
-                                    (if (vector? #{symnames\ 2030}#)
-                                      (#{search-vector-rib\ 1963}#
-                                        #{sym\ 2021}#
-                                        #{subst\ 2022}#
-                                        #{marks\ 2023}#
-                                        #{symnames\ 2030}#
-                                        #{fst\ 2028}#)
-                                      (#{search-list-rib\ 1961}#
-                                        #{sym\ 2021}#
-                                        #{subst\ 2022}#
-                                        #{marks\ 2023}#
-                                        #{symnames\ 2030}#
-                                        #{fst\ 2028}#)))))))))
-                 (if (symbol? #{id\ 1953}#)
-                   (let ((#{t\ 2033}#
+                              (#{f\ 11146}# #{symnames\ 11136}# 0))))
+                        (#{search\ 11094}#
+                          (lambda (#{sym\ 11156}#
+                                   #{subst\ 11157}#
+                                   #{marks\ 11158}#)
+                            (if (null? #{subst\ 11157}#)
+                              (values #f #{marks\ 11158}#)
+                              (let ((#{fst\ 11163}# (car #{subst\ 11157}#)))
+                                (if (eq? #{fst\ 11163}# (quote shift))
+                                  (#{search\ 11094}#
+                                    #{sym\ 11156}#
+                                    (cdr #{subst\ 11157}#)
+                                    (cdr #{marks\ 11158}#))
+                                  (let ((#{symnames\ 11165}#
+                                          (#{ribcage-symnames\ 9439}#
+                                            #{fst\ 11163}#)))
+                                    (if (vector? #{symnames\ 11165}#)
+                                      (#{search-vector-rib\ 11098}#
+                                        #{sym\ 11156}#
+                                        #{subst\ 11157}#
+                                        #{marks\ 11158}#
+                                        #{symnames\ 11165}#
+                                        #{fst\ 11163}#)
+                                      (#{search-list-rib\ 11096}#
+                                        #{sym\ 11156}#
+                                        #{subst\ 11157}#
+                                        #{marks\ 11158}#
+                                        #{symnames\ 11165}#
+                                        #{fst\ 11163}#)))))))))
+                 (if (symbol? #{id\ 11088}#)
+                   (let ((#{t\ 11168}#
                            (call-with-values
                              (lambda ()
-                               (#{search\ 1959}#
-                                 #{id\ 1953}#
-                                 (#{wrap-subst\ 269}# #{w\ 1954}#)
-                                 (#{wrap-marks\ 267}# #{w\ 1954}#)))
-                             (lambda (#{x\ 2035}# . #{ignore\ 2036}#)
-                               #{x\ 2035}#))))
-                     (if #{t\ 2033}# #{t\ 2033}# #{id\ 1953}#))
-                   (if (#{syntax-object?\ 224}# #{id\ 1953}#)
-                     (let ((#{id\ 2044}#
-                             (#{syntax-object-expression\ 226}# #{id\ 1953}#))
-                           (#{w1\ 2045}#
-                             (#{syntax-object-wrap\ 228}# #{id\ 1953}#)))
-                       (let ((#{marks\ 2047}#
-                               (#{join-marks\ 313}#
-                                 (#{wrap-marks\ 267}# #{w\ 1954}#)
-                                 (#{wrap-marks\ 267}# #{w1\ 2045}#))))
+                               (#{search\ 11094}#
+                                 #{id\ 11088}#
+                                 (#{wrap-subst\ 9423}# #{w\ 11089}#)
+                                 (#{wrap-marks\ 9421}# #{w\ 11089}#)))
+                             (lambda (#{x\ 11170}# . #{ignore\ 11171}#)
+                               #{x\ 11170}#))))
+                     (if #{t\ 11168}# #{t\ 11168}# #{id\ 11088}#))
+                   (if (#{syntax-object?\ 9378}# #{id\ 11088}#)
+                     (let ((#{id\ 11179}#
+                             (#{syntax-object-expression\ 9380}#
+                               #{id\ 11088}#))
+                           (#{w1\ 11180}#
+                             (#{syntax-object-wrap\ 9382}# #{id\ 11088}#)))
+                       (let ((#{marks\ 11182}#
+                               (#{join-marks\ 9467}#
+                                 (#{wrap-marks\ 9421}# #{w\ 11089}#)
+                                 (#{wrap-marks\ 9421}# #{w1\ 11180}#))))
                          (call-with-values
                            (lambda ()
-                             (#{search\ 1959}#
-                               #{id\ 2044}#
-                               (#{wrap-subst\ 269}# #{w\ 1954}#)
-                               #{marks\ 2047}#))
-                           (lambda (#{new-id\ 2048}# #{marks\ 2049}#)
-                             (let ((#{t\ 2054}# #{new-id\ 2048}#))
-                               (if #{t\ 2054}#
-                                 #{t\ 2054}#
-                                 (let ((#{t\ 2057}#
+                             (#{search\ 11094}#
+                               #{id\ 11179}#
+                               (#{wrap-subst\ 9423}# #{w\ 11089}#)
+                               #{marks\ 11182}#))
+                           (lambda (#{new-id\ 11183}# #{marks\ 11184}#)
+                             (let ((#{t\ 11189}# #{new-id\ 11183}#))
+                               (if #{t\ 11189}#
+                                 #{t\ 11189}#
+                                 (let ((#{t\ 11192}#
                                          (call-with-values
                                            (lambda ()
-                                             (#{search\ 1959}#
-                                               #{id\ 2044}#
-                                               (#{wrap-subst\ 269}#
-                                                 #{w1\ 2045}#)
-                                               #{marks\ 2049}#))
-                                           (lambda (#{x\ 2059}#
+                                             (#{search\ 11094}#
+                                               #{id\ 11179}#
+                                               (#{wrap-subst\ 9423}#
+                                                 #{w1\ 11180}#)
+                                               #{marks\ 11184}#))
+                                           (lambda (#{x\ 11194}#
                                                     .
-                                                    #{ignore\ 2060}#)
-                                             #{x\ 2059}#))))
-                                   (if #{t\ 2057}#
-                                     #{t\ 2057}#
-                                     #{id\ 2044}#))))))))
+                                                    #{ignore\ 11195}#)
+                                             #{x\ 11194}#))))
+                                   (if #{t\ 11192}#
+                                     #{t\ 11192}#
+                                     #{id\ 11179}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 1953}#))))))
-           (#{same-marks?\ 315}#
-             (lambda (#{x\ 2065}# #{y\ 2066}#)
-               (let ((#{t\ 2071}# (eq? #{x\ 2065}# #{y\ 2066}#)))
-                 (if #{t\ 2071}#
-                   #{t\ 2071}#
-                   (if (not (null? #{x\ 2065}#))
-                     (if (not (null? #{y\ 2066}#))
-                       (if (eq? (car #{x\ 2065}#) (car #{y\ 2066}#))
-                         (#{same-marks?\ 315}#
-                           (cdr #{x\ 2065}#)
-                           (cdr #{y\ 2066}#))
+                       #{id\ 11088}#))))))
+           (#{same-marks?\ 9469}#
+             (lambda (#{x\ 11200}# #{y\ 11201}#)
+               (let ((#{t\ 11206}# (eq? #{x\ 11200}# #{y\ 11201}#)))
+                 (if #{t\ 11206}#
+                   #{t\ 11206}#
+                   (if (not (null? #{x\ 11200}#))
+                     (if (not (null? #{y\ 11201}#))
+                       (if (eq? (car #{x\ 11200}#) (car #{y\ 11201}#))
+                         (#{same-marks?\ 9469}#
+                           (cdr #{x\ 11200}#)
+                           (cdr #{y\ 11201}#))
                          #f)
                        #f)
                      #f)))))
-           (#{join-marks\ 313}#
-             (lambda (#{m1\ 2077}# #{m2\ 2078}#)
-               (#{smart-append\ 309}# #{m1\ 2077}# #{m2\ 2078}#)))
-           (#{join-wraps\ 311}#
-             (lambda (#{w1\ 2081}# #{w2\ 2082}#)
-               (let ((#{m1\ 2087}# (#{wrap-marks\ 267}# #{w1\ 2081}#))
-                     (#{s1\ 2088}# (#{wrap-subst\ 269}# #{w1\ 2081}#)))
-                 (if (null? #{m1\ 2087}#)
-                   (if (null? #{s1\ 2088}#)
-                     #{w2\ 2082}#
-                     (#{make-wrap\ 265}#
-                       (#{wrap-marks\ 267}# #{w2\ 2082}#)
-                       (#{smart-append\ 309}#
-                         #{s1\ 2088}#
-                         (#{wrap-subst\ 269}# #{w2\ 2082}#))))
-                   (#{make-wrap\ 265}#
-                     (#{smart-append\ 309}#
-                       #{m1\ 2087}#
-                       (#{wrap-marks\ 267}# #{w2\ 2082}#))
-                     (#{smart-append\ 309}#
-                       #{s1\ 2088}#
-                       (#{wrap-subst\ 269}# #{w2\ 2082}#)))))))
-           (#{smart-append\ 309}#
-             (lambda (#{m1\ 2089}# #{m2\ 2090}#)
-               (if (null? #{m2\ 2090}#)
-                 #{m1\ 2089}#
-                 (append #{m1\ 2089}# #{m2\ 2090}#))))
-           (#{make-binding-wrap\ 307}#
-             (lambda (#{ids\ 2093}# #{labels\ 2094}# #{w\ 2095}#)
-               (if (null? #{ids\ 2093}#)
-                 #{w\ 2095}#
-                 (#{make-wrap\ 265}#
-                   (#{wrap-marks\ 267}# #{w\ 2095}#)
-                   (cons (let ((#{labelvec\ 2100}#
-                                 (list->vector #{labels\ 2094}#)))
-                           (let ((#{n\ 2102}#
-                                   (vector-length #{labelvec\ 2100}#)))
-                             (let ((#{symnamevec\ 2105}#
-                                     (make-vector #{n\ 2102}#))
-                                   (#{marksvec\ 2106}#
-                                     (make-vector #{n\ 2102}#)))
+           (#{join-marks\ 9467}#
+             (lambda (#{m1\ 11212}# #{m2\ 11213}#)
+               (#{smart-append\ 9463}#
+                 #{m1\ 11212}#
+                 #{m2\ 11213}#)))
+           (#{join-wraps\ 9465}#
+             (lambda (#{w1\ 11216}# #{w2\ 11217}#)
+               (let ((#{m1\ 11222}#
+                       (#{wrap-marks\ 9421}# #{w1\ 11216}#))
+                     (#{s1\ 11223}#
+                       (#{wrap-subst\ 9423}# #{w1\ 11216}#)))
+                 (if (null? #{m1\ 11222}#)
+                   (if (null? #{s1\ 11223}#)
+                     #{w2\ 11217}#
+                     (#{make-wrap\ 9419}#
+                       (#{wrap-marks\ 9421}# #{w2\ 11217}#)
+                       (#{smart-append\ 9463}#
+                         #{s1\ 11223}#
+                         (#{wrap-subst\ 9423}# #{w2\ 11217}#))))
+                   (#{make-wrap\ 9419}#
+                     (#{smart-append\ 9463}#
+                       #{m1\ 11222}#
+                       (#{wrap-marks\ 9421}# #{w2\ 11217}#))
+                     (#{smart-append\ 9463}#
+                       #{s1\ 11223}#
+                       (#{wrap-subst\ 9423}# #{w2\ 11217}#)))))))
+           (#{smart-append\ 9463}#
+             (lambda (#{m1\ 11224}# #{m2\ 11225}#)
+               (if (null? #{m2\ 11225}#)
+                 #{m1\ 11224}#
+                 (append #{m1\ 11224}# #{m2\ 11225}#))))
+           (#{make-binding-wrap\ 9461}#
+             (lambda (#{ids\ 11228}# #{labels\ 11229}# #{w\ 11230}#)
+               (if (null? #{ids\ 11228}#)
+                 #{w\ 11230}#
+                 (#{make-wrap\ 9419}#
+                   (#{wrap-marks\ 9421}# #{w\ 11230}#)
+                   (cons (let ((#{labelvec\ 11235}#
+                                 (list->vector #{labels\ 11229}#)))
+                           (let ((#{n\ 11237}#
+                                   (vector-length #{labelvec\ 11235}#)))
+                             (let ((#{symnamevec\ 11240}#
+                                     (make-vector #{n\ 11237}#))
+                                   (#{marksvec\ 11241}#
+                                     (make-vector #{n\ 11237}#)))
                                (begin
-                                 (letrec ((#{f\ 2110}#
-                                            (lambda (#{ids\ 2111}# #{i\ 2112}#)
-                                              (if (not (null? #{ids\ 2111}#))
+                                 (letrec ((#{f\ 11245}#
+                                            (lambda (#{ids\ 11246}#
+                                                     #{i\ 11247}#)
+                                              (if (not (null? #{ids\ 11246}#))
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{id-sym-name&marks\ 263}#
-                                                      (car #{ids\ 2111}#)
-                                                      #{w\ 2095}#))
-                                                  (lambda (#{symname\ 2113}#
-                                                           #{marks\ 2114}#)
+                                                    (#{id-sym-name&marks\ 
9417}#
+                                                      (car #{ids\ 11246}#)
+                                                      #{w\ 11230}#))
+                                                  (lambda (#{symname\ 11248}#
+                                                           #{marks\ 11249}#)
                                                     (begin
                                                       (vector-set!
-                                                        #{symnamevec\ 2105}#
-                                                        #{i\ 2112}#
-                                                        #{symname\ 2113}#)
+                                                        #{symnamevec\ 11240}#
+                                                        #{i\ 11247}#
+                                                        #{symname\ 11248}#)
                                                       (vector-set!
-                                                        #{marksvec\ 2106}#
-                                                        #{i\ 2112}#
-                                                        #{marks\ 2114}#)
-                                                      (#{f\ 2110}#
-                                                        (cdr #{ids\ 2111}#)
-                                                        (#{fx+\ 163}#
-                                                          #{i\ 2112}#
+                                                        #{marksvec\ 11241}#
+                                                        #{i\ 11247}#
+                                                        #{marks\ 11249}#)
+                                                      (#{f\ 11245}#
+                                                        (cdr #{ids\ 11246}#)
+                                                        (#{fx+\ 9317}#
+                                                          #{i\ 11247}#
                                                           1)))))))))
-                                   (#{f\ 2110}# #{ids\ 2093}# 0))
-                                 (#{make-ribcage\ 281}#
-                                   #{symnamevec\ 2105}#
-                                   #{marksvec\ 2106}#
-                                   #{labelvec\ 2100}#)))))
-                         (#{wrap-subst\ 269}# #{w\ 2095}#))))))
-           (#{extend-ribcage!\ 305}#
-             (lambda (#{ribcage\ 2117}# #{id\ 2118}# #{label\ 2119}#)
+                                   (#{f\ 11245}# #{ids\ 11228}# 0))
+                                 (#{make-ribcage\ 9435}#
+                                   #{symnamevec\ 11240}#
+                                   #{marksvec\ 11241}#
+                                   #{labelvec\ 11235}#)))))
+                         (#{wrap-subst\ 9423}# #{w\ 11230}#))))))
+           (#{extend-ribcage!\ 9459}#
+             (lambda (#{ribcage\ 11252}#
+                      #{id\ 11253}#
+                      #{label\ 11254}#)
                (begin
-                 (#{set-ribcage-symnames!\ 291}#
-                   #{ribcage\ 2117}#
-                   (cons (#{syntax-object-expression\ 226}# #{id\ 2118}#)
-                         (#{ribcage-symnames\ 285}# #{ribcage\ 2117}#)))
-                 (#{set-ribcage-marks!\ 293}#
-                   #{ribcage\ 2117}#
-                   (cons (#{wrap-marks\ 267}#
-                           (#{syntax-object-wrap\ 228}# #{id\ 2118}#))
-                         (#{ribcage-marks\ 287}# #{ribcage\ 2117}#)))
-                 (#{set-ribcage-labels!\ 295}#
-                   #{ribcage\ 2117}#
-                   (cons #{label\ 2119}#
-                         (#{ribcage-labels\ 289}# #{ribcage\ 2117}#))))))
-           (#{anti-mark\ 301}#
-             (lambda (#{w\ 2123}#)
-               (#{make-wrap\ 265}#
-                 (cons #f (#{wrap-marks\ 267}# #{w\ 2123}#))
+                 (#{set-ribcage-symnames!\ 9445}#
+                   #{ribcage\ 11252}#
+                   (cons (#{syntax-object-expression\ 9380}#
+                           #{id\ 11253}#)
+                         (#{ribcage-symnames\ 9439}# #{ribcage\ 11252}#)))
+                 (#{set-ribcage-marks!\ 9447}#
+                   #{ribcage\ 11252}#
+                   (cons (#{wrap-marks\ 9421}#
+                           (#{syntax-object-wrap\ 9382}# #{id\ 11253}#))
+                         (#{ribcage-marks\ 9441}# #{ribcage\ 11252}#)))
+                 (#{set-ribcage-labels!\ 9449}#
+                   #{ribcage\ 11252}#
+                   (cons #{label\ 11254}#
+                         (#{ribcage-labels\ 9443}# #{ribcage\ 11252}#))))))
+           (#{anti-mark\ 9455}#
+             (lambda (#{w\ 11258}#)
+               (#{make-wrap\ 9419}#
+                 (cons #f (#{wrap-marks\ 9421}# #{w\ 11258}#))
                  (cons 'shift
-                       (#{wrap-subst\ 269}# #{w\ 2123}#)))))
-           (#{set-ribcage-labels!\ 295}#
-             (lambda (#{x\ 2126}# #{update\ 2127}#)
-               (vector-set! #{x\ 2126}# 3 #{update\ 2127}#)))
-           (#{set-ribcage-marks!\ 293}#
-             (lambda (#{x\ 2130}# #{update\ 2131}#)
-               (vector-set! #{x\ 2130}# 2 #{update\ 2131}#)))
-           (#{set-ribcage-symnames!\ 291}#
-             (lambda (#{x\ 2134}# #{update\ 2135}#)
-               (vector-set! #{x\ 2134}# 1 #{update\ 2135}#)))
-           (#{ribcage-labels\ 289}#
-             (lambda (#{x\ 2138}#) (vector-ref #{x\ 2138}# 3)))
-           (#{ribcage-marks\ 287}#
-             (lambda (#{x\ 2140}#) (vector-ref #{x\ 2140}# 2)))
-           (#{ribcage-symnames\ 285}#
-             (lambda (#{x\ 2142}#) (vector-ref #{x\ 2142}# 1)))
-           (#{ribcage?\ 283}#
-             (lambda (#{x\ 2144}#)
-               (if (vector? #{x\ 2144}#)
-                 (if (= (vector-length #{x\ 2144}#) 4)
-                   (eq? (vector-ref #{x\ 2144}# 0) (quote ribcage))
+                       (#{wrap-subst\ 9423}# #{w\ 11258}#)))))
+           (#{set-ribcage-labels!\ 9449}#
+             (lambda (#{x\ 11261}# #{update\ 11262}#)
+               (vector-set! #{x\ 11261}# 3 #{update\ 11262}#)))
+           (#{set-ribcage-marks!\ 9447}#
+             (lambda (#{x\ 11265}# #{update\ 11266}#)
+               (vector-set! #{x\ 11265}# 2 #{update\ 11266}#)))
+           (#{set-ribcage-symnames!\ 9445}#
+             (lambda (#{x\ 11269}# #{update\ 11270}#)
+               (vector-set! #{x\ 11269}# 1 #{update\ 11270}#)))
+           (#{ribcage-labels\ 9443}#
+             (lambda (#{x\ 11273}#)
+               (vector-ref #{x\ 11273}# 3)))
+           (#{ribcage-marks\ 9441}#
+             (lambda (#{x\ 11275}#)
+               (vector-ref #{x\ 11275}# 2)))
+           (#{ribcage-symnames\ 9439}#
+             (lambda (#{x\ 11277}#)
+               (vector-ref #{x\ 11277}# 1)))
+           (#{ribcage?\ 9437}#
+             (lambda (#{x\ 11279}#)
+               (if (vector? #{x\ 11279}#)
+                 (if (= (vector-length #{x\ 11279}#) 4)
+                   (eq? (vector-ref #{x\ 11279}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 281}#
-             (lambda (#{symnames\ 2149}#
-                      #{marks\ 2150}#
-                      #{labels\ 2151}#)
+           (#{make-ribcage\ 9435}#
+             (lambda (#{symnames\ 11284}#
+                      #{marks\ 11285}#
+                      #{labels\ 11286}#)
                (vector
                  'ribcage
-                 #{symnames\ 2149}#
-                 #{marks\ 2150}#
-                 #{labels\ 2151}#)))
-           (#{gen-labels\ 278}#
-             (lambda (#{ls\ 2155}#)
-               (if (null? #{ls\ 2155}#)
+                 #{symnames\ 11284}#
+                 #{marks\ 11285}#
+                 #{labels\ 11286}#)))
+           (#{gen-labels\ 9432}#
+             (lambda (#{ls\ 11290}#)
+               (if (null? #{ls\ 11290}#)
                  '()
-                 (cons (#{gen-label\ 276}#)
-                       (#{gen-labels\ 278}# (cdr #{ls\ 2155}#))))))
-           (#{gen-label\ 276}#
+                 (cons (#{gen-label\ 9430}#)
+                       (#{gen-labels\ 9432}# (cdr #{ls\ 11290}#))))))
+           (#{gen-label\ 9430}#
              (lambda () (symbol->string (gensym "i"))))
-           (#{wrap-subst\ 269}# cdr)
-           (#{wrap-marks\ 267}# car)
-           (#{make-wrap\ 265}# cons)
-           (#{id-sym-name&marks\ 263}#
-             (lambda (#{x\ 2157}# #{w\ 2158}#)
-               (if (#{syntax-object?\ 224}# #{x\ 2157}#)
+           (#{wrap-subst\ 9423}# cdr)
+           (#{wrap-marks\ 9421}# car)
+           (#{make-wrap\ 9419}# cons)
+           (#{id-sym-name&marks\ 9417}#
+             (lambda (#{x\ 11292}# #{w\ 11293}#)
+               (if (#{syntax-object?\ 9378}# #{x\ 11292}#)
                  (values
-                   (#{syntax-object-expression\ 226}# #{x\ 2157}#)
-                   (#{join-marks\ 313}#
-                     (#{wrap-marks\ 267}# #{w\ 2158}#)
-                     (#{wrap-marks\ 267}#
-                       (#{syntax-object-wrap\ 228}# #{x\ 2157}#))))
+                   (#{syntax-object-expression\ 9380}# #{x\ 11292}#)
+                   (#{join-marks\ 9467}#
+                     (#{wrap-marks\ 9421}# #{w\ 11293}#)
+                     (#{wrap-marks\ 9421}#
+                       (#{syntax-object-wrap\ 9382}# #{x\ 11292}#))))
                  (values
-                   #{x\ 2157}#
-                   (#{wrap-marks\ 267}# #{w\ 2158}#)))))
-           (#{id?\ 260}#
-             (lambda (#{x\ 2161}#)
-               (if (symbol? #{x\ 2161}#)
+                   #{x\ 11292}#
+                   (#{wrap-marks\ 9421}# #{w\ 11293}#)))))
+           (#{id?\ 9414}#
+             (lambda (#{x\ 11296}#)
+               (if (symbol? #{x\ 11296}#)
                  #t
-                 (if (#{syntax-object?\ 224}# #{x\ 2161}#)
+                 (if (#{syntax-object?\ 9378}# #{x\ 11296}#)
                    (symbol?
-                     (#{syntax-object-expression\ 226}# #{x\ 2161}#))
+                     (#{syntax-object-expression\ 9380}# #{x\ 11296}#))
                    #f))))
-           (#{nonsymbol-id?\ 258}#
-             (lambda (#{x\ 2168}#)
-               (if (#{syntax-object?\ 224}# #{x\ 2168}#)
+           (#{nonsymbol-id?\ 9412}#
+             (lambda (#{x\ 11303}#)
+               (if (#{syntax-object?\ 9378}# #{x\ 11303}#)
                  (symbol?
-                   (#{syntax-object-expression\ 226}# #{x\ 2168}#))
+                   (#{syntax-object-expression\ 9380}# #{x\ 11303}#))
                  #f)))
-           (#{global-extend\ 256}#
-             (lambda (#{type\ 2172}# #{sym\ 2173}# #{val\ 2174}#)
-               (#{put-global-definition-hook\ 176}#
-                 #{sym\ 2173}#
-                 #{type\ 2172}#
-                 #{val\ 2174}#)))
-           (#{lookup\ 254}#
-             (lambda (#{x\ 2178}# #{r\ 2179}# #{mod\ 2180}#)
-               (let ((#{t\ 2186}# (assq #{x\ 2178}# #{r\ 2179}#)))
-                 (if #{t\ 2186}#
-                   (cdr #{t\ 2186}#)
-                   (if (symbol? #{x\ 2178}#)
-                     (let ((#{t\ 2192}#
-                             (#{get-global-definition-hook\ 178}#
-                               #{x\ 2178}#
-                               #{mod\ 2180}#)))
-                       (if #{t\ 2192}# #{t\ 2192}# (quote (global))))
+           (#{global-extend\ 9410}#
+             (lambda (#{type\ 11307}# #{sym\ 11308}# #{val\ 11309}#)
+               (#{put-global-definition-hook\ 9330}#
+                 #{sym\ 11308}#
+                 #{type\ 11307}#
+                 #{val\ 11309}#)))
+           (#{lookup\ 9408}#
+             (lambda (#{x\ 11313}# #{r\ 11314}# #{mod\ 11315}#)
+               (let ((#{t\ 11321}# (assq #{x\ 11313}# #{r\ 11314}#)))
+                 (if #{t\ 11321}#
+                   (cdr #{t\ 11321}#)
+                   (if (symbol? #{x\ 11313}#)
+                     (let ((#{t\ 11327}#
+                             (#{get-global-definition-hook\ 9332}#
+                               #{x\ 11313}#
+                               #{mod\ 11315}#)))
+                       (if #{t\ 11327}# #{t\ 11327}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 252}#
-             (lambda (#{r\ 2197}#)
-               (if (null? #{r\ 2197}#)
+           (#{macros-only-env\ 9406}#
+             (lambda (#{r\ 11332}#)
+               (if (null? #{r\ 11332}#)
                  '()
-                 (let ((#{a\ 2200}# (car #{r\ 2197}#)))
-                   (if (eq? (cadr #{a\ 2200}#) (quote macro))
-                     (cons #{a\ 2200}#
-                           (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))
-                     (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))))))
-           (#{extend-var-env\ 250}#
-             (lambda (#{labels\ 2201}# #{vars\ 2202}# #{r\ 2203}#)
-               (if (null? #{labels\ 2201}#)
-                 #{r\ 2203}#
-                 (#{extend-var-env\ 250}#
-                   (cdr #{labels\ 2201}#)
-                   (cdr #{vars\ 2202}#)
-                   (cons (cons (car #{labels\ 2201}#)
-                               (cons (quote lexical) (car #{vars\ 2202}#)))
-                         #{r\ 2203}#)))))
-           (#{extend-env\ 248}#
-             (lambda (#{labels\ 2208}# #{bindings\ 2209}# #{r\ 2210}#)
-               (if (null? #{labels\ 2208}#)
-                 #{r\ 2210}#
-                 (#{extend-env\ 248}#
-                   (cdr #{labels\ 2208}#)
-                   (cdr #{bindings\ 2209}#)
-                   (cons (cons (car #{labels\ 2208}#)
-                               (car #{bindings\ 2209}#))
-                         #{r\ 2210}#)))))
-           (#{binding-value\ 245}# cdr)
-           (#{binding-type\ 243}# car)
-           (#{source-annotation\ 239}#
-             (lambda (#{x\ 2214}#)
-               (if (#{syntax-object?\ 224}# #{x\ 2214}#)
-                 (#{source-annotation\ 239}#
-                   (#{syntax-object-expression\ 226}# #{x\ 2214}#))
-                 (if (pair? #{x\ 2214}#)
-                   (let ((#{props\ 2221}# (source-properties #{x\ 2214}#)))
-                     (if (pair? #{props\ 2221}#) #{props\ 2221}# #f))
+                 (let ((#{a\ 11335}# (car #{r\ 11332}#)))
+                   (if (eq? (cadr #{a\ 11335}#) (quote macro))
+                     (cons #{a\ 11335}#
+                           (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#)))
+                     (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#)))))))
+           (#{extend-var-env\ 9404}#
+             (lambda (#{labels\ 11336}# #{vars\ 11337}# #{r\ 11338}#)
+               (if (null? #{labels\ 11336}#)
+                 #{r\ 11338}#
+                 (#{extend-var-env\ 9404}#
+                   (cdr #{labels\ 11336}#)
+                   (cdr #{vars\ 11337}#)
+                   (cons (cons (car #{labels\ 11336}#)
+                               (cons (quote lexical) (car #{vars\ 11337}#)))
+                         #{r\ 11338}#)))))
+           (#{extend-env\ 9402}#
+             (lambda (#{labels\ 11343}#
+                      #{bindings\ 11344}#
+                      #{r\ 11345}#)
+               (if (null? #{labels\ 11343}#)
+                 #{r\ 11345}#
+                 (#{extend-env\ 9402}#
+                   (cdr #{labels\ 11343}#)
+                   (cdr #{bindings\ 11344}#)
+                   (cons (cons (car #{labels\ 11343}#)
+                               (car #{bindings\ 11344}#))
+                         #{r\ 11345}#)))))
+           (#{binding-value\ 9399}# cdr)
+           (#{binding-type\ 9397}# car)
+           (#{source-annotation\ 9393}#
+             (lambda (#{x\ 11349}#)
+               (if (#{syntax-object?\ 9378}# #{x\ 11349}#)
+                 (#{source-annotation\ 9393}#
+                   (#{syntax-object-expression\ 9380}# #{x\ 11349}#))
+                 (if (pair? #{x\ 11349}#)
+                   (let ((#{props\ 11356}#
+                           (source-properties #{x\ 11349}#)))
+                     (if (pair? #{props\ 11356}#) #{props\ 11356}# #f))
                    #f))))
-           (#{set-syntax-object-module!\ 236}#
-             (lambda (#{x\ 2223}# #{update\ 2224}#)
-               (vector-set! #{x\ 2223}# 3 #{update\ 2224}#)))
-           (#{set-syntax-object-wrap!\ 234}#
-             (lambda (#{x\ 2227}# #{update\ 2228}#)
-               (vector-set! #{x\ 2227}# 2 #{update\ 2228}#)))
-           (#{set-syntax-object-expression!\ 232}#
-             (lambda (#{x\ 2231}# #{update\ 2232}#)
-               (vector-set! #{x\ 2231}# 1 #{update\ 2232}#)))
-           (#{syntax-object-module\ 230}#
-             (lambda (#{x\ 2235}#) (vector-ref #{x\ 2235}# 3)))
-           (#{syntax-object-wrap\ 228}#
-             (lambda (#{x\ 2237}#) (vector-ref #{x\ 2237}# 2)))
-           (#{syntax-object-expression\ 226}#
-             (lambda (#{x\ 2239}#) (vector-ref #{x\ 2239}# 1)))
-           (#{syntax-object?\ 224}#
-             (lambda (#{x\ 2241}#)
-               (if (vector? #{x\ 2241}#)
-                 (if (= (vector-length #{x\ 2241}#) 4)
-                   (eq? (vector-ref #{x\ 2241}# 0)
+           (#{set-syntax-object-module!\ 9390}#
+             (lambda (#{x\ 11358}# #{update\ 11359}#)
+               (vector-set! #{x\ 11358}# 3 #{update\ 11359}#)))
+           (#{set-syntax-object-wrap!\ 9388}#
+             (lambda (#{x\ 11362}# #{update\ 11363}#)
+               (vector-set! #{x\ 11362}# 2 #{update\ 11363}#)))
+           (#{set-syntax-object-expression!\ 9386}#
+             (lambda (#{x\ 11366}# #{update\ 11367}#)
+               (vector-set! #{x\ 11366}# 1 #{update\ 11367}#)))
+           (#{syntax-object-module\ 9384}#
+             (lambda (#{x\ 11370}#)
+               (vector-ref #{x\ 11370}# 3)))
+           (#{syntax-object-wrap\ 9382}#
+             (lambda (#{x\ 11372}#)
+               (vector-ref #{x\ 11372}# 2)))
+           (#{syntax-object-expression\ 9380}#
+             (lambda (#{x\ 11374}#)
+               (vector-ref #{x\ 11374}# 1)))
+           (#{syntax-object?\ 9378}#
+             (lambda (#{x\ 11376}#)
+               (if (vector? #{x\ 11376}#)
+                 (if (= (vector-length #{x\ 11376}#) 4)
+                   (eq? (vector-ref #{x\ 11376}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 222}#
-             (lambda (#{expression\ 2246}#
-                      #{wrap\ 2247}#
-                      #{module\ 2248}#)
+           (#{make-syntax-object\ 9376}#
+             (lambda (#{expression\ 11381}#
+                      #{wrap\ 11382}#
+                      #{module\ 11383}#)
                (vector
                  'syntax-object
-                 #{expression\ 2246}#
-                 #{wrap\ 2247}#
-                 #{module\ 2248}#)))
-           (#{build-letrec\ 218}#
-             (lambda (#{src\ 2252}#
-                      #{ids\ 2253}#
-                      #{vars\ 2254}#
-                      #{val-exps\ 2255}#
-                      #{body-exp\ 2256}#)
-               (if (null? #{vars\ 2254}#)
-                 #{body-exp\ 2256}#
-                 (let ((#{atom-key\ 2264}# (fluid-ref #{*mode*\ 161}#)))
-                   (if (memv #{atom-key\ 2264}# (quote (c)))
+                 #{expression\ 11381}#
+                 #{wrap\ 11382}#
+                 #{module\ 11383}#)))
+           (#{build-letrec\ 9372}#
+             (lambda (#{src\ 11387}#
+                      #{ids\ 11388}#
+                      #{vars\ 11389}#
+                      #{val-exps\ 11390}#
+                      #{body-exp\ 11391}#)
+               (if (null? #{vars\ 11389}#)
+                 #{body-exp\ 11391}#
+                 (let ((#{atom-key\ 11399}#
+                         (fluid-ref #{*mode*\ 9315}#)))
+                   (if (memv #{atom-key\ 11399}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 198}#
-                         #{ids\ 2253}#
-                         #{val-exps\ 2255}#)
+                         #{maybe-name-value!\ 9352}#
+                         #{ids\ 11388}#
+                         #{val-exps\ 11390}#)
                        ((@ (language tree-il) make-letrec)
-                        #{src\ 2252}#
-                        #{ids\ 2253}#
-                        #{vars\ 2254}#
-                        #{val-exps\ 2255}#
-                        #{body-exp\ 2256}#))
-                     (#{decorate-source\ 180}#
+                        #{src\ 11387}#
+                        #{ids\ 11388}#
+                        #{vars\ 11389}#
+                        #{val-exps\ 11390}#
+                        #{body-exp\ 11391}#))
+                     (#{decorate-source\ 9334}#
                        (list 'letrec
-                             (map list #{vars\ 2254}# #{val-exps\ 2255}#)
-                             #{body-exp\ 2256}#)
-                       #{src\ 2252}#))))))
-           (#{build-named-let\ 216}#
-             (lambda (#{src\ 2268}#
-                      #{ids\ 2269}#
-                      #{vars\ 2270}#
-                      #{val-exps\ 2271}#
-                      #{body-exp\ 2272}#)
-               (let ((#{f\ 2282}# (car #{vars\ 2270}#))
-                     (#{f-name\ 2283}# (car #{ids\ 2269}#))
-                     (#{vars\ 2284}# (cdr #{vars\ 2270}#))
-                     (#{ids\ 2285}# (cdr #{ids\ 2269}#)))
-                 (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 161}#)))
-                   (if (memv #{atom-key\ 2288}# (quote (c)))
-                     (let ((#{proc\ 2291}#
-                             (#{build-simple-lambda\ 202}#
-                               #{src\ 2268}#
-                               #{ids\ 2285}#
+                             (map list #{vars\ 11389}# #{val-exps\ 11390}#)
+                             #{body-exp\ 11391}#)
+                       #{src\ 11387}#))))))
+           (#{build-named-let\ 9370}#
+             (lambda (#{src\ 11403}#
+                      #{ids\ 11404}#
+                      #{vars\ 11405}#
+                      #{val-exps\ 11406}#
+                      #{body-exp\ 11407}#)
+               (let ((#{f\ 11417}# (car #{vars\ 11405}#))
+                     (#{f-name\ 11418}# (car #{ids\ 11404}#))
+                     (#{vars\ 11419}# (cdr #{vars\ 11405}#))
+                     (#{ids\ 11420}# (cdr #{ids\ 11404}#)))
+                 (let ((#{atom-key\ 11423}#
+                         (fluid-ref #{*mode*\ 9315}#)))
+                   (if (memv #{atom-key\ 11423}# (quote (c)))
+                     (let ((#{proc\ 11426}#
+                             (#{build-simple-lambda\ 9356}#
+                               #{src\ 11403}#
+                               #{ids\ 11420}#
                                #f
-                               #{vars\ 2284}#
+                               #{vars\ 11419}#
                                #f
-                               #{body-exp\ 2272}#)))
+                               #{body-exp\ 11407}#)))
                        (begin
-                         (#{maybe-name-value!\ 198}#
-                           #{f-name\ 2283}#
-                           #{proc\ 2291}#)
+                         (#{maybe-name-value!\ 9352}#
+                           #{f-name\ 11418}#
+                           #{proc\ 11426}#)
                          (for-each
-                           #{maybe-name-value!\ 198}#
-                           #{ids\ 2285}#
-                           #{val-exps\ 2271}#)
+                           #{maybe-name-value!\ 9352}#
+                           #{ids\ 11420}#
+                           #{val-exps\ 11406}#)
                          ((@ (language tree-il) make-letrec)
-                          #{src\ 2268}#
-                          (list #{f-name\ 2283}#)
-                          (list #{f\ 2282}#)
-                          (list #{proc\ 2291}#)
-                          (#{build-application\ 184}#
-                            #{src\ 2268}#
-                            (#{build-lexical-reference\ 188}#
+                          #{src\ 11403}#
+                          (list #{f-name\ 11418}#)
+                          (list #{f\ 11417}#)
+                          (list #{proc\ 11426}#)
+                          (#{build-application\ 9338}#
+                            #{src\ 11403}#
+                            (#{build-lexical-reference\ 9342}#
                               'fun
-                              #{src\ 2268}#
-                              #{f-name\ 2283}#
-                              #{f\ 2282}#)
-                            #{val-exps\ 2271}#))))
-                     (#{decorate-source\ 180}#
+                              #{src\ 11403}#
+                              #{f-name\ 11418}#
+                              #{f\ 11417}#)
+                            #{val-exps\ 11406}#))))
+                     (#{decorate-source\ 9334}#
                        (list 'letrec
-                             (list (list #{f\ 2282}#
+                             (list (list #{f\ 11417}#
                                          (list 'lambda
-                                               #{vars\ 2284}#
-                                               #{body-exp\ 2272}#)))
-                             (cons #{f\ 2282}# #{val-exps\ 2271}#))
-                       #{src\ 2268}#))))))
-           (#{build-let\ 214}#
-             (lambda (#{src\ 2294}#
-                      #{ids\ 2295}#
-                      #{vars\ 2296}#
-                      #{val-exps\ 2297}#
-                      #{body-exp\ 2298}#)
-               (if (null? #{vars\ 2296}#)
-                 #{body-exp\ 2298}#
-                 (let ((#{atom-key\ 2306}# (fluid-ref #{*mode*\ 161}#)))
-                   (if (memv #{atom-key\ 2306}# (quote (c)))
+                                               #{vars\ 11419}#
+                                               #{body-exp\ 11407}#)))
+                             (cons #{f\ 11417}# #{val-exps\ 11406}#))
+                       #{src\ 11403}#))))))
+           (#{build-let\ 9368}#
+             (lambda (#{src\ 11429}#
+                      #{ids\ 11430}#
+                      #{vars\ 11431}#
+                      #{val-exps\ 11432}#
+                      #{body-exp\ 11433}#)
+               (if (null? #{vars\ 11431}#)
+                 #{body-exp\ 11433}#
+                 (let ((#{atom-key\ 11441}#
+                         (fluid-ref #{*mode*\ 9315}#)))
+                   (if (memv #{atom-key\ 11441}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 198}#
-                         #{ids\ 2295}#
-                         #{val-exps\ 2297}#)
+                         #{maybe-name-value!\ 9352}#
+                         #{ids\ 11430}#
+                         #{val-exps\ 11432}#)
                        ((@ (language tree-il) make-let)
-                        #{src\ 2294}#
-                        #{ids\ 2295}#
-                        #{vars\ 2296}#
-                        #{val-exps\ 2297}#
-                        #{body-exp\ 2298}#))
-                     (#{decorate-source\ 180}#
+                        #{src\ 11429}#
+                        #{ids\ 11430}#
+                        #{vars\ 11431}#
+                        #{val-exps\ 11432}#
+                        #{body-exp\ 11433}#))
+                     (#{decorate-source\ 9334}#
                        (list 'let
-                             (map list #{vars\ 2296}# #{val-exps\ 2297}#)
-                             #{body-exp\ 2298}#)
-                       #{src\ 2294}#))))))
-           (#{build-sequence\ 212}#
-             (lambda (#{src\ 2310}# #{exps\ 2311}#)
-               (if (null? (cdr #{exps\ 2311}#))
-                 (car #{exps\ 2311}#)
-                 (let ((#{atom-key\ 2316}# (fluid-ref #{*mode*\ 161}#)))
-                   (if (memv #{atom-key\ 2316}# (quote (c)))
+                             (map list #{vars\ 11431}# #{val-exps\ 11432}#)
+                             #{body-exp\ 11433}#)
+                       #{src\ 11429}#))))))
+           (#{build-sequence\ 9366}#
+             (lambda (#{src\ 11445}# #{exps\ 11446}#)
+               (if (null? (cdr #{exps\ 11446}#))
+                 (car #{exps\ 11446}#)
+                 (let ((#{atom-key\ 11451}#
+                         (fluid-ref #{*mode*\ 9315}#)))
+                   (if (memv #{atom-key\ 11451}# (quote (c)))
                      ((@ (language tree-il) make-sequence)
-                      #{src\ 2310}#
-                      #{exps\ 2311}#)
-                     (#{decorate-source\ 180}#
-                       (cons (quote begin) #{exps\ 2311}#)
-                       #{src\ 2310}#))))))
-           (#{build-data\ 210}#
-             (lambda (#{src\ 2320}# #{exp\ 2321}#)
-               (let ((#{atom-key\ 2326}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2326}# (quote (c)))
+                      #{src\ 11445}#
+                      #{exps\ 11446}#)
+                     (#{decorate-source\ 9334}#
+                       (cons (quote begin) #{exps\ 11446}#)
+                       #{src\ 11445}#))))))
+           (#{build-data\ 9364}#
+             (lambda (#{src\ 11455}# #{exp\ 11456}#)
+               (let ((#{atom-key\ 11461}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11461}# (quote (c)))
                    ((@ (language tree-il) make-const)
-                    #{src\ 2320}#
-                    #{exp\ 2321}#)
-                   (#{decorate-source\ 180}#
-                     (if (if (self-evaluating? #{exp\ 2321}#)
-                           (not (vector? #{exp\ 2321}#))
+                    #{src\ 11455}#
+                    #{exp\ 11456}#)
+                   (#{decorate-source\ 9334}#
+                     (if (if (self-evaluating? #{exp\ 11456}#)
+                           (not (vector? #{exp\ 11456}#))
                            #f)
-                       #{exp\ 2321}#
-                       (list (quote quote) #{exp\ 2321}#))
-                     #{src\ 2320}#)))))
-           (#{build-primref\ 208}#
-             (lambda (#{src\ 2331}# #{name\ 2332}#)
+                       #{exp\ 11456}#
+                       (list (quote quote) #{exp\ 11456}#))
+                     #{src\ 11455}#)))))
+           (#{build-primref\ 9362}#
+             (lambda (#{src\ 11466}# #{name\ 11467}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (let ((#{atom-key\ 2337}# (fluid-ref #{*mode*\ 161}#)))
-                   (if (memv #{atom-key\ 2337}# (quote (c)))
+                 (let ((#{atom-key\ 11472}#
+                         (fluid-ref #{*mode*\ 9315}#)))
+                   (if (memv #{atom-key\ 11472}# (quote (c)))
                      ((@ (language tree-il) make-toplevel-ref)
-                      #{src\ 2331}#
-                      #{name\ 2332}#)
-                     (#{decorate-source\ 180}#
-                       #{name\ 2332}#
-                       #{src\ 2331}#)))
-                 (let ((#{atom-key\ 2342}# (fluid-ref #{*mode*\ 161}#)))
-                   (if (memv #{atom-key\ 2342}# (quote (c)))
+                      #{src\ 11466}#
+                      #{name\ 11467}#)
+                     (#{decorate-source\ 9334}#
+                       #{name\ 11467}#
+                       #{src\ 11466}#)))
+                 (let ((#{atom-key\ 11477}#
+                         (fluid-ref #{*mode*\ 9315}#)))
+                   (if (memv #{atom-key\ 11477}# (quote (c)))
                      ((@ (language tree-il) make-module-ref)
-                      #{src\ 2331}#
+                      #{src\ 11466}#
                       '(guile)
-                      #{name\ 2332}#
+                      #{name\ 11467}#
                       #f)
-                     (#{decorate-source\ 180}#
-                       (list (quote @@) (quote (guile)) #{name\ 2332}#)
-                       #{src\ 2331}#))))))
-           (#{build-lambda-case\ 206}#
-             (lambda (#{src\ 2346}#
-                      #{req\ 2347}#
-                      #{opt\ 2348}#
-                      #{rest\ 2349}#
-                      #{kw\ 2350}#
-                      #{inits\ 2351}#
-                      #{vars\ 2352}#
-                      #{body\ 2353}#
-                      #{else-case\ 2354}#)
-               (let ((#{atom-key\ 2366}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2366}# (quote (c)))
+                     (#{decorate-source\ 9334}#
+                       (list (quote @@) (quote (guile)) #{name\ 11467}#)
+                       #{src\ 11466}#))))))
+           (#{build-lambda-case\ 9360}#
+             (lambda (#{src\ 11481}#
+                      #{req\ 11482}#
+                      #{opt\ 11483}#
+                      #{rest\ 11484}#
+                      #{kw\ 11485}#
+                      #{inits\ 11486}#
+                      #{vars\ 11487}#
+                      #{body\ 11488}#
+                      #{else-case\ 11489}#)
+               (let ((#{atom-key\ 11501}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11501}# (quote (c)))
                    ((@ (language tree-il) make-lambda-case)
-                    #{src\ 2346}#
-                    #{req\ 2347}#
-                    #{opt\ 2348}#
-                    #{rest\ 2349}#
-                    #{kw\ 2350}#
-                    #{inits\ 2351}#
-                    #{vars\ 2352}#
-                    #{body\ 2353}#
-                    #{else-case\ 2354}#)
-                   (let ((#{nreq\ 2371}# (length #{req\ 2347}#)))
-                     (let ((#{nopt\ 2373}#
-                             (if #{opt\ 2348}# (length #{opt\ 2348}#) 0)))
-                       (let ((#{rest-idx\ 2375}#
-                               (if #{rest\ 2349}#
-                                 (+ #{nreq\ 2371}# #{nopt\ 2373}#)
+                    #{src\ 11481}#
+                    #{req\ 11482}#
+                    #{opt\ 11483}#
+                    #{rest\ 11484}#
+                    #{kw\ 11485}#
+                    #{inits\ 11486}#
+                    #{vars\ 11487}#
+                    #{body\ 11488}#
+                    #{else-case\ 11489}#)
+                   (let ((#{nreq\ 11506}# (length #{req\ 11482}#)))
+                     (let ((#{nopt\ 11508}#
+                             (if #{opt\ 11483}# (length #{opt\ 11483}#) 0)))
+                       (let ((#{rest-idx\ 11510}#
+                               (if #{rest\ 11484}#
+                                 (+ #{nreq\ 11506}# #{nopt\ 11508}#)
                                  #f)))
-                         (let ((#{allow-other-keys?\ 2379}#
-                                 (if #{kw\ 2350}# (car #{kw\ 2350}#) #f)))
-                           (let ((#{kw-indices\ 2381}#
-                                   (map (lambda (#{x\ 2382}#)
-                                          (cons (car #{x\ 2382}#)
+                         (let ((#{allow-other-keys?\ 11514}#
+                                 (if #{kw\ 11485}# (car #{kw\ 11485}#) #f)))
+                           (let ((#{kw-indices\ 11516}#
+                                   (map (lambda (#{x\ 11517}#)
+                                          (cons (car #{x\ 11517}#)
                                                 (list-index
-                                                  #{vars\ 2352}#
-                                                  (caddr #{x\ 2382}#))))
-                                        (if #{kw\ 2350}#
-                                          (cdr #{kw\ 2350}#)
+                                                  #{vars\ 11487}#
+                                                  (caddr #{x\ 11517}#))))
+                                        (if #{kw\ 11485}#
+                                          (cdr #{kw\ 11485}#)
                                           '()))))
-                             (let ((#{nargs\ 2385}#
+                             (let ((#{nargs\ 11520}#
                                      (apply max
-                                            (+ #{nreq\ 2371}#
-                                               #{nopt\ 2373}#
-                                               (if #{rest\ 2349}# 1 0))
+                                            (+ #{nreq\ 11506}#
+                                               #{nopt\ 11508}#
+                                               (if #{rest\ 11484}# 1 0))
                                             (map 1+
                                                  (map cdr
-                                                      #{kw-indices\ 2381}#)))))
+                                                      #{kw-indices\ 
11516}#)))))
                                (begin
-                                 (let ((#{t\ 2388}#
-                                         (= #{nargs\ 2385}#
-                                            (length #{vars\ 2352}#)
-                                            (+ #{nreq\ 2371}#
-                                               (length #{inits\ 2351}#)
-                                               (if #{rest\ 2349}# 1 0)))))
-                                   (if #{t\ 2388}#
-                                     #{t\ 2388}#
+                                 (let ((#{t\ 11523}#
+                                         (= #{nargs\ 11520}#
+                                            (length #{vars\ 11487}#)
+                                            (+ #{nreq\ 11506}#
+                                               (length #{inits\ 11486}#)
+                                               (if #{rest\ 11484}# 1 0)))))
+                                   (if #{t\ 11523}#
+                                     #{t\ 11523}#
                                      (error "something went wrong"
-                                            #{req\ 2347}#
-                                            #{opt\ 2348}#
-                                            #{rest\ 2349}#
-                                            #{kw\ 2350}#
-                                            #{inits\ 2351}#
-                                            #{vars\ 2352}#
-                                            #{nreq\ 2371}#
-                                            #{nopt\ 2373}#
-                                            #{kw-indices\ 2381}#
-                                            #{nargs\ 2385}#)))
-                                 (#{decorate-source\ 180}#
+                                            #{req\ 11482}#
+                                            #{opt\ 11483}#
+                                            #{rest\ 11484}#
+                                            #{kw\ 11485}#
+                                            #{inits\ 11486}#
+                                            #{vars\ 11487}#
+                                            #{nreq\ 11506}#
+                                            #{nopt\ 11508}#
+                                            #{kw-indices\ 11516}#
+                                            #{nargs\ 11520}#)))
+                                 (#{decorate-source\ 9334}#
                                    (cons (list (cons '(@@ (ice-9 optargs)
                                                           parse-lambda-case)
                                                      (cons (list 'quote
-                                                                 (list #{nreq\ 
2371}#
-                                                                       #{nopt\ 
2373}#
-                                                                       
#{rest-idx\ 2375}#
-                                                                       
#{nargs\ 2385}#
-                                                                       
#{allow-other-keys?\ 2379}#
-                                                                       
#{kw-indices\ 2381}#))
+                                                                 (list #{nreq\ 
11506}#
+                                                                       #{nopt\ 
11508}#
+                                                                       
#{rest-idx\ 11510}#
+                                                                       
#{nargs\ 11520}#
+                                                                       
#{allow-other-keys?\ 11514}#
+                                                                       
#{kw-indices\ 11516}#))
                                                            (cons (cons 'list
-                                                                       (map 
(lambda (#{i\ 2391}#)
+                                                                       (map 
(lambda (#{i\ 11526}#)
                                                                               
(list 'lambda
-                                                                               
     #{vars\ 2352}#
-                                                                               
     #{i\ 2391}#))
-                                                                            
#{inits\ 2351}#))
+                                                                               
     #{vars\ 11487}#
+                                                                               
     #{i\ 11526}#))
+                                                                            
#{inits\ 11486}#))
                                                                  '(%%args))))
                                                '=>
                                                (list 'lambda
                                                      '(%%args)
                                                      (cons 'apply
                                                            (cons (list 'lambda
-                                                                       #{vars\ 
2352}#
-                                                                       #{body\ 
2353}#)
+                                                                       #{vars\ 
11487}#
+                                                                       #{body\ 
11488}#)
                                                                  '(%%args)))))
-                                         (let ((#{t\ 2396}#
-                                                 #{else-case\ 2354}#))
-                                           (if #{t\ 2396}#
-                                             #{t\ 2396}#
+                                         (let ((#{t\ 11531}#
+                                                 #{else-case\ 11489}#))
+                                           (if #{t\ 11531}#
+                                             #{t\ 11531}#
                                              '((%%args
                                                  (scm-error
                                                    'wrong-number-of-args
@@ -7513,1423 +7519,1444 @@
                                                    "Wrong number of arguments"
                                                    '()
                                                    %%args))))))
-                                   #{src\ 2346}#))))))))))))
-           (#{build-case-lambda\ 204}#
-             (lambda (#{src\ 2399}#
-                      #{docstring\ 2400}#
-                      #{body\ 2401}#)
-               (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2407}# (quote (c)))
+                                   #{src\ 11481}#))))))))))))
+           (#{build-case-lambda\ 9358}#
+             (lambda (#{src\ 11534}#
+                      #{docstring\ 11535}#
+                      #{body\ 11536}#)
+               (let ((#{atom-key\ 11542}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11542}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 2399}#
-                    (if #{docstring\ 2400}#
-                      (list (cons (quote documentation) #{docstring\ 2400}#))
+                    #{src\ 11534}#
+                    (if #{docstring\ 11535}#
+                      (list (cons (quote documentation) #{docstring\ 11535}#))
                       '())
-                    #{body\ 2401}#)
-                   (#{decorate-source\ 180}#
+                    #{body\ 11536}#)
+                   (#{decorate-source\ 9334}#
                      (cons 'lambda
                            (cons '%%args
                                  (append
-                                   (if #{docstring\ 2400}#
-                                     (list #{docstring\ 2400}#)
+                                   (if #{docstring\ 11535}#
+                                     (list #{docstring\ 11535}#)
                                      '())
-                                   (list (cons (quote cond) #{body\ 2401}#)))))
-                     #{src\ 2399}#)))))
-           (#{build-simple-lambda\ 202}#
-             (lambda (#{src\ 2412}#
-                      #{req\ 2413}#
-                      #{rest\ 2414}#
-                      #{vars\ 2415}#
-                      #{docstring\ 2416}#
-                      #{exp\ 2417}#)
-               (let ((#{atom-key\ 2426}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2426}# (quote (c)))
+                                   (list (cons 'cond
+                                               #{body\ 11536}#)))))
+                     #{src\ 11534}#)))))
+           (#{build-simple-lambda\ 9356}#
+             (lambda (#{src\ 11547}#
+                      #{req\ 11548}#
+                      #{rest\ 11549}#
+                      #{vars\ 11550}#
+                      #{docstring\ 11551}#
+                      #{exp\ 11552}#)
+               (let ((#{atom-key\ 11561}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11561}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 2412}#
-                    (if #{docstring\ 2416}#
-                      (list (cons (quote documentation) #{docstring\ 2416}#))
+                    #{src\ 11547}#
+                    (if #{docstring\ 11551}#
+                      (list (cons (quote documentation) #{docstring\ 11551}#))
                       '())
                     ((@ (language tree-il) make-lambda-case)
-                     #{src\ 2412}#
-                     #{req\ 2413}#
+                     #{src\ 11547}#
+                     #{req\ 11548}#
                      #f
-                     #{rest\ 2414}#
+                     #{rest\ 11549}#
                      #f
                      '()
-                     #{vars\ 2415}#
-                     #{exp\ 2417}#
+                     #{vars\ 11550}#
+                     #{exp\ 11552}#
                      #f))
-                   (#{decorate-source\ 180}#
+                   (#{decorate-source\ 9334}#
                      (cons 'lambda
-                           (cons (if #{rest\ 2414}#
-                                   (apply cons* #{vars\ 2415}#)
-                                   #{vars\ 2415}#)
+                           (cons (if #{rest\ 11549}#
+                                   (apply cons* #{vars\ 11550}#)
+                                   #{vars\ 11550}#)
                                  (append
-                                   (if #{docstring\ 2416}#
-                                     (list #{docstring\ 2416}#)
+                                   (if #{docstring\ 11551}#
+                                     (list #{docstring\ 11551}#)
                                      '())
-                                   (list #{exp\ 2417}#))))
-                     #{src\ 2412}#)))))
-           (#{build-global-definition\ 200}#
-             (lambda (#{source\ 2431}# #{var\ 2432}# #{exp\ 2433}#)
-               (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2439}# (quote (c)))
+                                   (list #{exp\ 11552}#))))
+                     #{src\ 11547}#)))))
+           (#{build-global-definition\ 9354}#
+             (lambda (#{source\ 11566}# #{var\ 11567}# #{exp\ 11568}#)
+               (let ((#{atom-key\ 11574}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11574}# (quote (c)))
                    (begin
-                     (#{maybe-name-value!\ 198}#
-                       #{var\ 2432}#
-                       #{exp\ 2433}#)
+                     (#{maybe-name-value!\ 9352}#
+                       #{var\ 11567}#
+                       #{exp\ 11568}#)
                      ((@ (language tree-il) make-toplevel-define)
-                      #{source\ 2431}#
-                      #{var\ 2432}#
-                      #{exp\ 2433}#))
-                   (#{decorate-source\ 180}#
-                     (list (quote define) #{var\ 2432}# #{exp\ 2433}#)
-                     #{source\ 2431}#)))))
-           (#{maybe-name-value!\ 198}#
-             (lambda (#{name\ 2443}# #{val\ 2444}#)
-               (if ((@ (language tree-il) lambda?) #{val\ 2444}#)
-                 (let ((#{meta\ 2450}#
+                      #{source\ 11566}#
+                      #{var\ 11567}#
+                      #{exp\ 11568}#))
+                   (#{decorate-source\ 9334}#
+                     (list 'define
+                           #{var\ 11567}#
+                           #{exp\ 11568}#)
+                     #{source\ 11566}#)))))
+           (#{maybe-name-value!\ 9352}#
+             (lambda (#{name\ 11578}# #{val\ 11579}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 11579}#)
+                 (let ((#{meta\ 11585}#
                          ((@ (language tree-il) lambda-meta)
-                          #{val\ 2444}#)))
-                   (if (not (assq (quote name) #{meta\ 2450}#))
+                          #{val\ 11579}#)))
+                   (if (not (assq (quote name) #{meta\ 11585}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 2444}#
+                      #{val\ 11579}#
                       (acons 'name
-                             #{name\ 2443}#
-                             #{meta\ 2450}#)))))))
-           (#{build-global-assignment\ 196}#
-             (lambda (#{source\ 2451}#
-                      #{var\ 2452}#
-                      #{exp\ 2453}#
-                      #{mod\ 2454}#)
-               (#{analyze-variable\ 192}#
-                 #{mod\ 2454}#
-                 #{var\ 2452}#
-                 (lambda (#{mod\ 2459}# #{var\ 2460}# #{public?\ 2461}#)
-                   (let ((#{atom-key\ 2467}# (fluid-ref #{*mode*\ 161}#)))
-                     (if (memv #{atom-key\ 2467}# (quote (c)))
+                             #{name\ 11578}#
+                             #{meta\ 11585}#)))))))
+           (#{build-global-assignment\ 9350}#
+             (lambda (#{source\ 11586}#
+                      #{var\ 11587}#
+                      #{exp\ 11588}#
+                      #{mod\ 11589}#)
+               (#{analyze-variable\ 9346}#
+                 #{mod\ 11589}#
+                 #{var\ 11587}#
+                 (lambda (#{mod\ 11594}#
+                          #{var\ 11595}#
+                          #{public?\ 11596}#)
+                   (let ((#{atom-key\ 11602}#
+                           (fluid-ref #{*mode*\ 9315}#)))
+                     (if (memv #{atom-key\ 11602}# (quote (c)))
                        ((@ (language tree-il) make-module-set)
-                        #{source\ 2451}#
-                        #{mod\ 2459}#
-                        #{var\ 2460}#
-                        #{public?\ 2461}#
-                        #{exp\ 2453}#)
-                       (#{decorate-source\ 180}#
+                        #{source\ 11586}#
+                        #{mod\ 11594}#
+                        #{var\ 11595}#
+                        #{public?\ 11596}#
+                        #{exp\ 11588}#)
+                       (#{decorate-source\ 9334}#
                          (list 'set!
-                               (list (if #{public?\ 2461}#
+                               (list (if #{public?\ 11596}#
                                        '@
                                        '@@)
-                                     #{mod\ 2459}#
-                                     #{var\ 2460}#)
-                               #{exp\ 2453}#)
-                         #{source\ 2451}#))))
-                 (lambda (#{var\ 2471}#)
-                   (let ((#{atom-key\ 2475}# (fluid-ref #{*mode*\ 161}#)))
-                     (if (memv #{atom-key\ 2475}# (quote (c)))
+                                     #{mod\ 11594}#
+                                     #{var\ 11595}#)
+                               #{exp\ 11588}#)
+                         #{source\ 11586}#))))
+                 (lambda (#{var\ 11606}#)
+                   (let ((#{atom-key\ 11610}#
+                           (fluid-ref #{*mode*\ 9315}#)))
+                     (if (memv #{atom-key\ 11610}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-set)
-                        #{source\ 2451}#
-                        #{var\ 2471}#
-                        #{exp\ 2453}#)
-                       (#{decorate-source\ 180}#
-                         (list (quote set!) #{var\ 2471}# #{exp\ 2453}#)
-                         #{source\ 2451}#)))))))
-           (#{build-global-reference\ 194}#
-             (lambda (#{source\ 2479}# #{var\ 2480}# #{mod\ 2481}#)
-               (#{analyze-variable\ 192}#
-                 #{mod\ 2481}#
-                 #{var\ 2480}#
-                 (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#)
-                   (let ((#{atom-key\ 2493}# (fluid-ref #{*mode*\ 161}#)))
-                     (if (memv #{atom-key\ 2493}# (quote (c)))
+                        #{source\ 11586}#
+                        #{var\ 11606}#
+                        #{exp\ 11588}#)
+                       (#{decorate-source\ 9334}#
+                         (list (quote set!) #{var\ 11606}# #{exp\ 11588}#)
+                         #{source\ 11586}#)))))))
+           (#{build-global-reference\ 9348}#
+             (lambda (#{source\ 11614}# #{var\ 11615}# #{mod\ 11616}#)
+               (#{analyze-variable\ 9346}#
+                 #{mod\ 11616}#
+                 #{var\ 11615}#
+                 (lambda (#{mod\ 11620}#
+                          #{var\ 11621}#
+                          #{public?\ 11622}#)
+                   (let ((#{atom-key\ 11628}#
+                           (fluid-ref #{*mode*\ 9315}#)))
+                     (if (memv #{atom-key\ 11628}# (quote (c)))
                        ((@ (language tree-il) make-module-ref)
-                        #{source\ 2479}#
-                        #{mod\ 2485}#
-                        #{var\ 2486}#
-                        #{public?\ 2487}#)
-                       (#{decorate-source\ 180}#
-                         (list (if #{public?\ 2487}# (quote @) (quote @@))
-                               #{mod\ 2485}#
-                               #{var\ 2486}#)
-                         #{source\ 2479}#))))
-                 (lambda (#{var\ 2496}#)
-                   (let ((#{atom-key\ 2500}# (fluid-ref #{*mode*\ 161}#)))
-                     (if (memv #{atom-key\ 2500}# (quote (c)))
+                        #{source\ 11614}#
+                        #{mod\ 11620}#
+                        #{var\ 11621}#
+                        #{public?\ 11622}#)
+                       (#{decorate-source\ 9334}#
+                         (list (if #{public?\ 11622}# (quote @) (quote @@))
+                               #{mod\ 11620}#
+                               #{var\ 11621}#)
+                         #{source\ 11614}#))))
+                 (lambda (#{var\ 11631}#)
+                   (let ((#{atom-key\ 11635}#
+                           (fluid-ref #{*mode*\ 9315}#)))
+                     (if (memv #{atom-key\ 11635}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-ref)
-                        #{source\ 2479}#
-                        #{var\ 2496}#)
-                       (#{decorate-source\ 180}#
-                         #{var\ 2496}#
-                         #{source\ 2479}#)))))))
-           (#{analyze-variable\ 192}#
-             (lambda (#{mod\ 2503}#
-                      #{var\ 2504}#
-                      #{modref-cont\ 2505}#
-                      #{bare-cont\ 2506}#)
-               (if (not #{mod\ 2503}#)
-                 (#{bare-cont\ 2506}# #{var\ 2504}#)
-                 (let ((#{kind\ 2513}# (car #{mod\ 2503}#))
-                       (#{mod\ 2514}# (cdr #{mod\ 2503}#)))
-                   (if (memv #{kind\ 2513}# (quote (public)))
-                     (#{modref-cont\ 2505}#
-                       #{mod\ 2514}#
-                       #{var\ 2504}#
+                        #{source\ 11614}#
+                        #{var\ 11631}#)
+                       (#{decorate-source\ 9334}#
+                         #{var\ 11631}#
+                         #{source\ 11614}#)))))))
+           (#{analyze-variable\ 9346}#
+             (lambda (#{mod\ 11638}#
+                      #{var\ 11639}#
+                      #{modref-cont\ 11640}#
+                      #{bare-cont\ 11641}#)
+               (if (not #{mod\ 11638}#)
+                 (#{bare-cont\ 11641}# #{var\ 11639}#)
+                 (let ((#{kind\ 11648}# (car #{mod\ 11638}#))
+                       (#{mod\ 11649}# (cdr #{mod\ 11638}#)))
+                   (if (memv #{kind\ 11648}# (quote (public)))
+                     (#{modref-cont\ 11640}#
+                       #{mod\ 11649}#
+                       #{var\ 11639}#
                        #t)
-                     (if (memv #{kind\ 2513}# (quote (private)))
+                     (if (memv #{kind\ 11648}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 2514}#
+                                  #{mod\ 11649}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 2505}#
-                           #{mod\ 2514}#
-                           #{var\ 2504}#
+                         (#{modref-cont\ 11640}#
+                           #{mod\ 11649}#
+                           #{var\ 11639}#
                            #f)
-                         (#{bare-cont\ 2506}# #{var\ 2504}#))
-                       (if (memv #{kind\ 2513}# (quote (bare)))
-                         (#{bare-cont\ 2506}# #{var\ 2504}#)
-                         (if (memv #{kind\ 2513}# (quote (hygiene)))
+                         (#{bare-cont\ 11641}# #{var\ 11639}#))
+                       (if (memv #{kind\ 11648}# (quote (bare)))
+                         (#{bare-cont\ 11641}# #{var\ 11639}#)
+                         (if (memv #{kind\ 11648}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 2514}#
+                                          #{mod\ 11649}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 2514}#)
-                                   #{var\ 2504}#)
+                                   (resolve-module #{mod\ 11649}#)
+                                   #{var\ 11639}#)
                                  #f)
-                             (#{modref-cont\ 2505}#
-                               #{mod\ 2514}#
-                               #{var\ 2504}#
+                             (#{modref-cont\ 11640}#
+                               #{mod\ 11649}#
+                               #{var\ 11639}#
                                #f)
-                             (#{bare-cont\ 2506}# #{var\ 2504}#))
+                             (#{bare-cont\ 11641}# #{var\ 11639}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 2504}#
-                             #{mod\ 2514}#)))))))))
-           (#{build-lexical-assignment\ 190}#
-             (lambda (#{source\ 2522}#
-                      #{name\ 2523}#
-                      #{var\ 2524}#
-                      #{exp\ 2525}#)
-               (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2532}# (quote (c)))
+                             #{var\ 11639}#
+                             #{mod\ 11649}#)))))))))
+           (#{build-lexical-assignment\ 9344}#
+             (lambda (#{source\ 11657}#
+                      #{name\ 11658}#
+                      #{var\ 11659}#
+                      #{exp\ 11660}#)
+               (let ((#{atom-key\ 11667}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11667}# (quote (c)))
                    ((@ (language tree-il) make-lexical-set)
-                    #{source\ 2522}#
-                    #{name\ 2523}#
-                    #{var\ 2524}#
-                    #{exp\ 2525}#)
-                   (#{decorate-source\ 180}#
-                     (list (quote set!) #{var\ 2524}# #{exp\ 2525}#)
-                     #{source\ 2522}#)))))
-           (#{build-lexical-reference\ 188}#
-             (lambda (#{type\ 2536}#
-                      #{source\ 2537}#
-                      #{name\ 2538}#
-                      #{var\ 2539}#)
-               (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2546}# (quote (c)))
+                    #{source\ 11657}#
+                    #{name\ 11658}#
+                    #{var\ 11659}#
+                    #{exp\ 11660}#)
+                   (#{decorate-source\ 9334}#
+                     (list (quote set!) #{var\ 11659}# #{exp\ 11660}#)
+                     #{source\ 11657}#)))))
+           (#{build-lexical-reference\ 9342}#
+             (lambda (#{type\ 11671}#
+                      #{source\ 11672}#
+                      #{name\ 11673}#
+                      #{var\ 11674}#)
+               (let ((#{atom-key\ 11681}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11681}# (quote (c)))
                    ((@ (language tree-il) make-lexical-ref)
-                    #{source\ 2537}#
-                    #{name\ 2538}#
-                    #{var\ 2539}#)
-                   (#{decorate-source\ 180}#
-                     #{var\ 2539}#
-                     #{source\ 2537}#)))))
-           (#{build-conditional\ 186}#
-             (lambda (#{source\ 2549}#
-                      #{test-exp\ 2550}#
-                      #{then-exp\ 2551}#
-                      #{else-exp\ 2552}#)
-               (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2559}# (quote (c)))
+                    #{source\ 11672}#
+                    #{name\ 11673}#
+                    #{var\ 11674}#)
+                   (#{decorate-source\ 9334}#
+                     #{var\ 11674}#
+                     #{source\ 11672}#)))))
+           (#{build-conditional\ 9340}#
+             (lambda (#{source\ 11684}#
+                      #{test-exp\ 11685}#
+                      #{then-exp\ 11686}#
+                      #{else-exp\ 11687}#)
+               (let ((#{atom-key\ 11694}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11694}# (quote (c)))
                    ((@ (language tree-il) make-conditional)
-                    #{source\ 2549}#
-                    #{test-exp\ 2550}#
-                    #{then-exp\ 2551}#
-                    #{else-exp\ 2552}#)
-                   (#{decorate-source\ 180}#
-                     (if (equal? #{else-exp\ 2552}# (quote (if #f #f)))
+                    #{source\ 11684}#
+                    #{test-exp\ 11685}#
+                    #{then-exp\ 11686}#
+                    #{else-exp\ 11687}#)
+                   (#{decorate-source\ 9334}#
+                     (if (equal? #{else-exp\ 11687}# (quote (if #f #f)))
                        (list 'if
-                             #{test-exp\ 2550}#
-                             #{then-exp\ 2551}#)
+                             #{test-exp\ 11685}#
+                             #{then-exp\ 11686}#)
                        (list 'if
-                             #{test-exp\ 2550}#
-                             #{then-exp\ 2551}#
-                             #{else-exp\ 2552}#))
-                     #{source\ 2549}#)))))
-           (#{build-application\ 184}#
-             (lambda (#{source\ 2564}#
-                      #{fun-exp\ 2565}#
-                      #{arg-exps\ 2566}#)
-               (let ((#{atom-key\ 2572}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2572}# (quote (c)))
+                             #{test-exp\ 11685}#
+                             #{then-exp\ 11686}#
+                             #{else-exp\ 11687}#))
+                     #{source\ 11684}#)))))
+           (#{build-application\ 9338}#
+             (lambda (#{source\ 11699}#
+                      #{fun-exp\ 11700}#
+                      #{arg-exps\ 11701}#)
+               (let ((#{atom-key\ 11707}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11707}# (quote (c)))
                    ((@ (language tree-il) make-application)
-                    #{source\ 2564}#
-                    #{fun-exp\ 2565}#
-                    #{arg-exps\ 2566}#)
-                   (#{decorate-source\ 180}#
-                     (cons #{fun-exp\ 2565}# #{arg-exps\ 2566}#)
-                     #{source\ 2564}#)))))
-           (#{build-void\ 182}#
-             (lambda (#{source\ 2576}#)
-               (let ((#{atom-key\ 2580}# (fluid-ref #{*mode*\ 161}#)))
-                 (if (memv #{atom-key\ 2580}# (quote (c)))
+                    #{source\ 11699}#
+                    #{fun-exp\ 11700}#
+                    #{arg-exps\ 11701}#)
+                   (#{decorate-source\ 9334}#
+                     (cons #{fun-exp\ 11700}# #{arg-exps\ 11701}#)
+                     #{source\ 11699}#)))))
+           (#{build-void\ 9336}#
+             (lambda (#{source\ 11711}#)
+               (let ((#{atom-key\ 11715}#
+                       (fluid-ref #{*mode*\ 9315}#)))
+                 (if (memv #{atom-key\ 11715}# (quote (c)))
                    ((@ (language tree-il) make-void)
-                    #{source\ 2576}#)
-                   (#{decorate-source\ 180}#
+                    #{source\ 11711}#)
+                   (#{decorate-source\ 9334}#
                      '(if #f #f)
-                     #{source\ 2576}#)))))
-           (#{decorate-source\ 180}#
-             (lambda (#{e\ 2583}# #{s\ 2584}#)
+                     #{source\ 11711}#)))))
+           (#{decorate-source\ 9334}#
+             (lambda (#{e\ 11718}# #{s\ 11719}#)
                (begin
-                 (if (if (pair? #{e\ 2583}#) #{s\ 2584}# #f)
-                   (set-source-properties! #{e\ 2583}# #{s\ 2584}#))
-                 #{e\ 2583}#)))
-           (#{get-global-definition-hook\ 178}#
-             (lambda (#{symbol\ 2589}# #{module\ 2590}#)
+                 (if (if (pair? #{e\ 11718}#) #{s\ 11719}# #f)
+                   (set-source-properties!
+                     #{e\ 11718}#
+                     #{s\ 11719}#))
+                 #{e\ 11718}#)))
+           (#{get-global-definition-hook\ 9332}#
+             (lambda (#{symbol\ 11724}# #{module\ 11725}#)
                (begin
-                 (if (if (not #{module\ 2590}#) (current-module) #f)
+                 (if (if (not #{module\ 11725}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 2589}#))
-                 (let ((#{v\ 2596}#
+                         #{symbol\ 11724}#))
+                 (let ((#{v\ 11731}#
                          (module-variable
-                           (if #{module\ 2590}#
-                             (resolve-module (cdr #{module\ 2590}#))
+                           (if #{module\ 11725}#
+                             (resolve-module (cdr #{module\ 11725}#))
                              (current-module))
-                           #{symbol\ 2589}#)))
-                   (if #{v\ 2596}#
-                     (if (variable-bound? #{v\ 2596}#)
-                       (let ((#{val\ 2601}# (variable-ref #{v\ 2596}#)))
-                         (if (macro? #{val\ 2601}#)
-                           (if (syncase-macro-type #{val\ 2601}#)
-                             (cons (syncase-macro-type #{val\ 2601}#)
-                                   (syncase-macro-binding #{val\ 2601}#))
+                           #{symbol\ 11724}#)))
+                   (if #{v\ 11731}#
+                     (if (variable-bound? #{v\ 11731}#)
+                       (let ((#{val\ 11736}# (variable-ref #{v\ 11731}#)))
+                         (if (macro? #{val\ 11736}#)
+                           (if (macro-type #{val\ 11736}#)
+                             (cons (macro-type #{val\ 11736}#)
+                                   (macro-binding #{val\ 11736}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 176}#
-             (lambda (#{symbol\ 2605}# #{type\ 2606}# #{val\ 2607}#)
-               (let ((#{existing\ 2612}#
-                       (let ((#{v\ 2614}#
-                               (module-variable
-                                 (current-module)
-                                 #{symbol\ 2605}#)))
-                         (if #{v\ 2614}#
-                           (if (variable-bound? #{v\ 2614}#)
-                             (let ((#{val\ 2619}# (variable-ref #{v\ 2614}#)))
-                               (if (macro? #{val\ 2619}#)
-                                 (if (not (syncase-macro-type #{val\ 2619}#))
-                                   #{val\ 2619}#
-                                   #f)
-                                 #f))
-                             #f)
-                           #f))))
-                 (module-define!
-                   (current-module)
-                   #{symbol\ 2605}#
-                   (if #{existing\ 2612}#
-                     (make-extended-syncase-macro
-                       #{existing\ 2612}#
-                       #{type\ 2606}#
-                       #{val\ 2607}#)
-                     (make-syncase-macro #{type\ 2606}# #{val\ 2607}#))))))
-           (#{local-eval-hook\ 173}#
-             (lambda (#{x\ 2623}# #{mod\ 2624}#)
+           (#{put-global-definition-hook\ 9330}#
+             (lambda (#{symbol\ 11740}#
+                      #{type\ 11741}#
+                      #{val\ 11742}#)
+               (module-define!
+                 (current-module)
+                 #{symbol\ 11740}#
+                 (make-syntax-transformer
+                   #{symbol\ 11740}#
+                   #{type\ 11741}#
+                   #{val\ 11742}#))))
+           (#{local-eval-hook\ 9327}#
+             (lambda (#{x\ 11746}# #{mod\ 11747}#)
                (primitive-eval
-                 (list #{noexpand\ 159}#
-                       (let ((#{atom-key\ 2630}# (fluid-ref #{*mode*\ 161}#)))
-                         (if (memv #{atom-key\ 2630}# (quote (c)))
+                 (list #{noexpand\ 9313}#
+                       (let ((#{atom-key\ 11753}#
+                               (fluid-ref #{*mode*\ 9315}#)))
+                         (if (memv #{atom-key\ 11753}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 2623}#)
-                           #{x\ 2623}#))))))
-           (#{top-level-eval-hook\ 171}#
-             (lambda (#{x\ 2633}# #{mod\ 2634}#)
+                            #{x\ 11746}#)
+                           #{x\ 11746}#))))))
+           (#{top-level-eval-hook\ 9325}#
+             (lambda (#{x\ 11756}# #{mod\ 11757}#)
                (primitive-eval
-                 (list #{noexpand\ 159}#
-                       (let ((#{atom-key\ 2640}# (fluid-ref #{*mode*\ 161}#)))
-                         (if (memv #{atom-key\ 2640}# (quote (c)))
+                 (list #{noexpand\ 9313}#
+                       (let ((#{atom-key\ 11763}#
+                               (fluid-ref #{*mode*\ 9315}#)))
+                         (if (memv #{atom-key\ 11763}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 2633}#)
-                           #{x\ 2633}#))))))
-           (#{fx<\ 169}# <)
-           (#{fx=\ 167}# =)
-           (#{fx-\ 165}# -)
-           (#{fx+\ 163}# +)
-           (#{*mode*\ 161}# (make-fluid))
-           (#{noexpand\ 159}# "noexpand"))
+                            #{x\ 11756}#)
+                           #{x\ 11756}#))))))
+           (#{fx<\ 9323}# <)
+           (#{fx=\ 9321}# =)
+           (#{fx-\ 9319}# -)
+           (#{fx+\ 9317}# +)
+           (#{*mode*\ 9315}# (make-fluid))
+           (#{noexpand\ 9313}# "noexpand"))
     (begin
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'core
         'fluid-let-syntax
-        (lambda (#{e\ 2643}#
-                 #{r\ 2644}#
-                 #{w\ 2645}#
-                 #{s\ 2646}#
-                 #{mod\ 2647}#)
-          ((lambda (#{tmp\ 2653}#)
-             ((lambda (#{tmp\ 2654}#)
-                (if (if #{tmp\ 2654}#
-                      (apply (lambda (#{_\ 2660}#
-                                      #{var\ 2661}#
-                                      #{val\ 2662}#
-                                      #{e1\ 2663}#
-                                      #{e2\ 2664}#)
-                               (#{valid-bound-ids?\ 323}# #{var\ 2661}#))
-                             #{tmp\ 2654}#)
+        (lambda (#{e\ 11766}#
+                 #{r\ 11767}#
+                 #{w\ 11768}#
+                 #{s\ 11769}#
+                 #{mod\ 11770}#)
+          ((lambda (#{tmp\ 11776}#)
+             ((lambda (#{tmp\ 11777}#)
+                (if (if #{tmp\ 11777}#
+                      (apply (lambda (#{_\ 11783}#
+                                      #{var\ 11784}#
+                                      #{val\ 11785}#
+                                      #{e1\ 11786}#
+                                      #{e2\ 11787}#)
+                               (#{valid-bound-ids?\ 9477}# #{var\ 11784}#))
+                             #{tmp\ 11777}#)
                       #f)
-                  (apply (lambda (#{_\ 2671}#
-                                  #{var\ 2672}#
-                                  #{val\ 2673}#
-                                  #{e1\ 2674}#
-                                  #{e2\ 2675}#)
-                           (let ((#{names\ 2677}#
-                                   (map (lambda (#{x\ 2678}#)
-                                          (#{id-var-name\ 317}#
-                                            #{x\ 2678}#
-                                            #{w\ 2645}#))
-                                        #{var\ 2672}#)))
+                  (apply (lambda (#{_\ 11794}#
+                                  #{var\ 11795}#
+                                  #{val\ 11796}#
+                                  #{e1\ 11797}#
+                                  #{e2\ 11798}#)
+                           (let ((#{names\ 11800}#
+                                   (map (lambda (#{x\ 11801}#)
+                                          (#{id-var-name\ 9471}#
+                                            #{x\ 11801}#
+                                            #{w\ 11768}#))
+                                        #{var\ 11795}#)))
                              (begin
                                (for-each
-                                 (lambda (#{id\ 2681}# #{n\ 2682}#)
-                                   (let ((#{atom-key\ 2687}#
-                                           (#{binding-type\ 243}#
-                                             (#{lookup\ 254}#
-                                               #{n\ 2682}#
-                                               #{r\ 2644}#
-                                               #{mod\ 2647}#))))
-                                     (if (memv #{atom-key\ 2687}#
+                                 (lambda (#{id\ 11804}# #{n\ 11805}#)
+                                   (let ((#{atom-key\ 11810}#
+                                           (#{binding-type\ 9397}#
+                                             (#{lookup\ 9408}#
+                                               #{n\ 11805}#
+                                               #{r\ 11767}#
+                                               #{mod\ 11770}#))))
+                                     (if (memv #{atom-key\ 11810}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{e\ 2643}#
-                                         (#{source-wrap\ 331}#
-                                           #{id\ 2681}#
-                                           #{w\ 2645}#
-                                           #{s\ 2646}#
-                                           #{mod\ 2647}#)))))
-                                 #{var\ 2672}#
-                                 #{names\ 2677}#)
-                               (#{chi-body\ 353}#
-                                 (cons #{e1\ 2674}# #{e2\ 2675}#)
-                                 (#{source-wrap\ 331}#
-                                   #{e\ 2643}#
-                                   #{w\ 2645}#
-                                   #{s\ 2646}#
-                                   #{mod\ 2647}#)
-                                 (#{extend-env\ 248}#
-                                   #{names\ 2677}#
-                                   (let ((#{trans-r\ 2692}#
-                                           (#{macros-only-env\ 252}#
-                                             #{r\ 2644}#)))
-                                     (map (lambda (#{x\ 2693}#)
+                                         #{e\ 11766}#
+                                         (#{source-wrap\ 9485}#
+                                           #{id\ 11804}#
+                                           #{w\ 11768}#
+                                           #{s\ 11769}#
+                                           #{mod\ 11770}#)))))
+                                 #{var\ 11795}#
+                                 #{names\ 11800}#)
+                               (#{chi-body\ 9507}#
+                                 (cons #{e1\ 11797}# #{e2\ 11798}#)
+                                 (#{source-wrap\ 9485}#
+                                   #{e\ 11766}#
+                                   #{w\ 11768}#
+                                   #{s\ 11769}#
+                                   #{mod\ 11770}#)
+                                 (#{extend-env\ 9402}#
+                                   #{names\ 11800}#
+                                   (let ((#{trans-r\ 11815}#
+                                           (#{macros-only-env\ 9406}#
+                                             #{r\ 11767}#)))
+                                     (map (lambda (#{x\ 11816}#)
                                             (cons 'macro
-                                                  (#{eval-local-transformer\ 
357}#
-                                                    (#{chi\ 345}#
-                                                      #{x\ 2693}#
-                                                      #{trans-r\ 2692}#
-                                                      #{w\ 2645}#
-                                                      #{mod\ 2647}#)
-                                                    #{mod\ 2647}#)))
-                                          #{val\ 2673}#))
-                                   #{r\ 2644}#)
-                                 #{w\ 2645}#
-                                 #{mod\ 2647}#))))
-                         #{tmp\ 2654}#)
-                  ((lambda (#{_\ 2698}#)
+                                                  (#{eval-local-transformer\ 
9511}#
+                                                    (#{chi\ 9499}#
+                                                      #{x\ 11816}#
+                                                      #{trans-r\ 11815}#
+                                                      #{w\ 11768}#
+                                                      #{mod\ 11770}#)
+                                                    #{mod\ 11770}#)))
+                                          #{val\ 11796}#))
+                                   #{r\ 11767}#)
+                                 #{w\ 11768}#
+                                 #{mod\ 11770}#))))
+                         #{tmp\ 11777}#)
+                  ((lambda (#{_\ 11821}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 331}#
-                         #{e\ 2643}#
-                         #{w\ 2645}#
-                         #{s\ 2646}#
-                         #{mod\ 2647}#)))
-                   #{tmp\ 2653}#)))
+                       (#{source-wrap\ 9485}#
+                         #{e\ 11766}#
+                         #{w\ 11768}#
+                         #{s\ 11769}#
+                         #{mod\ 11770}#)))
+                   #{tmp\ 11776}#)))
               ($sc-dispatch
-                #{tmp\ 2653}#
+                #{tmp\ 11776}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 2643}#)))
-      (#{global-extend\ 256}#
+           #{e\ 11766}#)))
+      (#{global-extend\ 9410}#
         'core
         'quote
-        (lambda (#{e\ 2699}#
-                 #{r\ 2700}#
-                 #{w\ 2701}#
-                 #{s\ 2702}#
-                 #{mod\ 2703}#)
-          ((lambda (#{tmp\ 2709}#)
-             ((lambda (#{tmp\ 2710}#)
-                (if #{tmp\ 2710}#
-                  (apply (lambda (#{_\ 2713}# #{e\ 2714}#)
-                           (#{build-data\ 210}#
-                             #{s\ 2702}#
-                             (#{strip\ 371}# #{e\ 2714}# #{w\ 2701}#)))
-                         #{tmp\ 2710}#)
-                  ((lambda (#{_\ 2716}#)
+        (lambda (#{e\ 11822}#
+                 #{r\ 11823}#
+                 #{w\ 11824}#
+                 #{s\ 11825}#
+                 #{mod\ 11826}#)
+          ((lambda (#{tmp\ 11832}#)
+             ((lambda (#{tmp\ 11833}#)
+                (if #{tmp\ 11833}#
+                  (apply (lambda (#{_\ 11836}# #{e\ 11837}#)
+                           (#{build-data\ 9364}#
+                             #{s\ 11825}#
+                             (#{strip\ 9525}# #{e\ 11837}# #{w\ 11824}#)))
+                         #{tmp\ 11833}#)
+                  ((lambda (#{_\ 11839}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{source-wrap\ 331}#
-                         #{e\ 2699}#
-                         #{w\ 2701}#
-                         #{s\ 2702}#
-                         #{mod\ 2703}#)))
-                   #{tmp\ 2709}#)))
-              ($sc-dispatch #{tmp\ 2709}# (quote (any any)))))
-           #{e\ 2699}#)))
-      (#{global-extend\ 256}#
+                       (#{source-wrap\ 9485}#
+                         #{e\ 11822}#
+                         #{w\ 11824}#
+                         #{s\ 11825}#
+                         #{mod\ 11826}#)))
+                   #{tmp\ 11832}#)))
+              ($sc-dispatch #{tmp\ 11832}# (quote (any any)))))
+           #{e\ 11822}#)))
+      (#{global-extend\ 9410}#
         'core
         'syntax
-        (letrec ((#{regen\ 2732}#
-                   (lambda (#{x\ 2733}#)
-                     (let ((#{atom-key\ 2737}# (car #{x\ 2733}#)))
-                       (if (memv #{atom-key\ 2737}# (quote (ref)))
-                         (#{build-lexical-reference\ 188}#
+        (letrec ((#{regen\ 11855}#
+                   (lambda (#{x\ 11856}#)
+                     (let ((#{atom-key\ 11860}# (car #{x\ 11856}#)))
+                       (if (memv #{atom-key\ 11860}# (quote (ref)))
+                         (#{build-lexical-reference\ 9342}#
                            'value
                            #f
-                           (cadr #{x\ 2733}#)
-                           (cadr #{x\ 2733}#))
-                         (if (memv #{atom-key\ 2737}# (quote (primitive)))
-                           (#{build-primref\ 208}# #f (cadr #{x\ 2733}#))
-                           (if (memv #{atom-key\ 2737}# (quote (quote)))
-                             (#{build-data\ 210}# #f (cadr #{x\ 2733}#))
-                             (if (memv #{atom-key\ 2737}# (quote (lambda)))
-                               (if (list? (cadr #{x\ 2733}#))
-                                 (#{build-simple-lambda\ 202}#
+                           (cadr #{x\ 11856}#)
+                           (cadr #{x\ 11856}#))
+                         (if (memv #{atom-key\ 11860}# (quote (primitive)))
+                           (#{build-primref\ 9362}# #f (cadr #{x\ 11856}#))
+                           (if (memv #{atom-key\ 11860}# (quote (quote)))
+                             (#{build-data\ 9364}# #f (cadr #{x\ 11856}#))
+                             (if (memv #{atom-key\ 11860}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 11856}#))
+                                 (#{build-simple-lambda\ 9356}#
                                    #f
-                                   (cadr #{x\ 2733}#)
+                                   (cadr #{x\ 11856}#)
                                    #f
-                                   (cadr #{x\ 2733}#)
+                                   (cadr #{x\ 11856}#)
                                    #f
-                                   (#{regen\ 2732}# (caddr #{x\ 2733}#)))
-                                 (error "how did we get here" #{x\ 2733}#))
-                               (#{build-application\ 184}#
+                                   (#{regen\ 11855}# (caddr #{x\ 11856}#)))
+                                 (error "how did we get here" #{x\ 11856}#))
+                               (#{build-application\ 9338}#
                                  #f
-                                 (#{build-primref\ 208}# #f (car #{x\ 2733}#))
-                                 (map #{regen\ 2732}#
-                                      (cdr #{x\ 2733}#))))))))))
-                 (#{gen-vector\ 2730}#
-                   (lambda (#{x\ 2749}#)
-                     (if (eq? (car #{x\ 2749}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 2749}#))
-                       (if (eq? (car #{x\ 2749}#) (quote quote))
+                                 (#{build-primref\ 9362}#
+                                   #f
+                                   (car #{x\ 11856}#))
+                                 (map #{regen\ 11855}#
+                                      (cdr #{x\ 11856}#))))))))))
+                 (#{gen-vector\ 11853}#
+                   (lambda (#{x\ 11872}#)
+                     (if (eq? (car #{x\ 11872}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 11872}#))
+                       (if (eq? (car #{x\ 11872}#) (quote quote))
                          (list 'quote
-                               (list->vector (cadr #{x\ 2749}#)))
-                         (list (quote list->vector) #{x\ 2749}#)))))
-                 (#{gen-append\ 2728}#
-                   (lambda (#{x\ 2759}# #{y\ 2760}#)
-                     (if (equal? #{y\ 2760}# (quote (quote ())))
-                       #{x\ 2759}#
-                       (list (quote append) #{x\ 2759}# #{y\ 2760}#))))
-                 (#{gen-cons\ 2726}#
-                   (lambda (#{x\ 2764}# #{y\ 2765}#)
-                     (let ((#{atom-key\ 2770}# (car #{y\ 2765}#)))
-                       (if (memv #{atom-key\ 2770}# (quote (quote)))
-                         (if (eq? (car #{x\ 2764}#) (quote quote))
+                               (list->vector (cadr #{x\ 11872}#)))
+                         (list (quote list->vector) #{x\ 11872}#)))))
+                 (#{gen-append\ 11851}#
+                   (lambda (#{x\ 11882}# #{y\ 11883}#)
+                     (if (equal? #{y\ 11883}# (quote (quote ())))
+                       #{x\ 11882}#
+                       (list (quote append) #{x\ 11882}# #{y\ 11883}#))))
+                 (#{gen-cons\ 11849}#
+                   (lambda (#{x\ 11887}# #{y\ 11888}#)
+                     (let ((#{atom-key\ 11893}# (car #{y\ 11888}#)))
+                       (if (memv #{atom-key\ 11893}# (quote (quote)))
+                         (if (eq? (car #{x\ 11887}#) (quote quote))
                            (list 'quote
-                                 (cons (cadr #{x\ 2764}#) (cadr #{y\ 2765}#)))
-                           (if (eq? (cadr #{y\ 2765}#) (quote ()))
-                             (list (quote list) #{x\ 2764}#)
-                             (list (quote cons) #{x\ 2764}# #{y\ 2765}#)))
-                         (if (memv #{atom-key\ 2770}# (quote (list)))
+                                 (cons (cadr #{x\ 11887}#)
+                                       (cadr #{y\ 11888}#)))
+                           (if (eq? (cadr #{y\ 11888}#) (quote ()))
+                             (list (quote list) #{x\ 11887}#)
+                             (list (quote cons) #{x\ 11887}# #{y\ 11888}#)))
+                         (if (memv #{atom-key\ 11893}# (quote (list)))
                            (cons 'list
-                                 (cons #{x\ 2764}# (cdr #{y\ 2765}#)))
-                           (list (quote cons) #{x\ 2764}# #{y\ 2765}#))))))
-                 (#{gen-map\ 2724}#
-                   (lambda (#{e\ 2779}# #{map-env\ 2780}#)
-                     (let ((#{formals\ 2785}# (map cdr #{map-env\ 2780}#))
-                           (#{actuals\ 2786}#
-                             (map (lambda (#{x\ 2787}#)
-                                    (list (quote ref) (car #{x\ 2787}#)))
-                                  #{map-env\ 2780}#)))
-                       (if (eq? (car #{e\ 2779}#) (quote ref))
-                         (car #{actuals\ 2786}#)
+                                 (cons #{x\ 11887}# (cdr #{y\ 11888}#)))
+                           (list (quote cons) #{x\ 11887}# #{y\ 11888}#))))))
+                 (#{gen-map\ 11847}#
+                   (lambda (#{e\ 11902}# #{map-env\ 11903}#)
+                     (let ((#{formals\ 11908}# (map cdr #{map-env\ 11903}#))
+                           (#{actuals\ 11909}#
+                             (map (lambda (#{x\ 11910}#)
+                                    (list (quote ref) (car #{x\ 11910}#)))
+                                  #{map-env\ 11903}#)))
+                       (if (eq? (car #{e\ 11902}#) (quote ref))
+                         (car #{actuals\ 11909}#)
                          (if (and-map
-                               (lambda (#{x\ 2794}#)
-                                 (if (eq? (car #{x\ 2794}#) (quote ref))
-                                   (memq (cadr #{x\ 2794}#) #{formals\ 2785}#)
+                               (lambda (#{x\ 11917}#)
+                                 (if (eq? (car #{x\ 11917}#) (quote ref))
+                                   (memq (cadr #{x\ 11917}#)
+                                         #{formals\ 11908}#)
                                    #f))
-                               (cdr #{e\ 2779}#))
+                               (cdr #{e\ 11902}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 2779}#))
-                                       (map (let ((#{r\ 2800}#
+                                             (car #{e\ 11902}#))
+                                       (map (let ((#{r\ 11923}#
                                                     (map cons
-                                                         #{formals\ 2785}#
-                                                         #{actuals\ 2786}#)))
-                                              (lambda (#{x\ 2801}#)
-                                                (cdr (assq (cadr #{x\ 2801}#)
-                                                           #{r\ 2800}#))))
-                                            (cdr #{e\ 2779}#))))
+                                                         #{formals\ 11908}#
+                                                         #{actuals\ 11909}#)))
+                                              (lambda (#{x\ 11924}#)
+                                                (cdr (assq (cadr #{x\ 11924}#)
+                                                           #{r\ 11923}#))))
+                                            (cdr #{e\ 11902}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 2785}#
-                                             #{e\ 2779}#)
-                                       #{actuals\ 2786}#)))))))
-                 (#{gen-mappend\ 2722}#
-                   (lambda (#{e\ 2805}# #{map-env\ 2806}#)
+                                             #{formals\ 11908}#
+                                             #{e\ 11902}#)
+                                       #{actuals\ 11909}#)))))))
+                 (#{gen-mappend\ 11845}#
+                   (lambda (#{e\ 11928}# #{map-env\ 11929}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 2724}# #{e\ 2805}# #{map-env\ 2806}#))))
-                 (#{gen-ref\ 2720}#
-                   (lambda (#{src\ 2810}#
-                            #{var\ 2811}#
-                            #{level\ 2812}#
-                            #{maps\ 2813}#)
-                     (if (#{fx=\ 167}# #{level\ 2812}# 0)
-                       (values #{var\ 2811}# #{maps\ 2813}#)
-                       (if (null? #{maps\ 2813}#)
+                           (#{gen-map\ 11847}#
+                             #{e\ 11928}#
+                             #{map-env\ 11929}#))))
+                 (#{gen-ref\ 11843}#
+                   (lambda (#{src\ 11933}#
+                            #{var\ 11934}#
+                            #{level\ 11935}#
+                            #{maps\ 11936}#)
+                     (if (#{fx=\ 9321}# #{level\ 11935}# 0)
+                       (values #{var\ 11934}# #{maps\ 11936}#)
+                       (if (null? #{maps\ 11936}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 2810}#)
+                           #{src\ 11933}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 2720}#
-                               #{src\ 2810}#
-                               #{var\ 2811}#
-                               (#{fx-\ 165}# #{level\ 2812}# 1)
-                               (cdr #{maps\ 2813}#)))
-                           (lambda (#{outer-var\ 2818}# #{outer-maps\ 2819}#)
-                             (let ((#{b\ 2823}#
-                                     (assq #{outer-var\ 2818}#
-                                           (car #{maps\ 2813}#))))
-                               (if #{b\ 2823}#
-                                 (values (cdr #{b\ 2823}#) #{maps\ 2813}#)
-                                 (let ((#{inner-var\ 2825}#
-                                         (#{gen-var\ 373}# (quote tmp))))
+                             (#{gen-ref\ 11843}#
+                               #{src\ 11933}#
+                               #{var\ 11934}#
+                               (#{fx-\ 9319}# #{level\ 11935}# 1)
+                               (cdr #{maps\ 11936}#)))
+                           (lambda (#{outer-var\ 11941}# #{outer-maps\ 11942}#)
+                             (let ((#{b\ 11946}#
+                                     (assq #{outer-var\ 11941}#
+                                           (car #{maps\ 11936}#))))
+                               (if #{b\ 11946}#
+                                 (values (cdr #{b\ 11946}#) #{maps\ 11936}#)
+                                 (let ((#{inner-var\ 11948}#
+                                         (#{gen-var\ 9527}# (quote tmp))))
                                    (values
-                                     #{inner-var\ 2825}#
-                                     (cons (cons (cons #{outer-var\ 2818}#
-                                                       #{inner-var\ 2825}#)
-                                                 (car #{maps\ 2813}#))
-                                           #{outer-maps\ 2819}#)))))))))))
-                 (#{gen-syntax\ 2718}#
-                   (lambda (#{src\ 2826}#
-                            #{e\ 2827}#
-                            #{r\ 2828}#
-                            #{maps\ 2829}#
-                            #{ellipsis?\ 2830}#
-                            #{mod\ 2831}#)
-                     (if (#{id?\ 260}# #{e\ 2827}#)
-                       (let ((#{label\ 2839}#
-                               (#{id-var-name\ 317}#
-                                 #{e\ 2827}#
+                                     #{inner-var\ 11948}#
+                                     (cons (cons (cons #{outer-var\ 11941}#
+                                                       #{inner-var\ 11948}#)
+                                                 (car #{maps\ 11936}#))
+                                           #{outer-maps\ 11942}#)))))))))))
+                 (#{gen-syntax\ 11841}#
+                   (lambda (#{src\ 11949}#
+                            #{e\ 11950}#
+                            #{r\ 11951}#
+                            #{maps\ 11952}#
+                            #{ellipsis?\ 11953}#
+                            #{mod\ 11954}#)
+                     (if (#{id?\ 9414}# #{e\ 11950}#)
+                       (let ((#{label\ 11962}#
+                               (#{id-var-name\ 9471}#
+                                 #{e\ 11950}#
                                  '(()))))
-                         (let ((#{b\ 2842}#
-                                 (#{lookup\ 254}#
-                                   #{label\ 2839}#
-                                   #{r\ 2828}#
-                                   #{mod\ 2831}#)))
-                           (if (eq? (#{binding-type\ 243}# #{b\ 2842}#)
+                         (let ((#{b\ 11965}#
+                                 (#{lookup\ 9408}#
+                                   #{label\ 11962}#
+                                   #{r\ 11951}#
+                                   #{mod\ 11954}#)))
+                           (if (eq? (#{binding-type\ 9397}# #{b\ 11965}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (let ((#{var.lev\ 2844}#
-                                         (#{binding-value\ 245}# #{b\ 2842}#)))
-                                   (#{gen-ref\ 2720}#
-                                     #{src\ 2826}#
-                                     (car #{var.lev\ 2844}#)
-                                     (cdr #{var.lev\ 2844}#)
-                                     #{maps\ 2829}#)))
-                               (lambda (#{var\ 2845}# #{maps\ 2846}#)
+                                 (let ((#{var.lev\ 11967}#
+                                         (#{binding-value\ 9399}#
+                                           #{b\ 11965}#)))
+                                   (#{gen-ref\ 11843}#
+                                     #{src\ 11949}#
+                                     (car #{var.lev\ 11967}#)
+                                     (cdr #{var.lev\ 11967}#)
+                                     #{maps\ 11952}#)))
+                               (lambda (#{var\ 11968}# #{maps\ 11969}#)
                                  (values
-                                   (list (quote ref) #{var\ 2845}#)
-                                   #{maps\ 2846}#)))
-                             (if (#{ellipsis?\ 2830}# #{e\ 2827}#)
+                                   (list (quote ref) #{var\ 11968}#)
+                                   #{maps\ 11969}#)))
+                             (if (#{ellipsis?\ 11953}# #{e\ 11950}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 2826}#)
+                                 #{src\ 11949}#)
                                (values
-                                 (list (quote quote) #{e\ 2827}#)
-                                 #{maps\ 2829}#)))))
-                       ((lambda (#{tmp\ 2851}#)
-                          ((lambda (#{tmp\ 2852}#)
-                             (if (if #{tmp\ 2852}#
-                                   (apply (lambda (#{dots\ 2855}# #{e\ 2856}#)
-                                            (#{ellipsis?\ 2830}#
-                                              #{dots\ 2855}#))
-                                          #{tmp\ 2852}#)
+                                 (list (quote quote) #{e\ 11950}#)
+                                 #{maps\ 11952}#)))))
+                       ((lambda (#{tmp\ 11974}#)
+                          ((lambda (#{tmp\ 11975}#)
+                             (if (if #{tmp\ 11975}#
+                                   (apply (lambda (#{dots\ 11978}#
+                                                   #{e\ 11979}#)
+                                            (#{ellipsis?\ 11953}#
+                                              #{dots\ 11978}#))
+                                          #{tmp\ 11975}#)
                                    #f)
-                               (apply (lambda (#{dots\ 2859}# #{e\ 2860}#)
-                                        (#{gen-syntax\ 2718}#
-                                          #{src\ 2826}#
-                                          #{e\ 2860}#
-                                          #{r\ 2828}#
-                                          #{maps\ 2829}#
-                                          (lambda (#{x\ 2861}#) #f)
-                                          #{mod\ 2831}#))
-                                      #{tmp\ 2852}#)
-                               ((lambda (#{tmp\ 2863}#)
-                                  (if (if #{tmp\ 2863}#
-                                        (apply (lambda (#{x\ 2867}#
-                                                        #{dots\ 2868}#
-                                                        #{y\ 2869}#)
-                                                 (#{ellipsis?\ 2830}#
-                                                   #{dots\ 2868}#))
-                                               #{tmp\ 2863}#)
+                               (apply (lambda (#{dots\ 11982}# #{e\ 11983}#)
+                                        (#{gen-syntax\ 11841}#
+                                          #{src\ 11949}#
+                                          #{e\ 11983}#
+                                          #{r\ 11951}#
+                                          #{maps\ 11952}#
+                                          (lambda (#{x\ 11984}#) #f)
+                                          #{mod\ 11954}#))
+                                      #{tmp\ 11975}#)
+                               ((lambda (#{tmp\ 11986}#)
+                                  (if (if #{tmp\ 11986}#
+                                        (apply (lambda (#{x\ 11990}#
+                                                        #{dots\ 11991}#
+                                                        #{y\ 11992}#)
+                                                 (#{ellipsis?\ 11953}#
+                                                   #{dots\ 11991}#))
+                                               #{tmp\ 11986}#)
                                         #f)
-                                    (apply (lambda (#{x\ 2873}#
-                                                    #{dots\ 2874}#
-                                                    #{y\ 2875}#)
-                                             (letrec ((#{f\ 2879}#
-                                                        (lambda (#{y\ 2880}#
-                                                                 #{k\ 2881}#)
-                                                          ((lambda (#{tmp\ 
2888}#)
-                                                             ((lambda (#{tmp\ 
2889}#)
-                                                                (if (if #{tmp\ 
2889}#
-                                                                      (apply 
(lambda (#{dots\ 2892}#
-                                                                               
       #{y\ 2893}#)
-                                                                               
(#{ellipsis?\ 2830}#
-                                                                               
  #{dots\ 2892}#))
-                                                                             
#{tmp\ 2889}#)
+                                    (apply (lambda (#{x\ 11996}#
+                                                    #{dots\ 11997}#
+                                                    #{y\ 11998}#)
+                                             (letrec ((#{f\ 12002}#
+                                                        (lambda (#{y\ 12003}#
+                                                                 #{k\ 12004}#)
+                                                          ((lambda (#{tmp\ 
12011}#)
+                                                             ((lambda (#{tmp\ 
12012}#)
+                                                                (if (if #{tmp\ 
12012}#
+                                                                      (apply 
(lambda (#{dots\ 12015}#
+                                                                               
       #{y\ 12016}#)
+                                                                               
(#{ellipsis?\ 11953}#
+                                                                               
  #{dots\ 12015}#))
+                                                                             
#{tmp\ 12012}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{dots\ 2896}#
-                                                                               
   #{y\ 2897}#)
-                                                                           
(#{f\ 2879}#
-                                                                             
#{y\ 2897}#
-                                                                             
(lambda (#{maps\ 2898}#)
+                                                                  (apply 
(lambda (#{dots\ 12019}#
+                                                                               
   #{y\ 12020}#)
+                                                                           
(#{f\ 12002}#
+                                                                             
#{y\ 12020}#
+                                                                             
(lambda (#{maps\ 12021}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{k\ 2881}#
+                                                                               
    (#{k\ 12004}#
                                                                                
      (cons '()
-                                                                               
            #{maps\ 2898}#)))
-                                                                               
  (lambda (#{x\ 2900}#
-                                                                               
           #{maps\ 2901}#)
-                                                                               
    (if (null? (car #{maps\ 2901}#))
+                                                                               
            #{maps\ 12021}#)))
+                                                                               
  (lambda (#{x\ 12023}#
+                                                                               
           #{maps\ 12024}#)
+                                                                               
    (if (null? (car #{maps\ 12024}#))
                                                                                
      (syntax-violation
                                                                                
        'syntax
                                                                                
        "extra ellipsis"
-                                                                               
        #{src\ 2826}#)
+                                                                               
        #{src\ 11949}#)
                                                                                
      (values
-                                                                               
        (#{gen-mappend\ 2722}#
-                                                                               
          #{x\ 2900}#
-                                                                               
          (car #{maps\ 2901}#))
-                                                                               
        (cdr #{maps\ 2901}#))))))))
-                                                                         
#{tmp\ 2889}#)
-                                                                  ((lambda 
(#{_\ 2905}#)
+                                                                               
        (#{gen-mappend\ 11845}#
+                                                                               
          #{x\ 12023}#
+                                                                               
          (car #{maps\ 12024}#))
+                                                                               
        (cdr #{maps\ 12024}#))))))))
+                                                                         
#{tmp\ 12012}#)
+                                                                  ((lambda 
(#{_\ 12028}#)
                                                                      
(call-with-values
                                                                        (lambda 
()
-                                                                         
(#{gen-syntax\ 2718}#
-                                                                           
#{src\ 2826}#
-                                                                           
#{y\ 2880}#
-                                                                           
#{r\ 2828}#
-                                                                           
#{maps\ 2829}#
-                                                                           
#{ellipsis?\ 2830}#
-                                                                           
#{mod\ 2831}#))
-                                                                       (lambda 
(#{y\ 2906}#
-                                                                               
 #{maps\ 2907}#)
+                                                                         
(#{gen-syntax\ 11841}#
+                                                                           
#{src\ 11949}#
+                                                                           
#{y\ 12003}#
+                                                                           
#{r\ 11951}#
+                                                                           
#{maps\ 11952}#
+                                                                           
#{ellipsis?\ 11953}#
+                                                                           
#{mod\ 11954}#))
+                                                                       (lambda 
(#{y\ 12029}#
+                                                                               
 #{maps\ 12030}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{k\ 2881}#
-                                                                               
#{maps\ 2907}#))
-                                                                           
(lambda (#{x\ 2910}#
-                                                                               
     #{maps\ 2911}#)
+                                                                             
(#{k\ 12004}#
+                                                                               
#{maps\ 12030}#))
+                                                                           
(lambda (#{x\ 12033}#
+                                                                               
     #{maps\ 12034}#)
                                                                              
(values
-                                                                               
(#{gen-append\ 2728}#
-                                                                               
  #{x\ 2910}#
-                                                                               
  #{y\ 2906}#)
-                                                                               
#{maps\ 2911}#))))))
-                                                                   #{tmp\ 
2888}#)))
+                                                                               
(#{gen-append\ 11851}#
+                                                                               
  #{x\ 12033}#
+                                                                               
  #{y\ 12029}#)
+                                                                               
#{maps\ 12034}#))))))
+                                                                   #{tmp\ 
12011}#)))
                                                               ($sc-dispatch
-                                                                #{tmp\ 2888}#
+                                                                #{tmp\ 12011}#
                                                                 '(any . any))))
-                                                           #{y\ 2880}#))))
-                                               (#{f\ 2879}#
-                                                 #{y\ 2875}#
-                                                 (lambda (#{maps\ 2882}#)
+                                                           #{y\ 12003}#))))
+                                               (#{f\ 12002}#
+                                                 #{y\ 11998}#
+                                                 (lambda (#{maps\ 12005}#)
                                                    (call-with-values
                                                      (lambda ()
-                                                       (#{gen-syntax\ 2718}#
-                                                         #{src\ 2826}#
-                                                         #{x\ 2873}#
-                                                         #{r\ 2828}#
+                                                       (#{gen-syntax\ 11841}#
+                                                         #{src\ 11949}#
+                                                         #{x\ 11996}#
+                                                         #{r\ 11951}#
                                                          (cons '()
-                                                               #{maps\ 2882}#)
-                                                         #{ellipsis?\ 2830}#
-                                                         #{mod\ 2831}#))
-                                                     (lambda (#{x\ 2884}#
-                                                              #{maps\ 2885}#)
-                                                       (if (null? (car #{maps\ 
2885}#))
+                                                               #{maps\ 12005}#)
+                                                         #{ellipsis?\ 11953}#
+                                                         #{mod\ 11954}#))
+                                                     (lambda (#{x\ 12007}#
+                                                              #{maps\ 12008}#)
+                                                       (if (null? (car #{maps\ 
12008}#))
                                                          (syntax-violation
                                                            'syntax
                                                            "extra ellipsis"
-                                                           #{src\ 2826}#)
+                                                           #{src\ 11949}#)
                                                          (values
-                                                           (#{gen-map\ 2724}#
-                                                             #{x\ 2884}#
-                                                             (car #{maps\ 
2885}#))
-                                                           (cdr #{maps\ 
2885}#)))))))))
-                                           #{tmp\ 2863}#)
-                                    ((lambda (#{tmp\ 2914}#)
-                                       (if #{tmp\ 2914}#
-                                         (apply (lambda (#{x\ 2917}#
-                                                         #{y\ 2918}#)
+                                                           (#{gen-map\ 11847}#
+                                                             #{x\ 12007}#
+                                                             (car #{maps\ 
12008}#))
+                                                           (cdr #{maps\ 
12008}#)))))))))
+                                           #{tmp\ 11986}#)
+                                    ((lambda (#{tmp\ 12037}#)
+                                       (if #{tmp\ 12037}#
+                                         (apply (lambda (#{x\ 12040}#
+                                                         #{y\ 12041}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 2718}#
-                                                        #{src\ 2826}#
-                                                        #{x\ 2917}#
-                                                        #{r\ 2828}#
-                                                        #{maps\ 2829}#
-                                                        #{ellipsis?\ 2830}#
-                                                        #{mod\ 2831}#))
-                                                    (lambda (#{x\ 2919}#
-                                                             #{maps\ 2920}#)
+                                                      (#{gen-syntax\ 11841}#
+                                                        #{src\ 11949}#
+                                                        #{x\ 12040}#
+                                                        #{r\ 11951}#
+                                                        #{maps\ 11952}#
+                                                        #{ellipsis?\ 11953}#
+                                                        #{mod\ 11954}#))
+                                                    (lambda (#{x\ 12042}#
+                                                             #{maps\ 12043}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 2718}#
-                                                            #{src\ 2826}#
-                                                            #{y\ 2918}#
-                                                            #{r\ 2828}#
-                                                            #{maps\ 2920}#
-                                                            #{ellipsis?\ 2830}#
-                                                            #{mod\ 2831}#))
-                                                        (lambda (#{y\ 2923}#
-                                                                 #{maps\ 
2924}#)
+                                                          (#{gen-syntax\ 
11841}#
+                                                            #{src\ 11949}#
+                                                            #{y\ 12041}#
+                                                            #{r\ 11951}#
+                                                            #{maps\ 12043}#
+                                                            #{ellipsis?\ 
11953}#
+                                                            #{mod\ 11954}#))
+                                                        (lambda (#{y\ 12046}#
+                                                                 #{maps\ 
12047}#)
                                                           (values
-                                                            (#{gen-cons\ 2726}#
-                                                              #{x\ 2919}#
-                                                              #{y\ 2923}#)
-                                                            #{maps\ 
2924}#))))))
-                                                #{tmp\ 2914}#)
-                                         ((lambda (#{tmp\ 2927}#)
-                                            (if #{tmp\ 2927}#
-                                              (apply (lambda (#{e1\ 2930}#
-                                                              #{e2\ 2931}#)
+                                                            (#{gen-cons\ 
11849}#
+                                                              #{x\ 12042}#
+                                                              #{y\ 12046}#)
+                                                            #{maps\ 
12047}#))))))
+                                                #{tmp\ 12037}#)
+                                         ((lambda (#{tmp\ 12050}#)
+                                            (if #{tmp\ 12050}#
+                                              (apply (lambda (#{e1\ 12053}#
+                                                              #{e2\ 12054}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 
2718}#
-                                                             #{src\ 2826}#
-                                                             (cons #{e1\ 2930}#
-                                                                   #{e2\ 
2931}#)
-                                                             #{r\ 2828}#
-                                                             #{maps\ 2829}#
-                                                             #{ellipsis?\ 
2830}#
-                                                             #{mod\ 2831}#))
-                                                         (lambda (#{e\ 2933}#
-                                                                  #{maps\ 
2934}#)
+                                                           (#{gen-syntax\ 
11841}#
+                                                             #{src\ 11949}#
+                                                             (cons #{e1\ 
12053}#
+                                                                   #{e2\ 
12054}#)
+                                                             #{r\ 11951}#
+                                                             #{maps\ 11952}#
+                                                             #{ellipsis?\ 
11953}#
+                                                             #{mod\ 11954}#))
+                                                         (lambda (#{e\ 12056}#
+                                                                  #{maps\ 
12057}#)
                                                            (values
-                                                             (#{gen-vector\ 
2730}#
-                                                               #{e\ 2933}#)
-                                                             #{maps\ 2934}#))))
-                                                     #{tmp\ 2927}#)
-                                              ((lambda (#{_\ 2938}#)
+                                                             (#{gen-vector\ 
11853}#
+                                                               #{e\ 12056}#)
+                                                             #{maps\ 
12057}#))))
+                                                     #{tmp\ 12050}#)
+                                              ((lambda (#{_\ 12061}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 2827}#)
-                                                   #{maps\ 2829}#))
-                                               #{tmp\ 2851}#)))
+                                                         #{e\ 11950}#)
+                                                   #{maps\ 11952}#))
+                                               #{tmp\ 11974}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 2851}#
+                                            #{tmp\ 11974}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 2851}#
+                                       #{tmp\ 11974}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 2851}#
+                                  #{tmp\ 11974}#
                                   '(any any . any)))))
-                           ($sc-dispatch #{tmp\ 2851}# (quote (any any)))))
-                        #{e\ 2827}#)))))
-          (lambda (#{e\ 2940}#
-                   #{r\ 2941}#
-                   #{w\ 2942}#
-                   #{s\ 2943}#
-                   #{mod\ 2944}#)
-            (let ((#{e\ 2951}#
-                    (#{source-wrap\ 331}#
-                      #{e\ 2940}#
-                      #{w\ 2942}#
-                      #{s\ 2943}#
-                      #{mod\ 2944}#)))
-              ((lambda (#{tmp\ 2952}#)
-                 ((lambda (#{tmp\ 2953}#)
-                    (if #{tmp\ 2953}#
-                      (apply (lambda (#{_\ 2956}# #{x\ 2957}#)
+                           ($sc-dispatch #{tmp\ 11974}# (quote (any any)))))
+                        #{e\ 11950}#)))))
+          (lambda (#{e\ 12063}#
+                   #{r\ 12064}#
+                   #{w\ 12065}#
+                   #{s\ 12066}#
+                   #{mod\ 12067}#)
+            (let ((#{e\ 12074}#
+                    (#{source-wrap\ 9485}#
+                      #{e\ 12063}#
+                      #{w\ 12065}#
+                      #{s\ 12066}#
+                      #{mod\ 12067}#)))
+              ((lambda (#{tmp\ 12075}#)
+                 ((lambda (#{tmp\ 12076}#)
+                    (if #{tmp\ 12076}#
+                      (apply (lambda (#{_\ 12079}# #{x\ 12080}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 2718}#
-                                     #{e\ 2951}#
-                                     #{x\ 2957}#
-                                     #{r\ 2941}#
+                                   (#{gen-syntax\ 11841}#
+                                     #{e\ 12074}#
+                                     #{x\ 12080}#
+                                     #{r\ 12064}#
                                      '()
-                                     #{ellipsis?\ 361}#
-                                     #{mod\ 2944}#))
-                                 (lambda (#{e\ 2958}# #{maps\ 2959}#)
-                                   (#{regen\ 2732}# #{e\ 2958}#))))
-                             #{tmp\ 2953}#)
-                      ((lambda (#{_\ 2963}#)
+                                     #{ellipsis?\ 9515}#
+                                     #{mod\ 12067}#))
+                                 (lambda (#{e\ 12081}# #{maps\ 12082}#)
+                                   (#{regen\ 11855}# #{e\ 12081}#))))
+                             #{tmp\ 12076}#)
+                      ((lambda (#{_\ 12086}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 2951}#))
-                       #{tmp\ 2952}#)))
-                  ($sc-dispatch #{tmp\ 2952}# (quote (any any)))))
-               #{e\ 2951}#)))))
-      (#{global-extend\ 256}#
+                           #{e\ 12074}#))
+                       #{tmp\ 12075}#)))
+                  ($sc-dispatch #{tmp\ 12075}# (quote (any any)))))
+               #{e\ 12074}#)))))
+      (#{global-extend\ 9410}#
         'core
         'lambda
-        (lambda (#{e\ 2964}#
-                 #{r\ 2965}#
-                 #{w\ 2966}#
-                 #{s\ 2967}#
-                 #{mod\ 2968}#)
-          ((lambda (#{tmp\ 2974}#)
-             ((lambda (#{tmp\ 2975}#)
-                (if (if #{tmp\ 2975}#
-                      (apply (lambda (#{_\ 2981}#
-                                      #{args\ 2982}#
-                                      #{docstring\ 2983}#
-                                      #{e1\ 2984}#
-                                      #{e2\ 2985}#)
-                               (string? (syntax->datum #{docstring\ 2983}#)))
-                             #{tmp\ 2975}#)
+        (lambda (#{e\ 12087}#
+                 #{r\ 12088}#
+                 #{w\ 12089}#
+                 #{s\ 12090}#
+                 #{mod\ 12091}#)
+          ((lambda (#{tmp\ 12097}#)
+             ((lambda (#{tmp\ 12098}#)
+                (if (if #{tmp\ 12098}#
+                      (apply (lambda (#{_\ 12104}#
+                                      #{args\ 12105}#
+                                      #{docstring\ 12106}#
+                                      #{e1\ 12107}#
+                                      #{e2\ 12108}#)
+                               (string? (syntax->datum #{docstring\ 12106}#)))
+                             #{tmp\ 12098}#)
                       #f)
-                  (apply (lambda (#{_\ 2991}#
-                                  #{args\ 2992}#
-                                  #{docstring\ 2993}#
-                                  #{e1\ 2994}#
-                                  #{e2\ 2995}#)
+                  (apply (lambda (#{_\ 12114}#
+                                  #{args\ 12115}#
+                                  #{docstring\ 12116}#
+                                  #{e1\ 12117}#
+                                  #{e2\ 12118}#)
                            (call-with-values
                              (lambda ()
-                               (#{lambda-formals\ 363}# #{args\ 2992}#))
-                             (lambda (#{req\ 2996}#
-                                      #{opt\ 2997}#
-                                      #{rest\ 2998}#
-                                      #{kw\ 2999}#)
-                               (#{chi-simple-lambda\ 365}#
-                                 #{e\ 2964}#
-                                 #{r\ 2965}#
-                                 #{w\ 2966}#
-                                 #{s\ 2967}#
-                                 #{mod\ 2968}#
-                                 #{req\ 2996}#
-                                 #{rest\ 2998}#
-                                 (syntax->datum #{docstring\ 2993}#)
-                                 (cons #{e1\ 2994}# #{e2\ 2995}#)))))
-                         #{tmp\ 2975}#)
-                  ((lambda (#{tmp\ 3005}#)
-                     (if #{tmp\ 3005}#
-                       (apply (lambda (#{_\ 3010}#
-                                       #{args\ 3011}#
-                                       #{e1\ 3012}#
-                                       #{e2\ 3013}#)
+                               (#{lambda-formals\ 9517}# #{args\ 12115}#))
+                             (lambda (#{req\ 12119}#
+                                      #{opt\ 12120}#
+                                      #{rest\ 12121}#
+                                      #{kw\ 12122}#)
+                               (#{chi-simple-lambda\ 9519}#
+                                 #{e\ 12087}#
+                                 #{r\ 12088}#
+                                 #{w\ 12089}#
+                                 #{s\ 12090}#
+                                 #{mod\ 12091}#
+                                 #{req\ 12119}#
+                                 #{rest\ 12121}#
+                                 (syntax->datum #{docstring\ 12116}#)
+                                 (cons #{e1\ 12117}# #{e2\ 12118}#)))))
+                         #{tmp\ 12098}#)
+                  ((lambda (#{tmp\ 12128}#)
+                     (if #{tmp\ 12128}#
+                       (apply (lambda (#{_\ 12133}#
+                                       #{args\ 12134}#
+                                       #{e1\ 12135}#
+                                       #{e2\ 12136}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{lambda-formals\ 363}# #{args\ 3011}#))
-                                  (lambda (#{req\ 3014}#
-                                           #{opt\ 3015}#
-                                           #{rest\ 3016}#
-                                           #{kw\ 3017}#)
-                                    (#{chi-simple-lambda\ 365}#
-                                      #{e\ 2964}#
-                                      #{r\ 2965}#
-                                      #{w\ 2966}#
-                                      #{s\ 2967}#
-                                      #{mod\ 2968}#
-                                      #{req\ 3014}#
-                                      #{rest\ 3016}#
+                                    (#{lambda-formals\ 9517}# #{args\ 12134}#))
+                                  (lambda (#{req\ 12137}#
+                                           #{opt\ 12138}#
+                                           #{rest\ 12139}#
+                                           #{kw\ 12140}#)
+                                    (#{chi-simple-lambda\ 9519}#
+                                      #{e\ 12087}#
+                                      #{r\ 12088}#
+                                      #{w\ 12089}#
+                                      #{s\ 12090}#
+                                      #{mod\ 12091}#
+                                      #{req\ 12137}#
+                                      #{rest\ 12139}#
                                       #f
-                                      (cons #{e1\ 3012}# #{e2\ 3013}#)))))
-                              #{tmp\ 3005}#)
-                       ((lambda (#{_\ 3024}#)
+                                      (cons #{e1\ 12135}# #{e2\ 12136}#)))))
+                              #{tmp\ 12128}#)
+                       ((lambda (#{_\ 12147}#)
                           (syntax-violation
                             'lambda
                             "bad lambda"
-                            #{e\ 2964}#))
-                        #{tmp\ 2974}#)))
+                            #{e\ 12087}#))
+                        #{tmp\ 12097}#)))
                    ($sc-dispatch
-                     #{tmp\ 2974}#
+                     #{tmp\ 12097}#
                      '(any any any . each-any)))))
               ($sc-dispatch
-                #{tmp\ 2974}#
+                #{tmp\ 12097}#
                 '(any any any any . each-any))))
-           #{e\ 2964}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12087}#)))
+      (#{global-extend\ 9410}#
         'core
         'lambda*
-        (lambda (#{e\ 3025}#
-                 #{r\ 3026}#
-                 #{w\ 3027}#
-                 #{s\ 3028}#
-                 #{mod\ 3029}#)
-          ((lambda (#{tmp\ 3035}#)
-             ((lambda (#{tmp\ 3036}#)
-                (if #{tmp\ 3036}#
-                  (apply (lambda (#{_\ 3041}#
-                                  #{args\ 3042}#
-                                  #{e1\ 3043}#
-                                  #{e2\ 3044}#)
+        (lambda (#{e\ 12148}#
+                 #{r\ 12149}#
+                 #{w\ 12150}#
+                 #{s\ 12151}#
+                 #{mod\ 12152}#)
+          ((lambda (#{tmp\ 12158}#)
+             ((lambda (#{tmp\ 12159}#)
+                (if #{tmp\ 12159}#
+                  (apply (lambda (#{_\ 12164}#
+                                  #{args\ 12165}#
+                                  #{e1\ 12166}#
+                                  #{e2\ 12167}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 369}#
-                                 #{e\ 3025}#
-                                 #{r\ 3026}#
-                                 #{w\ 3027}#
-                                 #{s\ 3028}#
-                                 #{mod\ 3029}#
-                                 #{lambda*-formals\ 367}#
-                                 (list (cons #{args\ 3042}#
-                                             (cons #{e1\ 3043}#
-                                                   #{e2\ 3044}#)))))
-                             (lambda (#{docstring\ 3046}# #{lcase\ 3047}#)
-                               (#{build-case-lambda\ 204}#
-                                 #{s\ 3028}#
-                                 #{docstring\ 3046}#
-                                 #{lcase\ 3047}#))))
-                         #{tmp\ 3036}#)
-                  ((lambda (#{_\ 3051}#)
+                               (#{chi-lambda-case\ 9523}#
+                                 #{e\ 12148}#
+                                 #{r\ 12149}#
+                                 #{w\ 12150}#
+                                 #{s\ 12151}#
+                                 #{mod\ 12152}#
+                                 #{lambda*-formals\ 9521}#
+                                 (list (cons #{args\ 12165}#
+                                             (cons #{e1\ 12166}#
+                                                   #{e2\ 12167}#)))))
+                             (lambda (#{docstring\ 12169}# #{lcase\ 12170}#)
+                               (#{build-case-lambda\ 9358}#
+                                 #{s\ 12151}#
+                                 #{docstring\ 12169}#
+                                 #{lcase\ 12170}#))))
+                         #{tmp\ 12159}#)
+                  ((lambda (#{_\ 12174}#)
                      (syntax-violation
                        'lambda
                        "bad lambda*"
-                       #{e\ 3025}#))
-                   #{tmp\ 3035}#)))
+                       #{e\ 12148}#))
+                   #{tmp\ 12158}#)))
               ($sc-dispatch
-                #{tmp\ 3035}#
+                #{tmp\ 12158}#
                 '(any any any . each-any))))
-           #{e\ 3025}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12148}#)))
+      (#{global-extend\ 9410}#
         'core
         'case-lambda
-        (lambda (#{e\ 3052}#
-                 #{r\ 3053}#
-                 #{w\ 3054}#
-                 #{s\ 3055}#
-                 #{mod\ 3056}#)
-          ((lambda (#{tmp\ 3062}#)
-             ((lambda (#{tmp\ 3063}#)
-                (if #{tmp\ 3063}#
-                  (apply (lambda (#{_\ 3071}#
-                                  #{args\ 3072}#
-                                  #{e1\ 3073}#
-                                  #{e2\ 3074}#
-                                  #{args*\ 3075}#
-                                  #{e1*\ 3076}#
-                                  #{e2*\ 3077}#)
+        (lambda (#{e\ 12175}#
+                 #{r\ 12176}#
+                 #{w\ 12177}#
+                 #{s\ 12178}#
+                 #{mod\ 12179}#)
+          ((lambda (#{tmp\ 12185}#)
+             ((lambda (#{tmp\ 12186}#)
+                (if #{tmp\ 12186}#
+                  (apply (lambda (#{_\ 12194}#
+                                  #{args\ 12195}#
+                                  #{e1\ 12196}#
+                                  #{e2\ 12197}#
+                                  #{args*\ 12198}#
+                                  #{e1*\ 12199}#
+                                  #{e2*\ 12200}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 369}#
-                                 #{e\ 3052}#
-                                 #{r\ 3053}#
-                                 #{w\ 3054}#
-                                 #{s\ 3055}#
-                                 #{mod\ 3056}#
-                                 #{lambda-formals\ 363}#
-                                 (cons (cons #{args\ 3072}#
-                                             (cons #{e1\ 3073}# #{e2\ 3074}#))
-                                       (map (lambda (#{tmp\ 3081}#
-                                                     #{tmp\ 3080}#
-                                                     #{tmp\ 3079}#)
-                                              (cons #{tmp\ 3079}#
-                                                    (cons #{tmp\ 3080}#
-                                                          #{tmp\ 3081}#)))
-                                            #{e2*\ 3077}#
-                                            #{e1*\ 3076}#
-                                            #{args*\ 3075}#))))
-                             (lambda (#{docstring\ 3083}# #{lcase\ 3084}#)
-                               (#{build-case-lambda\ 204}#
-                                 #{s\ 3055}#
-                                 #{docstring\ 3083}#
-                                 #{lcase\ 3084}#))))
-                         #{tmp\ 3063}#)
-                  ((lambda (#{_\ 3088}#)
+                               (#{chi-lambda-case\ 9523}#
+                                 #{e\ 12175}#
+                                 #{r\ 12176}#
+                                 #{w\ 12177}#
+                                 #{s\ 12178}#
+                                 #{mod\ 12179}#
+                                 #{lambda-formals\ 9517}#
+                                 (cons (cons #{args\ 12195}#
+                                             (cons #{e1\ 12196}#
+                                                   #{e2\ 12197}#))
+                                       (map (lambda (#{tmp\ 12204}#
+                                                     #{tmp\ 12203}#
+                                                     #{tmp\ 12202}#)
+                                              (cons #{tmp\ 12202}#
+                                                    (cons #{tmp\ 12203}#
+                                                          #{tmp\ 12204}#)))
+                                            #{e2*\ 12200}#
+                                            #{e1*\ 12199}#
+                                            #{args*\ 12198}#))))
+                             (lambda (#{docstring\ 12206}# #{lcase\ 12207}#)
+                               (#{build-case-lambda\ 9358}#
+                                 #{s\ 12178}#
+                                 #{docstring\ 12206}#
+                                 #{lcase\ 12207}#))))
+                         #{tmp\ 12186}#)
+                  ((lambda (#{_\ 12211}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
-                       #{e\ 3052}#))
-                   #{tmp\ 3062}#)))
+                       #{e\ 12175}#))
+                   #{tmp\ 12185}#)))
               ($sc-dispatch
-                #{tmp\ 3062}#
+                #{tmp\ 12185}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 3052}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12175}#)))
+      (#{global-extend\ 9410}#
         'core
         'case-lambda*
-        (lambda (#{e\ 3089}#
-                 #{r\ 3090}#
-                 #{w\ 3091}#
-                 #{s\ 3092}#
-                 #{mod\ 3093}#)
-          ((lambda (#{tmp\ 3099}#)
-             ((lambda (#{tmp\ 3100}#)
-                (if #{tmp\ 3100}#
-                  (apply (lambda (#{_\ 3108}#
-                                  #{args\ 3109}#
-                                  #{e1\ 3110}#
-                                  #{e2\ 3111}#
-                                  #{args*\ 3112}#
-                                  #{e1*\ 3113}#
-                                  #{e2*\ 3114}#)
+        (lambda (#{e\ 12212}#
+                 #{r\ 12213}#
+                 #{w\ 12214}#
+                 #{s\ 12215}#
+                 #{mod\ 12216}#)
+          ((lambda (#{tmp\ 12222}#)
+             ((lambda (#{tmp\ 12223}#)
+                (if #{tmp\ 12223}#
+                  (apply (lambda (#{_\ 12231}#
+                                  #{args\ 12232}#
+                                  #{e1\ 12233}#
+                                  #{e2\ 12234}#
+                                  #{args*\ 12235}#
+                                  #{e1*\ 12236}#
+                                  #{e2*\ 12237}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 369}#
-                                 #{e\ 3089}#
-                                 #{r\ 3090}#
-                                 #{w\ 3091}#
-                                 #{s\ 3092}#
-                                 #{mod\ 3093}#
-                                 #{lambda*-formals\ 367}#
-                                 (cons (cons #{args\ 3109}#
-                                             (cons #{e1\ 3110}# #{e2\ 3111}#))
-                                       (map (lambda (#{tmp\ 3118}#
-                                                     #{tmp\ 3117}#
-                                                     #{tmp\ 3116}#)
-                                              (cons #{tmp\ 3116}#
-                                                    (cons #{tmp\ 3117}#
-                                                          #{tmp\ 3118}#)))
-                                            #{e2*\ 3114}#
-                                            #{e1*\ 3113}#
-                                            #{args*\ 3112}#))))
-                             (lambda (#{docstring\ 3120}# #{lcase\ 3121}#)
-                               (#{build-case-lambda\ 204}#
-                                 #{s\ 3092}#
-                                 #{docstring\ 3120}#
-                                 #{lcase\ 3121}#))))
-                         #{tmp\ 3100}#)
-                  ((lambda (#{_\ 3125}#)
+                               (#{chi-lambda-case\ 9523}#
+                                 #{e\ 12212}#
+                                 #{r\ 12213}#
+                                 #{w\ 12214}#
+                                 #{s\ 12215}#
+                                 #{mod\ 12216}#
+                                 #{lambda*-formals\ 9521}#
+                                 (cons (cons #{args\ 12232}#
+                                             (cons #{e1\ 12233}#
+                                                   #{e2\ 12234}#))
+                                       (map (lambda (#{tmp\ 12241}#
+                                                     #{tmp\ 12240}#
+                                                     #{tmp\ 12239}#)
+                                              (cons #{tmp\ 12239}#
+                                                    (cons #{tmp\ 12240}#
+                                                          #{tmp\ 12241}#)))
+                                            #{e2*\ 12237}#
+                                            #{e1*\ 12236}#
+                                            #{args*\ 12235}#))))
+                             (lambda (#{docstring\ 12243}# #{lcase\ 12244}#)
+                               (#{build-case-lambda\ 9358}#
+                                 #{s\ 12215}#
+                                 #{docstring\ 12243}#
+                                 #{lcase\ 12244}#))))
+                         #{tmp\ 12223}#)
+                  ((lambda (#{_\ 12248}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
-                       #{e\ 3089}#))
-                   #{tmp\ 3099}#)))
+                       #{e\ 12212}#))
+                   #{tmp\ 12222}#)))
               ($sc-dispatch
-                #{tmp\ 3099}#
+                #{tmp\ 12222}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 3089}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12212}#)))
+      (#{global-extend\ 9410}#
         'core
         'let
-        (letrec ((#{chi-let\ 3127}#
-                   (lambda (#{e\ 3128}#
-                            #{r\ 3129}#
-                            #{w\ 3130}#
-                            #{s\ 3131}#
-                            #{mod\ 3132}#
-                            #{constructor\ 3133}#
-                            #{ids\ 3134}#
-                            #{vals\ 3135}#
-                            #{exps\ 3136}#)
-                     (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3134}#))
+        (letrec ((#{chi-let\ 12250}#
+                   (lambda (#{e\ 12251}#
+                            #{r\ 12252}#
+                            #{w\ 12253}#
+                            #{s\ 12254}#
+                            #{mod\ 12255}#
+                            #{constructor\ 12256}#
+                            #{ids\ 12257}#
+                            #{vals\ 12258}#
+                            #{exps\ 12259}#)
+                     (if (not (#{valid-bound-ids?\ 9477}# #{ids\ 12257}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 3128}#)
-                       (let ((#{labels\ 3148}#
-                               (#{gen-labels\ 278}# #{ids\ 3134}#))
-                             (#{new-vars\ 3149}#
-                               (map #{gen-var\ 373}# #{ids\ 3134}#)))
-                         (let ((#{nw\ 3152}#
-                                 (#{make-binding-wrap\ 307}#
-                                   #{ids\ 3134}#
-                                   #{labels\ 3148}#
-                                   #{w\ 3130}#))
-                               (#{nr\ 3153}#
-                                 (#{extend-var-env\ 250}#
-                                   #{labels\ 3148}#
-                                   #{new-vars\ 3149}#
-                                   #{r\ 3129}#)))
-                           (#{constructor\ 3133}#
-                             #{s\ 3131}#
-                             (map syntax->datum #{ids\ 3134}#)
-                             #{new-vars\ 3149}#
-                             (map (lambda (#{x\ 3154}#)
-                                    (#{chi\ 345}#
-                                      #{x\ 3154}#
-                                      #{r\ 3129}#
-                                      #{w\ 3130}#
-                                      #{mod\ 3132}#))
-                                  #{vals\ 3135}#)
-                             (#{chi-body\ 353}#
-                               #{exps\ 3136}#
-                               (#{source-wrap\ 331}#
-                                 #{e\ 3128}#
-                                 #{nw\ 3152}#
-                                 #{s\ 3131}#
-                                 #{mod\ 3132}#)
-                               #{nr\ 3153}#
-                               #{nw\ 3152}#
-                               #{mod\ 3132}#))))))))
-          (lambda (#{e\ 3156}#
-                   #{r\ 3157}#
-                   #{w\ 3158}#
-                   #{s\ 3159}#
-                   #{mod\ 3160}#)
-            ((lambda (#{tmp\ 3166}#)
-               ((lambda (#{tmp\ 3167}#)
-                  (if (if #{tmp\ 3167}#
-                        (apply (lambda (#{_\ 3173}#
-                                        #{id\ 3174}#
-                                        #{val\ 3175}#
-                                        #{e1\ 3176}#
-                                        #{e2\ 3177}#)
-                                 (and-map #{id?\ 260}# #{id\ 3174}#))
-                               #{tmp\ 3167}#)
+                         #{e\ 12251}#)
+                       (let ((#{labels\ 12271}#
+                               (#{gen-labels\ 9432}# #{ids\ 12257}#))
+                             (#{new-vars\ 12272}#
+                               (map #{gen-var\ 9527}# #{ids\ 12257}#)))
+                         (let ((#{nw\ 12275}#
+                                 (#{make-binding-wrap\ 9461}#
+                                   #{ids\ 12257}#
+                                   #{labels\ 12271}#
+                                   #{w\ 12253}#))
+                               (#{nr\ 12276}#
+                                 (#{extend-var-env\ 9404}#
+                                   #{labels\ 12271}#
+                                   #{new-vars\ 12272}#
+                                   #{r\ 12252}#)))
+                           (#{constructor\ 12256}#
+                             #{s\ 12254}#
+                             (map syntax->datum #{ids\ 12257}#)
+                             #{new-vars\ 12272}#
+                             (map (lambda (#{x\ 12277}#)
+                                    (#{chi\ 9499}#
+                                      #{x\ 12277}#
+                                      #{r\ 12252}#
+                                      #{w\ 12253}#
+                                      #{mod\ 12255}#))
+                                  #{vals\ 12258}#)
+                             (#{chi-body\ 9507}#
+                               #{exps\ 12259}#
+                               (#{source-wrap\ 9485}#
+                                 #{e\ 12251}#
+                                 #{nw\ 12275}#
+                                 #{s\ 12254}#
+                                 #{mod\ 12255}#)
+                               #{nr\ 12276}#
+                               #{nw\ 12275}#
+                               #{mod\ 12255}#))))))))
+          (lambda (#{e\ 12279}#
+                   #{r\ 12280}#
+                   #{w\ 12281}#
+                   #{s\ 12282}#
+                   #{mod\ 12283}#)
+            ((lambda (#{tmp\ 12289}#)
+               ((lambda (#{tmp\ 12290}#)
+                  (if (if #{tmp\ 12290}#
+                        (apply (lambda (#{_\ 12296}#
+                                        #{id\ 12297}#
+                                        #{val\ 12298}#
+                                        #{e1\ 12299}#
+                                        #{e2\ 12300}#)
+                                 (and-map #{id?\ 9414}# #{id\ 12297}#))
+                               #{tmp\ 12290}#)
                         #f)
-                    (apply (lambda (#{_\ 3184}#
-                                    #{id\ 3185}#
-                                    #{val\ 3186}#
-                                    #{e1\ 3187}#
-                                    #{e2\ 3188}#)
-                             (#{chi-let\ 3127}#
-                               #{e\ 3156}#
-                               #{r\ 3157}#
-                               #{w\ 3158}#
-                               #{s\ 3159}#
-                               #{mod\ 3160}#
-                               #{build-let\ 214}#
-                               #{id\ 3185}#
-                               #{val\ 3186}#
-                               (cons #{e1\ 3187}# #{e2\ 3188}#)))
-                           #{tmp\ 3167}#)
-                    ((lambda (#{tmp\ 3192}#)
-                       (if (if #{tmp\ 3192}#
-                             (apply (lambda (#{_\ 3199}#
-                                             #{f\ 3200}#
-                                             #{id\ 3201}#
-                                             #{val\ 3202}#
-                                             #{e1\ 3203}#
-                                             #{e2\ 3204}#)
-                                      (if (#{id?\ 260}# #{f\ 3200}#)
-                                        (and-map #{id?\ 260}# #{id\ 3201}#)
+                    (apply (lambda (#{_\ 12307}#
+                                    #{id\ 12308}#
+                                    #{val\ 12309}#
+                                    #{e1\ 12310}#
+                                    #{e2\ 12311}#)
+                             (#{chi-let\ 12250}#
+                               #{e\ 12279}#
+                               #{r\ 12280}#
+                               #{w\ 12281}#
+                               #{s\ 12282}#
+                               #{mod\ 12283}#
+                               #{build-let\ 9368}#
+                               #{id\ 12308}#
+                               #{val\ 12309}#
+                               (cons #{e1\ 12310}# #{e2\ 12311}#)))
+                           #{tmp\ 12290}#)
+                    ((lambda (#{tmp\ 12315}#)
+                       (if (if #{tmp\ 12315}#
+                             (apply (lambda (#{_\ 12322}#
+                                             #{f\ 12323}#
+                                             #{id\ 12324}#
+                                             #{val\ 12325}#
+                                             #{e1\ 12326}#
+                                             #{e2\ 12327}#)
+                                      (if (#{id?\ 9414}# #{f\ 12323}#)
+                                        (and-map #{id?\ 9414}# #{id\ 12324}#)
                                         #f))
-                                    #{tmp\ 3192}#)
+                                    #{tmp\ 12315}#)
                              #f)
-                         (apply (lambda (#{_\ 3214}#
-                                         #{f\ 3215}#
-                                         #{id\ 3216}#
-                                         #{val\ 3217}#
-                                         #{e1\ 3218}#
-                                         #{e2\ 3219}#)
-                                  (#{chi-let\ 3127}#
-                                    #{e\ 3156}#
-                                    #{r\ 3157}#
-                                    #{w\ 3158}#
-                                    #{s\ 3159}#
-                                    #{mod\ 3160}#
-                                    #{build-named-let\ 216}#
-                                    (cons #{f\ 3215}# #{id\ 3216}#)
-                                    #{val\ 3217}#
-                                    (cons #{e1\ 3218}# #{e2\ 3219}#)))
-                                #{tmp\ 3192}#)
-                         ((lambda (#{_\ 3224}#)
+                         (apply (lambda (#{_\ 12337}#
+                                         #{f\ 12338}#
+                                         #{id\ 12339}#
+                                         #{val\ 12340}#
+                                         #{e1\ 12341}#
+                                         #{e2\ 12342}#)
+                                  (#{chi-let\ 12250}#
+                                    #{e\ 12279}#
+                                    #{r\ 12280}#
+                                    #{w\ 12281}#
+                                    #{s\ 12282}#
+                                    #{mod\ 12283}#
+                                    #{build-named-let\ 9370}#
+                                    (cons #{f\ 12338}# #{id\ 12339}#)
+                                    #{val\ 12340}#
+                                    (cons #{e1\ 12341}# #{e2\ 12342}#)))
+                                #{tmp\ 12315}#)
+                         ((lambda (#{_\ 12347}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 331}#
-                                #{e\ 3156}#
-                                #{w\ 3158}#
-                                #{s\ 3159}#
-                                #{mod\ 3160}#)))
-                          #{tmp\ 3166}#)))
+                              (#{source-wrap\ 9485}#
+                                #{e\ 12279}#
+                                #{w\ 12281}#
+                                #{s\ 12282}#
+                                #{mod\ 12283}#)))
+                          #{tmp\ 12289}#)))
                      ($sc-dispatch
-                       #{tmp\ 3166}#
+                       #{tmp\ 12289}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 3166}#
+                  #{tmp\ 12289}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 3156}#))))
-      (#{global-extend\ 256}#
+             #{e\ 12279}#))))
+      (#{global-extend\ 9410}#
         'core
         'letrec
-        (lambda (#{e\ 3225}#
-                 #{r\ 3226}#
-                 #{w\ 3227}#
-                 #{s\ 3228}#
-                 #{mod\ 3229}#)
-          ((lambda (#{tmp\ 3235}#)
-             ((lambda (#{tmp\ 3236}#)
-                (if (if #{tmp\ 3236}#
-                      (apply (lambda (#{_\ 3242}#
-                                      #{id\ 3243}#
-                                      #{val\ 3244}#
-                                      #{e1\ 3245}#
-                                      #{e2\ 3246}#)
-                               (and-map #{id?\ 260}# #{id\ 3243}#))
-                             #{tmp\ 3236}#)
+        (lambda (#{e\ 12348}#
+                 #{r\ 12349}#
+                 #{w\ 12350}#
+                 #{s\ 12351}#
+                 #{mod\ 12352}#)
+          ((lambda (#{tmp\ 12358}#)
+             ((lambda (#{tmp\ 12359}#)
+                (if (if #{tmp\ 12359}#
+                      (apply (lambda (#{_\ 12365}#
+                                      #{id\ 12366}#
+                                      #{val\ 12367}#
+                                      #{e1\ 12368}#
+                                      #{e2\ 12369}#)
+                               (and-map #{id?\ 9414}# #{id\ 12366}#))
+                             #{tmp\ 12359}#)
                       #f)
-                  (apply (lambda (#{_\ 3253}#
-                                  #{id\ 3254}#
-                                  #{val\ 3255}#
-                                  #{e1\ 3256}#
-                                  #{e2\ 3257}#)
-                           (let ((#{ids\ 3259}# #{id\ 3254}#))
-                             (if (not (#{valid-bound-ids?\ 323}#
-                                        #{ids\ 3259}#))
+                  (apply (lambda (#{_\ 12376}#
+                                  #{id\ 12377}#
+                                  #{val\ 12378}#
+                                  #{e1\ 12379}#
+                                  #{e2\ 12380}#)
+                           (let ((#{ids\ 12382}# #{id\ 12377}#))
+                             (if (not (#{valid-bound-ids?\ 9477}#
+                                        #{ids\ 12382}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{e\ 3225}#)
-                               (let ((#{labels\ 3263}#
-                                       (#{gen-labels\ 278}# #{ids\ 3259}#))
-                                     (#{new-vars\ 3264}#
-                                       (map #{gen-var\ 373}# #{ids\ 3259}#)))
-                                 (let ((#{w\ 3267}#
-                                         (#{make-binding-wrap\ 307}#
-                                           #{ids\ 3259}#
-                                           #{labels\ 3263}#
-                                           #{w\ 3227}#))
-                                       (#{r\ 3268}#
-                                         (#{extend-var-env\ 250}#
-                                           #{labels\ 3263}#
-                                           #{new-vars\ 3264}#
-                                           #{r\ 3226}#)))
-                                   (#{build-letrec\ 218}#
-                                     #{s\ 3228}#
-                                     (map syntax->datum #{ids\ 3259}#)
-                                     #{new-vars\ 3264}#
-                                     (map (lambda (#{x\ 3269}#)
-                                            (#{chi\ 345}#
-                                              #{x\ 3269}#
-                                              #{r\ 3268}#
-                                              #{w\ 3267}#
-                                              #{mod\ 3229}#))
-                                          #{val\ 3255}#)
-                                     (#{chi-body\ 353}#
-                                       (cons #{e1\ 3256}# #{e2\ 3257}#)
-                                       (#{source-wrap\ 331}#
-                                         #{e\ 3225}#
-                                         #{w\ 3267}#
-                                         #{s\ 3228}#
-                                         #{mod\ 3229}#)
-                                       #{r\ 3268}#
-                                       #{w\ 3267}#
-                                       #{mod\ 3229}#)))))))
-                         #{tmp\ 3236}#)
-                  ((lambda (#{_\ 3274}#)
+                                 #{e\ 12348}#)
+                               (let ((#{labels\ 12386}#
+                                       (#{gen-labels\ 9432}# #{ids\ 12382}#))
+                                     (#{new-vars\ 12387}#
+                                       (map #{gen-var\ 9527}# #{ids\ 12382}#)))
+                                 (let ((#{w\ 12390}#
+                                         (#{make-binding-wrap\ 9461}#
+                                           #{ids\ 12382}#
+                                           #{labels\ 12386}#
+                                           #{w\ 12350}#))
+                                       (#{r\ 12391}#
+                                         (#{extend-var-env\ 9404}#
+                                           #{labels\ 12386}#
+                                           #{new-vars\ 12387}#
+                                           #{r\ 12349}#)))
+                                   (#{build-letrec\ 9372}#
+                                     #{s\ 12351}#
+                                     (map syntax->datum #{ids\ 12382}#)
+                                     #{new-vars\ 12387}#
+                                     (map (lambda (#{x\ 12392}#)
+                                            (#{chi\ 9499}#
+                                              #{x\ 12392}#
+                                              #{r\ 12391}#
+                                              #{w\ 12390}#
+                                              #{mod\ 12352}#))
+                                          #{val\ 12378}#)
+                                     (#{chi-body\ 9507}#
+                                       (cons #{e1\ 12379}# #{e2\ 12380}#)
+                                       (#{source-wrap\ 9485}#
+                                         #{e\ 12348}#
+                                         #{w\ 12390}#
+                                         #{s\ 12351}#
+                                         #{mod\ 12352}#)
+                                       #{r\ 12391}#
+                                       #{w\ 12390}#
+                                       #{mod\ 12352}#)))))))
+                         #{tmp\ 12359}#)
+                  ((lambda (#{_\ 12397}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 331}#
-                         #{e\ 3225}#
-                         #{w\ 3227}#
-                         #{s\ 3228}#
-                         #{mod\ 3229}#)))
-                   #{tmp\ 3235}#)))
+                       (#{source-wrap\ 9485}#
+                         #{e\ 12348}#
+                         #{w\ 12350}#
+                         #{s\ 12351}#
+                         #{mod\ 12352}#)))
+                   #{tmp\ 12358}#)))
               ($sc-dispatch
-                #{tmp\ 3235}#
+                #{tmp\ 12358}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 3225}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12348}#)))
+      (#{global-extend\ 9410}#
         'core
         'set!
-        (lambda (#{e\ 3275}#
-                 #{r\ 3276}#
-                 #{w\ 3277}#
-                 #{s\ 3278}#
-                 #{mod\ 3279}#)
-          ((lambda (#{tmp\ 3285}#)
-             ((lambda (#{tmp\ 3286}#)
-                (if (if #{tmp\ 3286}#
-                      (apply (lambda (#{_\ 3290}# #{id\ 3291}# #{val\ 3292}#)
-                               (#{id?\ 260}# #{id\ 3291}#))
-                             #{tmp\ 3286}#)
+        (lambda (#{e\ 12398}#
+                 #{r\ 12399}#
+                 #{w\ 12400}#
+                 #{s\ 12401}#
+                 #{mod\ 12402}#)
+          ((lambda (#{tmp\ 12408}#)
+             ((lambda (#{tmp\ 12409}#)
+                (if (if #{tmp\ 12409}#
+                      (apply (lambda (#{_\ 12413}#
+                                      #{id\ 12414}#
+                                      #{val\ 12415}#)
+                               (#{id?\ 9414}# #{id\ 12414}#))
+                             #{tmp\ 12409}#)
                       #f)
-                  (apply (lambda (#{_\ 3296}# #{id\ 3297}# #{val\ 3298}#)
-                           (let ((#{val\ 3301}#
-                                   (#{chi\ 345}#
-                                     #{val\ 3298}#
-                                     #{r\ 3276}#
-                                     #{w\ 3277}#
-                                     #{mod\ 3279}#))
-                                 (#{n\ 3302}#
-                                   (#{id-var-name\ 317}#
-                                     #{id\ 3297}#
-                                     #{w\ 3277}#)))
-                             (let ((#{b\ 3304}#
-                                     (#{lookup\ 254}#
-                                       #{n\ 3302}#
-                                       #{r\ 3276}#
-                                       #{mod\ 3279}#)))
-                               (let ((#{atom-key\ 3307}#
-                                       (#{binding-type\ 243}# #{b\ 3304}#)))
-                                 (if (memv #{atom-key\ 3307}#
+                  (apply (lambda (#{_\ 12419}# #{id\ 12420}# #{val\ 12421}#)
+                           (let ((#{val\ 12424}#
+                                   (#{chi\ 9499}#
+                                     #{val\ 12421}#
+                                     #{r\ 12399}#
+                                     #{w\ 12400}#
+                                     #{mod\ 12402}#))
+                                 (#{n\ 12425}#
+                                   (#{id-var-name\ 9471}#
+                                     #{id\ 12420}#
+                                     #{w\ 12400}#)))
+                             (let ((#{b\ 12427}#
+                                     (#{lookup\ 9408}#
+                                       #{n\ 12425}#
+                                       #{r\ 12399}#
+                                       #{mod\ 12402}#)))
+                               (let ((#{atom-key\ 12430}#
+                                       (#{binding-type\ 9397}# #{b\ 12427}#)))
+                                 (if (memv #{atom-key\ 12430}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 190}#
-                                     #{s\ 3278}#
-                                     (syntax->datum #{id\ 3297}#)
-                                     (#{binding-value\ 245}# #{b\ 3304}#)
-                                     #{val\ 3301}#)
-                                   (if (memv #{atom-key\ 3307}#
+                                   (#{build-lexical-assignment\ 9344}#
+                                     #{s\ 12401}#
+                                     (syntax->datum #{id\ 12420}#)
+                                     (#{binding-value\ 9399}# #{b\ 12427}#)
+                                     #{val\ 12424}#)
+                                   (if (memv #{atom-key\ 12430}#
                                              '(global))
-                                     (#{build-global-assignment\ 196}#
-                                       #{s\ 3278}#
-                                       #{n\ 3302}#
-                                       #{val\ 3301}#
-                                       #{mod\ 3279}#)
-                                     (if (memv #{atom-key\ 3307}#
+                                     (#{build-global-assignment\ 9350}#
+                                       #{s\ 12401}#
+                                       #{n\ 12425}#
+                                       #{val\ 12424}#
+                                       #{mod\ 12402}#)
+                                     (if (memv #{atom-key\ 12430}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 329}#
-                                           #{id\ 3297}#
-                                           #{w\ 3277}#
-                                           #{mod\ 3279}#))
+                                         (#{wrap\ 9483}#
+                                           #{id\ 12420}#
+                                           #{w\ 12400}#
+                                           #{mod\ 12402}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{source-wrap\ 331}#
-                                           #{e\ 3275}#
-                                           #{w\ 3277}#
-                                           #{s\ 3278}#
-                                           #{mod\ 3279}#)))))))))
-                         #{tmp\ 3286}#)
-                  ((lambda (#{tmp\ 3312}#)
-                     (if #{tmp\ 3312}#
-                       (apply (lambda (#{_\ 3317}#
-                                       #{head\ 3318}#
-                                       #{tail\ 3319}#
-                                       #{val\ 3320}#)
+                                         (#{source-wrap\ 9485}#
+                                           #{e\ 12398}#
+                                           #{w\ 12400}#
+                                           #{s\ 12401}#
+                                           #{mod\ 12402}#)))))))))
+                         #{tmp\ 12409}#)
+                  ((lambda (#{tmp\ 12435}#)
+                     (if #{tmp\ 12435}#
+                       (apply (lambda (#{_\ 12440}#
+                                       #{head\ 12441}#
+                                       #{tail\ 12442}#
+                                       #{val\ 12443}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 341}#
-                                      #{head\ 3318}#
-                                      #{r\ 3276}#
+                                    (#{syntax-type\ 9495}#
+                                      #{head\ 12441}#
+                                      #{r\ 12399}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 3279}#
+                                      #{mod\ 12402}#
                                       #t))
-                                  (lambda (#{type\ 3323}#
-                                           #{value\ 3324}#
-                                           #{ee\ 3325}#
-                                           #{ww\ 3326}#
-                                           #{ss\ 3327}#
-                                           #{modmod\ 3328}#)
-                                    (if (memv #{type\ 3323}#
+                                  (lambda (#{type\ 12446}#
+                                           #{value\ 12447}#
+                                           #{ee\ 12448}#
+                                           #{ww\ 12449}#
+                                           #{ss\ 12450}#
+                                           #{modmod\ 12451}#)
+                                    (if (memv #{type\ 12446}#
                                               '(module-ref))
-                                      (let ((#{val\ 3337}#
-                                              (#{chi\ 345}#
-                                                #{val\ 3320}#
-                                                #{r\ 3276}#
-                                                #{w\ 3277}#
-                                                #{mod\ 3279}#)))
+                                      (let ((#{val\ 12460}#
+                                              (#{chi\ 9499}#
+                                                #{val\ 12443}#
+                                                #{r\ 12399}#
+                                                #{w\ 12400}#
+                                                #{mod\ 12402}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 3324}#
-                                              (cons #{head\ 3318}#
-                                                    #{tail\ 3319}#)))
-                                          (lambda (#{id\ 3339}# #{mod\ 3340}#)
-                                            (#{build-global-assignment\ 196}#
-                                              #{s\ 3278}#
-                                              #{id\ 3339}#
-                                              #{val\ 3337}#
-                                              #{mod\ 3340}#))))
-                                      (#{build-application\ 184}#
-                                        #{s\ 3278}#
-                                        (#{chi\ 345}#
+                                            (#{value\ 12447}#
+                                              (cons #{head\ 12441}#
+                                                    #{tail\ 12442}#)))
+                                          (lambda (#{id\ 12462}#
+                                                   #{mod\ 12463}#)
+                                            (#{build-global-assignment\ 9350}#
+                                              #{s\ 12401}#
+                                              #{id\ 12462}#
+                                              #{val\ 12460}#
+                                              #{mod\ 12463}#))))
+                                      (#{build-application\ 9338}#
+                                        #{s\ 12401}#
+                                        (#{chi\ 9499}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -8948,22 +8975,22 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i3329"
-                                                        "i3330"
-                                                        "i3331"
-                                                        "i3332"
-                                                        "i3333"
-                                                        "i3334"))
+                                                      #("i12452"
+                                                        "i12453"
+                                                        "i12454"
+                                                        "i12455"
+                                                        "i12456"
+                                                        "i12457"))
                                                     #(ribcage
                                                       #(_ head tail val)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i3313"
-                                                        "i3314"
-                                                        "i3315"
-                                                        "i3316"))
+                                                      #("i12436"
+                                                        "i12437"
+                                                        "i12438"
+                                                        "i12439"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e r w s mod)
@@ -8972,11 +8999,11 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i3280"
-                                                        "i3281"
-                                                        "i3282"
-                                                        "i3283"
-                                                        "i3284"))
+                                                      #("i12403"
+                                                        "i12404"
+                                                        "i12405"
+                                                        "i12406"
+                                                        "i12407"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -9212,176 +9239,178 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i374"
-                                                       "i372"
-                                                       "i370"
-                                                       "i368"
-                                                       "i366"
-                                                       "i364"
-                                                       "i362"
-                                                       "i360"
-                                                       "i358"
-                                                       "i356"
-                                                       "i354"
-                                                       "i352"
-                                                       "i350"
-                                                       "i348"
-                                                       "i346"
-                                                       "i344"
-                                                       "i342"
-                                                       "i340"
-                                                       "i338"
-                                                       "i336"
-                                                       "i334"
-                                                       "i332"
-                                                       "i330"
-                                                       "i328"
-                                                       "i326"
-                                                       "i324"
-                                                       "i322"
-                                                       "i320"
-                                                       "i318"
-                                                       "i316"
-                                                       "i314"
-                                                       "i312"
-                                                       "i310"
-                                                       "i308"
-                                                       "i306"
-                                                       "i304"
-                                                       "i303"
-                                                       "i302"
-                                                       "i300"
-                                                       "i299"
-                                                       "i298"
-                                                       "i297"
-                                                       "i296"
-                                                       "i294"
-                                                       "i292"
-                                                       "i290"
-                                                       "i288"
-                                                       "i286"
-                                                       "i284"
-                                                       "i282"
-                                                       "i280"
-                                                       "i277"
-                                                       "i275"
-                                                       "i274"
-                                                       "i273"
-                                                       "i272"
-                                                       "i271"
-                                                       "i270"
-                                                       "i268"
-                                                       "i266"
-                                                       "i264"
-                                                       "i262"
-                                                       "i261"
-                                                       "i259"
-                                                       "i257"
-                                                       "i255"
-                                                       "i253"
-                                                       "i251"
-                                                       "i249"
-                                                       "i247"
-                                                       "i246"
-                                                       "i244"
-                                                       "i242"
-                                                       "i241"
-                                                       "i240"
-                                                       "i238"
-                                                       "i237"
-                                                       "i235"
-                                                       "i233"
-                                                       "i231"
-                                                       "i229"
-                                                       "i227"
-                                                       "i225"
-                                                       "i223"
-                                                       "i221"
-                                                       "i219"
-                                                       "i217"
-                                                       "i215"
-                                                       "i213"
-                                                       "i211"
-                                                       "i209"
-                                                       "i207"
-                                                       "i205"
-                                                       "i203"
-                                                       "i201"
-                                                       "i199"
-                                                       "i197"
-                                                       "i195"
-                                                       "i193"
-                                                       "i191"
-                                                       "i189"
-                                                       "i187"
-                                                       "i185"
-                                                       "i183"
-                                                       "i181"
-                                                       "i179"
-                                                       "i177"
-                                                       "i175"
-                                                       "i174"
-                                                       "i172"
-                                                       "i170"
-                                                       "i168"
-                                                       "i166"
-                                                       "i164"
-                                                       "i162"
-                                                       "i160"
-                                                       "i158"))
+                                                      ("i9528"
+                                                       "i9526"
+                                                       "i9524"
+                                                       "i9522"
+                                                       "i9520"
+                                                       "i9518"
+                                                       "i9516"
+                                                       "i9514"
+                                                       "i9512"
+                                                       "i9510"
+                                                       "i9508"
+                                                       "i9506"
+                                                       "i9504"
+                                                       "i9502"
+                                                       "i9500"
+                                                       "i9498"
+                                                       "i9496"
+                                                       "i9494"
+                                                       "i9492"
+                                                       "i9490"
+                                                       "i9488"
+                                                       "i9486"
+                                                       "i9484"
+                                                       "i9482"
+                                                       "i9480"
+                                                       "i9478"
+                                                       "i9476"
+                                                       "i9474"
+                                                       "i9472"
+                                                       "i9470"
+                                                       "i9468"
+                                                       "i9466"
+                                                       "i9464"
+                                                       "i9462"
+                                                       "i9460"
+                                                       "i9458"
+                                                       "i9457"
+                                                       "i9456"
+                                                       "i9454"
+                                                       "i9453"
+                                                       "i9452"
+                                                       "i9451"
+                                                       "i9450"
+                                                       "i9448"
+                                                       "i9446"
+                                                       "i9444"
+                                                       "i9442"
+                                                       "i9440"
+                                                       "i9438"
+                                                       "i9436"
+                                                       "i9434"
+                                                       "i9431"
+                                                       "i9429"
+                                                       "i9428"
+                                                       "i9427"
+                                                       "i9426"
+                                                       "i9425"
+                                                       "i9424"
+                                                       "i9422"
+                                                       "i9420"
+                                                       "i9418"
+                                                       "i9416"
+                                                       "i9415"
+                                                       "i9413"
+                                                       "i9411"
+                                                       "i9409"
+                                                       "i9407"
+                                                       "i9405"
+                                                       "i9403"
+                                                       "i9401"
+                                                       "i9400"
+                                                       "i9398"
+                                                       "i9396"
+                                                       "i9395"
+                                                       "i9394"
+                                                       "i9392"
+                                                       "i9391"
+                                                       "i9389"
+                                                       "i9387"
+                                                       "i9385"
+                                                       "i9383"
+                                                       "i9381"
+                                                       "i9379"
+                                                       "i9377"
+                                                       "i9375"
+                                                       "i9373"
+                                                       "i9371"
+                                                       "i9369"
+                                                       "i9367"
+                                                       "i9365"
+                                                       "i9363"
+                                                       "i9361"
+                                                       "i9359"
+                                                       "i9357"
+                                                       "i9355"
+                                                       "i9353"
+                                                       "i9351"
+                                                       "i9349"
+                                                       "i9347"
+                                                       "i9345"
+                                                       "i9343"
+                                                       "i9341"
+                                                       "i9339"
+                                                       "i9337"
+                                                       "i9335"
+                                                       "i9333"
+                                                       "i9331"
+                                                       "i9329"
+                                                       "i9328"
+                                                       "i9326"
+                                                       "i9324"
+                                                       "i9322"
+                                                       "i9320"
+                                                       "i9318"
+                                                       "i9316"
+                                                       "i9314"
+                                                       "i9312"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i61" "i59")))
+                                                      ("i9215" "i9213")))
                                                    (hygiene guile))
-                                                #{head\ 3318}#)
-                                          #{r\ 3276}#
-                                          #{w\ 3277}#
-                                          #{mod\ 3279}#)
-                                        (map (lambda (#{e\ 3344}#)
-                                               (#{chi\ 345}#
-                                                 #{e\ 3344}#
-                                                 #{r\ 3276}#
-                                                 #{w\ 3277}#
-                                                 #{mod\ 3279}#))
+                                                #{head\ 12441}#)
+                                          #{r\ 12399}#
+                                          #{w\ 12400}#
+                                          #{mod\ 12402}#)
+                                        (map (lambda (#{e\ 12467}#)
+                                               (#{chi\ 9499}#
+                                                 #{e\ 12467}#
+                                                 #{r\ 12399}#
+                                                 #{w\ 12400}#
+                                                 #{mod\ 12402}#))
                                              (append
-                                               #{tail\ 3319}#
-                                               (list #{val\ 3320}#))))))))
-                              #{tmp\ 3312}#)
-                       ((lambda (#{_\ 3348}#)
+                                               #{tail\ 12442}#
+                                               (list #{val\ 12443}#))))))))
+                              #{tmp\ 12435}#)
+                       ((lambda (#{_\ 12471}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 331}#
-                              #{e\ 3275}#
-                              #{w\ 3277}#
-                              #{s\ 3278}#
-                              #{mod\ 3279}#)))
-                        #{tmp\ 3285}#)))
+                            (#{source-wrap\ 9485}#
+                              #{e\ 12398}#
+                              #{w\ 12400}#
+                              #{s\ 12401}#
+                              #{mod\ 12402}#)))
+                        #{tmp\ 12408}#)))
                    ($sc-dispatch
-                     #{tmp\ 3285}#
+                     #{tmp\ 12408}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 3285}#
+                #{tmp\ 12408}#
                 '(any any any))))
-           #{e\ 3275}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12398}#)))
+      (#{global-extend\ 9410}#
         'module-ref
         '@
-        (lambda (#{e\ 3349}#)
-          ((lambda (#{tmp\ 3351}#)
-             ((lambda (#{tmp\ 3352}#)
-                (if (if #{tmp\ 3352}#
-                      (apply (lambda (#{_\ 3356}# #{mod\ 3357}# #{id\ 3358}#)
-                               (if (and-map #{id?\ 260}# #{mod\ 3357}#)
-                                 (#{id?\ 260}# #{id\ 3358}#)
+        (lambda (#{e\ 12472}#)
+          ((lambda (#{tmp\ 12474}#)
+             ((lambda (#{tmp\ 12475}#)
+                (if (if #{tmp\ 12475}#
+                      (apply (lambda (#{_\ 12479}#
+                                      #{mod\ 12480}#
+                                      #{id\ 12481}#)
+                               (if (and-map #{id?\ 9414}# #{mod\ 12480}#)
+                                 (#{id?\ 9414}# #{id\ 12481}#)
                                  #f))
-                             #{tmp\ 3352}#)
+                             #{tmp\ 12475}#)
                       #f)
-                  (apply (lambda (#{_\ 3365}# #{mod\ 3366}# #{id\ 3367}#)
+                  (apply (lambda (#{_\ 12488}# #{mod\ 12489}# #{id\ 12490}#)
                            (values
-                             (syntax->datum #{id\ 3367}#)
+                             (syntax->datum #{id\ 12490}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         public
@@ -9389,9 +9418,9 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i3362" "i3363" "i3364"))
+                                           #("i12485" "i12486" "i12487"))
                                          #(ribcage () () ())
-                                         #(ribcage #(e) #((top)) #("i3350"))
+                                         #(ribcage #(e) #((top)) #("i12473"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -9627,154 +9656,156 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i374"
-                                            "i372"
-                                            "i370"
-                                            "i368"
-                                            "i366"
-                                            "i364"
-                                            "i362"
-                                            "i360"
-                                            "i358"
-                                            "i356"
-                                            "i354"
-                                            "i352"
-                                            "i350"
-                                            "i348"
-                                            "i346"
-                                            "i344"
-                                            "i342"
-                                            "i340"
-                                            "i338"
-                                            "i336"
-                                            "i334"
-                                            "i332"
-                                            "i330"
-                                            "i328"
-                                            "i326"
-                                            "i324"
-                                            "i322"
-                                            "i320"
-                                            "i318"
-                                            "i316"
-                                            "i314"
-                                            "i312"
-                                            "i310"
-                                            "i308"
-                                            "i306"
-                                            "i304"
-                                            "i303"
-                                            "i302"
-                                            "i300"
-                                            "i299"
-                                            "i298"
-                                            "i297"
-                                            "i296"
-                                            "i294"
-                                            "i292"
-                                            "i290"
-                                            "i288"
-                                            "i286"
-                                            "i284"
-                                            "i282"
-                                            "i280"
-                                            "i277"
-                                            "i275"
-                                            "i274"
-                                            "i273"
-                                            "i272"
-                                            "i271"
-                                            "i270"
-                                            "i268"
-                                            "i266"
-                                            "i264"
-                                            "i262"
-                                            "i261"
-                                            "i259"
-                                            "i257"
-                                            "i255"
-                                            "i253"
-                                            "i251"
-                                            "i249"
-                                            "i247"
-                                            "i246"
-                                            "i244"
-                                            "i242"
-                                            "i241"
-                                            "i240"
-                                            "i238"
-                                            "i237"
-                                            "i235"
-                                            "i233"
-                                            "i231"
-                                            "i229"
-                                            "i227"
-                                            "i225"
-                                            "i223"
-                                            "i221"
-                                            "i219"
-                                            "i217"
-                                            "i215"
-                                            "i213"
-                                            "i211"
-                                            "i209"
-                                            "i207"
-                                            "i205"
-                                            "i203"
-                                            "i201"
-                                            "i199"
-                                            "i197"
-                                            "i195"
-                                            "i193"
-                                            "i191"
-                                            "i189"
-                                            "i187"
-                                            "i185"
-                                            "i183"
-                                            "i181"
-                                            "i179"
-                                            "i177"
-                                            "i175"
-                                            "i174"
-                                            "i172"
-                                            "i170"
-                                            "i168"
-                                            "i166"
-                                            "i164"
-                                            "i162"
-                                            "i160"
-                                            "i158"))
+                                           ("i9528"
+                                            "i9526"
+                                            "i9524"
+                                            "i9522"
+                                            "i9520"
+                                            "i9518"
+                                            "i9516"
+                                            "i9514"
+                                            "i9512"
+                                            "i9510"
+                                            "i9508"
+                                            "i9506"
+                                            "i9504"
+                                            "i9502"
+                                            "i9500"
+                                            "i9498"
+                                            "i9496"
+                                            "i9494"
+                                            "i9492"
+                                            "i9490"
+                                            "i9488"
+                                            "i9486"
+                                            "i9484"
+                                            "i9482"
+                                            "i9480"
+                                            "i9478"
+                                            "i9476"
+                                            "i9474"
+                                            "i9472"
+                                            "i9470"
+                                            "i9468"
+                                            "i9466"
+                                            "i9464"
+                                            "i9462"
+                                            "i9460"
+                                            "i9458"
+                                            "i9457"
+                                            "i9456"
+                                            "i9454"
+                                            "i9453"
+                                            "i9452"
+                                            "i9451"
+                                            "i9450"
+                                            "i9448"
+                                            "i9446"
+                                            "i9444"
+                                            "i9442"
+                                            "i9440"
+                                            "i9438"
+                                            "i9436"
+                                            "i9434"
+                                            "i9431"
+                                            "i9429"
+                                            "i9428"
+                                            "i9427"
+                                            "i9426"
+                                            "i9425"
+                                            "i9424"
+                                            "i9422"
+                                            "i9420"
+                                            "i9418"
+                                            "i9416"
+                                            "i9415"
+                                            "i9413"
+                                            "i9411"
+                                            "i9409"
+                                            "i9407"
+                                            "i9405"
+                                            "i9403"
+                                            "i9401"
+                                            "i9400"
+                                            "i9398"
+                                            "i9396"
+                                            "i9395"
+                                            "i9394"
+                                            "i9392"
+                                            "i9391"
+                                            "i9389"
+                                            "i9387"
+                                            "i9385"
+                                            "i9383"
+                                            "i9381"
+                                            "i9379"
+                                            "i9377"
+                                            "i9375"
+                                            "i9373"
+                                            "i9371"
+                                            "i9369"
+                                            "i9367"
+                                            "i9365"
+                                            "i9363"
+                                            "i9361"
+                                            "i9359"
+                                            "i9357"
+                                            "i9355"
+                                            "i9353"
+                                            "i9351"
+                                            "i9349"
+                                            "i9347"
+                                            "i9345"
+                                            "i9343"
+                                            "i9341"
+                                            "i9339"
+                                            "i9337"
+                                            "i9335"
+                                            "i9333"
+                                            "i9331"
+                                            "i9329"
+                                            "i9328"
+                                            "i9326"
+                                            "i9324"
+                                            "i9322"
+                                            "i9320"
+                                            "i9318"
+                                            "i9316"
+                                            "i9314"
+                                            "i9312"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i61" "i59")))
+                                           ("i9215" "i9213")))
                                         (hygiene guile))
-                                     #{mod\ 3366}#))))
-                         #{tmp\ 3352}#)
+                                     #{mod\ 12489}#))))
+                         #{tmp\ 12475}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 3351}#)))
+                    #{tmp\ 12474}#)))
               ($sc-dispatch
-                #{tmp\ 3351}#
+                #{tmp\ 12474}#
                 '(any each-any any))))
-           #{e\ 3349}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12472}#)))
+      (#{global-extend\ 9410}#
         'module-ref
         '@@
-        (lambda (#{e\ 3369}#)
-          ((lambda (#{tmp\ 3371}#)
-             ((lambda (#{tmp\ 3372}#)
-                (if (if #{tmp\ 3372}#
-                      (apply (lambda (#{_\ 3376}# #{mod\ 3377}# #{id\ 3378}#)
-                               (if (and-map #{id?\ 260}# #{mod\ 3377}#)
-                                 (#{id?\ 260}# #{id\ 3378}#)
+        (lambda (#{e\ 12492}#)
+          ((lambda (#{tmp\ 12494}#)
+             ((lambda (#{tmp\ 12495}#)
+                (if (if #{tmp\ 12495}#
+                      (apply (lambda (#{_\ 12499}#
+                                      #{mod\ 12500}#
+                                      #{id\ 12501}#)
+                               (if (and-map #{id?\ 9414}# #{mod\ 12500}#)
+                                 (#{id?\ 9414}# #{id\ 12501}#)
                                  #f))
-                             #{tmp\ 3372}#)
+                             #{tmp\ 12495}#)
                       #f)
-                  (apply (lambda (#{_\ 3385}# #{mod\ 3386}# #{id\ 3387}#)
+                  (apply (lambda (#{_\ 12508}# #{mod\ 12509}# #{id\ 12510}#)
                            (values
-                             (syntax->datum #{id\ 3387}#)
+                             (syntax->datum #{id\ 12510}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         private
@@ -9782,9 +9813,9 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i3382" "i3383" "i3384"))
+                                           #("i12505" "i12506" "i12507"))
                                          #(ribcage () () ())
-                                         #(ribcage #(e) #((top)) #("i3370"))
+                                         #(ribcage #(e) #((top)) #("i12493"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -10020,252 +10051,253 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i374"
-                                            "i372"
-                                            "i370"
-                                            "i368"
-                                            "i366"
-                                            "i364"
-                                            "i362"
-                                            "i360"
-                                            "i358"
-                                            "i356"
-                                            "i354"
-                                            "i352"
-                                            "i350"
-                                            "i348"
-                                            "i346"
-                                            "i344"
-                                            "i342"
-                                            "i340"
-                                            "i338"
-                                            "i336"
-                                            "i334"
-                                            "i332"
-                                            "i330"
-                                            "i328"
-                                            "i326"
-                                            "i324"
-                                            "i322"
-                                            "i320"
-                                            "i318"
-                                            "i316"
-                                            "i314"
-                                            "i312"
-                                            "i310"
-                                            "i308"
-                                            "i306"
-                                            "i304"
-                                            "i303"
-                                            "i302"
-                                            "i300"
-                                            "i299"
-                                            "i298"
-                                            "i297"
-                                            "i296"
-                                            "i294"
-                                            "i292"
-                                            "i290"
-                                            "i288"
-                                            "i286"
-                                            "i284"
-                                            "i282"
-                                            "i280"
-                                            "i277"
-                                            "i275"
-                                            "i274"
-                                            "i273"
-                                            "i272"
-                                            "i271"
-                                            "i270"
-                                            "i268"
-                                            "i266"
-                                            "i264"
-                                            "i262"
-                                            "i261"
-                                            "i259"
-                                            "i257"
-                                            "i255"
-                                            "i253"
-                                            "i251"
-                                            "i249"
-                                            "i247"
-                                            "i246"
-                                            "i244"
-                                            "i242"
-                                            "i241"
-                                            "i240"
-                                            "i238"
-                                            "i237"
-                                            "i235"
-                                            "i233"
-                                            "i231"
-                                            "i229"
-                                            "i227"
-                                            "i225"
-                                            "i223"
-                                            "i221"
-                                            "i219"
-                                            "i217"
-                                            "i215"
-                                            "i213"
-                                            "i211"
-                                            "i209"
-                                            "i207"
-                                            "i205"
-                                            "i203"
-                                            "i201"
-                                            "i199"
-                                            "i197"
-                                            "i195"
-                                            "i193"
-                                            "i191"
-                                            "i189"
-                                            "i187"
-                                            "i185"
-                                            "i183"
-                                            "i181"
-                                            "i179"
-                                            "i177"
-                                            "i175"
-                                            "i174"
-                                            "i172"
-                                            "i170"
-                                            "i168"
-                                            "i166"
-                                            "i164"
-                                            "i162"
-                                            "i160"
-                                            "i158"))
+                                           ("i9528"
+                                            "i9526"
+                                            "i9524"
+                                            "i9522"
+                                            "i9520"
+                                            "i9518"
+                                            "i9516"
+                                            "i9514"
+                                            "i9512"
+                                            "i9510"
+                                            "i9508"
+                                            "i9506"
+                                            "i9504"
+                                            "i9502"
+                                            "i9500"
+                                            "i9498"
+                                            "i9496"
+                                            "i9494"
+                                            "i9492"
+                                            "i9490"
+                                            "i9488"
+                                            "i9486"
+                                            "i9484"
+                                            "i9482"
+                                            "i9480"
+                                            "i9478"
+                                            "i9476"
+                                            "i9474"
+                                            "i9472"
+                                            "i9470"
+                                            "i9468"
+                                            "i9466"
+                                            "i9464"
+                                            "i9462"
+                                            "i9460"
+                                            "i9458"
+                                            "i9457"
+                                            "i9456"
+                                            "i9454"
+                                            "i9453"
+                                            "i9452"
+                                            "i9451"
+                                            "i9450"
+                                            "i9448"
+                                            "i9446"
+                                            "i9444"
+                                            "i9442"
+                                            "i9440"
+                                            "i9438"
+                                            "i9436"
+                                            "i9434"
+                                            "i9431"
+                                            "i9429"
+                                            "i9428"
+                                            "i9427"
+                                            "i9426"
+                                            "i9425"
+                                            "i9424"
+                                            "i9422"
+                                            "i9420"
+                                            "i9418"
+                                            "i9416"
+                                            "i9415"
+                                            "i9413"
+                                            "i9411"
+                                            "i9409"
+                                            "i9407"
+                                            "i9405"
+                                            "i9403"
+                                            "i9401"
+                                            "i9400"
+                                            "i9398"
+                                            "i9396"
+                                            "i9395"
+                                            "i9394"
+                                            "i9392"
+                                            "i9391"
+                                            "i9389"
+                                            "i9387"
+                                            "i9385"
+                                            "i9383"
+                                            "i9381"
+                                            "i9379"
+                                            "i9377"
+                                            "i9375"
+                                            "i9373"
+                                            "i9371"
+                                            "i9369"
+                                            "i9367"
+                                            "i9365"
+                                            "i9363"
+                                            "i9361"
+                                            "i9359"
+                                            "i9357"
+                                            "i9355"
+                                            "i9353"
+                                            "i9351"
+                                            "i9349"
+                                            "i9347"
+                                            "i9345"
+                                            "i9343"
+                                            "i9341"
+                                            "i9339"
+                                            "i9337"
+                                            "i9335"
+                                            "i9333"
+                                            "i9331"
+                                            "i9329"
+                                            "i9328"
+                                            "i9326"
+                                            "i9324"
+                                            "i9322"
+                                            "i9320"
+                                            "i9318"
+                                            "i9316"
+                                            "i9314"
+                                            "i9312"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i61" "i59")))
+                                           ("i9215" "i9213")))
                                         (hygiene guile))
-                                     #{mod\ 3386}#))))
-                         #{tmp\ 3372}#)
+                                     #{mod\ 12509}#))))
+                         #{tmp\ 12495}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 3371}#)))
+                    #{tmp\ 12494}#)))
               ($sc-dispatch
-                #{tmp\ 3371}#
+                #{tmp\ 12494}#
                 '(any each-any any))))
-           #{e\ 3369}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12492}#)))
+      (#{global-extend\ 9410}#
         'core
         'if
-        (lambda (#{e\ 3389}#
-                 #{r\ 3390}#
-                 #{w\ 3391}#
-                 #{s\ 3392}#
-                 #{mod\ 3393}#)
-          ((lambda (#{tmp\ 3399}#)
-             ((lambda (#{tmp\ 3400}#)
-                (if #{tmp\ 3400}#
-                  (apply (lambda (#{_\ 3404}# #{test\ 3405}# #{then\ 3406}#)
-                           (#{build-conditional\ 186}#
-                             #{s\ 3392}#
-                             (#{chi\ 345}#
-                               #{test\ 3405}#
-                               #{r\ 3390}#
-                               #{w\ 3391}#
-                               #{mod\ 3393}#)
-                             (#{chi\ 345}#
-                               #{then\ 3406}#
-                               #{r\ 3390}#
-                               #{w\ 3391}#
-                               #{mod\ 3393}#)
-                             (#{build-void\ 182}# #f)))
-                         #{tmp\ 3400}#)
-                  ((lambda (#{tmp\ 3408}#)
-                     (if #{tmp\ 3408}#
-                       (apply (lambda (#{_\ 3413}#
-                                       #{test\ 3414}#
-                                       #{then\ 3415}#
-                                       #{else\ 3416}#)
-                                (#{build-conditional\ 186}#
-                                  #{s\ 3392}#
-                                  (#{chi\ 345}#
-                                    #{test\ 3414}#
-                                    #{r\ 3390}#
-                                    #{w\ 3391}#
-                                    #{mod\ 3393}#)
-                                  (#{chi\ 345}#
-                                    #{then\ 3415}#
-                                    #{r\ 3390}#
-                                    #{w\ 3391}#
-                                    #{mod\ 3393}#)
-                                  (#{chi\ 345}#
-                                    #{else\ 3416}#
-                                    #{r\ 3390}#
-                                    #{w\ 3391}#
-                                    #{mod\ 3393}#)))
-                              #{tmp\ 3408}#)
+        (lambda (#{e\ 12512}#
+                 #{r\ 12513}#
+                 #{w\ 12514}#
+                 #{s\ 12515}#
+                 #{mod\ 12516}#)
+          ((lambda (#{tmp\ 12522}#)
+             ((lambda (#{tmp\ 12523}#)
+                (if #{tmp\ 12523}#
+                  (apply (lambda (#{_\ 12527}# #{test\ 12528}# #{then\ 12529}#)
+                           (#{build-conditional\ 9340}#
+                             #{s\ 12515}#
+                             (#{chi\ 9499}#
+                               #{test\ 12528}#
+                               #{r\ 12513}#
+                               #{w\ 12514}#
+                               #{mod\ 12516}#)
+                             (#{chi\ 9499}#
+                               #{then\ 12529}#
+                               #{r\ 12513}#
+                               #{w\ 12514}#
+                               #{mod\ 12516}#)
+                             (#{build-void\ 9336}# #f)))
+                         #{tmp\ 12523}#)
+                  ((lambda (#{tmp\ 12531}#)
+                     (if #{tmp\ 12531}#
+                       (apply (lambda (#{_\ 12536}#
+                                       #{test\ 12537}#
+                                       #{then\ 12538}#
+                                       #{else\ 12539}#)
+                                (#{build-conditional\ 9340}#
+                                  #{s\ 12515}#
+                                  (#{chi\ 9499}#
+                                    #{test\ 12537}#
+                                    #{r\ 12513}#
+                                    #{w\ 12514}#
+                                    #{mod\ 12516}#)
+                                  (#{chi\ 9499}#
+                                    #{then\ 12538}#
+                                    #{r\ 12513}#
+                                    #{w\ 12514}#
+                                    #{mod\ 12516}#)
+                                  (#{chi\ 9499}#
+                                    #{else\ 12539}#
+                                    #{r\ 12513}#
+                                    #{w\ 12514}#
+                                    #{mod\ 12516}#)))
+                              #{tmp\ 12531}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 3399}#)))
+                         #{tmp\ 12522}#)))
                    ($sc-dispatch
-                     #{tmp\ 3399}#
+                     #{tmp\ 12522}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 3399}#
+                #{tmp\ 12522}#
                 '(any any any))))
-           #{e\ 3389}#)))
-      (#{global-extend\ 256}#
+           #{e\ 12512}#)))
+      (#{global-extend\ 9410}#
         'begin
         'begin
         '())
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'define
         'define
         '())
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 256}#
+      (#{global-extend\ 9410}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 3424}#
-                   (lambda (#{x\ 3425}#
-                            #{keys\ 3426}#
-                            #{clauses\ 3427}#
-                            #{r\ 3428}#
-                            #{mod\ 3429}#)
-                     (if (null? #{clauses\ 3427}#)
-                       (#{build-application\ 184}#
+        (letrec ((#{gen-syntax-case\ 12547}#
+                   (lambda (#{x\ 12548}#
+                            #{keys\ 12549}#
+                            #{clauses\ 12550}#
+                            #{r\ 12551}#
+                            #{mod\ 12552}#)
+                     (if (null? #{clauses\ 12550}#)
+                       (#{build-application\ 9338}#
                          #f
-                         (#{build-primref\ 208}#
+                         (#{build-primref\ 9362}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 210}# #f #f)
-                               (#{build-data\ 210}#
+                         (list (#{build-data\ 9364}# #f #f)
+                               (#{build-data\ 9364}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 3425}#))
-                       ((lambda (#{tmp\ 3439}#)
-                          ((lambda (#{tmp\ 3440}#)
-                             (if #{tmp\ 3440}#
-                               (apply (lambda (#{pat\ 3443}# #{exp\ 3444}#)
-                                        (if (if (#{id?\ 260}# #{pat\ 3443}#)
+                               #{x\ 12548}#))
+                       ((lambda (#{tmp\ 12562}#)
+                          ((lambda (#{tmp\ 12563}#)
+                             (if #{tmp\ 12563}#
+                               (apply (lambda (#{pat\ 12566}# #{exp\ 12567}#)
+                                        (if (if (#{id?\ 9414}# #{pat\ 12566}#)
                                               (and-map
-                                                (lambda (#{x\ 3447}#)
-                                                  (not (#{free-id=?\ 319}#
-                                                         #{pat\ 3443}#
-                                                         #{x\ 3447}#)))
+                                                (lambda (#{x\ 12570}#)
+                                                  (not (#{free-id=?\ 9473}#
+                                                         #{pat\ 12566}#
+                                                         #{x\ 12570}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
-                                                            #("i3441" "i3442"))
+                                                            #("i12564"
+                                                              "i12565"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
@@ -10278,11 +10310,11 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i3430"
-                                                              "i3431"
-                                                              "i3432"
-                                                              "i3433"
-                                                              "i3434"))
+                                                            #("i12553"
+                                                              "i12554"
+                                                              "i12555"
+                                                              "i12556"
+                                                              "i12557"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
@@ -10292,10 +10324,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i3423"
-                                                             "i3421"
-                                                             "i3419"
-                                                             "i3417"))
+                                                            ("i12546"
+                                                             "i12544"
+                                                             "i12542"
+                                                             "i12540"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -10531,1077 +10563,1082 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i374"
-                                                             "i372"
-                                                             "i370"
-                                                             "i368"
-                                                             "i366"
-                                                             "i364"
-                                                             "i362"
-                                                             "i360"
-                                                             "i358"
-                                                             "i356"
-                                                             "i354"
-                                                             "i352"
-                                                             "i350"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
-                                                             "i340"
-                                                             "i338"
-                                                             "i336"
-                                                             "i334"
-                                                             "i332"
-                                                             "i330"
-                                                             "i328"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i306"
-                                                             "i304"
-                                                             "i303"
-                                                             "i302"
-                                                             "i300"
-                                                             "i299"
-                                                             "i298"
-                                                             "i297"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i277"
-                                                             "i275"
-                                                             "i274"
-                                                             "i273"
-                                                             "i272"
-                                                             "i271"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
-                                                             "i262"
-                                                             "i261"
-                                                             "i259"
-                                                             "i257"
-                                                             "i255"
-                                                             "i253"
-                                                             "i251"
-                                                             "i249"
-                                                             "i247"
-                                                             "i246"
-                                                             "i244"
-                                                             "i242"
-                                                             "i241"
-                                                             "i240"
-                                                             "i238"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"
-                                                             "i205"
-                                                             "i203"
-                                                             "i201"
-                                                             "i199"
-                                                             "i197"
-                                                             "i195"
-                                                             "i193"
-                                                             "i191"
-                                                             "i189"
-                                                             "i187"
-                                                             "i185"
-                                                             "i183"
-                                                             "i181"
-                                                             "i179"
-                                                             "i177"
-                                                             "i175"
-                                                             "i174"
-                                                             "i172"
-                                                             "i170"
-                                                             "i168"
-                                                             "i166"
-                                                             "i164"
-                                                             "i162"
-                                                             "i160"
-                                                             "i158"))
+                                                            ("i9528"
+                                                             "i9526"
+                                                             "i9524"
+                                                             "i9522"
+                                                             "i9520"
+                                                             "i9518"
+                                                             "i9516"
+                                                             "i9514"
+                                                             "i9512"
+                                                             "i9510"
+                                                             "i9508"
+                                                             "i9506"
+                                                             "i9504"
+                                                             "i9502"
+                                                             "i9500"
+                                                             "i9498"
+                                                             "i9496"
+                                                             "i9494"
+                                                             "i9492"
+                                                             "i9490"
+                                                             "i9488"
+                                                             "i9486"
+                                                             "i9484"
+                                                             "i9482"
+                                                             "i9480"
+                                                             "i9478"
+                                                             "i9476"
+                                                             "i9474"
+                                                             "i9472"
+                                                             "i9470"
+                                                             "i9468"
+                                                             "i9466"
+                                                             "i9464"
+                                                             "i9462"
+                                                             "i9460"
+                                                             "i9458"
+                                                             "i9457"
+                                                             "i9456"
+                                                             "i9454"
+                                                             "i9453"
+                                                             "i9452"
+                                                             "i9451"
+                                                             "i9450"
+                                                             "i9448"
+                                                             "i9446"
+                                                             "i9444"
+                                                             "i9442"
+                                                             "i9440"
+                                                             "i9438"
+                                                             "i9436"
+                                                             "i9434"
+                                                             "i9431"
+                                                             "i9429"
+                                                             "i9428"
+                                                             "i9427"
+                                                             "i9426"
+                                                             "i9425"
+                                                             "i9424"
+                                                             "i9422"
+                                                             "i9420"
+                                                             "i9418"
+                                                             "i9416"
+                                                             "i9415"
+                                                             "i9413"
+                                                             "i9411"
+                                                             "i9409"
+                                                             "i9407"
+                                                             "i9405"
+                                                             "i9403"
+                                                             "i9401"
+                                                             "i9400"
+                                                             "i9398"
+                                                             "i9396"
+                                                             "i9395"
+                                                             "i9394"
+                                                             "i9392"
+                                                             "i9391"
+                                                             "i9389"
+                                                             "i9387"
+                                                             "i9385"
+                                                             "i9383"
+                                                             "i9381"
+                                                             "i9379"
+                                                             "i9377"
+                                                             "i9375"
+                                                             "i9373"
+                                                             "i9371"
+                                                             "i9369"
+                                                             "i9367"
+                                                             "i9365"
+                                                             "i9363"
+                                                             "i9361"
+                                                             "i9359"
+                                                             "i9357"
+                                                             "i9355"
+                                                             "i9353"
+                                                             "i9351"
+                                                             "i9349"
+                                                             "i9347"
+                                                             "i9345"
+                                                             "i9343"
+                                                             "i9341"
+                                                             "i9339"
+                                                             "i9337"
+                                                             "i9335"
+                                                             "i9333"
+                                                             "i9331"
+                                                             "i9329"
+                                                             "i9328"
+                                                             "i9326"
+                                                             "i9324"
+                                                             "i9322"
+                                                             "i9320"
+                                                             "i9318"
+                                                             "i9316"
+                                                             "i9314"
+                                                             "i9312"))
                                                           #(ribcage
                                                             (define-structure
                                                               and-map*)
                                                             ((top) (top))
-                                                            ("i61" "i59")))
+                                                            ("i9215" "i9213")))
                                                          (hygiene guile))
-                                                      #{keys\ 3426}#))
+                                                      #{keys\ 12549}#))
                                               #f)
-                                          (let ((#{labels\ 3451}#
-                                                  (list (#{gen-label\ 276}#)))
-                                                (#{var\ 3452}#
-                                                  (#{gen-var\ 373}#
-                                                    #{pat\ 3443}#)))
-                                            (#{build-application\ 184}#
+                                          (let ((#{labels\ 12574}#
+                                                  (list (#{gen-label\ 9430}#)))
+                                                (#{var\ 12575}#
+                                                  (#{gen-var\ 9527}#
+                                                    #{pat\ 12566}#)))
+                                            (#{build-application\ 9338}#
                                               #f
-                                              (#{build-simple-lambda\ 202}#
+                                              (#{build-simple-lambda\ 9356}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 3443}#))
+                                                        #{pat\ 12566}#))
                                                 #f
-                                                (list #{var\ 3452}#)
+                                                (list #{var\ 12575}#)
                                                 #f
-                                                (#{chi\ 345}#
-                                                  #{exp\ 3444}#
-                                                  (#{extend-env\ 248}#
-                                                    #{labels\ 3451}#
+                                                (#{chi\ 9499}#
+                                                  #{exp\ 12567}#
+                                                  (#{extend-env\ 9402}#
+                                                    #{labels\ 12574}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
3452}#
+                                                                (cons #{var\ 
12575}#
                                                                       0)))
-                                                    #{r\ 3428}#)
-                                                  (#{make-binding-wrap\ 307}#
-                                                    (list #{pat\ 3443}#)
-                                                    #{labels\ 3451}#
+                                                    #{r\ 12551}#)
+                                                  (#{make-binding-wrap\ 9461}#
+                                                    (list #{pat\ 12566}#)
+                                                    #{labels\ 12574}#
                                                     '(()))
-                                                  #{mod\ 3429}#))
-                                              (list #{x\ 3425}#)))
-                                          (#{gen-clause\ 3422}#
-                                            #{x\ 3425}#
-                                            #{keys\ 3426}#
-                                            (cdr #{clauses\ 3427}#)
-                                            #{r\ 3428}#
-                                            #{pat\ 3443}#
+                                                  #{mod\ 12552}#))
+                                              (list #{x\ 12548}#)))
+                                          (#{gen-clause\ 12545}#
+                                            #{x\ 12548}#
+                                            #{keys\ 12549}#
+                                            (cdr #{clauses\ 12550}#)
+                                            #{r\ 12551}#
+                                            #{pat\ 12566}#
                                             #t
-                                            #{exp\ 3444}#
-                                            #{mod\ 3429}#)))
-                                      #{tmp\ 3440}#)
-                               ((lambda (#{tmp\ 3458}#)
-                                  (if #{tmp\ 3458}#
-                                    (apply (lambda (#{pat\ 3462}#
-                                                    #{fender\ 3463}#
-                                                    #{exp\ 3464}#)
-                                             (#{gen-clause\ 3422}#
-                                               #{x\ 3425}#
-                                               #{keys\ 3426}#
-                                               (cdr #{clauses\ 3427}#)
-                                               #{r\ 3428}#
-                                               #{pat\ 3462}#
-                                               #{fender\ 3463}#
-                                               #{exp\ 3464}#
-                                               #{mod\ 3429}#))
-                                           #{tmp\ 3458}#)
-                                    ((lambda (#{_\ 3466}#)
+                                            #{exp\ 12567}#
+                                            #{mod\ 12552}#)))
+                                      #{tmp\ 12563}#)
+                               ((lambda (#{tmp\ 12581}#)
+                                  (if #{tmp\ 12581}#
+                                    (apply (lambda (#{pat\ 12585}#
+                                                    #{fender\ 12586}#
+                                                    #{exp\ 12587}#)
+                                             (#{gen-clause\ 12545}#
+                                               #{x\ 12548}#
+                                               #{keys\ 12549}#
+                                               (cdr #{clauses\ 12550}#)
+                                               #{r\ 12551}#
+                                               #{pat\ 12585}#
+                                               #{fender\ 12586}#
+                                               #{exp\ 12587}#
+                                               #{mod\ 12552}#))
+                                           #{tmp\ 12581}#)
+                                    ((lambda (#{_\ 12589}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 3427}#)))
-                                     #{tmp\ 3439}#)))
+                                         (car #{clauses\ 12550}#)))
+                                     #{tmp\ 12562}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 3439}#
+                                  #{tmp\ 12562}#
                                   '(any any any)))))
-                           ($sc-dispatch #{tmp\ 3439}# (quote (any any)))))
-                        (car #{clauses\ 3427}#)))))
-                 (#{gen-clause\ 3422}#
-                   (lambda (#{x\ 3467}#
-                            #{keys\ 3468}#
-                            #{clauses\ 3469}#
-                            #{r\ 3470}#
-                            #{pat\ 3471}#
-                            #{fender\ 3472}#
-                            #{exp\ 3473}#
-                            #{mod\ 3474}#)
+                           ($sc-dispatch #{tmp\ 12562}# (quote (any any)))))
+                        (car #{clauses\ 12550}#)))))
+                 (#{gen-clause\ 12545}#
+                   (lambda (#{x\ 12590}#
+                            #{keys\ 12591}#
+                            #{clauses\ 12592}#
+                            #{r\ 12593}#
+                            #{pat\ 12594}#
+                            #{fender\ 12595}#
+                            #{exp\ 12596}#
+                            #{mod\ 12597}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 3418}#
-                           #{pat\ 3471}#
-                           #{keys\ 3468}#))
-                       (lambda (#{p\ 3483}# #{pvars\ 3484}#)
-                         (if (not (#{distinct-bound-ids?\ 325}#
-                                    (map car #{pvars\ 3484}#)))
+                         (#{convert-pattern\ 12541}#
+                           #{pat\ 12594}#
+                           #{keys\ 12591}#))
+                       (lambda (#{p\ 12606}# #{pvars\ 12607}#)
+                         (if (not (#{distinct-bound-ids?\ 9479}#
+                                    (map car #{pvars\ 12607}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 3471}#)
+                             #{pat\ 12594}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 3491}#)
-                                        (not (#{ellipsis?\ 361}#
-                                               (car #{x\ 3491}#))))
-                                      #{pvars\ 3484}#))
+                                      (lambda (#{x\ 12614}#)
+                                        (not (#{ellipsis?\ 9515}#
+                                               (car #{x\ 12614}#))))
+                                      #{pvars\ 12607}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 3471}#)
-                             (let ((#{y\ 3495}#
-                                     (#{gen-var\ 373}# (quote tmp))))
-                               (#{build-application\ 184}#
+                               #{pat\ 12594}#)
+                             (let ((#{y\ 12618}#
+                                     (#{gen-var\ 9527}# (quote tmp))))
+                               (#{build-application\ 9338}#
                                  #f
-                                 (#{build-simple-lambda\ 202}#
+                                 (#{build-simple-lambda\ 9356}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 3495}#)
+                                   (list #{y\ 12618}#)
                                    #f
-                                   (let ((#{y\ 3499}#
-                                           (#{build-lexical-reference\ 188}#
+                                   (let ((#{y\ 12622}#
+                                           (#{build-lexical-reference\ 9342}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 3495}#)))
-                                     (#{build-conditional\ 186}#
+                                             #{y\ 12618}#)))
+                                     (#{build-conditional\ 9340}#
                                        #f
-                                       ((lambda (#{tmp\ 3502}#)
-                                          ((lambda (#{tmp\ 3503}#)
-                                             (if #{tmp\ 3503}#
-                                               (apply (lambda () #{y\ 3499}#)
-                                                      #{tmp\ 3503}#)
-                                               ((lambda (#{_\ 3505}#)
-                                                  (#{build-conditional\ 186}#
+                                       ((lambda (#{tmp\ 12625}#)
+                                          ((lambda (#{tmp\ 12626}#)
+                                             (if #{tmp\ 12626}#
+                                               (apply (lambda () #{y\ 12622}#)
+                                                      #{tmp\ 12626}#)
+                                               ((lambda (#{_\ 12628}#)
+                                                  (#{build-conditional\ 9340}#
                                                     #f
-                                                    #{y\ 3499}#
-                                                    (#{build-dispatch-call\ 
3420}#
-                                                      #{pvars\ 3484}#
-                                                      #{fender\ 3472}#
-                                                      #{y\ 3499}#
-                                                      #{r\ 3470}#
-                                                      #{mod\ 3474}#)
-                                                    (#{build-data\ 210}#
+                                                    #{y\ 12622}#
+                                                    (#{build-dispatch-call\ 
12543}#
+                                                      #{pvars\ 12607}#
+                                                      #{fender\ 12595}#
+                                                      #{y\ 12622}#
+                                                      #{r\ 12593}#
+                                                      #{mod\ 12597}#)
+                                                    (#{build-data\ 9364}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 3502}#)))
+                                                #{tmp\ 12625}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 3502}#
+                                             #{tmp\ 12625}#
                                              '#(atom #t))))
-                                        #{fender\ 3472}#)
-                                       (#{build-dispatch-call\ 3420}#
-                                         #{pvars\ 3484}#
-                                         #{exp\ 3473}#
-                                         #{y\ 3499}#
-                                         #{r\ 3470}#
-                                         #{mod\ 3474}#)
-                                       (#{gen-syntax-case\ 3424}#
-                                         #{x\ 3467}#
-                                         #{keys\ 3468}#
-                                         #{clauses\ 3469}#
-                                         #{r\ 3470}#
-                                         #{mod\ 3474}#))))
-                                 (list (if (eq? #{p\ 3483}# (quote any))
-                                         (#{build-application\ 184}#
+                                        #{fender\ 12595}#)
+                                       (#{build-dispatch-call\ 12543}#
+                                         #{pvars\ 12607}#
+                                         #{exp\ 12596}#
+                                         #{y\ 12622}#
+                                         #{r\ 12593}#
+                                         #{mod\ 12597}#)
+                                       (#{gen-syntax-case\ 12547}#
+                                         #{x\ 12590}#
+                                         #{keys\ 12591}#
+                                         #{clauses\ 12592}#
+                                         #{r\ 12593}#
+                                         #{mod\ 12597}#))))
+                                 (list (if (eq? #{p\ 12606}# (quote any))
+                                         (#{build-application\ 9338}#
                                            #f
-                                           (#{build-primref\ 208}#
+                                           (#{build-primref\ 9362}#
                                              #f
                                              'list)
-                                           (list #{x\ 3467}#))
-                                         (#{build-application\ 184}#
+                                           (list #{x\ 12590}#))
+                                         (#{build-application\ 9338}#
                                            #f
-                                           (#{build-primref\ 208}#
+                                           (#{build-primref\ 9362}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 3467}#
-                                                 (#{build-data\ 210}#
+                                           (list #{x\ 12590}#
+                                                 (#{build-data\ 9364}#
                                                    #f
-                                                   #{p\ 3483}#)))))))))))))
-                 (#{build-dispatch-call\ 3420}#
-                   (lambda (#{pvars\ 3513}#
-                            #{exp\ 3514}#
-                            #{y\ 3515}#
-                            #{r\ 3516}#
-                            #{mod\ 3517}#)
-                     (let ((#{ids\ 3525}# (map car #{pvars\ 3513}#))
-                           (#{levels\ 3526}# (map cdr #{pvars\ 3513}#)))
-                       (let ((#{labels\ 3529}#
-                               (#{gen-labels\ 278}# #{ids\ 3525}#))
-                             (#{new-vars\ 3530}#
-                               (map #{gen-var\ 373}# #{ids\ 3525}#)))
-                         (#{build-application\ 184}#
+                                                   #{p\ 12606}#)))))))))))))
+                 (#{build-dispatch-call\ 12543}#
+                   (lambda (#{pvars\ 12636}#
+                            #{exp\ 12637}#
+                            #{y\ 12638}#
+                            #{r\ 12639}#
+                            #{mod\ 12640}#)
+                     (let ((#{ids\ 12648}# (map car #{pvars\ 12636}#))
+                           (#{levels\ 12649}# (map cdr #{pvars\ 12636}#)))
+                       (let ((#{labels\ 12652}#
+                               (#{gen-labels\ 9432}# #{ids\ 12648}#))
+                             (#{new-vars\ 12653}#
+                               (map #{gen-var\ 9527}# #{ids\ 12648}#)))
+                         (#{build-application\ 9338}#
                            #f
-                           (#{build-primref\ 208}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 202}#
+                           (#{build-primref\ 9362}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 9356}#
                                    #f
-                                   (map syntax->datum #{ids\ 3525}#)
+                                   (map syntax->datum #{ids\ 12648}#)
                                    #f
-                                   #{new-vars\ 3530}#
+                                   #{new-vars\ 12653}#
                                    #f
-                                   (#{chi\ 345}#
-                                     #{exp\ 3514}#
-                                     (#{extend-env\ 248}#
-                                       #{labels\ 3529}#
-                                       (map (lambda (#{var\ 3534}#
-                                                     #{level\ 3535}#)
+                                   (#{chi\ 9499}#
+                                     #{exp\ 12637}#
+                                     (#{extend-env\ 9402}#
+                                       #{labels\ 12652}#
+                                       (map (lambda (#{var\ 12657}#
+                                                     #{level\ 12658}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 3534}#
-                                                          #{level\ 3535}#)))
-                                            #{new-vars\ 3530}#
-                                            (map cdr #{pvars\ 3513}#))
-                                       #{r\ 3516}#)
-                                     (#{make-binding-wrap\ 307}#
-                                       #{ids\ 3525}#
-                                       #{labels\ 3529}#
+                                                    (cons #{var\ 12657}#
+                                                          #{level\ 12658}#)))
+                                            #{new-vars\ 12653}#
+                                            (map cdr #{pvars\ 12636}#))
+                                       #{r\ 12639}#)
+                                     (#{make-binding-wrap\ 9461}#
+                                       #{ids\ 12648}#
+                                       #{labels\ 12652}#
                                        '(()))
-                                     #{mod\ 3517}#))
-                                 #{y\ 3515}#))))))
-                 (#{convert-pattern\ 3418}#
-                   (lambda (#{pattern\ 3541}# #{keys\ 3542}#)
-                     (letrec ((#{cvt\ 3548}#
-                                (lambda (#{p\ 3549}# #{n\ 3550}# #{ids\ 3551}#)
-                                  (if (#{id?\ 260}# #{p\ 3549}#)
-                                    (if (#{bound-id-member?\ 327}#
-                                          #{p\ 3549}#
-                                          #{keys\ 3542}#)
+                                     #{mod\ 12640}#))
+                                 #{y\ 12638}#))))))
+                 (#{convert-pattern\ 12541}#
+                   (lambda (#{pattern\ 12664}# #{keys\ 12665}#)
+                     (letrec ((#{cvt\ 12671}#
+                                (lambda (#{p\ 12672}#
+                                         #{n\ 12673}#
+                                         #{ids\ 12674}#)
+                                  (if (#{id?\ 9414}# #{p\ 12672}#)
+                                    (if (#{bound-id-member?\ 9481}#
+                                          #{p\ 12672}#
+                                          #{keys\ 12665}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 3549}#)
-                                        #{ids\ 3551}#)
+                                        (vector (quote free-id) #{p\ 12672}#)
+                                        #{ids\ 12674}#)
                                       (values
                                         'any
-                                        (cons (cons #{p\ 3549}# #{n\ 3550}#)
-                                              #{ids\ 3551}#)))
-                                    ((lambda (#{tmp\ 3555}#)
-                                       ((lambda (#{tmp\ 3556}#)
-                                          (if (if #{tmp\ 3556}#
-                                                (apply (lambda (#{x\ 3559}#
-                                                                #{dots\ 3560}#)
-                                                         (#{ellipsis?\ 361}#
-                                                           #{dots\ 3560}#))
-                                                       #{tmp\ 3556}#)
+                                        (cons (cons #{p\ 12672}# #{n\ 12673}#)
+                                              #{ids\ 12674}#)))
+                                    ((lambda (#{tmp\ 12678}#)
+                                       ((lambda (#{tmp\ 12679}#)
+                                          (if (if #{tmp\ 12679}#
+                                                (apply (lambda (#{x\ 12682}#
+                                                                #{dots\ 
12683}#)
+                                                         (#{ellipsis?\ 9515}#
+                                                           #{dots\ 12683}#))
+                                                       #{tmp\ 12679}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 3563}#
-                                                            #{dots\ 3564}#)
+                                            (apply (lambda (#{x\ 12686}#
+                                                            #{dots\ 12687}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 3548}#
-                                                           #{x\ 3563}#
-                                                           (#{fx+\ 163}#
-                                                             #{n\ 3550}#
+                                                         (#{cvt\ 12671}#
+                                                           #{x\ 12686}#
+                                                           (#{fx+\ 9317}#
+                                                             #{n\ 12673}#
                                                              1)
-                                                           #{ids\ 3551}#))
-                                                       (lambda (#{p\ 3565}#
-                                                                #{ids\ 3566}#)
+                                                           #{ids\ 12674}#))
+                                                       (lambda (#{p\ 12688}#
+                                                                #{ids\ 12689}#)
                                                          (values
-                                                           (if (eq? #{p\ 3565}#
+                                                           (if (eq? #{p\ 
12688}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{p\ 3565}#))
-                                                           #{ids\ 3566}#))))
-                                                   #{tmp\ 3556}#)
-                                            ((lambda (#{tmp\ 3569}#)
-                                               (if (if #{tmp\ 3569}#
-                                                     (apply (lambda (#{x\ 
3573}#
-                                                                     #{dots\ 
3574}#
-                                                                     #{ys\ 
3575}#)
-                                                              (#{ellipsis?\ 
361}#
-                                                                #{dots\ 
3574}#))
-                                                            #{tmp\ 3569}#)
+                                                               #{p\ 12688}#))
+                                                           #{ids\ 12689}#))))
+                                                   #{tmp\ 12679}#)
+                                            ((lambda (#{tmp\ 12692}#)
+                                               (if (if #{tmp\ 12692}#
+                                                     (apply (lambda (#{x\ 
12696}#
+                                                                     #{dots\ 
12697}#
+                                                                     #{ys\ 
12698}#)
+                                                              (#{ellipsis?\ 
9515}#
+                                                                #{dots\ 
12697}#))
+                                                            #{tmp\ 12692}#)
                                                      #f)
-                                                 (apply (lambda (#{x\ 3579}#
-                                                                 #{dots\ 3580}#
-                                                                 #{ys\ 3581}#)
+                                                 (apply (lambda (#{x\ 12702}#
+                                                                 #{dots\ 
12703}#
+                                                                 #{ys\ 12704}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt*\ 3546}#
-                                                                #{ys\ 3581}#
-                                                                #{n\ 3550}#
-                                                                #{ids\ 3551}#))
-                                                            (lambda (#{ys\ 
3583}#
-                                                                     #{ids\ 
3584}#)
+                                                              (#{cvt*\ 12669}#
+                                                                #{ys\ 12704}#
+                                                                #{n\ 12673}#
+                                                                #{ids\ 
12674}#))
+                                                            (lambda (#{ys\ 
12706}#
+                                                                     #{ids\ 
12707}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
3548}#
-                                                                    #{x\ 3579}#
-                                                                    (+ #{n\ 
3550}#
+                                                                  (#{cvt\ 
12671}#
+                                                                    #{x\ 
12702}#
+                                                                    (+ #{n\ 
12673}#
                                                                        1)
-                                                                    #{ids\ 
3584}#))
-                                                                (lambda (#{x\ 
3587}#
-                                                                         
#{ids\ 3588}#)
+                                                                    #{ids\ 
12707}#))
+                                                                (lambda (#{x\ 
12710}#
+                                                                         
#{ids\ 12711}#)
                                                                   (values
                                                                     
(list->vector
                                                                       (cons 
'each+
-                                                                            
(cons #{x\ 3587}#
+                                                                            
(cons #{x\ 12710}#
                                                                                
   (cons (reverse
-                                                                               
           #{ys\ 3583}#)
+                                                                               
           #{ys\ 12706}#)
                                                                                
         '(())))))
-                                                                    #{ids\ 
3588}#))))))
-                                                        #{tmp\ 3569}#)
-                                                 ((lambda (#{tmp\ 3592}#)
-                                                    (if #{tmp\ 3592}#
-                                                      (apply (lambda (#{x\ 
3595}#
-                                                                      #{y\ 
3596}#)
+                                                                    #{ids\ 
12711}#))))))
+                                                        #{tmp\ 12692}#)
+                                                 ((lambda (#{tmp\ 12715}#)
+                                                    (if #{tmp\ 12715}#
+                                                      (apply (lambda (#{x\ 
12718}#
+                                                                      #{y\ 
12719}#)
                                                                
(call-with-values
                                                                  (lambda ()
-                                                                   (#{cvt\ 
3548}#
-                                                                     #{y\ 
3596}#
-                                                                     #{n\ 
3550}#
-                                                                     #{ids\ 
3551}#))
-                                                                 (lambda (#{y\ 
3597}#
-                                                                          
#{ids\ 3598}#)
+                                                                   (#{cvt\ 
12671}#
+                                                                     #{y\ 
12719}#
+                                                                     #{n\ 
12673}#
+                                                                     #{ids\ 
12674}#))
+                                                                 (lambda (#{y\ 
12720}#
+                                                                          
#{ids\ 12721}#)
                                                                    
(call-with-values
                                                                      (lambda ()
-                                                                       (#{cvt\ 
3548}#
-                                                                         #{x\ 
3595}#
-                                                                         #{n\ 
3550}#
-                                                                         
#{ids\ 3598}#))
-                                                                     (lambda 
(#{x\ 3601}#
-                                                                              
#{ids\ 3602}#)
+                                                                       (#{cvt\ 
12671}#
+                                                                         #{x\ 
12718}#
+                                                                         #{n\ 
12673}#
+                                                                         
#{ids\ 12721}#))
+                                                                     (lambda 
(#{x\ 12724}#
+                                                                              
#{ids\ 12725}#)
                                                                        (values
-                                                                         (cons 
#{x\ 3601}#
-                                                                               
#{y\ 3597}#)
-                                                                         
#{ids\ 3602}#))))))
-                                                             #{tmp\ 3592}#)
-                                                      ((lambda (#{tmp\ 3605}#)
-                                                         (if #{tmp\ 3605}#
+                                                                         (cons 
#{x\ 12724}#
+                                                                               
#{y\ 12720}#)
+                                                                         
#{ids\ 12725}#))))))
+                                                             #{tmp\ 12715}#)
+                                                      ((lambda (#{tmp\ 12728}#)
+                                                         (if #{tmp\ 12728}#
                                                            (apply (lambda ()
                                                                     (values
                                                                       '()
-                                                                      #{ids\ 
3551}#))
-                                                                  #{tmp\ 
3605}#)
-                                                           ((lambda (#{tmp\ 
3606}#)
-                                                              (if #{tmp\ 3606}#
-                                                                (apply (lambda 
(#{x\ 3608}#)
+                                                                      #{ids\ 
12674}#))
+                                                                  #{tmp\ 
12728}#)
+                                                           ((lambda (#{tmp\ 
12729}#)
+                                                              (if #{tmp\ 
12729}#
+                                                                (apply (lambda 
(#{x\ 12731}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{cvt\ 3548}#
-                                                                               
#{x\ 3608}#
-                                                                               
#{n\ 3550}#
-                                                                               
#{ids\ 3551}#))
-                                                                           
(lambda (#{p\ 3610}#
-                                                                               
     #{ids\ 3611}#)
+                                                                             
(#{cvt\ 12671}#
+                                                                               
#{x\ 12731}#
+                                                                               
#{n\ 12673}#
+                                                                               
#{ids\ 12674}#))
+                                                                           
(lambda (#{p\ 12733}#
+                                                                               
     #{ids\ 12734}#)
                                                                              
(values
                                                                                
(vector
                                                                                
  'vector
-                                                                               
  #{p\ 3610}#)
-                                                                               
#{ids\ 3611}#))))
-                                                                       #{tmp\ 
3606}#)
-                                                                ((lambda (#{x\ 
3615}#)
+                                                                               
  #{p\ 12733}#)
+                                                                               
#{ids\ 12734}#))))
+                                                                       #{tmp\ 
12729}#)
+                                                                ((lambda (#{x\ 
12738}#)
                                                                    (values
                                                                      (vector
                                                                        'atom
-                                                                       
(#{strip\ 371}#
-                                                                         #{p\ 
3549}#
+                                                                       
(#{strip\ 9525}#
+                                                                         #{p\ 
12672}#
                                                                          
'(())))
-                                                                     #{ids\ 
3551}#))
-                                                                 #{tmp\ 
3555}#)))
+                                                                     #{ids\ 
12674}#))
+                                                                 #{tmp\ 
12678}#)))
                                                             ($sc-dispatch
-                                                              #{tmp\ 3555}#
+                                                              #{tmp\ 12678}#
                                                               '#(vector
                                                                  each-any)))))
                                                        ($sc-dispatch
-                                                         #{tmp\ 3555}#
+                                                         #{tmp\ 12678}#
                                                          '()))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 3555}#
+                                                    #{tmp\ 12678}#
                                                     '(any . any)))))
                                              ($sc-dispatch
-                                               #{tmp\ 3555}#
+                                               #{tmp\ 12678}#
                                                '(any any . each-any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 3555}#
+                                          #{tmp\ 12678}#
                                           '(any any))))
-                                     #{p\ 3549}#))))
-                              (#{cvt*\ 3546}#
-                                (lambda (#{p*\ 3617}#
-                                         #{n\ 3618}#
-                                         #{ids\ 3619}#)
-                                  (if (null? #{p*\ 3617}#)
-                                    (values (quote ()) #{ids\ 3619}#)
+                                     #{p\ 12672}#))))
+                              (#{cvt*\ 12669}#
+                                (lambda (#{p*\ 12740}#
+                                         #{n\ 12741}#
+                                         #{ids\ 12742}#)
+                                  (if (null? #{p*\ 12740}#)
+                                    (values (quote ()) #{ids\ 12742}#)
                                     (call-with-values
                                       (lambda ()
-                                        (#{cvt*\ 3546}#
-                                          (cdr #{p*\ 3617}#)
-                                          #{n\ 3618}#
-                                          #{ids\ 3619}#))
-                                      (lambda (#{y\ 3623}# #{ids\ 3624}#)
+                                        (#{cvt*\ 12669}#
+                                          (cdr #{p*\ 12740}#)
+                                          #{n\ 12741}#
+                                          #{ids\ 12742}#))
+                                      (lambda (#{y\ 12746}# #{ids\ 12747}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 3548}#
-                                              (car #{p*\ 3617}#)
-                                              #{n\ 3618}#
-                                              #{ids\ 3624}#))
-                                          (lambda (#{x\ 3627}# #{ids\ 3628}#)
+                                            (#{cvt\ 12671}#
+                                              (car #{p*\ 12740}#)
+                                              #{n\ 12741}#
+                                              #{ids\ 12747}#))
+                                          (lambda (#{x\ 12750}# #{ids\ 12751}#)
                                             (values
-                                              (cons #{x\ 3627}# #{y\ 3623}#)
-                                              #{ids\ 3628}#)))))))))
-                       (#{cvt\ 3548}# #{pattern\ 3541}# 0 (quote ()))))))
-          (lambda (#{e\ 3631}#
-                   #{r\ 3632}#
-                   #{w\ 3633}#
-                   #{s\ 3634}#
-                   #{mod\ 3635}#)
-            (let ((#{e\ 3642}#
-                    (#{source-wrap\ 331}#
-                      #{e\ 3631}#
-                      #{w\ 3633}#
-                      #{s\ 3634}#
-                      #{mod\ 3635}#)))
-              ((lambda (#{tmp\ 3643}#)
-                 ((lambda (#{tmp\ 3644}#)
-                    (if #{tmp\ 3644}#
-                      (apply (lambda (#{_\ 3649}#
-                                      #{val\ 3650}#
-                                      #{key\ 3651}#
-                                      #{m\ 3652}#)
+                                              (cons #{x\ 12750}# #{y\ 12746}#)
+                                              #{ids\ 12751}#)))))))))
+                       (#{cvt\ 12671}# #{pattern\ 12664}# 0 (quote ()))))))
+          (lambda (#{e\ 12754}#
+                   #{r\ 12755}#
+                   #{w\ 12756}#
+                   #{s\ 12757}#
+                   #{mod\ 12758}#)
+            (let ((#{e\ 12765}#
+                    (#{source-wrap\ 9485}#
+                      #{e\ 12754}#
+                      #{w\ 12756}#
+                      #{s\ 12757}#
+                      #{mod\ 12758}#)))
+              ((lambda (#{tmp\ 12766}#)
+                 ((lambda (#{tmp\ 12767}#)
+                    (if #{tmp\ 12767}#
+                      (apply (lambda (#{_\ 12772}#
+                                      #{val\ 12773}#
+                                      #{key\ 12774}#
+                                      #{m\ 12775}#)
                                (if (and-map
-                                     (lambda (#{x\ 3653}#)
-                                       (if (#{id?\ 260}# #{x\ 3653}#)
-                                         (not (#{ellipsis?\ 361}# #{x\ 3653}#))
+                                     (lambda (#{x\ 12776}#)
+                                       (if (#{id?\ 9414}# #{x\ 12776}#)
+                                         (not (#{ellipsis?\ 9515}#
+                                                #{x\ 12776}#))
                                          #f))
-                                     #{key\ 3651}#)
-                                 (let ((#{x\ 3659}#
-                                         (#{gen-var\ 373}# (quote tmp))))
-                                   (#{build-application\ 184}#
-                                     #{s\ 3634}#
-                                     (#{build-simple-lambda\ 202}#
+                                     #{key\ 12774}#)
+                                 (let ((#{x\ 12782}#
+                                         (#{gen-var\ 9527}# (quote tmp))))
+                                   (#{build-application\ 9338}#
+                                     #{s\ 12757}#
+                                     (#{build-simple-lambda\ 9356}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 3659}#)
+                                       (list #{x\ 12782}#)
                                        #f
-                                       (#{gen-syntax-case\ 3424}#
-                                         (#{build-lexical-reference\ 188}#
+                                       (#{gen-syntax-case\ 12547}#
+                                         (#{build-lexical-reference\ 9342}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 3659}#)
-                                         #{key\ 3651}#
-                                         #{m\ 3652}#
-                                         #{r\ 3632}#
-                                         #{mod\ 3635}#))
-                                     (list (#{chi\ 345}#
-                                             #{val\ 3650}#
-                                             #{r\ 3632}#
+                                           #{x\ 12782}#)
+                                         #{key\ 12774}#
+                                         #{m\ 12775}#
+                                         #{r\ 12755}#
+                                         #{mod\ 12758}#))
+                                     (list (#{chi\ 9499}#
+                                             #{val\ 12773}#
+                                             #{r\ 12755}#
                                              '(())
-                                             #{mod\ 3635}#))))
+                                             #{mod\ 12758}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 3642}#)))
-                             #{tmp\ 3644}#)
+                                   #{e\ 12765}#)))
+                             #{tmp\ 12767}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 3643}#)))
+                        #{tmp\ 12766}#)))
                   ($sc-dispatch
-                    #{tmp\ 3643}#
+                    #{tmp\ 12766}#
                     '(any any each-any . each-any))))
-               #{e\ 3642}#)))))
+               #{e\ 12765}#)))))
       (set! sc-expand
-        (lambda (#{x\ 3665}# . #{rest\ 3666}#)
-          (if (if (pair? #{x\ 3665}#)
-                (equal? (car #{x\ 3665}#) #{noexpand\ 159}#)
+        (lambda (#{x\ 12788}# . #{rest\ 12789}#)
+          (if (if (pair? #{x\ 12788}#)
+                (equal? (car #{x\ 12788}#) #{noexpand\ 9313}#)
                 #f)
-            (cadr #{x\ 3665}#)
-            (let ((#{m\ 3673}#
-                    (if (null? #{rest\ 3666}#)
+            (cadr #{x\ 12788}#)
+            (let ((#{m\ 12796}#
+                    (if (null? #{rest\ 12789}#)
                       'e
-                      (car #{rest\ 3666}#)))
-                  (#{esew\ 3674}#
-                    (if (let ((#{t\ 3677}# (null? #{rest\ 3666}#)))
-                          (if #{t\ 3677}#
-                            #{t\ 3677}#
-                            (null? (cdr #{rest\ 3666}#))))
+                      (car #{rest\ 12789}#)))
+                  (#{esew\ 12797}#
+                    (if (let ((#{t\ 12800}# (null? #{rest\ 12789}#)))
+                          (if #{t\ 12800}#
+                            #{t\ 12800}#
+                            (null? (cdr #{rest\ 12789}#))))
                       '(eval)
-                      (cadr #{rest\ 3666}#))))
+                      (cadr #{rest\ 12789}#))))
               (with-fluid*
-                #{*mode*\ 161}#
-                #{m\ 3673}#
+                #{*mode*\ 9315}#
+                #{m\ 12796}#
                 (lambda ()
-                  (#{chi-top\ 343}#
-                    #{x\ 3665}#
+                  (#{chi-top\ 9497}#
+                    #{x\ 12788}#
                     '()
                     '((top))
-                    #{m\ 3673}#
-                    #{esew\ 3674}#
+                    #{m\ 12796}#
+                    #{esew\ 12797}#
                     (cons 'hygiene
                           (module-name (current-module))))))))))
       (set! identifier?
-        (lambda (#{x\ 3681}#)
-          (#{nonsymbol-id?\ 258}# #{x\ 3681}#)))
+        (lambda (#{x\ 12804}#)
+          (#{nonsymbol-id?\ 9412}# #{x\ 12804}#)))
       (set! datum->syntax
-        (lambda (#{id\ 3683}# #{datum\ 3684}#)
-          (#{make-syntax-object\ 222}#
-            #{datum\ 3684}#
-            (#{syntax-object-wrap\ 228}# #{id\ 3683}#)
+        (lambda (#{id\ 12806}# #{datum\ 12807}#)
+          (#{make-syntax-object\ 9376}#
+            #{datum\ 12807}#
+            (#{syntax-object-wrap\ 9382}# #{id\ 12806}#)
             #f)))
       (set! syntax->datum
-        (lambda (#{x\ 3687}#)
-          (#{strip\ 371}# #{x\ 3687}# (quote (())))))
+        (lambda (#{x\ 12810}#)
+          (#{strip\ 9525}# #{x\ 12810}# (quote (())))))
       (set! generate-temporaries
-        (lambda (#{ls\ 3690}#)
+        (lambda (#{ls\ 12813}#)
           (begin
-            (let ((#{x\ 3694}# #{ls\ 3690}#))
-              (if (not (list? #{x\ 3694}#))
+            (let ((#{x\ 12817}# #{ls\ 12813}#))
+              (if (not (list? #{x\ 12817}#))
                 (syntax-violation
                   'generate-temporaries
                   "invalid argument"
-                  #{x\ 3694}#)))
-            (map (lambda (#{x\ 3695}#)
-                   (#{wrap\ 329}# (gensym) (quote ((top))) #f))
-                 #{ls\ 3690}#))))
+                  #{x\ 12817}#)))
+            (map (lambda (#{x\ 12818}#)
+                   (#{wrap\ 9483}# (gensym) (quote ((top))) #f))
+                 #{ls\ 12813}#))))
       (set! free-identifier=?
-        (lambda (#{x\ 3699}# #{y\ 3700}#)
+        (lambda (#{x\ 12822}# #{y\ 12823}#)
           (begin
-            (let ((#{x\ 3705}# #{x\ 3699}#))
-              (if (not (#{nonsymbol-id?\ 258}# #{x\ 3705}#))
+            (let ((#{x\ 12828}# #{x\ 12822}#))
+              (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12828}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 3705}#)))
-            (let ((#{x\ 3708}# #{y\ 3700}#))
-              (if (not (#{nonsymbol-id?\ 258}# #{x\ 3708}#))
+                  #{x\ 12828}#)))
+            (let ((#{x\ 12831}# #{y\ 12823}#))
+              (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12831}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 3708}#)))
-            (#{free-id=?\ 319}# #{x\ 3699}# #{y\ 3700}#))))
+                  #{x\ 12831}#)))
+            (#{free-id=?\ 9473}# #{x\ 12822}# #{y\ 12823}#))))
       (set! bound-identifier=?
-        (lambda (#{x\ 3709}# #{y\ 3710}#)
+        (lambda (#{x\ 12832}# #{y\ 12833}#)
           (begin
-            (let ((#{x\ 3715}# #{x\ 3709}#))
-              (if (not (#{nonsymbol-id?\ 258}# #{x\ 3715}#))
+            (let ((#{x\ 12838}# #{x\ 12832}#))
+              (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12838}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 3715}#)))
-            (let ((#{x\ 3718}# #{y\ 3710}#))
-              (if (not (#{nonsymbol-id?\ 258}# #{x\ 3718}#))
+                  #{x\ 12838}#)))
+            (let ((#{x\ 12841}# #{y\ 12833}#))
+              (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12841}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 3718}#)))
-            (#{bound-id=?\ 321}# #{x\ 3709}# #{y\ 3710}#))))
+                  #{x\ 12841}#)))
+            (#{bound-id=?\ 9475}# #{x\ 12832}# #{y\ 12833}#))))
       (set! syntax-violation
-        (lambda (#{who\ 3719}#
-                 #{message\ 3720}#
-                 #{form\ 3721}#
+        (lambda (#{who\ 12842}#
+                 #{message\ 12843}#
+                 #{form\ 12844}#
                  .
-                 #{subform\ 3722}#)
+                 #{subform\ 12845}#)
           (begin
-            (let ((#{x\ 3729}# #{who\ 3719}#))
-              (if (not ((lambda (#{x\ 3730}#)
-                          (let ((#{t\ 3734}# (not #{x\ 3730}#)))
-                            (if #{t\ 3734}#
-                              #{t\ 3734}#
-                              (let ((#{t\ 3737}# (string? #{x\ 3730}#)))
-                                (if #{t\ 3737}#
-                                  #{t\ 3737}#
-                                  (symbol? #{x\ 3730}#))))))
-                        #{x\ 3729}#))
+            (let ((#{x\ 12852}# #{who\ 12842}#))
+              (if (not ((lambda (#{x\ 12853}#)
+                          (let ((#{t\ 12857}# (not #{x\ 12853}#)))
+                            (if #{t\ 12857}#
+                              #{t\ 12857}#
+                              (let ((#{t\ 12860}# (string? #{x\ 12853}#)))
+                                (if #{t\ 12860}#
+                                  #{t\ 12860}#
+                                  (symbol? #{x\ 12853}#))))))
+                        #{x\ 12852}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 3729}#)))
-            (let ((#{x\ 3741}# #{message\ 3720}#))
-              (if (not (string? #{x\ 3741}#))
+                  #{x\ 12852}#)))
+            (let ((#{x\ 12864}# #{message\ 12843}#))
+              (if (not (string? #{x\ 12864}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 3741}#)))
+                  #{x\ 12864}#)))
             (scm-error
               'syntax-error
               'sc-expand
               (string-append
-                (if #{who\ 3719}# "~a: " "")
+                (if #{who\ 12842}# "~a: " "")
                 "~a "
-                (if (null? #{subform\ 3722}#)
+                (if (null? #{subform\ 12845}#)
                   "in ~a"
                   "in subform `~s' of `~s'"))
-              (let ((#{tail\ 3743}#
-                      (cons #{message\ 3720}#
-                            (map (lambda (#{x\ 3744}#)
-                                   (#{strip\ 371}# #{x\ 3744}# (quote (()))))
+              (let ((#{tail\ 12866}#
+                      (cons #{message\ 12843}#
+                            (map (lambda (#{x\ 12867}#)
+                                   (#{strip\ 9525}# #{x\ 12867}# (quote (()))))
                                  (append
-                                   #{subform\ 3722}#
-                                   (list #{form\ 3721}#))))))
-                (if #{who\ 3719}#
-                  (cons #{who\ 3719}# #{tail\ 3743}#)
-                  #{tail\ 3743}#))
+                                   #{subform\ 12845}#
+                                   (list #{form\ 12844}#))))))
+                (if #{who\ 12842}#
+                  (cons #{who\ 12842}# #{tail\ 12866}#)
+                  #{tail\ 12866}#))
               #f))))
-      (letrec ((#{match\ 3760}#
-                 (lambda (#{e\ 3761}#
-                          #{p\ 3762}#
-                          #{w\ 3763}#
-                          #{r\ 3764}#
-                          #{mod\ 3765}#)
-                   (if (not #{r\ 3764}#)
+      (letrec ((#{match\ 12883}#
+                 (lambda (#{e\ 12884}#
+                          #{p\ 12885}#
+                          #{w\ 12886}#
+                          #{r\ 12887}#
+                          #{mod\ 12888}#)
+                   (if (not #{r\ 12887}#)
                      #f
-                     (if (eq? #{p\ 3762}# (quote any))
-                       (cons (#{wrap\ 329}#
-                               #{e\ 3761}#
-                               #{w\ 3763}#
-                               #{mod\ 3765}#)
-                             #{r\ 3764}#)
-                       (if (#{syntax-object?\ 224}# #{e\ 3761}#)
-                         (#{match*\ 3758}#
-                           (#{syntax-object-expression\ 226}# #{e\ 3761}#)
-                           #{p\ 3762}#
-                           (#{join-wraps\ 311}#
-                             #{w\ 3763}#
-                             (#{syntax-object-wrap\ 228}# #{e\ 3761}#))
-                           #{r\ 3764}#
-                           (#{syntax-object-module\ 230}# #{e\ 3761}#))
-                         (#{match*\ 3758}#
-                           #{e\ 3761}#
-                           #{p\ 3762}#
-                           #{w\ 3763}#
-                           #{r\ 3764}#
-                           #{mod\ 3765}#))))))
-               (#{match*\ 3758}#
-                 (lambda (#{e\ 3778}#
-                          #{p\ 3779}#
-                          #{w\ 3780}#
-                          #{r\ 3781}#
-                          #{mod\ 3782}#)
-                   (if (null? #{p\ 3779}#)
-                     (if (null? #{e\ 3778}#) #{r\ 3781}# #f)
-                     (if (pair? #{p\ 3779}#)
-                       (if (pair? #{e\ 3778}#)
-                         (#{match\ 3760}#
-                           (car #{e\ 3778}#)
-                           (car #{p\ 3779}#)
-                           #{w\ 3780}#
-                           (#{match\ 3760}#
-                             (cdr #{e\ 3778}#)
-                             (cdr #{p\ 3779}#)
-                             #{w\ 3780}#
-                             #{r\ 3781}#
-                             #{mod\ 3782}#)
-                           #{mod\ 3782}#)
+                     (if (eq? #{p\ 12885}# (quote any))
+                       (cons (#{wrap\ 9483}#
+                               #{e\ 12884}#
+                               #{w\ 12886}#
+                               #{mod\ 12888}#)
+                             #{r\ 12887}#)
+                       (if (#{syntax-object?\ 9378}# #{e\ 12884}#)
+                         (#{match*\ 12881}#
+                           (#{syntax-object-expression\ 9380}# #{e\ 12884}#)
+                           #{p\ 12885}#
+                           (#{join-wraps\ 9465}#
+                             #{w\ 12886}#
+                             (#{syntax-object-wrap\ 9382}# #{e\ 12884}#))
+                           #{r\ 12887}#
+                           (#{syntax-object-module\ 9384}# #{e\ 12884}#))
+                         (#{match*\ 12881}#
+                           #{e\ 12884}#
+                           #{p\ 12885}#
+                           #{w\ 12886}#
+                           #{r\ 12887}#
+                           #{mod\ 12888}#))))))
+               (#{match*\ 12881}#
+                 (lambda (#{e\ 12901}#
+                          #{p\ 12902}#
+                          #{w\ 12903}#
+                          #{r\ 12904}#
+                          #{mod\ 12905}#)
+                   (if (null? #{p\ 12902}#)
+                     (if (null? #{e\ 12901}#) #{r\ 12904}# #f)
+                     (if (pair? #{p\ 12902}#)
+                       (if (pair? #{e\ 12901}#)
+                         (#{match\ 12883}#
+                           (car #{e\ 12901}#)
+                           (car #{p\ 12902}#)
+                           #{w\ 12903}#
+                           (#{match\ 12883}#
+                             (cdr #{e\ 12901}#)
+                             (cdr #{p\ 12902}#)
+                             #{w\ 12903}#
+                             #{r\ 12904}#
+                             #{mod\ 12905}#)
+                           #{mod\ 12905}#)
                          #f)
-                       (if (eq? #{p\ 3779}# (quote each-any))
-                         (let ((#{l\ 3799}#
-                                 (#{match-each-any\ 3752}#
-                                   #{e\ 3778}#
-                                   #{w\ 3780}#
-                                   #{mod\ 3782}#)))
-                           (if #{l\ 3799}#
-                             (cons #{l\ 3799}# #{r\ 3781}#)
+                       (if (eq? #{p\ 12902}# (quote each-any))
+                         (let ((#{l\ 12922}#
+                                 (#{match-each-any\ 12875}#
+                                   #{e\ 12901}#
+                                   #{w\ 12903}#
+                                   #{mod\ 12905}#)))
+                           (if #{l\ 12922}#
+                             (cons #{l\ 12922}# #{r\ 12904}#)
                              #f))
-                         (let ((#{atom-key\ 3805}# (vector-ref #{p\ 3779}# 0)))
-                           (if (memv #{atom-key\ 3805}# (quote (each)))
-                             (if (null? #{e\ 3778}#)
-                               (#{match-empty\ 3754}#
-                                 (vector-ref #{p\ 3779}# 1)
-                                 #{r\ 3781}#)
-                               (let ((#{l\ 3808}#
-                                       (#{match-each\ 3748}#
-                                         #{e\ 3778}#
-                                         (vector-ref #{p\ 3779}# 1)
-                                         #{w\ 3780}#
-                                         #{mod\ 3782}#)))
-                                 (if #{l\ 3808}#
-                                   (letrec ((#{collect\ 3813}#
-                                              (lambda (#{l\ 3814}#)
-                                                (if (null? (car #{l\ 3814}#))
-                                                  #{r\ 3781}#
-                                                  (cons (map car #{l\ 3814}#)
-                                                        (#{collect\ 3813}#
+                         (let ((#{atom-key\ 12928}#
+                                 (vector-ref #{p\ 12902}# 0)))
+                           (if (memv #{atom-key\ 12928}# (quote (each)))
+                             (if (null? #{e\ 12901}#)
+                               (#{match-empty\ 12877}#
+                                 (vector-ref #{p\ 12902}# 1)
+                                 #{r\ 12904}#)
+                               (let ((#{l\ 12931}#
+                                       (#{match-each\ 12871}#
+                                         #{e\ 12901}#
+                                         (vector-ref #{p\ 12902}# 1)
+                                         #{w\ 12903}#
+                                         #{mod\ 12905}#)))
+                                 (if #{l\ 12931}#
+                                   (letrec ((#{collect\ 12936}#
+                                              (lambda (#{l\ 12937}#)
+                                                (if (null? (car #{l\ 12937}#))
+                                                  #{r\ 12904}#
+                                                  (cons (map car #{l\ 12937}#)
+                                                        (#{collect\ 12936}#
                                                           (map cdr
-                                                               #{l\ 
3814}#)))))))
-                                     (#{collect\ 3813}# #{l\ 3808}#))
+                                                               #{l\ 
12937}#)))))))
+                                     (#{collect\ 12936}# #{l\ 12931}#))
                                    #f)))
-                             (if (memv #{atom-key\ 3805}# (quote (each+)))
+                             (if (memv #{atom-key\ 12928}# (quote (each+)))
                                (call-with-values
                                  (lambda ()
-                                   (#{match-each+\ 3750}#
-                                     #{e\ 3778}#
-                                     (vector-ref #{p\ 3779}# 1)
-                                     (vector-ref #{p\ 3779}# 2)
-                                     (vector-ref #{p\ 3779}# 3)
-                                     #{w\ 3780}#
-                                     #{r\ 3781}#
-                                     #{mod\ 3782}#))
-                                 (lambda (#{xr*\ 3816}#
-                                          #{y-pat\ 3817}#
-                                          #{r\ 3818}#)
-                                   (if #{r\ 3818}#
-                                     (if (null? #{y-pat\ 3817}#)
-                                       (if (null? #{xr*\ 3816}#)
-                                         (#{match-empty\ 3754}#
-                                           (vector-ref #{p\ 3779}# 1)
-                                           #{r\ 3818}#)
-                                         (#{combine\ 3756}#
-                                           #{xr*\ 3816}#
-                                           #{r\ 3818}#))
+                                   (#{match-each+\ 12873}#
+                                     #{e\ 12901}#
+                                     (vector-ref #{p\ 12902}# 1)
+                                     (vector-ref #{p\ 12902}# 2)
+                                     (vector-ref #{p\ 12902}# 3)
+                                     #{w\ 12903}#
+                                     #{r\ 12904}#
+                                     #{mod\ 12905}#))
+                                 (lambda (#{xr*\ 12939}#
+                                          #{y-pat\ 12940}#
+                                          #{r\ 12941}#)
+                                   (if #{r\ 12941}#
+                                     (if (null? #{y-pat\ 12940}#)
+                                       (if (null? #{xr*\ 12939}#)
+                                         (#{match-empty\ 12877}#
+                                           (vector-ref #{p\ 12902}# 1)
+                                           #{r\ 12941}#)
+                                         (#{combine\ 12879}#
+                                           #{xr*\ 12939}#
+                                           #{r\ 12941}#))
                                        #f)
                                      #f)))
-                               (if (memv #{atom-key\ 3805}# (quote (free-id)))
-                                 (if (#{id?\ 260}# #{e\ 3778}#)
-                                   (if (#{free-id=?\ 319}#
-                                         (#{wrap\ 329}#
-                                           #{e\ 3778}#
-                                           #{w\ 3780}#
-                                           #{mod\ 3782}#)
-                                         (vector-ref #{p\ 3779}# 1))
-                                     #{r\ 3781}#
+                               (if (memv #{atom-key\ 12928}# (quote (free-id)))
+                                 (if (#{id?\ 9414}# #{e\ 12901}#)
+                                   (if (#{free-id=?\ 9473}#
+                                         (#{wrap\ 9483}#
+                                           #{e\ 12901}#
+                                           #{w\ 12903}#
+                                           #{mod\ 12905}#)
+                                         (vector-ref #{p\ 12902}# 1))
+                                     #{r\ 12904}#
                                      #f)
                                    #f)
-                                 (if (memv #{atom-key\ 3805}# (quote (atom)))
+                                 (if (memv #{atom-key\ 12928}# (quote (atom)))
                                    (if (equal?
-                                         (vector-ref #{p\ 3779}# 1)
-                                         (#{strip\ 371}#
-                                           #{e\ 3778}#
-                                           #{w\ 3780}#))
-                                     #{r\ 3781}#
+                                         (vector-ref #{p\ 12902}# 1)
+                                         (#{strip\ 9525}#
+                                           #{e\ 12901}#
+                                           #{w\ 12903}#))
+                                     #{r\ 12904}#
                                      #f)
-                                   (if (memv #{atom-key\ 3805}#
+                                   (if (memv #{atom-key\ 12928}#
                                              '(vector))
-                                     (if (vector? #{e\ 3778}#)
-                                       (#{match\ 3760}#
-                                         (vector->list #{e\ 3778}#)
-                                         (vector-ref #{p\ 3779}# 1)
-                                         #{w\ 3780}#
-                                         #{r\ 3781}#
-                                         #{mod\ 3782}#)
+                                     (if (vector? #{e\ 12901}#)
+                                       (#{match\ 12883}#
+                                         (vector->list #{e\ 12901}#)
+                                         (vector-ref #{p\ 12902}# 1)
+                                         #{w\ 12903}#
+                                         #{r\ 12904}#
+                                         #{mod\ 12905}#)
                                        #f))))))))))))
-               (#{combine\ 3756}#
-                 (lambda (#{r*\ 3835}# #{r\ 3836}#)
-                   (if (null? (car #{r*\ 3835}#))
-                     #{r\ 3836}#
-                     (cons (map car #{r*\ 3835}#)
-                           (#{combine\ 3756}#
-                             (map cdr #{r*\ 3835}#)
-                             #{r\ 3836}#)))))
-               (#{match-empty\ 3754}#
-                 (lambda (#{p\ 3839}# #{r\ 3840}#)
-                   (if (null? #{p\ 3839}#)
-                     #{r\ 3840}#
-                     (if (eq? #{p\ 3839}# (quote any))
-                       (cons (quote ()) #{r\ 3840}#)
-                       (if (pair? #{p\ 3839}#)
-                         (#{match-empty\ 3754}#
-                           (car #{p\ 3839}#)
-                           (#{match-empty\ 3754}#
-                             (cdr #{p\ 3839}#)
-                             #{r\ 3840}#))
-                         (if (eq? #{p\ 3839}# (quote each-any))
-                           (cons (quote ()) #{r\ 3840}#)
-                           (let ((#{atom-key\ 3854}#
-                                   (vector-ref #{p\ 3839}# 0)))
-                             (if (memv #{atom-key\ 3854}# (quote (each)))
-                               (#{match-empty\ 3754}#
-                                 (vector-ref #{p\ 3839}# 1)
-                                 #{r\ 3840}#)
-                               (if (memv #{atom-key\ 3854}# (quote (each+)))
-                                 (#{match-empty\ 3754}#
-                                   (vector-ref #{p\ 3839}# 1)
-                                   (#{match-empty\ 3754}#
-                                     (reverse (vector-ref #{p\ 3839}# 2))
-                                     (#{match-empty\ 3754}#
-                                       (vector-ref #{p\ 3839}# 3)
-                                       #{r\ 3840}#)))
-                                 (if (memv #{atom-key\ 3854}#
+               (#{combine\ 12879}#
+                 (lambda (#{r*\ 12958}# #{r\ 12959}#)
+                   (if (null? (car #{r*\ 12958}#))
+                     #{r\ 12959}#
+                     (cons (map car #{r*\ 12958}#)
+                           (#{combine\ 12879}#
+                             (map cdr #{r*\ 12958}#)
+                             #{r\ 12959}#)))))
+               (#{match-empty\ 12877}#
+                 (lambda (#{p\ 12962}# #{r\ 12963}#)
+                   (if (null? #{p\ 12962}#)
+                     #{r\ 12963}#
+                     (if (eq? #{p\ 12962}# (quote any))
+                       (cons (quote ()) #{r\ 12963}#)
+                       (if (pair? #{p\ 12962}#)
+                         (#{match-empty\ 12877}#
+                           (car #{p\ 12962}#)
+                           (#{match-empty\ 12877}#
+                             (cdr #{p\ 12962}#)
+                             #{r\ 12963}#))
+                         (if (eq? #{p\ 12962}# (quote each-any))
+                           (cons (quote ()) #{r\ 12963}#)
+                           (let ((#{atom-key\ 12977}#
+                                   (vector-ref #{p\ 12962}# 0)))
+                             (if (memv #{atom-key\ 12977}# (quote (each)))
+                               (#{match-empty\ 12877}#
+                                 (vector-ref #{p\ 12962}# 1)
+                                 #{r\ 12963}#)
+                               (if (memv #{atom-key\ 12977}# (quote (each+)))
+                                 (#{match-empty\ 12877}#
+                                   (vector-ref #{p\ 12962}# 1)
+                                   (#{match-empty\ 12877}#
+                                     (reverse (vector-ref #{p\ 12962}# 2))
+                                     (#{match-empty\ 12877}#
+                                       (vector-ref #{p\ 12962}# 3)
+                                       #{r\ 12963}#)))
+                                 (if (memv #{atom-key\ 12977}#
                                            '(free-id atom))
-                                   #{r\ 3840}#
-                                   (if (memv #{atom-key\ 3854}#
+                                   #{r\ 12963}#
+                                   (if (memv #{atom-key\ 12977}#
                                              '(vector))
-                                     (#{match-empty\ 3754}#
-                                       (vector-ref #{p\ 3839}# 1)
-                                       #{r\ 3840}#))))))))))))
-               (#{match-each-any\ 3752}#
-                 (lambda (#{e\ 3859}# #{w\ 3860}# #{mod\ 3861}#)
-                   (if (pair? #{e\ 3859}#)
-                     (let ((#{l\ 3868}#
-                             (#{match-each-any\ 3752}#
-                               (cdr #{e\ 3859}#)
-                               #{w\ 3860}#
-                               #{mod\ 3861}#)))
-                       (if #{l\ 3868}#
-                         (cons (#{wrap\ 329}#
-                                 (car #{e\ 3859}#)
-                                 #{w\ 3860}#
-                                 #{mod\ 3861}#)
-                               #{l\ 3868}#)
+                                     (#{match-empty\ 12877}#
+                                       (vector-ref #{p\ 12962}# 1)
+                                       #{r\ 12963}#))))))))))))
+               (#{match-each-any\ 12875}#
+                 (lambda (#{e\ 12982}# #{w\ 12983}# #{mod\ 12984}#)
+                   (if (pair? #{e\ 12982}#)
+                     (let ((#{l\ 12991}#
+                             (#{match-each-any\ 12875}#
+                               (cdr #{e\ 12982}#)
+                               #{w\ 12983}#
+                               #{mod\ 12984}#)))
+                       (if #{l\ 12991}#
+                         (cons (#{wrap\ 9483}#
+                                 (car #{e\ 12982}#)
+                                 #{w\ 12983}#
+                                 #{mod\ 12984}#)
+                               #{l\ 12991}#)
                          #f))
-                     (if (null? #{e\ 3859}#)
+                     (if (null? #{e\ 12982}#)
                        '()
-                       (if (#{syntax-object?\ 224}# #{e\ 3859}#)
-                         (#{match-each-any\ 3752}#
-                           (#{syntax-object-expression\ 226}# #{e\ 3859}#)
-                           (#{join-wraps\ 311}#
-                             #{w\ 3860}#
-                             (#{syntax-object-wrap\ 228}# #{e\ 3859}#))
-                           #{mod\ 3861}#)
+                       (if (#{syntax-object?\ 9378}# #{e\ 12982}#)
+                         (#{match-each-any\ 12875}#
+                           (#{syntax-object-expression\ 9380}# #{e\ 12982}#)
+                           (#{join-wraps\ 9465}#
+                             #{w\ 12983}#
+                             (#{syntax-object-wrap\ 9382}# #{e\ 12982}#))
+                           #{mod\ 12984}#)
                          #f)))))
-               (#{match-each+\ 3750}#
-                 (lambda (#{e\ 3876}#
-                          #{x-pat\ 3877}#
-                          #{y-pat\ 3878}#
-                          #{z-pat\ 3879}#
-                          #{w\ 3880}#
-                          #{r\ 3881}#
-                          #{mod\ 3882}#)
-                   (letrec ((#{f\ 3893}#
-                              (lambda (#{e\ 3894}# #{w\ 3895}#)
-                                (if (pair? #{e\ 3894}#)
+               (#{match-each+\ 12873}#
+                 (lambda (#{e\ 12999}#
+                          #{x-pat\ 13000}#
+                          #{y-pat\ 13001}#
+                          #{z-pat\ 13002}#
+                          #{w\ 13003}#
+                          #{r\ 13004}#
+                          #{mod\ 13005}#)
+                   (letrec ((#{f\ 13016}#
+                              (lambda (#{e\ 13017}# #{w\ 13018}#)
+                                (if (pair? #{e\ 13017}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{f\ 3893}#
-                                        (cdr #{e\ 3894}#)
-                                        #{w\ 3895}#))
-                                    (lambda (#{xr*\ 3898}#
-                                             #{y-pat\ 3899}#
-                                             #{r\ 3900}#)
-                                      (if #{r\ 3900}#
-                                        (if (null? #{y-pat\ 3899}#)
-                                          (let ((#{xr\ 3905}#
-                                                  (#{match\ 3760}#
-                                                    (car #{e\ 3894}#)
-                                                    #{x-pat\ 3877}#
-                                                    #{w\ 3895}#
+                                      (#{f\ 13016}#
+                                        (cdr #{e\ 13017}#)
+                                        #{w\ 13018}#))
+                                    (lambda (#{xr*\ 13021}#
+                                             #{y-pat\ 13022}#
+                                             #{r\ 13023}#)
+                                      (if #{r\ 13023}#
+                                        (if (null? #{y-pat\ 13022}#)
+                                          (let ((#{xr\ 13028}#
+                                                  (#{match\ 12883}#
+                                                    (car #{e\ 13017}#)
+                                                    #{x-pat\ 13000}#
+                                                    #{w\ 13018}#
                                                     '()
-                                                    #{mod\ 3882}#)))
-                                            (if #{xr\ 3905}#
+                                                    #{mod\ 13005}#)))
+                                            (if #{xr\ 13028}#
                                               (values
-                                                (cons #{xr\ 3905}#
-                                                      #{xr*\ 3898}#)
-                                                #{y-pat\ 3899}#
-                                                #{r\ 3900}#)
+                                                (cons #{xr\ 13028}#
+                                                      #{xr*\ 13021}#)
+                                                #{y-pat\ 13022}#
+                                                #{r\ 13023}#)
                                               (values #f #f #f)))
                                           (values
                                             '()
-                                            (cdr #{y-pat\ 3899}#)
-                                            (#{match\ 3760}#
-                                              (car #{e\ 3894}#)
-                                              (car #{y-pat\ 3899}#)
-                                              #{w\ 3895}#
-                                              #{r\ 3900}#
-                                              #{mod\ 3882}#)))
+                                            (cdr #{y-pat\ 13022}#)
+                                            (#{match\ 12883}#
+                                              (car #{e\ 13017}#)
+                                              (car #{y-pat\ 13022}#)
+                                              #{w\ 13018}#
+                                              #{r\ 13023}#
+                                              #{mod\ 13005}#)))
                                         (values #f #f #f))))
-                                  (if (#{syntax-object?\ 224}# #{e\ 3894}#)
-                                    (#{f\ 3893}#
-                                      (#{syntax-object-expression\ 226}#
-                                        #{e\ 3894}#)
-                                      (#{join-wraps\ 311}#
-                                        #{w\ 3895}#
-                                        #{e\ 3894}#))
+                                  (if (#{syntax-object?\ 9378}# #{e\ 13017}#)
+                                    (#{f\ 13016}#
+                                      (#{syntax-object-expression\ 9380}#
+                                        #{e\ 13017}#)
+                                      (#{join-wraps\ 9465}#
+                                        #{w\ 13018}#
+                                        #{e\ 13017}#))
                                     (values
                                       '()
-                                      #{y-pat\ 3878}#
-                                      (#{match\ 3760}#
-                                        #{e\ 3894}#
-                                        #{z-pat\ 3879}#
-                                        #{w\ 3895}#
-                                        #{r\ 3881}#
-                                        #{mod\ 3882}#)))))))
-                     (#{f\ 3893}# #{e\ 3876}# #{w\ 3880}#))))
-               (#{match-each\ 3748}#
-                 (lambda (#{e\ 3909}#
-                          #{p\ 3910}#
-                          #{w\ 3911}#
-                          #{mod\ 3912}#)
-                   (if (pair? #{e\ 3909}#)
-                     (let ((#{first\ 3920}#
-                             (#{match\ 3760}#
-                               (car #{e\ 3909}#)
-                               #{p\ 3910}#
-                               #{w\ 3911}#
+                                      #{y-pat\ 13001}#
+                                      (#{match\ 12883}#
+                                        #{e\ 13017}#
+                                        #{z-pat\ 13002}#
+                                        #{w\ 13018}#
+                                        #{r\ 13004}#
+                                        #{mod\ 13005}#)))))))
+                     (#{f\ 13016}# #{e\ 12999}# #{w\ 13003}#))))
+               (#{match-each\ 12871}#
+                 (lambda (#{e\ 13032}#
+                          #{p\ 13033}#
+                          #{w\ 13034}#
+                          #{mod\ 13035}#)
+                   (if (pair? #{e\ 13032}#)
+                     (let ((#{first\ 13043}#
+                             (#{match\ 12883}#
+                               (car #{e\ 13032}#)
+                               #{p\ 13033}#
+                               #{w\ 13034}#
                                '()
-                               #{mod\ 3912}#)))
-                       (if #{first\ 3920}#
-                         (let ((#{rest\ 3924}#
-                                 (#{match-each\ 3748}#
-                                   (cdr #{e\ 3909}#)
-                                   #{p\ 3910}#
-                                   #{w\ 3911}#
-                                   #{mod\ 3912}#)))
-                           (if #{rest\ 3924}#
-                             (cons #{first\ 3920}# #{rest\ 3924}#)
+                               #{mod\ 13035}#)))
+                       (if #{first\ 13043}#
+                         (let ((#{rest\ 13047}#
+                                 (#{match-each\ 12871}#
+                                   (cdr #{e\ 13032}#)
+                                   #{p\ 13033}#
+                                   #{w\ 13034}#
+                                   #{mod\ 13035}#)))
+                           (if #{rest\ 13047}#
+                             (cons #{first\ 13043}# #{rest\ 13047}#)
                              #f))
                          #f))
-                     (if (null? #{e\ 3909}#)
+                     (if (null? #{e\ 13032}#)
                        '()
-                       (if (#{syntax-object?\ 224}# #{e\ 3909}#)
-                         (#{match-each\ 3748}#
-                           (#{syntax-object-expression\ 226}# #{e\ 3909}#)
-                           #{p\ 3910}#
-                           (#{join-wraps\ 311}#
-                             #{w\ 3911}#
-                             (#{syntax-object-wrap\ 228}# #{e\ 3909}#))
-                           (#{syntax-object-module\ 230}# #{e\ 3909}#))
+                       (if (#{syntax-object?\ 9378}# #{e\ 13032}#)
+                         (#{match-each\ 12871}#
+                           (#{syntax-object-expression\ 9380}# #{e\ 13032}#)
+                           #{p\ 13033}#
+                           (#{join-wraps\ 9465}#
+                             #{w\ 13034}#
+                             (#{syntax-object-wrap\ 9382}# #{e\ 13032}#))
+                           (#{syntax-object-module\ 9384}# #{e\ 13032}#))
                          #f))))))
         (set! $sc-dispatch
-          (lambda (#{e\ 3932}# #{p\ 3933}#)
-            (if (eq? #{p\ 3933}# (quote any))
-              (list #{e\ 3932}#)
-              (if (#{syntax-object?\ 224}# #{e\ 3932}#)
-                (#{match*\ 3758}#
-                  (#{syntax-object-expression\ 226}# #{e\ 3932}#)
-                  #{p\ 3933}#
-                  (#{syntax-object-wrap\ 228}# #{e\ 3932}#)
+          (lambda (#{e\ 13055}# #{p\ 13056}#)
+            (if (eq? #{p\ 13056}# (quote any))
+              (list #{e\ 13055}#)
+              (if (#{syntax-object?\ 9378}# #{e\ 13055}#)
+                (#{match*\ 12881}#
+                  (#{syntax-object-expression\ 9380}# #{e\ 13055}#)
+                  #{p\ 13056}#
+                  (#{syntax-object-wrap\ 9382}# #{e\ 13055}#)
                   '()
-                  (#{syntax-object-module\ 230}# #{e\ 3932}#))
-                (#{match*\ 3758}#
-                  #{e\ 3932}#
-                  #{p\ 3933}#
+                  (#{syntax-object-module\ 9384}# #{e\ 13055}#))
+                (#{match*\ 12881}#
+                  #{e\ 13055}#
+                  #{p\ 13056}#
                   '(())
                   '()
                   #f)))))))))
 
 (define with-syntax
-  (make-syncase-macro
+  (make-syntax-transformer
+    'with-syntax
     'macro
-    (cons (lambda (#{x\ 3942}#)
-            ((lambda (#{tmp\ 3944}#)
-               ((lambda (#{tmp\ 3945}#)
-                  (if #{tmp\ 3945}#
-                    (apply (lambda (#{_\ 3949}# #{e1\ 3950}# #{e2\ 3951}#)
+    (cons (lambda (#{x\ 13065}#)
+            ((lambda (#{tmp\ 13067}#)
+               ((lambda (#{tmp\ 13068}#)
+                  (if #{tmp\ 13068}#
+                    (apply (lambda (#{_\ 13072}# #{e1\ 13073}# #{e2\ 13074}#)
                              (cons '#(syntax-object
                                       begin
                                       ((top)
                                        #(ribcage
                                          #(_ e1 e2)
                                          #((top) (top) (top))
-                                         #("i3946" "i3947" "i3948"))
+                                         #("i13069" "i13070" "i13071"))
                                        #(ribcage () () ())
-                                       #(ribcage #(x) #((top)) #("i3943")))
+                                       #(ribcage #(x) #((top)) #("i13066")))
                                       (hygiene guile))
-                                   (cons #{e1\ 3950}# #{e2\ 3951}#)))
-                           #{tmp\ 3945}#)
-                    ((lambda (#{tmp\ 3953}#)
-                       (if #{tmp\ 3953}#
-                         (apply (lambda (#{_\ 3959}#
-                                         #{out\ 3960}#
-                                         #{in\ 3961}#
-                                         #{e1\ 3962}#
-                                         #{e2\ 3963}#)
+                                   (cons #{e1\ 13073}# #{e2\ 13074}#)))
+                           #{tmp\ 13068}#)
+                    ((lambda (#{tmp\ 13076}#)
+                       (if #{tmp\ 13076}#
+                         (apply (lambda (#{_\ 13082}#
+                                         #{out\ 13083}#
+                                         #{in\ 13084}#
+                                         #{e1\ 13085}#
+                                         #{e2\ 13086}#)
                                   (list '#(syntax-object
                                            syntax-case
                                            ((top)
                                             #(ribcage
                                               #(_ out in e1 e2)
                                               #((top) (top) (top) (top) (top))
-                                              #("i3954"
-                                                "i3955"
-                                                "i3956"
-                                                "i3957"
-                                                "i3958"))
+                                              #("i13077"
+                                                "i13078"
+                                                "i13079"
+                                                "i13080"
+                                                "i13081"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
-                                              #("i3943")))
+                                              #("i13066")))
                                            (hygiene guile))
-                                        #{in\ 3961}#
+                                        #{in\ 13084}#
                                         '()
-                                        (list #{out\ 3960}#
+                                        (list #{out\ 13083}#
                                               (cons '#(syntax-object
                                                        begin
                                                        ((top)
@@ -11612,27 +11649,27 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                          #("i3954"
-                                                            "i3955"
-                                                            "i3956"
-                                                            "i3957"
-                                                            "i3958"))
+                                                          #("i13077"
+                                                            "i13078"
+                                                            "i13079"
+                                                            "i13080"
+                                                            "i13081"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i3943")))
+                                                          #("i13066")))
                                                        (hygiene guile))
-                                                    (cons #{e1\ 3962}#
-                                                          #{e2\ 3963}#)))))
-                                #{tmp\ 3953}#)
-                         ((lambda (#{tmp\ 3965}#)
-                            (if #{tmp\ 3965}#
-                              (apply (lambda (#{_\ 3971}#
-                                              #{out\ 3972}#
-                                              #{in\ 3973}#
-                                              #{e1\ 3974}#
-                                              #{e2\ 3975}#)
+                                                    (cons #{e1\ 13085}#
+                                                          #{e2\ 13086}#)))))
+                                #{tmp\ 13076}#)
+                         ((lambda (#{tmp\ 13088}#)
+                            (if #{tmp\ 13088}#
+                              (apply (lambda (#{_\ 13094}#
+                                              #{out\ 13095}#
+                                              #{in\ 13096}#
+                                              #{e1\ 13097}#
+                                              #{e2\ 13098}#)
                                        (list '#(syntax-object
                                                 syntax-case
                                                 ((top)
@@ -11643,16 +11680,16 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                   #("i3966"
-                                                     "i3967"
-                                                     "i3968"
-                                                     "i3969"
-                                                     "i3970"))
+                                                   #("i13089"
+                                                     "i13090"
+                                                     "i13091"
+                                                     "i13092"
+                                                     "i13093"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
-                                                   #("i3943")))
+                                                   #("i13066")))
                                                 (hygiene guile))
                                              (cons '#(syntax-object
                                                       list
@@ -11664,20 +11701,20 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                         #("i3966"
-                                                           "i3967"
-                                                           "i3968"
-                                                           "i3969"
-                                                           "i3970"))
+                                                         #("i13089"
+                                                           "i13090"
+                                                           "i13091"
+                                                           "i13092"
+                                                           "i13093"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
-                                                         #("i3943")))
+                                                         #("i13066")))
                                                       (hygiene guile))
-                                                   #{in\ 3973}#)
+                                                   #{in\ 13096}#)
                                              '()
-                                             (list #{out\ 3972}#
+                                             (list #{out\ 13095}#
                                                    (cons '#(syntax-object
                                                             begin
                                                             ((top)
@@ -11692,11 +11729,11 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                               #("i3966"
-                                                                 "i3967"
-                                                                 "i3968"
-                                                                 "i3969"
-                                                                 "i3970"))
+                                                               #("i13089"
+                                                                 "i13090"
+                                                                 "i13091"
+                                                                 "i13092"
+                                                                 "i13093"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -11704,52 +11741,53 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i3943")))
+                                                               #("i13066")))
                                                             (hygiene guile))
-                                                         (cons #{e1\ 3974}#
-                                                               #{e2\ 
3975}#)))))
-                                     #{tmp\ 3965}#)
+                                                         (cons #{e1\ 13097}#
+                                                               #{e2\ 
13098}#)))))
+                                     #{tmp\ 13088}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 3944}#)))
+                                #{tmp\ 13067}#)))
                           ($sc-dispatch
-                            #{tmp\ 3944}#
+                            #{tmp\ 13067}#
                             '(any #(each (any any)) any . each-any)))))
                      ($sc-dispatch
-                       #{tmp\ 3944}#
+                       #{tmp\ 13067}#
                        '(any ((any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 3944}#
+                  #{tmp\ 13067}#
                   '(any () any . each-any))))
-             #{x\ 3942}#))
+             #{x\ 13065}#))
           (module-name (current-module)))))
 
 (define syntax-rules
-  (make-syncase-macro
+  (make-syntax-transformer
+    'syntax-rules
     'macro
-    (cons (lambda (#{x\ 3979}#)
-            ((lambda (#{tmp\ 3981}#)
-               ((lambda (#{tmp\ 3982}#)
-                  (if #{tmp\ 3982}#
-                    (apply (lambda (#{_\ 3988}#
-                                    #{k\ 3989}#
-                                    #{keyword\ 3990}#
-                                    #{pattern\ 3991}#
-                                    #{template\ 3992}#)
+    (cons (lambda (#{x\ 13102}#)
+            ((lambda (#{tmp\ 13104}#)
+               ((lambda (#{tmp\ 13105}#)
+                  (if #{tmp\ 13105}#
+                    (apply (lambda (#{_\ 13111}#
+                                    #{k\ 13112}#
+                                    #{keyword\ 13113}#
+                                    #{pattern\ 13114}#
+                                    #{template\ 13115}#)
                              (list '#(syntax-object
                                       lambda
                                       ((top)
                                        #(ribcage
                                          #(_ k keyword pattern template)
                                          #((top) (top) (top) (top) (top))
-                                         #("i3983"
-                                           "i3984"
-                                           "i3985"
-                                           "i3986"
-                                           "i3987"))
+                                         #("i13106"
+                                           "i13107"
+                                           "i13108"
+                                           "i13109"
+                                           "i13110"))
                                        #(ribcage () () ())
-                                       #(ribcage #(x) #((top)) #("i3980")))
+                                       #(ribcage #(x) #((top)) #("i13103")))
                                       (hygiene guile))
                                    '(#(syntax-object
                                        x
@@ -11757,13 +11795,13 @@
                                         #(ribcage
                                           #(_ k keyword pattern template)
                                           #((top) (top) (top) (top) (top))
-                                          #("i3983"
-                                            "i3984"
-                                            "i3985"
-                                            "i3986"
-                                            "i3987"))
+                                          #("i13106"
+                                            "i13107"
+                                            "i13108"
+                                            "i13109"
+                                            "i13110"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i3980")))
+                                        #(ribcage #(x) #((top)) #("i13103")))
                                        (hygiene guile)))
                                    (cons '#(syntax-object
                                             syntax-case
@@ -11771,16 +11809,16 @@
                                              #(ribcage
                                                #(_ k keyword pattern template)
                                                #((top) (top) (top) (top) (top))
-                                               #("i3983"
-                                                 "i3984"
-                                                 "i3985"
-                                                 "i3986"
-                                                 "i3987"))
+                                               #("i13106"
+                                                 "i13107"
+                                                 "i13108"
+                                                 "i13109"
+                                                 "i13110"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
-                                               #("i3980")))
+                                               #("i13103")))
                                             (hygiene guile))
                                          (cons '#(syntax-object
                                                   x
@@ -11796,20 +11834,20 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                     #("i3983"
-                                                       "i3984"
-                                                       "i3985"
-                                                       "i3986"
-                                                       "i3987"))
+                                                     #("i13106"
+                                                       "i13107"
+                                                       "i13108"
+                                                       "i13109"
+                                                       "i13110"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i3980")))
+                                                     #("i13103")))
                                                   (hygiene guile))
-                                               (cons #{k\ 3989}#
-                                                     (map (lambda (#{tmp\ 
3995}#
-                                                                   #{tmp\ 
3994}#)
+                                               (cons #{k\ 13112}#
+                                                     (map (lambda (#{tmp\ 
13118}#
+                                                                   #{tmp\ 
13117}#)
                                                             (list (cons 
'#(syntax-object
                                                                            
dummy
                                                                            
((top)
@@ -11824,11 +11862,11 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                              
#("i3983"
-                                                                               
 "i3984"
-                                                                               
 "i3985"
-                                                                               
 "i3986"
-                                                                               
 "i3987"))
+                                                                              
#("i13106"
+                                                                               
 "i13107"
+                                                                               
 "i13108"
+                                                                               
 "i13109"
+                                                                               
 "i13110"))
                                                                             
#(ribcage
                                                                               
()
                                                                               
()
@@ -11836,10 +11874,10 @@
                                                                             
#(ribcage
                                                                               
#(x)
                                                                               
#((top))
-                                                                              
#("i3980")))
+                                                                              
#("i13103")))
                                                                            
(hygiene
                                                                              
guile))
-                                                                        #{tmp\ 
3994}#)
+                                                                        #{tmp\ 
13117}#)
                                                                   (list 
'#(syntax-object
                                                                            
syntax
                                                                            
((top)
@@ -11854,11 +11892,11 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                              
#("i3983"
-                                                                               
 "i3984"
-                                                                               
 "i3985"
-                                                                               
 "i3986"
-                                                                               
 "i3987"))
+                                                                              
#("i13106"
+                                                                               
 "i13107"
+                                                                               
 "i13108"
+                                                                               
 "i13109"
+                                                                               
 "i13110"))
                                                                             
#(ribcage
                                                                               
()
                                                                               
()
@@ -11866,47 +11904,47 @@
                                                                             
#(ribcage
                                                                               
#(x)
                                                                               
#((top))
-                                                                              
#("i3980")))
+                                                                              
#("i13103")))
                                                                            
(hygiene
                                                                              
guile))
-                                                                        #{tmp\ 
3995}#)))
-                                                          #{template\ 3992}#
-                                                          #{pattern\ 
3991}#))))))
-                           #{tmp\ 3982}#)
+                                                                        #{tmp\ 
13118}#)))
+                                                          #{template\ 13115}#
+                                                          #{pattern\ 
13114}#))))))
+                           #{tmp\ 13105}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 3981}#)))
+                      #{tmp\ 13104}#)))
                 ($sc-dispatch
-                  #{tmp\ 3981}#
+                  #{tmp\ 13104}#
                   '(any each-any . #(each ((any . any) any))))))
-             #{x\ 3979}#))
+             #{x\ 13102}#))
           (module-name (current-module)))))
 
 (define let*
-  (make-extended-syncase-macro
-    (module-ref (current-module) (quote let*))
+  (make-syntax-transformer
+    'let*
     'macro
-    (cons (lambda (#{x\ 3996}#)
-            ((lambda (#{tmp\ 3998}#)
-               ((lambda (#{tmp\ 3999}#)
-                  (if (if #{tmp\ 3999}#
-                        (apply (lambda (#{let*\ 4005}#
-                                        #{x\ 4006}#
-                                        #{v\ 4007}#
-                                        #{e1\ 4008}#
-                                        #{e2\ 4009}#)
-                                 (and-map identifier? #{x\ 4006}#))
-                               #{tmp\ 3999}#)
+    (cons (lambda (#{x\ 13119}#)
+            ((lambda (#{tmp\ 13121}#)
+               ((lambda (#{tmp\ 13122}#)
+                  (if (if #{tmp\ 13122}#
+                        (apply (lambda (#{let*\ 13128}#
+                                        #{x\ 13129}#
+                                        #{v\ 13130}#
+                                        #{e1\ 13131}#
+                                        #{e2\ 13132}#)
+                                 (and-map identifier? #{x\ 13129}#))
+                               #{tmp\ 13122}#)
                         #f)
-                    (apply (lambda (#{let*\ 4016}#
-                                    #{x\ 4017}#
-                                    #{v\ 4018}#
-                                    #{e1\ 4019}#
-                                    #{e2\ 4020}#)
-                             (letrec ((#{f\ 4023}#
-                                        (lambda (#{bindings\ 4024}#)
-                                          (if (null? #{bindings\ 4024}#)
+                    (apply (lambda (#{let*\ 13139}#
+                                    #{x\ 13140}#
+                                    #{v\ 13141}#
+                                    #{e1\ 13142}#
+                                    #{e2\ 13143}#)
+                             (letrec ((#{f\ 13146}#
+                                        (lambda (#{bindings\ 13147}#)
+                                          (if (null? #{bindings\ 13147}#)
                                             (cons '#(syntax-object
                                                      let
                                                      ((top)
@@ -11914,7 +11952,7 @@
                                                       #(ribcage
                                                         #(f bindings)
                                                         #((top) (top))
-                                                        #("i4021" "i4022"))
+                                                        #("i13144" "i13145"))
                                                       #(ribcage
                                                         #(let* x v e1 e2)
                                                         #((top)
@@ -11922,25 +11960,25 @@
                                                           (top)
                                                           (top)
                                                           (top))
-                                                        #("i4011"
-                                                          "i4012"
-                                                          "i4013"
-                                                          "i4014"
-                                                          "i4015"))
+                                                        #("i13134"
+                                                          "i13135"
+                                                          "i13136"
+                                                          "i13137"
+                                                          "i13138"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i3997")))
+                                                        #("i13120")))
                                                      (hygiene guile))
                                                   (cons '()
-                                                        (cons #{e1\ 4019}#
-                                                              #{e2\ 4020}#)))
-                                            ((lambda (#{tmp\ 4029}#)
-                                               ((lambda (#{tmp\ 4030}#)
-                                                  (if #{tmp\ 4030}#
-                                                    (apply (lambda (#{body\ 
4033}#
-                                                                    #{binding\ 
4034}#)
+                                                        (cons #{e1\ 13142}#
+                                                              #{e2\ 13143}#)))
+                                            ((lambda (#{tmp\ 13152}#)
+                                               ((lambda (#{tmp\ 13153}#)
+                                                  (if #{tmp\ 13153}#
+                                                    (apply (lambda (#{body\ 
13156}#
+                                                                    #{binding\ 
13157}#)
                                                              (list 
'#(syntax-object
                                                                       let
                                                                       ((top)
@@ -11949,8 +11987,8 @@
                                                                            
binding)
                                                                          
#((top)
                                                                            
(top))
-                                                                         
#("i4031"
-                                                                           
"i4032"))
+                                                                         
#("i13154"
+                                                                           
"i13155"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -11960,8 +11998,8 @@
                                                                            
bindings)
                                                                          
#((top)
                                                                            
(top))
-                                                                         
#("i4021"
-                                                                           
"i4022"))
+                                                                         
#("i13144"
+                                                                           
"i13145"))
                                                                        
#(ribcage
                                                                          #(let*
                                                                            x
@@ -11973,11 +12011,11 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i4011"
-                                                                           
"i4012"
-                                                                           
"i4013"
-                                                                           
"i4014"
-                                                                           
"i4015"))
+                                                                         
#("i13134"
+                                                                           
"i13135"
+                                                                           
"i13136"
+                                                                           
"i13137"
+                                                                           
"i13138"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -11985,56 +12023,57 @@
                                                                        
#(ribcage
                                                                          #(x)
                                                                          
#((top))
-                                                                         
#("i3997")))
+                                                                         
#("i13120")))
                                                                       (hygiene
                                                                         guile))
-                                                                   (list 
#{binding\ 4034}#)
-                                                                   #{body\ 
4033}#))
-                                                           #{tmp\ 4030}#)
+                                                                   (list 
#{binding\ 13157}#)
+                                                                   #{body\ 
13156}#))
+                                                           #{tmp\ 13153}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression 
failed to match any pattern"
-                                                      #{tmp\ 4029}#)))
+                                                      #{tmp\ 13152}#)))
                                                 ($sc-dispatch
-                                                  #{tmp\ 4029}#
+                                                  #{tmp\ 13152}#
                                                   '(any any))))
-                                             (list (#{f\ 4023}#
-                                                     (cdr #{bindings\ 4024}#))
-                                                   (car #{bindings\ 
4024}#)))))))
-                               (#{f\ 4023}#
-                                 (map list #{x\ 4017}# #{v\ 4018}#))))
-                           #{tmp\ 3999}#)
+                                             (list (#{f\ 13146}#
+                                                     (cdr #{bindings\ 13147}#))
+                                                   (car #{bindings\ 
13147}#)))))))
+                               (#{f\ 13146}#
+                                 (map list #{x\ 13140}# #{v\ 13141}#))))
+                           #{tmp\ 13122}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 3998}#)))
+                      #{tmp\ 13121}#)))
                 ($sc-dispatch
-                  #{tmp\ 3998}#
+                  #{tmp\ 13121}#
                   '(any #(each (any any)) any . each-any))))
-             #{x\ 3996}#))
+             #{x\ 13119}#))
           (module-name (current-module)))))
 
 (define do
-  (make-syncase-macro
+  (make-syntax-transformer
+    'do
     'macro
-    (cons (lambda (#{orig-x\ 4035}#)
-            ((lambda (#{tmp\ 4037}#)
-               ((lambda (#{tmp\ 4038}#)
-                  (if #{tmp\ 4038}#
-                    (apply (lambda (#{_\ 4046}#
-                                    #{var\ 4047}#
-                                    #{init\ 4048}#
-                                    #{step\ 4049}#
-                                    #{e0\ 4050}#
-                                    #{e1\ 4051}#
-                                    #{c\ 4052}#)
-                             ((lambda (#{tmp\ 4054}#)
-                                ((lambda (#{tmp\ 4055}#)
-                                   (if #{tmp\ 4055}#
-                                     (apply (lambda (#{step\ 4057}#)
-                                              ((lambda (#{tmp\ 4058}#)
-                                                 ((lambda (#{tmp\ 4059}#)
-                                                    (if #{tmp\ 4059}#
+    (cons (lambda (#{orig-x\ 13158}#)
+            ((lambda (#{tmp\ 13160}#)
+               ((lambda (#{tmp\ 13161}#)
+                  (if #{tmp\ 13161}#
+                    (apply (lambda (#{_\ 13169}#
+                                    #{var\ 13170}#
+                                    #{init\ 13171}#
+                                    #{step\ 13172}#
+                                    #{e0\ 13173}#
+                                    #{e1\ 13174}#
+                                    #{c\ 13175}#)
+                             ((lambda (#{tmp\ 13177}#)
+                                ((lambda (#{tmp\ 13178}#)
+                                   (if #{tmp\ 13178}#
+                                     (apply (lambda (#{step\ 13180}#)
+                                              ((lambda (#{tmp\ 13181}#)
+                                                 ((lambda (#{tmp\ 13182}#)
+                                                    (if #{tmp\ 13182}#
                                                       (apply (lambda ()
                                                                (list 
'#(syntax-object
                                                                         let
@@ -12042,7 +12081,7 @@
                                                                          
#(ribcage
                                                                            
#(step)
                                                                            
#((top))
-                                                                           
#("i4056"))
+                                                                           
#("i13179"))
                                                                          
#(ribcage
                                                                            #(_
                                                                              
var
@@ -12058,13 +12097,13 @@
                                                                              
(top)
                                                                              
(top)
                                                                              
(top))
-                                                                           
#("i4039"
-                                                                             
"i4040"
-                                                                             
"i4041"
-                                                                             
"i4042"
-                                                                             
"i4043"
-                                                                             
"i4044"
-                                                                             
"i4045"))
+                                                                           
#("i13162"
+                                                                             
"i13163"
+                                                                             
"i13164"
+                                                                             
"i13165"
+                                                                             
"i13166"
+                                                                             
"i13167"
+                                                                             
"i13168"))