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. v2.1.0-85-g148dfc2


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-85-g148dfc2
Date: Fri, 28 Oct 2011 14:12:40 +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=148dfc2409786996834f6ee1d0fdda563db182c0

The branch, master has been updated
       via  148dfc2409786996834f6ee1d0fdda563db182c0 (commit)
       via  dd64fe65fd3b93b469d6286df3dd135aaec6756e (commit)
       via  d5a4f51f9ccffe6b7850d276e23de2841c1a88b3 (commit)
       via  ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff (commit)
       via  f00a9574998521bd7d6d5caccba7c4e5c1b77878 (commit)
      from  175955725e1ba58a591bd07123dd60700a8ccd20 (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 148dfc2409786996834f6ee1d0fdda563db182c0
Author: Andy Wingo <address@hidden>
Date:   Fri Oct 28 12:14:00 2011 +0200

    refactor chi-top-sequence
    
    * module/ice-9/psyntax.scm (chi-top-sequence): Refactor slightly.
    * module/ice-9/psyntax-pp.scm: Regenerate.

commit dd64fe65fd3b93b469d6286df3dd135aaec6756e
Author: Andy Wingo <address@hidden>
Date:   Fri Oct 28 11:41:08 2011 +0200

    regenerate psyntax-pp
    
    * module/ice-9/psyntax-pp.scm: Regenerate.

commit d5a4f51f9ccffe6b7850d276e23de2841c1a88b3
Author: Andy Wingo <address@hidden>
Date:   Fri Oct 28 11:38:56 2011 +0200

    add string-length, string-ref, vector-length instructions
    
    * libguile/_scm.h (SCM_OBJCODE_MAJOR_VERSION): Bump the major version,
      indicating the first incompatibility between 2.0 and 2.2.
    
    * libguile/vm-i-scheme.c (string-length, string-ref, vector-length): New
      instructions.
    
    * module/language/tree-il/compile-glil.scm (*primcall-ops*): Add
      primcall ops for the new instructions.

commit ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff
Author: Andy Wingo <address@hidden>
Date:   Fri Oct 28 11:19:01 2011 +0200

    add vector-length primitive
    
    * module/language/tree-il/primitives.scm
      (*interesting-primitive-names*, *effect-free-primitives*): Recognize
      vector-length as an effect-free primitive.

commit f00a9574998521bd7d6d5caccba7c4e5c1b77878
Author: Andy Wingo <address@hidden>
Date:   Fri Oct 28 10:29:46 2011 +0200

    simplify primitives.scm
    
    * module/language/tree-il/primitives.scm (*primitive-expand-table*):
      Remove a hack to compensate for the lack of a good inliner, now that
      we do have a good inliner.

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

Summary of changes:
 libguile/_scm.h                          |    2 +-
 libguile/vm-i-scheme.c                   |  141 +-
 module/ice-9/psyntax-pp.scm              |17545 +++++++++++++++---------------
 module/ice-9/psyntax.scm                 |  250 +-
 module/language/tree-il/compile-glil.scm |    3 +
 module/language/tree-il/primitives.scm   |   47 +-
 6 files changed, 8998 insertions(+), 8990 deletions(-)

diff --git a/libguile/_scm.h b/libguile/_scm.h
index 975a200..a7a3ad2 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -261,7 +261,7 @@ void scm_ia64_longjmp (scm_i_jmp_buf *, int);
 #define SCM_OBJCODE_WORD_SIZE  SCM_CPP_STRINGIFY (SIZEOF_VOID_P)
 
 /* Major and minor versions must be single characters. */
-#define SCM_OBJCODE_MAJOR_VERSION 2
+#define SCM_OBJCODE_MAJOR_VERSION 3
 #define SCM_OBJCODE_MINOR_VERSION 0
 #define SCM_OBJCODE_MAJOR_VERSION_STRING        \
   SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index 2d85012..f4fa446 100644
--- a/libguile/vm-i-scheme.c
+++ b/libguile/vm-i-scheme.c
@@ -444,10 +444,57 @@ VM_DEFINE_FUNCTION (162, logxor, "logxor", 2)
 
 
 /*
+ * Strings
+ */
+
+VM_DEFINE_FUNCTION (163, string_length, "string-length", 1)
+{
+  ARGS1 (str);
+  if (SCM_LIKELY (scm_is_string (str)))
+    RETURN (SCM_I_MAKINUM (scm_i_string_length (str)));
+  else
+    {
+      SYNC_REGISTER ();
+      RETURN (scm_string_length (str));
+    }
+}
+
+VM_DEFINE_FUNCTION (164, string_ref, "string-ref", 2)
+{
+  scm_t_signed_bits i = 0;
+  ARGS2 (str, idx);
+  if (SCM_LIKELY (scm_is_string (str)
+                  && SCM_I_INUMP (idx)
+                  && ((i = SCM_I_INUM (idx)) >= 0)
+                  && i < scm_i_string_length (str)))
+    RETURN (SCM_MAKE_CHAR (scm_i_string_ref (str, i)));
+  else
+    {
+      SYNC_REGISTER ();
+      RETURN (scm_string_ref (str, idx));
+    }
+}
+
+/* No string-set! instruction, as there is no good fast path there.  */
+
+
+/*
  * Vectors and arrays
  */
 
-VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2)
+VM_DEFINE_FUNCTION (165, vector_length, "vector-length", 1)
+{
+  ARGS1 (vect);
+  if (SCM_LIKELY (SCM_I_IS_VECTOR (vect)))
+    RETURN (SCM_I_MAKINUM (SCM_I_VECTOR_LENGTH (vect)));
+  else
+    {
+      SYNC_REGISTER ();
+      RETURN (scm_vector_length (vect));
+    }
+}
+
+VM_DEFINE_FUNCTION (166, vector_ref, "vector-ref", 2)
 {
   scm_t_signed_bits i = 0;
   ARGS2 (vect, idx);
@@ -463,7 +510,7 @@ VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2)
     }
 }
 
-VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (167, vector_set, "vector-set", 0, 3, 0)
 {
   scm_t_signed_bits i = 0;
   SCM vect, idx, val;
@@ -481,7 +528,7 @@ VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 
0)
   NEXT;
 }
 
-VM_DEFINE_INSTRUCTION (165, make_array, "make-array", 3, -1, 1)
+VM_DEFINE_INSTRUCTION (168, make_array, "make-array", 3, -1, 1)
 {
   scm_t_uint32 len;
   SCM shape, ret;
@@ -510,20 +557,20 @@ VM_DEFINE_INSTRUCTION (165, make_array, "make-array", 3, 
-1, 1)
       goto vm_error_not_a_struct;              \
     }
 
-VM_DEFINE_FUNCTION (166, struct_p, "struct?", 1)
+VM_DEFINE_FUNCTION (169, struct_p, "struct?", 1)
 {
   ARGS1 (obj);
   RETURN (scm_from_bool (SCM_STRUCTP (obj)));
 }
 
-VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1)
+VM_DEFINE_FUNCTION (170, struct_vtable, "struct-vtable", 1)
 {
   ARGS1 (obj);
   VM_VALIDATE_STRUCT (obj, "struct_vtable");
   RETURN (SCM_STRUCT_VTABLE (obj));
 }
 
-VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, -1, 1)
+VM_DEFINE_INSTRUCTION (171, make_struct, "make-struct", 2, -1, 1)
 {
   unsigned h = FETCH ();
   unsigned l = FETCH ();
@@ -556,7 +603,7 @@ VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, 
-1, 1)
   NEXT;
 }
 
-VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2)
+VM_DEFINE_FUNCTION (172, struct_ref, "struct-ref", 2)
 {
   ARGS2 (obj, pos);
 
@@ -586,7 +633,7 @@ VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2)
   RETURN (scm_struct_ref (obj, pos));
 }
 
-VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3)
+VM_DEFINE_FUNCTION (173, struct_set, "struct-set", 3)
 {
   ARGS3 (obj, pos, val);
 
@@ -620,7 +667,7 @@ VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3)
 /*
  * GOOPS support
  */
-VM_DEFINE_FUNCTION (171, class_of, "class-of", 1)
+VM_DEFINE_FUNCTION (174, class_of, "class-of", 1)
 {
   ARGS1 (obj);
   if (SCM_INSTANCEP (obj))
@@ -630,7 +677,7 @@ VM_DEFINE_FUNCTION (171, class_of, "class-of", 1)
 }
 
 /* FIXME: No checking whatsoever. */
-VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2)
+VM_DEFINE_FUNCTION (175, slot_ref, "slot-ref", 2)
 {
   size_t slot;
   ARGS2 (instance, idx);
@@ -639,7 +686,7 @@ VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2)
 }
 
 /* FIXME: No checking whatsoever. */
-VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (176, slot_set, "slot-set", 0, 3, 0)
 {
   SCM instance, idx, val;
   size_t slot;
@@ -682,21 +729,21 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0)
 #define ALIGNED_P(ptr, type)                   \
   ((scm_t_uintptr) (ptr) % alignof (type) == 0)
 
-VM_DEFINE_FUNCTION (174, bv_u16_ref, "bv-u16-ref", 3)
+VM_DEFINE_FUNCTION (177, bv_u16_ref, "bv-u16-ref", 3)
 BV_REF_WITH_ENDIANNESS (u16, u16)
-VM_DEFINE_FUNCTION (175, bv_s16_ref, "bv-s16-ref", 3)
+VM_DEFINE_FUNCTION (178, bv_s16_ref, "bv-s16-ref", 3)
 BV_REF_WITH_ENDIANNESS (s16, s16)
-VM_DEFINE_FUNCTION (176, bv_u32_ref, "bv-u32-ref", 3)
+VM_DEFINE_FUNCTION (179, bv_u32_ref, "bv-u32-ref", 3)
 BV_REF_WITH_ENDIANNESS (u32, u32)
-VM_DEFINE_FUNCTION (177, bv_s32_ref, "bv-s32-ref", 3)
+VM_DEFINE_FUNCTION (180, bv_s32_ref, "bv-s32-ref", 3)
 BV_REF_WITH_ENDIANNESS (s32, s32)
-VM_DEFINE_FUNCTION (178, bv_u64_ref, "bv-u64-ref", 3)
+VM_DEFINE_FUNCTION (181, bv_u64_ref, "bv-u64-ref", 3)
 BV_REF_WITH_ENDIANNESS (u64, u64)
-VM_DEFINE_FUNCTION (179, bv_s64_ref, "bv-s64-ref", 3)
+VM_DEFINE_FUNCTION (182, bv_s64_ref, "bv-s64-ref", 3)
 BV_REF_WITH_ENDIANNESS (s64, s64)
-VM_DEFINE_FUNCTION (180, bv_f32_ref, "bv-f32-ref", 3)
+VM_DEFINE_FUNCTION (183, bv_f32_ref, "bv-f32-ref", 3)
 BV_REF_WITH_ENDIANNESS (f32, ieee_single)
-VM_DEFINE_FUNCTION (181, bv_f64_ref, "bv-f64-ref", 3)
+VM_DEFINE_FUNCTION (184, bv_f64_ref, "bv-f64-ref", 3)
 BV_REF_WITH_ENDIANNESS (f64, ieee_double)
 
 #undef BV_REF_WITH_ENDIANNESS
@@ -774,33 +821,33 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double)
     RETURN (scm_bytevector_ ## fn_stem ## _native_ref (bv, idx));      \
 }
 
-VM_DEFINE_FUNCTION (182, bv_u8_ref, "bv-u8-ref", 2)
+VM_DEFINE_FUNCTION (185, bv_u8_ref, "bv-u8-ref", 2)
 BV_FIXABLE_INT_REF (u8, u8, uint8, 1)
-VM_DEFINE_FUNCTION (183, bv_s8_ref, "bv-s8-ref", 2)
+VM_DEFINE_FUNCTION (186, bv_s8_ref, "bv-s8-ref", 2)
 BV_FIXABLE_INT_REF (s8, s8, int8, 1)
-VM_DEFINE_FUNCTION (184, bv_u16_native_ref, "bv-u16-native-ref", 2)
+VM_DEFINE_FUNCTION (187, bv_u16_native_ref, "bv-u16-native-ref", 2)
 BV_FIXABLE_INT_REF (u16, u16_native, uint16, 2)
-VM_DEFINE_FUNCTION (185, bv_s16_native_ref, "bv-s16-native-ref", 2)
+VM_DEFINE_FUNCTION (188, bv_s16_native_ref, "bv-s16-native-ref", 2)
 BV_FIXABLE_INT_REF (s16, s16_native, int16, 2)
-VM_DEFINE_FUNCTION (186, bv_u32_native_ref, "bv-u32-native-ref", 2)
+VM_DEFINE_FUNCTION (189, bv_u32_native_ref, "bv-u32-native-ref", 2)
 #if SIZEOF_VOID_P > 4
 BV_FIXABLE_INT_REF (u32, u32_native, uint32, 4)
 #else
 BV_INT_REF (u32, uint32, 4)
 #endif
-VM_DEFINE_FUNCTION (187, bv_s32_native_ref, "bv-s32-native-ref", 2)
+VM_DEFINE_FUNCTION (190, bv_s32_native_ref, "bv-s32-native-ref", 2)
 #if SIZEOF_VOID_P > 4
 BV_FIXABLE_INT_REF (s32, s32_native, int32, 4)
 #else
 BV_INT_REF (s32, int32, 4)
 #endif
-VM_DEFINE_FUNCTION (188, bv_u64_native_ref, "bv-u64-native-ref", 2)
+VM_DEFINE_FUNCTION (191, bv_u64_native_ref, "bv-u64-native-ref", 2)
 BV_INT_REF (u64, uint64, 8)
-VM_DEFINE_FUNCTION (189, bv_s64_native_ref, "bv-s64-native-ref", 2)
+VM_DEFINE_FUNCTION (192, bv_s64_native_ref, "bv-s64-native-ref", 2)
 BV_INT_REF (s64, int64, 8)
-VM_DEFINE_FUNCTION (190, bv_f32_native_ref, "bv-f32-native-ref", 2)
+VM_DEFINE_FUNCTION (193, bv_f32_native_ref, "bv-f32-native-ref", 2)
 BV_FLOAT_REF (f32, ieee_single, float, 4)
-VM_DEFINE_FUNCTION (191, bv_f64_native_ref, "bv-f64-native-ref", 2)
+VM_DEFINE_FUNCTION (194, bv_f64_native_ref, "bv-f64-native-ref", 2)
 BV_FLOAT_REF (f64, ieee_double, double, 8)
 
 #undef BV_FIXABLE_INT_REF
@@ -823,21 +870,21 @@ BV_FLOAT_REF (f64, ieee_double, double, 8)
   }                                                                     \
 }
 
-VM_DEFINE_INSTRUCTION (192, bv_u16_set, "bv-u16-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (195, bv_u16_set, "bv-u16-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (u16, u16)
-VM_DEFINE_INSTRUCTION (193, bv_s16_set, "bv-s16-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (196, bv_s16_set, "bv-s16-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (s16, s16)
-VM_DEFINE_INSTRUCTION (194, bv_u32_set, "bv-u32-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (197, bv_u32_set, "bv-u32-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (u32, u32)
-VM_DEFINE_INSTRUCTION (195, bv_s32_set, "bv-s32-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (198, bv_s32_set, "bv-s32-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (s32, s32)
-VM_DEFINE_INSTRUCTION (196, bv_u64_set, "bv-u64-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (199, bv_u64_set, "bv-u64-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (u64, u64)
-VM_DEFINE_INSTRUCTION (197, bv_s64_set, "bv-s64-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (200, bv_s64_set, "bv-s64-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (s64, s64)
-VM_DEFINE_INSTRUCTION (198, bv_f32_set, "bv-f32-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (201, bv_f32_set, "bv-f32-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (f32, ieee_single)
-VM_DEFINE_INSTRUCTION (199, bv_f64_set, "bv-f64-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (202, bv_f64_set, "bv-f64-set", 0, 4, 0)
 BV_SET_WITH_ENDIANNESS (f64, ieee_double)
 
 #undef BV_SET_WITH_ENDIANNESS
@@ -917,33 +964,33 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double)
   NEXT;                                                                 \
 }
 
-VM_DEFINE_INSTRUCTION (200, bv_u8_set, "bv-u8-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (203, bv_u8_set, "bv-u8-set", 0, 3, 0)
 BV_FIXABLE_INT_SET (u8, u8, uint8, 0, SCM_T_UINT8_MAX, 1)
-VM_DEFINE_INSTRUCTION (201, bv_s8_set, "bv-s8-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (204, bv_s8_set, "bv-s8-set", 0, 3, 0)
 BV_FIXABLE_INT_SET (s8, s8, int8, SCM_T_INT8_MIN, SCM_T_INT8_MAX, 1)
-VM_DEFINE_INSTRUCTION (202, bv_u16_native_set, "bv-u16-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (205, bv_u16_native_set, "bv-u16-native-set", 0, 3, 0)
 BV_FIXABLE_INT_SET (u16, u16_native, uint16, 0, SCM_T_UINT16_MAX, 2)
-VM_DEFINE_INSTRUCTION (203, bv_s16_native_set, "bv-s16-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (206, bv_s16_native_set, "bv-s16-native-set", 0, 3, 0)
 BV_FIXABLE_INT_SET (s16, s16_native, int16, SCM_T_INT16_MIN, SCM_T_INT16_MAX, 
2)
-VM_DEFINE_INSTRUCTION (204, bv_u32_native_set, "bv-u32-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (207, bv_u32_native_set, "bv-u32-native-set", 0, 3, 0)
 #if SIZEOF_VOID_P > 4
 BV_FIXABLE_INT_SET (u32, u32_native, uint32, 0, SCM_T_UINT32_MAX, 4)
 #else
 BV_INT_SET (u32, uint32, 4)
 #endif
-VM_DEFINE_INSTRUCTION (205, bv_s32_native_set, "bv-s32-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (208, bv_s32_native_set, "bv-s32-native-set", 0, 3, 0)
 #if SIZEOF_VOID_P > 4
 BV_FIXABLE_INT_SET (s32, s32_native, int32, SCM_T_INT32_MIN, SCM_T_INT32_MAX, 
4)
 #else
 BV_INT_SET (s32, int32, 4)
 #endif
-VM_DEFINE_INSTRUCTION (206, bv_u64_native_set, "bv-u64-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (209, bv_u64_native_set, "bv-u64-native-set", 0, 3, 0)
 BV_INT_SET (u64, uint64, 8)
-VM_DEFINE_INSTRUCTION (207, bv_s64_native_set, "bv-s64-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (210, bv_s64_native_set, "bv-s64-native-set", 0, 3, 0)
 BV_INT_SET (s64, int64, 8)
-VM_DEFINE_INSTRUCTION (208, bv_f32_native_set, "bv-f32-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (211, bv_f32_native_set, "bv-f32-native-set", 0, 3, 0)
 BV_FLOAT_SET (f32, ieee_single, float, 4)
-VM_DEFINE_INSTRUCTION (209, bv_f64_native_set, "bv-f64-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (212, bv_f64_native_set, "bv-f64-native-set", 0, 3, 0)
 BV_FLOAT_SET (f64, ieee_double, double, 8)
 
 #undef BV_FIXABLE_INT_SET
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 2d94856..b6f8269 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1964 +2,1947 @@
 (if #f #f)
 
 (letrec*
-  ((#{top-level-eval-hook 4302}#
-     (lambda (#{x 36532}# #{mod 36533}#)
-       (primitive-eval #{x 36532}#)))
-   (#{maybe-name-value! 4307}#
-     (lambda (#{name 19324}# #{val 19325}#)
-       (if (if (struct? #{val 19325}#)
-             (eq? (struct-vtable #{val 19325}#)
+  ((#{top-level-eval-hook 4300}#
+     (lambda (#{x 36829}# #{mod 36830}#)
+       (primitive-eval #{x 36829}#)))
+   (#{maybe-name-value! 4305}#
+     (lambda (#{name 19449}# #{val 19450}#)
+       (if (if (struct? #{val 19450}#)
+             (eq? (struct-vtable #{val 19450}#)
                   (vector-ref %expanded-vtables 14))
              #f)
-         (let ((#{meta 19332}# (struct-ref #{val 19325}# 1)))
-           (if (not (assq 'name #{meta 19332}#))
-             (let ((#{v 19337}#
-                     (cons (cons 'name #{name 19324}#) #{meta 19332}#)))
-               (struct-set! #{val 19325}# 1 #{v 19337}#)))))))
-   (#{build-call 4309}#
-     (lambda (#{source 19069}#
-              #{fun-exp 19070}#
-              #{arg-exps 19071}#)
+         (let ((#{meta 19457}# (struct-ref #{val 19450}# 1)))
+           (if (not (assq 'name #{meta 19457}#))
+             (let ((#{v 19462}#
+                     (cons (cons 'name #{name 19449}#) #{meta 19457}#)))
+               (struct-set! #{val 19450}# 1 #{v 19462}#)))))))
+   (#{build-call 4307}#
+     (lambda (#{source 19194}#
+              #{fun-exp 19195}#
+              #{arg-exps 19196}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 11)
-         #{source 19069}#
-         #{fun-exp 19070}#
-         #{arg-exps 19071}#)))
-   (#{build-conditional 4310}#
-     (lambda (#{source 19077}#
-              #{test-exp 19078}#
-              #{then-exp 19079}#
-              #{else-exp 19080}#)
+         #{source 19194}#
+         #{fun-exp 19195}#
+         #{arg-exps 19196}#)))
+   (#{build-conditional 4308}#
+     (lambda (#{source 19202}#
+              #{test-exp 19203}#
+              #{then-exp 19204}#
+              #{else-exp 19205}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 10)
-         #{source 19077}#
-         #{test-exp 19078}#
-         #{then-exp 19079}#
-         #{else-exp 19080}#)))
-   (#{build-dynlet 4311}#
-     (lambda (#{source 19087}#
-              #{fluids 19088}#
-              #{vals 19089}#
-              #{body 19090}#)
+         #{source 19202}#
+         #{test-exp 19203}#
+         #{then-exp 19204}#
+         #{else-exp 19205}#)))
+   (#{build-dynlet 4309}#
+     (lambda (#{source 19212}#
+              #{fluids 19213}#
+              #{vals 19214}#
+              #{body 19215}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 18)
-         #{source 19087}#
-         #{fluids 19088}#
-         #{vals 19089}#
-         #{body 19090}#)))
-   (#{build-lexical-reference 4312}#
-     (lambda (#{type 36534}#
-              #{source 36535}#
-              #{name 36536}#
-              #{var 36537}#)
+         #{source 19212}#
+         #{fluids 19213}#
+         #{vals 19214}#
+         #{body 19215}#)))
+   (#{build-lexical-reference 4310}#
+     (lambda (#{type 36831}#
+              #{source 36832}#
+              #{name 36833}#
+              #{var 36834}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 3)
-         #{source 36535}#
-         #{name 36536}#
-         #{var 36537}#)))
-   (#{build-lexical-assignment 4313}#
-     (lambda (#{source 19097}#
-              #{name 19098}#
-              #{var 19099}#
-              #{exp 19100}#)
+         #{source 36832}#
+         #{name 36833}#
+         #{var 36834}#)))
+   (#{build-lexical-assignment 4311}#
+     (lambda (#{source 19222}#
+              #{name 19223}#
+              #{var 19224}#
+              #{exp 19225}#)
        (begin
-         (if (if (struct? #{exp 19100}#)
-               (eq? (struct-vtable #{exp 19100}#)
+         (if (if (struct? #{exp 19225}#)
+               (eq? (struct-vtable #{exp 19225}#)
                     (vector-ref %expanded-vtables 14))
                #f)
-           (let ((#{meta 19116}# (struct-ref #{exp 19100}# 1)))
-             (if (not (assq 'name #{meta 19116}#))
-               (let ((#{v 19123}#
-                       (cons (cons 'name #{name 19098}#) #{meta 19116}#)))
-                 (struct-set! #{exp 19100}# 1 #{v 19123}#)))))
+           (let ((#{meta 19241}# (struct-ref #{exp 19225}# 1)))
+             (if (not (assq 'name #{meta 19241}#))
+               (let ((#{v 19248}#
+                       (cons (cons 'name #{name 19223}#) #{meta 19241}#)))
+                 (struct-set! #{exp 19225}# 1 #{v 19248}#)))))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 4)
-           #{source 19097}#
-           #{name 19098}#
-           #{var 19099}#
-           #{exp 19100}#))))
-   (#{analyze-variable 4314}#
-     (lambda (#{mod 36543}#
-              #{var 36544}#
-              #{modref-cont 36545}#
-              #{bare-cont 36546}#)
-       (if (not #{mod 36543}#)
-         (#{bare-cont 36546}# #{var 36544}#)
-         (let ((#{kind 36547}# (car #{mod 36543}#))
-               (#{mod 36548}# (cdr #{mod 36543}#)))
-           (if (eqv? #{kind 36547}# 'public)
-             (#{modref-cont 36545}#
-               #{mod 36548}#
-               #{var 36544}#
+           #{source 19222}#
+           #{name 19223}#
+           #{var 19224}#
+           #{exp 19225}#))))
+   (#{analyze-variable 4312}#
+     (lambda (#{mod 36840}#
+              #{var 36841}#
+              #{modref-cont 36842}#
+              #{bare-cont 36843}#)
+       (if (not #{mod 36840}#)
+         (#{bare-cont 36843}# #{var 36841}#)
+         (let ((#{kind 36844}# (car #{mod 36840}#))
+               (#{mod 36845}# (cdr #{mod 36840}#)))
+           (if (eqv? #{kind 36844}# 'public)
+             (#{modref-cont 36842}#
+               #{mod 36845}#
+               #{var 36841}#
                #t)
-             (if (eqv? #{kind 36547}# 'private)
+             (if (eqv? #{kind 36844}# 'private)
                (if (not (equal?
-                          #{mod 36548}#
+                          #{mod 36845}#
                           (module-name (current-module))))
-                 (#{modref-cont 36545}#
-                   #{mod 36548}#
-                   #{var 36544}#
+                 (#{modref-cont 36842}#
+                   #{mod 36845}#
+                   #{var 36841}#
                    #f)
-                 (#{bare-cont 36546}# #{var 36544}#))
-               (if (eqv? #{kind 36547}# 'bare)
-                 (#{bare-cont 36546}# #{var 36544}#)
-                 (if (eqv? #{kind 36547}# 'hygiene)
+                 (#{bare-cont 36843}# #{var 36841}#))
+               (if (eqv? #{kind 36844}# 'bare)
+                 (#{bare-cont 36843}# #{var 36841}#)
+                 (if (eqv? #{kind 36844}# 'hygiene)
                    (if (if (not (equal?
-                                  #{mod 36548}#
+                                  #{mod 36845}#
                                   (module-name (current-module))))
                          (module-variable
-                           (resolve-module #{mod 36548}#)
-                           #{var 36544}#)
+                           (resolve-module #{mod 36845}#)
+                           #{var 36841}#)
                          #f)
-                     (#{modref-cont 36545}#
-                       #{mod 36548}#
-                       #{var 36544}#
+                     (#{modref-cont 36842}#
+                       #{mod 36845}#
+                       #{var 36841}#
                        #f)
-                     (#{bare-cont 36546}# #{var 36544}#))
+                     (#{bare-cont 36843}# #{var 36841}#))
                    (syntax-violation
                      #f
                      "bad module kind"
-                     #{var 36544}#
-                     #{mod 36548}#)))))))))
-   (#{build-global-reference 4315}#
-     (lambda (#{source 36563}# #{var 36564}# #{mod 36565}#)
-       (#{analyze-variable 4314}#
-         #{mod 36565}#
-         #{var 36564}#
-         (lambda (#{mod 36568}# #{var 36569}# #{public? 36570}#)
+                     #{var 36841}#
+                     #{mod 36845}#)))))))))
+   (#{build-global-reference 4313}#
+     (lambda (#{source 36860}# #{var 36861}# #{mod 36862}#)
+       (#{analyze-variable 4312}#
+         #{mod 36862}#
+         #{var 36861}#
+         (lambda (#{mod 36865}# #{var 36866}# #{public? 36867}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 5)
-             #{source 36563}#
-             #{mod 36568}#
-             #{var 36569}#
-             #{public? 36570}#))
-         (lambda (#{var 36577}#)
+             #{source 36860}#
+             #{mod 36865}#
+             #{var 36866}#
+             #{public? 36867}#))
+         (lambda (#{var 36874}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 7)
-             #{source 36563}#
-             #{var 36577}#)))))
-   (#{build-global-assignment 4316}#
-     (lambda (#{source 19132}#
-              #{var 19133}#
-              #{exp 19134}#
-              #{mod 19135}#)
+             #{source 36860}#
+             #{var 36874}#)))))
+   (#{build-global-assignment 4314}#
+     (lambda (#{source 19257}#
+              #{var 19258}#
+              #{exp 19259}#
+              #{mod 19260}#)
        (begin
-         (if (if (struct? #{exp 19134}#)
-               (eq? (struct-vtable #{exp 19134}#)
+         (if (if (struct? #{exp 19259}#)
+               (eq? (struct-vtable #{exp 19259}#)
                     (vector-ref %expanded-vtables 14))
                #f)
-           (let ((#{meta 19151}# (struct-ref #{exp 19134}# 1)))
-             (if (not (assq 'name #{meta 19151}#))
-               (let ((#{v 19158}#
-                       (cons (cons 'name #{var 19133}#) #{meta 19151}#)))
-                 (struct-set! #{exp 19134}# 1 #{v 19158}#)))))
-         (#{analyze-variable 4314}#
-           #{mod 19135}#
-           #{var 19133}#
-           (lambda (#{mod 19163}# #{var 19164}# #{public? 19165}#)
+           (let ((#{meta 19276}# (struct-ref #{exp 19259}# 1)))
+             (if (not (assq 'name #{meta 19276}#))
+               (let ((#{v 19283}#
+                       (cons (cons 'name #{var 19258}#) #{meta 19276}#)))
+                 (struct-set! #{exp 19259}# 1 #{v 19283}#)))))
+         (#{analyze-variable 4312}#
+           #{mod 19260}#
+           #{var 19258}#
+           (lambda (#{mod 19288}# #{var 19289}# #{public? 19290}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 6)
-               #{source 19132}#
-               #{mod 19163}#
-               #{var 19164}#
-               #{public? 19165}#
-               #{exp 19134}#))
-           (lambda (#{var 19173}#)
+               #{source 19257}#
+               #{mod 19288}#
+               #{var 19289}#
+               #{public? 19290}#
+               #{exp 19259}#))
+           (lambda (#{var 19298}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 8)
-               #{source 19132}#
-               #{var 19173}#
-               #{exp 19134}#))))))
-   (#{build-global-definition 4317}#
-     (lambda (#{source 36582}# #{var 36583}# #{exp 36584}#)
+               #{source 19257}#
+               #{var 19298}#
+               #{exp 19259}#))))))
+   (#{build-global-definition 4315}#
+     (lambda (#{source 36879}# #{var 36880}# #{exp 36881}#)
        (begin
-         (if (if (struct? #{exp 36584}#)
-               (eq? (struct-vtable #{exp 36584}#)
+         (if (if (struct? #{exp 36881}#)
+               (eq? (struct-vtable #{exp 36881}#)
                     (vector-ref %expanded-vtables 14))
                #f)
-           (let ((#{meta 36600}# (struct-ref #{exp 36584}# 1)))
-             (if (not (assq 'name #{meta 36600}#))
-               (let ((#{v 36607}#
-                       (cons (cons 'name #{var 36583}#) #{meta 36600}#)))
-                 (struct-set! #{exp 36584}# 1 #{v 36607}#)))))
+           (let ((#{meta 36897}# (struct-ref #{exp 36881}# 1)))
+             (if (not (assq 'name #{meta 36897}#))
+               (let ((#{v 36904}#
+                       (cons (cons 'name #{var 36880}#) #{meta 36897}#)))
+                 (struct-set! #{exp 36881}# 1 #{v 36904}#)))))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 9)
-           #{source 36582}#
-           #{var 36583}#
-           #{exp 36584}#))))
-   (#{build-simple-lambda 4318}#
-     (lambda (#{src 19179}#
-              #{req 19180}#
-              #{rest 19181}#
-              #{vars 19182}#
-              #{meta 19183}#
-              #{exp 19184}#)
-       (let ((#{body 19190}#
+           #{source 36879}#
+           #{var 36880}#
+           #{exp 36881}#))))
+   (#{build-simple-lambda 4316}#
+     (lambda (#{src 19304}#
+              #{req 19305}#
+              #{rest 19306}#
+              #{vars 19307}#
+              #{meta 19308}#
+              #{exp 19309}#)
+       (let ((#{body 19315}#
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 15)
-                 #{src 19179}#
-                 #{req 19180}#
+                 #{src 19304}#
+                 #{req 19305}#
                  #f
-                 #{rest 19181}#
+                 #{rest 19306}#
                  #f
                  '()
-                 #{vars 19182}#
-                 #{exp 19184}#
+                 #{vars 19307}#
+                 #{exp 19309}#
                  #f)))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 14)
-           #{src 19179}#
-           #{meta 19183}#
-           #{body 19190}#))))
-   (#{build-primcall 4321}#
-     (lambda (#{src 19202}# #{name 19203}# #{args 19204}#)
+           #{src 19304}#
+           #{meta 19308}#
+           #{body 19315}#))))
+   (#{build-primcall 4319}#
+     (lambda (#{src 19327}# #{name 19328}# #{args 19329}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 12)
-         #{src 19202}#
-         #{name 19203}#
-         #{args 19204}#)))
-   (#{build-sequence 4324}#
-     (lambda (#{src 36615}# #{exps 36616}#)
-       (if (null? (cdr #{exps 36616}#))
-         (car #{exps 36616}#)
-         (let ((#{head 36620}# (car #{exps 36616}#))
-               (#{tail 36621}#
-                 (#{build-sequence 4324}# #f (cdr #{exps 36616}#))))
+         #{src 19327}#
+         #{name 19328}#
+         #{args 19329}#)))
+   (#{build-sequence 4322}#
+     (lambda (#{src 36912}# #{exps 36913}#)
+       (if (null? (cdr #{exps 36913}#))
+         (car #{exps 36913}#)
+         (let ((#{head 36917}# (car #{exps 36913}#))
+               (#{tail 36918}#
+                 (#{build-sequence 4322}# #f (cdr #{exps 36913}#))))
            (make-struct/no-tail
              (vector-ref %expanded-vtables 13)
-             #{src 36615}#
-             #{head 36620}#
-             #{tail 36621}#)))))
-   (#{build-named-let 4326}#
-     (lambda (#{src 19210}#
-              #{ids 19211}#
-              #{vars 19212}#
-              #{val-exps 19213}#
-              #{body-exp 19214}#)
-       (let ((#{f 19215}# (car #{vars 19212}#))
-             (#{f-name 19216}# (car #{ids 19211}#))
-             (#{vars 19217}# (cdr #{vars 19212}#))
-             (#{ids 19218}# (cdr #{ids 19211}#)))
-         (let ((#{proc 19219}#
-                 (let ((#{body 19239}#
+             #{src 36912}#
+             #{head 36917}#
+             #{tail 36918}#)))))
+   (#{build-named-let 4324}#
+     (lambda (#{src 19335}#
+              #{ids 19336}#
+              #{vars 19337}#
+              #{val-exps 19338}#
+              #{body-exp 19339}#)
+       (let ((#{f 19340}# (car #{vars 19337}#))
+             (#{f-name 19341}# (car #{ids 19336}#))
+             (#{vars 19342}# (cdr #{vars 19337}#))
+             (#{ids 19343}# (cdr #{ids 19336}#)))
+         (let ((#{proc 19344}#
+                 (let ((#{body 19364}#
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 15)
-                           #{src 19210}#
-                           #{ids 19218}#
+                           #{src 19335}#
+                           #{ids 19343}#
                            #f
                            #f
                            #f
                            '()
-                           #{vars 19217}#
-                           #{body-exp 19214}#
+                           #{vars 19342}#
+                           #{body-exp 19339}#
                            #f)))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 14)
-                     #{src 19210}#
+                     #{src 19335}#
                      '()
-                     #{body 19239}#))))
+                     #{body 19364}#))))
            (begin
-             (if (if (struct? #{proc 19219}#)
-                   (eq? (struct-vtable #{proc 19219}#)
+             (if (if (struct? #{proc 19344}#)
+                   (eq? (struct-vtable #{proc 19344}#)
                         (vector-ref %expanded-vtables 14))
                    #f)
-               (let ((#{meta 19263}# (struct-ref #{proc 19219}# 1)))
-                 (if (not (assq 'name #{meta 19263}#))
-                   (let ((#{v 19270}#
-                           (cons (cons 'name #{f-name 19216}#)
-                                 #{meta 19263}#)))
-                     (struct-set! #{proc 19219}# 1 #{v 19270}#)))))
+               (let ((#{meta 19388}# (struct-ref #{proc 19344}# 1)))
+                 (if (not (assq 'name #{meta 19388}#))
+                   (let ((#{v 19395}#
+                           (cons (cons 'name #{f-name 19341}#)
+                                 #{meta 19388}#)))
+                     (struct-set! #{proc 19344}# 1 #{v 19395}#)))))
              (for-each
-               #{maybe-name-value! 4307}#
-               #{ids 19218}#
-               #{val-exps 19213}#)
-             (let ((#{names 19294}# (list #{f-name 19216}#))
-                   (#{gensyms 19295}# (list #{f 19215}#))
-                   (#{vals 19296}# (list #{proc 19219}#))
-                   (#{body 19297}#
-                     (let ((#{fun-exp 19301}#
+               #{maybe-name-value! 4305}#
+               #{ids 19343}#
+               #{val-exps 19338}#)
+             (let ((#{names 19419}# (list #{f-name 19341}#))
+                   (#{gensyms 19420}# (list #{f 19340}#))
+                   (#{vals 19421}# (list #{proc 19344}#))
+                   (#{body 19422}#
+                     (let ((#{fun-exp 19426}#
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 3)
-                               #{src 19210}#
-                               #{f-name 19216}#
-                               #{f 19215}#)))
+                               #{src 19335}#
+                               #{f-name 19341}#
+                               #{f 19340}#)))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 11)
-                         #{src 19210}#
-                         #{fun-exp 19301}#
-                         #{val-exps 19213}#))))
+                         #{src 19335}#
+                         #{fun-exp 19426}#
+                         #{val-exps 19338}#))))
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 17)
-                 #{src 19210}#
+                 #{src 19335}#
                  #f
-                 #{names 19294}#
-                 #{gensyms 19295}#
-                 #{vals 19296}#
-                 #{body 19297}#)))))))
-   (#{build-letrec 4327}#
-     (lambda (#{src 19317}#
-              #{in-order? 19318}#
-              #{ids 19319}#
-              #{vars 19320}#
-              #{val-exps 19321}#
-              #{body-exp 19322}#)
-       (if (null? #{vars 19320}#)
-         #{body-exp 19322}#
+                 #{names 19419}#
+                 #{gensyms 19420}#
+                 #{vals 19421}#
+                 #{body 19422}#)))))))
+   (#{build-letrec 4325}#
+     (lambda (#{src 19442}#
+              #{in-order? 19443}#
+              #{ids 19444}#
+              #{vars 19445}#
+              #{val-exps 19446}#
+              #{body-exp 19447}#)
+       (if (null? #{vars 19445}#)
+         #{body-exp 19447}#
          (begin
            (for-each
-             #{maybe-name-value! 4307}#
-             #{ids 19319}#
-             #{val-exps 19321}#)
+             #{maybe-name-value! 4305}#
+             #{ids 19444}#
+             #{val-exps 19446}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 17)
-             #{src 19317}#
-             #{in-order? 19318}#
-             #{ids 19319}#
-             #{vars 19320}#
-             #{val-exps 19321}#
-             #{body-exp 19322}#)))))
-   (#{source-annotation 4336}#
-     (lambda (#{x 19348}#)
-       (if (if (vector? #{x 19348}#)
-             (if (= (vector-length #{x 19348}#) 4)
-               (eq? (vector-ref #{x 19348}# 0) 'syntax-object)
+             #{src 19442}#
+             #{in-order? 19443}#
+             #{ids 19444}#
+             #{vars 19445}#
+             #{val-exps 19446}#
+             #{body-exp 19447}#)))))
+   (#{source-annotation 4334}#
+     (lambda (#{x 19473}#)
+       (if (if (vector? #{x 19473}#)
+             (if (= (vector-length #{x 19473}#) 4)
+               (eq? (vector-ref #{x 19473}# 0) 'syntax-object)
                #f)
              #f)
-         (#{source-annotation 4336}#
-           (vector-ref #{x 19348}# 1))
-         (if (pair? #{x 19348}#)
-           (let ((#{props 19363}# (source-properties #{x 19348}#)))
-             (if (pair? #{props 19363}#) #{props 19363}# #f))
+         (#{source-annotation 4334}#
+           (vector-ref #{x 19473}# 1))
+         (if (pair? #{x 19473}#)
+           (let ((#{props 19488}# (source-properties #{x 19473}#)))
+             (if (pair? #{props 19488}#) #{props 19488}# #f))
            #f))))
-   (#{extend-env 4337}#
-     (lambda (#{labels 19365}# #{bindings 19366}# #{r 19367}#)
-       (if (null? #{labels 19365}#)
-         #{r 19367}#
-         (#{extend-env 4337}#
-           (cdr #{labels 19365}#)
-           (cdr #{bindings 19366}#)
-           (cons (cons (car #{labels 19365}#)
-                       (car #{bindings 19366}#))
-                 #{r 19367}#)))))
-   (#{extend-var-env 4338}#
-     (lambda (#{labels 19368}# #{vars 19369}# #{r 19370}#)
-       (if (null? #{labels 19368}#)
-         #{r 19370}#
-         (#{extend-var-env 4338}#
-           (cdr #{labels 19368}#)
-           (cdr #{vars 19369}#)
-           (cons (cons (car #{labels 19368}#)
-                       (cons 'lexical (car #{vars 19369}#)))
-                 #{r 19370}#)))))
-   (#{macros-only-env 4339}#
-     (lambda (#{r 19371}#)
-       (if (null? #{r 19371}#)
+   (#{extend-env 4335}#
+     (lambda (#{labels 19490}# #{bindings 19491}# #{r 19492}#)
+       (if (null? #{labels 19490}#)
+         #{r 19492}#
+         (#{extend-env 4335}#
+           (cdr #{labels 19490}#)
+           (cdr #{bindings 19491}#)
+           (cons (cons (car #{labels 19490}#)
+                       (car #{bindings 19491}#))
+                 #{r 19492}#)))))
+   (#{extend-var-env 4336}#
+     (lambda (#{labels 19493}# #{vars 19494}# #{r 19495}#)
+       (if (null? #{labels 19493}#)
+         #{r 19495}#
+         (#{extend-var-env 4336}#
+           (cdr #{labels 19493}#)
+           (cdr #{vars 19494}#)
+           (cons (cons (car #{labels 19493}#)
+                       (cons 'lexical (car #{vars 19494}#)))
+                 #{r 19495}#)))))
+   (#{macros-only-env 4337}#
+     (lambda (#{r 19496}#)
+       (if (null? #{r 19496}#)
          '()
-         (let ((#{a 19372}# (car #{r 19371}#)))
-           (if (eq? (car (cdr #{a 19372}#)) 'macro)
-             (cons #{a 19372}#
-                   (#{macros-only-env 4339}# (cdr #{r 19371}#)))
-             (#{macros-only-env 4339}# (cdr #{r 19371}#)))))))
-   (#{global-extend 4341}#
-     (lambda (#{type 19374}# #{sym 19375}# #{val 19376}#)
+         (let ((#{a 19497}# (car #{r 19496}#)))
+           (if (eq? (car (cdr #{a 19497}#)) 'macro)
+             (cons #{a 19497}#
+                   (#{macros-only-env 4337}# (cdr #{r 19496}#)))
+             (#{macros-only-env 4337}# (cdr #{r 19496}#)))))))
+   (#{global-extend 4339}#
+     (lambda (#{type 19499}# #{sym 19500}# #{val 19501}#)
        (module-define!
          (current-module)
-         #{sym 19375}#
+         #{sym 19500}#
          (make-syntax-transformer
-           #{sym 19375}#
-           #{type 19374}#
-           #{val 19376}#))))
-   (#{id? 4343}#
-     (lambda (#{x 12386}#)
-       (if (symbol? #{x 12386}#)
+           #{sym 19500}#
+           #{type 19499}#
+           #{val 19501}#))))
+   (#{id? 4341}#
+     (lambda (#{x 12436}#)
+       (if (symbol? #{x 12436}#)
          #t
-         (if (if (vector? #{x 12386}#)
-               (if (= (vector-length #{x 12386}#) 4)
-                 (eq? (vector-ref #{x 12386}# 0) 'syntax-object)
+         (if (if (vector? #{x 12436}#)
+               (if (= (vector-length #{x 12436}#) 4)
+                 (eq? (vector-ref #{x 12436}# 0) 'syntax-object)
                  #f)
                #f)
-           (symbol? (vector-ref #{x 12386}# 1))
+           (symbol? (vector-ref #{x 12436}# 1))
            #f))))
-   (#{gen-labels 4346}#
-     (lambda (#{ls 19386}#)
-       (if (null? #{ls 19386}#)
+   (#{gen-labels 4344}#
+     (lambda (#{ls 19511}#)
+       (if (null? #{ls 19511}#)
          '()
          (cons (symbol->string (gensym "i"))
-               (#{gen-labels 4346}# (cdr #{ls 19386}#))))))
-   (#{make-binding-wrap 4357}#
-     (lambda (#{ids 19390}# #{labels 19391}# #{w 19392}#)
-       (if (null? #{ids 19390}#)
-         #{w 19392}#
-         (cons (car #{w 19392}#)
-               (cons (let ((#{labelvec 19393}#
-                             (list->vector #{labels 19391}#)))
-                       (let ((#{n 19394}# (vector-length #{labelvec 19393}#)))
-                         (let ((#{symnamevec 19395}# (make-vector #{n 19394}#))
-                               (#{marksvec 19396}# (make-vector #{n 19394}#)))
+               (#{gen-labels 4344}# (cdr #{ls 19511}#))))))
+   (#{make-binding-wrap 4355}#
+     (lambda (#{ids 19515}# #{labels 19516}# #{w 19517}#)
+       (if (null? #{ids 19515}#)
+         #{w 19517}#
+         (cons (car #{w 19517}#)
+               (cons (let ((#{labelvec 19518}#
+                             (list->vector #{labels 19516}#)))
+                       (let ((#{n 19519}# (vector-length #{labelvec 19518}#)))
+                         (let ((#{symnamevec 19520}# (make-vector #{n 19519}#))
+                               (#{marksvec 19521}# (make-vector #{n 19519}#)))
                            (begin
                              (letrec*
-                               ((#{f 19397}#
-                                  (lambda (#{ids 19592}# #{i 19593}#)
-                                    (if (not (null? #{ids 19592}#))
+                               ((#{f 19522}#
+                                  (lambda (#{ids 19721}# #{i 19722}#)
+                                    (if (not (null? #{ids 19721}#))
                                       (call-with-values
                                         (lambda ()
-                                          (let ((#{x 19596}#
-                                                  (car #{ids 19592}#)))
-                                            (if (if (vector? #{x 19596}#)
+                                          (let ((#{x 19725}#
+                                                  (car #{ids 19721}#)))
+                                            (if (if (vector? #{x 19725}#)
                                                   (if (= (vector-length
-                                                           #{x 19596}#)
+                                                           #{x 19725}#)
                                                          4)
                                                     (eq? (vector-ref
-                                                           #{x 19596}#
+                                                           #{x 19725}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (values
-                                                (vector-ref #{x 19596}# 1)
-                                                (let ((#{m1 19612}#
-                                                        (car #{w 19392}#))
-                                                      (#{m2 19613}#
+                                                (vector-ref #{x 19725}# 1)
+                                                (let ((#{m1 19741}#
+                                                        (car #{w 19517}#))
+                                                      (#{m2 19742}#
                                                         (car (vector-ref
-                                                               #{x 19596}#
+                                                               #{x 19725}#
                                                                2))))
-                                                  (if (null? #{m2 19613}#)
-                                                    #{m1 19612}#
+                                                  (if (null? #{m2 19742}#)
+                                                    #{m1 19741}#
                                                     (append
-                                                      #{m1 19612}#
-                                                      #{m2 19613}#))))
+                                                      #{m1 19741}#
+                                                      #{m2 19742}#))))
                                               (values
-                                                #{x 19596}#
-                                                (car #{w 19392}#)))))
-                                        (lambda (#{symname 19633}#
-                                                 #{marks 19634}#)
+                                                #{x 19725}#
+                                                (car #{w 19517}#)))))
+                                        (lambda (#{symname 19762}#
+                                                 #{marks 19763}#)
                                           (begin
                                             (vector-set!
-                                              #{symnamevec 19395}#
-                                              #{i 19593}#
-                                              #{symname 19633}#)
+                                              #{symnamevec 19520}#
+                                              #{i 19722}#
+                                              #{symname 19762}#)
                                             (vector-set!
-                                              #{marksvec 19396}#
-                                              #{i 19593}#
-                                              #{marks 19634}#)
-                                            (#{f 19397}#
-                                              (cdr #{ids 19592}#)
-                                              (#{1+}# #{i 19593}#)))))))))
-                               (#{f 19397}# #{ids 19390}# 0))
+                                              #{marksvec 19521}#
+                                              #{i 19722}#
+                                              #{marks 19763}#)
+                                            (#{f 19522}#
+                                              (cdr #{ids 19721}#)
+                                              (#{1+}# #{i 19722}#)))))))))
+                               (#{f 19522}# #{ids 19515}# 0))
                              (vector
                                'ribcage
-                               #{symnamevec 19395}#
-                               #{marksvec 19396}#
-                               #{labelvec 19393}#)))))
-                     (cdr #{w 19392}#))))))
-   (#{same-marks? 4361}#
-     (lambda (#{x 36622}# #{y 36623}#)
-       (if (eq? #{x 36622}# #{y 36623}#)
-         (eq? #{x 36622}# #{y 36623}#)
-         (if (not (null? #{x 36622}#))
-           (if (not (null? #{y 36623}#))
-             (if (eq? (car #{x 36622}#) (car #{y 36623}#))
-               (#{same-marks? 4361}#
-                 (cdr #{x 36622}#)
-                 (cdr #{y 36623}#))
+                               #{symnamevec 19520}#
+                               #{marksvec 19521}#
+                               #{labelvec 19518}#)))))
+                     (cdr #{w 19517}#))))))
+   (#{same-marks? 4359}#
+     (lambda (#{x 36919}# #{y 36920}#)
+       (if (eq? #{x 36919}# #{y 36920}#)
+         (eq? #{x 36919}# #{y 36920}#)
+         (if (not (null? #{x 36919}#))
+           (if (not (null? #{y 36920}#))
+             (if (eq? (car #{x 36919}#) (car #{y 36920}#))
+               (#{same-marks? 4359}#
+                 (cdr #{x 36919}#)
+                 (cdr #{y 36920}#))
                #f)
              #f)
            #f))))
-   (#{id-var-name 4362}#
-     (lambda (#{id 19641}# #{w 19642}#)
+   (#{id-var-name 4360}#
+     (lambda (#{id 19770}# #{w 19771}#)
        (letrec*
-         ((#{search 19643}#
-            (lambda (#{sym 19704}# #{subst 19705}# #{marks 19706}#)
-              (if (null? #{subst 19705}#)
-                (values #f #{marks 19706}#)
-                (let ((#{fst 19707}# (car #{subst 19705}#)))
-                  (if (eq? #{fst 19707}# 'shift)
-                    (#{search 19643}#
-                      #{sym 19704}#
-                      (cdr #{subst 19705}#)
-                      (cdr #{marks 19706}#))
-                    (let ((#{symnames 19709}# (vector-ref #{fst 19707}# 1)))
-                      (if (vector? #{symnames 19709}#)
-                        (#{search-vector-rib 19645}#
-                          #{sym 19704}#
-                          #{subst 19705}#
-                          #{marks 19706}#
-                          #{symnames 19709}#
-                          #{fst 19707}#)
-                        (#{search-list-rib 19644}#
-                          #{sym 19704}#
-                          #{subst 19705}#
-                          #{marks 19706}#
-                          #{symnames 19709}#
-                          #{fst 19707}#))))))))
-          (#{search-list-rib 19644}#
-            (lambda (#{sym 19879}#
-                     #{subst 19880}#
-                     #{marks 19881}#
-                     #{symnames 19882}#
-                     #{ribcage 19883}#)
+         ((#{search 19772}#
+            (lambda (#{sym 19833}# #{subst 19834}# #{marks 19835}#)
+              (if (null? #{subst 19834}#)
+                (values #f #{marks 19835}#)
+                (let ((#{fst 19836}# (car #{subst 19834}#)))
+                  (if (eq? #{fst 19836}# 'shift)
+                    (#{search 19772}#
+                      #{sym 19833}#
+                      (cdr #{subst 19834}#)
+                      (cdr #{marks 19835}#))
+                    (let ((#{symnames 19838}# (vector-ref #{fst 19836}# 1)))
+                      (if (vector? #{symnames 19838}#)
+                        (#{search-vector-rib 19774}#
+                          #{sym 19833}#
+                          #{subst 19834}#
+                          #{marks 19835}#
+                          #{symnames 19838}#
+                          #{fst 19836}#)
+                        (#{search-list-rib 19773}#
+                          #{sym 19833}#
+                          #{subst 19834}#
+                          #{marks 19835}#
+                          #{symnames 19838}#
+                          #{fst 19836}#))))))))
+          (#{search-list-rib 19773}#
+            (lambda (#{sym 20008}#
+                     #{subst 20009}#
+                     #{marks 20010}#
+                     #{symnames 20011}#
+                     #{ribcage 20012}#)
               (letrec*
-                ((#{f 19884}#
-                   (lambda (#{symnames 19887}# #{i 19888}#)
-                     (if (null? #{symnames 19887}#)
-                       (#{search 19643}#
-                         #{sym 19879}#
-                         (cdr #{subst 19880}#)
-                         #{marks 19881}#)
-                       (if (if (eq? (car #{symnames 19887}#) #{sym 19879}#)
-                             (#{same-marks? 4361}#
-                               #{marks 19881}#
+                ((#{f 20013}#
+                   (lambda (#{symnames 20016}# #{i 20017}#)
+                     (if (null? #{symnames 20016}#)
+                       (#{search 19772}#
+                         #{sym 20008}#
+                         (cdr #{subst 20009}#)
+                         #{marks 20010}#)
+                       (if (if (eq? (car #{symnames 20016}#) #{sym 20008}#)
+                             (#{same-marks? 4359}#
+                               #{marks 20010}#
                                (list-ref
-                                 (vector-ref #{ribcage 19883}# 2)
-                                 #{i 19888}#))
+                                 (vector-ref #{ribcage 20012}# 2)
+                                 #{i 20017}#))
                              #f)
                          (values
                            (list-ref
-                             (vector-ref #{ribcage 19883}# 3)
-                             #{i 19888}#)
-                           #{marks 19881}#)
-                         (#{f 19884}#
-                           (cdr #{symnames 19887}#)
-                           (#{1+}# #{i 19888}#)))))))
-                (#{f 19884}# #{symnames 19882}# 0))))
-          (#{search-vector-rib 19645}#
-            (lambda (#{sym 20038}#
-                     #{subst 20039}#
-                     #{marks 20040}#
-                     #{symnames 20041}#
-                     #{ribcage 20042}#)
-              (let ((#{n 20043}# (vector-length #{symnames 20041}#)))
+                             (vector-ref #{ribcage 20012}# 3)
+                             #{i 20017}#)
+                           #{marks 20010}#)
+                         (#{f 20013}#
+                           (cdr #{symnames 20016}#)
+                           (#{1+}# #{i 20017}#)))))))
+                (#{f 20013}# #{symnames 20011}# 0))))
+          (#{search-vector-rib 19774}#
+            (lambda (#{sym 20167}#
+                     #{subst 20168}#
+                     #{marks 20169}#
+                     #{symnames 20170}#
+                     #{ribcage 20171}#)
+              (let ((#{n 20172}# (vector-length #{symnames 20170}#)))
                 (letrec*
-                  ((#{f 20044}#
-                     (lambda (#{i 20101}#)
-                       (if (= #{i 20101}# #{n 20043}#)
-                         (#{search 19643}#
-                           #{sym 20038}#
-                           (cdr #{subst 20039}#)
-                           #{marks 20040}#)
+                  ((#{f 20173}#
+                     (lambda (#{i 20230}#)
+                       (if (= #{i 20230}# #{n 20172}#)
+                         (#{search 19772}#
+                           #{sym 20167}#
+                           (cdr #{subst 20168}#)
+                           #{marks 20169}#)
                          (if (if (eq? (vector-ref
-                                        #{symnames 20041}#
-                                        #{i 20101}#)
-                                      #{sym 20038}#)
-                               (#{same-marks? 4361}#
-                                 #{marks 20040}#
+                                        #{symnames 20170}#
+                                        #{i 20230}#)
+                                      #{sym 20167}#)
+                               (#{same-marks? 4359}#
+                                 #{marks 20169}#
                                  (vector-ref
-                                   (vector-ref #{ribcage 20042}# 2)
-                                   #{i 20101}#))
+                                   (vector-ref #{ribcage 20171}# 2)
+                                   #{i 20230}#))
                                #f)
                            (values
                              (vector-ref
-                               (vector-ref #{ribcage 20042}# 3)
-                               #{i 20101}#)
-                             #{marks 20040}#)
-                           (#{f 20044}# (#{1+}# #{i 20101}#)))))))
-                  (#{f 20044}# 0))))))
-         (if (symbol? #{id 19641}#)
-           (let ((#{t 19646}#
-                   (#{search 19643}#
-                     #{id 19641}#
-                     (cdr #{w 19642}#)
-                     (car #{w 19642}#))))
-             (if #{t 19646}# #{t 19646}# #{id 19641}#))
-           (if (if (vector? #{id 19641}#)
-                 (if (= (vector-length #{id 19641}#) 4)
-                   (eq? (vector-ref #{id 19641}# 0) 'syntax-object)
+                               (vector-ref #{ribcage 20171}# 3)
+                               #{i 20230}#)
+                             #{marks 20169}#)
+                           (#{f 20173}# (#{1+}# #{i 20230}#)))))))
+                  (#{f 20173}# 0))))))
+         (if (symbol? #{id 19770}#)
+           (let ((#{t 19775}#
+                   (#{search 19772}#
+                     #{id 19770}#
+                     (cdr #{w 19771}#)
+                     (car #{w 19771}#))))
+             (if #{t 19775}# #{t 19775}# #{id 19770}#))
+           (if (if (vector? #{id 19770}#)
+                 (if (= (vector-length #{id 19770}#) 4)
+                   (eq? (vector-ref #{id 19770}# 0) 'syntax-object)
                    #f)
                  #f)
-             (let ((#{id 19661}# (vector-ref #{id 19641}# 1))
-                   (#{w1 19662}# (vector-ref #{id 19641}# 2)))
-               (let ((#{marks 19663}#
-                       (let ((#{m1 19673}# (car #{w 19642}#))
-                             (#{m2 19674}# (car #{w1 19662}#)))
-                         (if (null? #{m2 19674}#)
-                           #{m1 19673}#
-                           (append #{m1 19673}# #{m2 19674}#)))))
+             (let ((#{id 19790}# (vector-ref #{id 19770}# 1))
+                   (#{w1 19791}# (vector-ref #{id 19770}# 2)))
+               (let ((#{marks 19792}#
+                       (let ((#{m1 19802}# (car #{w 19771}#))
+                             (#{m2 19803}# (car #{w1 19791}#)))
+                         (if (null? #{m2 19803}#)
+                           #{m1 19802}#
+                           (append #{m1 19802}# #{m2 19803}#)))))
                  (call-with-values
                    (lambda ()
-                     (#{search 19643}#
-                       #{id 19661}#
-                       (cdr #{w 19642}#)
-                       #{marks 19663}#))
-                   (lambda (#{new-id 19690}# #{marks 19691}#)
-                     (if #{new-id 19690}#
-                       #{new-id 19690}#
-                       (let ((#{t 19699}#
-                               (#{search 19643}#
-                                 #{id 19661}#
-                                 (cdr #{w1 19662}#)
-                                 #{marks 19691}#)))
-                         (if #{t 19699}# #{t 19699}# #{id 19661}#)))))))
+                     (#{search 19772}#
+                       #{id 19790}#
+                       (cdr #{w 19771}#)
+                       #{marks 19792}#))
+                   (lambda (#{new-id 19819}# #{marks 19820}#)
+                     (if #{new-id 19819}#
+                       #{new-id 19819}#
+                       (let ((#{t 19828}#
+                               (#{search 19772}#
+                                 #{id 19790}#
+                                 (cdr #{w1 19791}#)
+                                 #{marks 19820}#)))
+                         (if #{t 19828}# #{t 19828}# #{id 19790}#)))))))
              (syntax-violation
                'id-var-name
                "invalid id"
-               #{id 19641}#))))))
-   (#{free-id=? 4363}#
-     (lambda (#{i 20251}# #{j 20252}#)
-       (let ((#{ni 20253}#
-               (#{id-var-name 4362}# #{i 20251}# '(())))
-             (#{nj 20254}#
-               (#{id-var-name 4362}# #{j 20252}# '(()))))
-         (if (eq? #{ni 20253}#
-                  (if (if (vector? #{i 20251}#)
-                        (if (= (vector-length #{i 20251}#) 4)
-                          (eq? (vector-ref #{i 20251}# 0) 'syntax-object)
+               #{id 19770}#))))))
+   (#{free-id=? 4361}#
+     (lambda (#{i 20380}# #{j 20381}#)
+       (let ((#{ni 20382}#
+               (#{id-var-name 4360}# #{i 20380}# '(())))
+             (#{nj 20383}#
+               (#{id-var-name 4360}# #{j 20381}# '(()))))
+         (if (eq? #{ni 20382}#
+                  (if (if (vector? #{i 20380}#)
+                        (if (= (vector-length #{i 20380}#) 4)
+                          (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (vector-ref #{i 20251}# 1)
-                    #{i 20251}#))
-           (if (eq? #{nj 20254}#
-                    (if (if (vector? #{j 20252}#)
-                          (if (= (vector-length #{j 20252}#) 4)
-                            (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+                    (vector-ref #{i 20380}# 1)
+                    #{i 20380}#))
+           (if (eq? #{nj 20383}#
+                    (if (if (vector? #{j 20381}#)
+                          (if (= (vector-length #{j 20381}#) 4)
+                            (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
                             #f)
                           #f)
-                      (vector-ref #{j 20252}# 1)
-                      #{j 20252}#))
-             (if (let ((#{bi 20312}#
-                         (let ((#{mod 20581}#
-                                 (if (if (vector? #{i 20251}#)
-                                       (if (= (vector-length #{i 20251}#) 4)
-                                         (eq? (vector-ref #{i 20251}# 0)
+                      (vector-ref #{j 20381}# 1)
+                      #{j 20381}#))
+             (if (let ((#{bi 20441}#
+                         (let ((#{mod 20710}#
+                                 (if (if (vector? #{i 20380}#)
+                                       (if (= (vector-length #{i 20380}#) 4)
+                                         (eq? (vector-ref #{i 20380}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
-                                   (vector-ref #{i 20251}# 3)
+                                   (vector-ref #{i 20380}# 3)
                                    #f)))
                            (module-variable
-                             (if #{mod 20581}#
-                               (resolve-module (cdr #{mod 20581}#))
+                             (if #{mod 20710}#
+                               (resolve-module (cdr #{mod 20710}#))
                                (current-module))
-                             (if (if (vector? #{i 20251}#)
-                                   (if (= (vector-length #{i 20251}#) 4)
-                                     (eq? (vector-ref #{i 20251}# 0)
+                             (if (if (vector? #{i 20380}#)
+                                   (if (= (vector-length #{i 20380}#) 4)
+                                     (eq? (vector-ref #{i 20380}# 0)
                                           'syntax-object)
                                      #f)
                                    #f)
-                               (vector-ref #{i 20251}# 1)
-                               #{i 20251}#)))))
-                   (if #{bi 20312}#
-                     (eq? #{bi 20312}#
-                          (let ((#{mod 20425}#
-                                  (if (if (vector? #{j 20252}#)
-                                        (if (= (vector-length #{j 20252}#) 4)
-                                          (eq? (vector-ref #{j 20252}# 0)
+                               (vector-ref #{i 20380}# 1)
+                               #{i 20380}#)))))
+                   (if #{bi 20441}#
+                     (eq? #{bi 20441}#
+                          (let ((#{mod 20554}#
+                                  (if (if (vector? #{j 20381}#)
+                                        (if (= (vector-length #{j 20381}#) 4)
+                                          (eq? (vector-ref #{j 20381}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (vector-ref #{j 20252}# 3)
+                                    (vector-ref #{j 20381}# 3)
                                     #f)))
                             (module-variable
-                              (if #{mod 20425}#
-                                (resolve-module (cdr #{mod 20425}#))
+                              (if #{mod 20554}#
+                                (resolve-module (cdr #{mod 20554}#))
                                 (current-module))
-                              (if (if (vector? #{j 20252}#)
-                                    (if (= (vector-length #{j 20252}#) 4)
-                                      (eq? (vector-ref #{j 20252}# 0)
+                              (if (if (vector? #{j 20381}#)
+                                    (if (= (vector-length #{j 20381}#) 4)
+                                      (eq? (vector-ref #{j 20381}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
-                                (vector-ref #{j 20252}# 1)
-                                #{j 20252}#))))
-                     (if (not (let ((#{mod 20503}#
-                                      (if (if (vector? #{j 20252}#)
-                                            (if (= (vector-length #{j 20252}#)
+                                (vector-ref #{j 20381}# 1)
+                                #{j 20381}#))))
+                     (if (not (let ((#{mod 20632}#
+                                      (if (if (vector? #{j 20381}#)
+                                            (if (= (vector-length #{j 20381}#)
                                                    4)
-                                              (eq? (vector-ref #{j 20252}# 0)
+                                              (eq? (vector-ref #{j 20381}# 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (vector-ref #{j 20252}# 3)
+                                        (vector-ref #{j 20381}# 3)
                                         #f)))
                                 (module-variable
-                                  (if #{mod 20503}#
-                                    (resolve-module (cdr #{mod 20503}#))
+                                  (if #{mod 20632}#
+                                    (resolve-module (cdr #{mod 20632}#))
                                     (current-module))
-                                  (if (if (vector? #{j 20252}#)
-                                        (if (= (vector-length #{j 20252}#) 4)
-                                          (eq? (vector-ref #{j 20252}# 0)
+                                  (if (if (vector? #{j 20381}#)
+                                        (if (= (vector-length #{j 20381}#) 4)
+                                          (eq? (vector-ref #{j 20381}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (vector-ref #{j 20252}# 1)
-                                    #{j 20252}#))))
-                       (eq? #{ni 20253}# #{nj 20254}#)
+                                    (vector-ref #{j 20381}# 1)
+                                    #{j 20381}#))))
+                       (eq? #{ni 20382}# #{nj 20383}#)
                        #f)))
-               (eq? (let ((#{mod 20659}#
-                            (if (if (vector? #{i 20251}#)
-                                  (if (= (vector-length #{i 20251}#) 4)
-                                    (eq? (vector-ref #{i 20251}# 0)
+               (eq? (let ((#{mod 20788}#
+                            (if (if (vector? #{i 20380}#)
+                                  (if (= (vector-length #{i 20380}#) 4)
+                                    (eq? (vector-ref #{i 20380}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
-                              (vector-ref #{i 20251}# 3)
+                              (vector-ref #{i 20380}# 3)
                               #f)))
                       (module-variable
-                        (if #{mod 20659}#
-                          (resolve-module (cdr #{mod 20659}#))
+                        (if #{mod 20788}#
+                          (resolve-module (cdr #{mod 20788}#))
                           (current-module))
-                        (if (if (vector? #{i 20251}#)
-                              (if (= (vector-length #{i 20251}#) 4)
-                                (eq? (vector-ref #{i 20251}# 0) 'syntax-object)
+                        (if (if (vector? #{i 20380}#)
+                              (if (= (vector-length #{i 20380}#) 4)
+                                (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
                                 #f)
                               #f)
-                          (vector-ref #{i 20251}# 1)
-                          #{i 20251}#)))
-                    (let ((#{mod 20737}#
-                            (if (if (vector? #{j 20252}#)
-                                  (if (= (vector-length #{j 20252}#) 4)
-                                    (eq? (vector-ref #{j 20252}# 0)
+                          (vector-ref #{i 20380}# 1)
+                          #{i 20380}#)))
+                    (let ((#{mod 20866}#
+                            (if (if (vector? #{j 20381}#)
+                                  (if (= (vector-length #{j 20381}#) 4)
+                                    (eq? (vector-ref #{j 20381}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
-                              (vector-ref #{j 20252}# 3)
+                              (vector-ref #{j 20381}# 3)
                               #f)))
                       (module-variable
-                        (if #{mod 20737}#
-                          (resolve-module (cdr #{mod 20737}#))
+                        (if #{mod 20866}#
+                          (resolve-module (cdr #{mod 20866}#))
                           (current-module))
-                        (if (if (vector? #{j 20252}#)
-                              (if (= (vector-length #{j 20252}#) 4)
-                                (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+                        (if (if (vector? #{j 20381}#)
+                              (if (= (vector-length #{j 20381}#) 4)
+                                (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
                                 #f)
                               #f)
-                          (vector-ref #{j 20252}# 1)
-                          #{j 20252}#))))
+                          (vector-ref #{j 20381}# 1)
+                          #{j 20381}#))))
                #f)
              #f)
-           (if (eq? #{ni 20253}# #{nj 20254}#)
-             (not (eq? #{nj 20254}#
-                       (if (if (vector? #{j 20252}#)
-                             (if (= (vector-length #{j 20252}#) 4)
-                               (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+           (if (eq? #{ni 20382}# #{nj 20383}#)
+             (not (eq? #{nj 20383}#
+                       (if (if (vector? #{j 20381}#)
+                             (if (= (vector-length #{j 20381}#) 4)
+                               (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
                                #f)
                              #f)
-                         (vector-ref #{j 20252}# 1)
-                         #{j 20252}#)))
+                         (vector-ref #{j 20381}# 1)
+                         #{j 20381}#)))
              #f)))))
-   (#{bound-id=? 4364}#
-     (lambda (#{i 20837}# #{j 20838}#)
-       (if (if (if (vector? #{i 20837}#)
-                 (if (= (vector-length #{i 20837}#) 4)
-                   (eq? (vector-ref #{i 20837}# 0) 'syntax-object)
+   (#{bound-id=? 4362}#
+     (lambda (#{i 20966}# #{j 20967}#)
+       (if (if (if (vector? #{i 20966}#)
+                 (if (= (vector-length #{i 20966}#) 4)
+                   (eq? (vector-ref #{i 20966}# 0) 'syntax-object)
                    #f)
                  #f)
-             (if (vector? #{j 20838}#)
-               (if (= (vector-length #{j 20838}#) 4)
-                 (eq? (vector-ref #{j 20838}# 0) 'syntax-object)
+             (if (vector? #{j 20967}#)
+               (if (= (vector-length #{j 20967}#) 4)
+                 (eq? (vector-ref #{j 20967}# 0) 'syntax-object)
                  #f)
                #f)
              #f)
-         (if (eq? (vector-ref #{i 20837}# 1)
-                  (vector-ref #{j 20838}# 1))
-           (#{same-marks? 4361}#
-             (car (vector-ref #{i 20837}# 2))
-             (car (vector-ref #{j 20838}# 2)))
+         (if (eq? (vector-ref #{i 20966}# 1)
+                  (vector-ref #{j 20967}# 1))
+           (#{same-marks? 4359}#
+             (car (vector-ref #{i 20966}# 2))
+             (car (vector-ref #{j 20967}# 2)))
            #f)
-         (eq? #{i 20837}# #{j 20838}#))))
-   (#{valid-bound-ids? 4365}#
-     (lambda (#{ids 21007}#)
+         (eq? #{i 20966}# #{j 20967}#))))
+   (#{valid-bound-ids? 4363}#
+     (lambda (#{ids 21136}#)
        (if (letrec*
-             ((#{all-ids? 21008}#
-                (lambda (#{ids 21198}#)
-                  (if (null? #{ids 21198}#)
-                    (null? #{ids 21198}#)
-                    (if (let ((#{x 21209}# (car #{ids 21198}#)))
-                          (if (symbol? #{x 21209}#)
+             ((#{all-ids? 21137}#
+                (lambda (#{ids 21334}#)
+                  (if (null? #{ids 21334}#)
+                    (null? #{ids 21334}#)
+                    (if (let ((#{x 21345}# (car #{ids 21334}#)))
+                          (if (symbol? #{x 21345}#)
                             #t
-                            (if (if (vector? #{x 21209}#)
-                                  (if (= (vector-length #{x 21209}#) 4)
-                                    (eq? (vector-ref #{x 21209}# 0)
+                            (if (if (vector? #{x 21345}#)
+                                  (if (= (vector-length #{x 21345}#) 4)
+                                    (eq? (vector-ref #{x 21345}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
-                              (symbol? (vector-ref #{x 21209}# 1))
+                              (symbol? (vector-ref #{x 21345}# 1))
                               #f)))
-                      (#{all-ids? 21008}# (cdr #{ids 21198}#))
+                      (#{all-ids? 21137}# (cdr #{ids 21334}#))
                       #f)))))
-             (#{all-ids? 21008}# #{ids 21007}#))
-         (#{distinct-bound-ids? 4366}# #{ids 21007}#)
+             (#{all-ids? 21137}# #{ids 21136}#))
+         (#{distinct-bound-ids? 4364}# #{ids 21136}#)
          #f)))
-   (#{distinct-bound-ids? 4366}#
-     (lambda (#{ids 21330}#)
+   (#{distinct-bound-ids? 4364}#
+     (lambda (#{ids 21466}#)
        (letrec*
-         ((#{distinct? 21331}#
-            (lambda (#{ids 21436}#)
-              (if (null? #{ids 21436}#)
-                (null? #{ids 21436}#)
-                (if (not (#{bound-id-member? 4367}#
-                           (car #{ids 21436}#)
-                           (cdr #{ids 21436}#)))
-                  (#{distinct? 21331}# (cdr #{ids 21436}#))
+         ((#{distinct? 21467}#
+            (lambda (#{ids 21572}#)
+              (if (null? #{ids 21572}#)
+                (null? #{ids 21572}#)
+                (if (not (#{bound-id-member? 4365}#
+                           (car #{ids 21572}#)
+                           (cdr #{ids 21572}#)))
+                  (#{distinct? 21467}# (cdr #{ids 21572}#))
                   #f)))))
-         (#{distinct? 21331}# #{ids 21330}#))))
-   (#{bound-id-member? 4367}#
-     (lambda (#{x 21532}# #{list 21533}#)
-       (if (not (null? #{list 21533}#))
-         (let ((#{t 21534}#
-                 (#{bound-id=? 4364}#
-                   #{x 21532}#
-                   (car #{list 21533}#))))
-           (if #{t 21534}#
-             #{t 21534}#
-             (#{bound-id-member? 4367}#
-               #{x 21532}#
-               (cdr #{list 21533}#))))
+         (#{distinct? 21467}# #{ids 21466}#))))
+   (#{bound-id-member? 4365}#
+     (lambda (#{x 21668}# #{list 21669}#)
+       (if (not (null? #{list 21669}#))
+         (let ((#{t 21670}#
+                 (#{bound-id=? 4362}#
+                   #{x 21668}#
+                   (car #{list 21669}#))))
+           (if #{t 21670}#
+             #{t 21670}#
+             (#{bound-id-member? 4365}#
+               #{x 21668}#
+               (cdr #{list 21669}#))))
          #f)))
-   (#{source-wrap 4369}#
-     (lambda (#{x 21708}#
-              #{w 21709}#
-              #{s 21710}#
-              #{defmod 21711}#)
-       (let ((#{x 21715}#
+   (#{source-wrap 4367}#
+     (lambda (#{x 21848}#
+              #{w 21849}#
+              #{s 21850}#
+              #{defmod 21851}#)
+       (let ((#{x 21855}#
                (begin
-                 (if (if (pair? #{x 21708}#) #{s 21710}# #f)
-                   (set-source-properties! #{x 21708}# #{s 21710}#))
-                 #{x 21708}#)))
-         (if (if (null? (car #{w 21709}#))
-               (null? (cdr #{w 21709}#))
+                 (if (if (pair? #{x 21848}#) #{s 21850}# #f)
+                   (set-source-properties! #{x 21848}# #{s 21850}#))
+                 #{x 21848}#)))
+         (if (if (null? (car #{w 21849}#))
+               (null? (cdr #{w 21849}#))
                #f)
-           #{x 21715}#
-           (if (if (vector? #{x 21715}#)
-                 (if (= (vector-length #{x 21715}#) 4)
-                   (eq? (vector-ref #{x 21715}# 0) 'syntax-object)
+           #{x 21855}#
+           (if (if (vector? #{x 21855}#)
+                 (if (= (vector-length #{x 21855}#) 4)
+                   (eq? (vector-ref #{x 21855}# 0) 'syntax-object)
                    #f)
                  #f)
-             (let ((#{expression 21747}# (vector-ref #{x 21715}# 1))
-                   (#{wrap 21748}#
-                     (let ((#{w2 21756}# (vector-ref #{x 21715}# 2)))
-                       (let ((#{m1 21757}# (car #{w 21709}#))
-                             (#{s1 21758}# (cdr #{w 21709}#)))
-                         (if (null? #{m1 21757}#)
-                           (if (null? #{s1 21758}#)
-                             #{w2 21756}#
-                             (cons (car #{w2 21756}#)
-                                   (let ((#{m2 21773}# (cdr #{w2 21756}#)))
-                                     (if (null? #{m2 21773}#)
-                                       #{s1 21758}#
-                                       (append #{s1 21758}# #{m2 21773}#)))))
-                           (cons (let ((#{m2 21781}# (car #{w2 21756}#)))
-                                   (if (null? #{m2 21781}#)
-                                     #{m1 21757}#
-                                     (append #{m1 21757}# #{m2 21781}#)))
-                                 (let ((#{m2 21789}# (cdr #{w2 21756}#)))
-                                   (if (null? #{m2 21789}#)
-                                     #{s1 21758}#
-                                     (append #{s1 21758}# #{m2 21789}#))))))))
-                   (#{module 21749}# (vector-ref #{x 21715}# 3)))
+             (let ((#{expression 21887}# (vector-ref #{x 21855}# 1))
+                   (#{wrap 21888}#
+                     (let ((#{w2 21896}# (vector-ref #{x 21855}# 2)))
+                       (let ((#{m1 21897}# (car #{w 21849}#))
+                             (#{s1 21898}# (cdr #{w 21849}#)))
+                         (if (null? #{m1 21897}#)
+                           (if (null? #{s1 21898}#)
+                             #{w2 21896}#
+                             (cons (car #{w2 21896}#)
+                                   (let ((#{m2 21913}# (cdr #{w2 21896}#)))
+                                     (if (null? #{m2 21913}#)
+                                       #{s1 21898}#
+                                       (append #{s1 21898}# #{m2 21913}#)))))
+                           (cons (let ((#{m2 21921}# (car #{w2 21896}#)))
+                                   (if (null? #{m2 21921}#)
+                                     #{m1 21897}#
+                                     (append #{m1 21897}# #{m2 21921}#)))
+                                 (let ((#{m2 21929}# (cdr #{w2 21896}#)))
+                                   (if (null? #{m2 21929}#)
+                                     #{s1 21898}#
+                                     (append #{s1 21898}# #{m2 21929}#))))))))
+                   (#{module 21889}# (vector-ref #{x 21855}# 3)))
                (vector
                  'syntax-object
-                 #{expression 21747}#
-                 #{wrap 21748}#
-                 #{module 21749}#))
-             (if (null? #{x 21715}#)
-               #{x 21715}#
+                 #{expression 21887}#
+                 #{wrap 21888}#
+                 #{module 21889}#))
+             (if (null? #{x 21855}#)
+               #{x 21855}#
                (vector
                  'syntax-object
-                 #{x 21715}#
-                 #{w 21709}#
-                 #{defmod 21711}#)))))))
-   (#{chi-sequence 4370}#
-     (lambda (#{body 36631}#
-              #{r 36632}#
-              #{w 36633}#
-              #{s 36634}#
-              #{mod 36635}#)
-       (#{build-sequence 4324}#
-         #{s 36634}#
+                 #{x 21855}#
+                 #{w 21849}#
+                 #{defmod 21851}#)))))))
+   (#{chi-sequence 4368}#
+     (lambda (#{body 36928}#
+              #{r 36929}#
+              #{w 36930}#
+              #{s 36931}#
+              #{mod 36932}#)
+       (#{build-sequence 4322}#
+         #{s 36931}#
          (letrec*
-           ((#{dobody 36725}#
-              (lambda (#{body 36810}#
-                       #{r 36811}#
-                       #{w 36812}#
-                       #{mod 36813}#)
-                (if (null? #{body 36810}#)
+           ((#{dobody 37024}#
+              (lambda (#{body 37111}#
+                       #{r 37112}#
+                       #{w 37113}#
+                       #{mod 37114}#)
+                (if (null? #{body 37111}#)
                   '()
-                  (let ((#{first 36814}#
-                          (#{chi 4375}#
-                            (car #{body 36810}#)
-                            #{r 36811}#
-                            #{w 36812}#
-                            #{mod 36813}#)))
-                    (cons #{first 36814}#
-                          (#{dobody 36725}#
-                            (cdr #{body 36810}#)
-                            #{r 36811}#
-                            #{w 36812}#
-                            #{mod 36813}#)))))))
-           (#{dobody 36725}#
-             #{body 36631}#
-             #{r 36632}#
-             #{w 36633}#
-             #{mod 36635}#)))))
-   (#{chi-top-sequence 4371}#
-     (lambda (#{body 21804}#
-              #{r 21805}#
-              #{w 21806}#
-              #{s 21807}#
-              #{m 21808}#
-              #{esew 21809}#
-              #{mod 21810}#)
+                  (let ((#{first 37115}#
+                          (#{chi 4373}#
+                            (car #{body 37111}#)
+                            #{r 37112}#
+                            #{w 37113}#
+                            #{mod 37114}#)))
+                    (cons #{first 37115}#
+                          (#{dobody 37024}#
+                            (cdr #{body 37111}#)
+                            #{r 37112}#
+                            #{w 37113}#
+                            #{mod 37114}#)))))))
+           (#{dobody 37024}#
+             #{body 36928}#
+             #{r 36929}#
+             #{w 36930}#
+             #{mod 36932}#)))))
+   (#{chi-top-sequence 4369}#
+     (lambda (#{body 21944}#
+              #{r 21945}#
+              #{w 21946}#
+              #{s 21947}#
+              #{m 21948}#
+              #{esew 21949}#
+              #{mod 21950}#)
        (letrec*
-         ((#{scan 21811}#
-            (lambda (#{body 21958}#
-                     #{r 21959}#
-                     #{w 21960}#
-                     #{s 21961}#
-                     #{m 21962}#
-                     #{esew 21963}#
-                     #{mod 21964}#
-                     #{exps 21965}#)
-              (if (null? #{body 21958}#)
-                #{exps 21965}#
-                (call-with-values
-                  (lambda ()
-                    (call-with-values
-                      (lambda ()
-                        (let ((#{e 21966}# (car #{body 21958}#)))
-                          (#{syntax-type 4374}#
-                            #{e 21966}#
-                            #{r 21959}#
-                            #{w 21960}#
-                            (let ((#{t 21970}#
-                                    (#{source-annotation 4336}# #{e 21966}#)))
-                              (if #{t 21970}# #{t 21970}# #{s 21961}#))
-                            #f
-                            #{mod 21964}#
-                            #f)))
-                      (lambda (#{type 22252}#
-                               #{value 22253}#
-                               #{e 22254}#
-                               #{w 22255}#
-                               #{s 22256}#
-                               #{mod 22257}#)
-                        (if (eqv? #{type 22252}# 'begin-form)
-                          (let ((#{tmp 22262}#
-                                  ($sc-dispatch #{e 22254}# '(_))))
-                            (if #{tmp 22262}#
-                              (@apply (lambda () #{exps 21965}#) #{tmp 22262}#)
-                              (let ((#{tmp 22266}#
-                                      ($sc-dispatch
-                                        #{e 22254}#
-                                        '(_ any . each-any))))
-                                (if #{tmp 22266}#
-                                  (@apply
-                                    (lambda (#{e1 22270}# #{e2 22271}#)
-                                      (#{scan 21811}#
-                                        (cons #{e1 22270}# #{e2 22271}#)
-                                        #{r 21959}#
-                                        #{w 22255}#
-                                        #{s 22256}#
-                                        #{m 21962}#
-                                        #{esew 21963}#
-                                        #{mod 22257}#
-                                        #{exps 21965}#))
-                                    #{tmp 22266}#)
-                                  (syntax-violation
-                                    #f
-                                    "source expression failed to match any 
pattern"
-                                    #{e 22254}#)))))
-                          (if (eqv? #{type 22252}# 'local-syntax-form)
-                            (#{chi-local-syntax 4380}#
-                              #{value 22253}#
-                              #{e 22254}#
-                              #{r 21959}#
-                              #{w 22255}#
-                              #{s 22256}#
-                              #{mod 22257}#
-                              (lambda (#{body 22286}#
-                                       #{r 22287}#
-                                       #{w 22288}#
-                                       #{s 22289}#
-                                       #{mod 22290}#)
-                                (#{scan 21811}#
-                                  #{body 22286}#
-                                  #{r 22287}#
-                                  #{w 22288}#
-                                  #{s 22289}#
-                                  #{m 21962}#
-                                  #{esew 21963}#
-                                  #{mod 22290}#
-                                  #{exps 21965}#)))
-                            (if (eqv? #{type 22252}# 'eval-when-form)
-                              (let ((#{tmp 22295}#
-                                      ($sc-dispatch
-                                        #{e 22254}#
-                                        '(_ each-any any . each-any))))
-                                (if #{tmp 22295}#
-                                  (@apply
-                                    (lambda (#{x 22299}#
-                                             #{e1 22300}#
-                                             #{e2 22301}#)
-                                      (let ((#{when-list 22302}#
-                                              (#{chi-when-list 4373}#
-                                                #{e 22254}#
-                                                #{x 22299}#
-                                                #{w 22255}#))
-                                            (#{body 22303}#
-                                              (cons #{e1 22300}#
-                                                    #{e2 22301}#)))
-                                        (if (eq? #{m 21962}# 'e)
-                                          (if (memq 'eval #{when-list 22302}#)
-                                            (#{scan 21811}#
-                                              #{body 22303}#
-                                              #{r 21959}#
-                                              #{w 22255}#
-                                              #{s 22256}#
-                                              (if (memq 'expand
-                                                        #{when-list 22302}#)
-                                                'c&e
-                                                'e)
-                                              '(eval)
-                                              #{mod 22257}#
-                                              #{exps 21965}#)
+         ((#{scan 21951}#
+            (lambda (#{body 22098}#
+                     #{r 22099}#
+                     #{w 22100}#
+                     #{s 22101}#
+                     #{m 22102}#
+                     #{esew 22103}#
+                     #{mod 22104}#
+                     #{exps 22105}#)
+              (if (null? #{body 22098}#)
+                #{exps 22105}#
+                (#{scan 21951}#
+                  (cdr #{body 22098}#)
+                  #{r 22099}#
+                  #{w 22100}#
+                  #{s 22101}#
+                  #{m 22102}#
+                  #{esew 22103}#
+                  #{mod 22104}#
+                  (call-with-values
+                    (lambda ()
+                      (let ((#{e 22106}# (car #{body 22098}#)))
+                        (#{syntax-type 4372}#
+                          #{e 22106}#
+                          #{r 22099}#
+                          #{w 22100}#
+                          (let ((#{t 22110}#
+                                  (#{source-annotation 4334}# #{e 22106}#)))
+                            (if #{t 22110}# #{t 22110}# #{s 22101}#))
+                          #f
+                          #{mod 22104}#
+                          #f)))
+                    (lambda (#{type 22408}#
+                             #{value 22409}#
+                             #{e 22410}#
+                             #{w 22411}#
+                             #{s 22412}#
+                             #{mod 22413}#)
+                      (if (eqv? #{type 22408}# 'begin-form)
+                        (let ((#{tmp 22418}# ($sc-dispatch #{e 22410}# '(_))))
+                          (if #{tmp 22418}#
+                            (@apply (lambda () #{exps 22105}#) #{tmp 22418}#)
+                            (let ((#{tmp 22422}#
+                                    ($sc-dispatch
+                                      #{e 22410}#
+                                      '(_ any . each-any))))
+                              (if #{tmp 22422}#
+                                (@apply
+                                  (lambda (#{e1 22426}# #{e2 22427}#)
+                                    (#{scan 21951}#
+                                      (cons #{e1 22426}# #{e2 22427}#)
+                                      #{r 22099}#
+                                      #{w 22411}#
+                                      #{s 22412}#
+                                      #{m 22102}#
+                                      #{esew 22103}#
+                                      #{mod 22413}#
+                                      #{exps 22105}#))
+                                  #{tmp 22422}#)
+                                (syntax-violation
+                                  #f
+                                  "source expression failed to match any 
pattern"
+                                  #{e 22410}#)))))
+                        (if (eqv? #{type 22408}# 'local-syntax-form)
+                          (#{chi-local-syntax 4378}#
+                            #{value 22409}#
+                            #{e 22410}#
+                            #{r 22099}#
+                            #{w 22411}#
+                            #{s 22412}#
+                            #{mod 22413}#
+                            (lambda (#{body 22442}#
+                                     #{r 22443}#
+                                     #{w 22444}#
+                                     #{s 22445}#
+                                     #{mod 22446}#)
+                              (#{scan 21951}#
+                                #{body 22442}#
+                                #{r 22443}#
+                                #{w 22444}#
+                                #{s 22445}#
+                                #{m 22102}#
+                                #{esew 22103}#
+                                #{mod 22446}#
+                                #{exps 22105}#)))
+                          (if (eqv? #{type 22408}# 'eval-when-form)
+                            (let ((#{tmp 22451}#
+                                    ($sc-dispatch
+                                      #{e 22410}#
+                                      '(_ each-any any . each-any))))
+                              (if #{tmp 22451}#
+                                (@apply
+                                  (lambda (#{x 22455}#
+                                           #{e1 22456}#
+                                           #{e2 22457}#)
+                                    (let ((#{when-list 22458}#
+                                            (#{chi-when-list 4371}#
+                                              #{e 22410}#
+                                              #{x 22455}#
+                                              #{w 22411}#))
+                                          (#{body 22459}#
+                                            (cons #{e1 22456}# #{e2 22457}#)))
+                                      (if (eq? #{m 22102}# 'e)
+                                        (if (memq 'eval #{when-list 22458}#)
+                                          (#{scan 21951}#
+                                            #{body 22459}#
+                                            #{r 22099}#
+                                            #{w 22411}#
+                                            #{s 22412}#
+                                            (if (memq 'expand
+                                                      #{when-list 22458}#)
+                                              'c&e
+                                              'e)
+                                            '(eval)
+                                            #{mod 22413}#
+                                            #{exps 22105}#)
+                                          (begin
+                                            (if (memq 'expand
+                                                      #{when-list 22458}#)
+                                              (let ((#{x 22466}#
+                                                      (#{chi-top-sequence 
4369}#
+                                                        #{body 22459}#
+                                                        #{r 22099}#
+                                                        #{w 22411}#
+                                                        #{s 22412}#
+                                                        'e
+                                                        '(eval)
+                                                        #{mod 22413}#)))
+                                                (primitive-eval #{x 22466}#)))
+                                            #{exps 22105}#))
+                                        (if (memq 'load #{when-list 22458}#)
+                                          (if (let ((#{t 22468}#
+                                                      (memq 'compile
+                                                            #{when-list 
22458}#)))
+                                                (if #{t 22468}#
+                                                  #{t 22468}#
+                                                  (let ((#{t 22470}#
+                                                          (memq 'expand
+                                                                #{when-list 
22458}#)))
+                                                    (if #{t 22470}#
+                                                      #{t 22470}#
+                                                      (if (eq? #{m 22102}#
+                                                               'c&e)
+                                                        (memq 'eval
+                                                              #{when-list 
22458}#)
+                                                        #f)))))
+                                            (#{scan 21951}#
+                                              #{body 22459}#
+                                              #{r 22099}#
+                                              #{w 22411}#
+                                              #{s 22412}#
+                                              'c&e
+                                              '(compile load)
+                                              #{mod 22413}#
+                                              #{exps 22105}#)
+                                            (if (if (eq? #{m 22102}# 'c)
+                                                  #t
+                                                  (eq? #{m 22102}# 'c&e))
+                                              (#{scan 21951}#
+                                                #{body 22459}#
+                                                #{r 22099}#
+                                                #{w 22411}#
+                                                #{s 22412}#
+                                                'c
+                                                '(load)
+                                                #{mod 22413}#
+                                                #{exps 22105}#)
+                                              #{exps 22105}#))
+                                          (if (let ((#{t 22480}#
+                                                      (memq 'compile
+                                                            #{when-list 
22458}#)))
+                                                (if #{t 22480}#
+                                                  #{t 22480}#
+                                                  (let ((#{t 22482}#
+                                                          (memq 'expand
+                                                                #{when-list 
22458}#)))
+                                                    (if #{t 22482}#
+                                                      #{t 22482}#
+                                                      (if (eq? #{m 22102}#
+                                                               'c&e)
+                                                        (memq 'eval
+                                                              #{when-list 
22458}#)
+                                                        #f)))))
                                             (begin
-                                              (if (memq 'expand
-                                                        #{when-list 22302}#)
-                                                (let ((#{x 22310}#
-                                                        (#{chi-top-sequence 
4371}#
-                                                          #{body 22303}#
-                                                          #{r 21959}#
-                                                          #{w 22255}#
-                                                          #{s 22256}#
-                                                          'e
-                                                          '(eval)
-                                                          #{mod 22257}#)))
-                                                  (primitive-eval
-                                                    #{x 22310}#)))
-                                              (values #{exps 21965}#)))
-                                          (if (memq 'load #{when-list 22302}#)
-                                            (if (let ((#{t 22312}#
-                                                        (memq 'compile
-                                                              #{when-list 
22302}#)))
-                                                  (if #{t 22312}#
-                                                    #{t 22312}#
-                                                    (let ((#{t 22314}#
-                                                            (memq 'expand
-                                                                  #{when-list 
22302}#)))
-                                                      (if #{t 22314}#
-                                                        #{t 22314}#
-                                                        (if (eq? #{m 21962}#
-                                                                 'c&e)
-                                                          (memq 'eval
-                                                                #{when-list 
22302}#)
-                                                          #f)))))
-                                              (#{scan 21811}#
-                                                #{body 22303}#
-                                                #{r 21959}#
-                                                #{w 22255}#
-                                                #{s 22256}#
-                                                'c&e
-                                                '(compile load)
-                                                #{mod 22257}#
-                                                #{exps 21965}#)
-                                              (if (if (eq? #{m 21962}# 'c)
-                                                    #t
-                                                    (eq? #{m 21962}# 'c&e))
-                                                (#{scan 21811}#
-                                                  #{body 22303}#
-                                                  #{r 21959}#
-                                                  #{w 22255}#
-                                                  #{s 22256}#
-                                                  'c
-                                                  '(load)
-                                                  #{mod 22257}#
-                                                  #{exps 21965}#)
-                                                (values #{exps 21965}#)))
-                                            (if (let ((#{t 22324}#
-                                                        (memq 'compile
-                                                              #{when-list 
22302}#)))
-                                                  (if #{t 22324}#
-                                                    #{t 22324}#
-                                                    (let ((#{t 22326}#
-                                                            (memq 'expand
-                                                                  #{when-list 
22302}#)))
-                                                      (if #{t 22326}#
-                                                        #{t 22326}#
-                                                        (if (eq? #{m 21962}#
-                                                                 'c&e)
-                                                          (memq 'eval
-                                                                #{when-list 
22302}#)
-                                                          #f)))))
-                                              (begin
-                                                (let ((#{x 22331}#
-                                                        (#{chi-top-sequence 
4371}#
-                                                          #{body 22303}#
-                                                          #{r 21959}#
-                                                          #{w 22255}#
-                                                          #{s 22256}#
-                                                          'e
-                                                          '(eval)
-                                                          #{mod 22257}#)))
-                                                  (primitive-eval #{x 22331}#))
-                                                (values #{exps 21965}#))
-                                              (values #{exps 21965}#))))))
-                                    #{tmp 22295}#)
-                                  (syntax-violation
-                                    #f
-                                    "source expression failed to match any 
pattern"
-                                    #{e 22254}#)))
-                              (if (eqv? #{type 22252}# 'define-syntax-form)
-                                (let ((#{n 22342}#
-                                        (#{id-var-name 4362}#
-                                          #{value 22253}#
-                                          #{w 22255}#))
-                                      (#{r 22343}#
-                                        (#{macros-only-env 4339}#
-                                          #{r 21959}#)))
-                                  (if (eqv? #{m 21962}# 'c)
-                                    (if (memq 'compile #{esew 21963}#)
-                                      (let ((#{e 22347}#
-                                              (#{chi-install-global 4372}#
-                                                #{n 22342}#
-                                                (#{chi 4375}#
-                                                  #{e 22254}#
-                                                  #{r 22343}#
-                                                  #{w 22255}#
-                                                  #{mod 22257}#))))
-                                        (begin
-                                          (#{top-level-eval-hook 4302}#
-                                            #{e 22347}#
-                                            #{mod 22257}#)
-                                          (if (memq 'load #{esew 21963}#)
-                                            (values
-                                              (cons #{e 22347}#
-                                                    #{exps 21965}#))
-                                            (values #{exps 21965}#))))
-                                      (if (memq 'load #{esew 21963}#)
-                                        (values
-                                          (cons (#{chi-install-global 4372}#
-                                                  #{n 22342}#
-                                                  (#{chi 4375}#
-                                                    #{e 22254}#
-                                                    #{r 22343}#
-                                                    #{w 22255}#
-                                                    #{mod 22257}#))
-                                                #{exps 21965}#))
-                                        (values #{exps 21965}#)))
-                                    (if (eqv? #{m 21962}# 'c&e)
-                                      (let ((#{e 22789}#
-                                              (#{chi-install-global 4372}#
-                                                #{n 22342}#
-                                                (#{chi 4375}#
-                                                  #{e 22254}#
-                                                  #{r 22343}#
-                                                  #{w 22255}#
-                                                  #{mod 22257}#))))
-                                        (begin
-                                          (#{top-level-eval-hook 4302}#
-                                            #{e 22789}#
-                                            #{mod 22257}#)
-                                          (values
-                                            (cons #{e 22789}#
-                                                  #{exps 21965}#))))
+                                              (let ((#{x 22487}#
+                                                      (#{chi-top-sequence 
4369}#
+                                                        #{body 22459}#
+                                                        #{r 22099}#
+                                                        #{w 22411}#
+                                                        #{s 22412}#
+                                                        'e
+                                                        '(eval)
+                                                        #{mod 22413}#)))
+                                                (primitive-eval #{x 22487}#))
+                                              #{exps 22105}#)
+                                            #{exps 22105}#)))))
+                                  #{tmp 22451}#)
+                                (syntax-violation
+                                  #f
+                                  "source expression failed to match any 
pattern"
+                                  #{e 22410}#)))
+                            (if (eqv? #{type 22408}# 'define-syntax-form)
+                              (let ((#{n 22498}#
+                                      (#{id-var-name 4360}#
+                                        #{value 22409}#
+                                        #{w 22411}#))
+                                    (#{r 22499}#
+                                      (#{macros-only-env 4337}# #{r 22099}#)))
+                                (if (eqv? #{m 22102}# 'c)
+                                  (if (memq 'compile #{esew 22103}#)
+                                    (let ((#{e 22503}#
+                                            (#{chi-install-global 4370}#
+                                              #{n 22498}#
+                                              (#{chi 4373}#
+                                                #{e 22410}#
+                                                #{r 22499}#
+                                                #{w 22411}#
+                                                #{mod 22413}#))))
                                       (begin
-                                        (if (memq 'eval #{esew 21963}#)
-                                          (#{top-level-eval-hook 4302}#
-                                            (#{chi-install-global 4372}#
-                                              #{n 22342}#
-                                              (#{chi 4375}#
-                                                #{e 22254}#
-                                                #{r 22343}#
-                                                #{w 22255}#
-                                                #{mod 22257}#))
-                                            #{mod 22257}#))
-                                        (values #{exps 21965}#)))))
-                                (if (eqv? #{type 22252}# 'define-form)
-                                  (let ((#{n 23433}#
-                                          (#{id-var-name 4362}#
-                                            #{value 22253}#
-                                            #{w 22255}#)))
-                                    (let ((#{type 23434}#
-                                            (car (let ((#{t 24426}#
-                                                         (assq #{n 23433}#
-                                                               #{r 21959}#)))
-                                                   (if #{t 24426}#
-                                                     (cdr #{t 24426}#)
-                                                     (if (symbol? #{n 23433}#)
-                                                       (let ((#{t 24431}#
-                                                               (begin
-                                                                 (if (if (not 
#{mod 22257}#)
-                                                                       
(current-module)
-                                                                       #f)
-                                                                   (warn 
"module system is booted, we should have a module"
-                                                                         #{n 
23433}#))
-                                                                 (let ((#{v 
24468}#
-                                                                         
(module-variable
-                                                                           (if 
#{mod 22257}#
-                                                                             
(resolve-module
-                                                                               
(cdr #{mod 22257}#))
-                                                                             
(current-module))
-                                                                           #{n 
23433}#)))
-                                                                   (if #{v 
24468}#
-                                                                     (if 
(variable-bound?
-                                                                           #{v 
24468}#)
-                                                                       (let 
((#{val 24477}#
-                                                                               
(variable-ref
-                                                                               
  #{v 24468}#)))
-                                                                         (if 
(macro?
-                                                                               
#{val 24477}#)
-                                                                           (if 
(macro-type
-                                                                               
  #{val 24477}#)
-                                                                             
(cons (macro-type
-                                                                               
      #{val 24477}#)
-                                                                               
    (macro-binding
-                                                                               
      #{val 24477}#))
-                                                                             
#f)
-                                                                           #f))
-                                                                       #f)
-                                                                     #f)))))
-                                                         (if #{t 24431}#
-                                                           #{t 24431}#
-                                                           '(global)))
-                                                       
'(displaced-lexical)))))))
-                                      (if (let ((#{t 23468}# #{type 23434}#))
-                                            (if (eqv? #{t 23468}# 'global)
+                                        (#{top-level-eval-hook 4300}#
+                                          #{e 22503}#
+                                          #{mod 22413}#)
+                                        (if (memq 'load #{esew 22103}#)
+                                          (cons #{e 22503}# #{exps 22105}#)
+                                          #{exps 22105}#)))
+                                    (if (memq 'load #{esew 22103}#)
+                                      (cons (#{chi-install-global 4370}#
+                                              #{n 22498}#
+                                              (#{chi 4373}#
+                                                #{e 22410}#
+                                                #{r 22499}#
+                                                #{w 22411}#
+                                                #{mod 22413}#))
+                                            #{exps 22105}#)
+                                      #{exps 22105}#))
+                                  (if (eqv? #{m 22102}# 'c&e)
+                                    (let ((#{e 22949}#
+                                            (#{chi-install-global 4370}#
+                                              #{n 22498}#
+                                              (#{chi 4373}#
+                                                #{e 22410}#
+                                                #{r 22499}#
+                                                #{w 22411}#
+                                                #{mod 22413}#))))
+                                      (begin
+                                        (#{top-level-eval-hook 4300}#
+                                          #{e 22949}#
+                                          #{mod 22413}#)
+                                        (cons #{e 22949}# #{exps 22105}#)))
+                                    (begin
+                                      (if (memq 'eval #{esew 22103}#)
+                                        (#{top-level-eval-hook 4300}#
+                                          (#{chi-install-global 4370}#
+                                            #{n 22498}#
+                                            (#{chi 4373}#
+                                              #{e 22410}#
+                                              #{r 22499}#
+                                              #{w 22411}#
+                                              #{mod 22413}#))
+                                          #{mod 22413}#))
+                                      #{exps 22105}#))))
+                              (if (eqv? #{type 22408}# 'define-form)
+                                (let ((#{n 23599}#
+                                        (#{id-var-name 4360}#
+                                          #{value 22409}#
+                                          #{w 22411}#)))
+                                  (let ((#{type 23600}#
+                                          (car (let ((#{t 24602}#
+                                                       (assq #{n 23599}#
+                                                             #{r 22099}#)))
+                                                 (if #{t 24602}#
+                                                   (cdr #{t 24602}#)
+                                                   (if (symbol? #{n 23599}#)
+                                                     (let ((#{t 24607}#
+                                                             (begin
+                                                               (if (if (not 
#{mod 22413}#)
+                                                                     
(current-module)
+                                                                     #f)
+                                                                 (warn "module 
system is booted, we should have a module"
+                                                                       #{n 
23599}#))
+                                                               (let ((#{v 
24644}#
+                                                                       
(module-variable
+                                                                         (if 
#{mod 22413}#
+                                                                           
(resolve-module
+                                                                             
(cdr #{mod 22413}#))
+                                                                           
(current-module))
+                                                                         #{n 
23599}#)))
+                                                                 (if #{v 
24644}#
+                                                                   (if 
(variable-bound?
+                                                                         #{v 
24644}#)
+                                                                     (let 
((#{val 24653}#
+                                                                             
(variable-ref
+                                                                               
#{v 24644}#)))
+                                                                       (if 
(macro?
+                                                                             
#{val 24653}#)
+                                                                         (if 
(macro-type
+                                                                               
#{val 24653}#)
+                                                                           
(cons (macro-type
+                                                                               
    #{val 24653}#)
+                                                                               
  (macro-binding
+                                                                               
    #{val 24653}#))
+                                                                           #f)
+                                                                         #f))
+                                                                     #f)
+                                                                   #f)))))
+                                                       (if #{t 24607}#
+                                                         #{t 24607}#
+                                                         '(global)))
+                                                     '(displaced-lexical)))))))
+                                    (if (let ((#{t 23634}# #{type 23600}#))
+                                          (if (eqv? #{t 23634}# 'global)
+                                            #t
+                                            (if (eqv? #{t 23634}# 'core)
                                               #t
-                                              (if (eqv? #{t 23468}# 'core)
+                                              (if (eqv? #{t 23634}# 'macro)
                                                 #t
-                                                (if (eqv? #{t 23468}# 'macro)
+                                                (eqv? #{t 23634}#
+                                                      'module-ref)))))
+                                      (begin
+                                        (if (if (if (eq? #{m 22102}# 'c)
                                                   #t
-                                                  (eqv? #{t 23468}#
-                                                        'module-ref)))))
-                                        (begin
-                                          (if (if (if (eq? #{m 21962}# 'c)
-                                                    #t
-                                                    (eq? #{m 21962}# 'c&e))
-                                                (if (not (module-local-variable
-                                                           (current-module)
-                                                           #{n 23433}#))
-                                                  (current-module)
+                                                  (eq? #{m 22102}# 'c&e))
+                                              (if (not (module-local-variable
+                                                         (current-module)
+                                                         #{n 23599}#))
+                                                (current-module)
+                                                #f)
+                                              #f)
+                                          (let ((#{old 23798}#
+                                                  (module-variable
+                                                    (current-module)
+                                                    #{n 23599}#)))
+                                            (if (if (variable? #{old 23798}#)
+                                                  (variable-bound?
+                                                    #{old 23798}#)
                                                   #f)
+                                              (module-define!
+                                                (current-module)
+                                                #{n 23599}#
+                                                (variable-ref #{old 23798}#))
+                                              (module-add!
+                                                (current-module)
+                                                #{n 23599}#
+                                                (make-undefined-variable)))))
+                                        (cons (if (eq? #{m 22102}# 'c&e)
+                                                (let ((#{x 23800}#
+                                                        
(#{build-global-definition 4315}#
+                                                          #{s 22412}#
+                                                          #{n 23599}#
+                                                          (#{chi 4373}#
+                                                            #{e 22410}#
+                                                            #{r 22099}#
+                                                            #{w 22411}#
+                                                            #{mod 22413}#))))
+                                                  (begin
+                                                    (#{top-level-eval-hook 
4300}#
+                                                      #{x 23800}#
+                                                      #{mod 22413}#)
+                                                    #{x 23800}#))
+                                                (lambda ()
+                                                  (#{build-global-definition 
4315}#
+                                                    #{s 22412}#
+                                                    #{n 23599}#
+                                                    (#{chi 4373}#
+                                                      #{e 22410}#
+                                                      #{r 22099}#
+                                                      #{w 22411}#
+                                                      #{mod 22413}#))))
+                                              #{exps 22105}#))
+                                      (if (let ((#{t 24337}# #{type 23600}#))
+                                            (eqv? #{t 24337}#
+                                                  'displaced-lexical))
+                                        (syntax-violation
+                                          #f
+                                          "identifier out of context"
+                                          #{e 22410}#
+                                          (if (if (null? (car #{w 22411}#))
+                                                (null? (cdr #{w 22411}#))
                                                 #f)
-                                            (let ((#{old 23632}#
-                                                    (module-variable
-                                                      (current-module)
-                                                      #{n 23433}#)))
-                                              (if (if (variable? #{old 23632}#)
-                                                    (variable-bound?
-                                                      #{old 23632}#)
+                                            #{value 22409}#
+                                            (if (if (vector? #{value 22409}#)
+                                                  (if (= (vector-length
+                                                           #{value 22409}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{value 22409}#
+                                                           0)
+                                                         'syntax-object)
                                                     #f)
-                                                (module-define!
-                                                  (current-module)
-                                                  #{n 23433}#
-                                                  (variable-ref #{old 23632}#))
-                                                (module-add!
-                                                  (current-module)
-                                                  #{n 23433}#
-                                                  (make-undefined-variable)))))
-                                          (values
-                                            (cons (if (eq? #{m 21962}# 'c&e)
-                                                    (let ((#{x 23634}#
-                                                            
(#{build-global-definition 4317}#
-                                                              #{s 22256}#
-                                                              #{n 23433}#
-                                                              (#{chi 4375}#
-                                                                #{e 22254}#
-                                                                #{r 21959}#
-                                                                #{w 22255}#
-                                                                #{mod 
22257}#))))
-                                                      (begin
-                                                        (#{top-level-eval-hook 
4302}#
-                                                          #{x 23634}#
-                                                          #{mod 22257}#)
-                                                        #{x 23634}#))
-                                                    (lambda ()
-                                                      
(#{build-global-definition 4317}#
-                                                        #{s 22256}#
-                                                        #{n 23433}#
-                                                        (#{chi 4375}#
-                                                          #{e 22254}#
-                                                          #{r 21959}#
-                                                          #{w 22255}#
-                                                          #{mod 22257}#))))
-                                                  #{exps 21965}#)))
-                                        (if (let ((#{t 24161}# #{type 23434}#))
-                                              (eqv? #{t 24161}#
-                                                    'displaced-lexical))
-                                          (syntax-violation
-                                            #f
-                                            "identifier out of context"
-                                            #{e 22254}#
-                                            (if (if (null? (car #{w 22255}#))
-                                                  (null? (cdr #{w 22255}#))
                                                   #f)
-                                              #{value 22253}#
-                                              (if (if (vector? #{value 22253}#)
-                                                    (if (= (vector-length
-                                                             #{value 22253}#)
-                                                           4)
-                                                      (eq? (vector-ref
-                                                             #{value 22253}#
-                                                             0)
-                                                           'syntax-object)
-                                                      #f)
-                                                    #f)
-                                                (let ((#{expression 24253}#
-                                                        (vector-ref
-                                                          #{value 22253}#
-                                                          1))
-                                                      (#{wrap 24254}#
-                                                        (let ((#{w2 24264}#
-                                                                (vector-ref
-                                                                  #{value 
22253}#
-                                                                  2)))
-                                                          (let ((#{m1 24265}#
-                                                                  (car #{w 
22255}#))
-                                                                (#{s1 24266}#
-                                                                  (cdr #{w 
22255}#)))
-                                                            (if (null? #{m1 
24265}#)
-                                                              (if (null? #{s1 
24266}#)
-                                                                #{w2 24264}#
-                                                                (cons (car 
#{w2 24264}#)
-                                                                      (let 
((#{m2 24283}#
-                                                                              
(cdr #{w2 24264}#)))
-                                                                        (if 
(null? #{m2 24283}#)
-                                                                          #{s1 
24266}#
-                                                                          
(append
-                                                                            
#{s1 24266}#
-                                                                            
#{m2 24283}#)))))
-                                                              (cons (let 
((#{m2 24291}#
-                                                                            
(car #{w2 24264}#)))
-                                                                      (if 
(null? #{m2 24291}#)
-                                                                        #{m1 
24265}#
-                                                                        (append
-                                                                          #{m1 
24265}#
-                                                                          #{m2 
24291}#)))
-                                                                    (let 
((#{m2 24299}#
-                                                                            
(cdr #{w2 24264}#)))
-                                                                      (if 
(null? #{m2 24299}#)
-                                                                        #{s1 
24266}#
+                                              (let ((#{expression 24429}#
+                                                      (vector-ref
+                                                        #{value 22409}#
+                                                        1))
+                                                    (#{wrap 24430}#
+                                                      (let ((#{w2 24440}#
+                                                              (vector-ref
+                                                                #{value 22409}#
+                                                                2)))
+                                                        (let ((#{m1 24441}#
+                                                                (car #{w 
22411}#))
+                                                              (#{s1 24442}#
+                                                                (cdr #{w 
22411}#)))
+                                                          (if (null? #{m1 
24441}#)
+                                                            (if (null? #{s1 
24442}#)
+                                                              #{w2 24440}#
+                                                              (cons (car #{w2 
24440}#)
+                                                                    (let 
((#{m2 24459}#
+                                                                            
(cdr #{w2 24440}#)))
+                                                                      (if 
(null? #{m2 24459}#)
+                                                                        #{s1 
24442}#
                                                                         (append
-                                                                          #{s1 
24266}#
-                                                                          #{m2 
24299}#))))))))
-                                                      (#{module 24255}#
-                                                        (vector-ref
-                                                          #{value 22253}#
-                                                          3)))
-                                                  (vector
-                                                    'syntax-object
-                                                    #{expression 24253}#
-                                                    #{wrap 24254}#
-                                                    #{module 24255}#))
-                                                (if (null? #{value 22253}#)
-                                                  #{value 22253}#
-                                                  (vector
-                                                    'syntax-object
-                                                    #{value 22253}#
-                                                    #{w 22255}#
-                                                    #{mod 22257}#)))))
-                                          (syntax-violation
-                                            #f
-                                            "cannot define keyword at top 
level"
-                                            #{e 22254}#
-                                            (if (if (null? (car #{w 22255}#))
-                                                  (null? (cdr #{w 22255}#))
-                                                  #f)
-                                              #{value 22253}#
-                                              (if (if (vector? #{value 22253}#)
-                                                    (if (= (vector-length
-                                                             #{value 22253}#)
-                                                           4)
-                                                      (eq? (vector-ref
-                                                             #{value 22253}#
-                                                             0)
-                                                           'syntax-object)
-                                                      #f)
+                                                                          #{s1 
24442}#
+                                                                          #{m2 
24459}#)))))
+                                                            (cons (let ((#{m2 
24467}#
+                                                                          (car 
#{w2 24440}#)))
+                                                                    (if (null? 
#{m2 24467}#)
+                                                                      #{m1 
24441}#
+                                                                      (append
+                                                                        #{m1 
24441}#
+                                                                        #{m2 
24467}#)))
+                                                                  (let ((#{m2 
24475}#
+                                                                          (cdr 
#{w2 24440}#)))
+                                                                    (if (null? 
#{m2 24475}#)
+                                                                      #{s1 
24442}#
+                                                                      (append
+                                                                        #{s1 
24442}#
+                                                                        #{m2 
24475}#))))))))
+                                                    (#{module 24431}#
+                                                      (vector-ref
+                                                        #{value 22409}#
+                                                        3)))
+                                                (vector
+                                                  'syntax-object
+                                                  #{expression 24429}#
+                                                  #{wrap 24430}#
+                                                  #{module 24431}#))
+                                              (if (null? #{value 22409}#)
+                                                #{value 22409}#
+                                                (vector
+                                                  'syntax-object
+                                                  #{value 22409}#
+                                                  #{w 22411}#
+                                                  #{mod 22413}#)))))
+                                        (syntax-violation
+                                          #f
+                                          "cannot define keyword at top level"
+                                          #{e 22410}#
+                                          (if (if (null? (car #{w 22411}#))
+                                                (null? (cdr #{w 22411}#))
+                                                #f)
+                                            #{value 22409}#
+                                            (if (if (vector? #{value 22409}#)
+                                                  (if (= (vector-length
+                                                           #{value 22409}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{value 22409}#
+                                                           0)
+                                                         'syntax-object)
                                                     #f)
-                                                (let ((#{expression 24351}#
-                                                        (vector-ref
-                                                          #{value 22253}#
-                                                          1))
-                                                      (#{wrap 24352}#
-                                                        (let ((#{w2 24362}#
-                                                                (vector-ref
-                                                                  #{value 
22253}#
-                                                                  2)))
-                                                          (let ((#{m1 24363}#
-                                                                  (car #{w 
22255}#))
-                                                                (#{s1 24364}#
-                                                                  (cdr #{w 
22255}#)))
-                                                            (if (null? #{m1 
24363}#)
-                                                              (if (null? #{s1 
24364}#)
-                                                                #{w2 24362}#
-                                                                (cons (car 
#{w2 24362}#)
-                                                                      (let 
((#{m2 24381}#
-                                                                              
(cdr #{w2 24362}#)))
-                                                                        (if 
(null? #{m2 24381}#)
-                                                                          #{s1 
24364}#
-                                                                          
(append
-                                                                            
#{s1 24364}#
-                                                                            
#{m2 24381}#)))))
-                                                              (cons (let 
((#{m2 24389}#
-                                                                            
(car #{w2 24362}#)))
-                                                                      (if 
(null? #{m2 24389}#)
-                                                                        #{m1 
24363}#
-                                                                        (append
-                                                                          #{m1 
24363}#
-                                                                          #{m2 
24389}#)))
-                                                                    (let 
((#{m2 24397}#
-                                                                            
(cdr #{w2 24362}#)))
-                                                                      (if 
(null? #{m2 24397}#)
-                                                                        #{s1 
24364}#
+                                                  #f)
+                                              (let ((#{expression 24527}#
+                                                      (vector-ref
+                                                        #{value 22409}#
+                                                        1))
+                                                    (#{wrap 24528}#
+                                                      (let ((#{w2 24538}#
+                                                              (vector-ref
+                                                                #{value 22409}#
+                                                                2)))
+                                                        (let ((#{m1 24539}#
+                                                                (car #{w 
22411}#))
+                                                              (#{s1 24540}#
+                                                                (cdr #{w 
22411}#)))
+                                                          (if (null? #{m1 
24539}#)
+                                                            (if (null? #{s1 
24540}#)
+                                                              #{w2 24538}#
+                                                              (cons (car #{w2 
24538}#)
+                                                                    (let 
((#{m2 24557}#
+                                                                            
(cdr #{w2 24538}#)))
+                                                                      (if 
(null? #{m2 24557}#)
+                                                                        #{s1 
24540}#
                                                                         (append
-                                                                          #{s1 
24364}#
-                                                                          #{m2 
24397}#))))))))
-                                                      (#{module 24353}#
-                                                        (vector-ref
-                                                          #{value 22253}#
-                                                          3)))
-                                                  (vector
-                                                    'syntax-object
-                                                    #{expression 24351}#
-                                                    #{wrap 24352}#
-                                                    #{module 24353}#))
-                                                (if (null? #{value 22253}#)
-                                                  #{value 22253}#
-                                                  (vector
-                                                    'syntax-object
-                                                    #{value 22253}#
-                                                    #{w 22255}#
-                                                    #{mod 22257}#)))))))))
-                                  (values
-                                    (cons (if (eq? #{m 21962}# 'c&e)
-                                            (let ((#{x 24488}#
-                                                    (#{chi-expr 4376}#
-                                                      #{type 22252}#
-                                                      #{value 22253}#
-                                                      #{e 22254}#
-                                                      #{r 21959}#
-                                                      #{w 22255}#
-                                                      #{s 22256}#
-                                                      #{mod 22257}#)))
-                                              (begin
-                                                (primitive-eval #{x 24488}#)
-                                                #{x 24488}#))
-                                            (lambda ()
-                                              (#{chi-expr 4376}#
-                                                #{type 22252}#
-                                                #{value 22253}#
-                                                #{e 22254}#
-                                                #{r 21959}#
-                                                #{w 22255}#
-                                                #{s 22256}#
-                                                #{mod 22257}#)))
-                                          #{exps 21965}#))))))))))
-                  (lambda (#{exps 24497}#)
-                    (#{scan 21811}#
-                      (cdr #{body 21958}#)
-                      #{r 21959}#
-                      #{w 21960}#
-                      #{s 21961}#
-                      #{m 21962}#
-                      #{esew 21963}#
-                      #{mod 21964}#
-                      #{exps 24497}#)))))))
-         (call-with-values
-           (lambda ()
-             (#{scan 21811}#
-               #{body 21804}#
-               #{r 21805}#
-               #{w 21806}#
-               #{s 21807}#
-               #{m 21808}#
-               #{esew 21809}#
-               #{mod 21810}#
-               '()))
-           (lambda (#{exps 21814}#)
-             (if (null? #{exps 21814}#)
-               (make-struct/no-tail
-                 (vector-ref %expanded-vtables 0)
-                 #{s 21807}#)
-               (#{build-sequence 4324}#
-                 #{s 21807}#
-                 (letrec*
-                   ((#{lp 21858}#
-                      (lambda (#{in 21954}# #{out 21955}#)
-                        (if (null? #{in 21954}#)
-                          #{out 21955}#
-                          (let ((#{e 21956}# (car #{in 21954}#)))
-                            (#{lp 21858}#
-                              (cdr #{in 21954}#)
-                              (cons (if (procedure? #{e 21956}#)
-                                      (#{e 21956}#)
-                                      #{e 21956}#)
-                                    #{out 21955}#)))))))
-                   (#{lp 21858}# #{exps 21814}# '())))))))))
-   (#{chi-install-global 4372}#
-     (lambda (#{name 24498}# #{e 24499}#)
-       (let ((#{exp 24505}#
-               (let ((#{args 24516}#
+                                                                          #{s1 
24540}#
+                                                                          #{m2 
24557}#)))))
+                                                            (cons (let ((#{m2 
24565}#
+                                                                          (car 
#{w2 24538}#)))
+                                                                    (if (null? 
#{m2 24565}#)
+                                                                      #{m1 
24539}#
+                                                                      (append
+                                                                        #{m1 
24539}#
+                                                                        #{m2 
24565}#)))
+                                                                  (let ((#{m2 
24573}#
+                                                                          (cdr 
#{w2 24538}#)))
+                                                                    (if (null? 
#{m2 24573}#)
+                                                                      #{s1 
24540}#
+                                                                      (append
+                                                                        #{s1 
24540}#
+                                                                        #{m2 
24573}#))))))))
+                                                    (#{module 24529}#
+                                                      (vector-ref
+                                                        #{value 22409}#
+                                                        3)))
+                                                (vector
+                                                  'syntax-object
+                                                  #{expression 24527}#
+                                                  #{wrap 24528}#
+                                                  #{module 24529}#))
+                                              (if (null? #{value 22409}#)
+                                                #{value 22409}#
+                                                (vector
+                                                  'syntax-object
+                                                  #{value 22409}#
+                                                  #{w 22411}#
+                                                  #{mod 22413}#)))))))))
+                                (cons (if (eq? #{m 22102}# 'c&e)
+                                        (let ((#{x 24664}#
+                                                (#{chi-expr 4374}#
+                                                  #{type 22408}#
+                                                  #{value 22409}#
+                                                  #{e 22410}#
+                                                  #{r 22099}#
+                                                  #{w 22411}#
+                                                  #{s 22412}#
+                                                  #{mod 22413}#)))
+                                          (begin
+                                            (primitive-eval #{x 24664}#)
+                                            #{x 24664}#))
+                                        (lambda ()
+                                          (#{chi-expr 4374}#
+                                            #{type 22408}#
+                                            #{value 22409}#
+                                            #{e 22410}#
+                                            #{r 22099}#
+                                            #{w 22411}#
+                                            #{s 22412}#
+                                            #{mod 22413}#)))
+                                      #{exps 22105}#)))))))))))))
+         (let ((#{exps 21952}#
+                 (#{scan 21951}#
+                   #{body 21944}#
+                   #{r 21945}#
+                   #{w 21946}#
+                   #{s 21947}#
+                   #{m 21948}#
+                   #{esew 21949}#
+                   #{mod 21950}#
+                   '())))
+           (if (null? #{exps 21952}#)
+             (make-struct/no-tail
+               (vector-ref %expanded-vtables 0)
+               #{s 21947}#)
+             (#{build-sequence 4322}#
+               #{s 21947}#
+               (letrec*
+                 ((#{lp 21998}#
+                    (lambda (#{in 22094}# #{out 22095}#)
+                      (if (null? #{in 22094}#)
+                        #{out 22095}#
+                        (let ((#{e 22096}# (car #{in 22094}#)))
+                          (#{lp 21998}#
+                            (cdr #{in 22094}#)
+                            (cons (if (procedure? #{e 22096}#)
+                                    (#{e 22096}#)
+                                    #{e 22096}#)
+                                  #{out 22095}#)))))))
+                 (#{lp 21998}# #{exps 21952}# '()))))))))
+   (#{chi-install-global 4370}#
+     (lambda (#{name 24673}# #{e 24674}#)
+       (let ((#{exp 24680}#
+               (let ((#{args 24691}#
                        (list (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
-                               #{name 24498}#)
+                               #{name 24673}#)
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
                                'macro)
-                             #{e 24499}#)))
+                             #{e 24674}#)))
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 12)
                    #f
                    'make-syntax-transformer
-                   #{args 24516}#))))
+                   #{args 24691}#))))
          (begin
-           (if (if (struct? #{exp 24505}#)
-                 (eq? (struct-vtable #{exp 24505}#)
+           (if (if (struct? #{exp 24680}#)
+                 (eq? (struct-vtable #{exp 24680}#)
                       (vector-ref %expanded-vtables 14))
                  #f)
-             (let ((#{meta 24543}# (struct-ref #{exp 24505}# 1)))
-               (if (not (assq 'name #{meta 24543}#))
-                 (let ((#{v 24550}#
-                         (cons (cons 'name #{name 24498}#) #{meta 24543}#)))
-                   (struct-set! #{exp 24505}# 1 #{v 24550}#)))))
+             (let ((#{meta 24718}# (struct-ref #{exp 24680}# 1)))
+               (if (not (assq 'name #{meta 24718}#))
+                 (let ((#{v 24725}#
+                         (cons (cons 'name #{name 24673}#) #{meta 24718}#)))
+                   (struct-set! #{exp 24680}# 1 #{v 24725}#)))))
            (make-struct/no-tail
              (vector-ref %expanded-vtables 9)
              #f
-             #{name 24498}#
-             #{exp 24505}#)))))
-   (#{chi-when-list 4373}#
-     (lambda (#{e 24561}# #{when-list 24562}# #{w 24563}#)
+             #{name 24673}#
+             #{exp 24680}#)))))
+   (#{chi-when-list 4371}#
+     (lambda (#{e 24736}# #{when-list 24737}# #{w 24738}#)
        (letrec*
-         ((#{f 24564}#
-            (lambda (#{when-list 24764}# #{situations 24765}#)
-              (if (null? #{when-list 24764}#)
-                #{situations 24765}#
-                (#{f 24564}#
-                  (cdr #{when-list 24764}#)
-                  (cons (let ((#{x 24766}#
-                                (syntax->datum (car #{when-list 24764}#))))
-                          (if (if (eq? #{x 24766}# 'compile)
+         ((#{f 24739}#
+            (lambda (#{when-list 24941}# #{situations 24942}#)
+              (if (null? #{when-list 24941}#)
+                #{situations 24942}#
+                (#{f 24739}#
+                  (cdr #{when-list 24941}#)
+                  (cons (let ((#{x 24943}#
+                                (syntax->datum (car #{when-list 24941}#))))
+                          (if (if (eq? #{x 24943}# 'compile)
                                 #t
-                                (if (eq? #{x 24766}# 'load)
+                                (if (eq? #{x 24943}# 'load)
                                   #t
-                                  (if (eq? #{x 24766}# 'eval)
+                                  (if (eq? #{x 24943}# 'eval)
                                     #t
-                                    (eq? #{x 24766}# 'expand))))
-                            #{x 24766}#
+                                    (eq? #{x 24943}# 'expand))))
+                            #{x 24943}#
                             (syntax-violation
                               'eval-when
                               "invalid situation"
-                              #{e 24561}#
-                              (let ((#{x 24785}# (car #{when-list 24764}#)))
-                                (if (if (null? (car #{w 24563}#))
-                                      (null? (cdr #{w 24563}#))
+                              #{e 24736}#
+                              (let ((#{x 24962}# (car #{when-list 24941}#)))
+                                (if (if (null? (car #{w 24738}#))
+                                      (null? (cdr #{w 24738}#))
                                       #f)
-                                  #{x 24785}#
-                                  (if (if (vector? #{x 24785}#)
-                                        (if (= (vector-length #{x 24785}#) 4)
-                                          (eq? (vector-ref #{x 24785}# 0)
+                                  #{x 24962}#
+                                  (if (if (vector? #{x 24962}#)
+                                        (if (= (vector-length #{x 24962}#) 4)
+                                          (eq? (vector-ref #{x 24962}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (let ((#{expression 24803}#
-                                            (vector-ref #{x 24785}# 1))
-                                          (#{wrap 24804}#
-                                            (let ((#{w2 24812}#
+                                    (let ((#{expression 24980}#
+                                            (vector-ref #{x 24962}# 1))
+                                          (#{wrap 24981}#
+                                            (let ((#{w2 24989}#
                                                     (vector-ref
-                                                      #{x 24785}#
+                                                      #{x 24962}#
                                                       2)))
-                                              (let ((#{m1 24813}#
-                                                      (car #{w 24563}#))
-                                                    (#{s1 24814}#
-                                                      (cdr #{w 24563}#)))
-                                                (if (null? #{m1 24813}#)
-                                                  (if (null? #{s1 24814}#)
-                                                    #{w2 24812}#
-                                                    (cons (car #{w2 24812}#)
-                                                          (let ((#{m2 24829}#
-                                                                  (cdr #{w2 
24812}#)))
-                                                            (if (null? #{m2 
24829}#)
-                                                              #{s1 24814}#
+                                              (let ((#{m1 24990}#
+                                                      (car #{w 24738}#))
+                                                    (#{s1 24991}#
+                                                      (cdr #{w 24738}#)))
+                                                (if (null? #{m1 24990}#)
+                                                  (if (null? #{s1 24991}#)
+                                                    #{w2 24989}#
+                                                    (cons (car #{w2 24989}#)
+                                                          (let ((#{m2 25006}#
+                                                                  (cdr #{w2 
24989}#)))
+                                                            (if (null? #{m2 
25006}#)
+                                                              #{s1 24991}#
                                                               (append
-                                                                #{s1 24814}#
-                                                                #{m2 
24829}#)))))
-                                                  (cons (let ((#{m2 24837}#
-                                                                (car #{w2 
24812}#)))
-                                                          (if (null? #{m2 
24837}#)
-                                                            #{m1 24813}#
+                                                                #{s1 24991}#
+                                                                #{m2 
25006}#)))))
+                                                  (cons (let ((#{m2 25014}#
+                                                                (car #{w2 
24989}#)))
+                                                          (if (null? #{m2 
25014}#)
+                                                            #{m1 24990}#
                                                             (append
-                                                              #{m1 24813}#
-                                                              #{m2 24837}#)))
-                                                        (let ((#{m2 24845}#
-                                                                (cdr #{w2 
24812}#)))
-                                                          (if (null? #{m2 
24845}#)
-                                                            #{s1 24814}#
+                                                              #{m1 24990}#
+                                                              #{m2 25014}#)))
+                                                        (let ((#{m2 25022}#
+                                                                (cdr #{w2 
24989}#)))
+                                                          (if (null? #{m2 
25022}#)
+                                                            #{s1 24991}#
                                                             (append
-                                                              #{s1 24814}#
-                                                              #{m2 
24845}#))))))))
-                                          (#{module 24805}#
-                                            (vector-ref #{x 24785}# 3)))
+                                                              #{s1 24991}#
+                                                              #{m2 
25022}#))))))))
+                                          (#{module 24982}#
+                                            (vector-ref #{x 24962}# 3)))
                                       (vector
                                         'syntax-object
-                                        #{expression 24803}#
-                                        #{wrap 24804}#
-                                        #{module 24805}#))
-                                    (if (null? #{x 24785}#)
-                                      #{x 24785}#
+                                        #{expression 24980}#
+                                        #{wrap 24981}#
+                                        #{module 24982}#))
+                                    (if (null? #{x 24962}#)
+                                      #{x 24962}#
                                       (vector
                                         'syntax-object
-                                        #{x 24785}#
-                                        #{w 24563}#
+                                        #{x 24962}#
+                                        #{w 24738}#
                                         #f))))))))
-                        #{situations 24765}#))))))
-         (#{f 24564}# #{when-list 24562}# '()))))
-   (#{syntax-type 4374}#
-     (lambda (#{e 24860}#
-              #{r 24861}#
-              #{w 24862}#
-              #{s 24863}#
-              #{rib 24864}#
-              #{mod 24865}#
-              #{for-car? 24866}#)
-       (if (symbol? #{e 24860}#)
-         (let ((#{n 24867}#
-                 (#{id-var-name 4362}# #{e 24860}# #{w 24862}#)))
-           (let ((#{b 24868}#
-                   (let ((#{t 25443}# (assq #{n 24867}# #{r 24861}#)))
-                     (if #{t 25443}#
-                       (cdr #{t 25443}#)
-                       (if (symbol? #{n 24867}#)
-                         (let ((#{t 25448}#
+                        #{situations 24942}#))))))
+         (#{f 24739}# #{when-list 24737}# '()))))
+   (#{syntax-type 4372}#
+     (lambda (#{e 25037}#
+              #{r 25038}#
+              #{w 25039}#
+              #{s 25040}#
+              #{rib 25041}#
+              #{mod 25042}#
+              #{for-car? 25043}#)
+       (if (symbol? #{e 25037}#)
+         (let ((#{n 25044}#
+                 (#{id-var-name 4360}# #{e 25037}# #{w 25039}#)))
+           (let ((#{b 25045}#
+                   (let ((#{t 25620}# (assq #{n 25044}# #{r 25038}#)))
+                     (if #{t 25620}#
+                       (cdr #{t 25620}#)
+                       (if (symbol? #{n 25044}#)
+                         (let ((#{t 25625}#
                                  (begin
-                                   (if (if (not #{mod 24865}#)
+                                   (if (if (not #{mod 25042}#)
                                          (current-module)
                                          #f)
                                      (warn "module system is booted, we should 
have a module"
-                                           #{n 24867}#))
-                                   (let ((#{v 25485}#
+                                           #{n 25044}#))
+                                   (let ((#{v 25662}#
                                            (module-variable
-                                             (if #{mod 24865}#
+                                             (if #{mod 25042}#
                                                (resolve-module
-                                                 (cdr #{mod 24865}#))
+                                                 (cdr #{mod 25042}#))
                                                (current-module))
-                                             #{n 24867}#)))
-                                     (if #{v 25485}#
-                                       (if (variable-bound? #{v 25485}#)
-                                         (let ((#{val 25494}#
-                                                 (variable-ref #{v 25485}#)))
-                                           (if (macro? #{val 25494}#)
-                                             (if (macro-type #{val 25494}#)
-                                               (cons (macro-type #{val 25494}#)
+                                             #{n 25044}#)))
+                                     (if #{v 25662}#
+                                       (if (variable-bound? #{v 25662}#)
+                                         (let ((#{val 25671}#
+                                                 (variable-ref #{v 25662}#)))
+                                           (if (macro? #{val 25671}#)
+                                             (if (macro-type #{val 25671}#)
+                                               (cons (macro-type #{val 25671}#)
                                                      (macro-binding
-                                                       #{val 25494}#))
+                                                       #{val 25671}#))
                                                #f)
                                              #f))
                                          #f)
                                        #f)))))
-                           (if #{t 25448}# #{t 25448}# '(global)))
+                           (if #{t 25625}# #{t 25625}# '(global)))
                          '(displaced-lexical))))))
-             (let ((#{type 24869}# (car #{b 24868}#)))
-               (if (let ((#{t 24903}# #{type 24869}#))
-                     (eqv? #{t 24903}# 'lexical))
+             (let ((#{type 25046}# (car #{b 25045}#)))
+               (if (let ((#{t 25080}# #{type 25046}#))
+                     (eqv? #{t 25080}# 'lexical))
                  (values
-                   #{type 24869}#
-                   (cdr #{b 24868}#)
-                   #{e 24860}#
-                   #{w 24862}#
-                   #{s 24863}#
-                   #{mod 24865}#)
-                 (if (let ((#{t 25060}# #{type 24869}#))
-                       (eqv? #{t 25060}# 'global))
+                   #{type 25046}#
+                   (cdr #{b 25045}#)
+                   #{e 25037}#
+                   #{w 25039}#
+                   #{s 25040}#
+                   #{mod 25042}#)
+                 (if (let ((#{t 25237}# #{type 25046}#))
+                       (eqv? #{t 25237}# 'global))
                    (values
-                     #{type 24869}#
-                     #{n 24867}#
-                     #{e 24860}#
-                     #{w 24862}#
-                     #{s 24863}#
-                     #{mod 24865}#)
-                   (if (let ((#{t 25186}# #{type 24869}#))
-                         (eqv? #{t 25186}# 'macro))
-                     (if #{for-car? 24866}#
+                     #{type 25046}#
+                     #{n 25044}#
+                     #{e 25037}#
+                     #{w 25039}#
+                     #{s 25040}#
+                     #{mod 25042}#)
+                   (if (let ((#{t 25363}# #{type 25046}#))
+                         (eqv? #{t 25363}# 'macro))
+                     (if #{for-car? 25043}#
                        (values
-                         #{type 24869}#
-                         (cdr #{b 24868}#)
-                         #{e 24860}#
-                         #{w 24862}#
-                         #{s 24863}#
-                         #{mod 24865}#)
-                       (#{syntax-type 4374}#
-                         (#{chi-macro 4378}#
-                           (cdr #{b 24868}#)
-                           #{e 24860}#
-                           #{r 24861}#
-                           #{w 24862}#
-                           #{s 24863}#
-                           #{rib 24864}#
-                           #{mod 24865}#)
-                         #{r 24861}#
+                         #{type 25046}#
+                         (cdr #{b 25045}#)
+                         #{e 25037}#
+                         #{w 25039}#
+                         #{s 25040}#
+                         #{mod 25042}#)
+                       (#{syntax-type 4372}#
+                         (#{chi-macro 4376}#
+                           (cdr #{b 25045}#)
+                           #{e 25037}#
+                           #{r 25038}#
+                           #{w 25039}#
+                           #{s 25040}#
+                           #{rib 25041}#
+                           #{mod 25042}#)
+                         #{r 25038}#
                          '(())
-                         #{s 24863}#
-                         #{rib 24864}#
-                         #{mod 24865}#
+                         #{s 25040}#
+                         #{rib 25041}#
+                         #{mod 25042}#
                          #f))
                      (values
-                       #{type 24869}#
-                       (cdr #{b 24868}#)
-                       #{e 24860}#
-                       #{w 24862}#
-                       #{s 24863}#
-                       #{mod 24865}#)))))))
-         (if (pair? #{e 24860}#)
-           (let ((#{first 25505}# (car #{e 24860}#)))
+                       #{type 25046}#
+                       (cdr #{b 25045}#)
+                       #{e 25037}#
+                       #{w 25039}#
+                       #{s 25040}#
+                       #{mod 25042}#)))))))
+         (if (pair? #{e 25037}#)
+           (let ((#{first 25682}# (car #{e 25037}#)))
              (call-with-values
                (lambda ()
-                 (#{syntax-type 4374}#
-                   #{first 25505}#
-                   #{r 24861}#
-                   #{w 24862}#
-                   #{s 24863}#
-                   #{rib 24864}#
-                   #{mod 24865}#
+                 (#{syntax-type 4372}#
+                   #{first 25682}#
+                   #{r 25038}#
+                   #{w 25039}#
+                   #{s 25040}#
+                   #{rib 25041}#
+                   #{mod 25042}#
                    #t))
-               (lambda (#{ftype 25507}#
-                        #{fval 25508}#
-                        #{fe 25509}#
-                        #{fw 25510}#
-                        #{fs 25511}#
-                        #{fmod 25512}#)
-                 (if (eqv? #{ftype 25507}# 'lexical)
+               (lambda (#{ftype 25684}#
+                        #{fval 25685}#
+                        #{fe 25686}#
+                        #{fw 25687}#
+                        #{fs 25688}#
+                        #{fmod 25689}#)
+                 (if (eqv? #{ftype 25684}# 'lexical)
                    (values
                      'lexical-call
-                     #{fval 25508}#
-                     #{e 24860}#
-                     #{w 24862}#
-                     #{s 24863}#
-                     #{mod 24865}#)
-                   (if (eqv? #{ftype 25507}# 'global)
+                     #{fval 25685}#
+                     #{e 25037}#
+                     #{w 25039}#
+                     #{s 25040}#
+                     #{mod 25042}#)
+                   (if (eqv? #{ftype 25684}# 'global)
                      (values
                        'global-call
                        (vector
                          'syntax-object
-                         #{fval 25508}#
-                         #{w 24862}#
-                         #{fmod 25512}#)
-                       #{e 24860}#
-                       #{w 24862}#
-                       #{s 24863}#
-                       #{mod 24865}#)
-                     (if (eqv? #{ftype 25507}# 'macro)
-                       (#{syntax-type 4374}#
-                         (#{chi-macro 4378}#
-                           #{fval 25508}#
-                           #{e 24860}#
-                           #{r 24861}#
-                           #{w 24862}#
-                           #{s 24863}#
-                           #{rib 24864}#
-                           #{mod 24865}#)
-                         #{r 24861}#
+                         #{fval 25685}#
+                         #{w 25039}#
+                         #{fmod 25689}#)
+                       #{e 25037}#
+                       #{w 25039}#
+                       #{s 25040}#
+                       #{mod 25042}#)
+                     (if (eqv? #{ftype 25684}# 'macro)
+                       (#{syntax-type 4372}#
+                         (#{chi-macro 4376}#
+                           #{fval 25685}#
+                           #{e 25037}#
+                           #{r 25038}#
+                           #{w 25039}#
+                           #{s 25040}#
+                           #{rib 25041}#
+                           #{mod 25042}#)
+                         #{r 25038}#
                          '(())
-                         #{s 24863}#
-                         #{rib 24864}#
-                         #{mod 24865}#
-                         #{for-car? 24866}#)
-                       (if (eqv? #{ftype 25507}# 'module-ref)
+                         #{s 25040}#
+                         #{rib 25041}#
+                         #{mod 25042}#
+                         #{for-car? 25043}#)
+                       (if (eqv? #{ftype 25684}# 'module-ref)
                          (call-with-values
                            (lambda ()
-                             (#{fval 25508}#
-                               #{e 24860}#
-                               #{r 24861}#
-                               #{w 24862}#))
-                           (lambda (#{e 25533}#
-                                    #{r 25534}#
-                                    #{w 25535}#
-                                    #{s 25536}#
-                                    #{mod 25537}#)
-                             (#{syntax-type 4374}#
-                               #{e 25533}#
-                               #{r 25534}#
-                               #{w 25535}#
-                               #{s 25536}#
-                               #{rib 24864}#
-                               #{mod 25537}#
-                               #{for-car? 24866}#)))
-                         (if (eqv? #{ftype 25507}# 'core)
+                             (#{fval 25685}#
+                               #{e 25037}#
+                               #{r 25038}#
+                               #{w 25039}#))
+                           (lambda (#{e 25710}#
+                                    #{r 25711}#
+                                    #{w 25712}#
+                                    #{s 25713}#
+                                    #{mod 25714}#)
+                             (#{syntax-type 4372}#
+                               #{e 25710}#
+                               #{r 25711}#
+                               #{w 25712}#
+                               #{s 25713}#
+                               #{rib 25041}#
+                               #{mod 25714}#
+                               #{for-car? 25043}#)))
+                         (if (eqv? #{ftype 25684}# 'core)
                            (values
                              'core-form
-                             #{fval 25508}#
-                             #{e 24860}#
-                             #{w 24862}#
-                             #{s 24863}#
-                             #{mod 24865}#)
-                           (if (eqv? #{ftype 25507}# 'local-syntax)
+                             #{fval 25685}#
+                             #{e 25037}#
+                             #{w 25039}#
+                             #{s 25040}#
+                             #{mod 25042}#)
+                           (if (eqv? #{ftype 25684}# 'local-syntax)
                              (values
                                'local-syntax-form
-                               #{fval 25508}#
-                               #{e 24860}#
-                               #{w 24862}#
-                               #{s 24863}#
-                               #{mod 24865}#)
-                             (if (eqv? #{ftype 25507}# 'begin)
+                               #{fval 25685}#
+                               #{e 25037}#
+                               #{w 25039}#
+                               #{s 25040}#
+                               #{mod 25042}#)
+                             (if (eqv? #{ftype 25684}# 'begin)
                                (values
                                  'begin-form
                                  #f
-                                 #{e 24860}#
-                                 #{w 24862}#
-                                 #{s 24863}#
-                                 #{mod 24865}#)
-                               (if (eqv? #{ftype 25507}# 'eval-when)
+                                 #{e 25037}#
+                                 #{w 25039}#
+                                 #{s 25040}#
+                                 #{mod 25042}#)
+                               (if (eqv? #{ftype 25684}# 'eval-when)
                                  (values
                                    'eval-when-form
                                    #f
-                                   #{e 24860}#
-                                   #{w 24862}#
-                                   #{s 24863}#
-                                   #{mod 24865}#)
-                                 (if (eqv? #{ftype 25507}# 'define)
-                                   (let ((#{tmp 25554}#
+                                   #{e 25037}#
+                                   #{w 25039}#
+                                   #{s 25040}#
+                                   #{mod 25042}#)
+                                 (if (eqv? #{ftype 25684}# 'define)
+                                   (let ((#{tmp 25731}#
                                            ($sc-dispatch
-                                             #{e 24860}#
+                                             #{e 25037}#
                                              '(_ any any))))
-                                     (if (if #{tmp 25554}#
+                                     (if (if #{tmp 25731}#
                                            (@apply
-                                             (lambda (#{name 25558}#
-                                                      #{val 25559}#)
-                                               (if (symbol? #{name 25558}#)
+                                             (lambda (#{name 25735}#
+                                                      #{val 25736}#)
+                                               (if (symbol? #{name 25735}#)
                                                  #t
                                                  (if (if (vector?
-                                                           #{name 25558}#)
+                                                           #{name 25735}#)
                                                        (if (= (vector-length
-                                                                #{name 25558}#)
+                                                                #{name 25735}#)
                                                               4)
                                                          (eq? (vector-ref
-                                                                #{name 25558}#
+                                                                #{name 25735}#
                                                                 0)
                                                               'syntax-object)
                                                          #f)
                                                        #f)
                                                    (symbol?
                                                      (vector-ref
-                                                       #{name 25558}#
+                                                       #{name 25735}#
                                                        1))
                                                    #f)))
-                                             #{tmp 25554}#)
+                                             #{tmp 25731}#)
                                            #f)
                                        (@apply
-                                         (lambda (#{name 25586}# #{val 25587}#)
+                                         (lambda (#{name 25763}# #{val 25764}#)
                                            (values
                                              'define-form
-                                             #{name 25586}#
-                                             #{val 25587}#
-                                             #{w 24862}#
-                                             #{s 24863}#
-                                             #{mod 24865}#))
-                                         #{tmp 25554}#)
-                                       (let ((#{tmp 25588}#
+                                             #{name 25763}#
+                                             #{val 25764}#
+                                             #{w 25039}#
+                                             #{s 25040}#
+                                             #{mod 25042}#))
+                                         #{tmp 25731}#)
+                                       (let ((#{tmp 25765}#
                                                ($sc-dispatch
-                                                 #{e 24860}#
+                                                 #{e 25037}#
                                                  '(_ (any . any)
                                                      any
                                                      .
                                                      each-any))))
-                                         (if (if #{tmp 25588}#
+                                         (if (if #{tmp 25765}#
                                                (@apply
-                                                 (lambda (#{name 25592}#
-                                                          #{args 25593}#
-                                                          #{e1 25594}#
-                                                          #{e2 25595}#)
+                                                 (lambda (#{name 25769}#
+                                                          #{args 25770}#
+                                                          #{e1 25771}#
+                                                          #{e2 25772}#)
                                                    (if (if (symbol?
-                                                             #{name 25592}#)
+                                                             #{name 25769}#)
                                                          #t
                                                          (if (if (vector?
-                                                                   #{name 
25592}#)
+                                                                   #{name 
25769}#)
                                                                (if (= 
(vector-length
-                                                                        #{name 
25592}#)
+                                                                        #{name 
25769}#)
                                                                       4)
                                                                  (eq? 
(vector-ref
-                                                                        #{name 
25592}#
+                                                                        #{name 
25769}#
                                                                         0)
                                                                       
'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (symbol?
                                                              (vector-ref
-                                                               #{name 25592}#
+                                                               #{name 25769}#
                                                                1))
                                                            #f))
-                                                     (#{valid-bound-ids? 4365}#
-                                                       (#{lambda-var-list 
4390}#
-                                                         #{args 25593}#))
+                                                     (#{valid-bound-ids? 4363}#
+                                                       (#{lambda-var-list 
4388}#
+                                                         #{args 25770}#))
                                                      #f))
-                                                 #{tmp 25588}#)
+                                                 #{tmp 25765}#)
                                                #f)
                                            (@apply
-                                             (lambda (#{name 26071}#
-                                                      #{args 26072}#
-                                                      #{e1 26073}#
-                                                      #{e2 26074}#)
+                                             (lambda (#{name 26253}#
+                                                      #{args 26254}#
+                                                      #{e1 26255}#
+                                                      #{e2 26256}#)
                                                (values
                                                  'define-form
-                                                 (if (if (null? (car #{w 
24862}#))
-                                                       (null? (cdr #{w 
24862}#))
+                                                 (if (if (null? (car #{w 
25039}#))
+                                                       (null? (cdr #{w 
25039}#))
                                                        #f)
-                                                   #{name 26071}#
+                                                   #{name 26253}#
                                                    (if (if (vector?
-                                                             #{name 26071}#)
+                                                             #{name 26253}#)
                                                          (if (= (vector-length
-                                                                  #{name 
26071}#)
+                                                                  #{name 
26253}#)
                                                                 4)
                                                            (eq? (vector-ref
-                                                                  #{name 
26071}#
+                                                                  #{name 
26253}#
                                                                   0)
                                                                 'syntax-object)
                                                            #f)
                                                          #f)
-                                                     (let ((#{expression 
26104}#
+                                                     (let ((#{expression 
26286}#
                                                              (vector-ref
-                                                               #{name 26071}#
+                                                               #{name 26253}#
                                                                1))
-                                                           (#{wrap 26105}#
-                                                             (let ((#{w2 
26115}#
+                                                           (#{wrap 26287}#
+                                                             (let ((#{w2 
26297}#
                                                                      
(vector-ref
-                                                                       #{name 
26071}#
+                                                                       #{name 
26253}#
                                                                        2)))
-                                                               (let ((#{m1 
26116}#
-                                                                       (car 
#{w 24862}#))
-                                                                     (#{s1 
26117}#
-                                                                       (cdr 
#{w 24862}#)))
-                                                                 (if (null? 
#{m1 26116}#)
-                                                                   (if (null? 
#{s1 26117}#)
-                                                                     #{w2 
26115}#
-                                                                     (cons 
(car #{w2 26115}#)
-                                                                           
(let ((#{m2 26134}#
-                                                                               
    (cdr #{w2 26115}#)))
-                                                                             
(if (null? #{m2 26134}#)
-                                                                               
#{s1 26117}#
+                                                               (let ((#{m1 
26298}#
+                                                                       (car 
#{w 25039}#))
+                                                                     (#{s1 
26299}#
+                                                                       (cdr 
#{w 25039}#)))
+                                                                 (if (null? 
#{m1 26298}#)
+                                                                   (if (null? 
#{s1 26299}#)
+                                                                     #{w2 
26297}#
+                                                                     (cons 
(car #{w2 26297}#)
+                                                                           
(let ((#{m2 26316}#
+                                                                               
    (cdr #{w2 26297}#)))
+                                                                             
(if (null? #{m2 26316}#)
+                                                                               
#{s1 26299}#
                                                                                
(append
-                                                                               
  #{s1 26117}#
-                                                                               
  #{m2 26134}#)))))
-                                                                   (cons (let 
((#{m2 26142}#
-                                                                               
  (car #{w2 26115}#)))
-                                                                           (if 
(null? #{m2 26142}#)
-                                                                             
#{m1 26116}#
+                                                                               
  #{s1 26299}#
+                                                                               
  #{m2 26316}#)))))
+                                                                   (cons (let 
((#{m2 26324}#
+                                                                               
  (car #{w2 26297}#)))
+                                                                           (if 
(null? #{m2 26324}#)
+                                                                             
#{m1 26298}#
                                                                              
(append
-                                                                               
#{m1 26116}#
-                                                                               
#{m2 26142}#)))
-                                                                         (let 
((#{m2 26150}#
-                                                                               
  (cdr #{w2 26115}#)))
-                                                                           (if 
(null? #{m2 26150}#)
-                                                                             
#{s1 26117}#
+                                                                               
#{m1 26298}#
+                                                                               
#{m2 26324}#)))
+                                                                         (let 
((#{m2 26332}#
+                                                                               
  (cdr #{w2 26297}#)))
+                                                                           (if 
(null? #{m2 26332}#)
+                                                                             
#{s1 26299}#
                                                                              
(append
-                                                                               
#{s1 26117}#
-                                                                               
#{m2 26150}#))))))))
-                                                           (#{module 26106}#
+                                                                               
#{s1 26299}#
+                                                                               
#{m2 26332}#))))))))
+                                                           (#{module 26288}#
                                                              (vector-ref
-                                                               #{name 26071}#
+                                                               #{name 26253}#
                                                                3)))
                                                        (vector
                                                          'syntax-object
-                                                         #{expression 26104}#
-                                                         #{wrap 26105}#
-                                                         #{module 26106}#))
-                                                     (if (null? #{name 26071}#)
-                                                       #{name 26071}#
+                                                         #{expression 26286}#
+                                                         #{wrap 26287}#
+                                                         #{module 26288}#))
+                                                     (if (null? #{name 26253}#)
+                                                       #{name 26253}#
                                                        (vector
                                                          'syntax-object
-                                                         #{name 26071}#
-                                                         #{w 24862}#
-                                                         #{mod 24865}#))))
-                                                 (let ((#{e 26176}#
+                                                         #{name 26253}#
+                                                         #{w 25039}#
+                                                         #{mod 25042}#))))
+                                                 (let ((#{e 26358}#
                                                          (cons '#(syntax-object
                                                                   lambda
                                                                   ((top)
@@ -1972,10 +1955,10 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                     #("i1888"
-                                                                       "i1889"
-                                                                       "i1890"
-                                                                       
"i1891"))
+                                                                     #("i1886"
+                                                                       "i1887"
+                                                                       "i1888"
+                                                                       
"i1889"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
@@ -1997,12 +1980,12 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                     #("i1841"
+                                                                     #("i1839"
+                                                                       "i1840"
+                                                                       "i1841"
                                                                        "i1842"
                                                                        "i1843"
-                                                                       "i1844"
-                                                                       "i1845"
-                                                                       
"i1846"))
+                                                                       
"i1844"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
@@ -2010,7 +1993,7 @@
                                                                    #(ribcage
                                                                      #(first)
                                                                      #((top))
-                                                                     
#("i1833"))
+                                                                     
#("i1831"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
@@ -2038,13 +2021,13 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                     #("i1805"
+                                                                     #("i1803"
+                                                                       "i1804"
+                                                                       "i1805"
                                                                        "i1806"
                                                                        "i1807"
                                                                        "i1808"
-                                                                       "i1809"
-                                                                       "i1810"
-                                                                       
"i1811"))
+                                                                       
"i1809"))
                                                                    #(ribcage
                                                                      
(lambda-var-list
                                                                        gen-var
@@ -2472,199 +2455,199 @@
                                                                       "i44")))
                                                                   (hygiene
                                                                     guile))
-                                                               (let ((#{x 
26180}#
-                                                                       (cons 
#{args 26072}#
-                                                                             
(cons #{e1 26073}#
-                                                                               
    #{e2 26074}#))))
-                                                                 (if (if 
(null? (car #{w 24862}#))
-                                                                       (null? 
(cdr #{w 24862}#))
+                                                               (let ((#{x 
26362}#
+                                                                       (cons 
#{args 26254}#
+                                                                             
(cons #{e1 26255}#
+                                                                               
    #{e2 26256}#))))
+                                                                 (if (if 
(null? (car #{w 25039}#))
+                                                                       (null? 
(cdr #{w 25039}#))
                                                                        #f)
-                                                                   #{x 26180}#
+                                                                   #{x 26362}#
                                                                    (if (if 
(vector?
-                                                                             
#{x 26180}#)
+                                                                             
#{x 26362}#)
                                                                          (if 
(= (vector-length
-                                                                               
   #{x 26180}#)
+                                                                               
   #{x 26362}#)
                                                                                
 4)
                                                                            
(eq? (vector-ref
-                                                                               
   #{x 26180}#
+                                                                               
   #{x 26362}#
                                                                                
   0)
                                                                                
 'syntax-object)
                                                                            #f)
                                                                          #f)
-                                                                     (let 
((#{expression 26198}#
+                                                                     (let 
((#{expression 26380}#
                                                                              
(vector-ref
-                                                                               
#{x 26180}#
+                                                                               
#{x 26362}#
                                                                                
1))
-                                                                           
(#{wrap 26199}#
-                                                                             
(let ((#{w2 26207}#
+                                                                           
(#{wrap 26381}#
+                                                                             
(let ((#{w2 26389}#
                                                                                
      (vector-ref
-                                                                               
        #{x 26180}#
+                                                                               
        #{x 26362}#
                                                                                
        2)))
-                                                                               
(let ((#{m1 26208}#
-                                                                               
        (car #{w 24862}#))
-                                                                               
      (#{s1 26209}#
-                                                                               
        (cdr #{w 24862}#)))
-                                                                               
  (if (null? #{m1 26208}#)
-                                                                               
    (if (null? #{s1 26209}#)
-                                                                               
      #{w2 26207}#
-                                                                               
      (cons (car #{w2 26207}#)
-                                                                               
            (let ((#{m2 26224}#
-                                                                               
                    (cdr #{w2 26207}#)))
-                                                                               
              (if (null? #{m2 26224}#)
-                                                                               
                #{s1 26209}#
+                                                                               
(let ((#{m1 26390}#
+                                                                               
        (car #{w 25039}#))
+                                                                               
      (#{s1 26391}#
+                                                                               
        (cdr #{w 25039}#)))
+                                                                               
  (if (null? #{m1 26390}#)
+                                                                               
    (if (null? #{s1 26391}#)
+                                                                               
      #{w2 26389}#
+                                                                               
      (cons (car #{w2 26389}#)
+                                                                               
            (let ((#{m2 26406}#
+                                                                               
                    (cdr #{w2 26389}#)))
+                                                                               
              (if (null? #{m2 26406}#)
+                                                                               
                #{s1 26391}#
                                                                                
                (append
-                                                                               
                  #{s1 26209}#
-                                                                               
                  #{m2 26224}#)))))
-                                                                               
    (cons (let ((#{m2 26232}#
-                                                                               
                  (car #{w2 26207}#)))
-                                                                               
            (if (null? #{m2 26232}#)
-                                                                               
              #{m1 26208}#
+                                                                               
                  #{s1 26391}#
+                                                                               
                  #{m2 26406}#)))))
+                                                                               
    (cons (let ((#{m2 26414}#
+                                                                               
                  (car #{w2 26389}#)))
+                                                                               
            (if (null? #{m2 26414}#)
+                                                                               
              #{m1 26390}#
                                                                                
              (append
-                                                                               
                #{m1 26208}#
-                                                                               
                #{m2 26232}#)))
-                                                                               
          (let ((#{m2 26240}#
-                                                                               
                  (cdr #{w2 26207}#)))
-                                                                               
            (if (null? #{m2 26240}#)
-                                                                               
              #{s1 26209}#
+                                                                               
                #{m1 26390}#
+                                                                               
                #{m2 26414}#)))
+                                                                               
          (let ((#{m2 26422}#
+                                                                               
                  (cdr #{w2 26389}#)))
+                                                                               
            (if (null? #{m2 26422}#)
+                                                                               
              #{s1 26391}#
                                                                                
              (append
-                                                                               
                #{s1 26209}#
-                                                                               
                #{m2 26240}#))))))))
-                                                                           
(#{module 26200}#
+                                                                               
                #{s1 26391}#
+                                                                               
                #{m2 26422}#))))))))
+                                                                           
(#{module 26382}#
                                                                              
(vector-ref
-                                                                               
#{x 26180}#
+                                                                               
#{x 26362}#
                                                                                
3)))
                                                                        (vector
                                                                          
'syntax-object
-                                                                         
#{expression 26198}#
-                                                                         
#{wrap 26199}#
-                                                                         
#{module 26200}#))
-                                                                     (if 
(null? #{x 26180}#)
-                                                                       #{x 
26180}#
+                                                                         
#{expression 26380}#
+                                                                         
#{wrap 26381}#
+                                                                         
#{module 26382}#))
+                                                                     (if 
(null? #{x 26362}#)
+                                                                       #{x 
26362}#
                                                                        (vector
                                                                          
'syntax-object
-                                                                         #{x 
26180}#
-                                                                         #{w 
24862}#
-                                                                         #{mod 
24865}#))))))))
+                                                                         #{x 
26362}#
+                                                                         #{w 
25039}#
+                                                                         #{mod 
25042}#))))))))
                                                    (begin
-                                                     (if (if (pair? #{e 
26176}#)
-                                                           #{s 24863}#
+                                                     (if (if (pair? #{e 
26358}#)
+                                                           #{s 25040}#
                                                            #f)
                                                        (set-source-properties!
-                                                         #{e 26176}#
-                                                         #{s 24863}#))
-                                                     #{e 26176}#))
+                                                         #{e 26358}#
+                                                         #{s 25040}#))
+                                                     #{e 26358}#))
                                                  '(())
-                                                 #{s 24863}#
-                                                 #{mod 24865}#))
-                                             #{tmp 25588}#)
-                                           (let ((#{tmp 26259}#
+                                                 #{s 25040}#
+                                                 #{mod 25042}#))
+                                             #{tmp 25765}#)
+                                           (let ((#{tmp 26441}#
                                                    ($sc-dispatch
-                                                     #{e 24860}#
+                                                     #{e 25037}#
                                                      '(_ any))))
-                                             (if (if #{tmp 26259}#
+                                             (if (if #{tmp 26441}#
                                                    (@apply
-                                                     (lambda (#{name 26263}#)
+                                                     (lambda (#{name 26445}#)
                                                        (if (symbol?
-                                                             #{name 26263}#)
+                                                             #{name 26445}#)
                                                          #t
                                                          (if (if (vector?
-                                                                   #{name 
26263}#)
+                                                                   #{name 
26445}#)
                                                                (if (= 
(vector-length
-                                                                        #{name 
26263}#)
+                                                                        #{name 
26445}#)
                                                                       4)
                                                                  (eq? 
(vector-ref
-                                                                        #{name 
26263}#
+                                                                        #{name 
26445}#
                                                                         0)
                                                                       
'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (symbol?
                                                              (vector-ref
-                                                               #{name 26263}#
+                                                               #{name 26445}#
                                                                1))
                                                            #f)))
-                                                     #{tmp 26259}#)
+                                                     #{tmp 26441}#)
                                                    #f)
                                                (@apply
-                                                 (lambda (#{name 26290}#)
+                                                 (lambda (#{name 26472}#)
                                                    (values
                                                      'define-form
-                                                     (if (if (null? (car #{w 
24862}#))
-                                                           (null? (cdr #{w 
24862}#))
+                                                     (if (if (null? (car #{w 
25039}#))
+                                                           (null? (cdr #{w 
25039}#))
                                                            #f)
-                                                       #{name 26290}#
+                                                       #{name 26472}#
                                                        (if (if (vector?
-                                                                 #{name 
26290}#)
+                                                                 #{name 
26472}#)
                                                              (if (= 
(vector-length
-                                                                      #{name 
26290}#)
+                                                                      #{name 
26472}#)
                                                                     4)
                                                                (eq? (vector-ref
-                                                                      #{name 
26290}#
+                                                                      #{name 
26472}#
                                                                       0)
                                                                     
'syntax-object)
                                                                #f)
                                                              #f)
-                                                         (let ((#{expression 
26320}#
+                                                         (let ((#{expression 
26502}#
                                                                  (vector-ref
-                                                                   #{name 
26290}#
+                                                                   #{name 
26472}#
                                                                    1))
-                                                               (#{wrap 26321}#
-                                                                 (let ((#{w2 
26331}#
+                                                               (#{wrap 26503}#
+                                                                 (let ((#{w2 
26513}#
                                                                          
(vector-ref
-                                                                           
#{name 26290}#
+                                                                           
#{name 26472}#
                                                                            2)))
-                                                                   (let ((#{m1 
26332}#
-                                                                           
(car #{w 24862}#))
-                                                                         (#{s1 
26333}#
-                                                                           
(cdr #{w 24862}#)))
-                                                                     (if 
(null? #{m1 26332}#)
-                                                                       (if 
(null? #{s1 26333}#)
-                                                                         #{w2 
26331}#
-                                                                         (cons 
(car #{w2 26331}#)
-                                                                               
(let ((#{m2 26350}#
-                                                                               
        (cdr #{w2 26331}#)))
-                                                                               
  (if (null? #{m2 26350}#)
-                                                                               
    #{s1 26333}#
+                                                                   (let ((#{m1 
26514}#
+                                                                           
(car #{w 25039}#))
+                                                                         (#{s1 
26515}#
+                                                                           
(cdr #{w 25039}#)))
+                                                                     (if 
(null? #{m1 26514}#)
+                                                                       (if 
(null? #{s1 26515}#)
+                                                                         #{w2 
26513}#
+                                                                         (cons 
(car #{w2 26513}#)
+                                                                               
(let ((#{m2 26532}#
+                                                                               
        (cdr #{w2 26513}#)))
+                                                                               
  (if (null? #{m2 26532}#)
+                                                                               
    #{s1 26515}#
                                                                                
    (append
-                                                                               
      #{s1 26333}#
-                                                                               
      #{m2 26350}#)))))
-                                                                       (cons 
(let ((#{m2 26358}#
-                                                                               
      (car #{w2 26331}#)))
-                                                                               
(if (null? #{m2 26358}#)
-                                                                               
  #{m1 26332}#
+                                                                               
      #{s1 26515}#
+                                                                               
      #{m2 26532}#)))))
+                                                                       (cons 
(let ((#{m2 26540}#
+                                                                               
      (car #{w2 26513}#)))
+                                                                               
(if (null? #{m2 26540}#)
+                                                                               
  #{m1 26514}#
                                                                                
  (append
-                                                                               
    #{m1 26332}#
-                                                                               
    #{m2 26358}#)))
-                                                                             
(let ((#{m2 26366}#
-                                                                               
      (cdr #{w2 26331}#)))
-                                                                               
(if (null? #{m2 26366}#)
-                                                                               
  #{s1 26333}#
+                                                                               
    #{m1 26514}#
+                                                                               
    #{m2 26540}#)))
+                                                                             
(let ((#{m2 26548}#
+                                                                               
      (cdr #{w2 26513}#)))
+                                                                               
(if (null? #{m2 26548}#)
+                                                                               
  #{s1 26515}#
                                                                                
  (append
-                                                                               
    #{s1 26333}#
-                                                                               
    #{m2 26366}#))))))))
-                                                               (#{module 
26322}#
+                                                                               
    #{s1 26515}#
+                                                                               
    #{m2 26548}#))))))))
+                                                               (#{module 
26504}#
                                                                  (vector-ref
-                                                                   #{name 
26290}#
+                                                                   #{name 
26472}#
                                                                    3)))
                                                            (vector
                                                              'syntax-object
-                                                             #{expression 
26320}#
-                                                             #{wrap 26321}#
-                                                             #{module 26322}#))
-                                                         (if (null? #{name 
26290}#)
-                                                           #{name 26290}#
+                                                             #{expression 
26502}#
+                                                             #{wrap 26503}#
+                                                             #{module 26504}#))
+                                                         (if (null? #{name 
26472}#)
+                                                           #{name 26472}#
                                                            (vector
                                                              'syntax-object
-                                                             #{name 26290}#
-                                                             #{w 24862}#
-                                                             #{mod 24865}#))))
+                                                             #{name 26472}#
+                                                             #{w 25039}#
+                                                             #{mod 25042}#))))
                                                      '(#(syntax-object
                                                          if
                                                          ((top)
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1901"))
+                                                            #("i1899"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -2680,17 +2663,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1841"
+                                                            #("i1839"
+                                                              "i1840"
+                                                              "i1841"
                                                               "i1842"
                                                               "i1843"
-                                                              "i1844"
-                                                              "i1845"
-                                                              "i1846"))
+                                                              "i1844"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1833"))
+                                                            #("i1831"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -2709,13 +2692,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1805"
+                                                            #("i1803"
+                                                              "i1804"
+                                                              "i1805"
                                                               "i1806"
                                                               "i1807"
                                                               "i1808"
-                                                              "i1809"
-                                                              "i1810"
-                                                              "i1811"))
+                                                              "i1809"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -3146,7 +3129,7 @@
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1901"))
+                                                            #("i1899"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -3162,17 +3145,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1841"
+                                                            #("i1839"
+                                                              "i1840"
+                                                              "i1841"
                                                               "i1842"
                                                               "i1843"
-                                                              "i1844"
-                                                              "i1845"
-                                                              "i1846"))
+                                                              "i1844"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1833"))
+                                                            #("i1831"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -3191,13 +3174,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1805"
+                                                            #("i1803"
+                                                              "i1804"
+                                                              "i1805"
                                                               "i1806"
                                                               "i1807"
                                                               "i1808"
-                                                              "i1809"
-                                                              "i1810"
-                                                              "i1811"))
+                                                              "i1809"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -3628,7 +3611,7 @@
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1901"))
+                                                            #("i1899"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -3644,17 +3627,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1841"
+                                                            #("i1839"
+                                                              "i1840"
+                                                              "i1841"
                                                               "i1842"
                                                               "i1843"
-                                                              "i1844"
-                                                              "i1845"
-                                                              "i1846"))
+                                                              "i1844"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1833"))
+                                                            #("i1831"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -3673,13 +3656,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1805"
+                                                            #("i1803"
+                                                              "i1804"
+                                                              "i1805"
                                                               "i1806"
                                                               "i1807"
                                                               "i1808"
-                                                              "i1809"
-                                                              "i1810"
-                                                              "i1811"))
+                                                              "i1809"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -4105,2012 +4088,2012 @@
                                                              "i44")))
                                                          (hygiene guile)))
                                                      '(())
-                                                     #{s 24863}#
-                                                     #{mod 24865}#))
-                                                 #{tmp 26259}#)
+                                                     #{s 25040}#
+                                                     #{mod 25042}#))
+                                                 #{tmp 26441}#)
                                                (syntax-violation
                                                  #f
                                                  "source expression failed to 
match any pattern"
-                                                 #{e 24860}#)))))))
-                                   (if (eqv? #{ftype 25507}# 'define-syntax)
-                                     (let ((#{tmp 26405}#
+                                                 #{e 25037}#)))))))
+                                   (if (eqv? #{ftype 25684}# 'define-syntax)
+                                     (let ((#{tmp 26587}#
                                              ($sc-dispatch
-                                               #{e 24860}#
+                                               #{e 25037}#
                                                '(_ any any))))
-                                       (if (if #{tmp 26405}#
+                                       (if (if #{tmp 26587}#
                                              (@apply
-                                               (lambda (#{name 26409}#
-                                                        #{val 26410}#)
-                                                 (if (symbol? #{name 26409}#)
+                                               (lambda (#{name 26591}#
+                                                        #{val 26592}#)
+                                                 (if (symbol? #{name 26591}#)
                                                    #t
                                                    (if (if (vector?
-                                                             #{name 26409}#)
+                                                             #{name 26591}#)
                                                          (if (= (vector-length
-                                                                  #{name 
26409}#)
+                                                                  #{name 
26591}#)
                                                                 4)
                                                            (eq? (vector-ref
-                                                                  #{name 
26409}#
+                                                                  #{name 
26591}#
                                                                   0)
                                                                 'syntax-object)
                                                            #f)
                                                          #f)
                                                      (symbol?
                                                        (vector-ref
-                                                         #{name 26409}#
+                                                         #{name 26591}#
                                                          1))
                                                      #f)))
-                                               #{tmp 26405}#)
+                                               #{tmp 26587}#)
                                              #f)
                                          (@apply
-                                           (lambda (#{name 26437}#
-                                                    #{val 26438}#)
+                                           (lambda (#{name 26619}#
+                                                    #{val 26620}#)
                                              (values
                                                'define-syntax-form
-                                               #{name 26437}#
-                                               #{val 26438}#
-                                               #{w 24862}#
-                                               #{s 24863}#
-                                               #{mod 24865}#))
-                                           #{tmp 26405}#)
+                                               #{name 26619}#
+                                               #{val 26620}#
+                                               #{w 25039}#
+                                               #{s 25040}#
+                                               #{mod 25042}#))
+                                           #{tmp 26587}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{e 24860}#)))
+                                           #{e 25037}#)))
                                      (values
                                        'call
                                        #f
-                                       #{e 24860}#
-                                       #{w 24862}#
-                                       #{s 24863}#
-                                       #{mod 24865}#))))))))))))))
-           (if (if (vector? #{e 24860}#)
-                 (if (= (vector-length #{e 24860}#) 4)
-                   (eq? (vector-ref #{e 24860}# 0) 'syntax-object)
+                                       #{e 25037}#
+                                       #{w 25039}#
+                                       #{s 25040}#
+                                       #{mod 25042}#))))))))))))))
+           (if (if (vector? #{e 25037}#)
+                 (if (= (vector-length #{e 25037}#) 4)
+                   (eq? (vector-ref #{e 25037}# 0) 'syntax-object)
                    #f)
                  #f)
-             (#{syntax-type 4374}#
-               (vector-ref #{e 24860}# 1)
-               #{r 24861}#
-               (let ((#{w2 26463}# (vector-ref #{e 24860}# 2)))
-                 (let ((#{m1 26464}# (car #{w 24862}#))
-                       (#{s1 26465}# (cdr #{w 24862}#)))
-                   (if (null? #{m1 26464}#)
-                     (if (null? #{s1 26465}#)
-                       #{w2 26463}#
-                       (cons (car #{w2 26463}#)
-                             (let ((#{m2 26476}# (cdr #{w2 26463}#)))
-                               (if (null? #{m2 26476}#)
-                                 #{s1 26465}#
-                                 (append #{s1 26465}# #{m2 26476}#)))))
-                     (cons (let ((#{m2 26484}# (car #{w2 26463}#)))
-                             (if (null? #{m2 26484}#)
-                               #{m1 26464}#
-                               (append #{m1 26464}# #{m2 26484}#)))
-                           (let ((#{m2 26492}# (cdr #{w2 26463}#)))
-                             (if (null? #{m2 26492}#)
-                               #{s1 26465}#
-                               (append #{s1 26465}# #{m2 26492}#)))))))
-               (let ((#{t 26497}#
-                       (#{source-annotation 4336}# #{e 24860}#)))
-                 (if #{t 26497}# #{t 26497}# #{s 24863}#))
-               #{rib 24864}#
-               (let ((#{t 26779}# (vector-ref #{e 24860}# 3)))
-                 (if #{t 26779}# #{t 26779}# #{mod 24865}#))
-               #{for-car? 24866}#)
-             (if (self-evaluating? #{e 24860}#)
+             (#{syntax-type 4372}#
+               (vector-ref #{e 25037}# 1)
+               #{r 25038}#
+               (let ((#{w2 26645}# (vector-ref #{e 25037}# 2)))
+                 (let ((#{m1 26646}# (car #{w 25039}#))
+                       (#{s1 26647}# (cdr #{w 25039}#)))
+                   (if (null? #{m1 26646}#)
+                     (if (null? #{s1 26647}#)
+                       #{w2 26645}#
+                       (cons (car #{w2 26645}#)
+                             (let ((#{m2 26658}# (cdr #{w2 26645}#)))
+                               (if (null? #{m2 26658}#)
+                                 #{s1 26647}#
+                                 (append #{s1 26647}# #{m2 26658}#)))))
+                     (cons (let ((#{m2 26666}# (car #{w2 26645}#)))
+                             (if (null? #{m2 26666}#)
+                               #{m1 26646}#
+                               (append #{m1 26646}# #{m2 26666}#)))
+                           (let ((#{m2 26674}# (cdr #{w2 26645}#)))
+                             (if (null? #{m2 26674}#)
+                               #{s1 26647}#
+                               (append #{s1 26647}# #{m2 26674}#)))))))
+               (let ((#{t 26679}#
+                       (#{source-annotation 4334}# #{e 25037}#)))
+                 (if #{t 26679}# #{t 26679}# #{s 25040}#))
+               #{rib 25041}#
+               (let ((#{t 26977}# (vector-ref #{e 25037}# 3)))
+                 (if #{t 26977}# #{t 26977}# #{mod 25042}#))
+               #{for-car? 25043}#)
+             (if (self-evaluating? #{e 25037}#)
                (values
                  'constant
                  #f
-                 #{e 24860}#
-                 #{w 24862}#
-                 #{s 24863}#
-                 #{mod 24865}#)
+                 #{e 25037}#
+                 #{w 25039}#
+                 #{s 25040}#
+                 #{mod 25042}#)
                (values
                  'other
                  #f
-                 #{e 24860}#
-                 #{w 24862}#
-                 #{s 24863}#
-                 #{mod 24865}#)))))))
-   (#{chi 4375}#
-     (lambda (#{e 26788}#
-              #{r 26789}#
-              #{w 26790}#
-              #{mod 26791}#)
+                 #{e 25037}#
+                 #{w 25039}#
+                 #{s 25040}#
+                 #{mod 25042}#)))))))
+   (#{chi 4373}#
+     (lambda (#{e 26986}#
+              #{r 26987}#
+              #{w 26988}#
+              #{mod 26989}#)
        (call-with-values
          (lambda ()
-           (#{syntax-type 4374}#
-             #{e 26788}#
-             #{r 26789}#
-             #{w 26790}#
-             (#{source-annotation 4336}# #{e 26788}#)
+           (#{syntax-type 4372}#
+             #{e 26986}#
+             #{r 26987}#
+             #{w 26988}#
+             (#{source-annotation 4334}# #{e 26986}#)
              #f
-             #{mod 26791}#
+             #{mod 26989}#
              #f))
-         (lambda (#{type 26983}#
-                  #{value 26984}#
-                  #{e 26985}#
-                  #{w 26986}#
-                  #{s 26987}#
-                  #{mod 26988}#)
-           (#{chi-expr 4376}#
-             #{type 26983}#
-             #{value 26984}#
-             #{e 26985}#
-             #{r 26789}#
-             #{w 26986}#
-             #{s 26987}#
-             #{mod 26988}#)))))
-   (#{chi-expr 4376}#
-     (lambda (#{type 26991}#
-              #{value 26992}#
-              #{e 26993}#
-              #{r 26994}#
-              #{w 26995}#
-              #{s 26996}#
-              #{mod 26997}#)
-       (if (eqv? #{type 26991}# 'lexical)
+         (lambda (#{type 27193}#
+                  #{value 27194}#
+                  #{e 27195}#
+                  #{w 27196}#
+                  #{s 27197}#
+                  #{mod 27198}#)
+           (#{chi-expr 4374}#
+             #{type 27193}#
+             #{value 27194}#
+             #{e 27195}#
+             #{r 26987}#
+             #{w 27196}#
+             #{s 27197}#
+             #{mod 27198}#)))))
+   (#{chi-expr 4374}#
+     (lambda (#{type 27201}#
+              #{value 27202}#
+              #{e 27203}#
+              #{r 27204}#
+              #{w 27205}#
+              #{s 27206}#
+              #{mod 27207}#)
+       (if (eqv? #{type 27201}# 'lexical)
          (make-struct/no-tail
            (vector-ref %expanded-vtables 3)
-           #{s 26996}#
-           #{e 26993}#
-           #{value 26992}#)
-         (if (if (eqv? #{type 26991}# 'core)
+           #{s 27206}#
+           #{e 27203}#
+           #{value 27202}#)
+         (if (if (eqv? #{type 27201}# 'core)
                #t
-               (eqv? #{type 26991}# 'core-form))
-           (#{value 26992}#
-             #{e 26993}#
-             #{r 26994}#
-             #{w 26995}#
-             #{s 26996}#
-             #{mod 26997}#)
-           (if (eqv? #{type 26991}# 'module-ref)
+               (eqv? #{type 27201}# 'core-form))
+           (#{value 27202}#
+             #{e 27203}#
+             #{r 27204}#
+             #{w 27205}#
+             #{s 27206}#
+             #{mod 27207}#)
+           (if (eqv? #{type 27201}# 'module-ref)
              (call-with-values
                (lambda ()
-                 (#{value 26992}#
-                   #{e 26993}#
-                   #{r 26994}#
-                   #{w 26995}#))
-               (lambda (#{e 27023}#
-                        #{r 27024}#
-                        #{w 27025}#
-                        #{s 27026}#
-                        #{mod 27027}#)
-                 (#{chi 4375}#
-                   #{e 27023}#
-                   #{r 27024}#
-                   #{w 27025}#
-                   #{mod 27027}#)))
-             (if (eqv? #{type 26991}# 'lexical-call)
-               (#{chi-call 4377}#
-                 (let ((#{id 27204}# (car #{e 26993}#)))
-                   (#{build-lexical-reference 4312}#
+                 (#{value 27202}#
+                   #{e 27203}#
+                   #{r 27204}#
+                   #{w 27205}#))
+               (lambda (#{e 27233}#
+                        #{r 27234}#
+                        #{w 27235}#
+                        #{s 27236}#
+                        #{mod 27237}#)
+                 (#{chi 4373}#
+                   #{e 27233}#
+                   #{r 27234}#
+                   #{w 27235}#
+                   #{mod 27237}#)))
+             (if (eqv? #{type 27201}# 'lexical-call)
+               (#{chi-call 4375}#
+                 (let ((#{id 27418}# (car #{e 27203}#)))
+                   (#{build-lexical-reference 4310}#
                      'fun
-                     (#{source-annotation 4336}# #{id 27204}#)
-                     (if (if (vector? #{id 27204}#)
-                           (if (= (vector-length #{id 27204}#) 4)
-                             (eq? (vector-ref #{id 27204}# 0) 'syntax-object)
+                     (#{source-annotation 4334}# #{id 27418}#)
+                     (if (if (vector? #{id 27418}#)
+                           (if (= (vector-length #{id 27418}#) 4)
+                             (eq? (vector-ref #{id 27418}# 0) 'syntax-object)
                              #f)
                            #f)
-                       (syntax->datum #{id 27204}#)
-                       #{id 27204}#)
-                     #{value 26992}#))
-                 #{e 26993}#
-                 #{r 26994}#
-                 #{w 26995}#
-                 #{s 26996}#
-                 #{mod 26997}#)
-               (if (eqv? #{type 26991}# 'global-call)
-                 (#{chi-call 4377}#
-                   (#{build-global-reference 4315}#
-                     (#{source-annotation 4336}# (car #{e 26993}#))
-                     (if (if (vector? #{value 26992}#)
-                           (if (= (vector-length #{value 26992}#) 4)
-                             (eq? (vector-ref #{value 26992}# 0)
+                       (syntax->datum #{id 27418}#)
+                       #{id 27418}#)
+                     #{value 27202}#))
+                 #{e 27203}#
+                 #{r 27204}#
+                 #{w 27205}#
+                 #{s 27206}#
+                 #{mod 27207}#)
+               (if (eqv? #{type 27201}# 'global-call)
+                 (#{chi-call 4375}#
+                   (#{build-global-reference 4313}#
+                     (#{source-annotation 4334}# (car #{e 27203}#))
+                     (if (if (vector? #{value 27202}#)
+                           (if (= (vector-length #{value 27202}#) 4)
+                             (eq? (vector-ref #{value 27202}# 0)
                                   'syntax-object)
                              #f)
                            #f)
-                       (vector-ref #{value 26992}# 1)
-                       #{value 26992}#)
-                     (if (if (vector? #{value 26992}#)
-                           (if (= (vector-length #{value 26992}#) 4)
-                             (eq? (vector-ref #{value 26992}# 0)
+                       (vector-ref #{value 27202}# 1)
+                       #{value 27202}#)
+                     (if (if (vector? #{value 27202}#)
+                           (if (= (vector-length #{value 27202}#) 4)
+                             (eq? (vector-ref #{value 27202}# 0)
                                   'syntax-object)
                              #f)
                            #f)
-                       (vector-ref #{value 26992}# 3)
-                       #{mod 26997}#))
-                   #{e 26993}#
-                   #{r 26994}#
-                   #{w 26995}#
-                   #{s 26996}#
-                   #{mod 26997}#)
-                 (if (eqv? #{type 26991}# 'constant)
-                   (let ((#{exp 27897}#
-                           (#{strip 4388}#
-                             (let ((#{x 27910}#
+                       (vector-ref #{value 27202}# 3)
+                       #{mod 27207}#))
+                   #{e 27203}#
+                   #{r 27204}#
+                   #{w 27205}#
+                   #{s 27206}#
+                   #{mod 27207}#)
+                 (if (eqv? #{type 27201}# 'constant)
+                   (let ((#{exp 28140}#
+                           (#{strip 4386}#
+                             (let ((#{x 28153}#
                                      (begin
-                                       (if (if (pair? #{e 26993}#)
-                                             #{s 26996}#
+                                       (if (if (pair? #{e 27203}#)
+                                             #{s 27206}#
                                              #f)
                                          (set-source-properties!
-                                           #{e 26993}#
-                                           #{s 26996}#))
-                                       #{e 26993}#)))
-                               (if (if (null? (car #{w 26995}#))
-                                     (null? (cdr #{w 26995}#))
+                                           #{e 27203}#
+                                           #{s 27206}#))
+                                       #{e 27203}#)))
+                               (if (if (null? (car #{w 27205}#))
+                                     (null? (cdr #{w 27205}#))
                                      #f)
-                                 #{x 27910}#
-                                 (if (if (vector? #{x 27910}#)
-                                       (if (= (vector-length #{x 27910}#) 4)
-                                         (eq? (vector-ref #{x 27910}# 0)
+                                 #{x 28153}#
+                                 (if (if (vector? #{x 28153}#)
+                                       (if (= (vector-length #{x 28153}#) 4)
+                                         (eq? (vector-ref #{x 28153}# 0)
                                               'syntax-object)
                                          #f)
                                        #f)
-                                   (let ((#{expression 27942}#
-                                           (vector-ref #{x 27910}# 1))
-                                         (#{wrap 27943}#
-                                           (let ((#{w2 27951}#
-                                                   (vector-ref #{x 27910}# 2)))
-                                             (let ((#{m1 27952}#
-                                                     (car #{w 26995}#))
-                                                   (#{s1 27953}#
-                                                     (cdr #{w 26995}#)))
-                                               (if (null? #{m1 27952}#)
-                                                 (if (null? #{s1 27953}#)
-                                                   #{w2 27951}#
-                                                   (cons (car #{w2 27951}#)
-                                                         (let ((#{m2 27968}#
-                                                                 (cdr #{w2 
27951}#)))
-                                                           (if (null? #{m2 
27968}#)
-                                                             #{s1 27953}#
+                                   (let ((#{expression 28185}#
+                                           (vector-ref #{x 28153}# 1))
+                                         (#{wrap 28186}#
+                                           (let ((#{w2 28194}#
+                                                   (vector-ref #{x 28153}# 2)))
+                                             (let ((#{m1 28195}#
+                                                     (car #{w 27205}#))
+                                                   (#{s1 28196}#
+                                                     (cdr #{w 27205}#)))
+                                               (if (null? #{m1 28195}#)
+                                                 (if (null? #{s1 28196}#)
+                                                   #{w2 28194}#
+                                                   (cons (car #{w2 28194}#)
+                                                         (let ((#{m2 28211}#
+                                                                 (cdr #{w2 
28194}#)))
+                                                           (if (null? #{m2 
28211}#)
+                                                             #{s1 28196}#
                                                              (append
-                                                               #{s1 27953}#
-                                                               #{m2 
27968}#)))))
-                                                 (cons (let ((#{m2 27976}#
-                                                               (car #{w2 
27951}#)))
-                                                         (if (null? #{m2 
27976}#)
-                                                           #{m1 27952}#
+                                                               #{s1 28196}#
+                                                               #{m2 
28211}#)))))
+                                                 (cons (let ((#{m2 28219}#
+                                                               (car #{w2 
28194}#)))
+                                                         (if (null? #{m2 
28219}#)
+                                                           #{m1 28195}#
                                                            (append
-                                                             #{m1 27952}#
-                                                             #{m2 27976}#)))
-                                                       (let ((#{m2 27984}#
-                                                               (cdr #{w2 
27951}#)))
-                                                         (if (null? #{m2 
27984}#)
-                                                           #{s1 27953}#
+                                                             #{m1 28195}#
+                                                             #{m2 28219}#)))
+                                                       (let ((#{m2 28227}#
+                                                               (cdr #{w2 
28194}#)))
+                                                         (if (null? #{m2 
28227}#)
+                                                           #{s1 28196}#
                                                            (append
-                                                             #{s1 27953}#
-                                                             #{m2 
27984}#))))))))
-                                         (#{module 27944}#
-                                           (vector-ref #{x 27910}# 3)))
+                                                             #{s1 28196}#
+                                                             #{m2 
28227}#))))))))
+                                         (#{module 28187}#
+                                           (vector-ref #{x 28153}# 3)))
                                      (vector
                                        'syntax-object
-                                       #{expression 27942}#
-                                       #{wrap 27943}#
-                                       #{module 27944}#))
-                                   (if (null? #{x 27910}#)
-                                     #{x 27910}#
+                                       #{expression 28185}#
+                                       #{wrap 28186}#
+                                       #{module 28187}#))
+                                   (if (null? #{x 28153}#)
+                                     #{x 28153}#
                                      (vector
                                        'syntax-object
-                                       #{x 27910}#
-                                       #{w 26995}#
-                                       #{mod 26997}#)))))
+                                       #{x 28153}#
+                                       #{w 27205}#
+                                       #{mod 27207}#)))))
                              '(()))))
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 1)
-                       #{s 26996}#
-                       #{exp 27897}#))
-                   (if (eqv? #{type 26991}# 'global)
-                     (#{analyze-variable 4314}#
-                       #{mod 26997}#
-                       #{value 26992}#
-                       (lambda (#{mod 28009}# #{var 28010}# #{public? 28011}#)
+                       #{s 27206}#
+                       #{exp 28140}#))
+                   (if (eqv? #{type 27201}# 'global)
+                     (#{analyze-variable 4312}#
+                       #{mod 27207}#
+                       #{value 27202}#
+                       (lambda (#{mod 28252}# #{var 28253}# #{public? 28254}#)
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 5)
-                           #{s 26996}#
-                           #{mod 28009}#
-                           #{var 28010}#
-                           #{public? 28011}#))
-                       (lambda (#{var 28019}#)
+                           #{s 27206}#
+                           #{mod 28252}#
+                           #{var 28253}#
+                           #{public? 28254}#))
+                       (lambda (#{var 28262}#)
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 7)
-                           #{s 26996}#
-                           #{var 28019}#)))
-                     (if (eqv? #{type 26991}# 'call)
-                       (#{chi-call 4377}#
-                         (#{chi 4375}#
-                           (car #{e 26993}#)
-                           #{r 26994}#
-                           #{w 26995}#
-                           #{mod 26997}#)
-                         #{e 26993}#
-                         #{r 26994}#
-                         #{w 26995}#
-                         #{s 26996}#
-                         #{mod 26997}#)
-                       (if (eqv? #{type 26991}# 'begin-form)
-                         (let ((#{tmp 28193}#
+                           #{s 27206}#
+                           #{var 28262}#)))
+                     (if (eqv? #{type 27201}# 'call)
+                       (#{chi-call 4375}#
+                         (#{chi 4373}#
+                           (car #{e 27203}#)
+                           #{r 27204}#
+                           #{w 27205}#
+                           #{mod 27207}#)
+                         #{e 27203}#
+                         #{r 27204}#
+                         #{w 27205}#
+                         #{s 27206}#
+                         #{mod 27207}#)
+                       (if (eqv? #{type 27201}# 'begin-form)
+                         (let ((#{tmp 28440}#
                                  ($sc-dispatch
-                                   #{e 26993}#
+                                   #{e 27203}#
                                    '(_ any . each-any))))
-                           (if #{tmp 28193}#
+                           (if #{tmp 28440}#
                              (@apply
-                               (lambda (#{e1 28197}# #{e2 28198}#)
-                                 (#{chi-sequence 4370}#
-                                   (cons #{e1 28197}# #{e2 28198}#)
-                                   #{r 26994}#
-                                   #{w 26995}#
-                                   #{s 26996}#
-                                   #{mod 26997}#))
-                               #{tmp 28193}#)
+                               (lambda (#{e1 28444}# #{e2 28445}#)
+                                 (#{chi-sequence 4368}#
+                                   (cons #{e1 28444}# #{e2 28445}#)
+                                   #{r 27204}#
+                                   #{w 27205}#
+                                   #{s 27206}#
+                                   #{mod 27207}#))
+                               #{tmp 28440}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{e 26993}#)))
-                         (if (eqv? #{type 26991}# 'local-syntax-form)
-                           (#{chi-local-syntax 4380}#
-                             #{value 26992}#
-                             #{e 26993}#
-                             #{r 26994}#
-                             #{w 26995}#
-                             #{s 26996}#
-                             #{mod 26997}#
-                             #{chi-sequence 4370}#)
-                           (if (eqv? #{type 26991}# 'eval-when-form)
-                             (let ((#{tmp 28374}#
+                               #{e 27203}#)))
+                         (if (eqv? #{type 27201}# 'local-syntax-form)
+                           (#{chi-local-syntax 4378}#
+                             #{value 27202}#
+                             #{e 27203}#
+                             #{r 27204}#
+                             #{w 27205}#
+                             #{s 27206}#
+                             #{mod 27207}#
+                             #{chi-sequence 4368}#)
+                           (if (eqv? #{type 27201}# 'eval-when-form)
+                             (let ((#{tmp 28625}#
                                      ($sc-dispatch
-                                       #{e 26993}#
+                                       #{e 27203}#
                                        '(_ each-any any . each-any))))
-                               (if #{tmp 28374}#
+                               (if #{tmp 28625}#
                                  (@apply
-                                   (lambda (#{x 28378}#
-                                            #{e1 28379}#
-                                            #{e2 28380}#)
-                                     (let ((#{when-list 28381}#
-                                             (#{chi-when-list 4373}#
-                                               #{e 26993}#
-                                               #{x 28378}#
-                                               #{w 26995}#)))
-                                       (if (memq 'eval #{when-list 28381}#)
-                                         (#{chi-sequence 4370}#
-                                           (cons #{e1 28379}# #{e2 28380}#)
-                                           #{r 26994}#
-                                           #{w 26995}#
-                                           #{s 26996}#
-                                           #{mod 26997}#)
+                                   (lambda (#{x 28629}#
+                                            #{e1 28630}#
+                                            #{e2 28631}#)
+                                     (let ((#{when-list 28632}#
+                                             (#{chi-when-list 4371}#
+                                               #{e 27203}#
+                                               #{x 28629}#
+                                               #{w 27205}#)))
+                                       (if (memq 'eval #{when-list 28632}#)
+                                         (#{chi-sequence 4368}#
+                                           (cons #{e1 28630}# #{e2 28631}#)
+                                           #{r 27204}#
+                                           #{w 27205}#
+                                           #{s 27206}#
+                                           #{mod 27207}#)
                                          (make-struct/no-tail
                                            (vector-ref %expanded-vtables 0)
                                            #f))))
-                                   #{tmp 28374}#)
+                                   #{tmp 28625}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{e 26993}#)))
-                             (if (if (eqv? #{type 26991}# 'define-form)
+                                   #{e 27203}#)))
+                             (if (if (eqv? #{type 27201}# 'define-form)
                                    #t
-                                   (eqv? #{type 26991}# 'define-syntax-form))
+                                   (eqv? #{type 27201}# 'define-syntax-form))
                                (syntax-violation
                                  #f
                                  "definition in expression context"
-                                 #{e 26993}#
-                                 (if (if (null? (car #{w 26995}#))
-                                       (null? (cdr #{w 26995}#))
+                                 #{e 27203}#
+                                 (if (if (null? (car #{w 27205}#))
+                                       (null? (cdr #{w 27205}#))
                                        #f)
-                                   #{value 26992}#
-                                   (if (if (vector? #{value 26992}#)
-                                         (if (= (vector-length #{value 26992}#)
+                                   #{value 27202}#
+                                   (if (if (vector? #{value 27202}#)
+                                         (if (= (vector-length #{value 27202}#)
                                                 4)
-                                           (eq? (vector-ref #{value 26992}# 0)
+                                           (eq? (vector-ref #{value 27202}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
-                                     (let ((#{expression 28530}#
-                                             (vector-ref #{value 26992}# 1))
-                                           (#{wrap 28531}#
-                                             (let ((#{w2 28541}#
+                                     (let ((#{expression 28783}#
+                                             (vector-ref #{value 27202}# 1))
+                                           (#{wrap 28784}#
+                                             (let ((#{w2 28794}#
                                                      (vector-ref
-                                                       #{value 26992}#
+                                                       #{value 27202}#
                                                        2)))
-                                               (let ((#{m1 28542}#
-                                                       (car #{w 26995}#))
-                                                     (#{s1 28543}#
-                                                       (cdr #{w 26995}#)))
-                                                 (if (null? #{m1 28542}#)
-                                                   (if (null? #{s1 28543}#)
-                                                     #{w2 28541}#
-                                                     (cons (car #{w2 28541}#)
-                                                           (let ((#{m2 28560}#
-                                                                   (cdr #{w2 
28541}#)))
-                                                             (if (null? #{m2 
28560}#)
-                                                               #{s1 28543}#
+                                               (let ((#{m1 28795}#
+                                                       (car #{w 27205}#))
+                                                     (#{s1 28796}#
+                                                       (cdr #{w 27205}#)))
+                                                 (if (null? #{m1 28795}#)
+                                                   (if (null? #{s1 28796}#)
+                                                     #{w2 28794}#
+                                                     (cons (car #{w2 28794}#)
+                                                           (let ((#{m2 28813}#
+                                                                   (cdr #{w2 
28794}#)))
+                                                             (if (null? #{m2 
28813}#)
+                                                               #{s1 28796}#
                                                                (append
-                                                                 #{s1 28543}#
-                                                                 #{m2 
28560}#)))))
-                                                   (cons (let ((#{m2 28568}#
-                                                                 (car #{w2 
28541}#)))
-                                                           (if (null? #{m2 
28568}#)
-                                                             #{m1 28542}#
+                                                                 #{s1 28796}#
+                                                                 #{m2 
28813}#)))))
+                                                   (cons (let ((#{m2 28821}#
+                                                                 (car #{w2 
28794}#)))
+                                                           (if (null? #{m2 
28821}#)
+                                                             #{m1 28795}#
                                                              (append
-                                                               #{m1 28542}#
-                                                               #{m2 28568}#)))
-                                                         (let ((#{m2 28576}#
-                                                                 (cdr #{w2 
28541}#)))
-                                                           (if (null? #{m2 
28576}#)
-                                                             #{s1 28543}#
+                                                               #{m1 28795}#
+                                                               #{m2 28821}#)))
+                                                         (let ((#{m2 28829}#
+                                                                 (cdr #{w2 
28794}#)))
+                                                           (if (null? #{m2 
28829}#)
+                                                             #{s1 28796}#
                                                              (append
-                                                               #{s1 28543}#
-                                                               #{m2 
28576}#))))))))
-                                           (#{module 28532}#
-                                             (vector-ref #{value 26992}# 3)))
+                                                               #{s1 28796}#
+                                                               #{m2 
28829}#))))))))
+                                           (#{module 28785}#
+                                             (vector-ref #{value 27202}# 3)))
                                        (vector
                                          'syntax-object
-                                         #{expression 28530}#
-                                         #{wrap 28531}#
-                                         #{module 28532}#))
-                                     (if (null? #{value 26992}#)
-                                       #{value 26992}#
+                                         #{expression 28783}#
+                                         #{wrap 28784}#
+                                         #{module 28785}#))
+                                     (if (null? #{value 27202}#)
+                                       #{value 27202}#
                                        (vector
                                          'syntax-object
-                                         #{value 26992}#
-                                         #{w 26995}#
-                                         #{mod 26997}#)))))
-                               (if (eqv? #{type 26991}# 'syntax)
+                                         #{value 27202}#
+                                         #{w 27205}#
+                                         #{mod 27207}#)))))
+                               (if (eqv? #{type 27201}# 'syntax)
                                  (syntax-violation
                                    #f
                                    "reference to pattern variable outside 
syntax form"
-                                   (let ((#{x 28611}#
+                                   (let ((#{x 28864}#
                                            (begin
-                                             (if (if (pair? #{e 26993}#)
-                                                   #{s 26996}#
+                                             (if (if (pair? #{e 27203}#)
+                                                   #{s 27206}#
                                                    #f)
                                                (set-source-properties!
-                                                 #{e 26993}#
-                                                 #{s 26996}#))
-                                             #{e 26993}#)))
-                                     (if (if (null? (car #{w 26995}#))
-                                           (null? (cdr #{w 26995}#))
+                                                 #{e 27203}#
+                                                 #{s 27206}#))
+                                             #{e 27203}#)))
+                                     (if (if (null? (car #{w 27205}#))
+                                           (null? (cdr #{w 27205}#))
                                            #f)
-                                       #{x 28611}#
-                                       (if (if (vector? #{x 28611}#)
-                                             (if (= (vector-length #{x 28611}#)
+                                       #{x 28864}#
+                                       (if (if (vector? #{x 28864}#)
+                                             (if (= (vector-length #{x 28864}#)
                                                     4)
-                                               (eq? (vector-ref #{x 28611}# 0)
+                                               (eq? (vector-ref #{x 28864}# 0)
                                                     'syntax-object)
                                                #f)
                                              #f)
-                                         (let ((#{expression 28643}#
-                                                 (vector-ref #{x 28611}# 1))
-                                               (#{wrap 28644}#
-                                                 (let ((#{w2 28652}#
+                                         (let ((#{expression 28896}#
+                                                 (vector-ref #{x 28864}# 1))
+                                               (#{wrap 28897}#
+                                                 (let ((#{w2 28905}#
                                                          (vector-ref
-                                                           #{x 28611}#
+                                                           #{x 28864}#
                                                            2)))
-                                                   (let ((#{m1 28653}#
-                                                           (car #{w 26995}#))
-                                                         (#{s1 28654}#
-                                                           (cdr #{w 26995}#)))
-                                                     (if (null? #{m1 28653}#)
-                                                       (if (null? #{s1 28654}#)
-                                                         #{w2 28652}#
-                                                         (cons (car #{w2 
28652}#)
-                                                               (let ((#{m2 
28669}#
-                                                                       (cdr 
#{w2 28652}#)))
-                                                                 (if (null? 
#{m2 28669}#)
-                                                                   #{s1 28654}#
+                                                   (let ((#{m1 28906}#
+                                                           (car #{w 27205}#))
+                                                         (#{s1 28907}#
+                                                           (cdr #{w 27205}#)))
+                                                     (if (null? #{m1 28906}#)
+                                                       (if (null? #{s1 28907}#)
+                                                         #{w2 28905}#
+                                                         (cons (car #{w2 
28905}#)
+                                                               (let ((#{m2 
28922}#
+                                                                       (cdr 
#{w2 28905}#)))
+                                                                 (if (null? 
#{m2 28922}#)
+                                                                   #{s1 28907}#
                                                                    (append
-                                                                     #{s1 
28654}#
-                                                                     #{m2 
28669}#)))))
-                                                       (cons (let ((#{m2 
28677}#
-                                                                     (car #{w2 
28652}#)))
-                                                               (if (null? #{m2 
28677}#)
-                                                                 #{m1 28653}#
+                                                                     #{s1 
28907}#
+                                                                     #{m2 
28922}#)))))
+                                                       (cons (let ((#{m2 
28930}#
+                                                                     (car #{w2 
28905}#)))
+                                                               (if (null? #{m2 
28930}#)
+                                                                 #{m1 28906}#
                                                                  (append
-                                                                   #{m1 28653}#
-                                                                   #{m2 
28677}#)))
-                                                             (let ((#{m2 
28685}#
-                                                                     (cdr #{w2 
28652}#)))
-                                                               (if (null? #{m2 
28685}#)
-                                                                 #{s1 28654}#
+                                                                   #{m1 28906}#
+                                                                   #{m2 
28930}#)))
+                                                             (let ((#{m2 
28938}#
+                                                                     (cdr #{w2 
28905}#)))
+                                                               (if (null? #{m2 
28938}#)
+                                                                 #{s1 28907}#
                                                                  (append
-                                                                   #{s1 28654}#
-                                                                   #{m2 
28685}#))))))))
-                                               (#{module 28645}#
-                                                 (vector-ref #{x 28611}# 3)))
+                                                                   #{s1 28907}#
+                                                                   #{m2 
28938}#))))))))
+                                               (#{module 28898}#
+                                                 (vector-ref #{x 28864}# 3)))
                                            (vector
                                              'syntax-object
-                                             #{expression 28643}#
-                                             #{wrap 28644}#
-                                             #{module 28645}#))
-                                         (if (null? #{x 28611}#)
-                                           #{x 28611}#
+                                             #{expression 28896}#
+                                             #{wrap 28897}#
+                                             #{module 28898}#))
+                                         (if (null? #{x 28864}#)
+                                           #{x 28864}#
                                            (vector
                                              'syntax-object
-                                             #{x 28611}#
-                                             #{w 26995}#
-                                             #{mod 26997}#))))))
-                                 (if (eqv? #{type 26991}# 'displaced-lexical)
+                                             #{x 28864}#
+                                             #{w 27205}#
+                                             #{mod 27207}#))))))
+                                 (if (eqv? #{type 27201}# 'displaced-lexical)
                                    (syntax-violation
                                      #f
                                      "reference to identifier outside its 
scope"
-                                     (let ((#{x 28712}#
+                                     (let ((#{x 28965}#
                                              (begin
-                                               (if (if (pair? #{e 26993}#)
-                                                     #{s 26996}#
+                                               (if (if (pair? #{e 27203}#)
+                                                     #{s 27206}#
                                                      #f)
                                                  (set-source-properties!
-                                                   #{e 26993}#
-                                                   #{s 26996}#))
-                                               #{e 26993}#)))
-                                       (if (if (null? (car #{w 26995}#))
-                                             (null? (cdr #{w 26995}#))
+                                                   #{e 27203}#
+                                                   #{s 27206}#))
+                                               #{e 27203}#)))
+                                       (if (if (null? (car #{w 27205}#))
+                                             (null? (cdr #{w 27205}#))
                                              #f)
-                                         #{x 28712}#
-                                         (if (if (vector? #{x 28712}#)
+                                         #{x 28965}#
+                                         (if (if (vector? #{x 28965}#)
                                                (if (= (vector-length
-                                                        #{x 28712}#)
+                                                        #{x 28965}#)
                                                       4)
                                                  (eq? (vector-ref
-                                                        #{x 28712}#
+                                                        #{x 28965}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
-                                           (let ((#{expression 28744}#
-                                                   (vector-ref #{x 28712}# 1))
-                                                 (#{wrap 28745}#
-                                                   (let ((#{w2 28753}#
+                                           (let ((#{expression 28997}#
+                                                   (vector-ref #{x 28965}# 1))
+                                                 (#{wrap 28998}#
+                                                   (let ((#{w2 29006}#
                                                            (vector-ref
-                                                             #{x 28712}#
+                                                             #{x 28965}#
                                                              2)))
-                                                     (let ((#{m1 28754}#
-                                                             (car #{w 26995}#))
-                                                           (#{s1 28755}#
-                                                             (cdr #{w 
26995}#)))
-                                                       (if (null? #{m1 28754}#)
-                                                         (if (null? #{s1 
28755}#)
-                                                           #{w2 28753}#
-                                                           (cons (car #{w2 
28753}#)
-                                                                 (let ((#{m2 
28770}#
-                                                                         (cdr 
#{w2 28753}#)))
-                                                                   (if (null? 
#{m2 28770}#)
-                                                                     #{s1 
28755}#
+                                                     (let ((#{m1 29007}#
+                                                             (car #{w 27205}#))
+                                                           (#{s1 29008}#
+                                                             (cdr #{w 
27205}#)))
+                                                       (if (null? #{m1 29007}#)
+                                                         (if (null? #{s1 
29008}#)
+                                                           #{w2 29006}#
+                                                           (cons (car #{w2 
29006}#)
+                                                                 (let ((#{m2 
29023}#
+                                                                         (cdr 
#{w2 29006}#)))
+                                                                   (if (null? 
#{m2 29023}#)
+                                                                     #{s1 
29008}#
                                                                      (append
-                                                                       #{s1 
28755}#
-                                                                       #{m2 
28770}#)))))
-                                                         (cons (let ((#{m2 
28778}#
-                                                                       (car 
#{w2 28753}#)))
-                                                                 (if (null? 
#{m2 28778}#)
-                                                                   #{m1 28754}#
+                                                                       #{s1 
29008}#
+                                                                       #{m2 
29023}#)))))
+                                                         (cons (let ((#{m2 
29031}#
+                                                                       (car 
#{w2 29006}#)))
+                                                                 (if (null? 
#{m2 29031}#)
+                                                                   #{m1 29007}#
                                                                    (append
-                                                                     #{m1 
28754}#
-                                                                     #{m2 
28778}#)))
-                                                               (let ((#{m2 
28786}#
-                                                                       (cdr 
#{w2 28753}#)))
-                                                                 (if (null? 
#{m2 28786}#)
-                                                                   #{s1 28755}#
+                                                                     #{m1 
29007}#
+                                                                     #{m2 
29031}#)))
+                                                               (let ((#{m2 
29039}#
+                                                                       (cdr 
#{w2 29006}#)))
+                                                                 (if (null? 
#{m2 29039}#)
+                                                                   #{s1 29008}#
                                                                    (append
-                                                                     #{s1 
28755}#
-                                                                     #{m2 
28786}#))))))))
-                                                 (#{module 28746}#
-                                                   (vector-ref #{x 28712}# 3)))
+                                                                     #{s1 
29008}#
+                                                                     #{m2 
29039}#))))))))
+                                                 (#{module 28999}#
+                                                   (vector-ref #{x 28965}# 3)))
                                              (vector
                                                'syntax-object
-                                               #{expression 28744}#
-                                               #{wrap 28745}#
-                                               #{module 28746}#))
-                                           (if (null? #{x 28712}#)
-                                             #{x 28712}#
+                                               #{expression 28997}#
+                                               #{wrap 28998}#
+                                               #{module 28999}#))
+                                           (if (null? #{x 28965}#)
+                                             #{x 28965}#
                                              (vector
                                                'syntax-object
-                                               #{x 28712}#
-                                               #{w 26995}#
-                                               #{mod 26997}#))))))
+                                               #{x 28965}#
+                                               #{w 27205}#
+                                               #{mod 27207}#))))))
                                    (syntax-violation
                                      #f
                                      "unexpected syntax"
-                                     (let ((#{x 28810}#
+                                     (let ((#{x 29063}#
                                              (begin
-                                               (if (if (pair? #{e 26993}#)
-                                                     #{s 26996}#
+                                               (if (if (pair? #{e 27203}#)
+                                                     #{s 27206}#
                                                      #f)
                                                  (set-source-properties!
-                                                   #{e 26993}#
-                                                   #{s 26996}#))
-                                               #{e 26993}#)))
-                                       (if (if (null? (car #{w 26995}#))
-                                             (null? (cdr #{w 26995}#))
+                                                   #{e 27203}#
+                                                   #{s 27206}#))
+                                               #{e 27203}#)))
+                                       (if (if (null? (car #{w 27205}#))
+                                             (null? (cdr #{w 27205}#))
                                              #f)
-                                         #{x 28810}#
-                                         (if (if (vector? #{x 28810}#)
+                                         #{x 29063}#
+                                         (if (if (vector? #{x 29063}#)
                                                (if (= (vector-length
-                                                        #{x 28810}#)
+                                                        #{x 29063}#)
                                                       4)
                                                  (eq? (vector-ref
-                                                        #{x 28810}#
+                                                        #{x 29063}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
-                                           (let ((#{expression 28842}#
-                                                   (vector-ref #{x 28810}# 1))
-                                                 (#{wrap 28843}#
-                                                   (let ((#{w2 28851}#
+                                           (let ((#{expression 29095}#
+                                                   (vector-ref #{x 29063}# 1))
+                                                 (#{wrap 29096}#
+                                                   (let ((#{w2 29104}#
                                                            (vector-ref
-                                                             #{x 28810}#
+                                                             #{x 29063}#
                                                              2)))
-                                                     (let ((#{m1 28852}#
-                                                             (car #{w 26995}#))
-                                                           (#{s1 28853}#
-                                                             (cdr #{w 
26995}#)))
-                                                       (if (null? #{m1 28852}#)
-                                                         (if (null? #{s1 
28853}#)
-                                                           #{w2 28851}#
-                                                           (cons (car #{w2 
28851}#)
-                                                                 (let ((#{m2 
28868}#
-                                                                         (cdr 
#{w2 28851}#)))
-                                                                   (if (null? 
#{m2 28868}#)
-                                                                     #{s1 
28853}#
+                                                     (let ((#{m1 29105}#
+                                                             (car #{w 27205}#))
+                                                           (#{s1 29106}#
+                                                             (cdr #{w 
27205}#)))
+                                                       (if (null? #{m1 29105}#)
+                                                         (if (null? #{s1 
29106}#)
+                                                           #{w2 29104}#
+                                                           (cons (car #{w2 
29104}#)
+                                                                 (let ((#{m2 
29121}#
+                                                                         (cdr 
#{w2 29104}#)))
+                                                                   (if (null? 
#{m2 29121}#)
+                                                                     #{s1 
29106}#
                                                                      (append
-                                                                       #{s1 
28853}#
-                                                                       #{m2 
28868}#)))))
-                                                         (cons (let ((#{m2 
28876}#
-                                                                       (car 
#{w2 28851}#)))
-                                                                 (if (null? 
#{m2 28876}#)
-                                                                   #{m1 28852}#
+                                                                       #{s1 
29106}#
+                                                                       #{m2 
29121}#)))))
+                                                         (cons (let ((#{m2 
29129}#
+                                                                       (car 
#{w2 29104}#)))
+                                                                 (if (null? 
#{m2 29129}#)
+                                                                   #{m1 29105}#
                                                                    (append
-                                                                     #{m1 
28852}#
-                                                                     #{m2 
28876}#)))
-                                                               (let ((#{m2 
28884}#
-                                                                       (cdr 
#{w2 28851}#)))
-                                                                 (if (null? 
#{m2 28884}#)
-                                                                   #{s1 28853}#
+                                                                     #{m1 
29105}#
+                                                                     #{m2 
29129}#)))
+                                                               (let ((#{m2 
29137}#
+                                                                       (cdr 
#{w2 29104}#)))
+                                                                 (if (null? 
#{m2 29137}#)
+                                                                   #{s1 29106}#
                                                                    (append
-                                                                     #{s1 
28853}#
-                                                                     #{m2 
28884}#))))))))
-                                                 (#{module 28844}#
-                                                   (vector-ref #{x 28810}# 3)))
+                                                                     #{s1 
29106}#
+                                                                     #{m2 
29137}#))))))))
+                                                 (#{module 29097}#
+                                                   (vector-ref #{x 29063}# 3)))
                                              (vector
                                                'syntax-object
-                                               #{expression 28842}#
-                                               #{wrap 28843}#
-                                               #{module 28844}#))
-                                           (if (null? #{x 28810}#)
-                                             #{x 28810}#
+                                               #{expression 29095}#
+                                               #{wrap 29096}#
+                                               #{module 29097}#))
+                                           (if (null? #{x 29063}#)
+                                             #{x 29063}#
                                              (vector
                                                'syntax-object
-                                               #{x 28810}#
-                                               #{w 26995}#
-                                               #{mod 
26997}#))))))))))))))))))))))
-   (#{chi-call 4377}#
-     (lambda (#{x 28899}#
-              #{e 28900}#
-              #{r 28901}#
-              #{w 28902}#
-              #{s 28903}#
-              #{mod 28904}#)
-       (let ((#{tmp 28906}#
-               ($sc-dispatch #{e 28900}# '(any . each-any))))
-         (if #{tmp 28906}#
+                                               #{x 29063}#
+                                               #{w 27205}#
+                                               #{mod 
27207}#))))))))))))))))))))))
+   (#{chi-call 4375}#
+     (lambda (#{x 29152}#
+              #{e 29153}#
+              #{r 29154}#
+              #{w 29155}#
+              #{s 29156}#
+              #{mod 29157}#)
+       (let ((#{tmp 29159}#
+               ($sc-dispatch #{e 29153}# '(any . each-any))))
+         (if #{tmp 29159}#
            (@apply
-             (lambda (#{e0 28910}# #{e1 28911}#)
-               (#{build-call 4309}#
-                 #{s 28903}#
-                 #{x 28899}#
-                 (map (lambda (#{e 29001}#)
-                        (#{chi 4375}#
-                          #{e 29001}#
-                          #{r 28901}#
-                          #{w 28902}#
-                          #{mod 28904}#))
-                      #{e1 28911}#)))
-             #{tmp 28906}#)
+             (lambda (#{e0 29163}# #{e1 29164}#)
+               (#{build-call 4307}#
+                 #{s 29156}#
+                 #{x 29152}#
+                 (map (lambda (#{e 29256}#)
+                        (#{chi 4373}#
+                          #{e 29256}#
+                          #{r 29154}#
+                          #{w 29155}#
+                          #{mod 29157}#))
+                      #{e1 29164}#)))
+             #{tmp 29159}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
-             #{e 28900}#)))))
-   (#{chi-macro 4378}#
-     (lambda (#{p 29087}#
-              #{e 29088}#
-              #{r 29089}#
-              #{w 29090}#
-              #{s 29091}#
-              #{rib 29092}#
-              #{mod 29093}#)
+             #{e 29153}#)))))
+   (#{chi-macro 4376}#
+     (lambda (#{p 29344}#
+              #{e 29345}#
+              #{r 29346}#
+              #{w 29347}#
+              #{s 29348}#
+              #{rib 29349}#
+              #{mod 29350}#)
        (letrec*
-         ((#{rebuild-macro-output 29094}#
-            (lambda (#{x 29201}# #{m 29202}#)
-              (if (pair? #{x 29201}#)
-                (let ((#{e 29206}#
-                        (cons (#{rebuild-macro-output 29094}#
-                                (car #{x 29201}#)
-                                #{m 29202}#)
-                              (#{rebuild-macro-output 29094}#
-                                (cdr #{x 29201}#)
-                                #{m 29202}#))))
+         ((#{rebuild-macro-output 29351}#
+            (lambda (#{x 29458}# #{m 29459}#)
+              (if (pair? #{x 29458}#)
+                (let ((#{e 29463}#
+                        (cons (#{rebuild-macro-output 29351}#
+                                (car #{x 29458}#)
+                                #{m 29459}#)
+                              (#{rebuild-macro-output 29351}#
+                                (cdr #{x 29458}#)
+                                #{m 29459}#))))
                   (begin
-                    (if (if (pair? #{e 29206}#) #{s 29091}# #f)
-                      (set-source-properties! #{e 29206}# #{s 29091}#))
-                    #{e 29206}#))
-                (if (if (vector? #{x 29201}#)
-                      (if (= (vector-length #{x 29201}#) 4)
-                        (eq? (vector-ref #{x 29201}# 0) 'syntax-object)
+                    (if (if (pair? #{e 29463}#) #{s 29348}# #f)
+                      (set-source-properties! #{e 29463}# #{s 29348}#))
+                    #{e 29463}#))
+                (if (if (vector? #{x 29458}#)
+                      (if (= (vector-length #{x 29458}#) 4)
+                        (eq? (vector-ref #{x 29458}# 0) 'syntax-object)
                         #f)
                       #f)
-                  (let ((#{w 29222}# (vector-ref #{x 29201}# 2)))
-                    (let ((#{ms 29223}# (car #{w 29222}#))
-                          (#{s 29224}# (cdr #{w 29222}#)))
-                      (if (if (pair? #{ms 29223}#)
-                            (eq? (car #{ms 29223}#) #f)
+                  (let ((#{w 29479}# (vector-ref #{x 29458}# 2)))
+                    (let ((#{ms 29480}# (car #{w 29479}#))
+                          (#{s 29481}# (cdr #{w 29479}#)))
+                      (if (if (pair? #{ms 29480}#)
+                            (eq? (car #{ms 29480}#) #f)
                             #f)
-                        (let ((#{expression 29232}# (vector-ref #{x 29201}# 1))
-                              (#{wrap 29233}#
-                                (cons (cdr #{ms 29223}#)
-                                      (if #{rib 29092}#
-                                        (cons #{rib 29092}# (cdr #{s 29224}#))
-                                        (cdr #{s 29224}#))))
-                              (#{module 29234}# (vector-ref #{x 29201}# 3)))
+                        (let ((#{expression 29489}# (vector-ref #{x 29458}# 1))
+                              (#{wrap 29490}#
+                                (cons (cdr #{ms 29480}#)
+                                      (if #{rib 29349}#
+                                        (cons #{rib 29349}# (cdr #{s 29481}#))
+                                        (cdr #{s 29481}#))))
+                              (#{module 29491}# (vector-ref #{x 29458}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 29232}#
-                            #{wrap 29233}#
-                            #{module 29234}#))
-                        (let ((#{expression 29244}#
-                                (let ((#{e 29249}# (vector-ref #{x 29201}# 1)))
+                            #{expression 29489}#
+                            #{wrap 29490}#
+                            #{module 29491}#))
+                        (let ((#{expression 29501}#
+                                (let ((#{e 29506}# (vector-ref #{x 29458}# 1)))
                                   (begin
-                                    (if (if (pair? #{e 29249}#) #{s 29224}# #f)
+                                    (if (if (pair? #{e 29506}#) #{s 29481}# #f)
                                       (set-source-properties!
-                                        #{e 29249}#
-                                        #{s 29224}#))
-                                    #{e 29249}#)))
-                              (#{wrap 29245}#
-                                (cons (cons #{m 29202}# #{ms 29223}#)
-                                      (if #{rib 29092}#
-                                        (cons #{rib 29092}#
-                                              (cons 'shift #{s 29224}#))
-                                        (cons 'shift #{s 29224}#))))
-                              (#{module 29246}# (vector-ref #{x 29201}# 3)))
+                                        #{e 29506}#
+                                        #{s 29481}#))
+                                    #{e 29506}#)))
+                              (#{wrap 29502}#
+                                (cons (cons #{m 29459}# #{ms 29480}#)
+                                      (if #{rib 29349}#
+                                        (cons #{rib 29349}#
+                                              (cons 'shift #{s 29481}#))
+                                        (cons 'shift #{s 29481}#))))
+                              (#{module 29503}# (vector-ref #{x 29458}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 29244}#
-                            #{wrap 29245}#
-                            #{module 29246}#)))))
-                  (if (vector? #{x 29201}#)
-                    (let ((#{n 29261}# (vector-length #{x 29201}#)))
-                      (let ((#{v 29262}#
-                              (let ((#{e 29270}# (make-vector #{n 29261}#)))
+                            #{expression 29501}#
+                            #{wrap 29502}#
+                            #{module 29503}#)))))
+                  (if (vector? #{x 29458}#)
+                    (let ((#{n 29518}# (vector-length #{x 29458}#)))
+                      (let ((#{v 29519}#
+                              (let ((#{e 29527}# (make-vector #{n 29518}#)))
                                 (begin
-                                  (if (if (pair? #{e 29270}#) #{x 29201}# #f)
+                                  (if (if (pair? #{e 29527}#) #{x 29458}# #f)
                                     (set-source-properties!
-                                      #{e 29270}#
-                                      #{x 29201}#))
-                                  #{e 29270}#))))
+                                      #{e 29527}#
+                                      #{x 29458}#))
+                                  #{e 29527}#))))
                         (letrec*
-                          ((#{loop 29263}#
-                             (lambda (#{i 29324}#)
-                               (if (= #{i 29324}# #{n 29261}#)
-                                 #{v 29262}#
+                          ((#{loop 29520}#
+                             (lambda (#{i 29581}#)
+                               (if (= #{i 29581}# #{n 29518}#)
+                                 #{v 29519}#
                                  (begin
                                    (vector-set!
-                                     #{v 29262}#
-                                     #{i 29324}#
-                                     (#{rebuild-macro-output 29094}#
-                                       (vector-ref #{x 29201}# #{i 29324}#)
-                                       #{m 29202}#))
-                                   (#{loop 29263}# (#{1+}# #{i 29324}#)))))))
-                          (#{loop 29263}# 0))))
-                    (if (symbol? #{x 29201}#)
+                                     #{v 29519}#
+                                     #{i 29581}#
+                                     (#{rebuild-macro-output 29351}#
+                                       (vector-ref #{x 29458}# #{i 29581}#)
+                                       #{m 29459}#))
+                                   (#{loop 29520}# (#{1+}# #{i 29581}#)))))))
+                          (#{loop 29520}# 0))))
+                    (if (symbol? #{x 29458}#)
                       (syntax-violation
                         #f
                         "encountered raw symbol in macro output"
-                        (let ((#{s 29330}# (cdr #{w 29090}#)))
-                          (let ((#{x 29334}#
+                        (let ((#{s 29587}# (cdr #{w 29347}#)))
+                          (let ((#{x 29591}#
                                   (begin
-                                    (if (if (pair? #{e 29088}#) #{s 29330}# #f)
+                                    (if (if (pair? #{e 29345}#) #{s 29587}# #f)
                                       (set-source-properties!
-                                        #{e 29088}#
-                                        #{s 29330}#))
-                                    #{e 29088}#)))
-                            (if (if (null? (car #{w 29090}#))
-                                  (null? (cdr #{w 29090}#))
+                                        #{e 29345}#
+                                        #{s 29587}#))
+                                    #{e 29345}#)))
+                            (if (if (null? (car #{w 29347}#))
+                                  (null? (cdr #{w 29347}#))
                                   #f)
-                              #{x 29334}#
-                              (if (if (vector? #{x 29334}#)
-                                    (if (= (vector-length #{x 29334}#) 4)
-                                      (eq? (vector-ref #{x 29334}# 0)
+                              #{x 29591}#
+                              (if (if (vector? #{x 29591}#)
+                                    (if (= (vector-length #{x 29591}#) 4)
+                                      (eq? (vector-ref #{x 29591}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
-                                (let ((#{expression 29366}#
-                                        (vector-ref #{x 29334}# 1))
-                                      (#{wrap 29367}#
-                                        (let ((#{w2 29375}#
-                                                (vector-ref #{x 29334}# 2)))
-                                          (let ((#{m1 29376}#
-                                                  (car #{w 29090}#))
-                                                (#{s1 29377}#
-                                                  (cdr #{w 29090}#)))
-                                            (if (null? #{m1 29376}#)
-                                              (if (null? #{s1 29377}#)
-                                                #{w2 29375}#
-                                                (cons (car #{w2 29375}#)
-                                                      (let ((#{m2 29392}#
-                                                              (cdr #{w2 
29375}#)))
-                                                        (if (null? #{m2 
29392}#)
-                                                          #{s1 29377}#
+                                (let ((#{expression 29623}#
+                                        (vector-ref #{x 29591}# 1))
+                                      (#{wrap 29624}#
+                                        (let ((#{w2 29632}#
+                                                (vector-ref #{x 29591}# 2)))
+                                          (let ((#{m1 29633}#
+                                                  (car #{w 29347}#))
+                                                (#{s1 29634}#
+                                                  (cdr #{w 29347}#)))
+                                            (if (null? #{m1 29633}#)
+                                              (if (null? #{s1 29634}#)
+                                                #{w2 29632}#
+                                                (cons (car #{w2 29632}#)
+                                                      (let ((#{m2 29649}#
+                                                              (cdr #{w2 
29632}#)))
+                                                        (if (null? #{m2 
29649}#)
+                                                          #{s1 29634}#
                                                           (append
-                                                            #{s1 29377}#
-                                                            #{m2 29392}#)))))
-                                              (cons (let ((#{m2 29400}#
-                                                            (car #{w2 
29375}#)))
-                                                      (if (null? #{m2 29400}#)
-                                                        #{m1 29376}#
+                                                            #{s1 29634}#
+                                                            #{m2 29649}#)))))
+                                              (cons (let ((#{m2 29657}#
+                                                            (car #{w2 
29632}#)))
+                                                      (if (null? #{m2 29657}#)
+                                                        #{m1 29633}#
                                                         (append
-                                                          #{m1 29376}#
-                                                          #{m2 29400}#)))
-                                                    (let ((#{m2 29408}#
-                                                            (cdr #{w2 
29375}#)))
-                                                      (if (null? #{m2 29408}#)
-                                                        #{s1 29377}#
+                                                          #{m1 29633}#
+                                                          #{m2 29657}#)))
+                                                    (let ((#{m2 29665}#
+                                                            (cdr #{w2 
29632}#)))
+                                                      (if (null? #{m2 29665}#)
+                                                        #{s1 29634}#
                                                         (append
-                                                          #{s1 29377}#
-                                                          #{m2 29408}#))))))))
-                                      (#{module 29368}#
-                                        (vector-ref #{x 29334}# 3)))
+                                                          #{s1 29634}#
+                                                          #{m2 29665}#))))))))
+                                      (#{module 29625}#
+                                        (vector-ref #{x 29591}# 3)))
                                   (vector
                                     'syntax-object
-                                    #{expression 29366}#
-                                    #{wrap 29367}#
-                                    #{module 29368}#))
-                                (if (null? #{x 29334}#)
-                                  #{x 29334}#
+                                    #{expression 29623}#
+                                    #{wrap 29624}#
+                                    #{module 29625}#))
+                                (if (null? #{x 29591}#)
+                                  #{x 29591}#
                                   (vector
                                     'syntax-object
-                                    #{x 29334}#
-                                    #{w 29090}#
-                                    #{mod 29093}#))))))
-                        #{x 29201}#)
+                                    #{x 29591}#
+                                    #{w 29347}#
+                                    #{mod 29350}#))))))
+                        #{x 29458}#)
                       (begin
-                        (if (if (pair? #{x 29201}#) #{s 29091}# #f)
-                          (set-source-properties! #{x 29201}# #{s 29091}#))
-                        #{x 29201}#))))))))
-         (#{rebuild-macro-output 29094}#
-           (#{p 29087}#
-             (let ((#{w 29101}#
-                     (cons (cons #f (car #{w 29090}#))
-                           (cons 'shift (cdr #{w 29090}#)))))
-               (let ((#{x 29106}#
+                        (if (if (pair? #{x 29458}#) #{s 29348}# #f)
+                          (set-source-properties! #{x 29458}# #{s 29348}#))
+                        #{x 29458}#))))))))
+         (#{rebuild-macro-output 29351}#
+           (#{p 29344}#
+             (let ((#{w 29358}#
+                     (cons (cons #f (car #{w 29347}#))
+                           (cons 'shift (cdr #{w 29347}#)))))
+               (let ((#{x 29363}#
                        (begin
-                         (if (if (pair? #{e 29088}#) #{s 29091}# #f)
-                           (set-source-properties! #{e 29088}# #{s 29091}#))
-                         #{e 29088}#)))
-                 (if (if (null? (car #{w 29101}#))
-                       (null? (cdr #{w 29101}#))
+                         (if (if (pair? #{e 29345}#) #{s 29348}# #f)
+                           (set-source-properties! #{e 29345}# #{s 29348}#))
+                         #{e 29345}#)))
+                 (if (if (null? (car #{w 29358}#))
+                       (null? (cdr #{w 29358}#))
                        #f)
-                   #{x 29106}#
-                   (if (if (vector? #{x 29106}#)
-                         (if (= (vector-length #{x 29106}#) 4)
-                           (eq? (vector-ref #{x 29106}# 0) 'syntax-object)
+                   #{x 29363}#
+                   (if (if (vector? #{x 29363}#)
+                         (if (= (vector-length #{x 29363}#) 4)
+                           (eq? (vector-ref #{x 29363}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (let ((#{expression 29144}# (vector-ref #{x 29106}# 1))
-                           (#{wrap 29145}#
-                             (let ((#{w2 29153}# (vector-ref #{x 29106}# 2)))
-                               (let ((#{m1 29154}# (car #{w 29101}#))
-                                     (#{s1 29155}# (cdr #{w 29101}#)))
-                                 (if (null? #{m1 29154}#)
-                                   (if (null? #{s1 29155}#)
-                                     #{w2 29153}#
-                                     (cons (car #{w2 29153}#)
-                                           (let ((#{m2 29170}#
-                                                   (cdr #{w2 29153}#)))
-                                             (if (null? #{m2 29170}#)
-                                               #{s1 29155}#
+                     (let ((#{expression 29401}# (vector-ref #{x 29363}# 1))
+                           (#{wrap 29402}#
+                             (let ((#{w2 29410}# (vector-ref #{x 29363}# 2)))
+                               (let ((#{m1 29411}# (car #{w 29358}#))
+                                     (#{s1 29412}# (cdr #{w 29358}#)))
+                                 (if (null? #{m1 29411}#)
+                                   (if (null? #{s1 29412}#)
+                                     #{w2 29410}#
+                                     (cons (car #{w2 29410}#)
+                                           (let ((#{m2 29427}#
+                                                   (cdr #{w2 29410}#)))
+                                             (if (null? #{m2 29427}#)
+                                               #{s1 29412}#
                                                (append
-                                                 #{s1 29155}#
-                                                 #{m2 29170}#)))))
-                                   (cons (let ((#{m2 29178}#
-                                                 (car #{w2 29153}#)))
-                                           (if (null? #{m2 29178}#)
-                                             #{m1 29154}#
+                                                 #{s1 29412}#
+                                                 #{m2 29427}#)))))
+                                   (cons (let ((#{m2 29435}#
+                                                 (car #{w2 29410}#)))
+                                           (if (null? #{m2 29435}#)
+                                             #{m1 29411}#
                                              (append
-                                               #{m1 29154}#
-                                               #{m2 29178}#)))
-                                         (let ((#{m2 29186}#
-                                                 (cdr #{w2 29153}#)))
-                                           (if (null? #{m2 29186}#)
-                                             #{s1 29155}#
+                                               #{m1 29411}#
+                                               #{m2 29435}#)))
+                                         (let ((#{m2 29443}#
+                                                 (cdr #{w2 29410}#)))
+                                           (if (null? #{m2 29443}#)
+                                             #{s1 29412}#
                                              (append
-                                               #{s1 29155}#
-                                               #{m2 29186}#))))))))
-                           (#{module 29146}# (vector-ref #{x 29106}# 3)))
+                                               #{s1 29412}#
+                                               #{m2 29443}#))))))))
+                           (#{module 29403}# (vector-ref #{x 29363}# 3)))
                        (vector
                          'syntax-object
-                         #{expression 29144}#
-                         #{wrap 29145}#
-                         #{module 29146}#))
-                     (if (null? #{x 29106}#)
-                       #{x 29106}#
+                         #{expression 29401}#
+                         #{wrap 29402}#
+                         #{module 29403}#))
+                     (if (null? #{x 29363}#)
+                       #{x 29363}#
                        (vector
                          'syntax-object
-                         #{x 29106}#
-                         #{w 29101}#
-                         #{mod 29093}#)))))))
+                         #{x 29363}#
+                         #{w 29358}#
+                         #{mod 29350}#)))))))
            (gensym "m")))))
-   (#{chi-body 4379}#
-     (lambda (#{body 29438}#
-              #{outer-form 29439}#
-              #{r 29440}#
-              #{w 29441}#
-              #{mod 29442}#)
-       (let ((#{r 29443}#
-               (cons '("placeholder" placeholder) #{r 29440}#)))
-         (let ((#{ribcage 29444}# (vector 'ribcage '() '() '())))
-           (let ((#{w 29445}#
-                   (cons (car #{w 29441}#)
-                         (cons #{ribcage 29444}# (cdr #{w 29441}#)))))
+   (#{chi-body 4377}#
+     (lambda (#{body 29695}#
+              #{outer-form 29696}#
+              #{r 29697}#
+              #{w 29698}#
+              #{mod 29699}#)
+       (let ((#{r 29700}#
+               (cons '("placeholder" placeholder) #{r 29697}#)))
+         (let ((#{ribcage 29701}# (vector 'ribcage '() '() '())))
+           (let ((#{w 29702}#
+                   (cons (car #{w 29698}#)
+                         (cons #{ribcage 29701}# (cdr #{w 29698}#)))))
              (letrec*
-               ((#{parse 29446}#
-                  (lambda (#{body 29554}#
-                           #{ids 29555}#
-                           #{labels 29556}#
-                           #{var-ids 29557}#
-                           #{vars 29558}#
-                           #{vals 29559}#
-                           #{bindings 29560}#)
-                    (if (null? #{body 29554}#)
+               ((#{parse 29703}#
+                  (lambda (#{body 29811}#
+                           #{ids 29812}#
+                           #{labels 29813}#
+                           #{var-ids 29814}#
+                           #{vars 29815}#
+                           #{vals 29816}#
+                           #{bindings 29817}#)
+                    (if (null? #{body 29811}#)
                       (syntax-violation
                         #f
                         "no expressions in body"
-                        #{outer-form 29439}#)
-                      (let ((#{e 29561}# (cdr (car #{body 29554}#)))
-                            (#{er 29562}# (car (car #{body 29554}#))))
+                        #{outer-form 29696}#)
+                      (let ((#{e 29818}# (cdr (car #{body 29811}#)))
+                            (#{er 29819}# (car (car #{body 29811}#))))
                         (call-with-values
                           (lambda ()
-                            (#{syntax-type 4374}#
-                              #{e 29561}#
-                              #{er 29562}#
+                            (#{syntax-type 4372}#
+                              #{e 29818}#
+                              #{er 29819}#
                               '(())
-                              (#{source-annotation 4336}# #{er 29562}#)
-                              #{ribcage 29444}#
-                              #{mod 29442}#
+                              (#{source-annotation 4334}# #{er 29819}#)
+                              #{ribcage 29701}#
+                              #{mod 29699}#
                               #f))
-                          (lambda (#{type 29756}#
-                                   #{value 29757}#
-                                   #{e 29758}#
-                                   #{w 29759}#
-                                   #{s 29760}#
-                                   #{mod 29761}#)
-                            (if (eqv? #{type 29756}# 'define-form)
-                              (let ((#{id 29765}#
-                                      (if (if (null? (car #{w 29759}#))
-                                            (null? (cdr #{w 29759}#))
+                          (lambda (#{type 30025}#
+                                   #{value 30026}#
+                                   #{e 30027}#
+                                   #{w 30028}#
+                                   #{s 30029}#
+                                   #{mod 30030}#)
+                            (if (eqv? #{type 30025}# 'define-form)
+                              (let ((#{id 30034}#
+                                      (if (if (null? (car #{w 30028}#))
+                                            (null? (cdr #{w 30028}#))
                                             #f)
-                                        #{value 29757}#
-                                        (if (if (vector? #{value 29757}#)
+                                        #{value 30026}#
+                                        (if (if (vector? #{value 30026}#)
                                               (if (= (vector-length
-                                                       #{value 29757}#)
+                                                       #{value 30026}#)
                                                      4)
                                                 (eq? (vector-ref
-                                                       #{value 29757}#
+                                                       #{value 30026}#
                                                        0)
                                                      'syntax-object)
                                                 #f)
                                               #f)
-                                          (let ((#{expression 29810}#
+                                          (let ((#{expression 30079}#
                                                   (vector-ref
-                                                    #{value 29757}#
+                                                    #{value 30026}#
                                                     1))
-                                                (#{wrap 29811}#
-                                                  (let ((#{w2 29821}#
+                                                (#{wrap 30080}#
+                                                  (let ((#{w2 30090}#
                                                           (vector-ref
-                                                            #{value 29757}#
+                                                            #{value 30026}#
                                                             2)))
-                                                    (let ((#{m1 29822}#
-                                                            (car #{w 29759}#))
-                                                          (#{s1 29823}#
-                                                            (cdr #{w 29759}#)))
-                                                      (if (null? #{m1 29822}#)
-                                                        (if (null? #{s1 
29823}#)
-                                                          #{w2 29821}#
-                                                          (cons (car #{w2 
29821}#)
-                                                                (let ((#{m2 
29840}#
-                                                                        (cdr 
#{w2 29821}#)))
-                                                                  (if (null? 
#{m2 29840}#)
-                                                                    #{s1 
29823}#
+                                                    (let ((#{m1 30091}#
+                                                            (car #{w 30028}#))
+                                                          (#{s1 30092}#
+                                                            (cdr #{w 30028}#)))
+                                                      (if (null? #{m1 30091}#)
+                                                        (if (null? #{s1 
30092}#)
+                                                          #{w2 30090}#
+                                                          (cons (car #{w2 
30090}#)
+                                                                (let ((#{m2 
30109}#
+                                                                        (cdr 
#{w2 30090}#)))
+                                                                  (if (null? 
#{m2 30109}#)
+                                                                    #{s1 
30092}#
                                                                     (append
-                                                                      #{s1 
29823}#
-                                                                      #{m2 
29840}#)))))
-                                                        (cons (let ((#{m2 
29848}#
-                                                                      (car 
#{w2 29821}#)))
-                                                                (if (null? 
#{m2 29848}#)
-                                                                  #{m1 29822}#
+                                                                      #{s1 
30092}#
+                                                                      #{m2 
30109}#)))))
+                                                        (cons (let ((#{m2 
30117}#
+                                                                      (car 
#{w2 30090}#)))
+                                                                (if (null? 
#{m2 30117}#)
+                                                                  #{m1 30091}#
                                                                   (append
-                                                                    #{m1 
29822}#
-                                                                    #{m2 
29848}#)))
-                                                              (let ((#{m2 
29856}#
-                                                                      (cdr 
#{w2 29821}#)))
-                                                                (if (null? 
#{m2 29856}#)
-                                                                  #{s1 29823}#
+                                                                    #{m1 
30091}#
+                                                                    #{m2 
30117}#)))
+                                                              (let ((#{m2 
30125}#
+                                                                      (cdr 
#{w2 30090}#)))
+                                                                (if (null? 
#{m2 30125}#)
+                                                                  #{s1 30092}#
                                                                   (append
-                                                                    #{s1 
29823}#
-                                                                    #{m2 
29856}#))))))))
-                                                (#{module 29812}#
+                                                                    #{s1 
30092}#
+                                                                    #{m2 
30125}#))))))))
+                                                (#{module 30081}#
                                                   (vector-ref
-                                                    #{value 29757}#
+                                                    #{value 30026}#
                                                     3)))
                                             (vector
                                               'syntax-object
-                                              #{expression 29810}#
-                                              #{wrap 29811}#
-                                              #{module 29812}#))
-                                          (if (null? #{value 29757}#)
-                                            #{value 29757}#
+                                              #{expression 30079}#
+                                              #{wrap 30080}#
+                                              #{module 30081}#))
+                                          (if (null? #{value 30026}#)
+                                            #{value 30026}#
                                             (vector
                                               'syntax-object
-                                              #{value 29757}#
-                                              #{w 29759}#
-                                              #{mod 29761}#)))))
-                                    (#{label 29766}#
+                                              #{value 30026}#
+                                              #{w 30028}#
+                                              #{mod 30030}#)))))
+                                    (#{label 30035}#
                                       (symbol->string (gensym "i"))))
-                                (let ((#{var 29767}#
-                                        (let ((#{id 29917}#
-                                                (if (if (vector? #{id 29765}#)
+                                (let ((#{var 30036}#
+                                        (let ((#{id 30186}#
+                                                (if (if (vector? #{id 30034}#)
                                                       (if (= (vector-length
-                                                               #{id 29765}#)
+                                                               #{id 30034}#)
                                                              4)
                                                         (eq? (vector-ref
-                                                               #{id 29765}#
+                                                               #{id 30034}#
                                                                0)
                                                              'syntax-object)
                                                         #f)
                                                       #f)
-                                                  (vector-ref #{id 29765}# 1)
-                                                  #{id 29765}#)))
+                                                  (vector-ref #{id 30034}# 1)
+                                                  #{id 30034}#)))
                                           (gensym
                                             (string-append
-                                              (symbol->string #{id 29917}#)
+                                              (symbol->string #{id 30186}#)
                                               " ")))))
                                   (begin
                                     (begin
-                                      (let ((#{update 29776}#
-                                              (cons (vector-ref #{id 29765}# 1)
+                                      (let ((#{update 30045}#
+                                              (cons (vector-ref #{id 30034}# 1)
                                                     (vector-ref
-                                                      #{ribcage 29444}#
+                                                      #{ribcage 29701}#
                                                       1))))
                                         (vector-set!
-                                          #{ribcage 29444}#
+                                          #{ribcage 29701}#
                                           1
-                                          #{update 29776}#))
-                                      (let ((#{update 29888}#
+                                          #{update 30045}#))
+                                      (let ((#{update 30157}#
                                               (cons (car (vector-ref
-                                                           #{id 29765}#
+                                                           #{id 30034}#
                                                            2))
                                                     (vector-ref
-                                                      #{ribcage 29444}#
+                                                      #{ribcage 29701}#
                                                       2))))
                                         (vector-set!
-                                          #{ribcage 29444}#
+                                          #{ribcage 29701}#
                                           2
-                                          #{update 29888}#))
-                                      (let ((#{update 29903}#
-                                              (cons #{label 29766}#
+                                          #{update 30157}#))
+                                      (let ((#{update 30172}#
+                                              (cons #{label 30035}#
                                                     (vector-ref
-                                                      #{ribcage 29444}#
+                                                      #{ribcage 29701}#
                                                       3))))
                                         (vector-set!
-                                          #{ribcage 29444}#
+                                          #{ribcage 29701}#
                                           3
-                                          #{update 29903}#)))
-                                    (#{parse 29446}#
-                                      (cdr #{body 29554}#)
-                                      (cons #{id 29765}# #{ids 29555}#)
-                                      (cons #{label 29766}# #{labels 29556}#)
-                                      (cons #{id 29765}# #{var-ids 29557}#)
-                                      (cons #{var 29767}# #{vars 29558}#)
-                                      (cons (cons #{er 29562}#
-                                                  (if (if (null? (car #{w 
29759}#))
-                                                        (null? (cdr #{w 
29759}#))
+                                          #{update 30172}#)))
+                                    (#{parse 29703}#
+                                      (cdr #{body 29811}#)
+                                      (cons #{id 30034}# #{ids 29812}#)
+                                      (cons #{label 30035}# #{labels 29813}#)
+                                      (cons #{id 30034}# #{var-ids 29814}#)
+                                      (cons #{var 30036}# #{vars 29815}#)
+                                      (cons (cons #{er 29819}#
+                                                  (if (if (null? (car #{w 
30028}#))
+                                                        (null? (cdr #{w 
30028}#))
                                                         #f)
-                                                    #{e 29758}#
+                                                    #{e 30027}#
                                                     (if (if (vector?
-                                                              #{e 29758}#)
+                                                              #{e 30027}#)
                                                           (if (= (vector-length
-                                                                   #{e 29758}#)
+                                                                   #{e 30027}#)
                                                                  4)
                                                             (eq? (vector-ref
-                                                                   #{e 29758}#
+                                                                   #{e 30027}#
                                                                    0)
                                                                  
'syntax-object)
                                                             #f)
                                                           #f)
-                                                      (let ((#{expression 
29969}#
+                                                      (let ((#{expression 
30238}#
                                                               (vector-ref
-                                                                #{e 29758}#
+                                                                #{e 30027}#
                                                                 1))
-                                                            (#{wrap 29970}#
-                                                              (let ((#{w2 
29980}#
+                                                            (#{wrap 30239}#
+                                                              (let ((#{w2 
30249}#
                                                                       
(vector-ref
-                                                                        #{e 
29758}#
+                                                                        #{e 
30027}#
                                                                         2)))
-                                                                (let ((#{m1 
29981}#
-                                                                        (car 
#{w 29759}#))
-                                                                      (#{s1 
29982}#
-                                                                        (cdr 
#{w 29759}#)))
-                                                                  (if (null? 
#{m1 29981}#)
-                                                                    (if (null? 
#{s1 29982}#)
-                                                                      #{w2 
29980}#
-                                                                      (cons 
(car #{w2 29980}#)
-                                                                            
(let ((#{m2 29999}#
-                                                                               
     (cdr #{w2 29980}#)))
-                                                                              
(if (null? #{m2 29999}#)
-                                                                               
 #{s1 29982}#
+                                                                (let ((#{m1 
30250}#
+                                                                        (car 
#{w 30028}#))
+                                                                      (#{s1 
30251}#
+                                                                        (cdr 
#{w 30028}#)))
+                                                                  (if (null? 
#{m1 30250}#)
+                                                                    (if (null? 
#{s1 30251}#)
+                                                                      #{w2 
30249}#
+                                                                      (cons 
(car #{w2 30249}#)
+                                                                            
(let ((#{m2 30268}#
+                                                                               
     (cdr #{w2 30249}#)))
+                                                                              
(if (null? #{m2 30268}#)
+                                                                               
 #{s1 30251}#
                                                                                
 (append
-                                                                               
   #{s1 29982}#
-                                                                               
   #{m2 29999}#)))))
-                                                                    (cons (let 
((#{m2 30007}#
-                                                                               
   (car #{w2 29980}#)))
-                                                                            
(if (null? #{m2 30007}#)
-                                                                              
#{m1 29981}#
+                                                                               
   #{s1 30251}#
+                                                                               
   #{m2 30268}#)))))
+                                                                    (cons (let 
((#{m2 30276}#
+                                                                               
   (car #{w2 30249}#)))
+                                                                            
(if (null? #{m2 30276}#)
+                                                                              
#{m1 30250}#
                                                                               
(append
-                                                                               
 #{m1 29981}#
-                                                                               
 #{m2 30007}#)))
-                                                                          (let 
((#{m2 30015}#
-                                                                               
   (cdr #{w2 29980}#)))
-                                                                            
(if (null? #{m2 30015}#)
-                                                                              
#{s1 29982}#
+                                                                               
 #{m1 30250}#
+                                                                               
 #{m2 30276}#)))
+                                                                          (let 
((#{m2 30284}#
+                                                                               
   (cdr #{w2 30249}#)))
+                                                                            
(if (null? #{m2 30284}#)
+                                                                              
#{s1 30251}#
                                                                               
(append
-                                                                               
 #{s1 29982}#
-                                                                               
 #{m2 30015}#))))))))
-                                                            (#{module 29971}#
+                                                                               
 #{s1 30251}#
+                                                                               
 #{m2 30284}#))))))))
+                                                            (#{module 30240}#
                                                               (vector-ref
-                                                                #{e 29758}#
+                                                                #{e 30027}#
                                                                 3)))
                                                         (vector
                                                           'syntax-object
-                                                          #{expression 29969}#
-                                                          #{wrap 29970}#
-                                                          #{module 29971}#))
-                                                      (if (null? #{e 29758}#)
-                                                        #{e 29758}#
+                                                          #{expression 30238}#
+                                                          #{wrap 30239}#
+                                                          #{module 30240}#))
+                                                      (if (null? #{e 30027}#)
+                                                        #{e 30027}#
                                                         (vector
                                                           'syntax-object
-                                                          #{e 29758}#
-                                                          #{w 29759}#
-                                                          #{mod 29761}#)))))
-                                            #{vals 29559}#)
-                                      (cons (cons 'lexical #{var 29767}#)
-                                            #{bindings 29560}#)))))
-                              (if (eqv? #{type 29756}# 'define-syntax-form)
-                                (let ((#{id 30041}#
-                                        (if (if (null? (car #{w 29759}#))
-                                              (null? (cdr #{w 29759}#))
+                                                          #{e 30027}#
+                                                          #{w 30028}#
+                                                          #{mod 30030}#)))))
+                                            #{vals 29816}#)
+                                      (cons (cons 'lexical #{var 30036}#)
+                                            #{bindings 29817}#)))))
+                              (if (eqv? #{type 30025}# 'define-syntax-form)
+                                (let ((#{id 30310}#
+                                        (if (if (null? (car #{w 30028}#))
+                                              (null? (cdr #{w 30028}#))
                                               #f)
-                                          #{value 29757}#
-                                          (if (if (vector? #{value 29757}#)
+                                          #{value 30026}#
+                                          (if (if (vector? #{value 30026}#)
                                                 (if (= (vector-length
-                                                         #{value 29757}#)
+                                                         #{value 30026}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{value 29757}#
+                                                         #{value 30026}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (let ((#{expression 30085}#
+                                            (let ((#{expression 30354}#
                                                     (vector-ref
-                                                      #{value 29757}#
+                                                      #{value 30026}#
                                                       1))
-                                                  (#{wrap 30086}#
-                                                    (let ((#{w2 30096}#
+                                                  (#{wrap 30355}#
+                                                    (let ((#{w2 30365}#
                                                             (vector-ref
-                                                              #{value 29757}#
+                                                              #{value 30026}#
                                                               2)))
-                                                      (let ((#{m1 30097}#
-                                                              (car #{w 
29759}#))
-                                                            (#{s1 30098}#
-                                                              (cdr #{w 
29759}#)))
-                                                        (if (null? #{m1 
30097}#)
-                                                          (if (null? #{s1 
30098}#)
-                                                            #{w2 30096}#
-                                                            (cons (car #{w2 
30096}#)
-                                                                  (let ((#{m2 
30115}#
-                                                                          (cdr 
#{w2 30096}#)))
-                                                                    (if (null? 
#{m2 30115}#)
-                                                                      #{s1 
30098}#
+                                                      (let ((#{m1 30366}#
+                                                              (car #{w 
30028}#))
+                                                            (#{s1 30367}#
+                                                              (cdr #{w 
30028}#)))
+                                                        (if (null? #{m1 
30366}#)
+                                                          (if (null? #{s1 
30367}#)
+                                                            #{w2 30365}#
+                                                            (cons (car #{w2 
30365}#)
+                                                                  (let ((#{m2 
30384}#
+                                                                          (cdr 
#{w2 30365}#)))
+                                                                    (if (null? 
#{m2 30384}#)
+                                                                      #{s1 
30367}#
                                                                       (append
-                                                                        #{s1 
30098}#
-                                                                        #{m2 
30115}#)))))
-                                                          (cons (let ((#{m2 
30123}#
-                                                                        (car 
#{w2 30096}#)))
-                                                                  (if (null? 
#{m2 30123}#)
-                                                                    #{m1 
30097}#
+                                                                        #{s1 
30367}#
+                                                                        #{m2 
30384}#)))))
+                                                          (cons (let ((#{m2 
30392}#
+                                                                        (car 
#{w2 30365}#)))
+                                                                  (if (null? 
#{m2 30392}#)
+                                                                    #{m1 
30366}#
                                                                     (append
-                                                                      #{m1 
30097}#
-                                                                      #{m2 
30123}#)))
-                                                                (let ((#{m2 
30131}#
-                                                                        (cdr 
#{w2 30096}#)))
-                                                                  (if (null? 
#{m2 30131}#)
-                                                                    #{s1 
30098}#
+                                                                      #{m1 
30366}#
+                                                                      #{m2 
30392}#)))
+                                                                (let ((#{m2 
30400}#
+                                                                        (cdr 
#{w2 30365}#)))
+                                                                  (if (null? 
#{m2 30400}#)
+                                                                    #{s1 
30367}#
                                                                     (append
-                                                                      #{s1 
30098}#
-                                                                      #{m2 
30131}#))))))))
-                                                  (#{module 30087}#
+                                                                      #{s1 
30367}#
+                                                                      #{m2 
30400}#))))))))
+                                                  (#{module 30356}#
                                                     (vector-ref
-                                                      #{value 29757}#
+                                                      #{value 30026}#
                                                       3)))
                                               (vector
                                                 'syntax-object
-                                                #{expression 30085}#
-                                                #{wrap 30086}#
-                                                #{module 30087}#))
-                                            (if (null? #{value 29757}#)
-                                              #{value 29757}#
+                                                #{expression 30354}#
+                                                #{wrap 30355}#
+                                                #{module 30356}#))
+                                            (if (null? #{value 30026}#)
+                                              #{value 30026}#
                                               (vector
                                                 'syntax-object
-                                                #{value 29757}#
-                                                #{w 29759}#
-                                                #{mod 29761}#)))))
-                                      (#{label 30042}#
+                                                #{value 30026}#
+                                                #{w 30028}#
+                                                #{mod 30030}#)))))
+                                      (#{label 30311}#
                                         (symbol->string (gensym "i"))))
                                   (begin
                                     (begin
-                                      (let ((#{update 30051}#
-                                              (cons (vector-ref #{id 30041}# 1)
+                                      (let ((#{update 30320}#
+                                              (cons (vector-ref #{id 30310}# 1)
                                                     (vector-ref
-                                                      #{ribcage 29444}#
+                                                      #{ribcage 29701}#
                                                       1))))
                                         (vector-set!
-                                          #{ribcage 29444}#
+                                          #{ribcage 29701}#
                                           1
-                                          #{update 30051}#))
-                                      (let ((#{update 30163}#
+                                          #{update 30320}#))
+                                      (let ((#{update 30432}#
                                               (cons (car (vector-ref
-                                                           #{id 30041}#
+                                                           #{id 30310}#
                                                            2))
                                                     (vector-ref
-                                                      #{ribcage 29444}#
+                                                      #{ribcage 29701}#
                                                       2))))
                                         (vector-set!
-                                          #{ribcage 29444}#
+                                          #{ribcage 29701}#
                                           2
-                                          #{update 30163}#))
-                                      (let ((#{update 30178}#
-                                              (cons #{label 30042}#
+                                          #{update 30432}#))
+                                      (let ((#{update 30447}#
+                                              (cons #{label 30311}#
                                                     (vector-ref
-                                                      #{ribcage 29444}#
+                                                      #{ribcage 29701}#
                                                       3))))
                                         (vector-set!
-                                          #{ribcage 29444}#
+                                          #{ribcage 29701}#
                                           3
-                                          #{update 30178}#)))
-                                    (#{parse 29446}#
-                                      (cdr #{body 29554}#)
-                                      (cons #{id 30041}# #{ids 29555}#)
-                                      (cons #{label 30042}# #{labels 29556}#)
-                                      #{var-ids 29557}#
-                                      #{vars 29558}#
-                                      #{vals 29559}#
+                                          #{update 30447}#)))
+                                    (#{parse 29703}#
+                                      (cdr #{body 29811}#)
+                                      (cons #{id 30310}# #{ids 29812}#)
+                                      (cons #{label 30311}# #{labels 29813}#)
+                                      #{var-ids 29814}#
+                                      #{vars 29815}#
+                                      #{vals 29816}#
                                       (cons (cons 'macro
-                                                  (cons #{er 29562}#
-                                                        (if (if (null? (car 
#{w 29759}#))
-                                                              (null? (cdr #{w 
29759}#))
+                                                  (cons #{er 29819}#
+                                                        (if (if (null? (car 
#{w 30028}#))
+                                                              (null? (cdr #{w 
30028}#))
                                                               #f)
-                                                          #{e 29758}#
+                                                          #{e 30027}#
                                                           (if (if (vector?
-                                                                    #{e 
29758}#)
+                                                                    #{e 
30027}#)
                                                                 (if (= 
(vector-length
-                                                                         #{e 
29758}#)
+                                                                         #{e 
30027}#)
                                                                        4)
                                                                   (eq? 
(vector-ref
-                                                                         #{e 
29758}#
+                                                                         #{e 
30027}#
                                                                          0)
                                                                        
'syntax-object)
                                                                   #f)
                                                                 #f)
-                                                            (let 
((#{expression 30217}#
+                                                            (let 
((#{expression 30486}#
                                                                     (vector-ref
-                                                                      #{e 
29758}#
+                                                                      #{e 
30027}#
                                                                       1))
-                                                                  (#{wrap 
30218}#
-                                                                    (let 
((#{w2 30228}#
+                                                                  (#{wrap 
30487}#
+                                                                    (let 
((#{w2 30497}#
                                                                             
(vector-ref
-                                                                              
#{e 29758}#
+                                                                              
#{e 30027}#
                                                                               
2)))
-                                                                      (let 
((#{m1 30229}#
-                                                                              
(car #{w 29759}#))
-                                                                            
(#{s1 30230}#
-                                                                              
(cdr #{w 29759}#)))
-                                                                        (if 
(null? #{m1 30229}#)
-                                                                          (if 
(null? #{s1 30230}#)
-                                                                            
#{w2 30228}#
-                                                                            
(cons (car #{w2 30228}#)
-                                                                               
   (let ((#{m2 30247}#
-                                                                               
           (cdr #{w2 30228}#)))
-                                                                               
     (if (null? #{m2 30247}#)
-                                                                               
       #{s1 30230}#
+                                                                      (let 
((#{m1 30498}#
+                                                                              
(car #{w 30028}#))
+                                                                            
(#{s1 30499}#
+                                                                              
(cdr #{w 30028}#)))
+                                                                        (if 
(null? #{m1 30498}#)
+                                                                          (if 
(null? #{s1 30499}#)
+                                                                            
#{w2 30497}#
+                                                                            
(cons (car #{w2 30497}#)
+                                                                               
   (let ((#{m2 30516}#
+                                                                               
           (cdr #{w2 30497}#)))
+                                                                               
     (if (null? #{m2 30516}#)
+                                                                               
       #{s1 30499}#
                                                                                
       (append
-                                                                               
         #{s1 30230}#
-                                                                               
         #{m2 30247}#)))))
-                                                                          
(cons (let ((#{m2 30255}#
-                                                                               
         (car #{w2 30228}#)))
-                                                                               
   (if (null? #{m2 30255}#)
-                                                                               
     #{m1 30229}#
+                                                                               
         #{s1 30499}#
+                                                                               
         #{m2 30516}#)))))
+                                                                          
(cons (let ((#{m2 30524}#
+                                                                               
         (car #{w2 30497}#)))
+                                                                               
   (if (null? #{m2 30524}#)
+                                                                               
     #{m1 30498}#
                                                                                
     (append
-                                                                               
       #{m1 30229}#
-                                                                               
       #{m2 30255}#)))
-                                                                               
 (let ((#{m2 30263}#
-                                                                               
         (cdr #{w2 30228}#)))
-                                                                               
   (if (null? #{m2 30263}#)
-                                                                               
     #{s1 30230}#
+                                                                               
       #{m1 30498}#
+                                                                               
       #{m2 30524}#)))
+                                                                               
 (let ((#{m2 30532}#
+                                                                               
         (cdr #{w2 30497}#)))
+                                                                               
   (if (null? #{m2 30532}#)
+                                                                               
     #{s1 30499}#
                                                                                
     (append
-                                                                               
       #{s1 30230}#
-                                                                               
       #{m2 30263}#))))))))
-                                                                  (#{module 
30219}#
+                                                                               
       #{s1 30499}#
+                                                                               
       #{m2 30532}#))))))))
+                                                                  (#{module 
30488}#
                                                                     (vector-ref
-                                                                      #{e 
29758}#
+                                                                      #{e 
30027}#
                                                                       3)))
                                                               (vector
                                                                 'syntax-object
-                                                                #{expression 
30217}#
-                                                                #{wrap 30218}#
-                                                                #{module 
30219}#))
-                                                            (if (null? #{e 
29758}#)
-                                                              #{e 29758}#
+                                                                #{expression 
30486}#
+                                                                #{wrap 30487}#
+                                                                #{module 
30488}#))
+                                                            (if (null? #{e 
30027}#)
+                                                              #{e 30027}#
                                                               (vector
                                                                 'syntax-object
-                                                                #{e 29758}#
-                                                                #{w 29759}#
-                                                                #{mod 
29761}#))))))
-                                            #{bindings 29560}#))))
-                                (if (eqv? #{type 29756}# 'begin-form)
-                                  (let ((#{tmp 30290}#
+                                                                #{e 30027}#
+                                                                #{w 30028}#
+                                                                #{mod 
30030}#))))))
+                                            #{bindings 29817}#))))
+                                (if (eqv? #{type 30025}# 'begin-form)
+                                  (let ((#{tmp 30559}#
                                           ($sc-dispatch
-                                            #{e 29758}#
+                                            #{e 30027}#
                                             '(_ . each-any))))
-                                    (if #{tmp 30290}#
+                                    (if #{tmp 30559}#
                                       (@apply
-                                        (lambda (#{e1 30294}#)
-                                          (#{parse 29446}#
+                                        (lambda (#{e1 30563}#)
+                                          (#{parse 29703}#
                                             (letrec*
-                                              ((#{f 30295}#
-                                                 (lambda (#{forms 30509}#)
-                                                   (if (null? #{forms 30509}#)
-                                                     (cdr #{body 29554}#)
-                                                     (cons (cons #{er 29562}#
-                                                                 (let ((#{x 
30513}#
-                                                                         (car 
#{forms 30509}#)))
-                                                                   (if (if 
(null? (car #{w 29759}#))
-                                                                         
(null? (cdr #{w 29759}#))
+                                              ((#{f 30564}#
+                                                 (lambda (#{forms 30780}#)
+                                                   (if (null? #{forms 30780}#)
+                                                     (cdr #{body 29811}#)
+                                                     (cons (cons #{er 29819}#
+                                                                 (let ((#{x 
30784}#
+                                                                         (car 
#{forms 30780}#)))
+                                                                   (if (if 
(null? (car #{w 30028}#))
+                                                                         
(null? (cdr #{w 30028}#))
                                                                          #f)
-                                                                     #{x 
30513}#
+                                                                     #{x 
30784}#
                                                                      (if (if 
(vector?
-                                                                               
#{x 30513}#)
+                                                                               
#{x 30784}#)
                                                                            (if 
(= (vector-length
-                                                                               
     #{x 30513}#)
+                                                                               
     #{x 30784}#)
                                                                                
   4)
                                                                              
(eq? (vector-ref
-                                                                               
     #{x 30513}#
+                                                                               
     #{x 30784}#
                                                                                
     0)
                                                                                
   'syntax-object)
                                                                              
#f)
                                                                            #f)
-                                                                       (let 
((#{expression 30531}#
+                                                                       (let 
((#{expression 30802}#
                                                                                
(vector-ref
-                                                                               
  #{x 30513}#
+                                                                               
  #{x 30784}#
                                                                                
  1))
-                                                                             
(#{wrap 30532}#
-                                                                               
(let ((#{w2 30540}#
+                                                                             
(#{wrap 30803}#
+                                                                               
(let ((#{w2 30811}#
                                                                                
        (vector-ref
-                                                                               
          #{x 30513}#
+                                                                               
          #{x 30784}#
                                                                                
          2)))
-                                                                               
  (let ((#{m1 30541}#
-                                                                               
          (car #{w 29759}#))
-                                                                               
        (#{s1 30542}#
-                                                                               
          (cdr #{w 29759}#)))
-                                                                               
    (if (null? #{m1 30541}#)
-                                                                               
      (if (null? #{s1 30542}#)
-                                                                               
        #{w2 30540}#
-                                                                               
        (cons (car #{w2 30540}#)
-                                                                               
              (let ((#{m2 30557}#
-                                                                               
                      (cdr #{w2 30540}#)))
-                                                                               
                (if (null? #{m2 30557}#)
-                                                                               
                  #{s1 30542}#
+                                                                               
  (let ((#{m1 30812}#
+                                                                               
          (car #{w 30028}#))
+                                                                               
        (#{s1 30813}#
+                                                                               
          (cdr #{w 30028}#)))
+                                                                               
    (if (null? #{m1 30812}#)
+                                                                               
      (if (null? #{s1 30813}#)
+                                                                               
        #{w2 30811}#
+                                                                               
        (cons (car #{w2 30811}#)
+                                                                               
              (let ((#{m2 30828}#
+                                                                               
                      (cdr #{w2 30811}#)))
+                                                                               
                (if (null? #{m2 30828}#)
+                                                                               
                  #{s1 30813}#
                                                                                
                  (append
-                                                                               
                    #{s1 30542}#
-                                                                               
                    #{m2 30557}#)))))
-                                                                               
      (cons (let ((#{m2 30565}#
-                                                                               
                    (car #{w2 30540}#)))
-                                                                               
              (if (null? #{m2 30565}#)
-                                                                               
                #{m1 30541}#
+                                                                               
                    #{s1 30813}#
+                                                                               
                    #{m2 30828}#)))))
+                                                                               
      (cons (let ((#{m2 30836}#
+                                                                               
                    (car #{w2 30811}#)))
+                                                                               
              (if (null? #{m2 30836}#)
+                                                                               
                #{m1 30812}#
                                                                                
                (append
-                                                                               
                  #{m1 30541}#
-                                                                               
                  #{m2 30565}#)))
-                                                                               
            (let ((#{m2 30573}#
-                                                                               
                    (cdr #{w2 30540}#)))
-                                                                               
              (if (null? #{m2 30573}#)
-                                                                               
                #{s1 30542}#
+                                                                               
                  #{m1 30812}#
+                                                                               
                  #{m2 30836}#)))
+                                                                               
            (let ((#{m2 30844}#
+                                                                               
                    (cdr #{w2 30811}#)))
+                                                                               
              (if (null? #{m2 30844}#)
+                                                                               
                #{s1 30813}#
                                                                                
                (append
-                                                                               
                  #{s1 30542}#
-                                                                               
                  #{m2 30573}#))))))))
-                                                                             
(#{module 30533}#
+                                                                               
                  #{s1 30813}#
+                                                                               
                  #{m2 30844}#))))))))
+                                                                             
(#{module 30804}#
                                                                                
(vector-ref
-                                                                               
  #{x 30513}#
+                                                                               
  #{x 30784}#
                                                                                
  3)))
                                                                          
(vector
                                                                            
'syntax-object
-                                                                           
#{expression 30531}#
-                                                                           
#{wrap 30532}#
-                                                                           
#{module 30533}#))
-                                                                       (if 
(null? #{x 30513}#)
-                                                                         #{x 
30513}#
+                                                                           
#{expression 30802}#
+                                                                           
#{wrap 30803}#
+                                                                           
#{module 30804}#))
+                                                                       (if 
(null? #{x 30784}#)
+                                                                         #{x 
30784}#
                                                                          
(vector
                                                                            
'syntax-object
-                                                                           #{x 
30513}#
-                                                                           #{w 
29759}#
-                                                                           
#{mod 29761}#))))))
-                                                           (#{f 30295}#
-                                                             (cdr #{forms 
30509}#)))))))
-                                              (#{f 30295}# #{e1 30294}#))
-                                            #{ids 29555}#
-                                            #{labels 29556}#
-                                            #{var-ids 29557}#
-                                            #{vars 29558}#
-                                            #{vals 29559}#
-                                            #{bindings 29560}#))
-                                        #{tmp 30290}#)
+                                                                           #{x 
30784}#
+                                                                           #{w 
30028}#
+                                                                           
#{mod 30030}#))))))
+                                                           (#{f 30564}#
+                                                             (cdr #{forms 
30780}#)))))))
+                                              (#{f 30564}# #{e1 30563}#))
+                                            #{ids 29812}#
+                                            #{labels 29813}#
+                                            #{var-ids 29814}#
+                                            #{vars 29815}#
+                                            #{vals 29816}#
+                                            #{bindings 29817}#))
+                                        #{tmp 30559}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{e 29758}#)))
-                                  (if (eqv? #{type 29756}# 'local-syntax-form)
-                                    (#{chi-local-syntax 4380}#
-                                      #{value 29757}#
-                                      #{e 29758}#
-                                      #{er 29562}#
-                                      #{w 29759}#
-                                      #{s 29760}#
-                                      #{mod 29761}#
-                                      (lambda (#{forms 30599}#
-                                               #{er 30600}#
-                                               #{w 30601}#
-                                               #{s 30602}#
-                                               #{mod 30603}#)
-                                        (#{parse 29446}#
+                                        #{e 30027}#)))
+                                  (if (eqv? #{type 30025}# 'local-syntax-form)
+                                    (#{chi-local-syntax 4378}#
+                                      #{value 30026}#
+                                      #{e 30027}#
+                                      #{er 29819}#
+                                      #{w 30028}#
+                                      #{s 30029}#
+                                      #{mod 30030}#
+                                      (lambda (#{forms 30870}#
+                                               #{er 30871}#
+                                               #{w 30872}#
+                                               #{s 30873}#
+                                               #{mod 30874}#)
+                                        (#{parse 29703}#
                                           (letrec*
-                                            ((#{f 30604}#
-                                               (lambda (#{forms 30818}#)
-                                                 (if (null? #{forms 30818}#)
-                                                   (cdr #{body 29554}#)
-                                                   (cons (cons #{er 30600}#
-                                                               (let ((#{x 
30822}#
-                                                                       (car 
#{forms 30818}#)))
-                                                                 (if (if 
(null? (car #{w 30601}#))
-                                                                       (null? 
(cdr #{w 30601}#))
+                                            ((#{f 30875}#
+                                               (lambda (#{forms 31091}#)
+                                                 (if (null? #{forms 31091}#)
+                                                   (cdr #{body 29811}#)
+                                                   (cons (cons #{er 30871}#
+                                                               (let ((#{x 
31095}#
+                                                                       (car 
#{forms 31091}#)))
+                                                                 (if (if 
(null? (car #{w 30872}#))
+                                                                       (null? 
(cdr #{w 30872}#))
                                                                        #f)
-                                                                   #{x 30822}#
+                                                                   #{x 31095}#
                                                                    (if (if 
(vector?
-                                                                             
#{x 30822}#)
+                                                                             
#{x 31095}#)
                                                                          (if 
(= (vector-length
-                                                                               
   #{x 30822}#)
+                                                                               
   #{x 31095}#)
                                                                                
 4)
                                                                            
(eq? (vector-ref
-                                                                               
   #{x 30822}#
+                                                                               
   #{x 31095}#
                                                                                
   0)
                                                                                
 'syntax-object)
                                                                            #f)
                                                                          #f)
-                                                                     (let 
((#{expression 30840}#
+                                                                     (let 
((#{expression 31113}#
                                                                              
(vector-ref
-                                                                               
#{x 30822}#
+                                                                               
#{x 31095}#
                                                                                
1))
-                                                                           
(#{wrap 30841}#
-                                                                             
(let ((#{w2 30849}#
+                                                                           
(#{wrap 31114}#
+                                                                             
(let ((#{w2 31122}#
                                                                                
      (vector-ref
-                                                                               
        #{x 30822}#
+                                                                               
        #{x 31095}#
                                                                                
        2)))
-                                                                               
(let ((#{m1 30850}#
-                                                                               
        (car #{w 30601}#))
-                                                                               
      (#{s1 30851}#
-                                                                               
        (cdr #{w 30601}#)))
-                                                                               
  (if (null? #{m1 30850}#)
-                                                                               
    (if (null? #{s1 30851}#)
-                                                                               
      #{w2 30849}#
-                                                                               
      (cons (car #{w2 30849}#)
-                                                                               
            (let ((#{m2 30866}#
-                                                                               
                    (cdr #{w2 30849}#)))
-                                                                               
              (if (null? #{m2 30866}#)
-                                                                               
                #{s1 30851}#
+                                                                               
(let ((#{m1 31123}#
+                                                                               
        (car #{w 30872}#))
+                                                                               
      (#{s1 31124}#
+                                                                               
        (cdr #{w 30872}#)))
+                                                                               
  (if (null? #{m1 31123}#)
+                                                                               
    (if (null? #{s1 31124}#)
+                                                                               
      #{w2 31122}#
+                                                                               
      (cons (car #{w2 31122}#)
+                                                                               
            (let ((#{m2 31139}#
+                                                                               
                    (cdr #{w2 31122}#)))
+                                                                               
              (if (null? #{m2 31139}#)
+                                                                               
                #{s1 31124}#
                                                                                
                (append
-                                                                               
                  #{s1 30851}#
-                                                                               
                  #{m2 30866}#)))))
-                                                                               
    (cons (let ((#{m2 30874}#
-                                                                               
                  (car #{w2 30849}#)))
-                                                                               
            (if (null? #{m2 30874}#)
-                                                                               
              #{m1 30850}#
+                                                                               
                  #{s1 31124}#
+                                                                               
                  #{m2 31139}#)))))
+                                                                               
    (cons (let ((#{m2 31147}#
+                                                                               
                  (car #{w2 31122}#)))
+                                                                               
            (if (null? #{m2 31147}#)
+                                                                               
              #{m1 31123}#
                                                                                
              (append
-                                                                               
                #{m1 30850}#
-                                                                               
                #{m2 30874}#)))
-                                                                               
          (let ((#{m2 30882}#
-                                                                               
                  (cdr #{w2 30849}#)))
-                                                                               
            (if (null? #{m2 30882}#)
-                                                                               
              #{s1 30851}#
+                                                                               
                #{m1 31123}#
+                                                                               
                #{m2 31147}#)))
+                                                                               
          (let ((#{m2 31155}#
+                                                                               
                  (cdr #{w2 31122}#)))
+                                                                               
            (if (null? #{m2 31155}#)
+                                                                               
              #{s1 31124}#
                                                                                
              (append
-                                                                               
                #{s1 30851}#
-                                                                               
                #{m2 30882}#))))))))
-                                                                           
(#{module 30842}#
+                                                                               
                #{s1 31124}#
+                                                                               
                #{m2 31155}#))))))))
+                                                                           
(#{module 31115}#
                                                                              
(vector-ref
-                                                                               
#{x 30822}#
+                                                                               
#{x 31095}#
                                                                                
3)))
                                                                        (vector
                                                                          
'syntax-object
-                                                                         
#{expression 30840}#
-                                                                         
#{wrap 30841}#
-                                                                         
#{module 30842}#))
-                                                                     (if 
(null? #{x 30822}#)
-                                                                       #{x 
30822}#
+                                                                         
#{expression 31113}#
+                                                                         
#{wrap 31114}#
+                                                                         
#{module 31115}#))
+                                                                     (if 
(null? #{x 31095}#)
+                                                                       #{x 
31095}#
                                                                        (vector
                                                                          
'syntax-object
-                                                                         #{x 
30822}#
-                                                                         #{w 
30601}#
-                                                                         #{mod 
30603}#))))))
-                                                         (#{f 30604}#
-                                                           (cdr #{forms 
30818}#)))))))
-                                            (#{f 30604}# #{forms 30599}#))
-                                          #{ids 29555}#
-                                          #{labels 29556}#
-                                          #{var-ids 29557}#
-                                          #{vars 29558}#
-                                          #{vals 29559}#
-                                          #{bindings 29560}#)))
-                                    (if (null? #{ids 29555}#)
-                                      (#{build-sequence 4324}#
+                                                                         #{x 
31095}#
+                                                                         #{w 
30872}#
+                                                                         #{mod 
30874}#))))))
+                                                         (#{f 30875}#
+                                                           (cdr #{forms 
31091}#)))))))
+                                            (#{f 30875}# #{forms 30870}#))
+                                          #{ids 29812}#
+                                          #{labels 29813}#
+                                          #{var-ids 29814}#
+                                          #{vars 29815}#
+                                          #{vals 29816}#
+                                          #{bindings 29817}#)))
+                                    (if (null? #{ids 29812}#)
+                                      (#{build-sequence 4322}#
                                         #f
-                                        (map (lambda (#{x 30969}#)
-                                               (#{chi 4375}#
-                                                 (cdr #{x 30969}#)
-                                                 (car #{x 30969}#)
+                                        (map (lambda (#{x 31244}#)
+                                               (#{chi 4373}#
+                                                 (cdr #{x 31244}#)
+                                                 (car #{x 31244}#)
                                                  '(())
-                                                 #{mod 29761}#))
-                                             (cons (cons #{er 29562}#
-                                                         (let ((#{x 31046}#
+                                                 #{mod 30030}#))
+                                             (cons (cons #{er 29819}#
+                                                         (let ((#{x 31323}#
                                                                  (begin
-                                                                   (if (if 
(pair? #{e 29758}#)
-                                                                         #{s 
29760}#
+                                                                   (if (if 
(pair? #{e 30027}#)
+                                                                         #{s 
30029}#
                                                                          #f)
                                                                      
(set-source-properties!
-                                                                       #{e 
29758}#
-                                                                       #{s 
29760}#))
-                                                                   #{e 
29758}#)))
-                                                           (if (if (null? (car 
#{w 29759}#))
-                                                                 (null? (cdr 
#{w 29759}#))
+                                                                       #{e 
30027}#
+                                                                       #{s 
30029}#))
+                                                                   #{e 
30027}#)))
+                                                           (if (if (null? (car 
#{w 30028}#))
+                                                                 (null? (cdr 
#{w 30028}#))
                                                                  #f)
-                                                             #{x 31046}#
+                                                             #{x 31323}#
                                                              (if (if (vector?
-                                                                       #{x 
31046}#)
+                                                                       #{x 
31323}#)
                                                                    (if (= 
(vector-length
-                                                                            
#{x 31046}#)
+                                                                            
#{x 31323}#)
                                                                           4)
                                                                      (eq? 
(vector-ref
-                                                                            
#{x 31046}#
+                                                                            
#{x 31323}#
                                                                             0)
                                                                           
'syntax-object)
                                                                      #f)
                                                                    #f)
-                                                               (let 
((#{expression 31078}#
+                                                               (let 
((#{expression 31355}#
                                                                        
(vector-ref
-                                                                         #{x 
31046}#
+                                                                         #{x 
31323}#
                                                                          1))
-                                                                     (#{wrap 
31079}#
-                                                                       (let 
((#{w2 31087}#
+                                                                     (#{wrap 
31356}#
+                                                                       (let 
((#{w2 31364}#
                                                                                
(vector-ref
-                                                                               
  #{x 31046}#
+                                                                               
  #{x 31323}#
                                                                                
  2)))
-                                                                         (let 
((#{m1 31088}#
-                                                                               
  (car #{w 29759}#))
-                                                                               
(#{s1 31089}#
-                                                                               
  (cdr #{w 29759}#)))
-                                                                           (if 
(null? #{m1 31088}#)
-                                                                             
(if (null? #{s1 31089}#)
-                                                                               
#{w2 31087}#
-                                                                               
(cons (car #{w2 31087}#)
-                                                                               
      (let ((#{m2 31104}#
-                                                                               
              (cdr #{w2 31087}#)))
-                                                                               
        (if (null? #{m2 31104}#)
-                                                                               
          #{s1 31089}#
+                                                                         (let 
((#{m1 31365}#
+                                                                               
  (car #{w 30028}#))
+                                                                               
(#{s1 31366}#
+                                                                               
  (cdr #{w 30028}#)))
+                                                                           (if 
(null? #{m1 31365}#)
+                                                                             
(if (null? #{s1 31366}#)
+                                                                               
#{w2 31364}#
+                                                                               
(cons (car #{w2 31364}#)
+                                                                               
      (let ((#{m2 31381}#
+                                                                               
              (cdr #{w2 31364}#)))
+                                                                               
        (if (null? #{m2 31381}#)
+                                                                               
          #{s1 31366}#
                                                                                
          (append
-                                                                               
            #{s1 31089}#
-                                                                               
            #{m2 31104}#)))))
-                                                                             
(cons (let ((#{m2 31112}#
-                                                                               
            (car #{w2 31087}#)))
-                                                                               
      (if (null? #{m2 31112}#)
-                                                                               
        #{m1 31088}#
+                                                                               
            #{s1 31366}#
+                                                                               
            #{m2 31381}#)))))
+                                                                             
(cons (let ((#{m2 31389}#
+                                                                               
            (car #{w2 31364}#)))
+                                                                               
      (if (null? #{m2 31389}#)
+                                                                               
        #{m1 31365}#
                                                                                
        (append
-                                                                               
          #{m1 31088}#
-                                                                               
          #{m2 31112}#)))
-                                                                               
    (let ((#{m2 31120}#
-                                                                               
            (cdr #{w2 31087}#)))
-                                                                               
      (if (null? #{m2 31120}#)
-                                                                               
        #{s1 31089}#
+                                                                               
          #{m1 31365}#
+                                                                               
          #{m2 31389}#)))
+                                                                               
    (let ((#{m2 31397}#
+                                                                               
            (cdr #{w2 31364}#)))
+                                                                               
      (if (null? #{m2 31397}#)
+                                                                               
        #{s1 31366}#
                                                                                
        (append
-                                                                               
          #{s1 31089}#
-                                                                               
          #{m2 31120}#))))))))
-                                                                     (#{module 
31080}#
+                                                                               
          #{s1 31366}#
+                                                                               
          #{m2 31397}#))))))))
+                                                                     (#{module 
31357}#
                                                                        
(vector-ref
-                                                                         #{x 
31046}#
+                                                                         #{x 
31323}#
                                                                          3)))
                                                                  (vector
                                                                    
'syntax-object
-                                                                   
#{expression 31078}#
-                                                                   #{wrap 
31079}#
-                                                                   #{module 
31080}#))
-                                                               (if (null? #{x 
31046}#)
-                                                                 #{x 31046}#
+                                                                   
#{expression 31355}#
+                                                                   #{wrap 
31356}#
+                                                                   #{module 
31357}#))
+                                                               (if (null? #{x 
31323}#)
+                                                                 #{x 31323}#
                                                                  (vector
                                                                    
'syntax-object
-                                                                   #{x 31046}#
-                                                                   #{w 29759}#
-                                                                   #{mod 
29761}#))))))
-                                                   (cdr #{body 29554}#))))
+                                                                   #{x 31323}#
+                                                                   #{w 30028}#
+                                                                   #{mod 
30030}#))))))
+                                                   (cdr #{body 29811}#))))
                                       (begin
-                                        (if (not (#{valid-bound-ids? 4365}#
-                                                   #{ids 29555}#))
+                                        (if (not (#{valid-bound-ids? 4363}#
+                                                   #{ids 29812}#))
                                           (syntax-violation
                                             #f
                                             "invalid or duplicate identifier 
in definition"
-                                            #{outer-form 29439}#))
+                                            #{outer-form 29696}#))
                                         (letrec*
-                                          ((#{loop 31217}#
-                                             (lambda (#{bs 31220}#
-                                                      #{er-cache 31221}#
-                                                      #{r-cache 31222}#)
-                                               (if (not (null? #{bs 31220}#))
-                                                 (let ((#{b 31223}#
-                                                         (car #{bs 31220}#)))
-                                                   (if (eq? (car #{b 31223}#)
+                                          ((#{loop 31496}#
+                                             (lambda (#{bs 31499}#
+                                                      #{er-cache 31500}#
+                                                      #{r-cache 31501}#)
+                                               (if (not (null? #{bs 31499}#))
+                                                 (let ((#{b 31502}#
+                                                         (car #{bs 31499}#)))
+                                                   (if (eq? (car #{b 31502}#)
                                                             'macro)
-                                                     (let ((#{er 31225}#
-                                                             (car (cdr #{b 
31223}#))))
-                                                       (let ((#{r-cache 31226}#
-                                                               (if (eq? #{er 
31225}#
-                                                                        
#{er-cache 31221}#)
-                                                                 #{r-cache 
31222}#
-                                                                 
(#{macros-only-env 4339}#
-                                                                   #{er 
31225}#))))
+                                                     (let ((#{er 31504}#
+                                                             (car (cdr #{b 
31502}#))))
+                                                       (let ((#{r-cache 31505}#
+                                                               (if (eq? #{er 
31504}#
+                                                                        
#{er-cache 31500}#)
+                                                                 #{r-cache 
31501}#
+                                                                 
(#{macros-only-env 4337}#
+                                                                   #{er 
31504}#))))
                                                          (begin
                                                            (set-cdr!
-                                                             #{b 31223}#
-                                                             
(#{eval-local-transformer 4381}#
-                                                               (#{chi 4375}#
-                                                                 (cdr (cdr #{b 
31223}#))
-                                                                 #{r-cache 
31226}#
+                                                             #{b 31502}#
+                                                             
(#{eval-local-transformer 4379}#
+                                                               (#{chi 4373}#
+                                                                 (cdr (cdr #{b 
31502}#))
+                                                                 #{r-cache 
31505}#
                                                                  '(())
-                                                                 #{mod 29761}#)
-                                                               #{mod 29761}#))
-                                                           (#{loop 31217}#
-                                                             (cdr #{bs 31220}#)
-                                                             #{er 31225}#
-                                                             #{r-cache 
31226}#))))
-                                                     (#{loop 31217}#
-                                                       (cdr #{bs 31220}#)
-                                                       #{er-cache 31221}#
-                                                       #{r-cache 31222}#)))))))
-                                          (#{loop 31217}#
-                                            #{bindings 29560}#
+                                                                 #{mod 30030}#)
+                                                               #{mod 30030}#))
+                                                           (#{loop 31496}#
+                                                             (cdr #{bs 31499}#)
+                                                             #{er 31504}#
+                                                             #{r-cache 
31505}#))))
+                                                     (#{loop 31496}#
+                                                       (cdr #{bs 31499}#)
+                                                       #{er-cache 31500}#
+                                                       #{r-cache 31501}#)))))))
+                                          (#{loop 31496}#
+                                            #{bindings 29817}#
                                             #f
                                             #f))
                                         (set-cdr!
-                                          #{r 29443}#
-                                          (#{extend-env 4337}#
-                                            #{labels 29556}#
-                                            #{bindings 29560}#
-                                            (cdr #{r 29443}#)))
-                                        (#{build-letrec 4327}#
+                                          #{r 29700}#
+                                          (#{extend-env 4335}#
+                                            #{labels 29813}#
+                                            #{bindings 29817}#
+                                            (cdr #{r 29700}#)))
+                                        (#{build-letrec 4325}#
                                           #f
                                           #t
                                           (reverse
                                             (map syntax->datum
-                                                 #{var-ids 29557}#))
-                                          (reverse #{vars 29558}#)
-                                          (map (lambda (#{x 31641}#)
-                                                 (#{chi 4375}#
-                                                   (cdr #{x 31641}#)
-                                                   (car #{x 31641}#)
+                                                 #{var-ids 29814}#))
+                                          (reverse #{vars 29815}#)
+                                          (map (lambda (#{x 31924}#)
+                                                 (#{chi 4373}#
+                                                   (cdr #{x 31924}#)
+                                                   (car #{x 31924}#)
                                                    '(())
-                                                   #{mod 29761}#))
-                                               (reverse #{vals 29559}#))
-                                          (#{build-sequence 4324}#
+                                                   #{mod 30030}#))
+                                               (reverse #{vals 29816}#))
+                                          (#{build-sequence 4322}#
                                             #f
-                                            (map (lambda (#{x 31781}#)
-                                                   (#{chi 4375}#
-                                                     (cdr #{x 31781}#)
-                                                     (car #{x 31781}#)
+                                            (map (lambda (#{x 32068}#)
+                                                   (#{chi 4373}#
+                                                     (cdr #{x 32068}#)
+                                                     (car #{x 32068}#)
                                                      '(())
-                                                     #{mod 29761}#))
-                                                 (cons (cons #{er 29562}#
-                                                             (let ((#{x 31858}#
+                                                     #{mod 30030}#))
+                                                 (cons (cons #{er 29819}#
+                                                             (let ((#{x 32147}#
                                                                      (begin
-                                                                       (if (if 
(pair? #{e 29758}#)
-                                                                             
#{s 29760}#
+                                                                       (if (if 
(pair? #{e 30027}#)
+                                                                             
#{s 30029}#
                                                                              
#f)
                                                                          
(set-source-properties!
-                                                                           #{e 
29758}#
-                                                                           #{s 
29760}#))
-                                                                       #{e 
29758}#)))
-                                                               (if (if (null? 
(car #{w 29759}#))
-                                                                     (null? 
(cdr #{w 29759}#))
+                                                                           #{e 
30027}#
+                                                                           #{s 
30029}#))
+                                                                       #{e 
30027}#)))
+                                                               (if (if (null? 
(car #{w 30028}#))
+                                                                     (null? 
(cdr #{w 30028}#))
                                                                      #f)
-                                                                 #{x 31858}#
+                                                                 #{x 32147}#
                                                                  (if (if 
(vector?
-                                                                           #{x 
31858}#)
+                                                                           #{x 
32147}#)
                                                                        (if (= 
(vector-length
-                                                                               
 #{x 31858}#)
+                                                                               
 #{x 32147}#)
                                                                               
4)
                                                                          (eq? 
(vector-ref
-                                                                               
 #{x 31858}#
+                                                                               
 #{x 32147}#
                                                                                
 0)
                                                                               
'syntax-object)
                                                                          #f)
                                                                        #f)
-                                                                   (let 
((#{expression 31890}#
+                                                                   (let 
((#{expression 32179}#
                                                                            
(vector-ref
-                                                                             
#{x 31858}#
+                                                                             
#{x 32147}#
                                                                              
1))
-                                                                         
(#{wrap 31891}#
-                                                                           
(let ((#{w2 31899}#
+                                                                         
(#{wrap 32180}#
+                                                                           
(let ((#{w2 32188}#
                                                                                
    (vector-ref
-                                                                               
      #{x 31858}#
+                                                                               
      #{x 32147}#
                                                                                
      2)))
-                                                                             
(let ((#{m1 31900}#
-                                                                               
      (car #{w 29759}#))
-                                                                               
    (#{s1 31901}#
-                                                                               
      (cdr #{w 29759}#)))
-                                                                               
(if (null? #{m1 31900}#)
-                                                                               
  (if (null? #{s1 31901}#)
-                                                                               
    #{w2 31899}#
-                                                                               
    (cons (car #{w2 31899}#)
-                                                                               
          (let ((#{m2 31916}#
-                                                                               
                  (cdr #{w2 31899}#)))
-                                                                               
            (if (null? #{m2 31916}#)
-                                                                               
              #{s1 31901}#
+                                                                             
(let ((#{m1 32189}#
+                                                                               
      (car #{w 30028}#))
+                                                                               
    (#{s1 32190}#
+                                                                               
      (cdr #{w 30028}#)))
+                                                                               
(if (null? #{m1 32189}#)
+                                                                               
  (if (null? #{s1 32190}#)
+                                                                               
    #{w2 32188}#
+                                                                               
    (cons (car #{w2 32188}#)
+                                                                               
          (let ((#{m2 32205}#
+                                                                               
                  (cdr #{w2 32188}#)))
+                                                                               
            (if (null? #{m2 32205}#)
+                                                                               
              #{s1 32190}#
                                                                                
              (append
-                                                                               
                #{s1 31901}#
-                                                                               
                #{m2 31916}#)))))
-                                                                               
  (cons (let ((#{m2 31924}#
-                                                                               
                (car #{w2 31899}#)))
-                                                                               
          (if (null? #{m2 31924}#)
-                                                                               
            #{m1 31900}#
+                                                                               
                #{s1 32190}#
+                                                                               
                #{m2 32205}#)))))
+                                                                               
  (cons (let ((#{m2 32213}#
+                                                                               
                (car #{w2 32188}#)))
+                                                                               
          (if (null? #{m2 32213}#)
+                                                                               
            #{m1 32189}#
                                                                                
            (append
-                                                                               
              #{m1 31900}#
-                                                                               
              #{m2 31924}#)))
-                                                                               
        (let ((#{m2 31932}#
-                                                                               
                (cdr #{w2 31899}#)))
-                                                                               
          (if (null? #{m2 31932}#)
-                                                                               
            #{s1 31901}#
+                                                                               
              #{m1 32189}#
+                                                                               
              #{m2 32213}#)))
+                                                                               
        (let ((#{m2 32221}#
+                                                                               
                (cdr #{w2 32188}#)))
+                                                                               
          (if (null? #{m2 32221}#)
+                                                                               
            #{s1 32190}#
                                                                                
            (append
-                                                                               
              #{s1 31901}#
-                                                                               
              #{m2 31932}#))))))))
-                                                                         
(#{module 31892}#
+                                                                               
              #{s1 32190}#
+                                                                               
              #{m2 32221}#))))))))
+                                                                         
(#{module 32181}#
                                                                            
(vector-ref
-                                                                             
#{x 31858}#
+                                                                             
#{x 32147}#
                                                                              
3)))
                                                                      (vector
                                                                        
'syntax-object
-                                                                       
#{expression 31890}#
-                                                                       #{wrap 
31891}#
-                                                                       
#{module 31892}#))
-                                                                   (if (null? 
#{x 31858}#)
-                                                                     #{x 
31858}#
+                                                                       
#{expression 32179}#
+                                                                       #{wrap 
32180}#
+                                                                       
#{module 32181}#))
+                                                                   (if (null? 
#{x 32147}#)
+                                                                     #{x 
32147}#
                                                                      (vector
                                                                        
'syntax-object
-                                                                       #{x 
31858}#
-                                                                       #{w 
29759}#
-                                                                       #{mod 
29761}#))))))
-                                                       (cdr #{body 
29554}#))))))))))))))))))
-               (#{parse 29446}#
-                 (map (lambda (#{x 29449}#)
-                        (cons #{r 29443}#
-                              (if (if (null? (car #{w 29445}#))
-                                    (null? (cdr #{w 29445}#))
+                                                                       #{x 
32147}#
+                                                                       #{w 
30028}#
+                                                                       #{mod 
30030}#))))))
+                                                       (cdr #{body 
29811}#))))))))))))))))))
+               (#{parse 29703}#
+                 (map (lambda (#{x 29706}#)
+                        (cons #{r 29700}#
+                              (if (if (null? (car #{w 29702}#))
+                                    (null? (cdr #{w 29702}#))
                                     #f)
-                                #{x 29449}#
-                                (if (if (vector? #{x 29449}#)
-                                      (if (= (vector-length #{x 29449}#) 4)
-                                        (eq? (vector-ref #{x 29449}# 0)
+                                #{x 29706}#
+                                (if (if (vector? #{x 29706}#)
+                                      (if (= (vector-length #{x 29706}#) 4)
+                                        (eq? (vector-ref #{x 29706}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (let ((#{expression 29485}#
-                                          (vector-ref #{x 29449}# 1))
-                                        (#{wrap 29486}#
-                                          (let ((#{w2 29496}#
-                                                  (vector-ref #{x 29449}# 2)))
-                                            (let ((#{m1 29497}#
-                                                    (car #{w 29445}#))
-                                                  (#{s1 29498}#
-                                                    (cdr #{w 29445}#)))
-                                              (if (null? #{m1 29497}#)
-                                                (if (null? #{s1 29498}#)
-                                                  #{w2 29496}#
-                                                  (cons (car #{w2 29496}#)
-                                                        (let ((#{m2 29515}#
-                                                                (cdr #{w2 
29496}#)))
-                                                          (if (null? #{m2 
29515}#)
-                                                            #{s1 29498}#
+                                  (let ((#{expression 29742}#
+                                          (vector-ref #{x 29706}# 1))
+                                        (#{wrap 29743}#
+                                          (let ((#{w2 29753}#
+                                                  (vector-ref #{x 29706}# 2)))
+                                            (let ((#{m1 29754}#
+                                                    (car #{w 29702}#))
+                                                  (#{s1 29755}#
+                                                    (cdr #{w 29702}#)))
+                                              (if (null? #{m1 29754}#)
+                                                (if (null? #{s1 29755}#)
+                                                  #{w2 29753}#
+                                                  (cons (car #{w2 29753}#)
+                                                        (let ((#{m2 29772}#
+                                                                (cdr #{w2 
29753}#)))
+                                                          (if (null? #{m2 
29772}#)
+                                                            #{s1 29755}#
                                                             (append
-                                                              #{s1 29498}#
-                                                              #{m2 29515}#)))))
-                                                (cons (let ((#{m2 29523}#
-                                                              (car #{w2 
29496}#)))
-                                                        (if (null? #{m2 
29523}#)
-                                                          #{m1 29497}#
+                                                              #{s1 29755}#
+                                                              #{m2 29772}#)))))
+                                                (cons (let ((#{m2 29780}#
+                                                              (car #{w2 
29753}#)))
+                                                        (if (null? #{m2 
29780}#)
+                                                          #{m1 29754}#
                                                           (append
-                                                            #{m1 29497}#
-                                                            #{m2 29523}#)))
-                                                      (let ((#{m2 29531}#
-                                                              (cdr #{w2 
29496}#)))
-                                                        (if (null? #{m2 
29531}#)
-                                                          #{s1 29498}#
+                                                            #{m1 29754}#
+                                                            #{m2 29780}#)))
+                                                      (let ((#{m2 29788}#
+                                                              (cdr #{w2 
29753}#)))
+                                                        (if (null? #{m2 
29788}#)
+                                                          #{s1 29755}#
                                                           (append
-                                                            #{s1 29498}#
-                                                            #{m2 
29531}#))))))))
-                                        (#{module 29487}#
-                                          (vector-ref #{x 29449}# 3)))
+                                                            #{s1 29755}#
+                                                            #{m2 
29788}#))))))))
+                                        (#{module 29744}#
+                                          (vector-ref #{x 29706}# 3)))
                                     (vector
                                       'syntax-object
-                                      #{expression 29485}#
-                                      #{wrap 29486}#
-                                      #{module 29487}#))
-                                  (if (null? #{x 29449}#)
-                                    #{x 29449}#
+                                      #{expression 29742}#
+                                      #{wrap 29743}#
+                                      #{module 29744}#))
+                                  (if (null? #{x 29706}#)
+                                    #{x 29706}#
                                     (vector
                                       'syntax-object
-                                      #{x 29449}#
-                                      #{w 29445}#
-                                      #{mod 29442}#))))))
-                      #{body 29438}#)
+                                      #{x 29706}#
+                                      #{w 29702}#
+                                      #{mod 29699}#))))))
+                      #{body 29695}#)
                  '()
                  '()
                  '()
                  '()
                  '()
                  '())))))))
-   (#{chi-local-syntax 4380}#
-     (lambda (#{rec? 31947}#
-              #{e 31948}#
-              #{r 31949}#
-              #{w 31950}#
-              #{s 31951}#
-              #{mod 31952}#
-              #{k 31953}#)
-       (let ((#{tmp 31955}#
+   (#{chi-local-syntax 4378}#
+     (lambda (#{rec? 32236}#
+              #{e 32237}#
+              #{r 32238}#
+              #{w 32239}#
+              #{s 32240}#
+              #{mod 32241}#
+              #{k 32242}#)
+       (let ((#{tmp 32244}#
                ($sc-dispatch
-                 #{e 31948}#
+                 #{e 32237}#
                  '(_ #(each (any any)) any . each-any))))
-         (if #{tmp 31955}#
+         (if #{tmp 32244}#
            (@apply
-             (lambda (#{id 31959}#
-                      #{val 31960}#
-                      #{e1 31961}#
-                      #{e2 31962}#)
-               (if (not (#{valid-bound-ids? 4365}# #{id 31959}#))
+             (lambda (#{id 32248}#
+                      #{val 32249}#
+                      #{e1 32250}#
+                      #{e2 32251}#)
+               (if (not (#{valid-bound-ids? 4363}# #{id 32248}#))
                  (syntax-violation
                    #f
                    "duplicate bound keyword"
-                   #{e 31948}#)
-                 (let ((#{labels 32057}#
-                         (#{gen-labels 4346}# #{id 31959}#)))
-                   (let ((#{new-w 32058}#
-                           (#{make-binding-wrap 4357}#
-                             #{id 31959}#
-                             #{labels 32057}#
-                             #{w 31950}#)))
-                     (#{k 31953}#
-                       (cons #{e1 31961}# #{e2 31962}#)
-                       (#{extend-env 4337}#
-                         #{labels 32057}#
-                         (let ((#{trans-r 32098}#
-                                 (#{macros-only-env 4339}# #{r 31949}#)))
+                   #{e 32237}#)
+                 (let ((#{labels 32348}#
+                         (#{gen-labels 4344}# #{id 32248}#)))
+                   (let ((#{new-w 32349}#
+                           (#{make-binding-wrap 4355}#
+                             #{id 32248}#
+                             #{labels 32348}#
+                             #{w 32239}#)))
+                     (#{k 32242}#
+                       (cons #{e1 32250}# #{e2 32251}#)
+                       (#{extend-env 4335}#
+                         #{labels 32348}#
+                         (let ((#{trans-r 32389}#
+                                 (#{macros-only-env 4337}# #{r 32238}#)))
                            (begin
-                             (if #{rec? 31947}# (if #f #f))
-                             (map (lambda (#{x 32099}#)
+                             (if #{rec? 32236}# (if #f #f))
+                             (map (lambda (#{x 32390}#)
                                     (cons 'macro
-                                          (#{eval-local-transformer 4381}#
-                                            (#{chi 4375}#
-                                              #{x 32099}#
-                                              #{trans-r 32098}#
-                                              (if #{rec? 31947}#
-                                                #{new-w 32058}#
-                                                #{w 31950}#)
-                                              #{mod 31952}#)
-                                            #{mod 31952}#)))
-                                  #{val 31960}#)))
-                         #{r 31949}#)
-                       #{new-w 32058}#
-                       #{s 31951}#
-                       #{mod 31952}#)))))
-             #{tmp 31955}#)
+                                          (#{eval-local-transformer 4379}#
+                                            (#{chi 4373}#
+                                              #{x 32390}#
+                                              #{trans-r 32389}#
+                                              (if #{rec? 32236}#
+                                                #{new-w 32349}#
+                                                #{w 32239}#)
+                                              #{mod 32241}#)
+                                            #{mod 32241}#)))
+                                  #{val 32249}#)))
+                         #{r 32238}#)
+                       #{new-w 32349}#
+                       #{s 32240}#
+                       #{mod 32241}#)))))
+             #{tmp 32244}#)
            (syntax-violation
              #f
              "bad local syntax definition"
-             (let ((#{x 32422}#
+             (let ((#{x 32715}#
                      (begin
-                       (if (if (pair? #{e 31948}#) #{s 31951}# #f)
-                         (set-source-properties! #{e 31948}# #{s 31951}#))
-                       #{e 31948}#)))
-               (if (if (null? (car #{w 31950}#))
-                     (null? (cdr #{w 31950}#))
+                       (if (if (pair? #{e 32237}#) #{s 32240}# #f)
+                         (set-source-properties! #{e 32237}# #{s 32240}#))
+                       #{e 32237}#)))
+               (if (if (null? (car #{w 32239}#))
+                     (null? (cdr #{w 32239}#))
                      #f)
-                 #{x 32422}#
-                 (if (if (vector? #{x 32422}#)
-                       (if (= (vector-length #{x 32422}#) 4)
-                         (eq? (vector-ref #{x 32422}# 0) 'syntax-object)
+                 #{x 32715}#
+                 (if (if (vector? #{x 32715}#)
+                       (if (= (vector-length #{x 32715}#) 4)
+                         (eq? (vector-ref #{x 32715}# 0) 'syntax-object)
                          #f)
                        #f)
-                   (let ((#{expression 32454}# (vector-ref #{x 32422}# 1))
-                         (#{wrap 32455}#
-                           (let ((#{w2 32463}# (vector-ref #{x 32422}# 2)))
-                             (let ((#{m1 32464}# (car #{w 31950}#))
-                                   (#{s1 32465}# (cdr #{w 31950}#)))
-                               (if (null? #{m1 32464}#)
-                                 (if (null? #{s1 32465}#)
-                                   #{w2 32463}#
-                                   (cons (car #{w2 32463}#)
-                                         (let ((#{m2 32480}#
-                                                 (cdr #{w2 32463}#)))
-                                           (if (null? #{m2 32480}#)
-                                             #{s1 32465}#
+                   (let ((#{expression 32747}# (vector-ref #{x 32715}# 1))
+                         (#{wrap 32748}#
+                           (let ((#{w2 32756}# (vector-ref #{x 32715}# 2)))
+                             (let ((#{m1 32757}# (car #{w 32239}#))
+                                   (#{s1 32758}# (cdr #{w 32239}#)))
+                               (if (null? #{m1 32757}#)
+                                 (if (null? #{s1 32758}#)
+                                   #{w2 32756}#
+                                   (cons (car #{w2 32756}#)
+                                         (let ((#{m2 32773}#
+                                                 (cdr #{w2 32756}#)))
+                                           (if (null? #{m2 32773}#)
+                                             #{s1 32758}#
                                              (append
-                                               #{s1 32465}#
-                                               #{m2 32480}#)))))
-                                 (cons (let ((#{m2 32488}# (car #{w2 32463}#)))
-                                         (if (null? #{m2 32488}#)
-                                           #{m1 32464}#
-                                           (append #{m1 32464}# #{m2 32488}#)))
-                                       (let ((#{m2 32496}# (cdr #{w2 32463}#)))
-                                         (if (null? #{m2 32496}#)
-                                           #{s1 32465}#
+                                               #{s1 32758}#
+                                               #{m2 32773}#)))))
+                                 (cons (let ((#{m2 32781}# (car #{w2 32756}#)))
+                                         (if (null? #{m2 32781}#)
+                                           #{m1 32757}#
+                                           (append #{m1 32757}# #{m2 32781}#)))
+                                       (let ((#{m2 32789}# (cdr #{w2 32756}#)))
+                                         (if (null? #{m2 32789}#)
+                                           #{s1 32758}#
                                            (append
-                                             #{s1 32465}#
-                                             #{m2 32496}#))))))))
-                         (#{module 32456}# (vector-ref #{x 32422}# 3)))
+                                             #{s1 32758}#
+                                             #{m2 32789}#))))))))
+                         (#{module 32749}# (vector-ref #{x 32715}# 3)))
                      (vector
                        'syntax-object
-                       #{expression 32454}#
-                       #{wrap 32455}#
-                       #{module 32456}#))
-                   (if (null? #{x 32422}#)
-                     #{x 32422}#
+                       #{expression 32747}#
+                       #{wrap 32748}#
+                       #{module 32749}#))
+                   (if (null? #{x 32715}#)
+                     #{x 32715}#
                      (vector
                        'syntax-object
-                       #{x 32422}#
-                       #{w 31950}#
-                       #{mod 31952}#))))))))))
-   (#{eval-local-transformer 4381}#
-     (lambda (#{expanded 32514}# #{mod 32515}#)
-       (let ((#{p 32516}# (primitive-eval #{expanded 32514}#)))
-         (if (procedure? #{p 32516}#)
-           #{p 32516}#
+                       #{x 32715}#
+                       #{w 32239}#
+                       #{mod 32241}#))))))))))
+   (#{eval-local-transformer 4379}#
+     (lambda (#{expanded 32807}# #{mod 32808}#)
+       (let ((#{p 32809}# (primitive-eval #{expanded 32807}#)))
+         (if (procedure? #{p 32809}#)
+           #{p 32809}#
            (syntax-violation
              #f
              "nonprocedure transformer"
-             #{p 32516}#)))))
-   (#{ellipsis? 4383}#
-     (lambda (#{x 5824}#)
-       (if (if (if (vector? #{x 5824}#)
-                 (if (= (vector-length #{x 5824}#) 4)
-                   (eq? (vector-ref #{x 5824}# 0) 'syntax-object)
+             #{p 32809}#)))))
+   (#{ellipsis? 4381}#
+     (lambda (#{x 5832}#)
+       (if (if (if (vector? #{x 5832}#)
+                 (if (= (vector-length #{x 5832}#) 4)
+                   (eq? (vector-ref #{x 5832}# 0) 'syntax-object)
                    #f)
                  #f)
-             (symbol? (vector-ref #{x 5824}# 1))
+             (symbol? (vector-ref #{x 5832}# 1))
              #f)
-         (#{free-id=? 4363}#
-           #{x 5824}#
+         (#{free-id=? 4361}#
+           #{x 5832}#
            '#(syntax-object
               ...
               ((top)
                #(ribcage () () ())
                #(ribcage () () ())
-               #(ribcage #(x) #((top)) #("i2263"))
+               #(ribcage #(x) #((top)) #("i2261"))
                #(ribcage
                  (lambda-var-list
                    gen-var
@@ -6534,350 +6517,350 @@
                  ("i46" "i45" "i44")))
               (hygiene guile)))
          #f)))
-   (#{lambda-formals 4384}#
-     (lambda (#{orig-args 32521}#)
+   (#{lambda-formals 4382}#
+     (lambda (#{orig-args 32814}#)
        (letrec*
-         ((#{req 32522}#
-            (lambda (#{args 32526}# #{rreq 32527}#)
-              (let ((#{tmp 32529}# ($sc-dispatch #{args 32526}# '())))
-                (if #{tmp 32529}#
+         ((#{req 32815}#
+            (lambda (#{args 32819}# #{rreq 32820}#)
+              (let ((#{tmp 32822}# ($sc-dispatch #{args 32819}# '())))
+                (if #{tmp 32822}#
                   (@apply
                     (lambda ()
-                      (#{check 32523}# (reverse #{rreq 32527}#) #f))
-                    #{tmp 32529}#)
-                  (let ((#{tmp 32645}#
-                          ($sc-dispatch #{args 32526}# '(any . any))))
-                    (if (if #{tmp 32645}#
+                      (#{check 32816}# (reverse #{rreq 32820}#) #f))
+                    #{tmp 32822}#)
+                  (let ((#{tmp 32938}#
+                          ($sc-dispatch #{args 32819}# '(any . any))))
+                    (if (if #{tmp 32938}#
                           (@apply
-                            (lambda (#{a 32649}# #{b 32650}#)
-                              (if (symbol? #{a 32649}#)
+                            (lambda (#{a 32942}# #{b 32943}#)
+                              (if (symbol? #{a 32942}#)
                                 #t
-                                (if (if (vector? #{a 32649}#)
-                                      (if (= (vector-length #{a 32649}#) 4)
-                                        (eq? (vector-ref #{a 32649}# 0)
+                                (if (if (vector? #{a 32942}#)
+                                      (if (= (vector-length #{a 32942}#) 4)
+                                        (eq? (vector-ref #{a 32942}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 32649}# 1))
+                                  (symbol? (vector-ref #{a 32942}# 1))
                                   #f)))
-                            #{tmp 32645}#)
+                            #{tmp 32938}#)
                           #f)
                       (@apply
-                        (lambda (#{a 32677}# #{b 32678}#)
-                          (#{req 32522}#
-                            #{b 32678}#
-                            (cons #{a 32677}# #{rreq 32527}#)))
-                        #{tmp 32645}#)
-                      (let ((#{tmp 32679}# (list #{args 32526}#)))
+                        (lambda (#{a 32970}# #{b 32971}#)
+                          (#{req 32815}#
+                            #{b 32971}#
+                            (cons #{a 32970}# #{rreq 32820}#)))
+                        #{tmp 32938}#)
+                      (let ((#{tmp 32972}# (list #{args 32819}#)))
                         (if (@apply
-                              (lambda (#{r 32681}#)
-                                (if (symbol? #{r 32681}#)
+                              (lambda (#{r 32974}#)
+                                (if (symbol? #{r 32974}#)
                                   #t
-                                  (if (if (vector? #{r 32681}#)
-                                        (if (= (vector-length #{r 32681}#) 4)
-                                          (eq? (vector-ref #{r 32681}# 0)
+                                  (if (if (vector? #{r 32974}#)
+                                        (if (= (vector-length #{r 32974}#) 4)
+                                          (eq? (vector-ref #{r 32974}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (symbol? (vector-ref #{r 32681}# 1))
+                                    (symbol? (vector-ref #{r 32974}# 1))
                                     #f)))
-                              #{tmp 32679}#)
+                              #{tmp 32972}#)
                           (@apply
-                            (lambda (#{r 32711}#)
-                              (#{check 32523}#
-                                (reverse #{rreq 32527}#)
-                                #{r 32711}#))
-                            #{tmp 32679}#)
+                            (lambda (#{r 33004}#)
+                              (#{check 32816}#
+                                (reverse #{rreq 32820}#)
+                                #{r 33004}#))
+                            #{tmp 32972}#)
                           (syntax-violation
                             'lambda
                             "invalid argument list"
-                            #{orig-args 32521}#
-                            #{args 32526}#)))))))))
-          (#{check 32523}#
-            (lambda (#{req 32835}# #{rest 32836}#)
-              (if (#{distinct-bound-ids? 4366}#
-                    (if #{rest 32836}#
-                      (cons #{rest 32836}# #{req 32835}#)
-                      #{req 32835}#))
-                (values #{req 32835}# #f #{rest 32836}# #f)
+                            #{orig-args 32814}#
+                            #{args 32819}#)))))))))
+          (#{check 32816}#
+            (lambda (#{req 33128}# #{rest 33129}#)
+              (if (#{distinct-bound-ids? 4364}#
+                    (if #{rest 33129}#
+                      (cons #{rest 33129}# #{req 33128}#)
+                      #{req 33128}#))
+                (values #{req 33128}# #f #{rest 33129}# #f)
                 (syntax-violation
                   'lambda
                   "duplicate identifier in argument list"
-                  #{orig-args 32521}#)))))
-         (#{req 32522}# #{orig-args 32521}# '()))))
-   (#{chi-simple-lambda 4385}#
-     (lambda (#{e 32945}#
-              #{r 32946}#
-              #{w 32947}#
-              #{s 32948}#
-              #{mod 32949}#
-              #{req 32950}#
-              #{rest 32951}#
-              #{meta 32952}#
-              #{body 32953}#)
-       (let ((#{ids 32954}#
-               (if #{rest 32951}#
-                 (append #{req 32950}# (list #{rest 32951}#))
-                 #{req 32950}#)))
-         (let ((#{vars 32955}#
-                 (map #{gen-var 4389}# #{ids 32954}#)))
-           (let ((#{labels 32956}#
-                   (#{gen-labels 4346}# #{ids 32954}#)))
-             (#{build-simple-lambda 4318}#
-               #{s 32948}#
-               (map syntax->datum #{req 32950}#)
-               (if #{rest 32951}#
-                 (syntax->datum #{rest 32951}#)
+                  #{orig-args 32814}#)))))
+         (#{req 32815}# #{orig-args 32814}# '()))))
+   (#{chi-simple-lambda 4383}#
+     (lambda (#{e 33238}#
+              #{r 33239}#
+              #{w 33240}#
+              #{s 33241}#
+              #{mod 33242}#
+              #{req 33243}#
+              #{rest 33244}#
+              #{meta 33245}#
+              #{body 33246}#)
+       (let ((#{ids 33247}#
+               (if #{rest 33244}#
+                 (append #{req 33243}# (list #{rest 33244}#))
+                 #{req 33243}#)))
+         (let ((#{vars 33248}#
+                 (map #{gen-var 4387}# #{ids 33247}#)))
+           (let ((#{labels 33249}#
+                   (#{gen-labels 4344}# #{ids 33247}#)))
+             (#{build-simple-lambda 4316}#
+               #{s 33241}#
+               (map syntax->datum #{req 33243}#)
+               (if #{rest 33244}#
+                 (syntax->datum #{rest 33244}#)
                  #f)
-               #{vars 32955}#
-               #{meta 32952}#
-               (#{chi-body 4379}#
-                 #{body 32953}#
-                 (let ((#{x 33145}#
+               #{vars 33248}#
+               #{meta 33245}#
+               (#{chi-body 4377}#
+                 #{body 33246}#
+                 (let ((#{x 33438}#
                          (begin
-                           (if (if (pair? #{e 32945}#) #{s 32948}# #f)
-                             (set-source-properties! #{e 32945}# #{s 32948}#))
-                           #{e 32945}#)))
-                   (if (if (null? (car #{w 32947}#))
-                         (null? (cdr #{w 32947}#))
+                           (if (if (pair? #{e 33238}#) #{s 33241}# #f)
+                             (set-source-properties! #{e 33238}# #{s 33241}#))
+                           #{e 33238}#)))
+                   (if (if (null? (car #{w 33240}#))
+                         (null? (cdr #{w 33240}#))
                          #f)
-                     #{x 33145}#
-                     (if (if (vector? #{x 33145}#)
-                           (if (= (vector-length #{x 33145}#) 4)
-                             (eq? (vector-ref #{x 33145}# 0) 'syntax-object)
+                     #{x 33438}#
+                     (if (if (vector? #{x 33438}#)
+                           (if (= (vector-length #{x 33438}#) 4)
+                             (eq? (vector-ref #{x 33438}# 0) 'syntax-object)
                              #f)
                            #f)
-                       (let ((#{expression 33177}# (vector-ref #{x 33145}# 1))
-                             (#{wrap 33178}#
-                               (let ((#{w2 33186}# (vector-ref #{x 33145}# 2)))
-                                 (let ((#{m1 33187}# (car #{w 32947}#))
-                                       (#{s1 33188}# (cdr #{w 32947}#)))
-                                   (if (null? #{m1 33187}#)
-                                     (if (null? #{s1 33188}#)
-                                       #{w2 33186}#
-                                       (cons (car #{w2 33186}#)
-                                             (let ((#{m2 33203}#
-                                                     (cdr #{w2 33186}#)))
-                                               (if (null? #{m2 33203}#)
-                                                 #{s1 33188}#
+                       (let ((#{expression 33470}# (vector-ref #{x 33438}# 1))
+                             (#{wrap 33471}#
+                               (let ((#{w2 33479}# (vector-ref #{x 33438}# 2)))
+                                 (let ((#{m1 33480}# (car #{w 33240}#))
+                                       (#{s1 33481}# (cdr #{w 33240}#)))
+                                   (if (null? #{m1 33480}#)
+                                     (if (null? #{s1 33481}#)
+                                       #{w2 33479}#
+                                       (cons (car #{w2 33479}#)
+                                             (let ((#{m2 33496}#
+                                                     (cdr #{w2 33479}#)))
+                                               (if (null? #{m2 33496}#)
+                                                 #{s1 33481}#
                                                  (append
-                                                   #{s1 33188}#
-                                                   #{m2 33203}#)))))
-                                     (cons (let ((#{m2 33211}#
-                                                   (car #{w2 33186}#)))
-                                             (if (null? #{m2 33211}#)
-                                               #{m1 33187}#
+                                                   #{s1 33481}#
+                                                   #{m2 33496}#)))))
+                                     (cons (let ((#{m2 33504}#
+                                                   (car #{w2 33479}#)))
+                                             (if (null? #{m2 33504}#)
+                                               #{m1 33480}#
                                                (append
-                                                 #{m1 33187}#
-                                                 #{m2 33211}#)))
-                                           (let ((#{m2 33219}#
-                                                   (cdr #{w2 33186}#)))
-                                             (if (null? #{m2 33219}#)
-                                               #{s1 33188}#
+                                                 #{m1 33480}#
+                                                 #{m2 33504}#)))
+                                           (let ((#{m2 33512}#
+                                                   (cdr #{w2 33479}#)))
+                                             (if (null? #{m2 33512}#)
+                                               #{s1 33481}#
                                                (append
-                                                 #{s1 33188}#
-                                                 #{m2 33219}#))))))))
-                             (#{module 33179}# (vector-ref #{x 33145}# 3)))
+                                                 #{s1 33481}#
+                                                 #{m2 33512}#))))))))
+                             (#{module 33472}# (vector-ref #{x 33438}# 3)))
                          (vector
                            'syntax-object
-                           #{expression 33177}#
-                           #{wrap 33178}#
-                           #{module 33179}#))
-                       (if (null? #{x 33145}#)
-                         #{x 33145}#
+                           #{expression 33470}#
+                           #{wrap 33471}#
+                           #{module 33472}#))
+                       (if (null? #{x 33438}#)
+                         #{x 33438}#
                          (vector
                            'syntax-object
-                           #{x 33145}#
-                           #{w 32947}#
-                           #{mod 32949}#)))))
-                 (#{extend-var-env 4338}#
-                   #{labels 32956}#
-                   #{vars 32955}#
-                   #{r 32946}#)
-                 (#{make-binding-wrap 4357}#
-                   #{ids 32954}#
-                   #{labels 32956}#
-                   #{w 32947}#)
-                 #{mod 32949}#)))))))
-   (#{lambda*-formals 4386}#
-     (lambda (#{orig-args 33450}#)
+                           #{x 33438}#
+                           #{w 33240}#
+                           #{mod 33242}#)))))
+                 (#{extend-var-env 4336}#
+                   #{labels 33249}#
+                   #{vars 33248}#
+                   #{r 33239}#)
+                 (#{make-binding-wrap 4355}#
+                   #{ids 33247}#
+                   #{labels 33249}#
+                   #{w 33240}#)
+                 #{mod 33242}#)))))))
+   (#{lambda*-formals 4384}#
+     (lambda (#{orig-args 33743}#)
        (letrec*
-         ((#{req 33451}#
-            (lambda (#{args 33458}# #{rreq 33459}#)
-              (let ((#{tmp 33461}# ($sc-dispatch #{args 33458}# '())))
-                (if #{tmp 33461}#
+         ((#{req 33744}#
+            (lambda (#{args 33751}# #{rreq 33752}#)
+              (let ((#{tmp 33754}# ($sc-dispatch #{args 33751}# '())))
+                (if #{tmp 33754}#
                   (@apply
                     (lambda ()
-                      (#{check 33455}#
-                        (reverse #{rreq 33459}#)
+                      (#{check 33748}#
+                        (reverse #{rreq 33752}#)
                         '()
                         #f
                         '()))
-                    #{tmp 33461}#)
-                  (let ((#{tmp 33580}#
-                          ($sc-dispatch #{args 33458}# '(any . any))))
-                    (if (if #{tmp 33580}#
+                    #{tmp 33754}#)
+                  (let ((#{tmp 33873}#
+                          ($sc-dispatch #{args 33751}# '(any . any))))
+                    (if (if #{tmp 33873}#
                           (@apply
-                            (lambda (#{a 33584}# #{b 33585}#)
-                              (if (symbol? #{a 33584}#)
+                            (lambda (#{a 33877}# #{b 33878}#)
+                              (if (symbol? #{a 33877}#)
                                 #t
-                                (if (if (vector? #{a 33584}#)
-                                      (if (= (vector-length #{a 33584}#) 4)
-                                        (eq? (vector-ref #{a 33584}# 0)
+                                (if (if (vector? #{a 33877}#)
+                                      (if (= (vector-length #{a 33877}#) 4)
+                                        (eq? (vector-ref #{a 33877}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 33584}# 1))
+                                  (symbol? (vector-ref #{a 33877}# 1))
                                   #f)))
-                            #{tmp 33580}#)
+                            #{tmp 33873}#)
                           #f)
                       (@apply
-                        (lambda (#{a 33612}# #{b 33613}#)
-                          (#{req 33451}#
-                            #{b 33613}#
-                            (cons #{a 33612}# #{rreq 33459}#)))
-                        #{tmp 33580}#)
-                      (let ((#{tmp 33614}#
-                              ($sc-dispatch #{args 33458}# '(any . any))))
-                        (if (if #{tmp 33614}#
+                        (lambda (#{a 33905}# #{b 33906}#)
+                          (#{req 33744}#
+                            #{b 33906}#
+                            (cons #{a 33905}# #{rreq 33752}#)))
+                        #{tmp 33873}#)
+                      (let ((#{tmp 33907}#
+                              ($sc-dispatch #{args 33751}# '(any . any))))
+                        (if (if #{tmp 33907}#
                               (@apply
-                                (lambda (#{a 33618}# #{b 33619}#)
-                                  (eq? (syntax->datum #{a 33618}#) #:optional))
-                                #{tmp 33614}#)
+                                (lambda (#{a 33911}# #{b 33912}#)
+                                  (eq? (syntax->datum #{a 33911}#) #:optional))
+                                #{tmp 33907}#)
                               #f)
                           (@apply
-                            (lambda (#{a 33620}# #{b 33621}#)
-                              (#{opt 33452}#
-                                #{b 33621}#
-                                (reverse #{rreq 33459}#)
+                            (lambda (#{a 33913}# #{b 33914}#)
+                              (#{opt 33745}#
+                                #{b 33914}#
+                                (reverse #{rreq 33752}#)
                                 '()))
-                            #{tmp 33614}#)
-                          (let ((#{tmp 33624}#
-                                  ($sc-dispatch #{args 33458}# '(any . any))))
-                            (if (if #{tmp 33624}#
+                            #{tmp 33907}#)
+                          (let ((#{tmp 33917}#
+                                  ($sc-dispatch #{args 33751}# '(any . any))))
+                            (if (if #{tmp 33917}#
                                   (@apply
-                                    (lambda (#{a 33628}# #{b 33629}#)
-                                      (eq? (syntax->datum #{a 33628}#) #:key))
-                                    #{tmp 33624}#)
+                                    (lambda (#{a 33921}# #{b 33922}#)
+                                      (eq? (syntax->datum #{a 33921}#) #:key))
+                                    #{tmp 33917}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 33630}# #{b 33631}#)
-                                  (#{key 33453}#
-                                    #{b 33631}#
-                                    (reverse #{rreq 33459}#)
+                                (lambda (#{a 33923}# #{b 33924}#)
+                                  (#{key 33746}#
+                                    #{b 33924}#
+                                    (reverse #{rreq 33752}#)
                                     '()
                                     '()))
-                                #{tmp 33624}#)
-                              (let ((#{tmp 33634}#
+                                #{tmp 33917}#)
+                              (let ((#{tmp 33927}#
                                       ($sc-dispatch
-                                        #{args 33458}#
+                                        #{args 33751}#
                                         '(any any))))
-                                (if (if #{tmp 33634}#
+                                (if (if #{tmp 33927}#
                                       (@apply
-                                        (lambda (#{a 33638}# #{b 33639}#)
-                                          (eq? (syntax->datum #{a 33638}#)
+                                        (lambda (#{a 33931}# #{b 33932}#)
+                                          (eq? (syntax->datum #{a 33931}#)
                                                #:rest))
-                                        #{tmp 33634}#)
+                                        #{tmp 33927}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a 33640}# #{b 33641}#)
-                                      (#{rest 33454}#
-                                        #{b 33641}#
-                                        (reverse #{rreq 33459}#)
+                                    (lambda (#{a 33933}# #{b 33934}#)
+                                      (#{rest 33747}#
+                                        #{b 33934}#
+                                        (reverse #{rreq 33752}#)
                                         '()
                                         '()))
-                                    #{tmp 33634}#)
-                                  (let ((#{tmp 33644}# (list #{args 33458}#)))
+                                    #{tmp 33927}#)
+                                  (let ((#{tmp 33937}# (list #{args 33751}#)))
                                     (if (@apply
-                                          (lambda (#{r 33646}#)
-                                            (if (symbol? #{r 33646}#)
+                                          (lambda (#{r 33939}#)
+                                            (if (symbol? #{r 33939}#)
                                               #t
-                                              (if (if (vector? #{r 33646}#)
+                                              (if (if (vector? #{r 33939}#)
                                                     (if (= (vector-length
-                                                             #{r 33646}#)
+                                                             #{r 33939}#)
                                                            4)
                                                       (eq? (vector-ref
-                                                             #{r 33646}#
+                                                             #{r 33939}#
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
                                                 (symbol?
-                                                  (vector-ref #{r 33646}# 1))
+                                                  (vector-ref #{r 33939}# 1))
                                                 #f)))
-                                          #{tmp 33644}#)
+                                          #{tmp 33937}#)
                                       (@apply
-                                        (lambda (#{r 33676}#)
-                                          (#{rest 33454}#
-                                            #{r 33676}#
-                                            (reverse #{rreq 33459}#)
+                                        (lambda (#{r 33969}#)
+                                          (#{rest 33747}#
+                                            #{r 33969}#
+                                            (reverse #{rreq 33752}#)
                                             '()
                                             '()))
-                                        #{tmp 33644}#)
+                                        #{tmp 33937}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid argument list"
-                                        #{orig-args 33450}#
-                                        #{args 33458}#)))))))))))))))
-          (#{opt 33452}#
-            (lambda (#{args 33695}# #{req 33696}# #{ropt 33697}#)
-              (let ((#{tmp 33699}# ($sc-dispatch #{args 33695}# '())))
-                (if #{tmp 33699}#
+                                        #{orig-args 33743}#
+                                        #{args 33751}#)))))))))))))))
+          (#{opt 33745}#
+            (lambda (#{args 33988}# #{req 33989}# #{ropt 33990}#)
+              (let ((#{tmp 33992}# ($sc-dispatch #{args 33988}# '())))
+                (if #{tmp 33992}#
                   (@apply
                     (lambda ()
-                      (#{check 33455}#
-                        #{req 33696}#
-                        (reverse #{ropt 33697}#)
+                      (#{check 33748}#
+                        #{req 33989}#
+                        (reverse #{ropt 33990}#)
                         #f
                         '()))
-                    #{tmp 33699}#)
-                  (let ((#{tmp 33820}#
-                          ($sc-dispatch #{args 33695}# '(any . any))))
-                    (if (if #{tmp 33820}#
+                    #{tmp 33992}#)
+                  (let ((#{tmp 34113}#
+                          ($sc-dispatch #{args 33988}# '(any . any))))
+                    (if (if #{tmp 34113}#
                           (@apply
-                            (lambda (#{a 33824}# #{b 33825}#)
-                              (if (symbol? #{a 33824}#)
+                            (lambda (#{a 34117}# #{b 34118}#)
+                              (if (symbol? #{a 34117}#)
                                 #t
-                                (if (if (vector? #{a 33824}#)
-                                      (if (= (vector-length #{a 33824}#) 4)
-                                        (eq? (vector-ref #{a 33824}# 0)
+                                (if (if (vector? #{a 34117}#)
+                                      (if (= (vector-length #{a 34117}#) 4)
+                                        (eq? (vector-ref #{a 34117}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 33824}# 1))
+                                  (symbol? (vector-ref #{a 34117}# 1))
                                   #f)))
-                            #{tmp 33820}#)
+                            #{tmp 34113}#)
                           #f)
                       (@apply
-                        (lambda (#{a 33852}# #{b 33853}#)
-                          (#{opt 33452}#
-                            #{b 33853}#
-                            #{req 33696}#
-                            (cons (cons #{a 33852}#
+                        (lambda (#{a 34145}# #{b 34146}#)
+                          (#{opt 33745}#
+                            #{b 34146}#
+                            #{req 33989}#
+                            (cons (cons #{a 34145}#
                                         '(#(syntax-object
                                             #f
                                             ((top)
                                              #(ribcage
                                                #(a b)
                                                #((top) (top))
-                                               #("i2402" "i2403"))
+                                               #("i2400" "i2401"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(args req ropt)
                                                #((top) (top) (top))
-                                               #("i2392" "i2393" "i2394"))
+                                               #("i2390" "i2391" "i2392"))
                                              #(ribcage
                                                (check rest key opt req)
                                                ((top) (top) (top) (top) (top))
-                                               ("i2338"
-                                                "i2336"
+                                               ("i2336"
                                                 "i2334"
                                                 "i2332"
-                                                "i2330"))
+                                                "i2330"
+                                                "i2328"))
                                              #(ribcage
                                                #(orig-args)
                                                #((top))
-                                               #("i2329"))
+                                               #("i2327"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -7300,147 +7283,147 @@
                                                ((top) (top) (top))
                                                ("i46" "i45" "i44")))
                                             (hygiene guile))))
-                                  #{ropt 33697}#)))
-                        #{tmp 33820}#)
-                      (let ((#{tmp 33854}#
+                                  #{ropt 33990}#)))
+                        #{tmp 34113}#)
+                      (let ((#{tmp 34147}#
                               ($sc-dispatch
-                                #{args 33695}#
+                                #{args 33988}#
                                 '((any any) . any))))
-                        (if (if #{tmp 33854}#
+                        (if (if #{tmp 34147}#
                               (@apply
-                                (lambda (#{a 33858}#
-                                         #{init 33859}#
-                                         #{b 33860}#)
-                                  (if (symbol? #{a 33858}#)
+                                (lambda (#{a 34151}#
+                                         #{init 34152}#
+                                         #{b 34153}#)
+                                  (if (symbol? #{a 34151}#)
                                     #t
-                                    (if (if (vector? #{a 33858}#)
-                                          (if (= (vector-length #{a 33858}#) 4)
-                                            (eq? (vector-ref #{a 33858}# 0)
+                                    (if (if (vector? #{a 34151}#)
+                                          (if (= (vector-length #{a 34151}#) 4)
+                                            (eq? (vector-ref #{a 34151}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (symbol? (vector-ref #{a 33858}# 1))
+                                      (symbol? (vector-ref #{a 34151}# 1))
                                       #f)))
-                                #{tmp 33854}#)
+                                #{tmp 34147}#)
                               #f)
                           (@apply
-                            (lambda (#{a 33887}# #{init 33888}# #{b 33889}#)
-                              (#{opt 33452}#
-                                #{b 33889}#
-                                #{req 33696}#
-                                (cons (list #{a 33887}# #{init 33888}#)
-                                      #{ropt 33697}#)))
-                            #{tmp 33854}#)
-                          (let ((#{tmp 33890}#
-                                  ($sc-dispatch #{args 33695}# '(any . any))))
-                            (if (if #{tmp 33890}#
+                            (lambda (#{a 34180}# #{init 34181}# #{b 34182}#)
+                              (#{opt 33745}#
+                                #{b 34182}#
+                                #{req 33989}#
+                                (cons (list #{a 34180}# #{init 34181}#)
+                                      #{ropt 33990}#)))
+                            #{tmp 34147}#)
+                          (let ((#{tmp 34183}#
+                                  ($sc-dispatch #{args 33988}# '(any . any))))
+                            (if (if #{tmp 34183}#
                                   (@apply
-                                    (lambda (#{a 33894}# #{b 33895}#)
-                                      (eq? (syntax->datum #{a 33894}#) #:key))
-                                    #{tmp 33890}#)
+                                    (lambda (#{a 34187}# #{b 34188}#)
+                                      (eq? (syntax->datum #{a 34187}#) #:key))
+                                    #{tmp 34183}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 33896}# #{b 33897}#)
-                                  (#{key 33453}#
-                                    #{b 33897}#
-                                    #{req 33696}#
-                                    (reverse #{ropt 33697}#)
+                                (lambda (#{a 34189}# #{b 34190}#)
+                                  (#{key 33746}#
+                                    #{b 34190}#
+                                    #{req 33989}#
+                                    (reverse #{ropt 33990}#)
                                     '()))
-                                #{tmp 33890}#)
-                              (let ((#{tmp 33900}#
+                                #{tmp 34183}#)
+                              (let ((#{tmp 34193}#
                                       ($sc-dispatch
-                                        #{args 33695}#
+                                        #{args 33988}#
                                         '(any any))))
-                                (if (if #{tmp 33900}#
+                                (if (if #{tmp 34193}#
                                       (@apply
-                                        (lambda (#{a 33904}# #{b 33905}#)
-                                          (eq? (syntax->datum #{a 33904}#)
+                                        (lambda (#{a 34197}# #{b 34198}#)
+                                          (eq? (syntax->datum #{a 34197}#)
                                                #:rest))
-                                        #{tmp 33900}#)
+                                        #{tmp 34193}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a 33906}# #{b 33907}#)
-                                      (#{rest 33454}#
-                                        #{b 33907}#
-                                        #{req 33696}#
-                                        (reverse #{ropt 33697}#)
+                                    (lambda (#{a 34199}# #{b 34200}#)
+                                      (#{rest 33747}#
+                                        #{b 34200}#
+                                        #{req 33989}#
+                                        (reverse #{ropt 33990}#)
                                         '()))
-                                    #{tmp 33900}#)
-                                  (let ((#{tmp 33910}# (list #{args 33695}#)))
+                                    #{tmp 34193}#)
+                                  (let ((#{tmp 34203}# (list #{args 33988}#)))
                                     (if (@apply
-                                          (lambda (#{r 33912}#)
-                                            (if (symbol? #{r 33912}#)
+                                          (lambda (#{r 34205}#)
+                                            (if (symbol? #{r 34205}#)
                                               #t
-                                              (if (if (vector? #{r 33912}#)
+                                              (if (if (vector? #{r 34205}#)
                                                     (if (= (vector-length
-                                                             #{r 33912}#)
+                                                             #{r 34205}#)
                                                            4)
                                                       (eq? (vector-ref
-                                                             #{r 33912}#
+                                                             #{r 34205}#
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
                                                 (symbol?
-                                                  (vector-ref #{r 33912}# 1))
+                                                  (vector-ref #{r 34205}# 1))
                                                 #f)))
-                                          #{tmp 33910}#)
+                                          #{tmp 34203}#)
                                       (@apply
-                                        (lambda (#{r 33942}#)
-                                          (#{rest 33454}#
-                                            #{r 33942}#
-                                            #{req 33696}#
-                                            (reverse #{ropt 33697}#)
+                                        (lambda (#{r 34235}#)
+                                          (#{rest 33747}#
+                                            #{r 34235}#
+                                            #{req 33989}#
+                                            (reverse #{ropt 33990}#)
                                             '()))
-                                        #{tmp 33910}#)
+                                        #{tmp 34203}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid optional argument list"
-                                        #{orig-args 33450}#
-                                        #{args 33695}#)))))))))))))))
-          (#{key 33453}#
-            (lambda (#{args 33961}#
-                     #{req 33962}#
-                     #{opt 33963}#
-                     #{rkey 33964}#)
-              (let ((#{tmp 33966}# ($sc-dispatch #{args 33961}# '())))
-                (if #{tmp 33966}#
+                                        #{orig-args 33743}#
+                                        #{args 33988}#)))))))))))))))
+          (#{key 33746}#
+            (lambda (#{args 34254}#
+                     #{req 34255}#
+                     #{opt 34256}#
+                     #{rkey 34257}#)
+              (let ((#{tmp 34259}# ($sc-dispatch #{args 34254}# '())))
+                (if #{tmp 34259}#
                   (@apply
                     (lambda ()
-                      (#{check 33455}#
-                        #{req 33962}#
-                        #{opt 33963}#
+                      (#{check 33748}#
+                        #{req 34255}#
+                        #{opt 34256}#
                         #f
-                        (cons #f (reverse #{rkey 33964}#))))
-                    #{tmp 33966}#)
-                  (let ((#{tmp 34088}#
-                          ($sc-dispatch #{args 33961}# '(any . any))))
-                    (if (if #{tmp 34088}#
+                        (cons #f (reverse #{rkey 34257}#))))
+                    #{tmp 34259}#)
+                  (let ((#{tmp 34381}#
+                          ($sc-dispatch #{args 34254}# '(any . any))))
+                    (if (if #{tmp 34381}#
                           (@apply
-                            (lambda (#{a 34092}# #{b 34093}#)
-                              (if (symbol? #{a 34092}#)
+                            (lambda (#{a 34385}# #{b 34386}#)
+                              (if (symbol? #{a 34385}#)
                                 #t
-                                (if (if (vector? #{a 34092}#)
-                                      (if (= (vector-length #{a 34092}#) 4)
-                                        (eq? (vector-ref #{a 34092}# 0)
+                                (if (if (vector? #{a 34385}#)
+                                      (if (= (vector-length #{a 34385}#) 4)
+                                        (eq? (vector-ref #{a 34385}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 34092}# 1))
+                                  (symbol? (vector-ref #{a 34385}# 1))
                                   #f)))
-                            #{tmp 34088}#)
+                            #{tmp 34381}#)
                           #f)
                       (@apply
-                        (lambda (#{a 34120}# #{b 34121}#)
-                          (let ((#{tmp 34122}#
+                        (lambda (#{a 34413}# #{b 34414}#)
+                          (let ((#{tmp 34415}#
                                   (symbol->keyword
-                                    (syntax->datum #{a 34120}#))))
-                            (#{key 33453}#
-                              #{b 34121}#
-                              #{req 33962}#
-                              #{opt 33963}#
-                              (cons (cons #{tmp 34122}#
-                                          (cons #{a 34120}#
+                                    (syntax->datum #{a 34413}#))))
+                            (#{key 33746}#
+                              #{b 34414}#
+                              #{req 34255}#
+                              #{opt 34256}#
+                              (cons (cons #{tmp 34415}#
+                                          (cons #{a 34413}#
                                                 '(#(syntax-object
                                                     #f
                                                     ((top)
@@ -7448,11 +7431,11 @@
                                                      #(ribcage
                                                        #(k)
                                                        #((top))
-                                                       #("i2465"))
+                                                       #("i2463"))
                                                      #(ribcage
                                                        #(a b)
                                                        #((top) (top))
-                                                       #("i2459" "i2460"))
+                                                       #("i2457" "i2458"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(args req opt rkey)
@@ -7460,10 +7443,10 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                       #("i2448"
-                                                         "i2449"
-                                                         "i2450"
-                                                         "i2451"))
+                                                       #("i2446"
+                                                         "i2447"
+                                                         "i2448"
+                                                         "i2449"))
                                                      #(ribcage
                                                        (check rest key opt req)
                                                        ((top)
@@ -7471,15 +7454,15 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i2338"
-                                                        "i2336"
+                                                       ("i2336"
                                                         "i2334"
                                                         "i2332"
-                                                        "i2330"))
+                                                        "i2330"
+                                                        "i2328"))
                                                      #(ribcage
                                                        #(orig-args)
                                                        #((top))
-                                                       #("i2329"))
+                                                       #("i2327"))
                                                      #(ribcage
                                                        (lambda-var-list
                                                          gen-var
@@ -7902,1009 +7885,1009 @@
                                                        ((top) (top) (top))
                                                        ("i46" "i45" "i44")))
                                                     (hygiene guile)))))
-                                    #{rkey 33964}#))))
-                        #{tmp 34088}#)
-                      (let ((#{tmp 34125}#
+                                    #{rkey 34257}#))))
+                        #{tmp 34381}#)
+                      (let ((#{tmp 34418}#
                               ($sc-dispatch
-                                #{args 33961}#
+                                #{args 34254}#
                                 '((any any) . any))))
-                        (if (if #{tmp 34125}#
+                        (if (if #{tmp 34418}#
                               (@apply
-                                (lambda (#{a 34129}#
-                                         #{init 34130}#
-                                         #{b 34131}#)
-                                  (if (symbol? #{a 34129}#)
+                                (lambda (#{a 34422}#
+                                         #{init 34423}#
+                                         #{b 34424}#)
+                                  (if (symbol? #{a 34422}#)
                                     #t
-                                    (if (if (vector? #{a 34129}#)
-                                          (if (= (vector-length #{a 34129}#) 4)
-                                            (eq? (vector-ref #{a 34129}# 0)
+                                    (if (if (vector? #{a 34422}#)
+                                          (if (= (vector-length #{a 34422}#) 4)
+                                            (eq? (vector-ref #{a 34422}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (symbol? (vector-ref #{a 34129}# 1))
+                                      (symbol? (vector-ref #{a 34422}# 1))
                                       #f)))
-                                #{tmp 34125}#)
+                                #{tmp 34418}#)
                               #f)
                           (@apply
-                            (lambda (#{a 34158}# #{init 34159}# #{b 34160}#)
-                              (let ((#{tmp 34161}#
+                            (lambda (#{a 34451}# #{init 34452}# #{b 34453}#)
+                              (let ((#{tmp 34454}#
                                       (symbol->keyword
-                                        (syntax->datum #{a 34158}#))))
-                                (#{key 33453}#
-                                  #{b 34160}#
-                                  #{req 33962}#
-                                  #{opt 33963}#
-                                  (cons (list #{tmp 34161}#
-                                              #{a 34158}#
-                                              #{init 34159}#)
-                                        #{rkey 33964}#))))
-                            #{tmp 34125}#)
-                          (let ((#{tmp 34164}#
+                                        (syntax->datum #{a 34451}#))))
+                                (#{key 33746}#
+                                  #{b 34453}#
+                                  #{req 34255}#
+                                  #{opt 34256}#
+                                  (cons (list #{tmp 34454}#
+                                              #{a 34451}#
+                                              #{init 34452}#)
+                                        #{rkey 34257}#))))
+                            #{tmp 34418}#)
+                          (let ((#{tmp 34457}#
                                   ($sc-dispatch
-                                    #{args 33961}#
+                                    #{args 34254}#
                                     '((any any any) . any))))
-                            (if (if #{tmp 34164}#
+                            (if (if #{tmp 34457}#
                                   (@apply
-                                    (lambda (#{a 34168}#
-                                             #{init 34169}#
-                                             #{k 34170}#
-                                             #{b 34171}#)
-                                      (if (if (symbol? #{a 34168}#)
+                                    (lambda (#{a 34461}#
+                                             #{init 34462}#
+                                             #{k 34463}#
+                                             #{b 34464}#)
+                                      (if (if (symbol? #{a 34461}#)
                                             #t
-                                            (if (if (vector? #{a 34168}#)
+                                            (if (if (vector? #{a 34461}#)
                                                   (if (= (vector-length
-                                                           #{a 34168}#)
+                                                           #{a 34461}#)
                                                          4)
                                                     (eq? (vector-ref
-                                                           #{a 34168}#
+                                                           #{a 34461}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (symbol?
-                                                (vector-ref #{a 34168}# 1))
+                                                (vector-ref #{a 34461}# 1))
                                               #f))
-                                        (keyword? (syntax->datum #{k 34170}#))
+                                        (keyword? (syntax->datum #{k 34463}#))
                                         #f))
-                                    #{tmp 34164}#)
+                                    #{tmp 34457}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 34198}#
-                                         #{init 34199}#
-                                         #{k 34200}#
-                                         #{b 34201}#)
-                                  (#{key 33453}#
-                                    #{b 34201}#
-                                    #{req 33962}#
-                                    #{opt 33963}#
-                                    (cons (list #{k 34200}#
-                                                #{a 34198}#
-                                                #{init 34199}#)
-                                          #{rkey 33964}#)))
-                                #{tmp 34164}#)
-                              (let ((#{tmp 34202}#
-                                      ($sc-dispatch #{args 33961}# '(any))))
-                                (if (if #{tmp 34202}#
+                                (lambda (#{a 34491}#
+                                         #{init 34492}#
+                                         #{k 34493}#
+                                         #{b 34494}#)
+                                  (#{key 33746}#
+                                    #{b 34494}#
+                                    #{req 34255}#
+                                    #{opt 34256}#
+                                    (cons (list #{k 34493}#
+                                                #{a 34491}#
+                                                #{init 34492}#)
+                                          #{rkey 34257}#)))
+                                #{tmp 34457}#)
+                              (let ((#{tmp 34495}#
+                                      ($sc-dispatch #{args 34254}# '(any))))
+                                (if (if #{tmp 34495}#
                                       (@apply
-                                        (lambda (#{aok 34206}#)
-                                          (eq? (syntax->datum #{aok 34206}#)
+                                        (lambda (#{aok 34499}#)
+                                          (eq? (syntax->datum #{aok 34499}#)
                                                #:allow-other-keys))
-                                        #{tmp 34202}#)
+                                        #{tmp 34495}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{aok 34207}#)
-                                      (#{check 33455}#
-                                        #{req 33962}#
-                                        #{opt 33963}#
+                                    (lambda (#{aok 34500}#)
+                                      (#{check 33748}#
+                                        #{req 34255}#
+                                        #{opt 34256}#
                                         #f
-                                        (cons #t (reverse #{rkey 33964}#))))
-                                    #{tmp 34202}#)
-                                  (let ((#{tmp 34326}#
+                                        (cons #t (reverse #{rkey 34257}#))))
+                                    #{tmp 34495}#)
+                                  (let ((#{tmp 34619}#
                                           ($sc-dispatch
-                                            #{args 33961}#
+                                            #{args 34254}#
                                             '(any any any))))
-                                    (if (if #{tmp 34326}#
+                                    (if (if #{tmp 34619}#
                                           (@apply
-                                            (lambda (#{aok 34330}#
-                                                     #{a 34331}#
-                                                     #{b 34332}#)
+                                            (lambda (#{aok 34623}#
+                                                     #{a 34624}#
+                                                     #{b 34625}#)
                                               (if (eq? (syntax->datum
-                                                         #{aok 34330}#)
+                                                         #{aok 34623}#)
                                                        #:allow-other-keys)
                                                 (eq? (syntax->datum
-                                                       #{a 34331}#)
+                                                       #{a 34624}#)
                                                      #:rest)
                                                 #f))
-                                            #{tmp 34326}#)
+                                            #{tmp 34619}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{aok 34333}#
-                                                 #{a 34334}#
-                                                 #{b 34335}#)
-                                          (#{rest 33454}#
-                                            #{b 34335}#
-                                            #{req 33962}#
-                                            #{opt 33963}#
+                                        (lambda (#{aok 34626}#
+                                                 #{a 34627}#
+                                                 #{b 34628}#)
+                                          (#{rest 33747}#
+                                            #{b 34628}#
+                                            #{req 34255}#
+                                            #{opt 34256}#
                                             (cons #t
-                                                  (reverse #{rkey 33964}#))))
-                                        #{tmp 34326}#)
-                                      (let ((#{tmp 34338}#
+                                                  (reverse #{rkey 34257}#))))
+                                        #{tmp 34619}#)
+                                      (let ((#{tmp 34631}#
                                               ($sc-dispatch
-                                                #{args 33961}#
+                                                #{args 34254}#
                                                 '(any . any))))
-                                        (if (if #{tmp 34338}#
+                                        (if (if #{tmp 34631}#
                                               (@apply
-                                                (lambda (#{aok 34342}#
-                                                         #{r 34343}#)
+                                                (lambda (#{aok 34635}#
+                                                         #{r 34636}#)
                                                   (if (eq? (syntax->datum
-                                                             #{aok 34342}#)
+                                                             #{aok 34635}#)
                                                            #:allow-other-keys)
-                                                    (if (symbol? #{r 34343}#)
+                                                    (if (symbol? #{r 34636}#)
                                                       #t
                                                       (if (if (vector?
-                                                                #{r 34343}#)
+                                                                #{r 34636}#)
                                                             (if (= 
(vector-length
-                                                                     #{r 
34343}#)
+                                                                     #{r 
34636}#)
                                                                    4)
                                                               (eq? (vector-ref
-                                                                     #{r 
34343}#
+                                                                     #{r 
34636}#
                                                                      0)
                                                                    
'syntax-object)
                                                               #f)
                                                             #f)
                                                         (symbol?
                                                           (vector-ref
-                                                            #{r 34343}#
+                                                            #{r 34636}#
                                                             1))
                                                         #f))
                                                     #f))
-                                                #{tmp 34338}#)
+                                                #{tmp 34631}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{aok 34370}# #{r 34371}#)
-                                              (#{rest 33454}#
-                                                #{r 34371}#
-                                                #{req 33962}#
-                                                #{opt 33963}#
+                                            (lambda (#{aok 34663}# #{r 34664}#)
+                                              (#{rest 33747}#
+                                                #{r 34664}#
+                                                #{req 34255}#
+                                                #{opt 34256}#
                                                 (cons #t
                                                       (reverse
-                                                        #{rkey 33964}#))))
-                                            #{tmp 34338}#)
-                                          (let ((#{tmp 34374}#
+                                                        #{rkey 34257}#))))
+                                            #{tmp 34631}#)
+                                          (let ((#{tmp 34667}#
                                                   ($sc-dispatch
-                                                    #{args 33961}#
+                                                    #{args 34254}#
                                                     '(any any))))
-                                            (if (if #{tmp 34374}#
+                                            (if (if #{tmp 34667}#
                                                   (@apply
-                                                    (lambda (#{a 34378}#
-                                                             #{b 34379}#)
+                                                    (lambda (#{a 34671}#
+                                                             #{b 34672}#)
                                                       (eq? (syntax->datum
-                                                             #{a 34378}#)
+                                                             #{a 34671}#)
                                                            #:rest))
-                                                    #{tmp 34374}#)
+                                                    #{tmp 34667}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{a 34380}#
-                                                         #{b 34381}#)
-                                                  (#{rest 33454}#
-                                                    #{b 34381}#
-                                                    #{req 33962}#
-                                                    #{opt 33963}#
+                                                (lambda (#{a 34673}#
+                                                         #{b 34674}#)
+                                                  (#{rest 33747}#
+                                                    #{b 34674}#
+                                                    #{req 34255}#
+                                                    #{opt 34256}#
                                                     (cons #f
                                                           (reverse
-                                                            #{rkey 33964}#))))
-                                                #{tmp 34374}#)
-                                              (let ((#{tmp 34384}#
-                                                      (list #{args 33961}#)))
+                                                            #{rkey 34257}#))))
+                                                #{tmp 34667}#)
+                                              (let ((#{tmp 34677}#
+                                                      (list #{args 34254}#)))
                                                 (if (@apply
-                                                      (lambda (#{r 34386}#)
+                                                      (lambda (#{r 34679}#)
                                                         (if (symbol?
-                                                              #{r 34386}#)
+                                                              #{r 34679}#)
                                                           #t
                                                           (if (if (vector?
-                                                                    #{r 
34386}#)
+                                                                    #{r 
34679}#)
                                                                 (if (= 
(vector-length
-                                                                         #{r 
34386}#)
+                                                                         #{r 
34679}#)
                                                                        4)
                                                                   (eq? 
(vector-ref
-                                                                         #{r 
34386}#
+                                                                         #{r 
34679}#
                                                                          0)
                                                                        
'syntax-object)
                                                                   #f)
                                                                 #f)
                                                             (symbol?
                                                               (vector-ref
-                                                                #{r 34386}#
+                                                                #{r 34679}#
                                                                 1))
                                                             #f)))
-                                                      #{tmp 34384}#)
+                                                      #{tmp 34677}#)
                                                   (@apply
-                                                    (lambda (#{r 34416}#)
-                                                      (#{rest 33454}#
-                                                        #{r 34416}#
-                                                        #{req 33962}#
-                                                        #{opt 33963}#
+                                                    (lambda (#{r 34709}#)
+                                                      (#{rest 33747}#
+                                                        #{r 34709}#
+                                                        #{req 34255}#
+                                                        #{opt 34256}#
                                                         (cons #f
                                                               (reverse
-                                                                #{rkey 
33964}#))))
-                                                    #{tmp 34384}#)
+                                                                #{rkey 
34257}#))))
+                                                    #{tmp 34677}#)
                                                   (syntax-violation
                                                     'lambda*
                                                     "invalid keyword argument 
list"
-                                                    #{orig-args 33450}#
-                                                    #{args 
33961}#)))))))))))))))))))))
-          (#{rest 33454}#
-            (lambda (#{args 34444}#
-                     #{req 34445}#
-                     #{opt 34446}#
-                     #{kw 34447}#)
-              (let ((#{tmp 34449}# (list #{args 34444}#)))
+                                                    #{orig-args 33743}#
+                                                    #{args 
34254}#)))))))))))))))))))))
+          (#{rest 33747}#
+            (lambda (#{args 34737}#
+                     #{req 34738}#
+                     #{opt 34739}#
+                     #{kw 34740}#)
+              (let ((#{tmp 34742}# (list #{args 34737}#)))
                 (if (@apply
-                      (lambda (#{r 34451}#)
-                        (if (symbol? #{r 34451}#)
+                      (lambda (#{r 34744}#)
+                        (if (symbol? #{r 34744}#)
                           #t
-                          (if (if (vector? #{r 34451}#)
-                                (if (= (vector-length #{r 34451}#) 4)
-                                  (eq? (vector-ref #{r 34451}# 0)
+                          (if (if (vector? #{r 34744}#)
+                                (if (= (vector-length #{r 34744}#) 4)
+                                  (eq? (vector-ref #{r 34744}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{r 34451}# 1))
+                            (symbol? (vector-ref #{r 34744}# 1))
                             #f)))
-                      #{tmp 34449}#)
+                      #{tmp 34742}#)
                   (@apply
-                    (lambda (#{r 34481}#)
-                      (#{check 33455}#
-                        #{req 34445}#
-                        #{opt 34446}#
-                        #{r 34481}#
-                        #{kw 34447}#))
-                    #{tmp 34449}#)
+                    (lambda (#{r 34774}#)
+                      (#{check 33748}#
+                        #{req 34738}#
+                        #{opt 34739}#
+                        #{r 34774}#
+                        #{kw 34740}#))
+                    #{tmp 34742}#)
                   (syntax-violation
                     'lambda*
                     "invalid rest argument"
-                    #{orig-args 33450}#
-                    #{args 34444}#)))))
-          (#{check 33455}#
-            (lambda (#{req 34609}#
-                     #{opt 34610}#
-                     #{rest 34611}#
-                     #{kw 34612}#)
-              (if (#{distinct-bound-ids? 4366}#
+                    #{orig-args 33743}#
+                    #{args 34737}#)))))
+          (#{check 33748}#
+            (lambda (#{req 34902}#
+                     #{opt 34903}#
+                     #{rest 34904}#
+                     #{kw 34905}#)
+              (if (#{distinct-bound-ids? 4364}#
                     (append
-                      #{req 34609}#
-                      (map car #{opt 34610}#)
-                      (if #{rest 34611}# (list #{rest 34611}#) '())
-                      (if (pair? #{kw 34612}#)
-                        (map cadr (cdr #{kw 34612}#))
+                      #{req 34902}#
+                      (map car #{opt 34903}#)
+                      (if #{rest 34904}# (list #{rest 34904}#) '())
+                      (if (pair? #{kw 34905}#)
+                        (map cadr (cdr #{kw 34905}#))
                         '())))
                 (values
-                  #{req 34609}#
-                  #{opt 34610}#
-                  #{rest 34611}#
-                  #{kw 34612}#)
+                  #{req 34902}#
+                  #{opt 34903}#
+                  #{rest 34904}#
+                  #{kw 34905}#)
                 (syntax-violation
                   'lambda*
                   "duplicate identifier in argument list"
-                  #{orig-args 33450}#)))))
-         (#{req 33451}# #{orig-args 33450}# '()))))
-   (#{chi-lambda-case 4387}#
-     (lambda (#{e 34721}#
-              #{r 34722}#
-              #{w 34723}#
-              #{s 34724}#
-              #{mod 34725}#
-              #{get-formals 34726}#
-              #{clauses 34727}#)
+                  #{orig-args 33743}#)))))
+         (#{req 33744}# #{orig-args 33743}# '()))))
+   (#{chi-lambda-case 4385}#
+     (lambda (#{e 35014}#
+              #{r 35015}#
+              #{w 35016}#
+              #{s 35017}#
+              #{mod 35018}#
+              #{get-formals 35019}#
+              #{clauses 35020}#)
        (letrec*
-         ((#{expand-req 34728}#
-            (lambda (#{req 34864}#
-                     #{opt 34865}#
-                     #{rest 34866}#
-                     #{kw 34867}#
-                     #{body 34868}#)
-              (let ((#{vars 34869}#
-                      (map #{gen-var 4389}# #{req 34864}#))
-                    (#{labels 34870}#
-                      (#{gen-labels 4346}# #{req 34864}#)))
-                (let ((#{r* 34871}#
-                        (#{extend-var-env 4338}#
-                          #{labels 34870}#
-                          #{vars 34869}#
-                          #{r 34722}#))
-                      (#{w* 34872}#
-                        (#{make-binding-wrap 4357}#
-                          #{req 34864}#
-                          #{labels 34870}#
-                          #{w 34723}#)))
-                  (#{expand-opt 34729}#
-                    (map syntax->datum #{req 34864}#)
-                    #{opt 34865}#
-                    #{rest 34866}#
-                    #{kw 34867}#
-                    #{body 34868}#
-                    (reverse #{vars 34869}#)
-                    #{r* 34871}#
-                    #{w* 34872}#
+         ((#{expand-req 35021}#
+            (lambda (#{req 35157}#
+                     #{opt 35158}#
+                     #{rest 35159}#
+                     #{kw 35160}#
+                     #{body 35161}#)
+              (let ((#{vars 35162}#
+                      (map #{gen-var 4387}# #{req 35157}#))
+                    (#{labels 35163}#
+                      (#{gen-labels 4344}# #{req 35157}#)))
+                (let ((#{r* 35164}#
+                        (#{extend-var-env 4336}#
+                          #{labels 35163}#
+                          #{vars 35162}#
+                          #{r 35015}#))
+                      (#{w* 35165}#
+                        (#{make-binding-wrap 4355}#
+                          #{req 35157}#
+                          #{labels 35163}#
+                          #{w 35016}#)))
+                  (#{expand-opt 35022}#
+                    (map syntax->datum #{req 35157}#)
+                    #{opt 35158}#
+                    #{rest 35159}#
+                    #{kw 35160}#
+                    #{body 35161}#
+                    (reverse #{vars 35162}#)
+                    #{r* 35164}#
+                    #{w* 35165}#
                     '()
                     '())))))
-          (#{expand-opt 34729}#
-            (lambda (#{req 35108}#
-                     #{opt 35109}#
-                     #{rest 35110}#
-                     #{kw 35111}#
-                     #{body 35112}#
-                     #{vars 35113}#
-                     #{r* 35114}#
-                     #{w* 35115}#
-                     #{out 35116}#
-                     #{inits 35117}#)
-              (if (pair? #{opt 35109}#)
-                (let ((#{tmp 35118}# (car #{opt 35109}#)))
-                  (let ((#{tmp 35119}#
-                          ($sc-dispatch #{tmp 35118}# '(any any))))
-                    (if #{tmp 35119}#
+          (#{expand-opt 35022}#
+            (lambda (#{req 35401}#
+                     #{opt 35402}#
+                     #{rest 35403}#
+                     #{kw 35404}#
+                     #{body 35405}#
+                     #{vars 35406}#
+                     #{r* 35407}#
+                     #{w* 35408}#
+                     #{out 35409}#
+                     #{inits 35410}#)
+              (if (pair? #{opt 35402}#)
+                (let ((#{tmp 35411}# (car #{opt 35402}#)))
+                  (let ((#{tmp 35412}#
+                          ($sc-dispatch #{tmp 35411}# '(any any))))
+                    (if #{tmp 35412}#
                       (@apply
-                        (lambda (#{id 35121}# #{i 35122}#)
-                          (let ((#{v 35123}#
-                                  (let ((#{id 35131}#
-                                          (if (if (vector? #{id 35121}#)
+                        (lambda (#{id 35414}# #{i 35415}#)
+                          (let ((#{v 35416}#
+                                  (let ((#{id 35424}#
+                                          (if (if (vector? #{id 35414}#)
                                                 (if (= (vector-length
-                                                         #{id 35121}#)
+                                                         #{id 35414}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{id 35121}#
+                                                         #{id 35414}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (vector-ref #{id 35121}# 1)
-                                            #{id 35121}#)))
+                                            (vector-ref #{id 35414}# 1)
+                                            #{id 35414}#)))
                                     (gensym
                                       (string-append
-                                        (symbol->string #{id 35131}#)
+                                        (symbol->string #{id 35424}#)
                                         " ")))))
-                            (let ((#{l 35124}#
-                                    (#{gen-labels 4346}# (list #{v 35123}#))))
-                              (let ((#{r** 35125}#
-                                      (#{extend-var-env 4338}#
-                                        #{l 35124}#
-                                        (list #{v 35123}#)
-                                        #{r* 35114}#)))
-                                (let ((#{w** 35126}#
-                                        (#{make-binding-wrap 4357}#
-                                          (list #{id 35121}#)
-                                          #{l 35124}#
-                                          #{w* 35115}#)))
-                                  (#{expand-opt 34729}#
-                                    #{req 35108}#
-                                    (cdr #{opt 35109}#)
-                                    #{rest 35110}#
-                                    #{kw 35111}#
-                                    #{body 35112}#
-                                    (cons #{v 35123}# #{vars 35113}#)
-                                    #{r** 35125}#
-                                    #{w** 35126}#
-                                    (cons (syntax->datum #{id 35121}#)
-                                          #{out 35116}#)
-                                    (cons (#{chi 4375}#
-                                            #{i 35122}#
-                                            #{r* 35114}#
-                                            #{w* 35115}#
-                                            #{mod 34725}#)
-                                          #{inits 35117}#)))))))
-                        #{tmp 35119}#)
+                            (let ((#{l 35417}#
+                                    (#{gen-labels 4344}# (list #{v 35416}#))))
+                              (let ((#{r** 35418}#
+                                      (#{extend-var-env 4336}#
+                                        #{l 35417}#
+                                        (list #{v 35416}#)
+                                        #{r* 35407}#)))
+                                (let ((#{w** 35419}#
+                                        (#{make-binding-wrap 4355}#
+                                          (list #{id 35414}#)
+                                          #{l 35417}#
+                                          #{w* 35408}#)))
+                                  (#{expand-opt 35022}#
+                                    #{req 35401}#
+                                    (cdr #{opt 35402}#)
+                                    #{rest 35403}#
+                                    #{kw 35404}#
+                                    #{body 35405}#
+                                    (cons #{v 35416}# #{vars 35406}#)
+                                    #{r** 35418}#
+                                    #{w** 35419}#
+                                    (cons (syntax->datum #{id 35414}#)
+                                          #{out 35409}#)
+                                    (cons (#{chi 4373}#
+                                            #{i 35415}#
+                                            #{r* 35407}#
+                                            #{w* 35408}#
+                                            #{mod 35018}#)
+                                          #{inits 35410}#)))))))
+                        #{tmp 35412}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 35118}#))))
-                (if #{rest 35110}#
-                  (let ((#{v 35430}#
-                          (let ((#{id 35440}#
-                                  (if (if (vector? #{rest 35110}#)
-                                        (if (= (vector-length #{rest 35110}#)
+                        #{tmp 35411}#))))
+                (if #{rest 35403}#
+                  (let ((#{v 35725}#
+                          (let ((#{id 35735}#
+                                  (if (if (vector? #{rest 35403}#)
+                                        (if (= (vector-length #{rest 35403}#)
                                                4)
-                                          (eq? (vector-ref #{rest 35110}# 0)
+                                          (eq? (vector-ref #{rest 35403}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (vector-ref #{rest 35110}# 1)
-                                    #{rest 35110}#)))
+                                    (vector-ref #{rest 35403}# 1)
+                                    #{rest 35403}#)))
                             (gensym
                               (string-append
-                                (symbol->string #{id 35440}#)
+                                (symbol->string #{id 35735}#)
                                 " ")))))
-                    (let ((#{l 35431}#
-                            (#{gen-labels 4346}# (list #{v 35430}#))))
-                      (let ((#{r* 35432}#
-                              (#{extend-var-env 4338}#
-                                #{l 35431}#
-                                (list #{v 35430}#)
-                                #{r* 35114}#)))
-                        (let ((#{w* 35433}#
-                                (#{make-binding-wrap 4357}#
-                                  (list #{rest 35110}#)
-                                  #{l 35431}#
-                                  #{w* 35115}#)))
-                          (#{expand-kw 34730}#
-                            #{req 35108}#
-                            (if (pair? #{out 35116}#)
-                              (reverse #{out 35116}#)
+                    (let ((#{l 35726}#
+                            (#{gen-labels 4344}# (list #{v 35725}#))))
+                      (let ((#{r* 35727}#
+                              (#{extend-var-env 4336}#
+                                #{l 35726}#
+                                (list #{v 35725}#)
+                                #{r* 35407}#)))
+                        (let ((#{w* 35728}#
+                                (#{make-binding-wrap 4355}#
+                                  (list #{rest 35403}#)
+                                  #{l 35726}#
+                                  #{w* 35408}#)))
+                          (#{expand-kw 35023}#
+                            #{req 35401}#
+                            (if (pair? #{out 35409}#)
+                              (reverse #{out 35409}#)
                               #f)
-                            (syntax->datum #{rest 35110}#)
-                            (if (pair? #{kw 35111}#)
-                              (cdr #{kw 35111}#)
-                              #{kw 35111}#)
-                            #{body 35112}#
-                            (cons #{v 35430}# #{vars 35113}#)
-                            #{r* 35432}#
-                            #{w* 35433}#
-                            (if (pair? #{kw 35111}#) (car #{kw 35111}#) #f)
+                            (syntax->datum #{rest 35403}#)
+                            (if (pair? #{kw 35404}#)
+                              (cdr #{kw 35404}#)
+                              #{kw 35404}#)
+                            #{body 35405}#
+                            (cons #{v 35725}# #{vars 35406}#)
+                            #{r* 35727}#
+                            #{w* 35728}#
+                            (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
                             '()
-                            #{inits 35117}#)))))
-                  (#{expand-kw 34730}#
-                    #{req 35108}#
-                    (if (pair? #{out 35116}#)
-                      (reverse #{out 35116}#)
+                            #{inits 35410}#)))))
+                  (#{expand-kw 35023}#
+                    #{req 35401}#
+                    (if (pair? #{out 35409}#)
+                      (reverse #{out 35409}#)
                       #f)
                     #f
-                    (if (pair? #{kw 35111}#)
-                      (cdr #{kw 35111}#)
-                      #{kw 35111}#)
-                    #{body 35112}#
-                    #{vars 35113}#
-                    #{r* 35114}#
-                    #{w* 35115}#
-                    (if (pair? #{kw 35111}#) (car #{kw 35111}#) #f)
+                    (if (pair? #{kw 35404}#)
+                      (cdr #{kw 35404}#)
+                      #{kw 35404}#)
+                    #{body 35405}#
+                    #{vars 35406}#
+                    #{r* 35407}#
+                    #{w* 35408}#
+                    (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
                     '()
-                    #{inits 35117}#)))))
-          (#{expand-kw 34730}#
-            (lambda (#{req 35662}#
-                     #{opt 35663}#
-                     #{rest 35664}#
-                     #{kw 35665}#
-                     #{body 35666}#
-                     #{vars 35667}#
-                     #{r* 35668}#
-                     #{w* 35669}#
-                     #{aok 35670}#
-                     #{out 35671}#
-                     #{inits 35672}#)
-              (if (pair? #{kw 35665}#)
-                (let ((#{tmp 35673}# (car #{kw 35665}#)))
-                  (let ((#{tmp 35674}#
-                          ($sc-dispatch #{tmp 35673}# '(any any any))))
-                    (if #{tmp 35674}#
+                    #{inits 35410}#)))))
+          (#{expand-kw 35023}#
+            (lambda (#{req 35957}#
+                     #{opt 35958}#
+                     #{rest 35959}#
+                     #{kw 35960}#
+                     #{body 35961}#
+                     #{vars 35962}#
+                     #{r* 35963}#
+                     #{w* 35964}#
+                     #{aok 35965}#
+                     #{out 35966}#
+                     #{inits 35967}#)
+              (if (pair? #{kw 35960}#)
+                (let ((#{tmp 35968}# (car #{kw 35960}#)))
+                  (let ((#{tmp 35969}#
+                          ($sc-dispatch #{tmp 35968}# '(any any any))))
+                    (if #{tmp 35969}#
                       (@apply
-                        (lambda (#{k 35676}# #{id 35677}# #{i 35678}#)
-                          (let ((#{v 35679}#
-                                  (let ((#{id 35687}#
-                                          (if (if (vector? #{id 35677}#)
+                        (lambda (#{k 35971}# #{id 35972}# #{i 35973}#)
+                          (let ((#{v 35974}#
+                                  (let ((#{id 35982}#
+                                          (if (if (vector? #{id 35972}#)
                                                 (if (= (vector-length
-                                                         #{id 35677}#)
+                                                         #{id 35972}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{id 35677}#
+                                                         #{id 35972}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (vector-ref #{id 35677}# 1)
-                                            #{id 35677}#)))
+                                            (vector-ref #{id 35972}# 1)
+                                            #{id 35972}#)))
                                     (gensym
                                       (string-append
-                                        (symbol->string #{id 35687}#)
+                                        (symbol->string #{id 35982}#)
                                         " ")))))
-                            (let ((#{l 35680}#
-                                    (#{gen-labels 4346}# (list #{v 35679}#))))
-                              (let ((#{r** 35681}#
-                                      (#{extend-var-env 4338}#
-                                        #{l 35680}#
-                                        (list #{v 35679}#)
-                                        #{r* 35668}#)))
-                                (let ((#{w** 35682}#
-                                        (#{make-binding-wrap 4357}#
-                                          (list #{id 35677}#)
-                                          #{l 35680}#
-                                          #{w* 35669}#)))
-                                  (#{expand-kw 34730}#
-                                    #{req 35662}#
-                                    #{opt 35663}#
-                                    #{rest 35664}#
-                                    (cdr #{kw 35665}#)
-                                    #{body 35666}#
-                                    (cons #{v 35679}# #{vars 35667}#)
-                                    #{r** 35681}#
-                                    #{w** 35682}#
-                                    #{aok 35670}#
-                                    (cons (list (syntax->datum #{k 35676}#)
-                                                (syntax->datum #{id 35677}#)
-                                                #{v 35679}#)
-                                          #{out 35671}#)
-                                    (cons (#{chi 4375}#
-                                            #{i 35678}#
-                                            #{r* 35668}#
-                                            #{w* 35669}#
-                                            #{mod 34725}#)
-                                          #{inits 35672}#)))))))
-                        #{tmp 35674}#)
+                            (let ((#{l 35975}#
+                                    (#{gen-labels 4344}# (list #{v 35974}#))))
+                              (let ((#{r** 35976}#
+                                      (#{extend-var-env 4336}#
+                                        #{l 35975}#
+                                        (list #{v 35974}#)
+                                        #{r* 35963}#)))
+                                (let ((#{w** 35977}#
+                                        (#{make-binding-wrap 4355}#
+                                          (list #{id 35972}#)
+                                          #{l 35975}#
+                                          #{w* 35964}#)))
+                                  (#{expand-kw 35023}#
+                                    #{req 35957}#
+                                    #{opt 35958}#
+                                    #{rest 35959}#
+                                    (cdr #{kw 35960}#)
+                                    #{body 35961}#
+                                    (cons #{v 35974}# #{vars 35962}#)
+                                    #{r** 35976}#
+                                    #{w** 35977}#
+                                    #{aok 35965}#
+                                    (cons (list (syntax->datum #{k 35971}#)
+                                                (syntax->datum #{id 35972}#)
+                                                #{v 35974}#)
+                                          #{out 35966}#)
+                                    (cons (#{chi 4373}#
+                                            #{i 35973}#
+                                            #{r* 35963}#
+                                            #{w* 35964}#
+                                            #{mod 35018}#)
+                                          #{inits 35967}#)))))))
+                        #{tmp 35969}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 35673}#))))
-                (#{expand-body 34731}#
-                  #{req 35662}#
-                  #{opt 35663}#
-                  #{rest 35664}#
-                  (if (if #{aok 35670}#
-                        #{aok 35670}#
-                        (pair? #{out 35671}#))
-                    (cons #{aok 35670}# (reverse #{out 35671}#))
+                        #{tmp 35968}#))))
+                (#{expand-body 35024}#
+                  #{req 35957}#
+                  #{opt 35958}#
+                  #{rest 35959}#
+                  (if (if #{aok 35965}#
+                        #{aok 35965}#
+                        (pair? #{out 35966}#))
+                    (cons #{aok 35965}# (reverse #{out 35966}#))
                     #f)
-                  #{body 35666}#
-                  (reverse #{vars 35667}#)
-                  #{r* 35668}#
-                  #{w* 35669}#
-                  (reverse #{inits 35672}#)
+                  #{body 35961}#
+                  (reverse #{vars 35962}#)
+                  #{r* 35963}#
+                  #{w* 35964}#
+                  (reverse #{inits 35967}#)
                   '()))))
-          (#{expand-body 34731}#
-            (lambda (#{req 35995}#
-                     #{opt 35996}#
-                     #{rest 35997}#
-                     #{kw 35998}#
-                     #{body 35999}#
-                     #{vars 36000}#
-                     #{r* 36001}#
-                     #{w* 36002}#
-                     #{inits 36003}#
-                     #{meta 36004}#)
-              (let ((#{tmp 36006}#
+          (#{expand-body 35024}#
+            (lambda (#{req 36292}#
+                     #{opt 36293}#
+                     #{rest 36294}#
+                     #{kw 36295}#
+                     #{body 36296}#
+                     #{vars 36297}#
+                     #{r* 36298}#
+                     #{w* 36299}#
+                     #{inits 36300}#
+                     #{meta 36301}#)
+              (let ((#{tmp 36303}#
                       ($sc-dispatch
-                        #{body 35999}#
+                        #{body 36296}#
                         '(any any . each-any))))
-                (if (if #{tmp 36006}#
+                (if (if #{tmp 36303}#
                       (@apply
-                        (lambda (#{docstring 36010}# #{e1 36011}# #{e2 36012}#)
-                          (string? (syntax->datum #{docstring 36010}#)))
-                        #{tmp 36006}#)
+                        (lambda (#{docstring 36307}# #{e1 36308}# #{e2 36309}#)
+                          (string? (syntax->datum #{docstring 36307}#)))
+                        #{tmp 36303}#)
                       #f)
                   (@apply
-                    (lambda (#{docstring 36013}# #{e1 36014}# #{e2 36015}#)
-                      (#{expand-body 34731}#
-                        #{req 35995}#
-                        #{opt 35996}#
-                        #{rest 35997}#
-                        #{kw 35998}#
-                        (cons #{e1 36014}# #{e2 36015}#)
-                        #{vars 36000}#
-                        #{r* 36001}#
-                        #{w* 36002}#
-                        #{inits 36003}#
+                    (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#)
+                      (#{expand-body 35024}#
+                        #{req 36292}#
+                        #{opt 36293}#
+                        #{rest 36294}#
+                        #{kw 36295}#
+                        (cons #{e1 36311}# #{e2 36312}#)
+                        #{vars 36297}#
+                        #{r* 36298}#
+                        #{w* 36299}#
+                        #{inits 36300}#
                         (append
-                          #{meta 36004}#
+                          #{meta 36301}#
                           (list (cons 'documentation
-                                      (syntax->datum #{docstring 36013}#))))))
-                    #{tmp 36006}#)
-                  (let ((#{tmp 36016}#
+                                      (syntax->datum #{docstring 36310}#))))))
+                    #{tmp 36303}#)
+                  (let ((#{tmp 36313}#
                           ($sc-dispatch
-                            #{body 35999}#
+                            #{body 36296}#
                             '(#(vector #(each (any . any))) any . each-any))))
-                    (if #{tmp 36016}#
+                    (if #{tmp 36313}#
                       (@apply
-                        (lambda (#{k 36020}#
-                                 #{v 36021}#
-                                 #{e1 36022}#
-                                 #{e2 36023}#)
-                          (#{expand-body 34731}#
-                            #{req 35995}#
-                            #{opt 35996}#
-                            #{rest 35997}#
-                            #{kw 35998}#
-                            (cons #{e1 36022}# #{e2 36023}#)
-                            #{vars 36000}#
-                            #{r* 36001}#
-                            #{w* 36002}#
-                            #{inits 36003}#
+                        (lambda (#{k 36317}#
+                                 #{v 36318}#
+                                 #{e1 36319}#
+                                 #{e2 36320}#)
+                          (#{expand-body 35024}#
+                            #{req 36292}#
+                            #{opt 36293}#
+                            #{rest 36294}#
+                            #{kw 36295}#
+                            (cons #{e1 36319}# #{e2 36320}#)
+                            #{vars 36297}#
+                            #{r* 36298}#
+                            #{w* 36299}#
+                            #{inits 36300}#
                             (append
-                              #{meta 36004}#
+                              #{meta 36301}#
                               (syntax->datum
-                                (map cons #{k 36020}# #{v 36021}#)))))
-                        #{tmp 36016}#)
-                      (let ((#{tmp 36024}#
-                              ($sc-dispatch #{body 35999}# '(any . each-any))))
-                        (if #{tmp 36024}#
+                                (map cons #{k 36317}# #{v 36318}#)))))
+                        #{tmp 36313}#)
+                      (let ((#{tmp 36321}#
+                              ($sc-dispatch #{body 36296}# '(any . each-any))))
+                        (if #{tmp 36321}#
                           (@apply
-                            (lambda (#{e1 36028}# #{e2 36029}#)
+                            (lambda (#{e1 36325}# #{e2 36326}#)
                               (values
-                                #{meta 36004}#
-                                #{req 35995}#
-                                #{opt 35996}#
-                                #{rest 35997}#
-                                #{kw 35998}#
-                                #{inits 36003}#
-                                #{vars 36000}#
-                                (#{chi-body 4379}#
-                                  (cons #{e1 36028}# #{e2 36029}#)
-                                  (let ((#{x 36041}#
+                                #{meta 36301}#
+                                #{req 36292}#
+                                #{opt 36293}#
+                                #{rest 36294}#
+                                #{kw 36295}#
+                                #{inits 36300}#
+                                #{vars 36297}#
+                                (#{chi-body 4377}#
+                                  (cons #{e1 36325}# #{e2 36326}#)
+                                  (let ((#{x 36338}#
                                           (begin
-                                            (if (if (pair? #{e 34721}#)
-                                                  #{s 34724}#
+                                            (if (if (pair? #{e 35014}#)
+                                                  #{s 35017}#
                                                   #f)
                                               (set-source-properties!
-                                                #{e 34721}#
-                                                #{s 34724}#))
-                                            #{e 34721}#)))
-                                    (if (if (null? (car #{w 34723}#))
-                                          (null? (cdr #{w 34723}#))
+                                                #{e 35014}#
+                                                #{s 35017}#))
+                                            #{e 35014}#)))
+                                    (if (if (null? (car #{w 35016}#))
+                                          (null? (cdr #{w 35016}#))
                                           #f)
-                                      #{x 36041}#
-                                      (if (if (vector? #{x 36041}#)
-                                            (if (= (vector-length #{x 36041}#)
+                                      #{x 36338}#
+                                      (if (if (vector? #{x 36338}#)
+                                            (if (= (vector-length #{x 36338}#)
                                                    4)
-                                              (eq? (vector-ref #{x 36041}# 0)
+                                              (eq? (vector-ref #{x 36338}# 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (let ((#{expression 36073}#
-                                                (vector-ref #{x 36041}# 1))
-                                              (#{wrap 36074}#
-                                                (let ((#{w2 36082}#
+                                        (let ((#{expression 36370}#
+                                                (vector-ref #{x 36338}# 1))
+                                              (#{wrap 36371}#
+                                                (let ((#{w2 36379}#
                                                         (vector-ref
-                                                          #{x 36041}#
+                                                          #{x 36338}#
                                                           2)))
-                                                  (let ((#{m1 36083}#
-                                                          (car #{w 34723}#))
-                                                        (#{s1 36084}#
-                                                          (cdr #{w 34723}#)))
-                                                    (if (null? #{m1 36083}#)
-                                                      (if (null? #{s1 36084}#)
-                                                        #{w2 36082}#
-                                                        (cons (car #{w2 
36082}#)
-                                                              (let ((#{m2 
36099}#
-                                                                      (cdr 
#{w2 36082}#)))
-                                                                (if (null? 
#{m2 36099}#)
-                                                                  #{s1 36084}#
+                                                  (let ((#{m1 36380}#
+                                                          (car #{w 35016}#))
+                                                        (#{s1 36381}#
+                                                          (cdr #{w 35016}#)))
+                                                    (if (null? #{m1 36380}#)
+                                                      (if (null? #{s1 36381}#)
+                                                        #{w2 36379}#
+                                                        (cons (car #{w2 
36379}#)
+                                                              (let ((#{m2 
36396}#
+                                                                      (cdr 
#{w2 36379}#)))
+                                                                (if (null? 
#{m2 36396}#)
+                                                                  #{s1 36381}#
                                                                   (append
-                                                                    #{s1 
36084}#
-                                                                    #{m2 
36099}#)))))
-                                                      (cons (let ((#{m2 36107}#
-                                                                    (car #{w2 
36082}#)))
-                                                              (if (null? #{m2 
36107}#)
-                                                                #{m1 36083}#
+                                                                    #{s1 
36381}#
+                                                                    #{m2 
36396}#)))))
+                                                      (cons (let ((#{m2 36404}#
+                                                                    (car #{w2 
36379}#)))
+                                                              (if (null? #{m2 
36404}#)
+                                                                #{m1 36380}#
                                                                 (append
-                                                                  #{m1 36083}#
-                                                                  #{m2 
36107}#)))
-                                                            (let ((#{m2 36115}#
-                                                                    (cdr #{w2 
36082}#)))
-                                                              (if (null? #{m2 
36115}#)
-                                                                #{s1 36084}#
+                                                                  #{m1 36380}#
+                                                                  #{m2 
36404}#)))
+                                                            (let ((#{m2 36412}#
+                                                                    (cdr #{w2 
36379}#)))
+                                                              (if (null? #{m2 
36412}#)
+                                                                #{s1 36381}#
                                                                 (append
-                                                                  #{s1 36084}#
-                                                                  #{m2 
36115}#))))))))
-                                              (#{module 36075}#
-                                                (vector-ref #{x 36041}# 3)))
+                                                                  #{s1 36381}#
+                                                                  #{m2 
36412}#))))))))
+                                              (#{module 36372}#
+                                                (vector-ref #{x 36338}# 3)))
                                           (vector
                                             'syntax-object
-                                            #{expression 36073}#
-                                            #{wrap 36074}#
-                                            #{module 36075}#))
-                                        (if (null? #{x 36041}#)
-                                          #{x 36041}#
+                                            #{expression 36370}#
+                                            #{wrap 36371}#
+                                            #{module 36372}#))
+                                        (if (null? #{x 36338}#)
+                                          #{x 36338}#
                                           (vector
                                             'syntax-object
-                                            #{x 36041}#
-                                            #{w 34723}#
-                                            #{mod 34725}#)))))
-                                  #{r* 36001}#
-                                  #{w* 36002}#
-                                  #{mod 34725}#)))
-                            #{tmp 36024}#)
+                                            #{x 36338}#
+                                            #{w 35016}#
+                                            #{mod 35018}#)))))
+                                  #{r* 36298}#
+                                  #{w* 36299}#
+                                  #{mod 35018}#)))
+                            #{tmp 36321}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{body 35999}#))))))))))
-         (let ((#{tmp 34733}#
-                 ($sc-dispatch #{clauses 34727}# '())))
-           (if #{tmp 34733}#
+                            #{body 36296}#))))))))))
+         (let ((#{tmp 35026}#
+                 ($sc-dispatch #{clauses 35020}# '())))
+           (if #{tmp 35026}#
              (@apply
                (lambda () (values '() #f))
-               #{tmp 34733}#)
-             (let ((#{tmp 34738}#
+               #{tmp 35026}#)
+             (let ((#{tmp 35031}#
                      ($sc-dispatch
-                       #{clauses 34727}#
+                       #{clauses 35020}#
                        '((any any . each-any)
                          .
                          #(each (any any . each-any))))))
-               (if #{tmp 34738}#
+               (if #{tmp 35031}#
                  (@apply
-                   (lambda (#{args 34742}#
-                            #{e1 34743}#
-                            #{e2 34744}#
-                            #{args* 34745}#
-                            #{e1* 34746}#
-                            #{e2* 34747}#)
+                   (lambda (#{args 35035}#
+                            #{e1 35036}#
+                            #{e2 35037}#
+                            #{args* 35038}#
+                            #{e1* 35039}#
+                            #{e2* 35040}#)
                      (call-with-values
                        (lambda ()
-                         (#{get-formals 34726}# #{args 34742}#))
-                       (lambda (#{req 34748}#
-                                #{opt 34749}#
-                                #{rest 34750}#
-                                #{kw 34751}#)
+                         (#{get-formals 35019}# #{args 35035}#))
+                       (lambda (#{req 35041}#
+                                #{opt 35042}#
+                                #{rest 35043}#
+                                #{kw 35044}#)
                          (call-with-values
                            (lambda ()
-                             (#{expand-req 34728}#
-                               #{req 34748}#
-                               #{opt 34749}#
-                               #{rest 34750}#
-                               #{kw 34751}#
-                               (cons #{e1 34743}# #{e2 34744}#)))
-                           (lambda (#{meta 34820}#
-                                    #{req 34821}#
-                                    #{opt 34822}#
-                                    #{rest 34823}#
-                                    #{kw 34824}#
-                                    #{inits 34825}#
-                                    #{vars 34826}#
-                                    #{body 34827}#)
+                             (#{expand-req 35021}#
+                               #{req 35041}#
+                               #{opt 35042}#
+                               #{rest 35043}#
+                               #{kw 35044}#
+                               (cons #{e1 35036}# #{e2 35037}#)))
+                           (lambda (#{meta 35113}#
+                                    #{req 35114}#
+                                    #{opt 35115}#
+                                    #{rest 35116}#
+                                    #{kw 35117}#
+                                    #{inits 35118}#
+                                    #{vars 35119}#
+                                    #{body 35120}#)
                              (call-with-values
                                (lambda ()
-                                 (#{chi-lambda-case 4387}#
-                                   #{e 34721}#
-                                   #{r 34722}#
-                                   #{w 34723}#
-                                   #{s 34724}#
-                                   #{mod 34725}#
-                                   #{get-formals 34726}#
-                                   (map (lambda (#{tmp 2808 34828}#
-                                                 #{tmp 2807 34829}#
-                                                 #{tmp 2806 34830}#)
-                                          (cons #{tmp 2806 34830}#
-                                                (cons #{tmp 2807 34829}#
-                                                      #{tmp 2808 34828}#)))
-                                        #{e2* 34747}#
-                                        #{e1* 34746}#
-                                        #{args* 34745}#)))
-                               (lambda (#{meta* 34831}# #{else* 34832}#)
+                                 (#{chi-lambda-case 4385}#
+                                   #{e 35014}#
+                                   #{r 35015}#
+                                   #{w 35016}#
+                                   #{s 35017}#
+                                   #{mod 35018}#
+                                   #{get-formals 35019}#
+                                   (map (lambda (#{tmp 2806 35121}#
+                                                 #{tmp 2805 35122}#
+                                                 #{tmp 2804 35123}#)
+                                          (cons #{tmp 2804 35123}#
+                                                (cons #{tmp 2805 35122}#
+                                                      #{tmp 2806 35121}#)))
+                                        #{e2* 35040}#
+                                        #{e1* 35039}#
+                                        #{args* 35038}#)))
+                               (lambda (#{meta* 35124}# #{else* 35125}#)
                                  (values
-                                   (append #{meta 34820}# #{meta* 34831}#)
+                                   (append #{meta 35113}# #{meta* 35124}#)
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 15)
-                                     #{s 34724}#
-                                     #{req 34821}#
-                                     #{opt 34822}#
-                                     #{rest 34823}#
-                                     #{kw 34824}#
-                                     #{inits 34825}#
-                                     #{vars 34826}#
-                                     #{body 34827}#
-                                     #{else* 34832}#)))))))))
-                   #{tmp 34738}#)
+                                     #{s 35017}#
+                                     #{req 35114}#
+                                     #{opt 35115}#
+                                     #{rest 35116}#
+                                     #{kw 35117}#
+                                     #{inits 35118}#
+                                     #{vars 35119}#
+                                     #{body 35120}#
+                                     #{else* 35125}#)))))))))
+                   #{tmp 35031}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
-                   #{clauses 34727}#))))))))
-   (#{strip 4388}#
-     (lambda (#{x 36142}# #{w 36143}#)
-       (if (memq 'top (car #{w 36143}#))
-         #{x 36142}#
+                   #{clauses 35020}#))))))))
+   (#{strip 4386}#
+     (lambda (#{x 36439}# #{w 36440}#)
+       (if (memq 'top (car #{w 36440}#))
+         #{x 36439}#
          (letrec*
-           ((#{f 36144}#
-              (lambda (#{x 36147}#)
-                (if (if (vector? #{x 36147}#)
-                      (if (= (vector-length #{x 36147}#) 4)
-                        (eq? (vector-ref #{x 36147}# 0) 'syntax-object)
+           ((#{f 36441}#
+              (lambda (#{x 36444}#)
+                (if (if (vector? #{x 36444}#)
+                      (if (= (vector-length #{x 36444}#) 4)
+                        (eq? (vector-ref #{x 36444}# 0) 'syntax-object)
                         #f)
                       #f)
-                  (#{strip 4388}#
-                    (vector-ref #{x 36147}# 1)
-                    (vector-ref #{x 36147}# 2))
-                  (if (pair? #{x 36147}#)
-                    (let ((#{a 36166}# (#{f 36144}# (car #{x 36147}#)))
-                          (#{d 36167}# (#{f 36144}# (cdr #{x 36147}#))))
-                      (if (if (eq? #{a 36166}# (car #{x 36147}#))
-                            (eq? #{d 36167}# (cdr #{x 36147}#))
+                  (#{strip 4386}#
+                    (vector-ref #{x 36444}# 1)
+                    (vector-ref #{x 36444}# 2))
+                  (if (pair? #{x 36444}#)
+                    (let ((#{a 36463}# (#{f 36441}# (car #{x 36444}#)))
+                          (#{d 36464}# (#{f 36441}# (cdr #{x 36444}#))))
+                      (if (if (eq? #{a 36463}# (car #{x 36444}#))
+                            (eq? #{d 36464}# (cdr #{x 36444}#))
                             #f)
-                        #{x 36147}#
-                        (cons #{a 36166}# #{d 36167}#)))
-                    (if (vector? #{x 36147}#)
-                      (let ((#{old 36170}# (vector->list #{x 36147}#)))
-                        (let ((#{new 36171}# (map #{f 36144}# #{old 36170}#)))
+                        #{x 36444}#
+                        (cons #{a 36463}# #{d 36464}#)))
+                    (if (vector? #{x 36444}#)
+                      (let ((#{old 36467}# (vector->list #{x 36444}#)))
+                        (let ((#{new 36468}# (map #{f 36441}# #{old 36467}#)))
                           (letrec*
-                            ((#{lp 36172}#
-                               (lambda (#{l1 36269}# #{l2 36270}#)
-                                 (if (null? #{l1 36269}#)
-                                   #{x 36147}#
-                                   (if (eq? (car #{l1 36269}#)
-                                            (car #{l2 36270}#))
-                                     (#{lp 36172}#
-                                       (cdr #{l1 36269}#)
-                                       (cdr #{l2 36270}#))
-                                     (list->vector #{new 36171}#))))))
-                            (#{lp 36172}# #{old 36170}# #{new 36171}#))))
-                      #{x 36147}#))))))
-           (#{f 36144}# #{x 36142}#)))))
-   (#{gen-var 4389}#
-     (lambda (#{id 34876}#)
-       (let ((#{id 34877}#
-               (if (if (vector? #{id 34876}#)
-                     (if (= (vector-length #{id 34876}#) 4)
-                       (eq? (vector-ref #{id 34876}# 0) 'syntax-object)
+                            ((#{lp 36469}#
+                               (lambda (#{l1 36566}# #{l2 36567}#)
+                                 (if (null? #{l1 36566}#)
+                                   #{x 36444}#
+                                   (if (eq? (car #{l1 36566}#)
+                                            (car #{l2 36567}#))
+                                     (#{lp 36469}#
+                                       (cdr #{l1 36566}#)
+                                       (cdr #{l2 36567}#))
+                                     (list->vector #{new 36468}#))))))
+                            (#{lp 36469}# #{old 36467}# #{new 36468}#))))
+                      #{x 36444}#))))))
+           (#{f 36441}# #{x 36439}#)))))
+   (#{gen-var 4387}#
+     (lambda (#{id 35169}#)
+       (let ((#{id 35170}#
+               (if (if (vector? #{id 35169}#)
+                     (if (= (vector-length #{id 35169}#) 4)
+                       (eq? (vector-ref #{id 35169}# 0) 'syntax-object)
                        #f)
                      #f)
-                 (vector-ref #{id 34876}# 1)
-                 #{id 34876}#)))
+                 (vector-ref #{id 35169}# 1)
+                 #{id 35169}#)))
          (gensym
-           (string-append (symbol->string #{id 34877}#) " ")))))
-   (#{lambda-var-list 4390}#
-     (lambda (#{vars 36271}#)
+           (string-append (symbol->string #{id 35170}#) " ")))))
+   (#{lambda-var-list 4388}#
+     (lambda (#{vars 36568}#)
        (letrec*
-         ((#{lvl 36272}#
-            (lambda (#{vars 36275}# #{ls 36276}# #{w 36277}#)
-              (if (pair? #{vars 36275}#)
-                (#{lvl 36272}#
-                  (cdr #{vars 36275}#)
-                  (cons (let ((#{x 36281}# (car #{vars 36275}#)))
-                          (if (if (null? (car #{w 36277}#))
-                                (null? (cdr #{w 36277}#))
+         ((#{lvl 36569}#
+            (lambda (#{vars 36572}# #{ls 36573}# #{w 36574}#)
+              (if (pair? #{vars 36572}#)
+                (#{lvl 36569}#
+                  (cdr #{vars 36572}#)
+                  (cons (let ((#{x 36578}# (car #{vars 36572}#)))
+                          (if (if (null? (car #{w 36574}#))
+                                (null? (cdr #{w 36574}#))
                                 #f)
-                            #{x 36281}#
-                            (if (if (vector? #{x 36281}#)
-                                  (if (= (vector-length #{x 36281}#) 4)
-                                    (eq? (vector-ref #{x 36281}# 0)
+                            #{x 36578}#
+                            (if (if (vector? #{x 36578}#)
+                                  (if (= (vector-length #{x 36578}#) 4)
+                                    (eq? (vector-ref #{x 36578}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
-                              (let ((#{expression 36299}#
-                                      (vector-ref #{x 36281}# 1))
-                                    (#{wrap 36300}#
-                                      (let ((#{w2 36308}#
-                                              (vector-ref #{x 36281}# 2)))
-                                        (let ((#{m1 36309}# (car #{w 36277}#))
-                                              (#{s1 36310}# (cdr #{w 36277}#)))
-                                          (if (null? #{m1 36309}#)
-                                            (if (null? #{s1 36310}#)
-                                              #{w2 36308}#
-                                              (cons (car #{w2 36308}#)
-                                                    (let ((#{m2 36325}#
-                                                            (cdr #{w2 
36308}#)))
-                                                      (if (null? #{m2 36325}#)
-                                                        #{s1 36310}#
+                              (let ((#{expression 36596}#
+                                      (vector-ref #{x 36578}# 1))
+                                    (#{wrap 36597}#
+                                      (let ((#{w2 36605}#
+                                              (vector-ref #{x 36578}# 2)))
+                                        (let ((#{m1 36606}# (car #{w 36574}#))
+                                              (#{s1 36607}# (cdr #{w 36574}#)))
+                                          (if (null? #{m1 36606}#)
+                                            (if (null? #{s1 36607}#)
+                                              #{w2 36605}#
+                                              (cons (car #{w2 36605}#)
+                                                    (let ((#{m2 36622}#
+                                                            (cdr #{w2 
36605}#)))
+                                                      (if (null? #{m2 36622}#)
+                                                        #{s1 36607}#
                                                         (append
-                                                          #{s1 36310}#
-                                                          #{m2 36325}#)))))
-                                            (cons (let ((#{m2 36333}#
-                                                          (car #{w2 36308}#)))
-                                                    (if (null? #{m2 36333}#)
-                                                      #{m1 36309}#
+                                                          #{s1 36607}#
+                                                          #{m2 36622}#)))))
+                                            (cons (let ((#{m2 36630}#
+                                                          (car #{w2 36605}#)))
+                                                    (if (null? #{m2 36630}#)
+                                                      #{m1 36606}#
                                                       (append
-                                                        #{m1 36309}#
-                                                        #{m2 36333}#)))
-                                                  (let ((#{m2 36341}#
-                                                          (cdr #{w2 36308}#)))
-                                                    (if (null? #{m2 36341}#)
-                                                      #{s1 36310}#
+                                                        #{m1 36606}#
+                                                        #{m2 36630}#)))
+                                                  (let ((#{m2 36638}#
+                                                          (cdr #{w2 36605}#)))
+                                                    (if (null? #{m2 36638}#)
+                                                      #{s1 36607}#
                                                       (append
-                                                        #{s1 36310}#
-                                                        #{m2 36341}#))))))))
-                                    (#{module 36301}#
-                                      (vector-ref #{x 36281}# 3)))
+                                                        #{s1 36607}#
+                                                        #{m2 36638}#))))))))
+                                    (#{module 36598}#
+                                      (vector-ref #{x 36578}# 3)))
                                 (vector
                                   'syntax-object
-                                  #{expression 36299}#
-                                  #{wrap 36300}#
-                                  #{module 36301}#))
-                              (if (null? #{x 36281}#)
-                                #{x 36281}#
+                                  #{expression 36596}#
+                                  #{wrap 36597}#
+                                  #{module 36598}#))
+                              (if (null? #{x 36578}#)
+                                #{x 36578}#
                                 (vector
                                   'syntax-object
-                                  #{x 36281}#
-                                  #{w 36277}#
+                                  #{x 36578}#
+                                  #{w 36574}#
                                   #f)))))
-                        #{ls 36276}#)
-                  #{w 36277}#)
-                (if (if (symbol? #{vars 36275}#)
+                        #{ls 36573}#)
+                  #{w 36574}#)
+                (if (if (symbol? #{vars 36572}#)
                       #t
-                      (if (if (vector? #{vars 36275}#)
-                            (if (= (vector-length #{vars 36275}#) 4)
-                              (eq? (vector-ref #{vars 36275}# 0)
+                      (if (if (vector? #{vars 36572}#)
+                            (if (= (vector-length #{vars 36572}#) 4)
+                              (eq? (vector-ref #{vars 36572}# 0)
                                    'syntax-object)
                               #f)
                             #f)
-                        (symbol? (vector-ref #{vars 36275}# 1))
+                        (symbol? (vector-ref #{vars 36572}# 1))
                         #f))
-                  (cons (if (if (null? (car #{w 36277}#))
-                              (null? (cdr #{w 36277}#))
+                  (cons (if (if (null? (car #{w 36574}#))
+                              (null? (cdr #{w 36574}#))
                               #f)
-                          #{vars 36275}#
-                          (if (if (vector? #{vars 36275}#)
-                                (if (= (vector-length #{vars 36275}#) 4)
-                                  (eq? (vector-ref #{vars 36275}# 0)
+                          #{vars 36572}#
+                          (if (if (vector? #{vars 36572}#)
+                                (if (= (vector-length #{vars 36572}#) 4)
+                                  (eq? (vector-ref #{vars 36572}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (let ((#{expression 36411}#
-                                    (vector-ref #{vars 36275}# 1))
-                                  (#{wrap 36412}#
-                                    (let ((#{w2 36422}#
-                                            (vector-ref #{vars 36275}# 2)))
-                                      (let ((#{m1 36423}# (car #{w 36277}#))
-                                            (#{s1 36424}# (cdr #{w 36277}#)))
-                                        (if (null? #{m1 36423}#)
-                                          (if (null? #{s1 36424}#)
-                                            #{w2 36422}#
-                                            (cons (car #{w2 36422}#)
-                                                  (let ((#{m2 36441}#
-                                                          (cdr #{w2 36422}#)))
-                                                    (if (null? #{m2 36441}#)
-                                                      #{s1 36424}#
+                            (let ((#{expression 36708}#
+                                    (vector-ref #{vars 36572}# 1))
+                                  (#{wrap 36709}#
+                                    (let ((#{w2 36719}#
+                                            (vector-ref #{vars 36572}# 2)))
+                                      (let ((#{m1 36720}# (car #{w 36574}#))
+                                            (#{s1 36721}# (cdr #{w 36574}#)))
+                                        (if (null? #{m1 36720}#)
+                                          (if (null? #{s1 36721}#)
+                                            #{w2 36719}#
+                                            (cons (car #{w2 36719}#)
+                                                  (let ((#{m2 36738}#
+                                                          (cdr #{w2 36719}#)))
+                                                    (if (null? #{m2 36738}#)
+                                                      #{s1 36721}#
                                                       (append
-                                                        #{s1 36424}#
-                                                        #{m2 36441}#)))))
-                                          (cons (let ((#{m2 36449}#
-                                                        (car #{w2 36422}#)))
-                                                  (if (null? #{m2 36449}#)
-                                                    #{m1 36423}#
+                                                        #{s1 36721}#
+                                                        #{m2 36738}#)))))
+                                          (cons (let ((#{m2 36746}#
+                                                        (car #{w2 36719}#)))
+                                                  (if (null? #{m2 36746}#)
+                                                    #{m1 36720}#
                                                     (append
-                                                      #{m1 36423}#
-                                                      #{m2 36449}#)))
-                                                (let ((#{m2 36457}#
-                                                        (cdr #{w2 36422}#)))
-                                                  (if (null? #{m2 36457}#)
-                                                    #{s1 36424}#
+                                                      #{m1 36720}#
+                                                      #{m2 36746}#)))
+                                                (let ((#{m2 36754}#
+                                                        (cdr #{w2 36719}#)))
+                                                  (if (null? #{m2 36754}#)
+                                                    #{s1 36721}#
                                                     (append
-                                                      #{s1 36424}#
-                                                      #{m2 36457}#))))))))
-                                  (#{module 36413}#
-                                    (vector-ref #{vars 36275}# 3)))
+                                                      #{s1 36721}#
+                                                      #{m2 36754}#))))))))
+                                  (#{module 36710}#
+                                    (vector-ref #{vars 36572}# 3)))
                               (vector
                                 'syntax-object
-                                #{expression 36411}#
-                                #{wrap 36412}#
-                                #{module 36413}#))
-                            (if (null? #{vars 36275}#)
-                              #{vars 36275}#
+                                #{expression 36708}#
+                                #{wrap 36709}#
+                                #{module 36710}#))
+                            (if (null? #{vars 36572}#)
+                              #{vars 36572}#
                               (vector
                                 'syntax-object
-                                #{vars 36275}#
-                                #{w 36277}#
+                                #{vars 36572}#
+                                #{w 36574}#
                                 #f))))
-                        #{ls 36276}#)
-                  (if (null? #{vars 36275}#)
-                    #{ls 36276}#
-                    (if (if (vector? #{vars 36275}#)
-                          (if (= (vector-length #{vars 36275}#) 4)
-                            (eq? (vector-ref #{vars 36275}# 0)
+                        #{ls 36573}#)
+                  (if (null? #{vars 36572}#)
+                    #{ls 36573}#
+                    (if (if (vector? #{vars 36572}#)
+                          (if (= (vector-length #{vars 36572}#) 4)
+                            (eq? (vector-ref #{vars 36572}# 0)
                                  'syntax-object)
                             #f)
                           #f)
-                      (#{lvl 36272}#
-                        (vector-ref #{vars 36275}# 1)
-                        #{ls 36276}#
-                        (let ((#{w2 36498}# (vector-ref #{vars 36275}# 2)))
-                          (let ((#{m1 36499}# (car #{w 36277}#))
-                                (#{s1 36500}# (cdr #{w 36277}#)))
-                            (if (null? #{m1 36499}#)
-                              (if (null? #{s1 36500}#)
-                                #{w2 36498}#
-                                (cons (car #{w2 36498}#)
-                                      (let ((#{m2 36511}# (cdr #{w2 36498}#)))
-                                        (if (null? #{m2 36511}#)
-                                          #{s1 36500}#
+                      (#{lvl 36569}#
+                        (vector-ref #{vars 36572}# 1)
+                        #{ls 36573}#
+                        (let ((#{w2 36795}# (vector-ref #{vars 36572}# 2)))
+                          (let ((#{m1 36796}# (car #{w 36574}#))
+                                (#{s1 36797}# (cdr #{w 36574}#)))
+                            (if (null? #{m1 36796}#)
+                              (if (null? #{s1 36797}#)
+                                #{w2 36795}#
+                                (cons (car #{w2 36795}#)
+                                      (let ((#{m2 36808}# (cdr #{w2 36795}#)))
+                                        (if (null? #{m2 36808}#)
+                                          #{s1 36797}#
                                           (append
-                                            #{s1 36500}#
-                                            #{m2 36511}#)))))
-                              (cons (let ((#{m2 36519}# (car #{w2 36498}#)))
-                                      (if (null? #{m2 36519}#)
-                                        #{m1 36499}#
-                                        (append #{m1 36499}# #{m2 36519}#)))
-                                    (let ((#{m2 36527}# (cdr #{w2 36498}#)))
-                                      (if (null? #{m2 36527}#)
-                                        #{s1 36500}#
+                                            #{s1 36797}#
+                                            #{m2 36808}#)))))
+                              (cons (let ((#{m2 36816}# (car #{w2 36795}#)))
+                                      (if (null? #{m2 36816}#)
+                                        #{m1 36796}#
+                                        (append #{m1 36796}# #{m2 36816}#)))
+                                    (let ((#{m2 36824}# (cdr #{w2 36795}#)))
+                                      (if (null? #{m2 36824}#)
+                                        #{s1 36797}#
                                         (append
-                                          #{s1 36500}#
-                                          #{m2 36527}#))))))))
-                      (cons #{vars 36275}# #{ls 36276}#))))))))
-         (#{lvl 36272}# #{vars 36271}# '() '(()))))))
+                                          #{s1 36797}#
+                                          #{m2 36824}#))))))))
+                      (cons #{vars 36572}# #{ls 36573}#))))))))
+         (#{lvl 36569}# #{vars 36568}# '() '(()))))))
   (begin
     (module-define!
       (current-module)
@@ -8920,7 +8903,7 @@
         'let-syntax
         'local-syntax
         #f))
-    (#{global-extend 4341}#
+    (#{global-extend 4339}#
       'core
       'fluid-let-syntax
       (lambda (#{e 4515}#
@@ -8938,141 +8921,141 @@
                            #{val 4526}#
                            #{e1 4527}#
                            #{e2 4528}#)
-                    (#{valid-bound-ids? 4365}# #{var 4525}#))
+                    (#{valid-bound-ids? 4363}# #{var 4525}#))
                   #{tmp 4521}#)
                 #f)
             (@apply
-              (lambda (#{var 4611}#
-                       #{val 4612}#
-                       #{e1 4613}#
-                       #{e2 4614}#)
-                (let ((#{names 4615}#
-                        (map (lambda (#{x 4881}#)
-                               (#{id-var-name 4362}# #{x 4881}# #{w 4517}#))
-                             #{var 4611}#)))
+              (lambda (#{var 4613}#
+                       #{val 4614}#
+                       #{e1 4615}#
+                       #{e2 4616}#)
+                (let ((#{names 4617}#
+                        (map (lambda (#{x 4883}#)
+                               (#{id-var-name 4360}# #{x 4883}# #{w 4517}#))
+                             #{var 4613}#)))
                   (begin
                     (for-each
-                      (lambda (#{id 4616}# #{n 4617}#)
-                        (let ((#{atom-key 4618}#
-                                (car (let ((#{t 4818}#
-                                             (assq #{n 4617}# #{r 4516}#)))
-                                       (if #{t 4818}#
-                                         (cdr #{t 4818}#)
-                                         (if (symbol? #{n 4617}#)
-                                           (let ((#{t 4823}#
+                      (lambda (#{id 4618}# #{n 4619}#)
+                        (let ((#{atom-key 4620}#
+                                (car (let ((#{t 4820}#
+                                             (assq #{n 4619}# #{r 4516}#)))
+                                       (if #{t 4820}#
+                                         (cdr #{t 4820}#)
+                                         (if (symbol? #{n 4619}#)
+                                           (let ((#{t 4825}#
                                                    (begin
                                                      (if (if (not #{mod 4519}#)
                                                            (current-module)
                                                            #f)
                                                        (warn "module system is 
booted, we should have a module"
-                                                             #{n 4617}#))
-                                                     (let ((#{v 4860}#
+                                                             #{n 4619}#))
+                                                     (let ((#{v 4862}#
                                                              (module-variable
                                                                (if #{mod 4519}#
                                                                  
(resolve-module
                                                                    (cdr #{mod 
4519}#))
                                                                  
(current-module))
-                                                               #{n 4617}#)))
-                                                       (if #{v 4860}#
+                                                               #{n 4619}#)))
+                                                       (if #{v 4862}#
                                                          (if (variable-bound?
-                                                               #{v 4860}#)
-                                                           (let ((#{val 4869}#
+                                                               #{v 4862}#)
+                                                           (let ((#{val 4871}#
                                                                    
(variable-ref
-                                                                     #{v 
4860}#)))
+                                                                     #{v 
4862}#)))
                                                              (if (macro?
-                                                                   #{val 
4869}#)
+                                                                   #{val 
4871}#)
                                                                (if (macro-type
-                                                                     #{val 
4869}#)
+                                                                     #{val 
4871}#)
                                                                  (cons 
(macro-type
-                                                                         #{val 
4869}#)
+                                                                         #{val 
4871}#)
                                                                        
(macro-binding
-                                                                         #{val 
4869}#))
+                                                                         #{val 
4871}#))
                                                                  #f)
                                                                #f))
                                                            #f)
                                                          #f)))))
-                                             (if #{t 4823}#
-                                               #{t 4823}#
+                                             (if #{t 4825}#
+                                               #{t 4825}#
                                                '(global)))
                                            '(displaced-lexical)))))))
-                          (if (let ((#{t 4651}# #{atom-key 4618}#))
-                                (eqv? #{t 4651}# 'displaced-lexical))
+                          (if (let ((#{t 4653}# #{atom-key 4620}#))
+                                (eqv? #{t 4653}# 'displaced-lexical))
                             (syntax-violation
                               'fluid-let-syntax
                               "identifier out of context"
                               #{e 4515}#
-                              (let ((#{x 4723}#
+                              (let ((#{x 4725}#
                                       (begin
-                                        (if (if (pair? #{id 4616}#)
+                                        (if (if (pair? #{id 4618}#)
                                               #{s 4518}#
                                               #f)
                                           (set-source-properties!
-                                            #{id 4616}#
+                                            #{id 4618}#
                                             #{s 4518}#))
-                                        #{id 4616}#)))
+                                        #{id 4618}#)))
                                 (if (if (null? (car #{w 4517}#))
                                       (null? (cdr #{w 4517}#))
                                       #f)
-                                  #{x 4723}#
-                                  (if (if (vector? #{x 4723}#)
-                                        (if (= (vector-length #{x 4723}#) 4)
-                                          (eq? (vector-ref #{x 4723}# 0)
+                                  #{x 4725}#
+                                  (if (if (vector? #{x 4725}#)
+                                        (if (= (vector-length #{x 4725}#) 4)
+                                          (eq? (vector-ref #{x 4725}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (let ((#{expression 4755}#
-                                            (vector-ref #{x 4723}# 1))
-                                          (#{wrap 4756}#
-                                            (let ((#{w2 4764}#
-                                                    (vector-ref #{x 4723}# 2)))
-                                              (let ((#{m1 4765}#
+                                    (let ((#{expression 4757}#
+                                            (vector-ref #{x 4725}# 1))
+                                          (#{wrap 4758}#
+                                            (let ((#{w2 4766}#
+                                                    (vector-ref #{x 4725}# 2)))
+                                              (let ((#{m1 4767}#
                                                       (car #{w 4517}#))
-                                                    (#{s1 4766}#
+                                                    (#{s1 4768}#
                                                       (cdr #{w 4517}#)))
-                                                (if (null? #{m1 4765}#)
-                                                  (if (null? #{s1 4766}#)
-                                                    #{w2 4764}#
-                                                    (cons (car #{w2 4764}#)
-                                                          (let ((#{m2 4781}#
-                                                                  (cdr #{w2 
4764}#)))
-                                                            (if (null? #{m2 
4781}#)
-                                                              #{s1 4766}#
+                                                (if (null? #{m1 4767}#)
+                                                  (if (null? #{s1 4768}#)
+                                                    #{w2 4766}#
+                                                    (cons (car #{w2 4766}#)
+                                                          (let ((#{m2 4783}#
+                                                                  (cdr #{w2 
4766}#)))
+                                                            (if (null? #{m2 
4783}#)
+                                                              #{s1 4768}#
                                                               (append
-                                                                #{s1 4766}#
-                                                                #{m2 
4781}#)))))
-                                                  (cons (let ((#{m2 4789}#
-                                                                (car #{w2 
4764}#)))
-                                                          (if (null? #{m2 
4789}#)
-                                                            #{m1 4765}#
+                                                                #{s1 4768}#
+                                                                #{m2 
4783}#)))))
+                                                  (cons (let ((#{m2 4791}#
+                                                                (car #{w2 
4766}#)))
+                                                          (if (null? #{m2 
4791}#)
+                                                            #{m1 4767}#
                                                             (append
-                                                              #{m1 4765}#
-                                                              #{m2 4789}#)))
-                                                        (let ((#{m2 4797}#
-                                                                (cdr #{w2 
4764}#)))
-                                                          (if (null? #{m2 
4797}#)
-                                                            #{s1 4766}#
+                                                              #{m1 4767}#
+                                                              #{m2 4791}#)))
+                                                        (let ((#{m2 4799}#
+                                                                (cdr #{w2 
4766}#)))
+                                                          (if (null? #{m2 
4799}#)
+                                                            #{s1 4768}#
                                                             (append
-                                                              #{s1 4766}#
-                                                              #{m2 
4797}#))))))))
-                                          (#{module 4757}#
-                                            (vector-ref #{x 4723}# 3)))
+                                                              #{s1 4768}#
+                                                              #{m2 
4799}#))))))))
+                                          (#{module 4759}#
+                                            (vector-ref #{x 4725}# 3)))
                                       (vector
                                         'syntax-object
-                                        #{expression 4755}#
-                                        #{wrap 4756}#
-                                        #{module 4757}#))
-                                    (if (null? #{x 4723}#)
-                                      #{x 4723}#
+                                        #{expression 4757}#
+                                        #{wrap 4758}#
+                                        #{module 4759}#))
+                                    (if (null? #{x 4725}#)
+                                      #{x 4725}#
                                       (vector
                                         'syntax-object
-                                        #{x 4723}#
+                                        #{x 4725}#
                                         #{w 4517}#
                                         #{mod 4519}#)))))))))
-                      #{var 4611}#
-                      #{names 4615}#)
-                    (#{chi-body 4379}#
-                      (cons #{e1 4613}# #{e2 4614}#)
-                      (let ((#{x 4894}#
+                      #{var 4613}#
+                      #{names 4617}#)
+                    (#{chi-body 4377}#
+                      (cons #{e1 4615}# #{e2 4616}#)
+                      (let ((#{x 4896}#
                               (begin
                                 (if (if (pair? #{e 4515}#) #{s 4518}# #f)
                                   (set-source-properties!
@@ -9082,72 +9065,72 @@
                         (if (if (null? (car #{w 4517}#))
                               (null? (cdr #{w 4517}#))
                               #f)
-                          #{x 4894}#
-                          (if (if (vector? #{x 4894}#)
-                                (if (= (vector-length #{x 4894}#) 4)
-                                  (eq? (vector-ref #{x 4894}# 0)
+                          #{x 4896}#
+                          (if (if (vector? #{x 4896}#)
+                                (if (= (vector-length #{x 4896}#) 4)
+                                  (eq? (vector-ref #{x 4896}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (let ((#{expression 4926}#
-                                    (vector-ref #{x 4894}# 1))
-                                  (#{wrap 4927}#
-                                    (let ((#{w2 4935}#
-                                            (vector-ref #{x 4894}# 2)))
-                                      (let ((#{m1 4936}# (car #{w 4517}#))
-                                            (#{s1 4937}# (cdr #{w 4517}#)))
-                                        (if (null? #{m1 4936}#)
-                                          (if (null? #{s1 4937}#)
-                                            #{w2 4935}#
-                                            (cons (car #{w2 4935}#)
-                                                  (let ((#{m2 4952}#
-                                                          (cdr #{w2 4935}#)))
-                                                    (if (null? #{m2 4952}#)
-                                                      #{s1 4937}#
+                            (let ((#{expression 4928}#
+                                    (vector-ref #{x 4896}# 1))
+                                  (#{wrap 4929}#
+                                    (let ((#{w2 4937}#
+                                            (vector-ref #{x 4896}# 2)))
+                                      (let ((#{m1 4938}# (car #{w 4517}#))
+                                            (#{s1 4939}# (cdr #{w 4517}#)))
+                                        (if (null? #{m1 4938}#)
+                                          (if (null? #{s1 4939}#)
+                                            #{w2 4937}#
+                                            (cons (car #{w2 4937}#)
+                                                  (let ((#{m2 4954}#
+                                                          (cdr #{w2 4937}#)))
+                                                    (if (null? #{m2 4954}#)
+                                                      #{s1 4939}#
                                                       (append
-                                                        #{s1 4937}#
-                                                        #{m2 4952}#)))))
-                                          (cons (let ((#{m2 4960}#
-                                                        (car #{w2 4935}#)))
-                                                  (if (null? #{m2 4960}#)
-                                                    #{m1 4936}#
+                                                        #{s1 4939}#
+                                                        #{m2 4954}#)))))
+                                          (cons (let ((#{m2 4962}#
+                                                        (car #{w2 4937}#)))
+                                                  (if (null? #{m2 4962}#)
+                                                    #{m1 4938}#
                                                     (append
-                                                      #{m1 4936}#
-                                                      #{m2 4960}#)))
-                                                (let ((#{m2 4968}#
-                                                        (cdr #{w2 4935}#)))
-                                                  (if (null? #{m2 4968}#)
-                                                    #{s1 4937}#
+                                                      #{m1 4938}#
+                                                      #{m2 4962}#)))
+                                                (let ((#{m2 4970}#
+                                                        (cdr #{w2 4937}#)))
+                                                  (if (null? #{m2 4970}#)
+                                                    #{s1 4939}#
                                                     (append
-                                                      #{s1 4937}#
-                                                      #{m2 4968}#))))))))
-                                  (#{module 4928}# (vector-ref #{x 4894}# 3)))
+                                                      #{s1 4939}#
+                                                      #{m2 4970}#))))))))
+                                  (#{module 4930}# (vector-ref #{x 4896}# 3)))
                               (vector
                                 'syntax-object
-                                #{expression 4926}#
-                                #{wrap 4927}#
-                                #{module 4928}#))
-                            (if (null? #{x 4894}#)
-                              #{x 4894}#
+                                #{expression 4928}#
+                                #{wrap 4929}#
+                                #{module 4930}#))
+                            (if (null? #{x 4896}#)
+                              #{x 4896}#
                               (vector
                                 'syntax-object
-                                #{x 4894}#
+                                #{x 4896}#
                                 #{w 4517}#
                                 #{mod 4519}#)))))
-                      (#{extend-env 4337}#
-                        #{names 4615}#
-                        (let ((#{trans-r 5046}#
-                                (#{macros-only-env 4339}# #{r 4516}#)))
-                          (map (lambda (#{x 5047}#)
+                      (#{extend-env 4335}#
+                        #{names 4617}#
+                        (let ((#{trans-r 5048}#
+                                (#{macros-only-env 4337}# #{r 4516}#)))
+                          (map (lambda (#{x 5049}#)
                                  (cons 'macro
-                                       (#{eval-local-transformer 4381}#
-                                         (#{chi 4375}#
-                                           #{x 5047}#
-                                           #{trans-r 5046}#
+                                       (#{eval-local-transformer 4379}#
+                                         (#{chi 4373}#
+                                           #{x 5049}#
+                                           #{trans-r 5048}#
                                            #{w 4517}#
                                            #{mod 4519}#)
                                          #{mod 4519}#)))
-                               #{val 4612}#))
+                               #{val 4614}#))
                         #{r 4516}#)
                       #{w 4517}#
                       #{mod 4519}#))))
@@ -9155,7 +9138,7 @@
             (syntax-violation
               'fluid-let-syntax
               "bad syntax"
-              (let ((#{x 5261}#
+              (let ((#{x 5265}#
                       (begin
                         (if (if (pair? #{e 4515}#) #{s 4518}# #f)
                           (set-source-properties! #{e 4515}# #{s 4518}#))
@@ -9163,49 +9146,49 @@
                 (if (if (null? (car #{w 4517}#))
                       (null? (cdr #{w 4517}#))
                       #f)
-                  #{x 5261}#
-                  (if (if (vector? #{x 5261}#)
-                        (if (= (vector-length #{x 5261}#) 4)
-                          (eq? (vector-ref #{x 5261}# 0) 'syntax-object)
+                  #{x 5265}#
+                  (if (if (vector? #{x 5265}#)
+                        (if (= (vector-length #{x 5265}#) 4)
+                          (eq? (vector-ref #{x 5265}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (let ((#{expression 5293}# (vector-ref #{x 5261}# 1))
-                          (#{wrap 5294}#
-                            (let ((#{w2 5302}# (vector-ref #{x 5261}# 2)))
-                              (let ((#{m1 5303}# (car #{w 4517}#))
-                                    (#{s1 5304}# (cdr #{w 4517}#)))
-                                (if (null? #{m1 5303}#)
-                                  (if (null? #{s1 5304}#)
-                                    #{w2 5302}#
-                                    (cons (car #{w2 5302}#)
-                                          (let ((#{m2 5319}#
-                                                  (cdr #{w2 5302}#)))
-                                            (if (null? #{m2 5319}#)
-                                              #{s1 5304}#
+                    (let ((#{expression 5297}# (vector-ref #{x 5265}# 1))
+                          (#{wrap 5298}#
+                            (let ((#{w2 5306}# (vector-ref #{x 5265}# 2)))
+                              (let ((#{m1 5307}# (car #{w 4517}#))
+                                    (#{s1 5308}# (cdr #{w 4517}#)))
+                                (if (null? #{m1 5307}#)
+                                  (if (null? #{s1 5308}#)
+                                    #{w2 5306}#
+                                    (cons (car #{w2 5306}#)
+                                          (let ((#{m2 5323}#
+                                                  (cdr #{w2 5306}#)))
+                                            (if (null? #{m2 5323}#)
+                                              #{s1 5308}#
                                               (append
-                                                #{s1 5304}#
-                                                #{m2 5319}#)))))
-                                  (cons (let ((#{m2 5327}# (car #{w2 5302}#)))
-                                          (if (null? #{m2 5327}#)
-                                            #{m1 5303}#
-                                            (append #{m1 5303}# #{m2 5327}#)))
-                                        (let ((#{m2 5335}# (cdr #{w2 5302}#)))
-                                          (if (null? #{m2 5335}#)
-                                            #{s1 5304}#
+                                                #{s1 5308}#
+                                                #{m2 5323}#)))))
+                                  (cons (let ((#{m2 5331}# (car #{w2 5306}#)))
+                                          (if (null? #{m2 5331}#)
+                                            #{m1 5307}#
+                                            (append #{m1 5307}# #{m2 5331}#)))
+                                        (let ((#{m2 5339}# (cdr #{w2 5306}#)))
+                                          (if (null? #{m2 5339}#)
+                                            #{s1 5308}#
                                             (append
-                                              #{s1 5304}#
-                                              #{m2 5335}#))))))))
-                          (#{module 5295}# (vector-ref #{x 5261}# 3)))
+                                              #{s1 5308}#
+                                              #{m2 5339}#))))))))
+                          (#{module 5299}# (vector-ref #{x 5265}# 3)))
                       (vector
                         'syntax-object
-                        #{expression 5293}#
-                        #{wrap 5294}#
-                        #{module 5295}#))
-                    (if (null? #{x 5261}#)
-                      #{x 5261}#
+                        #{expression 5297}#
+                        #{wrap 5298}#
+                        #{module 5299}#))
+                    (if (null? #{x 5265}#)
+                      #{x 5265}#
                       (vector
                         'syntax-object
-                        #{x 5261}#
+                        #{x 5265}#
                         #{w 4517}#
                         #{mod 4519}#))))))))))
     (module-define!
@@ -9214,1807 +9197,1807 @@
       (make-syntax-transformer
         'quote
         'core
-        (lambda (#{e 5363}#
-                 #{r 5364}#
-                 #{w 5365}#
-                 #{s 5366}#
-                 #{mod 5367}#)
-          (let ((#{tmp 5369}# ($sc-dispatch #{e 5363}# '(_ any))))
-            (if #{tmp 5369}#
+        (lambda (#{e 5367}#
+                 #{r 5368}#
+                 #{w 5369}#
+                 #{s 5370}#
+                 #{mod 5371}#)
+          (let ((#{tmp 5373}# ($sc-dispatch #{e 5367}# '(_ any))))
+            (if #{tmp 5373}#
               (@apply
-                (lambda (#{e 5372}#)
-                  (let ((#{exp 5376}#
-                          (#{strip 4388}# #{e 5372}# #{w 5365}#)))
+                (lambda (#{e 5376}#)
+                  (let ((#{exp 5380}#
+                          (#{strip 4386}# #{e 5376}# #{w 5369}#)))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 1)
-                      #{s 5366}#
-                      #{exp 5376}#)))
-                #{tmp 5369}#)
+                      #{s 5370}#
+                      #{exp 5380}#)))
+                #{tmp 5373}#)
               (syntax-violation
                 'quote
                 "bad syntax"
-                (let ((#{x 5390}#
+                (let ((#{x 5394}#
                         (begin
-                          (if (if (pair? #{e 5363}#) #{s 5366}# #f)
-                            (set-source-properties! #{e 5363}# #{s 5366}#))
-                          #{e 5363}#)))
-                  (if (if (null? (car #{w 5365}#))
-                        (null? (cdr #{w 5365}#))
+                          (if (if (pair? #{e 5367}#) #{s 5370}# #f)
+                            (set-source-properties! #{e 5367}# #{s 5370}#))
+                          #{e 5367}#)))
+                  (if (if (null? (car #{w 5369}#))
+                        (null? (cdr #{w 5369}#))
                         #f)
-                    #{x 5390}#
-                    (if (if (vector? #{x 5390}#)
-                          (if (= (vector-length #{x 5390}#) 4)
-                            (eq? (vector-ref #{x 5390}# 0) 'syntax-object)
+                    #{x 5394}#
+                    (if (if (vector? #{x 5394}#)
+                          (if (= (vector-length #{x 5394}#) 4)
+                            (eq? (vector-ref #{x 5394}# 0) 'syntax-object)
                             #f)
                           #f)
-                      (let ((#{expression 5422}# (vector-ref #{x 5390}# 1))
-                            (#{wrap 5423}#
-                              (let ((#{w2 5431}# (vector-ref #{x 5390}# 2)))
-                                (let ((#{m1 5432}# (car #{w 5365}#))
-                                      (#{s1 5433}# (cdr #{w 5365}#)))
-                                  (if (null? #{m1 5432}#)
-                                    (if (null? #{s1 5433}#)
-                                      #{w2 5431}#
-                                      (cons (car #{w2 5431}#)
-                                            (let ((#{m2 5448}#
-                                                    (cdr #{w2 5431}#)))
-                                              (if (null? #{m2 5448}#)
-                                                #{s1 5433}#
+                      (let ((#{expression 5426}# (vector-ref #{x 5394}# 1))
+                            (#{wrap 5427}#
+                              (let ((#{w2 5435}# (vector-ref #{x 5394}# 2)))
+                                (let ((#{m1 5436}# (car #{w 5369}#))
+                                      (#{s1 5437}# (cdr #{w 5369}#)))
+                                  (if (null? #{m1 5436}#)
+                                    (if (null? #{s1 5437}#)
+                                      #{w2 5435}#
+                                      (cons (car #{w2 5435}#)
+                                            (let ((#{m2 5452}#
+                                                    (cdr #{w2 5435}#)))
+                                              (if (null? #{m2 5452}#)
+                                                #{s1 5437}#
                                                 (append
-                                                  #{s1 5433}#
-                                                  #{m2 5448}#)))))
-                                    (cons (let ((#{m2 5456}#
-                                                  (car #{w2 5431}#)))
-                                            (if (null? #{m2 5456}#)
-                                              #{m1 5432}#
+                                                  #{s1 5437}#
+                                                  #{m2 5452}#)))))
+                                    (cons (let ((#{m2 5460}#
+                                                  (car #{w2 5435}#)))
+                                            (if (null? #{m2 5460}#)
+                                              #{m1 5436}#
                                               (append
-                                                #{m1 5432}#
-                                                #{m2 5456}#)))
-                                          (let ((#{m2 5464}#
-                                                  (cdr #{w2 5431}#)))
-                                            (if (null? #{m2 5464}#)
-                                              #{s1 5433}#
+                                                #{m1 5436}#
+                                                #{m2 5460}#)))
+                                          (let ((#{m2 5468}#
+                                                  (cdr #{w2 5435}#)))
+                                            (if (null? #{m2 5468}#)
+                                              #{s1 5437}#
                                               (append
-                                                #{s1 5433}#
-                                                #{m2 5464}#))))))))
-                            (#{module 5424}# (vector-ref #{x 5390}# 3)))
+                                                #{s1 5437}#
+                                                #{m2 5468}#))))))))
+                            (#{module 5428}# (vector-ref #{x 5394}# 3)))
                         (vector
                           'syntax-object
-                          #{expression 5422}#
-                          #{wrap 5423}#
-                          #{module 5424}#))
-                      (if (null? #{x 5390}#)
-                        #{x 5390}#
+                          #{expression 5426}#
+                          #{wrap 5427}#
+                          #{module 5428}#))
+                      (if (null? #{x 5394}#)
+                        #{x 5394}#
                         (vector
                           'syntax-object
-                          #{x 5390}#
-                          #{w 5365}#
-                          #{mod 5367}#)))))))))))
-    (#{global-extend 4341}#
+                          #{x 5394}#
+                          #{w 5369}#
+                          #{mod 5371}#)))))))))))
+    (#{global-extend 4339}#
       'core
       'syntax
       (letrec*
-        ((#{gen-syntax 5704}#
-           (lambda (#{src 6157}#
-                    #{e 6158}#
-                    #{r 6159}#
-                    #{maps 6160}#
-                    #{ellipsis? 6161}#
-                    #{mod 6162}#)
-             (if (if (symbol? #{e 6158}#)
+        ((#{gen-syntax 5708}#
+           (lambda (#{src 6171}#
+                    #{e 6172}#
+                    #{r 6173}#
+                    #{maps 6174}#
+                    #{ellipsis? 6175}#
+                    #{mod 6176}#)
+             (if (if (symbol? #{e 6172}#)
                    #t
-                   (if (if (vector? #{e 6158}#)
-                         (if (= (vector-length #{e 6158}#) 4)
-                           (eq? (vector-ref #{e 6158}# 0) 'syntax-object)
+                   (if (if (vector? #{e 6172}#)
+                         (if (= (vector-length #{e 6172}#) 4)
+                           (eq? (vector-ref #{e 6172}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{e 6158}# 1))
+                     (symbol? (vector-ref #{e 6172}# 1))
                      #f))
-               (let ((#{label 6189}#
-                       (#{id-var-name 4362}# #{e 6158}# '(()))))
-                 (let ((#{b 6190}#
-                         (let ((#{t 6327}# (assq #{label 6189}# #{r 6159}#)))
-                           (if #{t 6327}#
-                             (cdr #{t 6327}#)
-                             (if (symbol? #{label 6189}#)
-                               (let ((#{t 6332}#
+               (let ((#{label 6203}#
+                       (#{id-var-name 4360}# #{e 6172}# '(()))))
+                 (let ((#{b 6204}#
+                         (let ((#{t 6341}# (assq #{label 6203}# #{r 6173}#)))
+                           (if #{t 6341}#
+                             (cdr #{t 6341}#)
+                             (if (symbol? #{label 6203}#)
+                               (let ((#{t 6346}#
                                        (begin
-                                         (if (if (not #{mod 6162}#)
+                                         (if (if (not #{mod 6176}#)
                                                (current-module)
                                                #f)
                                            (warn "module system is booted, we 
should have a module"
-                                                 #{label 6189}#))
-                                         (let ((#{v 6369}#
+                                                 #{label 6203}#))
+                                         (let ((#{v 6383}#
                                                  (module-variable
-                                                   (if #{mod 6162}#
+                                                   (if #{mod 6176}#
                                                      (resolve-module
-                                                       (cdr #{mod 6162}#))
+                                                       (cdr #{mod 6176}#))
                                                      (current-module))
-                                                   #{label 6189}#)))
-                                           (if #{v 6369}#
-                                             (if (variable-bound? #{v 6369}#)
-                                               (let ((#{val 6378}#
+                                                   #{label 6203}#)))
+                                           (if #{v 6383}#
+                                             (if (variable-bound? #{v 6383}#)
+                                               (let ((#{val 6392}#
                                                        (variable-ref
-                                                         #{v 6369}#)))
-                                                 (if (macro? #{val 6378}#)
+                                                         #{v 6383}#)))
+                                                 (if (macro? #{val 6392}#)
                                                    (if (macro-type
-                                                         #{val 6378}#)
+                                                         #{val 6392}#)
                                                      (cons (macro-type
-                                                             #{val 6378}#)
+                                                             #{val 6392}#)
                                                            (macro-binding
-                                                             #{val 6378}#))
+                                                             #{val 6392}#))
                                                      #f)
                                                    #f))
                                                #f)
                                              #f)))))
-                                 (if #{t 6332}# #{t 6332}# '(global)))
+                                 (if #{t 6346}# #{t 6346}# '(global)))
                                '(displaced-lexical))))))
-                   (if (eq? (car #{b 6190}#) 'syntax)
+                   (if (eq? (car #{b 6204}#) 'syntax)
                      (call-with-values
                        (lambda ()
-                         (let ((#{var.lev 6223}# (cdr #{b 6190}#)))
-                           (#{gen-ref 5705}#
-                             #{src 6157}#
-                             (car #{var.lev 6223}#)
-                             (cdr #{var.lev 6223}#)
-                             #{maps 6160}#)))
-                       (lambda (#{var 6319}# #{maps 6320}#)
-                         (values (list 'ref #{var 6319}#) #{maps 6320}#)))
-                     (if (#{ellipsis? 6161}# #{e 6158}#)
+                         (let ((#{var.lev 6237}# (cdr #{b 6204}#)))
+                           (#{gen-ref 5709}#
+                             #{src 6171}#
+                             (car #{var.lev 6237}#)
+                             (cdr #{var.lev 6237}#)
+                             #{maps 6174}#)))
+                       (lambda (#{var 6333}# #{maps 6334}#)
+                         (values (list 'ref #{var 6333}#) #{maps 6334}#)))
+                     (if (#{ellipsis? 6175}# #{e 6172}#)
                        (syntax-violation
                          'syntax
                          "misplaced ellipsis"
-                         #{src 6157}#)
-                       (values (list 'quote #{e 6158}#) #{maps 6160}#)))))
-               (let ((#{tmp 6390}#
-                       ($sc-dispatch #{e 6158}# '(any any))))
-                 (if (if #{tmp 6390}#
+                         #{src 6171}#)
+                       (values (list 'quote #{e 6172}#) #{maps 6174}#)))))
+               (let ((#{tmp 6404}#
+                       ($sc-dispatch #{e 6172}# '(any any))))
+                 (if (if #{tmp 6404}#
                        (@apply
-                         (lambda (#{dots 6394}# #{e 6395}#)
-                           (#{ellipsis? 6161}# #{dots 6394}#))
-                         #{tmp 6390}#)
+                         (lambda (#{dots 6408}# #{e 6409}#)
+                           (#{ellipsis? 6175}# #{dots 6408}#))
+                         #{tmp 6404}#)
                        #f)
                    (@apply
-                     (lambda (#{dots 6396}# #{e 6397}#)
-                       (#{gen-syntax 5704}#
-                         #{src 6157}#
-                         #{e 6397}#
-                         #{r 6159}#
-                         #{maps 6160}#
-                         (lambda (#{x 6398}#) #f)
-                         #{mod 6162}#))
-                     #{tmp 6390}#)
-                   (let ((#{tmp 6399}#
-                           ($sc-dispatch #{e 6158}# '(any any . any))))
-                     (if (if #{tmp 6399}#
+                     (lambda (#{dots 6410}# #{e 6411}#)
+                       (#{gen-syntax 5708}#
+                         #{src 6171}#
+                         #{e 6411}#
+                         #{r 6173}#
+                         #{maps 6174}#
+                         (lambda (#{x 6412}#) #f)
+                         #{mod 6176}#))
+                     #{tmp 6404}#)
+                   (let ((#{tmp 6413}#
+                           ($sc-dispatch #{e 6172}# '(any any . any))))
+                     (if (if #{tmp 6413}#
                            (@apply
-                             (lambda (#{x 6403}# #{dots 6404}# #{y 6405}#)
-                               (#{ellipsis? 6161}# #{dots 6404}#))
-                             #{tmp 6399}#)
+                             (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
+                               (#{ellipsis? 6175}# #{dots 6418}#))
+                             #{tmp 6413}#)
                            #f)
                        (@apply
-                         (lambda (#{x 6406}# #{dots 6407}# #{y 6408}#)
+                         (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
                            (letrec*
-                             ((#{f 6409}#
-                                (lambda (#{y 6417}# #{k 6418}#)
-                                  (let ((#{tmp 6420}#
+                             ((#{f 6423}#
+                                (lambda (#{y 6431}# #{k 6432}#)
+                                  (let ((#{tmp 6434}#
                                           ($sc-dispatch
-                                            #{y 6417}#
+                                            #{y 6431}#
                                             '(any . any))))
-                                    (if (if #{tmp 6420}#
+                                    (if (if #{tmp 6434}#
                                           (@apply
-                                            (lambda (#{dots 6424}# #{y 6425}#)
-                                              (#{ellipsis? 6161}#
-                                                #{dots 6424}#))
-                                            #{tmp 6420}#)
+                                            (lambda (#{dots 6438}# #{y 6439}#)
+                                              (#{ellipsis? 6175}#
+                                                #{dots 6438}#))
+                                            #{tmp 6434}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{dots 6426}# #{y 6427}#)
-                                          (#{f 6409}#
-                                            #{y 6427}#
-                                            (lambda (#{maps 6428}#)
+                                        (lambda (#{dots 6440}# #{y 6441}#)
+                                          (#{f 6423}#
+                                            #{y 6441}#
+                                            (lambda (#{maps 6442}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{k 6418}#
-                                                    (cons '() #{maps 6428}#)))
-                                                (lambda (#{x 6429}#
-                                                         #{maps 6430}#)
-                                                  (if (null? (car #{maps 
6430}#))
+                                                  (#{k 6432}#
+                                                    (cons '() #{maps 6442}#)))
+                                                (lambda (#{x 6443}#
+                                                         #{maps 6444}#)
+                                                  (if (null? (car #{maps 
6444}#))
                                                     (syntax-violation
                                                       'syntax
                                                       "extra ellipsis"
-                                                      #{src 6157}#)
+                                                      #{src 6171}#)
                                                     (values
-                                                      (let ((#{map-env 6434}#
-                                                              (car #{maps 
6430}#)))
+                                                      (let ((#{map-env 6448}#
+                                                              (car #{maps 
6444}#)))
                                                         (list 'apply
                                                               '(primitive
                                                                  append)
-                                                              (#{gen-map 5707}#
-                                                                #{x 6429}#
-                                                                #{map-env 
6434}#)))
-                                                      (cdr #{maps 
6430}#))))))))
-                                        #{tmp 6420}#)
+                                                              (#{gen-map 5711}#
+                                                                #{x 6443}#
+                                                                #{map-env 
6448}#)))
+                                                      (cdr #{maps 
6444}#))))))))
+                                        #{tmp 6434}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{gen-syntax 5704}#
-                                            #{src 6157}#
-                                            #{y 6417}#
-                                            #{r 6159}#
-                                            #{maps 6160}#
-                                            #{ellipsis? 6161}#
-                                            #{mod 6162}#))
-                                        (lambda (#{y 6437}# #{maps 6438}#)
+                                          (#{gen-syntax 5708}#
+                                            #{src 6171}#
+                                            #{y 6431}#
+                                            #{r 6173}#
+                                            #{maps 6174}#
+                                            #{ellipsis? 6175}#
+                                            #{mod 6176}#))
+                                        (lambda (#{y 6451}# #{maps 6452}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{k 6418}# #{maps 6438}#))
-                                            (lambda (#{x 6439}# #{maps 6440}#)
+                                              (#{k 6432}# #{maps 6452}#))
+                                            (lambda (#{x 6453}# #{maps 6454}#)
                                               (values
-                                                (if (equal? #{y 6437}# ''())
-                                                  #{x 6439}#
+                                                (if (equal? #{y 6451}# ''())
+                                                  #{x 6453}#
                                                   (list 'append
-                                                        #{x 6439}#
-                                                        #{y 6437}#))
-                                                #{maps 6440}#))))))))))
-                             (#{f 6409}#
-                               #{y 6408}#
-                               (lambda (#{maps 6412}#)
+                                                        #{x 6453}#
+                                                        #{y 6451}#))
+                                                #{maps 6454}#))))))))))
+                             (#{f 6423}#
+                               #{y 6422}#
+                               (lambda (#{maps 6426}#)
                                  (call-with-values
                                    (lambda ()
-                                     (#{gen-syntax 5704}#
-                                       #{src 6157}#
-                                       #{x 6406}#
-                                       #{r 6159}#
-                                       (cons '() #{maps 6412}#)
-                                       #{ellipsis? 6161}#
-                                       #{mod 6162}#))
-                                   (lambda (#{x 6413}# #{maps 6414}#)
-                                     (if (null? (car #{maps 6414}#))
+                                     (#{gen-syntax 5708}#
+                                       #{src 6171}#
+                                       #{x 6420}#
+                                       #{r 6173}#
+                                       (cons '() #{maps 6426}#)
+                                       #{ellipsis? 6175}#
+                                       #{mod 6176}#))
+                                   (lambda (#{x 6427}# #{maps 6428}#)
+                                     (if (null? (car #{maps 6428}#))
                                        (syntax-violation
                                          'syntax
                                          "extra ellipsis"
-                                         #{src 6157}#)
+                                         #{src 6171}#)
                                        (values
-                                         (#{gen-map 5707}#
-                                           #{x 6413}#
-                                           (car #{maps 6414}#))
-                                         (cdr #{maps 6414}#)))))))))
-                         #{tmp 6399}#)
-                       (let ((#{tmp 6456}#
-                               ($sc-dispatch #{e 6158}# '(any . any))))
-                         (if #{tmp 6456}#
+                                         (#{gen-map 5711}#
+                                           #{x 6427}#
+                                           (car #{maps 6428}#))
+                                         (cdr #{maps 6428}#)))))))))
+                         #{tmp 6413}#)
+                       (let ((#{tmp 6470}#
+                               ($sc-dispatch #{e 6172}# '(any . any))))
+                         (if #{tmp 6470}#
                            (@apply
-                             (lambda (#{x 6460}# #{y 6461}#)
+                             (lambda (#{x 6474}# #{y 6475}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax 5704}#
-                                     #{src 6157}#
-                                     #{x 6460}#
-                                     #{r 6159}#
-                                     #{maps 6160}#
-                                     #{ellipsis? 6161}#
-                                     #{mod 6162}#))
-                                 (lambda (#{x 6462}# #{maps 6463}#)
+                                   (#{gen-syntax 5708}#
+                                     #{src 6171}#
+                                     #{x 6474}#
+                                     #{r 6173}#
+                                     #{maps 6174}#
+                                     #{ellipsis? 6175}#
+                                     #{mod 6176}#))
+                                 (lambda (#{x 6476}# #{maps 6477}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 5704}#
-                                         #{src 6157}#
-                                         #{y 6461}#
-                                         #{r 6159}#
-                                         #{maps 6463}#
-                                         #{ellipsis? 6161}#
-                                         #{mod 6162}#))
-                                     (lambda (#{y 6464}# #{maps 6465}#)
+                                       (#{gen-syntax 5708}#
+                                         #{src 6171}#
+                                         #{y 6475}#
+                                         #{r 6173}#
+                                         #{maps 6477}#
+                                         #{ellipsis? 6175}#
+                                         #{mod 6176}#))
+                                     (lambda (#{y 6478}# #{maps 6479}#)
                                        (values
-                                         (let ((#{atom-key 6470}#
-                                                 (car #{y 6464}#)))
-                                           (if (eqv? #{atom-key 6470}# 'quote)
-                                             (if (eq? (car #{x 6462}#) 'quote)
+                                         (let ((#{atom-key 6484}#
+                                                 (car #{y 6478}#)))
+                                           (if (eqv? #{atom-key 6484}# 'quote)
+                                             (if (eq? (car #{x 6476}#) 'quote)
                                                (list 'quote
-                                                     (cons (car (cdr #{x 
6462}#))
-                                                           (car (cdr #{y 
6464}#))))
-                                               (if (eq? (car (cdr #{y 6464}#))
+                                                     (cons (car (cdr #{x 
6476}#))
+                                                           (car (cdr #{y 
6478}#))))
+                                               (if (eq? (car (cdr #{y 6478}#))
                                                         '())
-                                                 (list 'list #{x 6462}#)
+                                                 (list 'list #{x 6476}#)
                                                  (list 'cons
-                                                       #{x 6462}#
-                                                       #{y 6464}#)))
-                                             (if (eqv? #{atom-key 6470}# 'list)
+                                                       #{x 6476}#
+                                                       #{y 6478}#)))
+                                             (if (eqv? #{atom-key 6484}# 'list)
                                                (cons 'list
-                                                     (cons #{x 6462}#
-                                                           (cdr #{y 6464}#)))
+                                                     (cons #{x 6476}#
+                                                           (cdr #{y 6478}#)))
                                                (list 'cons
-                                                     #{x 6462}#
-                                                     #{y 6464}#))))
-                                         #{maps 6465}#))))))
-                             #{tmp 6456}#)
-                           (let ((#{tmp 6499}#
+                                                     #{x 6476}#
+                                                     #{y 6478}#))))
+                                         #{maps 6479}#))))))
+                             #{tmp 6470}#)
+                           (let ((#{tmp 6513}#
                                    ($sc-dispatch
-                                     #{e 6158}#
+                                     #{e 6172}#
                                      '#(vector (any . each-any)))))
-                             (if #{tmp 6499}#
+                             (if #{tmp 6513}#
                                (@apply
-                                 (lambda (#{e1 6503}# #{e2 6504}#)
+                                 (lambda (#{e1 6517}# #{e2 6518}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 5704}#
-                                         #{src 6157}#
-                                         (cons #{e1 6503}# #{e2 6504}#)
-                                         #{r 6159}#
-                                         #{maps 6160}#
-                                         #{ellipsis? 6161}#
-                                         #{mod 6162}#))
-                                     (lambda (#{e 6505}# #{maps 6506}#)
+                                       (#{gen-syntax 5708}#
+                                         #{src 6171}#
+                                         (cons #{e1 6517}# #{e2 6518}#)
+                                         #{r 6173}#
+                                         #{maps 6174}#
+                                         #{ellipsis? 6175}#
+                                         #{mod 6176}#))
+                                     (lambda (#{e 6519}# #{maps 6520}#)
                                        (values
-                                         (if (eq? (car #{e 6505}#) 'list)
-                                           (cons 'vector (cdr #{e 6505}#))
-                                           (if (eq? (car #{e 6505}#) 'quote)
+                                         (if (eq? (car #{e 6519}#) 'list)
+                                           (cons 'vector (cdr #{e 6519}#))
+                                           (if (eq? (car #{e 6519}#) 'quote)
                                              (list 'quote
                                                    (list->vector
-                                                     (car (cdr #{e 6505}#))))
-                                             (list 'list->vector #{e 6505}#)))
-                                         #{maps 6506}#))))
-                                 #{tmp 6499}#)
+                                                     (car (cdr #{e 6519}#))))
+                                             (list 'list->vector #{e 6519}#)))
+                                         #{maps 6520}#))))
+                                 #{tmp 6513}#)
                                (values
-                                 (list 'quote #{e 6158}#)
-                                 #{maps 6160}#))))))))))))
-         (#{gen-ref 5705}#
-           (lambda (#{src 6533}#
-                    #{var 6534}#
-                    #{level 6535}#
-                    #{maps 6536}#)
-             (if (= #{level 6535}# 0)
-               (values #{var 6534}# #{maps 6536}#)
-               (if (null? #{maps 6536}#)
+                                 (list 'quote #{e 6172}#)
+                                 #{maps 6174}#))))))))))))
+         (#{gen-ref 5709}#
+           (lambda (#{src 6547}#
+                    #{var 6548}#
+                    #{level 6549}#
+                    #{maps 6550}#)
+             (if (= #{level 6549}# 0)
+               (values #{var 6548}# #{maps 6550}#)
+               (if (null? #{maps 6550}#)
                  (syntax-violation
                    'syntax
                    "missing ellipsis"
-                   #{src 6533}#)
+                   #{src 6547}#)
                  (call-with-values
                    (lambda ()
-                     (#{gen-ref 5705}#
-                       #{src 6533}#
-                       #{var 6534}#
-                       (#{1-}# #{level 6535}#)
-                       (cdr #{maps 6536}#)))
-                   (lambda (#{outer-var 6537}# #{outer-maps 6538}#)
-                     (let ((#{b 6539}#
-                             (assq #{outer-var 6537}# (car #{maps 6536}#))))
-                       (if #{b 6539}#
-                         (values (cdr #{b 6539}#) #{maps 6536}#)
-                         (let ((#{inner-var 6541}#
+                     (#{gen-ref 5709}#
+                       #{src 6547}#
+                       #{var 6548}#
+                       (#{1-}# #{level 6549}#)
+                       (cdr #{maps 6550}#)))
+                   (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
+                     (let ((#{b 6553}#
+                             (assq #{outer-var 6551}# (car #{maps 6550}#))))
+                       (if #{b 6553}#
+                         (values (cdr #{b 6553}#) #{maps 6550}#)
+                         (let ((#{inner-var 6555}#
                                  (gensym
                                    (string-append (symbol->string 'tmp) " "))))
                            (values
-                             #{inner-var 6541}#
-                             (cons (cons (cons #{outer-var 6537}#
-                                               #{inner-var 6541}#)
-                                         (car #{maps 6536}#))
-                                   #{outer-maps 6538}#)))))))))))
-         (#{gen-map 5707}#
-           (lambda (#{e 6555}# #{map-env 6556}#)
-             (let ((#{formals 6557}# (map cdr #{map-env 6556}#))
-                   (#{actuals 6558}#
-                     (map (lambda (#{x 6560}#)
-                            (list 'ref (car #{x 6560}#)))
-                          #{map-env 6556}#)))
-               (if (eq? (car #{e 6555}#) 'ref)
-                 (car #{actuals 6558}#)
+                             #{inner-var 6555}#
+                             (cons (cons (cons #{outer-var 6551}#
+                                               #{inner-var 6555}#)
+                                         (car #{maps 6550}#))
+                                   #{outer-maps 6552}#)))))))))))
+         (#{gen-map 5711}#
+           (lambda (#{e 6569}# #{map-env 6570}#)
+             (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
+                   (#{actuals 6572}#
+                     (map (lambda (#{x 6574}#)
+                            (list 'ref (car #{x 6574}#)))
+                          #{map-env 6570}#)))
+               (if (eq? (car #{e 6569}#) 'ref)
+                 (car #{actuals 6572}#)
                  (if (and-map
-                       (lambda (#{x 6561}#)
-                         (if (eq? (car #{x 6561}#) 'ref)
-                           (memq (car (cdr #{x 6561}#)) #{formals 6557}#)
+                       (lambda (#{x 6575}#)
+                         (if (eq? (car #{x 6575}#) 'ref)
+                           (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
                            #f))
-                       (cdr #{e 6555}#))
+                       (cdr #{e 6569}#))
                    (cons 'map
-                         (cons (list 'primitive (car #{e 6555}#))
-                               (map (let ((#{r 6563}#
+                         (cons (list 'primitive (car #{e 6569}#))
+                               (map (let ((#{r 6577}#
                                             (map cons
-                                                 #{formals 6557}#
-                                                 #{actuals 6558}#)))
-                                      (lambda (#{x 6564}#)
-                                        (cdr (assq (car (cdr #{x 6564}#))
-                                                   #{r 6563}#))))
-                                    (cdr #{e 6555}#))))
+                                                 #{formals 6571}#
+                                                 #{actuals 6572}#)))
+                                      (lambda (#{x 6578}#)
+                                        (cdr (assq (car (cdr #{x 6578}#))
+                                                   #{r 6577}#))))
+                                    (cdr #{e 6569}#))))
                    (cons 'map
-                         (cons (list 'lambda #{formals 6557}# #{e 6555}#)
-                               #{actuals 6558}#)))))))
-         (#{regen 5711}#
-           (lambda (#{x 6566}#)
-             (let ((#{atom-key 6567}# (car #{x 6566}#)))
-               (if (eqv? #{atom-key 6567}# 'ref)
-                 (let ((#{name 6577}# (car (cdr #{x 6566}#)))
-                       (#{var 6578}# (car (cdr #{x 6566}#))))
+                         (cons (list 'lambda #{formals 6571}# #{e 6569}#)
+                               #{actuals 6572}#)))))))
+         (#{regen 5715}#
+           (lambda (#{x 6580}#)
+             (let ((#{atom-key 6581}# (car #{x 6580}#)))
+               (if (eqv? #{atom-key 6581}# 'ref)
+                 (let ((#{name 6591}# (car (cdr #{x 6580}#)))
+                       (#{var 6592}# (car (cdr #{x 6580}#))))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 3)
                      #f
-                     #{name 6577}#
-                     #{var 6578}#))
-                 (if (eqv? #{atom-key 6567}# 'primitive)
-                   (let ((#{name 6589}# (car (cdr #{x 6566}#))))
+                     #{name 6591}#
+                     #{var 6592}#))
+                 (if (eqv? #{atom-key 6581}# 'primitive)
+                   (let ((#{name 6603}# (car (cdr #{x 6580}#))))
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 2)
                        #f
-                       #{name 6589}#))
-                   (if (eqv? #{atom-key 6567}# 'quote)
-                     (let ((#{exp 6600}# (car (cdr #{x 6566}#))))
+                       #{name 6603}#))
+                   (if (eqv? #{atom-key 6581}# 'quote)
+                     (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 1)
                          #f
-                         #{exp 6600}#))
-                     (if (eqv? #{atom-key 6567}# 'lambda)
-                       (if (list? (car (cdr #{x 6566}#)))
-                         (let ((#{req 6611}# (car (cdr #{x 6566}#)))
-                               (#{vars 6613}# (car (cdr #{x 6566}#)))
-                               (#{exp 6615}#
-                                 (#{regen 5711}#
-                                   (car (cdr (cdr #{x 6566}#))))))
-                           (let ((#{body 6620}#
+                         #{exp 6614}#))
+                     (if (eqv? #{atom-key 6581}# 'lambda)
+                       (if (list? (car (cdr #{x 6580}#)))
+                         (let ((#{req 6625}# (car (cdr #{x 6580}#)))
+                               (#{vars 6627}# (car (cdr #{x 6580}#)))
+                               (#{exp 6629}#
+                                 (#{regen 5715}#
+                                   (car (cdr (cdr #{x 6580}#))))))
+                           (let ((#{body 6634}#
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 15)
                                      #f
-                                     #{req 6611}#
+                                     #{req 6625}#
                                      #f
                                      #f
                                      #f
                                      '()
-                                     #{vars 6613}#
-                                     #{exp 6615}#
+                                     #{vars 6627}#
+                                     #{exp 6629}#
                                      #f)))
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 14)
                                #f
                                '()
-                               #{body 6620}#)))
-                         (error "how did we get here" #{x 6566}#))
-                       (let ((#{name 6636}# (car #{x 6566}#))
-                             (#{args 6637}#
-                               (map #{regen 5711}# (cdr #{x 6566}#))))
+                               #{body 6634}#)))
+                         (error "how did we get here" #{x 6580}#))
+                       (let ((#{name 6650}# (car #{x 6580}#))
+                             (#{args 6651}#
+                               (map #{regen 5715}# (cdr #{x 6580}#))))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 12)
                            #f
-                           #{name 6636}#
-                           #{args 6637}#))))))))))
-        (lambda (#{e 5712}#
-                 #{r 5713}#
-                 #{w 5714}#
-                 #{s 5715}#
-                 #{mod 5716}#)
-          (let ((#{e 5717}#
-                  (let ((#{x 6068}#
+                           #{name 6650}#
+                           #{args 6651}#))))))))))
+        (lambda (#{e 5716}#
+                 #{r 5717}#
+                 #{w 5718}#
+                 #{s 5719}#
+                 #{mod 5720}#)
+          (let ((#{e 5721}#
+                  (let ((#{x 6082}#
                           (begin
-                            (if (if (pair? #{e 5712}#) #{s 5715}# #f)
-                              (set-source-properties! #{e 5712}# #{s 5715}#))
-                            #{e 5712}#)))
-                    (if (if (null? (car #{w 5714}#))
-                          (null? (cdr #{w 5714}#))
+                            (if (if (pair? #{e 5716}#) #{s 5719}# #f)
+                              (set-source-properties! #{e 5716}# #{s 5719}#))
+                            #{e 5716}#)))
+                    (if (if (null? (car #{w 5718}#))
+                          (null? (cdr #{w 5718}#))
                           #f)
-                      #{x 6068}#
-                      (if (if (vector? #{x 6068}#)
-                            (if (= (vector-length #{x 6068}#) 4)
-                              (eq? (vector-ref #{x 6068}# 0) 'syntax-object)
+                      #{x 6082}#
+                      (if (if (vector? #{x 6082}#)
+                            (if (= (vector-length #{x 6082}#) 4)
+                              (eq? (vector-ref #{x 6082}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (let ((#{expression 6100}# (vector-ref #{x 6068}# 1))
-                              (#{wrap 6101}#
-                                (let ((#{w2 6109}# (vector-ref #{x 6068}# 2)))
-                                  (let ((#{m1 6110}# (car #{w 5714}#))
-                                        (#{s1 6111}# (cdr #{w 5714}#)))
-                                    (if (null? #{m1 6110}#)
-                                      (if (null? #{s1 6111}#)
-                                        #{w2 6109}#
-                                        (cons (car #{w2 6109}#)
-                                              (let ((#{m2 6126}#
-                                                      (cdr #{w2 6109}#)))
-                                                (if (null? #{m2 6126}#)
-                                                  #{s1 6111}#
+                        (let ((#{expression 6114}# (vector-ref #{x 6082}# 1))
+                              (#{wrap 6115}#
+                                (let ((#{w2 6123}# (vector-ref #{x 6082}# 2)))
+                                  (let ((#{m1 6124}# (car #{w 5718}#))
+                                        (#{s1 6125}# (cdr #{w 5718}#)))
+                                    (if (null? #{m1 6124}#)
+                                      (if (null? #{s1 6125}#)
+                                        #{w2 6123}#
+                                        (cons (car #{w2 6123}#)
+                                              (let ((#{m2 6140}#
+                                                      (cdr #{w2 6123}#)))
+                                                (if (null? #{m2 6140}#)
+                                                  #{s1 6125}#
                                                   (append
-                                                    #{s1 6111}#
-                                                    #{m2 6126}#)))))
-                                      (cons (let ((#{m2 6134}#
-                                                    (car #{w2 6109}#)))
-                                              (if (null? #{m2 6134}#)
-                                                #{m1 6110}#
+                                                    #{s1 6125}#
+                                                    #{m2 6140}#)))))
+                                      (cons (let ((#{m2 6148}#
+                                                    (car #{w2 6123}#)))
+                                              (if (null? #{m2 6148}#)
+                                                #{m1 6124}#
                                                 (append
-                                                  #{m1 6110}#
-                                                  #{m2 6134}#)))
-                                            (let ((#{m2 6142}#
-                                                    (cdr #{w2 6109}#)))
-                                              (if (null? #{m2 6142}#)
-                                                #{s1 6111}#
+                                                  #{m1 6124}#
+                                                  #{m2 6148}#)))
+                                            (let ((#{m2 6156}#
+                                                    (cdr #{w2 6123}#)))
+                                              (if (null? #{m2 6156}#)
+                                                #{s1 6125}#
                                                 (append
-                                                  #{s1 6111}#
-                                                  #{m2 6142}#))))))))
-                              (#{module 6102}# (vector-ref #{x 6068}# 3)))
+                                                  #{s1 6125}#
+                                                  #{m2 6156}#))))))))
+                              (#{module 6116}# (vector-ref #{x 6082}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 6100}#
-                            #{wrap 6101}#
-                            #{module 6102}#))
-                        (if (null? #{x 6068}#)
-                          #{x 6068}#
+                            #{expression 6114}#
+                            #{wrap 6115}#
+                            #{module 6116}#))
+                        (if (null? #{x 6082}#)
+                          #{x 6082}#
                           (vector
                             'syntax-object
-                            #{x 6068}#
-                            #{w 5714}#
-                            #{mod 5716}#)))))))
-            (let ((#{tmp 5718}# #{e 5717}#))
-              (let ((#{tmp 5719}#
-                      ($sc-dispatch #{tmp 5718}# '(_ any))))
-                (if #{tmp 5719}#
+                            #{x 6082}#
+                            #{w 5718}#
+                            #{mod 5720}#)))))))
+            (let ((#{tmp 5722}# #{e 5721}#))
+              (let ((#{tmp 5723}#
+                      ($sc-dispatch #{tmp 5722}# '(_ any))))
+                (if #{tmp 5723}#
                   (@apply
-                    (lambda (#{x 5767}#)
+                    (lambda (#{x 5775}#)
                       (call-with-values
                         (lambda ()
-                          (#{gen-syntax 5704}#
-                            #{e 5717}#
-                            #{x 5767}#
-                            #{r 5713}#
+                          (#{gen-syntax 5708}#
+                            #{e 5721}#
+                            #{x 5775}#
+                            #{r 5717}#
                             '()
-                            #{ellipsis? 4383}#
-                            #{mod 5716}#))
-                        (lambda (#{e 5850}# #{maps 5851}#)
-                          (#{regen 5711}# #{e 5850}#))))
-                    #{tmp 5719}#)
+                            #{ellipsis? 4381}#
+                            #{mod 5720}#))
+                        (lambda (#{e 5858}# #{maps 5859}#)
+                          (#{regen 5715}# #{e 5858}#))))
+                    #{tmp 5723}#)
                   (syntax-violation
                     'syntax
                     "bad `syntax' form"
-                    #{e 5717}#))))))))
-    (#{global-extend 4341}#
+                    #{e 5721}#))))))))
+    (#{global-extend 4339}#
       'core
       'lambda
-      (lambda (#{e 6873}#
-               #{r 6874}#
-               #{w 6875}#
-               #{s 6876}#
-               #{mod 6877}#)
-        (let ((#{tmp 6879}#
-                ($sc-dispatch #{e 6873}# '(_ any any . each-any))))
-          (if #{tmp 6879}#
+      (lambda (#{e 6887}#
+               #{r 6888}#
+               #{w 6889}#
+               #{s 6890}#
+               #{mod 6891}#)
+        (let ((#{tmp 6893}#
+                ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
+          (if #{tmp 6893}#
             (@apply
-              (lambda (#{args 6883}# #{e1 6884}# #{e2 6885}#)
+              (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
                 (call-with-values
                   (lambda ()
-                    (#{lambda-formals 4384}# #{args 6883}#))
-                  (lambda (#{req 6888}#
-                           #{opt 6889}#
-                           #{rest 6890}#
-                           #{kw 6891}#)
+                    (#{lambda-formals 4382}# #{args 6897}#))
+                  (lambda (#{req 6902}#
+                           #{opt 6903}#
+                           #{rest 6904}#
+                           #{kw 6905}#)
                     (letrec*
-                      ((#{lp 6892}#
-                         (lambda (#{body 6895}# #{meta 6896}#)
-                           (let ((#{tmp 6898}#
+                      ((#{lp 6906}#
+                         (lambda (#{body 6909}# #{meta 6910}#)
+                           (let ((#{tmp 6912}#
                                    ($sc-dispatch
-                                     #{body 6895}#
+                                     #{body 6909}#
                                      '(any any . each-any))))
-                             (if (if #{tmp 6898}#
+                             (if (if #{tmp 6912}#
                                    (@apply
-                                     (lambda (#{docstring 6902}#
-                                              #{e1 6903}#
-                                              #{e2 6904}#)
+                                     (lambda (#{docstring 6916}#
+                                              #{e1 6917}#
+                                              #{e2 6918}#)
                                        (string?
-                                         (syntax->datum #{docstring 6902}#)))
-                                     #{tmp 6898}#)
+                                         (syntax->datum #{docstring 6916}#)))
+                                     #{tmp 6912}#)
                                    #f)
                                (@apply
-                                 (lambda (#{docstring 6905}#
-                                          #{e1 6906}#
-                                          #{e2 6907}#)
-                                   (#{lp 6892}#
-                                     (cons #{e1 6906}# #{e2 6907}#)
+                                 (lambda (#{docstring 6919}#
+                                          #{e1 6920}#
+                                          #{e2 6921}#)
+                                   (#{lp 6906}#
+                                     (cons #{e1 6920}# #{e2 6921}#)
                                      (append
-                                       #{meta 6896}#
+                                       #{meta 6910}#
                                        (list (cons 'documentation
                                                    (syntax->datum
-                                                     #{docstring 6905}#))))))
-                                 #{tmp 6898}#)
-                               (let ((#{tmp 6908}#
+                                                     #{docstring 6919}#))))))
+                                 #{tmp 6912}#)
+                               (let ((#{tmp 6922}#
                                        ($sc-dispatch
-                                         #{body 6895}#
+                                         #{body 6909}#
                                          '(#(vector #(each (any . any)))
                                            any
                                            .
                                            each-any))))
-                                 (if #{tmp 6908}#
+                                 (if #{tmp 6922}#
                                    (@apply
-                                     (lambda (#{k 6912}#
-                                              #{v 6913}#
-                                              #{e1 6914}#
-                                              #{e2 6915}#)
-                                       (#{lp 6892}#
-                                         (cons #{e1 6914}# #{e2 6915}#)
+                                     (lambda (#{k 6926}#
+                                              #{v 6927}#
+                                              #{e1 6928}#
+                                              #{e2 6929}#)
+                                       (#{lp 6906}#
+                                         (cons #{e1 6928}# #{e2 6929}#)
                                          (append
-                                           #{meta 6896}#
+                                           #{meta 6910}#
                                            (syntax->datum
                                              (map cons
-                                                  #{k 6912}#
-                                                  #{v 6913}#)))))
-                                     #{tmp 6908}#)
-                                   (#{chi-simple-lambda 4385}#
-                                     #{e 6873}#
-                                     #{r 6874}#
-                                     #{w 6875}#
-                                     #{s 6876}#
-                                     #{mod 6877}#
-                                     #{req 6888}#
-                                     #{rest 6890}#
-                                     #{meta 6896}#
-                                     #{body 6895}#))))))))
-                      (#{lp 6892}# (cons #{e1 6884}# #{e2 6885}#) '())))))
-              #{tmp 6879}#)
+                                                  #{k 6926}#
+                                                  #{v 6927}#)))))
+                                     #{tmp 6922}#)
+                                   (#{chi-simple-lambda 4383}#
+                                     #{e 6887}#
+                                     #{r 6888}#
+                                     #{w 6889}#
+                                     #{s 6890}#
+                                     #{mod 6891}#
+                                     #{req 6902}#
+                                     #{rest 6904}#
+                                     #{meta 6910}#
+                                     #{body 6909}#))))))))
+                      (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
+              #{tmp 6893}#)
             (syntax-violation
               'lambda
               "bad lambda"
-              #{e 6873}#)))))
-    (#{global-extend 4341}#
+              #{e 6887}#)))))
+    (#{global-extend 4339}#
       'core
       'lambda*
-      (lambda (#{e 7299}#
-               #{r 7300}#
-               #{w 7301}#
-               #{s 7302}#
-               #{mod 7303}#)
-        (let ((#{tmp 7305}#
-                ($sc-dispatch #{e 7299}# '(_ any any . each-any))))
-          (if #{tmp 7305}#
+      (lambda (#{e 7313}#
+               #{r 7314}#
+               #{w 7315}#
+               #{s 7316}#
+               #{mod 7317}#)
+        (let ((#{tmp 7319}#
+                ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
+          (if #{tmp 7319}#
             (@apply
-              (lambda (#{args 7309}# #{e1 7310}# #{e2 7311}#)
+              (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
                 (call-with-values
                   (lambda ()
-                    (#{chi-lambda-case 4387}#
-                      #{e 7299}#
-                      #{r 7300}#
-                      #{w 7301}#
-                      #{s 7302}#
-                      #{mod 7303}#
-                      #{lambda*-formals 4386}#
-                      (list (cons #{args 7309}#
-                                  (cons #{e1 7310}# #{e2 7311}#)))))
-                  (lambda (#{meta 7314}# #{lcase 7315}#)
+                    (#{chi-lambda-case 4385}#
+                      #{e 7313}#
+                      #{r 7314}#
+                      #{w 7315}#
+                      #{s 7316}#
+                      #{mod 7317}#
+                      #{lambda*-formals 4384}#
+                      (list (cons #{args 7323}#
+                                  (cons #{e1 7324}# #{e2 7325}#)))))
+                  (lambda (#{meta 7328}# #{lcase 7329}#)
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 14)
-                      #{s 7302}#
-                      #{meta 7314}#
-                      #{lcase 7315}#))))
-              #{tmp 7305}#)
+                      #{s 7316}#
+                      #{meta 7328}#
+                      #{lcase 7329}#))))
+              #{tmp 7319}#)
             (syntax-violation
               'lambda
               "bad lambda*"
-              #{e 7299}#)))))
-    (#{global-extend 4341}#
+              #{e 7313}#)))))
+    (#{global-extend 4339}#
       'core
       'case-lambda
-      (lambda (#{e 7478}#
-               #{r 7479}#
-               #{w 7480}#
-               #{s 7481}#
-               #{mod 7482}#)
-        (let ((#{tmp 7484}#
+      (lambda (#{e 7492}#
+               #{r 7493}#
+               #{w 7494}#
+               #{s 7495}#
+               #{mod 7496}#)
+        (let ((#{tmp 7498}#
                 ($sc-dispatch
-                  #{e 7478}#
+                  #{e 7492}#
                   '(_ (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-          (if #{tmp 7484}#
+          (if #{tmp 7498}#
             (@apply
-              (lambda (#{args 7488}#
-                       #{e1 7489}#
-                       #{e2 7490}#
-                       #{args* 7491}#
-                       #{e1* 7492}#
-                       #{e2* 7493}#)
+              (lambda (#{args 7502}#
+                       #{e1 7503}#
+                       #{e2 7504}#
+                       #{args* 7505}#
+                       #{e1* 7506}#
+                       #{e2* 7507}#)
                 (call-with-values
                   (lambda ()
-                    (#{chi-lambda-case 4387}#
-                      #{e 7478}#
-                      #{r 7479}#
-                      #{w 7480}#
-                      #{s 7481}#
-                      #{mod 7482}#
-                      #{lambda-formals 4384}#
-                      (cons (cons #{args 7488}#
-                                  (cons #{e1 7489}# #{e2 7490}#))
-                            (map (lambda (#{tmp 3306 7496}#
-                                          #{tmp 3305 7497}#
-                                          #{tmp 3304 7498}#)
-                                   (cons #{tmp 3304 7498}#
-                                         (cons #{tmp 3305 7497}#
-                                               #{tmp 3306 7496}#)))
-                                 #{e2* 7493}#
-                                 #{e1* 7492}#
-                                 #{args* 7491}#))))
-                  (lambda (#{meta 7499}# #{lcase 7500}#)
+                    (#{chi-lambda-case 4385}#
+                      #{e 7492}#
+                      #{r 7493}#
+                      #{w 7494}#
+                      #{s 7495}#
+                      #{mod 7496}#
+                      #{lambda-formals 4382}#
+                      (cons (cons #{args 7502}#
+                                  (cons #{e1 7503}# #{e2 7504}#))
+                            (map (lambda (#{tmp 3304 7510}#
+                                          #{tmp 3303 7511}#
+                                          #{tmp 3302 7512}#)
+                                   (cons #{tmp 3302 7512}#
+                                         (cons #{tmp 3303 7511}#
+                                               #{tmp 3304 7510}#)))
+                                 #{e2* 7507}#
+                                 #{e1* 7506}#
+                                 #{args* 7505}#))))
+                  (lambda (#{meta 7513}# #{lcase 7514}#)
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 14)
-                      #{s 7481}#
-                      #{meta 7499}#
-                      #{lcase 7500}#))))
-              #{tmp 7484}#)
+                      #{s 7495}#
+                      #{meta 7513}#
+                      #{lcase 7514}#))))
+              #{tmp 7498}#)
             (syntax-violation
               'case-lambda
               "bad case-lambda"
-              #{e 7478}#)))))
-    (#{global-extend 4341}#
+              #{e 7492}#)))))
+    (#{global-extend 4339}#
       'core
       'case-lambda*
-      (lambda (#{e 7669}#
-               #{r 7670}#
-               #{w 7671}#
-               #{s 7672}#
-               #{mod 7673}#)
-        (let ((#{tmp 7675}#
+      (lambda (#{e 7683}#
+               #{r 7684}#
+               #{w 7685}#
+               #{s 7686}#
+               #{mod 7687}#)
+        (let ((#{tmp 7689}#
                 ($sc-dispatch
-                  #{e 7669}#
+                  #{e 7683}#
                   '(_ (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-          (if #{tmp 7675}#
+          (if #{tmp 7689}#
             (@apply
-              (lambda (#{args 7679}#
-                       #{e1 7680}#
-                       #{e2 7681}#
-                       #{args* 7682}#
-                       #{e1* 7683}#
-                       #{e2* 7684}#)
+              (lambda (#{args 7693}#
+                       #{e1 7694}#
+                       #{e2 7695}#
+                       #{args* 7696}#
+                       #{e1* 7697}#
+                       #{e2* 7698}#)
                 (call-with-values
                   (lambda ()
-                    (#{chi-lambda-case 4387}#
-                      #{e 7669}#
-                      #{r 7670}#
-                      #{w 7671}#
-                      #{s 7672}#
-                      #{mod 7673}#
-                      #{lambda*-formals 4386}#
-                      (cons (cons #{args 7679}#
-                                  (cons #{e1 7680}# #{e2 7681}#))
-                            (map (lambda (#{tmp 3341 7687}#
-                                          #{tmp 3340 7688}#
-                                          #{tmp 3339 7689}#)
-                                   (cons #{tmp 3339 7689}#
-                                         (cons #{tmp 3340 7688}#
-                                               #{tmp 3341 7687}#)))
-                                 #{e2* 7684}#
-                                 #{e1* 7683}#
-                                 #{args* 7682}#))))
-                  (lambda (#{meta 7690}# #{lcase 7691}#)
+                    (#{chi-lambda-case 4385}#
+                      #{e 7683}#
+                      #{r 7684}#
+                      #{w 7685}#
+                      #{s 7686}#
+                      #{mod 7687}#
+                      #{lambda*-formals 4384}#
+                      (cons (cons #{args 7693}#
+                                  (cons #{e1 7694}# #{e2 7695}#))
+                            (map (lambda (#{tmp 3339 7701}#
+                                          #{tmp 3338 7702}#
+                                          #{tmp 3337 7703}#)
+                                   (cons #{tmp 3337 7703}#
+                                         (cons #{tmp 3338 7702}#
+                                               #{tmp 3339 7701}#)))
+                                 #{e2* 7698}#
+                                 #{e1* 7697}#
+                                 #{args* 7696}#))))
+                  (lambda (#{meta 7704}# #{lcase 7705}#)
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 14)
-                      #{s 7672}#
-                      #{meta 7690}#
-                      #{lcase 7691}#))))
-              #{tmp 7675}#)
+                      #{s 7686}#
+                      #{meta 7704}#
+                      #{lcase 7705}#))))
+              #{tmp 7689}#)
             (syntax-violation
               'case-lambda
               "bad case-lambda*"
-              #{e 7669}#)))))
-    (#{global-extend 4341}#
+              #{e 7683}#)))))
+    (#{global-extend 4339}#
       'core
       'let
       (letrec*
-        ((#{chi-let 7900}#
-           (lambda (#{e 8110}#
-                    #{r 8111}#
-                    #{w 8112}#
-                    #{s 8113}#
-                    #{mod 8114}#
-                    #{constructor 8115}#
-                    #{ids 8116}#
-                    #{vals 8117}#
-                    #{exps 8118}#)
-             (if (not (#{valid-bound-ids? 4365}# #{ids 8116}#))
+        ((#{chi-let 7914}#
+           (lambda (#{e 8124}#
+                    #{r 8125}#
+                    #{w 8126}#
+                    #{s 8127}#
+                    #{mod 8128}#
+                    #{constructor 8129}#
+                    #{ids 8130}#
+                    #{vals 8131}#
+                    #{exps 8132}#)
+             (if (not (#{valid-bound-ids? 4363}# #{ids 8130}#))
                (syntax-violation
                  'let
                  "duplicate bound variable"
-                 #{e 8110}#)
-               (let ((#{labels 8201}#
-                       (#{gen-labels 4346}# #{ids 8116}#))
-                     (#{new-vars 8202}#
-                       (map #{gen-var 4389}# #{ids 8116}#)))
-                 (let ((#{nw 8203}#
-                         (#{make-binding-wrap 4357}#
-                           #{ids 8116}#
-                           #{labels 8201}#
-                           #{w 8112}#))
-                       (#{nr 8204}#
-                         (#{extend-var-env 4338}#
-                           #{labels 8201}#
-                           #{new-vars 8202}#
-                           #{r 8111}#)))
-                   (#{constructor 8115}#
-                     #{s 8113}#
-                     (map syntax->datum #{ids 8116}#)
-                     #{new-vars 8202}#
-                     (map (lambda (#{x 8221}#)
-                            (#{chi 4375}#
-                              #{x 8221}#
-                              #{r 8111}#
-                              #{w 8112}#
-                              #{mod 8114}#))
-                          #{vals 8117}#)
-                     (#{chi-body 4379}#
-                       #{exps 8118}#
-                       (#{source-wrap 4369}#
-                         #{e 8110}#
-                         #{nw 8203}#
-                         #{s 8113}#
-                         #{mod 8114}#)
-                       #{nr 8204}#
-                       #{nw 8203}#
-                       #{mod 8114}#))))))))
-        (lambda (#{e 7901}#
-                 #{r 7902}#
-                 #{w 7903}#
-                 #{s 7904}#
-                 #{mod 7905}#)
-          (let ((#{tmp 7907}#
+                 #{e 8124}#)
+               (let ((#{labels 8217}#
+                       (#{gen-labels 4344}# #{ids 8130}#))
+                     (#{new-vars 8218}#
+                       (map #{gen-var 4387}# #{ids 8130}#)))
+                 (let ((#{nw 8219}#
+                         (#{make-binding-wrap 4355}#
+                           #{ids 8130}#
+                           #{labels 8217}#
+                           #{w 8126}#))
+                       (#{nr 8220}#
+                         (#{extend-var-env 4336}#
+                           #{labels 8217}#
+                           #{new-vars 8218}#
+                           #{r 8125}#)))
+                   (#{constructor 8129}#
+                     #{s 8127}#
+                     (map syntax->datum #{ids 8130}#)
+                     #{new-vars 8218}#
+                     (map (lambda (#{x 8237}#)
+                            (#{chi 4373}#
+                              #{x 8237}#
+                              #{r 8125}#
+                              #{w 8126}#
+                              #{mod 8128}#))
+                          #{vals 8131}#)
+                     (#{chi-body 4377}#
+                       #{exps 8132}#
+                       (#{source-wrap 4367}#
+                         #{e 8124}#
+                         #{nw 8219}#
+                         #{s 8127}#
+                         #{mod 8128}#)
+                       #{nr 8220}#
+                       #{nw 8219}#
+                       #{mod 8128}#))))))))
+        (lambda (#{e 7915}#
+                 #{r 7916}#
+                 #{w 7917}#
+                 #{s 7918}#
+                 #{mod 7919}#)
+          (let ((#{tmp 7921}#
                   ($sc-dispatch
-                    #{e 7901}#
+                    #{e 7915}#
                     '(_ #(each (any any)) any . each-any))))
-            (if (if #{tmp 7907}#
+            (if (if #{tmp 7921}#
                   (@apply
-                    (lambda (#{id 7911}#
-                             #{val 7912}#
-                             #{e1 7913}#
-                             #{e2 7914}#)
-                      (and-map #{id? 4343}# #{id 7911}#))
-                    #{tmp 7907}#)
+                    (lambda (#{id 7925}#
+                             #{val 7926}#
+                             #{e1 7927}#
+                             #{e2 7928}#)
+                      (and-map #{id? 4341}# #{id 7925}#))
+                    #{tmp 7921}#)
                   #f)
               (@apply
-                (lambda (#{id 7930}#
-                         #{val 7931}#
-                         #{e1 7932}#
-                         #{e2 7933}#)
-                  (#{chi-let 7900}#
-                    #{e 7901}#
-                    #{r 7902}#
-                    #{w 7903}#
-                    #{s 7904}#
-                    #{mod 7905}#
-                    (lambda (#{src 7937}#
-                             #{ids 7938}#
-                             #{vars 7939}#
-                             #{val-exps 7940}#
-                             #{body-exp 7941}#)
+                (lambda (#{id 7944}#
+                         #{val 7945}#
+                         #{e1 7946}#
+                         #{e2 7947}#)
+                  (#{chi-let 7914}#
+                    #{e 7915}#
+                    #{r 7916}#
+                    #{w 7917}#
+                    #{s 7918}#
+                    #{mod 7919}#
+                    (lambda (#{src 7951}#
+                             #{ids 7952}#
+                             #{vars 7953}#
+                             #{val-exps 7954}#
+                             #{body-exp 7955}#)
                       (begin
                         (for-each
-                          #{maybe-name-value! 4307}#
-                          #{ids 7938}#
-                          #{val-exps 7940}#)
-                        (if (null? #{vars 7939}#)
-                          #{body-exp 7941}#
+                          #{maybe-name-value! 4305}#
+                          #{ids 7952}#
+                          #{val-exps 7954}#)
+                        (if (null? #{vars 7953}#)
+                          #{body-exp 7955}#
                           (make-struct/no-tail
                             (vector-ref %expanded-vtables 16)
-                            #{src 7937}#
-                            #{ids 7938}#
-                            #{vars 7939}#
-                            #{val-exps 7940}#
-                            #{body-exp 7941}#))))
-                    #{id 7930}#
-                    #{val 7931}#
-                    (cons #{e1 7932}# #{e2 7933}#)))
-                #{tmp 7907}#)
-              (let ((#{tmp 7948}#
+                            #{src 7951}#
+                            #{ids 7952}#
+                            #{vars 7953}#
+                            #{val-exps 7954}#
+                            #{body-exp 7955}#))))
+                    #{id 7944}#
+                    #{val 7945}#
+                    (cons #{e1 7946}# #{e2 7947}#)))
+                #{tmp 7921}#)
+              (let ((#{tmp 7962}#
                       ($sc-dispatch
-                        #{e 7901}#
+                        #{e 7915}#
                         '(_ any #(each (any any)) any . each-any))))
-                (if (if #{tmp 7948}#
+                (if (if #{tmp 7962}#
                       (@apply
-                        (lambda (#{f 7952}#
-                                 #{id 7953}#
-                                 #{val 7954}#
-                                 #{e1 7955}#
-                                 #{e2 7956}#)
-                          (if (if (symbol? #{f 7952}#)
+                        (lambda (#{f 7966}#
+                                 #{id 7967}#
+                                 #{val 7968}#
+                                 #{e1 7969}#
+                                 #{e2 7970}#)
+                          (if (if (symbol? #{f 7966}#)
                                 #t
-                                (if (if (vector? #{f 7952}#)
-                                      (if (= (vector-length #{f 7952}#) 4)
-                                        (eq? (vector-ref #{f 7952}# 0)
+                                (if (if (vector? #{f 7966}#)
+                                      (if (= (vector-length #{f 7966}#) 4)
+                                        (eq? (vector-ref #{f 7966}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{f 7952}# 1))
+                                  (symbol? (vector-ref #{f 7966}# 1))
                                   #f))
-                            (and-map #{id? 4343}# #{id 7953}#)
+                            (and-map #{id? 4341}# #{id 7967}#)
                             #f))
-                        #{tmp 7948}#)
+                        #{tmp 7962}#)
                       #f)
                   (@apply
-                    (lambda (#{f 7998}#
-                             #{id 7999}#
-                             #{val 8000}#
-                             #{e1 8001}#
-                             #{e2 8002}#)
-                      (#{chi-let 7900}#
-                        #{e 7901}#
-                        #{r 7902}#
-                        #{w 7903}#
-                        #{s 7904}#
-                        #{mod 7905}#
-                        #{build-named-let 4326}#
-                        (cons #{f 7998}# #{id 7999}#)
-                        #{val 8000}#
-                        (cons #{e1 8001}# #{e2 8002}#)))
-                    #{tmp 7948}#)
+                    (lambda (#{f 8012}#
+                             #{id 8013}#
+                             #{val 8014}#
+                             #{e1 8015}#
+                             #{e2 8016}#)
+                      (#{chi-let 7914}#
+                        #{e 7915}#
+                        #{r 7916}#
+                        #{w 7917}#
+                        #{s 7918}#
+                        #{mod 7919}#
+                        #{build-named-let 4324}#
+                        (cons #{f 8012}# #{id 8013}#)
+                        #{val 8014}#
+                        (cons #{e1 8015}# #{e2 8016}#)))
+                    #{tmp 7962}#)
                   (syntax-violation
                     'let
                     "bad let"
-                    (let ((#{x 8015}#
+                    (let ((#{x 8029}#
                             (begin
-                              (if (if (pair? #{e 7901}#) #{s 7904}# #f)
-                                (set-source-properties! #{e 7901}# #{s 7904}#))
-                              #{e 7901}#)))
-                      (if (if (null? (car #{w 7903}#))
-                            (null? (cdr #{w 7903}#))
+                              (if (if (pair? #{e 7915}#) #{s 7918}# #f)
+                                (set-source-properties! #{e 7915}# #{s 7918}#))
+                              #{e 7915}#)))
+                      (if (if (null? (car #{w 7917}#))
+                            (null? (cdr #{w 7917}#))
                             #f)
-                        #{x 8015}#
-                        (if (if (vector? #{x 8015}#)
-                              (if (= (vector-length #{x 8015}#) 4)
-                                (eq? (vector-ref #{x 8015}# 0) 'syntax-object)
+                        #{x 8029}#
+                        (if (if (vector? #{x 8029}#)
+                              (if (= (vector-length #{x 8029}#) 4)
+                                (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
                                 #f)
                               #f)
-                          (let ((#{expression 8047}# (vector-ref #{x 8015}# 1))
-                                (#{wrap 8048}#
-                                  (let ((#{w2 8056}#
-                                          (vector-ref #{x 8015}# 2)))
-                                    (let ((#{m1 8057}# (car #{w 7903}#))
-                                          (#{s1 8058}# (cdr #{w 7903}#)))
-                                      (if (null? #{m1 8057}#)
-                                        (if (null? #{s1 8058}#)
-                                          #{w2 8056}#
-                                          (cons (car #{w2 8056}#)
-                                                (let ((#{m2 8073}#
-                                                        (cdr #{w2 8056}#)))
-                                                  (if (null? #{m2 8073}#)
-                                                    #{s1 8058}#
+                          (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
+                                (#{wrap 8062}#
+                                  (let ((#{w2 8070}#
+                                          (vector-ref #{x 8029}# 2)))
+                                    (let ((#{m1 8071}# (car #{w 7917}#))
+                                          (#{s1 8072}# (cdr #{w 7917}#)))
+                                      (if (null? #{m1 8071}#)
+                                        (if (null? #{s1 8072}#)
+                                          #{w2 8070}#
+                                          (cons (car #{w2 8070}#)
+                                                (let ((#{m2 8087}#
+                                                        (cdr #{w2 8070}#)))
+                                                  (if (null? #{m2 8087}#)
+                                                    #{s1 8072}#
                                                     (append
-                                                      #{s1 8058}#
-                                                      #{m2 8073}#)))))
-                                        (cons (let ((#{m2 8081}#
-                                                      (car #{w2 8056}#)))
-                                                (if (null? #{m2 8081}#)
-                                                  #{m1 8057}#
+                                                      #{s1 8072}#
+                                                      #{m2 8087}#)))))
+                                        (cons (let ((#{m2 8095}#
+                                                      (car #{w2 8070}#)))
+                                                (if (null? #{m2 8095}#)
+                                                  #{m1 8071}#
                                                   (append
-                                                    #{m1 8057}#
-                                                    #{m2 8081}#)))
-                                              (let ((#{m2 8089}#
-                                                      (cdr #{w2 8056}#)))
-                                                (if (null? #{m2 8089}#)
-                                                  #{s1 8058}#
+                                                    #{m1 8071}#
+                                                    #{m2 8095}#)))
+                                              (let ((#{m2 8103}#
+                                                      (cdr #{w2 8070}#)))
+                                                (if (null? #{m2 8103}#)
+                                                  #{s1 8072}#
                                                   (append
-                                                    #{s1 8058}#
-                                                    #{m2 8089}#))))))))
-                                (#{module 8049}# (vector-ref #{x 8015}# 3)))
+                                                    #{s1 8072}#
+                                                    #{m2 8103}#))))))))
+                                (#{module 8063}# (vector-ref #{x 8029}# 3)))
                             (vector
                               'syntax-object
-                              #{expression 8047}#
-                              #{wrap 8048}#
-                              #{module 8049}#))
-                          (if (null? #{x 8015}#)
-                            #{x 8015}#
+                              #{expression 8061}#
+                              #{wrap 8062}#
+                              #{module 8063}#))
+                          (if (null? #{x 8029}#)
+                            #{x 8029}#
                             (vector
                               'syntax-object
-                              #{x 8015}#
-                              #{w 7903}#
-                              #{mod 7905}#)))))))))))))
-    (#{global-extend 4341}#
+                              #{x 8029}#
+                              #{w 7917}#
+                              #{mod 7919}#)))))))))))))
+    (#{global-extend 4339}#
       'core
       'letrec
-      (lambda (#{e 8694}#
-               #{r 8695}#
-               #{w 8696}#
-               #{s 8697}#
-               #{mod 8698}#)
-        (let ((#{tmp 8700}#
+      (lambda (#{e 8714}#
+               #{r 8715}#
+               #{w 8716}#
+               #{s 8717}#
+               #{mod 8718}#)
+        (let ((#{tmp 8720}#
                 ($sc-dispatch
-                  #{e 8694}#
+                  #{e 8714}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 8700}#
+          (if (if #{tmp 8720}#
                 (@apply
-                  (lambda (#{id 8704}#
-                           #{val 8705}#
-                           #{e1 8706}#
-                           #{e2 8707}#)
-                    (and-map #{id? 4343}# #{id 8704}#))
-                  #{tmp 8700}#)
+                  (lambda (#{id 8724}#
+                           #{val 8725}#
+                           #{e1 8726}#
+                           #{e2 8727}#)
+                    (and-map #{id? 4341}# #{id 8724}#))
+                  #{tmp 8720}#)
                 #f)
             (@apply
-              (lambda (#{id 8723}#
-                       #{val 8724}#
-                       #{e1 8725}#
-                       #{e2 8726}#)
-                (if (not (#{valid-bound-ids? 4365}# #{id 8723}#))
+              (lambda (#{id 8743}#
+                       #{val 8744}#
+                       #{e1 8745}#
+                       #{e2 8746}#)
+                (if (not (#{valid-bound-ids? 4363}# #{id 8743}#))
                   (syntax-violation
                     'letrec
                     "duplicate bound variable"
-                    #{e 8694}#)
-                  (let ((#{labels 8821}#
-                          (#{gen-labels 4346}# #{id 8723}#))
-                        (#{new-vars 8822}#
-                          (map #{gen-var 4389}# #{id 8723}#)))
-                    (let ((#{w 8823}#
-                            (#{make-binding-wrap 4357}#
-                              #{id 8723}#
-                              #{labels 8821}#
-                              #{w 8696}#))
-                          (#{r 8824}#
-                            (#{extend-var-env 4338}#
-                              #{labels 8821}#
-                              #{new-vars 8822}#
-                              #{r 8695}#)))
-                      (#{build-letrec 4327}#
-                        #{s 8697}#
+                    #{e 8714}#)
+                  (let ((#{labels 8843}#
+                          (#{gen-labels 4344}# #{id 8743}#))
+                        (#{new-vars 8844}#
+                          (map #{gen-var 4387}# #{id 8743}#)))
+                    (let ((#{w 8845}#
+                            (#{make-binding-wrap 4355}#
+                              #{id 8743}#
+                              #{labels 8843}#
+                              #{w 8716}#))
+                          (#{r 8846}#
+                            (#{extend-var-env 4336}#
+                              #{labels 8843}#
+                              #{new-vars 8844}#
+                              #{r 8715}#)))
+                      (#{build-letrec 4325}#
+                        #{s 8717}#
                         #f
-                        (map syntax->datum #{id 8723}#)
-                        #{new-vars 8822}#
-                        (map (lambda (#{x 8903}#)
-                               (#{chi 4375}#
-                                 #{x 8903}#
-                                 #{r 8824}#
-                                 #{w 8823}#
-                                 #{mod 8698}#))
-                             #{val 8724}#)
-                        (#{chi-body 4379}#
-                          (cons #{e1 8725}# #{e2 8726}#)
-                          (let ((#{x 8965}#
+                        (map syntax->datum #{id 8743}#)
+                        #{new-vars 8844}#
+                        (map (lambda (#{x 8925}#)
+                               (#{chi 4373}#
+                                 #{x 8925}#
+                                 #{r 8846}#
+                                 #{w 8845}#
+                                 #{mod 8718}#))
+                             #{val 8744}#)
+                        (#{chi-body 4377}#
+                          (cons #{e1 8745}# #{e2 8746}#)
+                          (let ((#{x 8987}#
                                   (begin
-                                    (if (if (pair? #{e 8694}#) #{s 8697}# #f)
+                                    (if (if (pair? #{e 8714}#) #{s 8717}# #f)
                                       (set-source-properties!
-                                        #{e 8694}#
-                                        #{s 8697}#))
-                                    #{e 8694}#)))
-                            (if (if (null? (car #{w 8823}#))
-                                  (null? (cdr #{w 8823}#))
+                                        #{e 8714}#
+                                        #{s 8717}#))
+                                    #{e 8714}#)))
+                            (if (if (null? (car #{w 8845}#))
+                                  (null? (cdr #{w 8845}#))
                                   #f)
-                              #{x 8965}#
-                              (if (if (vector? #{x 8965}#)
-                                    (if (= (vector-length #{x 8965}#) 4)
-                                      (eq? (vector-ref #{x 8965}# 0)
+                              #{x 8987}#
+                              (if (if (vector? #{x 8987}#)
+                                    (if (= (vector-length #{x 8987}#) 4)
+                                      (eq? (vector-ref #{x 8987}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
-                                (let ((#{expression 8997}#
-                                        (vector-ref #{x 8965}# 1))
-                                      (#{wrap 8998}#
-                                        (let ((#{w2 9006}#
-                                                (vector-ref #{x 8965}# 2)))
-                                          (let ((#{m1 9007}# (car #{w 8823}#))
-                                                (#{s1 9008}# (cdr #{w 8823}#)))
-                                            (if (null? #{m1 9007}#)
-                                              (if (null? #{s1 9008}#)
-                                                #{w2 9006}#
-                                                (cons (car #{w2 9006}#)
-                                                      (let ((#{m2 9023}#
-                                                              (cdr #{w2 
9006}#)))
-                                                        (if (null? #{m2 9023}#)
-                                                          #{s1 9008}#
+                                (let ((#{expression 9019}#
+                                        (vector-ref #{x 8987}# 1))
+                                      (#{wrap 9020}#
+                                        (let ((#{w2 9028}#
+                                                (vector-ref #{x 8987}# 2)))
+                                          (let ((#{m1 9029}# (car #{w 8845}#))
+                                                (#{s1 9030}# (cdr #{w 8845}#)))
+                                            (if (null? #{m1 9029}#)
+                                              (if (null? #{s1 9030}#)
+                                                #{w2 9028}#
+                                                (cons (car #{w2 9028}#)
+                                                      (let ((#{m2 9045}#
+                                                              (cdr #{w2 
9028}#)))
+                                                        (if (null? #{m2 9045}#)
+                                                          #{s1 9030}#
                                                           (append
-                                                            #{s1 9008}#
-                                                            #{m2 9023}#)))))
-                                              (cons (let ((#{m2 9031}#
-                                                            (car #{w2 9006}#)))
-                                                      (if (null? #{m2 9031}#)
-                                                        #{m1 9007}#
+                                                            #{s1 9030}#
+                                                            #{m2 9045}#)))))
+                                              (cons (let ((#{m2 9053}#
+                                                            (car #{w2 9028}#)))
+                                                      (if (null? #{m2 9053}#)
+                                                        #{m1 9029}#
                                                         (append
-                                                          #{m1 9007}#
-                                                          #{m2 9031}#)))
-                                                    (let ((#{m2 9039}#
-                                                            (cdr #{w2 9006}#)))
-                                                      (if (null? #{m2 9039}#)
-                                                        #{s1 9008}#
+                                                          #{m1 9029}#
+                                                          #{m2 9053}#)))
+                                                    (let ((#{m2 9061}#
+                                                            (cdr #{w2 9028}#)))
+                                                      (if (null? #{m2 9061}#)
+                                                        #{s1 9030}#
                                                         (append
-                                                          #{s1 9008}#
-                                                          #{m2 9039}#))))))))
-                                      (#{module 8999}#
-                                        (vector-ref #{x 8965}# 3)))
+                                                          #{s1 9030}#
+                                                          #{m2 9061}#))))))))
+                                      (#{module 9021}#
+                                        (vector-ref #{x 8987}# 3)))
                                   (vector
                                     'syntax-object
-                                    #{expression 8997}#
-                                    #{wrap 8998}#
-                                    #{module 8999}#))
-                                (if (null? #{x 8965}#)
-                                  #{x 8965}#
+                                    #{expression 9019}#
+                                    #{wrap 9020}#
+                                    #{module 9021}#))
+                                (if (null? #{x 8987}#)
+                                  #{x 8987}#
                                   (vector
                                     'syntax-object
-                                    #{x 8965}#
-                                    #{w 8823}#
-                                    #{mod 8698}#)))))
-                          #{r 8824}#
-                          #{w 8823}#
-                          #{mod 8698}#))))))
-              #{tmp 8700}#)
+                                    #{x 8987}#
+                                    #{w 8845}#
+                                    #{mod 8718}#)))))
+                          #{r 8846}#
+                          #{w 8845}#
+                          #{mod 8718}#))))))
+              #{tmp 8720}#)
             (syntax-violation
               'letrec
               "bad letrec"
-              (let ((#{x 9279}#
+              (let ((#{x 9301}#
                       (begin
-                        (if (if (pair? #{e 8694}#) #{s 8697}# #f)
-                          (set-source-properties! #{e 8694}# #{s 8697}#))
-                        #{e 8694}#)))
-                (if (if (null? (car #{w 8696}#))
-                      (null? (cdr #{w 8696}#))
+                        (if (if (pair? #{e 8714}#) #{s 8717}# #f)
+                          (set-source-properties! #{e 8714}# #{s 8717}#))
+                        #{e 8714}#)))
+                (if (if (null? (car #{w 8716}#))
+                      (null? (cdr #{w 8716}#))
                       #f)
-                  #{x 9279}#
-                  (if (if (vector? #{x 9279}#)
-                        (if (= (vector-length #{x 9279}#) 4)
-                          (eq? (vector-ref #{x 9279}# 0) 'syntax-object)
+                  #{x 9301}#
+                  (if (if (vector? #{x 9301}#)
+                        (if (= (vector-length #{x 9301}#) 4)
+                          (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (let ((#{expression 9311}# (vector-ref #{x 9279}# 1))
-                          (#{wrap 9312}#
-                            (let ((#{w2 9320}# (vector-ref #{x 9279}# 2)))
-                              (let ((#{m1 9321}# (car #{w 8696}#))
-                                    (#{s1 9322}# (cdr #{w 8696}#)))
-                                (if (null? #{m1 9321}#)
-                                  (if (null? #{s1 9322}#)
-                                    #{w2 9320}#
-                                    (cons (car #{w2 9320}#)
-                                          (let ((#{m2 9337}#
-                                                  (cdr #{w2 9320}#)))
-                                            (if (null? #{m2 9337}#)
-                                              #{s1 9322}#
+                    (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
+                          (#{wrap 9334}#
+                            (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
+                              (let ((#{m1 9343}# (car #{w 8716}#))
+                                    (#{s1 9344}# (cdr #{w 8716}#)))
+                                (if (null? #{m1 9343}#)
+                                  (if (null? #{s1 9344}#)
+                                    #{w2 9342}#
+                                    (cons (car #{w2 9342}#)
+                                          (let ((#{m2 9359}#
+                                                  (cdr #{w2 9342}#)))
+                                            (if (null? #{m2 9359}#)
+                                              #{s1 9344}#
                                               (append
-                                                #{s1 9322}#
-                                                #{m2 9337}#)))))
-                                  (cons (let ((#{m2 9345}# (car #{w2 9320}#)))
-                                          (if (null? #{m2 9345}#)
-                                            #{m1 9321}#
-                                            (append #{m1 9321}# #{m2 9345}#)))
-                                        (let ((#{m2 9353}# (cdr #{w2 9320}#)))
-                                          (if (null? #{m2 9353}#)
-                                            #{s1 9322}#
+                                                #{s1 9344}#
+                                                #{m2 9359}#)))))
+                                  (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
+                                          (if (null? #{m2 9367}#)
+                                            #{m1 9343}#
+                                            (append #{m1 9343}# #{m2 9367}#)))
+                                        (let ((#{m2 9375}# (cdr #{w2 9342}#)))
+                                          (if (null? #{m2 9375}#)
+                                            #{s1 9344}#
                                             (append
-                                              #{s1 9322}#
-                                              #{m2 9353}#))))))))
-                          (#{module 9313}# (vector-ref #{x 9279}# 3)))
+                                              #{s1 9344}#
+                                              #{m2 9375}#))))))))
+                          (#{module 9335}# (vector-ref #{x 9301}# 3)))
                       (vector
                         'syntax-object
-                        #{expression 9311}#
-                        #{wrap 9312}#
-                        #{module 9313}#))
-                    (if (null? #{x 9279}#)
-                      #{x 9279}#
+                        #{expression 9333}#
+                        #{wrap 9334}#
+                        #{module 9335}#))
+                    (if (null? #{x 9301}#)
+                      #{x 9301}#
                       (vector
                         'syntax-object
-                        #{x 9279}#
-                        #{w 8696}#
-                        #{mod 8698}#))))))))))
-    (#{global-extend 4341}#
+                        #{x 9301}#
+                        #{w 8716}#
+                        #{mod 8718}#))))))))))
+    (#{global-extend 4339}#
       'core
       'letrec*
-      (lambda (#{e 9502}#
-               #{r 9503}#
-               #{w 9504}#
-               #{s 9505}#
-               #{mod 9506}#)
-        (let ((#{tmp 9508}#
+      (lambda (#{e 9526}#
+               #{r 9527}#
+               #{w 9528}#
+               #{s 9529}#
+               #{mod 9530}#)
+        (let ((#{tmp 9532}#
                 ($sc-dispatch
-                  #{e 9502}#
+                  #{e 9526}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 9508}#
+          (if (if #{tmp 9532}#
                 (@apply
-                  (lambda (#{id 9512}#
-                           #{val 9513}#
-                           #{e1 9514}#
-                           #{e2 9515}#)
-                    (and-map #{id? 4343}# #{id 9512}#))
-                  #{tmp 9508}#)
+                  (lambda (#{id 9536}#
+                           #{val 9537}#
+                           #{e1 9538}#
+                           #{e2 9539}#)
+                    (and-map #{id? 4341}# #{id 9536}#))
+                  #{tmp 9532}#)
                 #f)
             (@apply
-              (lambda (#{id 9531}#
-                       #{val 9532}#
-                       #{e1 9533}#
-                       #{e2 9534}#)
-                (if (not (#{valid-bound-ids? 4365}# #{id 9531}#))
+              (lambda (#{id 9555}#
+                       #{val 9556}#
+                       #{e1 9557}#
+                       #{e2 9558}#)
+                (if (not (#{valid-bound-ids? 4363}# #{id 9555}#))
                   (syntax-violation
                     'letrec*
                     "duplicate bound variable"
-                    #{e 9502}#)
-                  (let ((#{labels 9629}#
-                          (#{gen-labels 4346}# #{id 9531}#))
-                        (#{new-vars 9630}#
-                          (map #{gen-var 4389}# #{id 9531}#)))
-                    (let ((#{w 9631}#
-                            (#{make-binding-wrap 4357}#
-                              #{id 9531}#
-                              #{labels 9629}#
-                              #{w 9504}#))
-                          (#{r 9632}#
-                            (#{extend-var-env 4338}#
-                              #{labels 9629}#
-                              #{new-vars 9630}#
-                              #{r 9503}#)))
-                      (#{build-letrec 4327}#
-                        #{s 9505}#
+                    #{e 9526}#)
+                  (let ((#{labels 9655}#
+                          (#{gen-labels 4344}# #{id 9555}#))
+                        (#{new-vars 9656}#
+                          (map #{gen-var 4387}# #{id 9555}#)))
+                    (let ((#{w 9657}#
+                            (#{make-binding-wrap 4355}#
+                              #{id 9555}#
+                              #{labels 9655}#
+                              #{w 9528}#))
+                          (#{r 9658}#
+                            (#{extend-var-env 4336}#
+                              #{labels 9655}#
+                              #{new-vars 9656}#
+                              #{r 9527}#)))
+                      (#{build-letrec 4325}#
+                        #{s 9529}#
                         #t
-                        (map syntax->datum #{id 9531}#)
-                        #{new-vars 9630}#
-                        (map (lambda (#{x 9711}#)
-                               (#{chi 4375}#
-                                 #{x 9711}#
-                                 #{r 9632}#
-                                 #{w 9631}#
-                                 #{mod 9506}#))
-                             #{val 9532}#)
-                        (#{chi-body 4379}#
-                          (cons #{e1 9533}# #{e2 9534}#)
-                          (let ((#{x 9773}#
+                        (map syntax->datum #{id 9555}#)
+                        #{new-vars 9656}#
+                        (map (lambda (#{x 9737}#)
+                               (#{chi 4373}#
+                                 #{x 9737}#
+                                 #{r 9658}#
+                                 #{w 9657}#
+                                 #{mod 9530}#))
+                             #{val 9556}#)
+                        (#{chi-body 4377}#
+                          (cons #{e1 9557}# #{e2 9558}#)
+                          (let ((#{x 9799}#
                                   (begin
-                                    (if (if (pair? #{e 9502}#) #{s 9505}# #f)
+                                    (if (if (pair? #{e 9526}#) #{s 9529}# #f)
                                       (set-source-properties!
-                                        #{e 9502}#
-                                        #{s 9505}#))
-                                    #{e 9502}#)))
-                            (if (if (null? (car #{w 9631}#))
-                                  (null? (cdr #{w 9631}#))
+                                        #{e 9526}#
+                                        #{s 9529}#))
+                                    #{e 9526}#)))
+                            (if (if (null? (car #{w 9657}#))
+                                  (null? (cdr #{w 9657}#))
                                   #f)
-                              #{x 9773}#
-                              (if (if (vector? #{x 9773}#)
-                                    (if (= (vector-length #{x 9773}#) 4)
-                                      (eq? (vector-ref #{x 9773}# 0)
+                              #{x 9799}#
+                              (if (if (vector? #{x 9799}#)
+                                    (if (= (vector-length #{x 9799}#) 4)
+                                      (eq? (vector-ref #{x 9799}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
-                                (let ((#{expression 9805}#
-                                        (vector-ref #{x 9773}# 1))
-                                      (#{wrap 9806}#
-                                        (let ((#{w2 9814}#
-                                                (vector-ref #{x 9773}# 2)))
-                                          (let ((#{m1 9815}# (car #{w 9631}#))
-                                                (#{s1 9816}# (cdr #{w 9631}#)))
-                                            (if (null? #{m1 9815}#)
-                                              (if (null? #{s1 9816}#)
-                                                #{w2 9814}#
-                                                (cons (car #{w2 9814}#)
-                                                      (let ((#{m2 9831}#
-                                                              (cdr #{w2 
9814}#)))
-                                                        (if (null? #{m2 9831}#)
-                                                          #{s1 9816}#
+                                (let ((#{expression 9831}#
+                                        (vector-ref #{x 9799}# 1))
+                                      (#{wrap 9832}#
+                                        (let ((#{w2 9840}#
+                                                (vector-ref #{x 9799}# 2)))
+                                          (let ((#{m1 9841}# (car #{w 9657}#))
+                                                (#{s1 9842}# (cdr #{w 9657}#)))
+                                            (if (null? #{m1 9841}#)
+                                              (if (null? #{s1 9842}#)
+                                                #{w2 9840}#
+                                                (cons (car #{w2 9840}#)
+                                                      (let ((#{m2 9857}#
+                                                              (cdr #{w2 
9840}#)))
+                                                        (if (null? #{m2 9857}#)
+                                                          #{s1 9842}#
                                                           (append
-                                                            #{s1 9816}#
-                                                            #{m2 9831}#)))))
-                                              (cons (let ((#{m2 9839}#
-                                                            (car #{w2 9814}#)))
-                                                      (if (null? #{m2 9839}#)
-                                                        #{m1 9815}#
+                                                            #{s1 9842}#
+                                                            #{m2 9857}#)))))
+                                              (cons (let ((#{m2 9865}#
+                                                            (car #{w2 9840}#)))
+                                                      (if (null? #{m2 9865}#)
+                                                        #{m1 9841}#
                                                         (append
-                                                          #{m1 9815}#
-                                                          #{m2 9839}#)))
-                                                    (let ((#{m2 9847}#
-                                                            (cdr #{w2 9814}#)))
-                                                      (if (null? #{m2 9847}#)
-                                                        #{s1 9816}#
+                                                          #{m1 9841}#
+                                                          #{m2 9865}#)))
+                                                    (let ((#{m2 9873}#
+                                                            (cdr #{w2 9840}#)))
+                                                      (if (null? #{m2 9873}#)
+                                                        #{s1 9842}#
                                                         (append
-                                                          #{s1 9816}#
-                                                          #{m2 9847}#))))))))
-                                      (#{module 9807}#
-                                        (vector-ref #{x 9773}# 3)))
+                                                          #{s1 9842}#
+                                                          #{m2 9873}#))))))))
+                                      (#{module 9833}#
+                                        (vector-ref #{x 9799}# 3)))
                                   (vector
                                     'syntax-object
-                                    #{expression 9805}#
-                                    #{wrap 9806}#
-                                    #{module 9807}#))
-                                (if (null? #{x 9773}#)
-                                  #{x 9773}#
+                                    #{expression 9831}#
+                                    #{wrap 9832}#
+                                    #{module 9833}#))
+                                (if (null? #{x 9799}#)
+                                  #{x 9799}#
                                   (vector
                                     'syntax-object
-                                    #{x 9773}#
-                                    #{w 9631}#
-                                    #{mod 9506}#)))))
-                          #{r 9632}#
-                          #{w 9631}#
-                          #{mod 9506}#))))))
-              #{tmp 9508}#)
+                                    #{x 9799}#
+                                    #{w 9657}#
+                                    #{mod 9530}#)))))
+                          #{r 9658}#
+                          #{w 9657}#
+                          #{mod 9530}#))))))
+              #{tmp 9532}#)
             (syntax-violation
               'letrec*
               "bad letrec*"
-              (let ((#{x 10087}#
+              (let ((#{x 10113}#
                       (begin
-                        (if (if (pair? #{e 9502}#) #{s 9505}# #f)
-                          (set-source-properties! #{e 9502}# #{s 9505}#))
-                        #{e 9502}#)))
-                (if (if (null? (car #{w 9504}#))
-                      (null? (cdr #{w 9504}#))
+                        (if (if (pair? #{e 9526}#) #{s 9529}# #f)
+                          (set-source-properties! #{e 9526}# #{s 9529}#))
+                        #{e 9526}#)))
+                (if (if (null? (car #{w 9528}#))
+                      (null? (cdr #{w 9528}#))
                       #f)
-                  #{x 10087}#
-                  (if (if (vector? #{x 10087}#)
-                        (if (= (vector-length #{x 10087}#) 4)
-                          (eq? (vector-ref #{x 10087}# 0) 'syntax-object)
+                  #{x 10113}#
+                  (if (if (vector? #{x 10113}#)
+                        (if (= (vector-length #{x 10113}#) 4)
+                          (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (let ((#{expression 10119}# (vector-ref #{x 10087}# 1))
-                          (#{wrap 10120}#
-                            (let ((#{w2 10128}# (vector-ref #{x 10087}# 2)))
-                              (let ((#{m1 10129}# (car #{w 9504}#))
-                                    (#{s1 10130}# (cdr #{w 9504}#)))
-                                (if (null? #{m1 10129}#)
-                                  (if (null? #{s1 10130}#)
-                                    #{w2 10128}#
-                                    (cons (car #{w2 10128}#)
-                                          (let ((#{m2 10145}#
-                                                  (cdr #{w2 10128}#)))
-                                            (if (null? #{m2 10145}#)
-                                              #{s1 10130}#
+                    (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
+                          (#{wrap 10146}#
+                            (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
+                              (let ((#{m1 10155}# (car #{w 9528}#))
+                                    (#{s1 10156}# (cdr #{w 9528}#)))
+                                (if (null? #{m1 10155}#)
+                                  (if (null? #{s1 10156}#)
+                                    #{w2 10154}#
+                                    (cons (car #{w2 10154}#)
+                                          (let ((#{m2 10171}#
+                                                  (cdr #{w2 10154}#)))
+                                            (if (null? #{m2 10171}#)
+                                              #{s1 10156}#
                                               (append
-                                                #{s1 10130}#
-                                                #{m2 10145}#)))))
-                                  (cons (let ((#{m2 10153}#
-                                                (car #{w2 10128}#)))
-                                          (if (null? #{m2 10153}#)
-                                            #{m1 10129}#
+                                                #{s1 10156}#
+                                                #{m2 10171}#)))))
+                                  (cons (let ((#{m2 10179}#
+                                                (car #{w2 10154}#)))
+                                          (if (null? #{m2 10179}#)
+                                            #{m1 10155}#
                                             (append
-                                              #{m1 10129}#
-                                              #{m2 10153}#)))
-                                        (let ((#{m2 10161}#
-                                                (cdr #{w2 10128}#)))
-                                          (if (null? #{m2 10161}#)
-                                            #{s1 10130}#
+                                              #{m1 10155}#
+                                              #{m2 10179}#)))
+                                        (let ((#{m2 10187}#
+                                                (cdr #{w2 10154}#)))
+                                          (if (null? #{m2 10187}#)
+                                            #{s1 10156}#
                                             (append
-                                              #{s1 10130}#
-                                              #{m2 10161}#))))))))
-                          (#{module 10121}# (vector-ref #{x 10087}# 3)))
+                                              #{s1 10156}#
+                                              #{m2 10187}#))))))))
+                          (#{module 10147}# (vector-ref #{x 10113}# 3)))
                       (vector
                         'syntax-object
-                        #{expression 10119}#
-                        #{wrap 10120}#
-                        #{module 10121}#))
-                    (if (null? #{x 10087}#)
-                      #{x 10087}#
+                        #{expression 10145}#
+                        #{wrap 10146}#
+                        #{module 10147}#))
+                    (if (null? #{x 10113}#)
+                      #{x 10113}#
                       (vector
                         'syntax-object
-                        #{x 10087}#
-                        #{w 9504}#
-                        #{mod 9506}#))))))))))
-    (#{global-extend 4341}#
+                        #{x 10113}#
+                        #{w 9528}#
+                        #{mod 9530}#))))))))))
+    (#{global-extend 4339}#
       'core
       'set!
-      (lambda (#{e 10378}#
-               #{r 10379}#
-               #{w 10380}#
-               #{s 10381}#
-               #{mod 10382}#)
-        (let ((#{tmp 10384}#
-                ($sc-dispatch #{e 10378}# '(_ any any))))
-          (if (if #{tmp 10384}#
+      (lambda (#{e 10406}#
+               #{r 10407}#
+               #{w 10408}#
+               #{s 10409}#
+               #{mod 10410}#)
+        (let ((#{tmp 10412}#
+                ($sc-dispatch #{e 10406}# '(_ any any))))
+          (if (if #{tmp 10412}#
                 (@apply
-                  (lambda (#{id 10388}# #{val 10389}#)
-                    (if (symbol? #{id 10388}#)
+                  (lambda (#{id 10416}# #{val 10417}#)
+                    (if (symbol? #{id 10416}#)
                       #t
-                      (if (if (vector? #{id 10388}#)
-                            (if (= (vector-length #{id 10388}#) 4)
-                              (eq? (vector-ref #{id 10388}# 0) 'syntax-object)
+                      (if (if (vector? #{id 10416}#)
+                            (if (= (vector-length #{id 10416}#) 4)
+                              (eq? (vector-ref #{id 10416}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (symbol? (vector-ref #{id 10388}# 1))
+                        (symbol? (vector-ref #{id 10416}# 1))
                         #f)))
-                  #{tmp 10384}#)
+                  #{tmp 10412}#)
                 #f)
             (@apply
-              (lambda (#{id 10416}# #{val 10417}#)
-                (let ((#{n 10418}#
-                        (#{id-var-name 4362}# #{id 10416}# #{w 10380}#))
-                      (#{id-mod 10419}#
-                        (if (if (vector? #{id 10416}#)
-                              (if (= (vector-length #{id 10416}#) 4)
-                                (eq? (vector-ref #{id 10416}# 0)
+              (lambda (#{id 10444}# #{val 10445}#)
+                (let ((#{n 10446}#
+                        (#{id-var-name 4360}# #{id 10444}# #{w 10408}#))
+                      (#{id-mod 10447}#
+                        (if (if (vector? #{id 10444}#)
+                              (if (= (vector-length #{id 10444}#) 4)
+                                (eq? (vector-ref #{id 10444}# 0)
                                      'syntax-object)
                                 #f)
                               #f)
-                          (vector-ref #{id 10416}# 3)
-                          #{mod 10382}#)))
-                  (let ((#{b 10420}#
-                          (let ((#{t 11129}# (assq #{n 10418}# #{r 10379}#)))
-                            (if #{t 11129}#
-                              (cdr #{t 11129}#)
-                              (if (symbol? #{n 10418}#)
-                                (let ((#{t 11134}#
+                          (vector-ref #{id 10444}# 3)
+                          #{mod 10410}#)))
+                  (let ((#{b 10448}#
+                          (let ((#{t 11165}# (assq #{n 10446}# #{r 10407}#)))
+                            (if #{t 11165}#
+                              (cdr #{t 11165}#)
+                              (if (symbol? #{n 10446}#)
+                                (let ((#{t 11170}#
                                         (begin
-                                          (if (if (not #{id-mod 10419}#)
+                                          (if (if (not #{id-mod 10447}#)
                                                 (current-module)
                                                 #f)
                                             (warn "module system is booted, we 
should have a module"
-                                                  #{n 10418}#))
-                                          (let ((#{v 11171}#
+                                                  #{n 10446}#))
+                                          (let ((#{v 11207}#
                                                   (module-variable
-                                                    (if #{id-mod 10419}#
+                                                    (if #{id-mod 10447}#
                                                       (resolve-module
-                                                        (cdr #{id-mod 10419}#))
+                                                        (cdr #{id-mod 10447}#))
                                                       (current-module))
-                                                    #{n 10418}#)))
-                                            (if #{v 11171}#
-                                              (if (variable-bound? #{v 11171}#)
-                                                (let ((#{val 11180}#
+                                                    #{n 10446}#)))
+                                            (if #{v 11207}#
+                                              (if (variable-bound? #{v 11207}#)
+                                                (let ((#{val 11216}#
                                                         (variable-ref
-                                                          #{v 11171}#)))
-                                                  (if (macro? #{val 11180}#)
+                                                          #{v 11207}#)))
+                                                  (if (macro? #{val 11216}#)
                                                     (if (macro-type
-                                                          #{val 11180}#)
+                                                          #{val 11216}#)
                                                       (cons (macro-type
-                                                              #{val 11180}#)
+                                                              #{val 11216}#)
                                                             (macro-binding
-                                                              #{val 11180}#))
+                                                              #{val 11216}#))
                                                       #f)
                                                     #f))
                                                 #f)
                                               #f)))))
-                                  (if #{t 11134}# #{t 11134}# '(global)))
+                                  (if #{t 11170}# #{t 11170}# '(global)))
                                 '(displaced-lexical))))))
-                    (let ((#{atom-key 10421}# (car #{b 10420}#)))
-                      (if (let ((#{t 10460}# #{atom-key 10421}#))
-                            (eqv? #{t 10460}# 'lexical))
-                        (#{build-lexical-assignment 4313}#
-                          #{s 10381}#
-                          (syntax->datum #{id 10416}#)
-                          (cdr #{b 10420}#)
-                          (#{chi 4375}#
-                            #{val 10417}#
-                            #{r 10379}#
-                            #{w 10380}#
-                            #{mod 10382}#))
-                        (if (let ((#{t 10755}# #{atom-key 10421}#))
-                              (eqv? #{t 10755}# 'global))
-                          (#{build-global-assignment 4316}#
-                            #{s 10381}#
-                            #{n 10418}#
-                            (#{chi 4375}#
-                              #{val 10417}#
-                              #{r 10379}#
-                              #{w 10380}#
-                              #{mod 10382}#)
-                            #{id-mod 10419}#)
-                          (if (let ((#{t 11020}# #{atom-key 10421}#))
-                                (eqv? #{t 11020}# 'macro))
-                            (let ((#{p 11083}# (cdr #{b 10420}#)))
+                    (let ((#{atom-key 10449}# (car #{b 10448}#)))
+                      (if (let ((#{t 10488}# #{atom-key 10449}#))
+                            (eqv? #{t 10488}# 'lexical))
+                        (#{build-lexical-assignment 4311}#
+                          #{s 10409}#
+                          (syntax->datum #{id 10444}#)
+                          (cdr #{b 10448}#)
+                          (#{chi 4373}#
+                            #{val 10445}#
+                            #{r 10407}#
+                            #{w 10408}#
+                            #{mod 10410}#))
+                        (if (let ((#{t 10787}# #{atom-key 10449}#))
+                              (eqv? #{t 10787}# 'global))
+                          (#{build-global-assignment 4314}#
+                            #{s 10409}#
+                            #{n 10446}#
+                            (#{chi 4373}#
+                              #{val 10445}#
+                              #{r 10407}#
+                              #{w 10408}#
+                              #{mod 10410}#)
+                            #{id-mod 10447}#)
+                          (if (let ((#{t 11056}# #{atom-key 10449}#))
+                                (eqv? #{t 11056}# 'macro))
+                            (let ((#{p 11119}# (cdr #{b 10448}#)))
                               (if (procedure-property
-                                    #{p 11083}#
+                                    #{p 11119}#
                                     'variable-transformer)
-                                (#{chi 4375}#
-                                  (#{chi-macro 4378}#
-                                    #{p 11083}#
-                                    #{e 10378}#
-                                    #{r 10379}#
-                                    #{w 10380}#
-                                    #{s 10381}#
+                                (#{chi 4373}#
+                                  (#{chi-macro 4376}#
+                                    #{p 11119}#
+                                    #{e 10406}#
+                                    #{r 10407}#
+                                    #{w 10408}#
+                                    #{s 10409}#
                                     #f
-                                    #{mod 10382}#)
-                                  #{r 10379}#
+                                    #{mod 10410}#)
+                                  #{r 10407}#
                                   '(())
-                                  #{mod 10382}#)
+                                  #{mod 10410}#)
                                 (syntax-violation
                                   'set!
                                   "not a variable transformer"
-                                  (if (if (null? (car #{w 10380}#))
-                                        (null? (cdr #{w 10380}#))
+                                  (if (if (null? (car #{w 10408}#))
+                                        (null? (cdr #{w 10408}#))
                                         #f)
-                                    #{e 10378}#
-                                    (if (if (vector? #{e 10378}#)
-                                          (if (= (vector-length #{e 10378}#) 4)
-                                            (eq? (vector-ref #{e 10378}# 0)
+                                    #{e 10406}#
+                                    (if (if (vector? #{e 10406}#)
+                                          (if (= (vector-length #{e 10406}#) 4)
+                                            (eq? (vector-ref #{e 10406}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (let ((#{expression 11283}#
-                                              (vector-ref #{e 10378}# 1))
-                                            (#{wrap 11284}#
-                                              (let ((#{w2 11294}#
+                                      (let ((#{expression 11321}#
+                                              (vector-ref #{e 10406}# 1))
+                                            (#{wrap 11322}#
+                                              (let ((#{w2 11332}#
                                                       (vector-ref
-                                                        #{e 10378}#
+                                                        #{e 10406}#
                                                         2)))
-                                                (let ((#{m1 11295}#
-                                                        (car #{w 10380}#))
-                                                      (#{s1 11296}#
-                                                        (cdr #{w 10380}#)))
-                                                  (if (null? #{m1 11295}#)
-                                                    (if (null? #{s1 11296}#)
-                                                      #{w2 11294}#
-                                                      (cons (car #{w2 11294}#)
-                                                            (let ((#{m2 11313}#
-                                                                    (cdr #{w2 
11294}#)))
-                                                              (if (null? #{m2 
11313}#)
-                                                                #{s1 11296}#
+                                                (let ((#{m1 11333}#
+                                                        (car #{w 10408}#))
+                                                      (#{s1 11334}#
+                                                        (cdr #{w 10408}#)))
+                                                  (if (null? #{m1 11333}#)
+                                                    (if (null? #{s1 11334}#)
+                                                      #{w2 11332}#
+                                                      (cons (car #{w2 11332}#)
+                                                            (let ((#{m2 11351}#
+                                                                    (cdr #{w2 
11332}#)))
+                                                              (if (null? #{m2 
11351}#)
+                                                                #{s1 11334}#
                                                                 (append
-                                                                  #{s1 11296}#
-                                                                  #{m2 
11313}#)))))
-                                                    (cons (let ((#{m2 11321}#
-                                                                  (car #{w2 
11294}#)))
-                                                            (if (null? #{m2 
11321}#)
-                                                              #{m1 11295}#
+                                                                  #{s1 11334}#
+                                                                  #{m2 
11351}#)))))
+                                                    (cons (let ((#{m2 11359}#
+                                                                  (car #{w2 
11332}#)))
+                                                            (if (null? #{m2 
11359}#)
+                                                              #{m1 11333}#
                                                               (append
-                                                                #{m1 11295}#
-                                                                #{m2 11321}#)))
-                                                          (let ((#{m2 11329}#
-                                                                  (cdr #{w2 
11294}#)))
-                                                            (if (null? #{m2 
11329}#)
-                                                              #{s1 11296}#
+                                                                #{m1 11333}#
+                                                                #{m2 11359}#)))
+                                                          (let ((#{m2 11367}#
+                                                                  (cdr #{w2 
11332}#)))
+                                                            (if (null? #{m2 
11367}#)
+                                                              #{s1 11334}#
                                                               (append
-                                                                #{s1 11296}#
-                                                                #{m2 
11329}#))))))))
-                                            (#{module 11285}#
-                                              (vector-ref #{e 10378}# 3)))
+                                                                #{s1 11334}#
+                                                                #{m2 
11367}#))))))))
+                                            (#{module 11323}#
+                                              (vector-ref #{e 10406}# 3)))
                                         (vector
                                           'syntax-object
-                                          #{expression 11283}#
-                                          #{wrap 11284}#
-                                          #{module 11285}#))
-                                      (if (null? #{e 10378}#)
-                                        #{e 10378}#
+                                          #{expression 11321}#
+                                          #{wrap 11322}#
+                                          #{module 11323}#))
+                                      (if (null? #{e 10406}#)
+                                        #{e 10406}#
                                         (vector
                                           'syntax-object
-                                          #{e 10378}#
-                                          #{w 10380}#
-                                          #{mod 10382}#))))
-                                  (if (if (null? (car #{w 10380}#))
-                                        (null? (cdr #{w 10380}#))
+                                          #{e 10406}#
+                                          #{w 10408}#
+                                          #{mod 10410}#))))
+                                  (if (if (null? (car #{w 10408}#))
+                                        (null? (cdr #{w 10408}#))
                                         #f)
-                                    #{id 10416}#
-                                    (if (if (vector? #{id 10416}#)
-                                          (if (= (vector-length #{id 10416}#)
+                                    #{id 10444}#
+                                    (if (if (vector? #{id 10444}#)
+                                          (if (= (vector-length #{id 10444}#)
                                                  4)
-                                            (eq? (vector-ref #{id 10416}# 0)
+                                            (eq? (vector-ref #{id 10444}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (let ((#{expression 11381}#
-                                              (vector-ref #{id 10416}# 1))
-                                            (#{wrap 11382}#
-                                              (let ((#{w2 11392}#
+                                      (let ((#{expression 11419}#
+                                              (vector-ref #{id 10444}# 1))
+                                            (#{wrap 11420}#
+                                              (let ((#{w2 11430}#
                                                       (vector-ref
-                                                        #{id 10416}#
+                                                        #{id 10444}#
                                                         2)))
-                                                (let ((#{m1 11393}#
-                                                        (car #{w 10380}#))
-                                                      (#{s1 11394}#
-                                                        (cdr #{w 10380}#)))
-                                                  (if (null? #{m1 11393}#)
-                                                    (if (null? #{s1 11394}#)
-                                                      #{w2 11392}#
-                                                      (cons (car #{w2 11392}#)
-                                                            (let ((#{m2 11411}#
-                                                                    (cdr #{w2 
11392}#)))
-                                                              (if (null? #{m2 
11411}#)
-                                                                #{s1 11394}#
+                                                (let ((#{m1 11431}#
+                                                        (car #{w 10408}#))
+                                                      (#{s1 11432}#
+                                                        (cdr #{w 10408}#)))
+                                                  (if (null? #{m1 11431}#)
+                                                    (if (null? #{s1 11432}#)
+                                                      #{w2 11430}#
+                                                      (cons (car #{w2 11430}#)
+                                                            (let ((#{m2 11449}#
+                                                                    (cdr #{w2 
11430}#)))
+                                                              (if (null? #{m2 
11449}#)
+                                                                #{s1 11432}#
                                                                 (append
-                                                                  #{s1 11394}#
-                                                                  #{m2 
11411}#)))))
-                                                    (cons (let ((#{m2 11419}#
-                                                                  (car #{w2 
11392}#)))
-                                                            (if (null? #{m2 
11419}#)
-                                                              #{m1 11393}#
+                                                                  #{s1 11432}#
+                                                                  #{m2 
11449}#)))))
+                                                    (cons (let ((#{m2 11457}#
+                                                                  (car #{w2 
11430}#)))
+                                                            (if (null? #{m2 
11457}#)
+                                                              #{m1 11431}#
                                                               (append
-                                                                #{m1 11393}#
-                                                                #{m2 11419}#)))
-                                                          (let ((#{m2 11427}#
-                                                                  (cdr #{w2 
11392}#)))
-                                                            (if (null? #{m2 
11427}#)
-                                                              #{s1 11394}#
+                                                                #{m1 11431}#
+                                                                #{m2 11457}#)))
+                                                          (let ((#{m2 11465}#
+                                                                  (cdr #{w2 
11430}#)))
+                                                            (if (null? #{m2 
11465}#)
+                                                              #{s1 11432}#
                                                               (append
-                                                                #{s1 11394}#
-                                                                #{m2 
11427}#))))))))
-                                            (#{module 11383}#
-                                              (vector-ref #{id 10416}# 3)))
+                                                                #{s1 11432}#
+                                                                #{m2 
11465}#))))))))
+                                            (#{module 11421}#
+                                              (vector-ref #{id 10444}# 3)))
                                         (vector
                                           'syntax-object
-                                          #{expression 11381}#
-                                          #{wrap 11382}#
-                                          #{module 11383}#))
-                                      (if (null? #{id 10416}#)
-                                        #{id 10416}#
+                                          #{expression 11419}#
+                                          #{wrap 11420}#
+                                          #{module 11421}#))
+                                      (if (null? #{id 10444}#)
+                                        #{id 10444}#
                                         (vector
                                           'syntax-object
-                                          #{id 10416}#
-                                          #{w 10380}#
-                                          #{id-mod 10419}#)))))))
-                            (if (eqv? #{atom-key 10421}# 'displaced-lexical)
+                                          #{id 10444}#
+                                          #{w 10408}#
+                                          #{id-mod 10447}#)))))))
+                            (if (eqv? #{atom-key 10449}# 'displaced-lexical)
                               (syntax-violation
                                 'set!
                                 "identifier out of context"
-                                (if (if (null? (car #{w 10380}#))
-                                      (null? (cdr #{w 10380}#))
+                                (if (if (null? (car #{w 10408}#))
+                                      (null? (cdr #{w 10408}#))
                                       #f)
-                                  #{id 10416}#
-                                  (if (if (vector? #{id 10416}#)
-                                        (if (= (vector-length #{id 10416}#) 4)
-                                          (eq? (vector-ref #{id 10416}# 0)
+                                  #{id 10444}#
+                                  (if (if (vector? #{id 10444}#)
+                                        (if (= (vector-length #{id 10444}#) 4)
+                                          (eq? (vector-ref #{id 10444}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (let ((#{expression 11483}#
-                                            (vector-ref #{id 10416}# 1))
-                                          (#{wrap 11484}#
-                                            (let ((#{w2 11494}#
+                                    (let ((#{expression 11521}#
+                                            (vector-ref #{id 10444}# 1))
+                                          (#{wrap 11522}#
+                                            (let ((#{w2 11532}#
                                                     (vector-ref
-                                                      #{id 10416}#
+                                                      #{id 10444}#
                                                       2)))
-                                              (let ((#{m1 11495}#
-                                                      (car #{w 10380}#))
-                                                    (#{s1 11496}#
-                                                      (cdr #{w 10380}#)))
-                                                (if (null? #{m1 11495}#)
-                                                  (if (null? #{s1 11496}#)
-                                                    #{w2 11494}#
-                                                    (cons (car #{w2 11494}#)
-                                                          (let ((#{m2 11513}#
-                                                                  (cdr #{w2 
11494}#)))
-                                                            (if (null? #{m2 
11513}#)
-                                                              #{s1 11496}#
+                                              (let ((#{m1 11533}#
+                                                      (car #{w 10408}#))
+                                                    (#{s1 11534}#
+                                                      (cdr #{w 10408}#)))
+                                                (if (null? #{m1 11533}#)
+                                                  (if (null? #{s1 11534}#)
+                                                    #{w2 11532}#
+                                                    (cons (car #{w2 11532}#)
+                                                          (let ((#{m2 11551}#
+                                                                  (cdr #{w2 
11532}#)))
+                                                            (if (null? #{m2 
11551}#)
+                                                              #{s1 11534}#
                                                               (append
-                                                                #{s1 11496}#
-                                                                #{m2 
11513}#)))))
-                                                  (cons (let ((#{m2 11521}#
-                                                                (car #{w2 
11494}#)))
-                                                          (if (null? #{m2 
11521}#)
-                                                            #{m1 11495}#
+                                                                #{s1 11534}#
+                                                                #{m2 
11551}#)))))
+                                                  (cons (let ((#{m2 11559}#
+                                                                (car #{w2 
11532}#)))
+                                                          (if (null? #{m2 
11559}#)
+                                                            #{m1 11533}#
                                                             (append
-                                                              #{m1 11495}#
-                                                              #{m2 11521}#)))
-                                                        (let ((#{m2 11529}#
-                                                                (cdr #{w2 
11494}#)))
-                                                          (if (null? #{m2 
11529}#)
-                                                            #{s1 11496}#
+                                                              #{m1 11533}#
+                                                              #{m2 11559}#)))
+                                                        (let ((#{m2 11567}#
+                                                                (cdr #{w2 
11532}#)))
+                                                          (if (null? #{m2 
11567}#)
+                                                            #{s1 11534}#
                                                             (append
-                                                              #{s1 11496}#
-                                                              #{m2 
11529}#))))))))
-                                          (#{module 11485}#
-                                            (vector-ref #{id 10416}# 3)))
+                                                              #{s1 11534}#
+                                                              #{m2 
11567}#))))))))
+                                          (#{module 11523}#
+                                            (vector-ref #{id 10444}# 3)))
                                       (vector
                                         'syntax-object
-                                        #{expression 11483}#
-                                        #{wrap 11484}#
-                                        #{module 11485}#))
-                                    (if (null? #{id 10416}#)
-                                      #{id 10416}#
+                                        #{expression 11521}#
+                                        #{wrap 11522}#
+                                        #{module 11523}#))
+                                    (if (null? #{id 10444}#)
+                                      #{id 10444}#
                                       (vector
                                         'syntax-object
-                                        #{id 10416}#
-                                        #{w 10380}#
-                                        #{mod 10382}#)))))
+                                        #{id 10444}#
+                                        #{w 10408}#
+                                        #{mod 10410}#)))))
                               (syntax-violation
                                 'set!
                                 "bad set!"
-                                (let ((#{x 11561}#
+                                (let ((#{x 11599}#
                                         (begin
-                                          (if (if (pair? #{e 10378}#)
-                                                #{s 10381}#
+                                          (if (if (pair? #{e 10406}#)
+                                                #{s 10409}#
                                                 #f)
                                             (set-source-properties!
-                                              #{e 10378}#
-                                              #{s 10381}#))
-                                          #{e 10378}#)))
-                                  (if (if (null? (car #{w 10380}#))
-                                        (null? (cdr #{w 10380}#))
+                                              #{e 10406}#
+                                              #{s 10409}#))
+                                          #{e 10406}#)))
+                                  (if (if (null? (car #{w 10408}#))
+                                        (null? (cdr #{w 10408}#))
                                         #f)
-                                    #{x 11561}#
-                                    (if (if (vector? #{x 11561}#)
-                                          (if (= (vector-length #{x 11561}#) 4)
-                                            (eq? (vector-ref #{x 11561}# 0)
+                                    #{x 11599}#
+                                    (if (if (vector? #{x 11599}#)
+                                          (if (= (vector-length #{x 11599}#) 4)
+                                            (eq? (vector-ref #{x 11599}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (let ((#{expression 11593}#
-                                              (vector-ref #{x 11561}# 1))
-                                            (#{wrap 11594}#
-                                              (let ((#{w2 11602}#
+                                      (let ((#{expression 11631}#
+                                              (vector-ref #{x 11599}# 1))
+                                            (#{wrap 11632}#
+                                              (let ((#{w2 11640}#
                                                       (vector-ref
-                                                        #{x 11561}#
+                                                        #{x 11599}#
                                                         2)))
-                                                (let ((#{m1 11603}#
-                                                        (car #{w 10380}#))
-                                                      (#{s1 11604}#
-                                                        (cdr #{w 10380}#)))
-                                                  (if (null? #{m1 11603}#)
-                                                    (if (null? #{s1 11604}#)
-                                                      #{w2 11602}#
-                                                      (cons (car #{w2 11602}#)
-                                                            (let ((#{m2 11619}#
-                                                                    (cdr #{w2 
11602}#)))
-                                                              (if (null? #{m2 
11619}#)
-                                                                #{s1 11604}#
+                                                (let ((#{m1 11641}#
+                                                        (car #{w 10408}#))
+                                                      (#{s1 11642}#
+                                                        (cdr #{w 10408}#)))
+                                                  (if (null? #{m1 11641}#)
+                                                    (if (null? #{s1 11642}#)
+                                                      #{w2 11640}#
+                                                      (cons (car #{w2 11640}#)
+                                                            (let ((#{m2 11657}#
+                                                                    (cdr #{w2 
11640}#)))
+                                                              (if (null? #{m2 
11657}#)
+                                                                #{s1 11642}#
                                                                 (append
-                                                                  #{s1 11604}#
-                                                                  #{m2 
11619}#)))))
-                                                    (cons (let ((#{m2 11627}#
-                                                                  (car #{w2 
11602}#)))
-                                                            (if (null? #{m2 
11627}#)
-                                                              #{m1 11603}#
+                                                                  #{s1 11642}#
+                                                                  #{m2 
11657}#)))))
+                                                    (cons (let ((#{m2 11665}#
+                                                                  (car #{w2 
11640}#)))
+                                                            (if (null? #{m2 
11665}#)
+                                                              #{m1 11641}#
                                                               (append
-                                                                #{m1 11603}#
-                                                                #{m2 11627}#)))
-                                                          (let ((#{m2 11635}#
-                                                                  (cdr #{w2 
11602}#)))
-                                                            (if (null? #{m2 
11635}#)
-                                                              #{s1 11604}#
+                                                                #{m1 11641}#
+                                                                #{m2 11665}#)))
+                                                          (let ((#{m2 11673}#
+                                                                  (cdr #{w2 
11640}#)))
+                                                            (if (null? #{m2 
11673}#)
+                                                              #{s1 11642}#
                                                               (append
-                                                                #{s1 11604}#
-                                                                #{m2 
11635}#))))))))
-                                            (#{module 11595}#
-                                              (vector-ref #{x 11561}# 3)))
+                                                                #{s1 11642}#
+                                                                #{m2 
11673}#))))))))
+                                            (#{module 11633}#
+                                              (vector-ref #{x 11599}# 3)))
                                         (vector
                                           'syntax-object
-                                          #{expression 11593}#
-                                          #{wrap 11594}#
-                                          #{module 11595}#))
-                                      (if (null? #{x 11561}#)
-                                        #{x 11561}#
+                                          #{expression 11631}#
+                                          #{wrap 11632}#
+                                          #{module 11633}#))
+                                      (if (null? #{x 11599}#)
+                                        #{x 11599}#
                                         (vector
                                           'syntax-object
-                                          #{x 11561}#
-                                          #{w 10380}#
-                                          #{mod 10382}#))))))))))))))
-              #{tmp 10384}#)
-            (let ((#{tmp 11650}#
+                                          #{x 11599}#
+                                          #{w 10408}#
+                                          #{mod 10410}#))))))))))))))
+              #{tmp 10412}#)
+            (let ((#{tmp 11688}#
                     ($sc-dispatch
-                      #{e 10378}#
+                      #{e 10406}#
                       '(_ (any . each-any) any))))
-              (if #{tmp 11650}#
+              (if #{tmp 11688}#
                 (@apply
-                  (lambda (#{head 11654}# #{tail 11655}# #{val 11656}#)
+                  (lambda (#{head 11692}# #{tail 11693}# #{val 11694}#)
                     (call-with-values
                       (lambda ()
-                        (#{syntax-type 4374}#
-                          #{head 11654}#
-                          #{r 10379}#
+                        (#{syntax-type 4372}#
+                          #{head 11692}#
+                          #{r 10407}#
                           '(())
                           #f
                           #f
-                          #{mod 10382}#
+                          #{mod 10410}#
                           #t))
-                      (lambda (#{type 11659}#
-                               #{value 11660}#
-                               #{ee 11661}#
-                               #{ww 11662}#
-                               #{ss 11663}#
-                               #{modmod 11664}#)
-                        (if (eqv? #{type 11659}# 'module-ref)
-                          (let ((#{val 11668}#
-                                  (#{chi 4375}#
-                                    #{val 11656}#
-                                    #{r 10379}#
-                                    #{w 10380}#
-                                    #{mod 10382}#)))
+                      (lambda (#{type 11697}#
+                               #{value 11698}#
+                               #{ee 11699}#
+                               #{ww 11700}#
+                               #{ss 11701}#
+                               #{modmod 11702}#)
+                        (if (eqv? #{type 11697}# 'module-ref)
+                          (let ((#{val 11706}#
+                                  (#{chi 4373}#
+                                    #{val 11694}#
+                                    #{r 10407}#
+                                    #{w 10408}#
+                                    #{mod 10410}#)))
                             (call-with-values
                               (lambda ()
-                                (#{value 11660}#
-                                  (cons #{head 11654}# #{tail 11655}#)
-                                  #{r 10379}#
-                                  #{w 10380}#))
-                              (lambda (#{e 11669}#
-                                       #{r 11670}#
-                                       #{w 11671}#
-                                       #{s* 11672}#
-                                       #{mod 11673}#)
-                                (let ((#{tmp 11675}# (list #{e 11669}#)))
+                                (#{value 11698}#
+                                  (cons #{head 11692}# #{tail 11693}#)
+                                  #{r 10407}#
+                                  #{w 10408}#))
+                              (lambda (#{e 11707}#
+                                       #{r 11708}#
+                                       #{w 11709}#
+                                       #{s* 11710}#
+                                       #{mod 11711}#)
+                                (let ((#{tmp 11713}# (list #{e 11707}#)))
                                   (if (@apply
-                                        (lambda (#{e 11677}#)
-                                          (if (symbol? #{e 11677}#)
+                                        (lambda (#{e 11715}#)
+                                          (if (symbol? #{e 11715}#)
                                             #t
-                                            (if (if (vector? #{e 11677}#)
+                                            (if (if (vector? #{e 11715}#)
                                                   (if (= (vector-length
-                                                           #{e 11677}#)
+                                                           #{e 11715}#)
                                                          4)
                                                     (eq? (vector-ref
-                                                           #{e 11677}#
+                                                           #{e 11715}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (symbol?
-                                                (vector-ref #{e 11677}# 1))
+                                                (vector-ref #{e 11715}# 1))
                                               #f)))
-                                        #{tmp 11675}#)
+                                        #{tmp 11713}#)
                                     (@apply
-                                      (lambda (#{e 11707}#)
-                                        (#{build-global-assignment 4316}#
-                                          #{s 10381}#
-                                          (syntax->datum #{e 11707}#)
-                                          #{val 11668}#
-                                          #{mod 11673}#))
-                                      #{tmp 11675}#)
+                                      (lambda (#{e 11745}#)
+                                        (#{build-global-assignment 4314}#
+                                          #{s 10409}#
+                                          (syntax->datum #{e 11745}#)
+                                          #{val 11706}#
+                                          #{mod 11711}#))
+                                      #{tmp 11713}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any 
pattern"
-                                      #{e 11669}#))))))
-                          (#{build-call 4309}#
-                            #{s 10381}#
-                            (#{chi 4375}#
+                                      #{e 11707}#))))))
+                          (#{build-call 4307}#
+                            #{s 10409}#
+                            (#{chi 4373}#
                               (list '#(syntax-object
                                        setter
                                        ((top)
@@ -11028,25 +11011,25 @@
                                             (top)
                                             (top)
                                             (top))
-                                          #("i3587"
+                                          #("i3585"
+                                            "i3586"
+                                            "i3587"
                                             "i3588"
                                             "i3589"
-                                            "i3590"
-                                            "i3591"
-                                            "i3592"))
+                                            "i3590"))
                                         #(ribcage
                                           #(head tail val)
                                           #((top) (top) (top))
-                                          #("i3573" "i3574" "i3575"))
+                                          #("i3571" "i3572" "i3573"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(e r w s mod)
                                           #((top) (top) (top) (top) (top))
-                                          #("i3537"
+                                          #("i3535"
+                                            "i3536"
+                                            "i3537"
                                             "i3538"
-                                            "i3539"
-                                            "i3540"
-                                            "i3541"))
+                                            "i3539"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
@@ -11469,113 +11452,113 @@
                                           ((top) (top) (top))
                                           ("i46" "i45" "i44")))
                                        (hygiene guile))
-                                    #{head 11654}#)
-                              #{r 10379}#
-                              #{w 10380}#
-                              #{mod 10382}#)
-                            (map (lambda (#{e 12028}#)
-                                   (#{chi 4375}#
-                                     #{e 12028}#
-                                     #{r 10379}#
-                                     #{w 10380}#
-                                     #{mod 10382}#))
+                                    #{head 11692}#)
+                              #{r 10407}#
+                              #{w 10408}#
+                              #{mod 10410}#)
+                            (map (lambda (#{e 12074}#)
+                                   (#{chi 4373}#
+                                     #{e 12074}#
+                                     #{r 10407}#
+                                     #{w 10408}#
+                                     #{mod 10410}#))
                                  (append
-                                   #{tail 11655}#
-                                   (list #{val 11656}#))))))))
-                  #{tmp 11650}#)
+                                   #{tail 11693}#
+                                   (list #{val 11694}#))))))))
+                  #{tmp 11688}#)
                 (syntax-violation
                   'set!
                   "bad set!"
-                  (let ((#{x 12118}#
+                  (let ((#{x 12166}#
                           (begin
-                            (if (if (pair? #{e 10378}#) #{s 10381}# #f)
-                              (set-source-properties! #{e 10378}# #{s 10381}#))
-                            #{e 10378}#)))
-                    (if (if (null? (car #{w 10380}#))
-                          (null? (cdr #{w 10380}#))
+                            (if (if (pair? #{e 10406}#) #{s 10409}# #f)
+                              (set-source-properties! #{e 10406}# #{s 10409}#))
+                            #{e 10406}#)))
+                    (if (if (null? (car #{w 10408}#))
+                          (null? (cdr #{w 10408}#))
                           #f)
-                      #{x 12118}#
-                      (if (if (vector? #{x 12118}#)
-                            (if (= (vector-length #{x 12118}#) 4)
-                              (eq? (vector-ref #{x 12118}# 0) 'syntax-object)
+                      #{x 12166}#
+                      (if (if (vector? #{x 12166}#)
+                            (if (= (vector-length #{x 12166}#) 4)
+                              (eq? (vector-ref #{x 12166}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (let ((#{expression 12150}# (vector-ref #{x 12118}# 1))
-                              (#{wrap 12151}#
-                                (let ((#{w2 12159}#
-                                        (vector-ref #{x 12118}# 2)))
-                                  (let ((#{m1 12160}# (car #{w 10380}#))
-                                        (#{s1 12161}# (cdr #{w 10380}#)))
-                                    (if (null? #{m1 12160}#)
-                                      (if (null? #{s1 12161}#)
-                                        #{w2 12159}#
-                                        (cons (car #{w2 12159}#)
-                                              (let ((#{m2 12176}#
-                                                      (cdr #{w2 12159}#)))
-                                                (if (null? #{m2 12176}#)
-                                                  #{s1 12161}#
+                        (let ((#{expression 12198}# (vector-ref #{x 12166}# 1))
+                              (#{wrap 12199}#
+                                (let ((#{w2 12207}#
+                                        (vector-ref #{x 12166}# 2)))
+                                  (let ((#{m1 12208}# (car #{w 10408}#))
+                                        (#{s1 12209}# (cdr #{w 10408}#)))
+                                    (if (null? #{m1 12208}#)
+                                      (if (null? #{s1 12209}#)
+                                        #{w2 12207}#
+                                        (cons (car #{w2 12207}#)
+                                              (let ((#{m2 12224}#
+                                                      (cdr #{w2 12207}#)))
+                                                (if (null? #{m2 12224}#)
+                                                  #{s1 12209}#
                                                   (append
-                                                    #{s1 12161}#
-                                                    #{m2 12176}#)))))
-                                      (cons (let ((#{m2 12184}#
-                                                    (car #{w2 12159}#)))
-                                              (if (null? #{m2 12184}#)
-                                                #{m1 12160}#
+                                                    #{s1 12209}#
+                                                    #{m2 12224}#)))))
+                                      (cons (let ((#{m2 12232}#
+                                                    (car #{w2 12207}#)))
+                                              (if (null? #{m2 12232}#)
+                                                #{m1 12208}#
                                                 (append
-                                                  #{m1 12160}#
-                                                  #{m2 12184}#)))
-                                            (let ((#{m2 12192}#
-                                                    (cdr #{w2 12159}#)))
-                                              (if (null? #{m2 12192}#)
-                                                #{s1 12161}#
+                                                  #{m1 12208}#
+                                                  #{m2 12232}#)))
+                                            (let ((#{m2 12240}#
+                                                    (cdr #{w2 12207}#)))
+                                              (if (null? #{m2 12240}#)
+                                                #{s1 12209}#
                                                 (append
-                                                  #{s1 12161}#
-                                                  #{m2 12192}#))))))))
-                              (#{module 12152}# (vector-ref #{x 12118}# 3)))
+                                                  #{s1 12209}#
+                                                  #{m2 12240}#))))))))
+                              (#{module 12200}# (vector-ref #{x 12166}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 12150}#
-                            #{wrap 12151}#
-                            #{module 12152}#))
-                        (if (null? #{x 12118}#)
-                          #{x 12118}#
+                            #{expression 12198}#
+                            #{wrap 12199}#
+                            #{module 12200}#))
+                        (if (null? #{x 12166}#)
+                          #{x 12166}#
                           (vector
                             'syntax-object
-                            #{x 12118}#
-                            #{w 10380}#
-                            #{mod 10382}#))))))))))))
+                            #{x 12166}#
+                            #{w 10408}#
+                            #{mod 10410}#))))))))))))
     (module-define!
       (current-module)
       '@
       (make-syntax-transformer
         '@
         'module-ref
-        (lambda (#{e 12223}# #{r 12224}# #{w 12225}#)
-          (let ((#{tmp 12227}#
-                  ($sc-dispatch #{e 12223}# '(_ each-any any))))
-            (if (if #{tmp 12227}#
+        (lambda (#{e 12271}# #{r 12272}# #{w 12273}#)
+          (let ((#{tmp 12275}#
+                  ($sc-dispatch #{e 12271}# '(_ each-any any))))
+            (if (if #{tmp 12275}#
                   (@apply
-                    (lambda (#{mod 12230}# #{id 12231}#)
-                      (if (and-map #{id? 4343}# #{mod 12230}#)
-                        (if (symbol? #{id 12231}#)
+                    (lambda (#{mod 12278}# #{id 12279}#)
+                      (if (and-map #{id? 4341}# #{mod 12278}#)
+                        (if (symbol? #{id 12279}#)
                           #t
-                          (if (if (vector? #{id 12231}#)
-                                (if (= (vector-length #{id 12231}#) 4)
-                                  (eq? (vector-ref #{id 12231}# 0)
+                          (if (if (vector? #{id 12279}#)
+                                (if (= (vector-length #{id 12279}#) 4)
+                                  (eq? (vector-ref #{id 12279}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{id 12231}# 1))
+                            (symbol? (vector-ref #{id 12279}# 1))
                             #f))
                         #f))
-                    #{tmp 12227}#)
+                    #{tmp 12275}#)
                   #f)
               (@apply
-                (lambda (#{mod 12271}# #{id 12272}#)
+                (lambda (#{mod 12319}# #{id 12320}#)
                   (values
-                    (syntax->datum #{id 12272}#)
-                    #{r 12224}#
-                    #{w 12225}#
+                    (syntax->datum #{id 12320}#)
+                    #{r 12272}#
+                    #{w 12273}#
                     #f
                     (syntax->datum
                       (cons '#(syntax-object
@@ -11584,12 +11567,12 @@
                                 #(ribcage
                                   #(mod id)
                                   #((top) (top))
-                                  #("i3634" "i3635"))
+                                  #("i3632" "i3633"))
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(e r w)
                                   #((top) (top) (top))
-                                  #("i3622" "i3623" "i3624"))
+                                  #("i3620" "i3621" "i3622"))
                                 #(ribcage
                                   (lambda-var-list
                                     gen-var
@@ -12012,70 +11995,70 @@
                                   ((top) (top) (top))
                                   ("i46" "i45" "i44")))
                                (hygiene guile))
-                            #{mod 12271}#))))
-                #{tmp 12227}#)
+                            #{mod 12319}#))))
+                #{tmp 12275}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{e 12223}#))))))
-    (#{global-extend 4341}#
+                #{e 12271}#))))))
+    (#{global-extend 4339}#
       'module-ref
       '@@
-      (lambda (#{e 12374}# #{r 12375}# #{w 12376}#)
+      (lambda (#{e 12424}# #{r 12425}# #{w 12426}#)
         (letrec*
-          ((#{remodulate 12377}#
-             (lambda (#{x 12601}# #{mod 12602}#)
-               (if (pair? #{x 12601}#)
-                 (cons (#{remodulate 12377}#
-                         (car #{x 12601}#)
-                         #{mod 12602}#)
-                       (#{remodulate 12377}#
-                         (cdr #{x 12601}#)
-                         #{mod 12602}#))
-                 (if (if (vector? #{x 12601}#)
-                       (if (= (vector-length #{x 12601}#) 4)
-                         (eq? (vector-ref #{x 12601}# 0) 'syntax-object)
+          ((#{remodulate 12427}#
+             (lambda (#{x 12663}# #{mod 12664}#)
+               (if (pair? #{x 12663}#)
+                 (cons (#{remodulate 12427}#
+                         (car #{x 12663}#)
+                         #{mod 12664}#)
+                       (#{remodulate 12427}#
+                         (cdr #{x 12663}#)
+                         #{mod 12664}#))
+                 (if (if (vector? #{x 12663}#)
+                       (if (= (vector-length #{x 12663}#) 4)
+                         (eq? (vector-ref #{x 12663}# 0) 'syntax-object)
                          #f)
                        #f)
-                   (let ((#{expression 12616}#
-                           (#{remodulate 12377}#
-                             (vector-ref #{x 12601}# 1)
-                             #{mod 12602}#))
-                         (#{wrap 12617}# (vector-ref #{x 12601}# 2)))
+                   (let ((#{expression 12678}#
+                           (#{remodulate 12427}#
+                             (vector-ref #{x 12663}# 1)
+                             #{mod 12664}#))
+                         (#{wrap 12679}# (vector-ref #{x 12663}# 2)))
                      (vector
                        'syntax-object
-                       #{expression 12616}#
-                       #{wrap 12617}#
-                       #{mod 12602}#))
-                   (if (vector? #{x 12601}#)
-                     (let ((#{n 12625}# (vector-length #{x 12601}#)))
-                       (let ((#{v 12626}# (make-vector #{n 12625}#)))
+                       #{expression 12678}#
+                       #{wrap 12679}#
+                       #{mod 12664}#))
+                   (if (vector? #{x 12663}#)
+                     (let ((#{n 12687}# (vector-length #{x 12663}#)))
+                       (let ((#{v 12688}# (make-vector #{n 12687}#)))
                          (letrec*
-                           ((#{loop 12627}#
-                              (lambda (#{i 12682}#)
-                                (if (= #{i 12682}# #{n 12625}#)
-                                  #{v 12626}#
+                           ((#{loop 12689}#
+                              (lambda (#{i 12744}#)
+                                (if (= #{i 12744}# #{n 12687}#)
+                                  #{v 12688}#
                                   (begin
                                     (vector-set!
-                                      #{v 12626}#
-                                      #{i 12682}#
-                                      (#{remodulate 12377}#
-                                        (vector-ref #{x 12601}# #{i 12682}#)
-                                        #{mod 12602}#))
-                                    (#{loop 12627}# (#{1+}# #{i 12682}#)))))))
-                           (#{loop 12627}# 0))))
-                     #{x 12601}#))))))
-          (let ((#{tmp 12379}#
-                  ($sc-dispatch #{e 12374}# '(_ each-any any))))
-            (if (if #{tmp 12379}#
+                                      #{v 12688}#
+                                      #{i 12744}#
+                                      (#{remodulate 12427}#
+                                        (vector-ref #{x 12663}# #{i 12744}#)
+                                        #{mod 12664}#))
+                                    (#{loop 12689}# (#{1+}# #{i 12744}#)))))))
+                           (#{loop 12689}# 0))))
+                     #{x 12663}#))))))
+          (let ((#{tmp 12429}#
+                  ($sc-dispatch #{e 12424}# '(_ each-any any))))
+            (if (if #{tmp 12429}#
                   (@apply
-                    (lambda (#{mod 12383}# #{exp 12384}#)
-                      (and-map #{id? 4343}# #{mod 12383}#))
-                    #{tmp 12379}#)
+                    (lambda (#{mod 12433}# #{exp 12434}#)
+                      (and-map #{id? 4341}# #{mod 12433}#))
+                    #{tmp 12429}#)
                   #f)
               (@apply
-                (lambda (#{mod 12400}# #{exp 12401}#)
-                  (let ((#{mod 12402}#
+                (lambda (#{mod 12450}# #{exp 12451}#)
+                  (let ((#{mod 12452}#
                           (syntax->datum
                             (cons '#(syntax-object
                                      private
@@ -12083,12 +12066,12 @@
                                       #(ribcage
                                         #(mod exp)
                                         #((top) (top))
-                                        #("i3678" "i3679"))
-                                      #(ribcage (remodulate) ((top)) ("i3645"))
+                                        #("i3676" "i3677"))
+                                      #(ribcage (remodulate) ((top)) ("i3643"))
                                       #(ribcage
                                         #(e r w)
                                         #((top) (top) (top))
-                                        #("i3642" "i3643" "i3644"))
+                                        #("i3640" "i3641" "i3642"))
                                       #(ribcage
                                         (lambda-var-list
                                           gen-var
@@ -12511,181 +12494,181 @@
                                         ((top) (top) (top))
                                         ("i46" "i45" "i44")))
                                      (hygiene guile))
-                                  #{mod 12400}#))))
+                                  #{mod 12450}#))))
                     (values
-                      (#{remodulate 12377}#
-                        #{exp 12401}#
-                        #{mod 12402}#)
-                      #{r 12375}#
-                      #{w 12376}#
-                      (#{source-annotation 4336}# #{exp 12401}#)
-                      #{mod 12402}#)))
-                #{tmp 12379}#)
+                      (#{remodulate 12427}#
+                        #{exp 12451}#
+                        #{mod 12452}#)
+                      #{r 12425}#
+                      #{w 12426}#
+                      (#{source-annotation 4334}# #{exp 12451}#)
+                      #{mod 12452}#)))
+                #{tmp 12429}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{e 12374}#))))))
-    (#{global-extend 4341}#
+                #{e 12424}#))))))
+    (#{global-extend 4339}#
       'core
       'if
-      (lambda (#{e 12793}#
-               #{r 12794}#
-               #{w 12795}#
-               #{s 12796}#
-               #{mod 12797}#)
-        (let ((#{tmp 12799}#
-                ($sc-dispatch #{e 12793}# '(_ any any))))
-          (if #{tmp 12799}#
+      (lambda (#{e 12857}#
+               #{r 12858}#
+               #{w 12859}#
+               #{s 12860}#
+               #{mod 12861}#)
+        (let ((#{tmp 12863}#
+                ($sc-dispatch #{e 12857}# '(_ any any))))
+          (if #{tmp 12863}#
             (@apply
-              (lambda (#{test 12803}# #{then 12804}#)
-                (#{build-conditional 4310}#
-                  #{s 12796}#
-                  (#{chi 4375}#
-                    #{test 12803}#
-                    #{r 12794}#
-                    #{w 12795}#
-                    #{mod 12797}#)
-                  (#{chi 4375}#
-                    #{then 12804}#
-                    #{r 12794}#
-                    #{w 12795}#
-                    #{mod 12797}#)
+              (lambda (#{test 12867}# #{then 12868}#)
+                (#{build-conditional 4308}#
+                  #{s 12860}#
+                  (#{chi 4373}#
+                    #{test 12867}#
+                    #{r 12858}#
+                    #{w 12859}#
+                    #{mod 12861}#)
+                  (#{chi 4373}#
+                    #{then 12868}#
+                    #{r 12858}#
+                    #{w 12859}#
+                    #{mod 12861}#)
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 0)
                     #f)))
-              #{tmp 12799}#)
-            (let ((#{tmp 13059}#
-                    ($sc-dispatch #{e 12793}# '(_ any any any))))
-              (if #{tmp 13059}#
+              #{tmp 12863}#)
+            (let ((#{tmp 13129}#
+                    ($sc-dispatch #{e 12857}# '(_ any any any))))
+              (if #{tmp 13129}#
                 (@apply
-                  (lambda (#{test 13063}# #{then 13064}# #{else 13065}#)
-                    (#{build-conditional 4310}#
-                      #{s 12796}#
-                      (#{chi 4375}#
-                        #{test 13063}#
-                        #{r 12794}#
-                        #{w 12795}#
-                        #{mod 12797}#)
-                      (#{chi 4375}#
-                        #{then 13064}#
-                        #{r 12794}#
-                        #{w 12795}#
-                        #{mod 12797}#)
-                      (#{chi 4375}#
-                        #{else 13065}#
-                        #{r 12794}#
-                        #{w 12795}#
-                        #{mod 12797}#)))
-                  #{tmp 13059}#)
+                  (lambda (#{test 13133}# #{then 13134}# #{else 13135}#)
+                    (#{build-conditional 4308}#
+                      #{s 12860}#
+                      (#{chi 4373}#
+                        #{test 13133}#
+                        #{r 12858}#
+                        #{w 12859}#
+                        #{mod 12861}#)
+                      (#{chi 4373}#
+                        #{then 13134}#
+                        #{r 12858}#
+                        #{w 12859}#
+                        #{mod 12861}#)
+                      (#{chi 4373}#
+                        #{else 13135}#
+                        #{r 12858}#
+                        #{w 12859}#
+                        #{mod 12861}#)))
+                  #{tmp 13129}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{e 12793}#)))))))
-    (#{global-extend 4341}#
+                  #{e 12857}#)))))))
+    (#{global-extend 4339}#
       'core
       'with-fluids
-      (lambda (#{e 13514}#
-               #{r 13515}#
-               #{w 13516}#
-               #{s 13517}#
-               #{mod 13518}#)
-        (let ((#{tmp 13520}#
+      (lambda (#{e 13594}#
+               #{r 13595}#
+               #{w 13596}#
+               #{s 13597}#
+               #{mod 13598}#)
+        (let ((#{tmp 13600}#
                 ($sc-dispatch
-                  #{e 13514}#
+                  #{e 13594}#
                   '(_ #(each (any any)) any . each-any))))
-          (if #{tmp 13520}#
+          (if #{tmp 13600}#
             (@apply
-              (lambda (#{fluid 13524}#
-                       #{val 13525}#
-                       #{b 13526}#
-                       #{b* 13527}#)
-                (#{build-dynlet 4311}#
-                  #{s 13517}#
-                  (map (lambda (#{x 13618}#)
-                         (#{chi 4375}#
-                           #{x 13618}#
-                           #{r 13515}#
-                           #{w 13516}#
-                           #{mod 13518}#))
-                       #{fluid 13524}#)
-                  (map (lambda (#{x 13698}#)
-                         (#{chi 4375}#
-                           #{x 13698}#
-                           #{r 13515}#
-                           #{w 13516}#
-                           #{mod 13518}#))
-                       #{val 13525}#)
-                  (#{chi-body 4379}#
-                    (cons #{b 13526}# #{b* 13527}#)
-                    (let ((#{x 13789}#
+              (lambda (#{fluid 13604}#
+                       #{val 13605}#
+                       #{b 13606}#
+                       #{b* 13607}#)
+                (#{build-dynlet 4309}#
+                  #{s 13597}#
+                  (map (lambda (#{x 13700}#)
+                         (#{chi 4373}#
+                           #{x 13700}#
+                           #{r 13595}#
+                           #{w 13596}#
+                           #{mod 13598}#))
+                       #{fluid 13604}#)
+                  (map (lambda (#{x 13782}#)
+                         (#{chi 4373}#
+                           #{x 13782}#
+                           #{r 13595}#
+                           #{w 13596}#
+                           #{mod 13598}#))
+                       #{val 13605}#)
+                  (#{chi-body 4377}#
+                    (cons #{b 13606}# #{b* 13607}#)
+                    (let ((#{x 13875}#
                             (begin
-                              (if (if (pair? #{e 13514}#) #{s 13517}# #f)
+                              (if (if (pair? #{e 13594}#) #{s 13597}# #f)
                                 (set-source-properties!
-                                  #{e 13514}#
-                                  #{s 13517}#))
-                              #{e 13514}#)))
-                      (if (if (null? (car #{w 13516}#))
-                            (null? (cdr #{w 13516}#))
+                                  #{e 13594}#
+                                  #{s 13597}#))
+                              #{e 13594}#)))
+                      (if (if (null? (car #{w 13596}#))
+                            (null? (cdr #{w 13596}#))
                             #f)
-                        #{x 13789}#
-                        (if (if (vector? #{x 13789}#)
-                              (if (= (vector-length #{x 13789}#) 4)
-                                (eq? (vector-ref #{x 13789}# 0) 'syntax-object)
+                        #{x 13875}#
+                        (if (if (vector? #{x 13875}#)
+                              (if (= (vector-length #{x 13875}#) 4)
+                                (eq? (vector-ref #{x 13875}# 0) 'syntax-object)
                                 #f)
                               #f)
-                          (let ((#{expression 13821}#
-                                  (vector-ref #{x 13789}# 1))
-                                (#{wrap 13822}#
-                                  (let ((#{w2 13830}#
-                                          (vector-ref #{x 13789}# 2)))
-                                    (let ((#{m1 13831}# (car #{w 13516}#))
-                                          (#{s1 13832}# (cdr #{w 13516}#)))
-                                      (if (null? #{m1 13831}#)
-                                        (if (null? #{s1 13832}#)
-                                          #{w2 13830}#
-                                          (cons (car #{w2 13830}#)
-                                                (let ((#{m2 13847}#
-                                                        (cdr #{w2 13830}#)))
-                                                  (if (null? #{m2 13847}#)
-                                                    #{s1 13832}#
+                          (let ((#{expression 13907}#
+                                  (vector-ref #{x 13875}# 1))
+                                (#{wrap 13908}#
+                                  (let ((#{w2 13916}#
+                                          (vector-ref #{x 13875}# 2)))
+                                    (let ((#{m1 13917}# (car #{w 13596}#))
+                                          (#{s1 13918}# (cdr #{w 13596}#)))
+                                      (if (null? #{m1 13917}#)
+                                        (if (null? #{s1 13918}#)
+                                          #{w2 13916}#
+                                          (cons (car #{w2 13916}#)
+                                                (let ((#{m2 13933}#
+                                                        (cdr #{w2 13916}#)))
+                                                  (if (null? #{m2 13933}#)
+                                                    #{s1 13918}#
                                                     (append
-                                                      #{s1 13832}#
-                                                      #{m2 13847}#)))))
-                                        (cons (let ((#{m2 13855}#
-                                                      (car #{w2 13830}#)))
-                                                (if (null? #{m2 13855}#)
-                                                  #{m1 13831}#
+                                                      #{s1 13918}#
+                                                      #{m2 13933}#)))))
+                                        (cons (let ((#{m2 13941}#
+                                                      (car #{w2 13916}#)))
+                                                (if (null? #{m2 13941}#)
+                                                  #{m1 13917}#
                                                   (append
-                                                    #{m1 13831}#
-                                                    #{m2 13855}#)))
-                                              (let ((#{m2 13863}#
-                                                      (cdr #{w2 13830}#)))
-                                                (if (null? #{m2 13863}#)
-                                                  #{s1 13832}#
+                                                    #{m1 13917}#
+                                                    #{m2 13941}#)))
+                                              (let ((#{m2 13949}#
+                                                      (cdr #{w2 13916}#)))
+                                                (if (null? #{m2 13949}#)
+                                                  #{s1 13918}#
                                                   (append
-                                                    #{s1 13832}#
-                                                    #{m2 13863}#))))))))
-                                (#{module 13823}# (vector-ref #{x 13789}# 3)))
+                                                    #{s1 13918}#
+                                                    #{m2 13949}#))))))))
+                                (#{module 13909}# (vector-ref #{x 13875}# 3)))
                             (vector
                               'syntax-object
-                              #{expression 13821}#
-                              #{wrap 13822}#
-                              #{module 13823}#))
-                          (if (null? #{x 13789}#)
-                            #{x 13789}#
+                              #{expression 13907}#
+                              #{wrap 13908}#
+                              #{module 13909}#))
+                          (if (null? #{x 13875}#)
+                            #{x 13875}#
                             (vector
                               'syntax-object
-                              #{x 13789}#
-                              #{w 13516}#
-                              #{mod 13518}#)))))
-                    #{r 13515}#
-                    #{w 13516}#
-                    #{mod 13518}#)))
-              #{tmp 13520}#)
+                              #{x 13875}#
+                              #{w 13596}#
+                              #{mod 13598}#)))))
+                    #{r 13595}#
+                    #{w 13596}#
+                    #{mod 13598}#)))
+              #{tmp 13600}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{e 13514}#)))))
+              #{e 13594}#)))))
     (module-define!
       (current-module)
       'begin
@@ -12708,68 +12691,68 @@
         'eval-when
         'eval-when
         '()))
-    (#{global-extend 4341}#
+    (#{global-extend 4339}#
       'core
       'syntax-case
       (letrec*
-        ((#{convert-pattern 14157}#
-           (lambda (#{pattern 15795}# #{keys 15796}#)
+        ((#{convert-pattern 14243}#
+           (lambda (#{pattern 15899}# #{keys 15900}#)
              (letrec*
-               ((#{cvt* 15797}#
-                  (lambda (#{p* 16596}# #{n 16597}# #{ids 16598}#)
-                    (if (not (pair? #{p* 16596}#))
-                      (#{cvt 15799}#
-                        #{p* 16596}#
-                        #{n 16597}#
-                        #{ids 16598}#)
+               ((#{cvt* 15901}#
+                  (lambda (#{p* 16700}# #{n 16701}# #{ids 16702}#)
+                    (if (not (pair? #{p* 16700}#))
+                      (#{cvt 15903}#
+                        #{p* 16700}#
+                        #{n 16701}#
+                        #{ids 16702}#)
                       (call-with-values
                         (lambda ()
-                          (#{cvt* 15797}#
-                            (cdr #{p* 16596}#)
-                            #{n 16597}#
-                            #{ids 16598}#))
-                        (lambda (#{y 16601}# #{ids 16602}#)
+                          (#{cvt* 15901}#
+                            (cdr #{p* 16700}#)
+                            #{n 16701}#
+                            #{ids 16702}#))
+                        (lambda (#{y 16705}# #{ids 16706}#)
                           (call-with-values
                             (lambda ()
-                              (#{cvt 15799}#
-                                (car #{p* 16596}#)
-                                #{n 16597}#
-                                #{ids 16602}#))
-                            (lambda (#{x 16605}# #{ids 16606}#)
+                              (#{cvt 15903}#
+                                (car #{p* 16700}#)
+                                #{n 16701}#
+                                #{ids 16706}#))
+                            (lambda (#{x 16709}# #{ids 16710}#)
                               (values
-                                (cons #{x 16605}# #{y 16601}#)
-                                #{ids 16606}#))))))))
-                (#{v-reverse 15798}#
-                  (lambda (#{x 16607}#)
+                                (cons #{x 16709}# #{y 16705}#)
+                                #{ids 16710}#))))))))
+                (#{v-reverse 15902}#
+                  (lambda (#{x 16711}#)
                     (letrec*
-                      ((#{loop 16608}#
-                         (lambda (#{r 16709}# #{x 16710}#)
-                           (if (not (pair? #{x 16710}#))
-                             (values #{r 16709}# #{x 16710}#)
-                             (#{loop 16608}#
-                               (cons (car #{x 16710}#) #{r 16709}#)
-                               (cdr #{x 16710}#))))))
-                      (#{loop 16608}# '() #{x 16607}#))))
-                (#{cvt 15799}#
-                  (lambda (#{p 15802}# #{n 15803}# #{ids 15804}#)
-                    (if (if (symbol? #{p 15802}#)
+                      ((#{loop 16712}#
+                         (lambda (#{r 16813}# #{x 16814}#)
+                           (if (not (pair? #{x 16814}#))
+                             (values #{r 16813}# #{x 16814}#)
+                             (#{loop 16712}#
+                               (cons (car #{x 16814}#) #{r 16813}#)
+                               (cdr #{x 16814}#))))))
+                      (#{loop 16712}# '() #{x 16711}#))))
+                (#{cvt 15903}#
+                  (lambda (#{p 15906}# #{n 15907}# #{ids 15908}#)
+                    (if (if (symbol? #{p 15906}#)
                           #t
-                          (if (if (vector? #{p 15802}#)
-                                (if (= (vector-length #{p 15802}#) 4)
-                                  (eq? (vector-ref #{p 15802}# 0)
+                          (if (if (vector? #{p 15906}#)
+                                (if (= (vector-length #{p 15906}#) 4)
+                                  (eq? (vector-ref #{p 15906}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{p 15802}# 1))
+                            (symbol? (vector-ref #{p 15906}# 1))
                             #f))
-                      (if (#{bound-id-member? 4367}#
-                            #{p 15802}#
-                            #{keys 15796}#)
+                      (if (#{bound-id-member? 4365}#
+                            #{p 15906}#
+                            #{keys 15900}#)
                         (values
-                          (vector 'free-id #{p 15802}#)
-                          #{ids 15804}#)
-                        (if (#{free-id=? 4363}#
-                              #{p 15802}#
+                          (vector 'free-id #{p 15906}#)
+                          #{ids 15908}#)
+                        (if (#{free-id=? 4361}#
+                              #{p 15906}#
                               '#(syntax-object
                                  _
                                  ((top)
@@ -12777,22 +12760,22 @@
                                   #(ribcage
                                     #(p n ids)
                                     #((top) (top) (top))
-                                    #("i3779" "i3780" "i3781"))
+                                    #("i3777" "i3778" "i3779"))
                                   #(ribcage
                                     (cvt v-reverse cvt*)
                                     ((top) (top) (top))
-                                    ("i3752" "i3750" "i3748"))
+                                    ("i3750" "i3748" "i3746"))
                                   #(ribcage
                                     #(pattern keys)
                                     #((top) (top))
-                                    #("i3746" "i3747"))
+                                    #("i3744" "i3745"))
                                   #(ribcage
                                     (gen-syntax-case
                                       gen-clause
                                       build-dispatch-call
                                       convert-pattern)
                                     ((top) (top) (top) (top))
-                                    ("i3742" "i3740" "i3738" "i3736"))
+                                    ("i3740" "i3738" "i3736" "i3734"))
                                   #(ribcage
                                     (lambda-var-list
                                       gen-var
@@ -13215,36 +13198,36 @@
                                     ((top) (top) (top))
                                     ("i46" "i45" "i44")))
                                  (hygiene guile)))
-                          (values '_ #{ids 15804}#)
+                          (values '_ #{ids 15908}#)
                           (values
                             'any
-                            (cons (cons #{p 15802}# #{n 15803}#)
-                                  #{ids 15804}#))))
-                      (let ((#{tmp 15936}#
-                              ($sc-dispatch #{p 15802}# '(any any))))
-                        (if (if #{tmp 15936}#
+                            (cons (cons #{p 15906}# #{n 15907}#)
+                                  #{ids 15908}#))))
+                      (let ((#{tmp 16040}#
+                              ($sc-dispatch #{p 15906}# '(any any))))
+                        (if (if #{tmp 16040}#
                               (@apply
-                                (lambda (#{x 15940}# #{dots 15941}#)
-                                  (if (if (if (vector? #{dots 15941}#)
+                                (lambda (#{x 16044}# #{dots 16045}#)
+                                  (if (if (if (vector? #{dots 16045}#)
                                             (if (= (vector-length
-                                                     #{dots 15941}#)
+                                                     #{dots 16045}#)
                                                    4)
                                               (eq? (vector-ref
-                                                     #{dots 15941}#
+                                                     #{dots 16045}#
                                                      0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (symbol? (vector-ref #{dots 15941}# 1))
+                                        (symbol? (vector-ref #{dots 16045}# 1))
                                         #f)
-                                    (#{free-id=? 4363}#
-                                      #{dots 15941}#
+                                    (#{free-id=? 4361}#
+                                      #{dots 16045}#
                                       '#(syntax-object
                                          ...
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i2263"))
+                                          #(ribcage #(x) #((top)) #("i2261"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
@@ -13668,45 +13651,45 @@
                                             ("i46" "i45" "i44")))
                                          (hygiene guile)))
                                     #f))
-                                #{tmp 15936}#)
+                                #{tmp 16040}#)
                               #f)
                           (@apply
-                            (lambda (#{x 15980}# #{dots 15981}#)
+                            (lambda (#{x 16084}# #{dots 16085}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{cvt 15799}#
-                                    #{x 15980}#
-                                    (#{1+}# #{n 15803}#)
-                                    #{ids 15804}#))
-                                (lambda (#{p 15982}# #{ids 15983}#)
+                                  (#{cvt 15903}#
+                                    #{x 16084}#
+                                    (#{1+}# #{n 15907}#)
+                                    #{ids 15908}#))
+                                (lambda (#{p 16086}# #{ids 16087}#)
                                   (values
-                                    (if (eq? #{p 15982}# 'any)
+                                    (if (eq? #{p 16086}# 'any)
                                       'each-any
-                                      (vector 'each #{p 15982}#))
-                                    #{ids 15983}#))))
-                            #{tmp 15936}#)
-                          (let ((#{tmp 15984}#
-                                  ($sc-dispatch #{p 15802}# '(any any . any))))
-                            (if (if #{tmp 15984}#
+                                      (vector 'each #{p 16086}#))
+                                    #{ids 16087}#))))
+                            #{tmp 16040}#)
+                          (let ((#{tmp 16088}#
+                                  ($sc-dispatch #{p 15906}# '(any any . any))))
+                            (if (if #{tmp 16088}#
                                   (@apply
-                                    (lambda (#{x 15988}#
-                                             #{dots 15989}#
-                                             #{ys 15990}#)
-                                      (if (if (if (vector? #{dots 15989}#)
+                                    (lambda (#{x 16092}#
+                                             #{dots 16093}#
+                                             #{ys 16094}#)
+                                      (if (if (if (vector? #{dots 16093}#)
                                                 (if (= (vector-length
-                                                         #{dots 15989}#)
+                                                         #{dots 16093}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{dots 15989}#
+                                                         #{dots 16093}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
                                             (symbol?
-                                              (vector-ref #{dots 15989}# 1))
+                                              (vector-ref #{dots 16093}# 1))
                                             #f)
-                                        (#{free-id=? 4363}#
-                                          #{dots 15989}#
+                                        (#{free-id=? 4361}#
+                                          #{dots 16093}#
                                           '#(syntax-object
                                              ...
                                              ((top)
@@ -13715,7 +13698,7 @@
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i2263"))
+                                                #("i2261"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -14139,175 +14122,175 @@
                                                 ("i46" "i45" "i44")))
                                              (hygiene guile)))
                                         #f))
-                                    #{tmp 15984}#)
+                                    #{tmp 16088}#)
                                   #f)
                               (@apply
-                                (lambda (#{x 16029}#
-                                         #{dots 16030}#
-                                         #{ys 16031}#)
+                                (lambda (#{x 16133}#
+                                         #{dots 16134}#
+                                         #{ys 16135}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{cvt* 15797}#
-                                        #{ys 16031}#
-                                        #{n 15803}#
-                                        #{ids 15804}#))
-                                    (lambda (#{ys 16516}# #{ids 16517}#)
+                                      (#{cvt* 15901}#
+                                        #{ys 16135}#
+                                        #{n 15907}#
+                                        #{ids 15908}#))
+                                    (lambda (#{ys 16620}# #{ids 16621}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{cvt 15799}#
-                                            #{x 16029}#
-                                            (#{1+}# #{n 15803}#)
-                                            #{ids 16517}#))
-                                        (lambda (#{x 16518}# #{ids 16519}#)
+                                          (#{cvt 15903}#
+                                            #{x 16133}#
+                                            (#{1+}# #{n 15907}#)
+                                            #{ids 16621}#))
+                                        (lambda (#{x 16622}# #{ids 16623}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{v-reverse 15798}#
-                                                #{ys 16516}#))
-                                            (lambda (#{ys 16555}# #{e 16556}#)
+                                              (#{v-reverse 15902}#
+                                                #{ys 16620}#))
+                                            (lambda (#{ys 16659}# #{e 16660}#)
                                               (values
                                                 (vector
                                                   'each+
-                                                  #{x 16518}#
-                                                  #{ys 16555}#
-                                                  #{e 16556}#)
-                                                #{ids 16519}#))))))))
-                                #{tmp 15984}#)
-                              (let ((#{tmp 16557}#
-                                      ($sc-dispatch #{p 15802}# '(any . any))))
-                                (if #{tmp 16557}#
+                                                  #{x 16622}#
+                                                  #{ys 16659}#
+                                                  #{e 16660}#)
+                                                #{ids 16623}#))))))))
+                                #{tmp 16088}#)
+                              (let ((#{tmp 16661}#
+                                      ($sc-dispatch #{p 15906}# '(any . any))))
+                                (if #{tmp 16661}#
                                   (@apply
-                                    (lambda (#{x 16561}# #{y 16562}#)
+                                    (lambda (#{x 16665}# #{y 16666}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{cvt 15799}#
-                                            #{y 16562}#
-                                            #{n 15803}#
-                                            #{ids 15804}#))
-                                        (lambda (#{y 16563}# #{ids 16564}#)
+                                          (#{cvt 15903}#
+                                            #{y 16666}#
+                                            #{n 15907}#
+                                            #{ids 15908}#))
+                                        (lambda (#{y 16667}# #{ids 16668}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{cvt 15799}#
-                                                #{x 16561}#
-                                                #{n 15803}#
-                                                #{ids 16564}#))
-                                            (lambda (#{x 16565}# #{ids 16566}#)
+                                              (#{cvt 15903}#
+                                                #{x 16665}#
+                                                #{n 15907}#
+                                                #{ids 16668}#))
+                                            (lambda (#{x 16669}# #{ids 16670}#)
                                               (values
-                                                (cons #{x 16565}# #{y 16563}#)
-                                                #{ids 16566}#))))))
-                                    #{tmp 16557}#)
-                                  (let ((#{tmp 16567}#
-                                          ($sc-dispatch #{p 15802}# '())))
-                                    (if #{tmp 16567}#
+                                                (cons #{x 16669}# #{y 16667}#)
+                                                #{ids 16670}#))))))
+                                    #{tmp 16661}#)
+                                  (let ((#{tmp 16671}#
+                                          ($sc-dispatch #{p 15906}# '())))
+                                    (if #{tmp 16671}#
                                       (@apply
-                                        (lambda () (values '() #{ids 15804}#))
-                                        #{tmp 16567}#)
-                                      (let ((#{tmp 16571}#
+                                        (lambda () (values '() #{ids 15908}#))
+                                        #{tmp 16671}#)
+                                      (let ((#{tmp 16675}#
                                               ($sc-dispatch
-                                                #{p 15802}#
+                                                #{p 15906}#
                                                 '#(vector each-any))))
-                                        (if #{tmp 16571}#
+                                        (if #{tmp 16675}#
                                           (@apply
-                                            (lambda (#{x 16575}#)
+                                            (lambda (#{x 16679}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{cvt 15799}#
-                                                    #{x 16575}#
-                                                    #{n 15803}#
-                                                    #{ids 15804}#))
-                                                (lambda (#{p 16576}#
-                                                         #{ids 16577}#)
+                                                  (#{cvt 15903}#
+                                                    #{x 16679}#
+                                                    #{n 15907}#
+                                                    #{ids 15908}#))
+                                                (lambda (#{p 16680}#
+                                                         #{ids 16681}#)
                                                   (values
                                                     (vector
                                                       'vector
-                                                      #{p 16576}#)
-                                                    #{ids 16577}#))))
-                                            #{tmp 16571}#)
+                                                      #{p 16680}#)
+                                                    #{ids 16681}#))))
+                                            #{tmp 16675}#)
                                           (values
                                             (vector
                                               'atom
-                                              (#{strip 4388}#
-                                                #{p 15802}#
+                                              (#{strip 4386}#
+                                                #{p 15906}#
                                                 '(())))
-                                            #{ids 15804}#)))))))))))))))
-               (#{cvt 15799}# #{pattern 15795}# 0 '()))))
-         (#{build-dispatch-call 14158}#
-           (lambda (#{pvars 16711}#
-                    #{exp 16712}#
-                    #{y 16713}#
-                    #{r 16714}#
-                    #{mod 16715}#)
-             (let ((#{ids 16716}# (map car #{pvars 16711}#)))
+                                            #{ids 15908}#)))))))))))))))
+               (#{cvt 15903}# #{pattern 15899}# 0 '()))))
+         (#{build-dispatch-call 14244}#
+           (lambda (#{pvars 16815}#
+                    #{exp 16816}#
+                    #{y 16817}#
+                    #{r 16818}#
+                    #{mod 16819}#)
+             (let ((#{ids 16820}# (map car #{pvars 16815}#)))
                (begin
-                 (map cdr #{pvars 16711}#)
-                 (let ((#{labels 16718}#
-                         (#{gen-labels 4346}# #{ids 16716}#))
-                       (#{new-vars 16719}#
-                         (map #{gen-var 4389}# #{ids 16716}#)))
-                   (#{build-primcall 4321}#
+                 (map cdr #{pvars 16815}#)
+                 (let ((#{labels 16822}#
+                         (#{gen-labels 4344}# #{ids 16820}#))
+                       (#{new-vars 16823}#
+                         (map #{gen-var 4387}# #{ids 16820}#)))
+                   (#{build-primcall 4319}#
                      #f
                      'apply
-                     (list (#{build-simple-lambda 4318}#
+                     (list (#{build-simple-lambda 4316}#
                              #f
-                             (map syntax->datum #{ids 16716}#)
+                             (map syntax->datum #{ids 16820}#)
                              #f
-                             #{new-vars 16719}#
+                             #{new-vars 16823}#
                              '()
-                             (#{chi 4375}#
-                               #{exp 16712}#
-                               (#{extend-env 4337}#
-                                 #{labels 16718}#
-                                 (map (lambda (#{var 17051}# #{level 17052}#)
+                             (#{chi 4373}#
+                               #{exp 16816}#
+                               (#{extend-env 4335}#
+                                 #{labels 16822}#
+                                 (map (lambda (#{var 17155}# #{level 17156}#)
                                         (cons 'syntax
-                                              (cons #{var 17051}#
-                                                    #{level 17052}#)))
-                                      #{new-vars 16719}#
-                                      (map cdr #{pvars 16711}#))
-                                 #{r 16714}#)
-                               (#{make-binding-wrap 4357}#
-                                 #{ids 16716}#
-                                 #{labels 16718}#
+                                              (cons #{var 17155}#
+                                                    #{level 17156}#)))
+                                      #{new-vars 16823}#
+                                      (map cdr #{pvars 16815}#))
+                                 #{r 16818}#)
+                               (#{make-binding-wrap 4355}#
+                                 #{ids 16820}#
+                                 #{labels 16822}#
                                  '(()))
-                               #{mod 16715}#))
-                           #{y 16713}#)))))))
-         (#{gen-clause 14159}#
-           (lambda (#{x 15389}#
-                    #{keys 15390}#
-                    #{clauses 15391}#
-                    #{r 15392}#
-                    #{pat 15393}#
-                    #{fender 15394}#
-                    #{exp 15395}#
-                    #{mod 15396}#)
+                               #{mod 16819}#))
+                           #{y 16817}#)))))))
+         (#{gen-clause 14245}#
+           (lambda (#{x 15493}#
+                    #{keys 15494}#
+                    #{clauses 15495}#
+                    #{r 15496}#
+                    #{pat 15497}#
+                    #{fender 15498}#
+                    #{exp 15499}#
+                    #{mod 15500}#)
              (call-with-values
                (lambda ()
-                 (#{convert-pattern 14157}#
-                   #{pat 15393}#
-                   #{keys 15390}#))
-               (lambda (#{p 15534}# #{pvars 15535}#)
-                 (if (not (#{distinct-bound-ids? 4366}#
-                            (map car #{pvars 15535}#)))
+                 (#{convert-pattern 14243}#
+                   #{pat 15497}#
+                   #{keys 15494}#))
+               (lambda (#{p 15638}# #{pvars 15639}#)
+                 (if (not (#{distinct-bound-ids? 4364}#
+                            (map car #{pvars 15639}#)))
                    (syntax-violation
                      'syntax-case
                      "duplicate pattern variable"
-                     #{pat 15393}#)
+                     #{pat 15497}#)
                    (if (not (and-map
-                              (lambda (#{x 15644}#)
-                                (not (let ((#{x 15648}# (car #{x 15644}#)))
-                                       (if (if (if (vector? #{x 15648}#)
+                              (lambda (#{x 15748}#)
+                                (not (let ((#{x 15752}# (car #{x 15748}#)))
+                                       (if (if (if (vector? #{x 15752}#)
                                                  (if (= (vector-length
-                                                          #{x 15648}#)
+                                                          #{x 15752}#)
                                                         4)
                                                    (eq? (vector-ref
-                                                          #{x 15648}#
+                                                          #{x 15752}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
-                                               (vector-ref #{x 15648}# 1))
+                                               (vector-ref #{x 15752}# 1))
                                              #f)
-                                         (#{free-id=? 4363}#
-                                           #{x 15648}#
+                                         (#{free-id=? 4361}#
+                                           #{x 15752}#
                                            '#(syntax-object
                                               ...
                                               ((top)
@@ -14316,7 +14299,7 @@
                                                #(ribcage
                                                  #(x)
                                                  #((top))
-                                                 #("i2263"))
+                                                 #("i2261"))
                                                #(ribcage
                                                  (lambda-var-list
                                                    gen-var
@@ -14740,43 +14723,43 @@
                                                  ("i46" "i45" "i44")))
                                               (hygiene guile)))
                                          #f))))
-                              #{pvars 15535}#))
+                              #{pvars 15639}#))
                      (syntax-violation
                        'syntax-case
                        "misplaced ellipsis"
-                       #{pat 15393}#)
-                     (let ((#{y 15673}#
+                       #{pat 15497}#)
+                     (let ((#{y 15777}#
                              (gensym
                                (string-append (symbol->string 'tmp) " "))))
-                       (let ((#{fun-exp 15678}#
-                               (let ((#{req 15687}# (list 'tmp))
-                                     (#{vars 15689}# (list #{y 15673}#))
-                                     (#{exp 15691}#
-                                       (let ((#{y 15720}#
+                       (let ((#{fun-exp 15782}#
+                               (let ((#{req 15791}# (list 'tmp))
+                                     (#{vars 15793}# (list #{y 15777}#))
+                                     (#{exp 15795}#
+                                       (let ((#{y 15824}#
                                                (make-struct/no-tail
                                                  (vector-ref
                                                    %expanded-vtables
                                                    3)
                                                  #f
                                                  'tmp
-                                                 #{y 15673}#)))
-                                         (let ((#{test-exp 15724}#
-                                                 (let ((#{tmp 15733}#
+                                                 #{y 15777}#)))
+                                         (let ((#{test-exp 15828}#
+                                                 (let ((#{tmp 15837}#
                                                          ($sc-dispatch
-                                                           #{fender 15394}#
+                                                           #{fender 15498}#
                                                            '#(atom #t))))
-                                                   (if #{tmp 15733}#
+                                                   (if #{tmp 15837}#
                                                      (@apply
-                                                       (lambda () #{y 15720}#)
-                                                       #{tmp 15733}#)
-                                                     (let ((#{then-exp 15751}#
-                                                             
(#{build-dispatch-call 14158}#
-                                                               #{pvars 15535}#
-                                                               #{fender 15394}#
-                                                               #{y 15720}#
-                                                               #{r 15392}#
-                                                               #{mod 15396}#))
-                                                           (#{else-exp 15752}#
+                                                       (lambda () #{y 15824}#)
+                                                       #{tmp 15837}#)
+                                                     (let ((#{then-exp 15855}#
+                                                             
(#{build-dispatch-call 14244}#
+                                                               #{pvars 15639}#
+                                                               #{fender 15498}#
+                                                               #{y 15824}#
+                                                               #{r 15496}#
+                                                               #{mod 15500}#))
+                                                           (#{else-exp 15856}#
                                                              
(make-struct/no-tail
                                                                (vector-ref
                                                                  
%expanded-vtables
@@ -14788,81 +14771,81 @@
                                                            %expanded-vtables
                                                            10)
                                                          #f
-                                                         #{y 15720}#
-                                                         #{then-exp 15751}#
-                                                         #{else-exp 
15752}#)))))
-                                               (#{then-exp 15725}#
-                                                 (#{build-dispatch-call 14158}#
-                                                   #{pvars 15535}#
-                                                   #{exp 15395}#
-                                                   #{y 15720}#
-                                                   #{r 15392}#
-                                                   #{mod 15396}#))
-                                               (#{else-exp 15726}#
-                                                 (#{gen-syntax-case 14160}#
-                                                   #{x 15389}#
-                                                   #{keys 15390}#
-                                                   #{clauses 15391}#
-                                                   #{r 15392}#
-                                                   #{mod 15396}#)))
+                                                         #{y 15824}#
+                                                         #{then-exp 15855}#
+                                                         #{else-exp 
15856}#)))))
+                                               (#{then-exp 15829}#
+                                                 (#{build-dispatch-call 14244}#
+                                                   #{pvars 15639}#
+                                                   #{exp 15499}#
+                                                   #{y 15824}#
+                                                   #{r 15496}#
+                                                   #{mod 15500}#))
+                                               (#{else-exp 15830}#
+                                                 (#{gen-syntax-case 14246}#
+                                                   #{x 15493}#
+                                                   #{keys 15494}#
+                                                   #{clauses 15495}#
+                                                   #{r 15496}#
+                                                   #{mod 15500}#)))
                                            (make-struct/no-tail
                                              (vector-ref %expanded-vtables 10)
                                              #f
-                                             #{test-exp 15724}#
-                                             #{then-exp 15725}#
-                                             #{else-exp 15726}#)))))
-                                 (let ((#{body 15696}#
+                                             #{test-exp 15828}#
+                                             #{then-exp 15829}#
+                                             #{else-exp 15830}#)))))
+                                 (let ((#{body 15800}#
                                          (make-struct/no-tail
                                            (vector-ref %expanded-vtables 15)
                                            #f
-                                           #{req 15687}#
+                                           #{req 15791}#
                                            #f
                                            #f
                                            #f
                                            '()
-                                           #{vars 15689}#
-                                           #{exp 15691}#
+                                           #{vars 15793}#
+                                           #{exp 15795}#
                                            #f)))
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 14)
                                      #f
                                      '()
-                                     #{body 15696}#))))
-                             (#{arg-exps 15679}#
-                               (list (if (eq? #{p 15534}# 'any)
-                                       (let ((#{args 15774}#
-                                               (list #{x 15389}#)))
+                                     #{body 15800}#))))
+                             (#{arg-exps 15783}#
+                               (list (if (eq? #{p 15638}# 'any)
+                                       (let ((#{args 15878}#
+                                               (list #{x 15493}#)))
                                          (make-struct/no-tail
                                            (vector-ref %expanded-vtables 12)
                                            #f
                                            'list
-                                           #{args 15774}#))
-                                       (let ((#{args 15783}#
-                                               (list #{x 15389}#
+                                           #{args 15878}#))
+                                       (let ((#{args 15887}#
+                                               (list #{x 15493}#
                                                      (make-struct/no-tail
                                                        (vector-ref
                                                          %expanded-vtables
                                                          1)
                                                        #f
-                                                       #{p 15534}#))))
+                                                       #{p 15638}#))))
                                          (make-struct/no-tail
                                            (vector-ref %expanded-vtables 12)
                                            #f
                                            '$sc-dispatch
-                                           #{args 15783}#))))))
+                                           #{args 15887}#))))))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 11)
                            #f
-                           #{fun-exp 15678}#
-                           #{arg-exps 15679}#)))))))))
-         (#{gen-syntax-case 14160}#
-           (lambda (#{x 14888}#
-                    #{keys 14889}#
-                    #{clauses 14890}#
-                    #{r 14891}#
-                    #{mod 14892}#)
-             (if (null? #{clauses 14890}#)
-               (let ((#{args 14898}#
+                           #{fun-exp 15782}#
+                           #{arg-exps 15783}#)))))))))
+         (#{gen-syntax-case 14246}#
+           (lambda (#{x 14990}#
+                    #{keys 14991}#
+                    #{clauses 14992}#
+                    #{r 14993}#
+                    #{mod 14994}#)
+             (if (null? #{clauses 14992}#)
+               (let ((#{args 15000}#
                        (list (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
@@ -14871,57 +14854,57 @@
                                (vector-ref %expanded-vtables 1)
                                #f
                                "source expression failed to match any pattern")
-                             #{x 14888}#)))
+                             #{x 14990}#)))
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 12)
                    #f
                    'syntax-violation
-                   #{args 14898}#))
-               (let ((#{tmp 14917}# (car #{clauses 14890}#)))
-                 (let ((#{tmp 14918}#
-                         ($sc-dispatch #{tmp 14917}# '(any any))))
-                   (if #{tmp 14918}#
+                   #{args 15000}#))
+               (let ((#{tmp 15019}# (car #{clauses 14992}#)))
+                 (let ((#{tmp 15020}#
+                         ($sc-dispatch #{tmp 15019}# '(any any))))
+                   (if #{tmp 15020}#
                      (@apply
-                       (lambda (#{pat 14920}# #{exp 14921}#)
-                         (if (if (if (symbol? #{pat 14920}#)
+                       (lambda (#{pat 15022}# #{exp 15023}#)
+                         (if (if (if (symbol? #{pat 15022}#)
                                    #t
-                                   (if (if (vector? #{pat 14920}#)
-                                         (if (= (vector-length #{pat 14920}#)
+                                   (if (if (vector? #{pat 15022}#)
+                                         (if (= (vector-length #{pat 15022}#)
                                                 4)
-                                           (eq? (vector-ref #{pat 14920}# 0)
+                                           (eq? (vector-ref #{pat 15022}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
-                                     (symbol? (vector-ref #{pat 14920}# 1))
+                                     (symbol? (vector-ref #{pat 15022}# 1))
                                      #f))
                                (and-map
-                                 (lambda (#{x 14948}#)
-                                   (not (#{free-id=? 4363}#
-                                          #{pat 14920}#
-                                          #{x 14948}#)))
+                                 (lambda (#{x 15050}#)
+                                   (not (#{free-id=? 4361}#
+                                          #{pat 15022}#
+                                          #{x 15050}#)))
                                  (cons '#(syntax-object
                                           ...
                                           ((top)
                                            #(ribcage
                                              #(pat exp)
                                              #((top) (top))
-                                             #("i3939" "i3940"))
+                                             #("i3937" "i3938"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x keys clauses r mod)
                                              #((top) (top) (top) (top) (top))
-                                             #("i3929"
+                                             #("i3927"
+                                               "i3928"
+                                               "i3929"
                                                "i3930"
-                                               "i3931"
-                                               "i3932"
-                                               "i3933"))
+                                               "i3931"))
                                            #(ribcage
                                              (gen-syntax-case
                                                gen-clause
                                                build-dispatch-call
                                                convert-pattern)
                                              ((top) (top) (top) (top))
-                                             ("i3742" "i3740" "i3738" "i3736"))
+                                             ("i3740" "i3738" "i3736" "i3734"))
                                            #(ribcage
                                              (lambda-var-list
                                                gen-var
@@ -15344,32 +15327,32 @@
                                              ((top) (top) (top))
                                              ("i46" "i45" "i44")))
                                           (hygiene guile))
-                                       #{keys 14889}#))
+                                       #{keys 14991}#))
                                #f)
-                           (if (#{free-id=? 4363}#
+                           (if (#{free-id=? 4361}#
                                  '#(syntax-object
                                     pad
                                     ((top)
                                      #(ribcage
                                        #(pat exp)
                                        #((top) (top))
-                                       #("i3939" "i3940"))
+                                       #("i3937" "i3938"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(x keys clauses r mod)
                                        #((top) (top) (top) (top) (top))
-                                       #("i3929"
+                                       #("i3927"
+                                         "i3928"
+                                         "i3929"
                                          "i3930"
-                                         "i3931"
-                                         "i3932"
-                                         "i3933"))
+                                         "i3931"))
                                      #(ribcage
                                        (gen-syntax-case
                                          gen-clause
                                          build-dispatch-call
                                          convert-pattern)
                                        ((top) (top) (top) (top))
-                                       ("i3742" "i3740" "i3738" "i3736"))
+                                       ("i3740" "i3738" "i3736" "i3734"))
                                      #(ribcage
                                        (lambda-var-list
                                          gen-var
@@ -15798,23 +15781,23 @@
                                      #(ribcage
                                        #(pat exp)
                                        #((top) (top))
-                                       #("i3939" "i3940"))
+                                       #("i3937" "i3938"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(x keys clauses r mod)
                                        #((top) (top) (top) (top) (top))
-                                       #("i3929"
+                                       #("i3927"
+                                         "i3928"
+                                         "i3929"
                                          "i3930"
-                                         "i3931"
-                                         "i3932"
-                                         "i3933"))
+                                         "i3931"))
                                      #(ribcage
                                        (gen-syntax-case
                                          gen-clause
                                          build-dispatch-call
                                          convert-pattern)
                                        ((top) (top) (top) (top))
-                                       ("i3742" "i3740" "i3738" "i3736"))
+                                       ("i3740" "i3738" "i3736" "i3734"))
                                      #(ribcage
                                        (lambda-var-list
                                          gen-var
@@ -16237,181 +16220,181 @@
                                        ((top) (top) (top))
                                        ("i46" "i45" "i44")))
                                     (hygiene guile)))
-                             (#{chi 4375}#
-                               #{exp 14921}#
-                               #{r 14891}#
+                             (#{chi 4373}#
+                               #{exp 15023}#
+                               #{r 14993}#
                                '(())
-                               #{mod 14892}#)
-                             (let ((#{labels 15032}#
+                               #{mod 14994}#)
+                             (let ((#{labels 15136}#
                                      (list (symbol->string (gensym "i"))))
-                                   (#{var 15033}#
-                                     (let ((#{id 15071}#
-                                             (if (if (vector? #{pat 14920}#)
+                                   (#{var 15137}#
+                                     (let ((#{id 15175}#
+                                             (if (if (vector? #{pat 15022}#)
                                                    (if (= (vector-length
-                                                            #{pat 14920}#)
+                                                            #{pat 15022}#)
                                                           4)
                                                      (eq? (vector-ref
-                                                            #{pat 14920}#
+                                                            #{pat 15022}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
-                                               (vector-ref #{pat 14920}# 1)
-                                               #{pat 14920}#)))
+                                               (vector-ref #{pat 15022}# 1)
+                                               #{pat 15022}#)))
                                        (gensym
                                          (string-append
-                                           (symbol->string #{id 15071}#)
+                                           (symbol->string #{id 15175}#)
                                            " ")))))
-                               (#{build-call 4309}#
+                               (#{build-call 4307}#
                                  #f
-                                 (#{build-simple-lambda 4318}#
+                                 (#{build-simple-lambda 4316}#
                                    #f
-                                   (list (syntax->datum #{pat 14920}#))
+                                   (list (syntax->datum #{pat 15022}#))
                                    #f
-                                   (list #{var 15033}#)
+                                   (list #{var 15137}#)
                                    '()
-                                   (#{chi 4375}#
-                                     #{exp 14921}#
-                                     (#{extend-env 4337}#
-                                       #{labels 15032}#
+                                   (#{chi 4373}#
+                                     #{exp 15023}#
+                                     (#{extend-env 4335}#
+                                       #{labels 15136}#
                                        (list (cons 'syntax
-                                                   (cons #{var 15033}# 0)))
-                                       #{r 14891}#)
-                                     (#{make-binding-wrap 4357}#
-                                       (list #{pat 14920}#)
-                                       #{labels 15032}#
+                                                   (cons #{var 15137}# 0)))
+                                       #{r 14993}#)
+                                     (#{make-binding-wrap 4355}#
+                                       (list #{pat 15022}#)
+                                       #{labels 15136}#
                                        '(()))
-                                     #{mod 14892}#))
-                                 (list #{x 14888}#))))
-                           (#{gen-clause 14159}#
-                             #{x 14888}#
-                             #{keys 14889}#
-                             (cdr #{clauses 14890}#)
-                             #{r 14891}#
-                             #{pat 14920}#
+                                     #{mod 14994}#))
+                                 (list #{x 14990}#))))
+                           (#{gen-clause 14245}#
+                             #{x 14990}#
+                             #{keys 14991}#
+                             (cdr #{clauses 14992}#)
+                             #{r 14993}#
+                             #{pat 15022}#
                              #t
-                             #{exp 14921}#
-                             #{mod 14892}#)))
-                       #{tmp 14918}#)
-                     (let ((#{tmp 15381}#
-                             ($sc-dispatch #{tmp 14917}# '(any any any))))
-                       (if #{tmp 15381}#
+                             #{exp 15023}#
+                             #{mod 14994}#)))
+                       #{tmp 15020}#)
+                     (let ((#{tmp 15485}#
+                             ($sc-dispatch #{tmp 15019}# '(any any any))))
+                       (if #{tmp 15485}#
                          (@apply
-                           (lambda (#{pat 15383}#
-                                    #{fender 15384}#
-                                    #{exp 15385}#)
-                             (#{gen-clause 14159}#
-                               #{x 14888}#
-                               #{keys 14889}#
-                               (cdr #{clauses 14890}#)
-                               #{r 14891}#
-                               #{pat 15383}#
-                               #{fender 15384}#
-                               #{exp 15385}#
-                               #{mod 14892}#))
-                           #{tmp 15381}#)
+                           (lambda (#{pat 15487}#
+                                    #{fender 15488}#
+                                    #{exp 15489}#)
+                             (#{gen-clause 14245}#
+                               #{x 14990}#
+                               #{keys 14991}#
+                               (cdr #{clauses 14992}#)
+                               #{r 14993}#
+                               #{pat 15487}#
+                               #{fender 15488}#
+                               #{exp 15489}#
+                               #{mod 14994}#))
+                           #{tmp 15485}#)
                          (syntax-violation
                            'syntax-case
                            "invalid clause"
-                           (car #{clauses 14890}#)))))))))))
-        (lambda (#{e 14161}#
-                 #{r 14162}#
-                 #{w 14163}#
-                 #{s 14164}#
-                 #{mod 14165}#)
-          (let ((#{e 14166}#
-                  (let ((#{x 14799}#
+                           (car #{clauses 14992}#)))))))))))
+        (lambda (#{e 14247}#
+                 #{r 14248}#
+                 #{w 14249}#
+                 #{s 14250}#
+                 #{mod 14251}#)
+          (let ((#{e 14252}#
+                  (let ((#{x 14901}#
                           (begin
-                            (if (if (pair? #{e 14161}#) #{s 14164}# #f)
-                              (set-source-properties! #{e 14161}# #{s 14164}#))
-                            #{e 14161}#)))
-                    (if (if (null? (car #{w 14163}#))
-                          (null? (cdr #{w 14163}#))
+                            (if (if (pair? #{e 14247}#) #{s 14250}# #f)
+                              (set-source-properties! #{e 14247}# #{s 14250}#))
+                            #{e 14247}#)))
+                    (if (if (null? (car #{w 14249}#))
+                          (null? (cdr #{w 14249}#))
                           #f)
-                      #{x 14799}#
-                      (if (if (vector? #{x 14799}#)
-                            (if (= (vector-length #{x 14799}#) 4)
-                              (eq? (vector-ref #{x 14799}# 0) 'syntax-object)
+                      #{x 14901}#
+                      (if (if (vector? #{x 14901}#)
+                            (if (= (vector-length #{x 14901}#) 4)
+                              (eq? (vector-ref #{x 14901}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (let ((#{expression 14831}# (vector-ref #{x 14799}# 1))
-                              (#{wrap 14832}#
-                                (let ((#{w2 14840}#
-                                        (vector-ref #{x 14799}# 2)))
-                                  (let ((#{m1 14841}# (car #{w 14163}#))
-                                        (#{s1 14842}# (cdr #{w 14163}#)))
-                                    (if (null? #{m1 14841}#)
-                                      (if (null? #{s1 14842}#)
-                                        #{w2 14840}#
-                                        (cons (car #{w2 14840}#)
-                                              (let ((#{m2 14857}#
-                                                      (cdr #{w2 14840}#)))
-                                                (if (null? #{m2 14857}#)
-                                                  #{s1 14842}#
+                        (let ((#{expression 14933}# (vector-ref #{x 14901}# 1))
+                              (#{wrap 14934}#
+                                (let ((#{w2 14942}#
+                                        (vector-ref #{x 14901}# 2)))
+                                  (let ((#{m1 14943}# (car #{w 14249}#))
+                                        (#{s1 14944}# (cdr #{w 14249}#)))
+                                    (if (null? #{m1 14943}#)
+                                      (if (null? #{s1 14944}#)
+                                        #{w2 14942}#
+                                        (cons (car #{w2 14942}#)
+                                              (let ((#{m2 14959}#
+                                                      (cdr #{w2 14942}#)))
+                                                (if (null? #{m2 14959}#)
+                                                  #{s1 14944}#
                                                   (append
-                                                    #{s1 14842}#
-                                                    #{m2 14857}#)))))
-                                      (cons (let ((#{m2 14865}#
-                                                    (car #{w2 14840}#)))
-                                              (if (null? #{m2 14865}#)
-                                                #{m1 14841}#
+                                                    #{s1 14944}#
+                                                    #{m2 14959}#)))))
+                                      (cons (let ((#{m2 14967}#
+                                                    (car #{w2 14942}#)))
+                                              (if (null? #{m2 14967}#)
+                                                #{m1 14943}#
                                                 (append
-                                                  #{m1 14841}#
-                                                  #{m2 14865}#)))
-                                            (let ((#{m2 14873}#
-                                                    (cdr #{w2 14840}#)))
-                                              (if (null? #{m2 14873}#)
-                                                #{s1 14842}#
+                                                  #{m1 14943}#
+                                                  #{m2 14967}#)))
+                                            (let ((#{m2 14975}#
+                                                    (cdr #{w2 14942}#)))
+                                              (if (null? #{m2 14975}#)
+                                                #{s1 14944}#
                                                 (append
-                                                  #{s1 14842}#
-                                                  #{m2 14873}#))))))))
-                              (#{module 14833}# (vector-ref #{x 14799}# 3)))
+                                                  #{s1 14944}#
+                                                  #{m2 14975}#))))))))
+                              (#{module 14935}# (vector-ref #{x 14901}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 14831}#
-                            #{wrap 14832}#
-                            #{module 14833}#))
-                        (if (null? #{x 14799}#)
-                          #{x 14799}#
+                            #{expression 14933}#
+                            #{wrap 14934}#
+                            #{module 14935}#))
+                        (if (null? #{x 14901}#)
+                          #{x 14901}#
                           (vector
                             'syntax-object
-                            #{x 14799}#
-                            #{w 14163}#
-                            #{mod 14165}#)))))))
-            (let ((#{tmp 14167}# #{e 14166}#))
-              (let ((#{tmp 14168}#
+                            #{x 14901}#
+                            #{w 14249}#
+                            #{mod 14251}#)))))))
+            (let ((#{tmp 14253}# #{e 14252}#))
+              (let ((#{tmp 14254}#
                       ($sc-dispatch
-                        #{tmp 14167}#
+                        #{tmp 14253}#
                         '(_ any each-any . each-any))))
-                (if #{tmp 14168}#
+                (if #{tmp 14254}#
                   (@apply
-                    (lambda (#{val 14216}# #{key 14217}# #{m 14218}#)
+                    (lambda (#{val 14306}# #{key 14307}# #{m 14308}#)
                       (if (and-map
-                            (lambda (#{x 14219}#)
-                              (if (if (symbol? #{x 14219}#)
+                            (lambda (#{x 14309}#)
+                              (if (if (symbol? #{x 14309}#)
                                     #t
-                                    (if (if (vector? #{x 14219}#)
-                                          (if (= (vector-length #{x 14219}#) 4)
-                                            (eq? (vector-ref #{x 14219}# 0)
+                                    (if (if (vector? #{x 14309}#)
+                                          (if (= (vector-length #{x 14309}#) 4)
+                                            (eq? (vector-ref #{x 14309}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (symbol? (vector-ref #{x 14219}# 1))
+                                      (symbol? (vector-ref #{x 14309}# 1))
                                       #f))
-                                (not (if (if (if (vector? #{x 14219}#)
+                                (not (if (if (if (vector? #{x 14309}#)
                                                (if (= (vector-length
-                                                        #{x 14219}#)
+                                                        #{x 14309}#)
                                                       4)
                                                  (eq? (vector-ref
-                                                        #{x 14219}#
+                                                        #{x 14309}#
                                                         0)
                                                       'syntax-object)
                                                  #f)
                                                #f)
-                                           (symbol? (vector-ref #{x 14219}# 1))
+                                           (symbol? (vector-ref #{x 14309}# 1))
                                            #f)
-                                       (#{free-id=? 4363}#
-                                         #{x 14219}#
+                                       (#{free-id=? 4361}#
+                                         #{x 14309}#
                                          '#(syntax-object
                                             ...
                                             ((top)
@@ -16420,7 +16403,7 @@
                                              #(ribcage
                                                #(x)
                                                #((top))
-                                               #("i2263"))
+                                               #("i2261"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -16845,790 +16828,790 @@
                                             (hygiene guile)))
                                        #f))
                                 #f))
-                            #{key 14217}#)
-                        (let ((#{x 14284}#
+                            #{key 14307}#)
+                        (let ((#{x 14374}#
                                 (gensym
                                   (string-append (symbol->string 'tmp) " "))))
-                          (#{build-call 4309}#
-                            #{s 14164}#
-                            (let ((#{req 14424}# (list 'tmp))
-                                  (#{vars 14426}# (list #{x 14284}#))
-                                  (#{exp 14428}#
-                                    (#{gen-syntax-case 14160}#
+                          (#{build-call 4307}#
+                            #{s 14250}#
+                            (let ((#{req 14516}# (list 'tmp))
+                                  (#{vars 14518}# (list #{x 14374}#))
+                                  (#{exp 14520}#
+                                    (#{gen-syntax-case 14246}#
                                       (make-struct/no-tail
                                         (vector-ref %expanded-vtables 3)
                                         #f
                                         'tmp
-                                        #{x 14284}#)
-                                      #{key 14217}#
-                                      #{m 14218}#
-                                      #{r 14162}#
-                                      #{mod 14165}#)))
-                              (let ((#{body 14433}#
+                                        #{x 14374}#)
+                                      #{key 14307}#
+                                      #{m 14308}#
+                                      #{r 14248}#
+                                      #{mod 14251}#)))
+                              (let ((#{body 14525}#
                                       (make-struct/no-tail
                                         (vector-ref %expanded-vtables 15)
                                         #f
-                                        #{req 14424}#
+                                        #{req 14516}#
                                         #f
                                         #f
                                         #f
                                         '()
-                                        #{vars 14426}#
-                                        #{exp 14428}#
+                                        #{vars 14518}#
+                                        #{exp 14520}#
                                         #f)))
                                 (make-struct/no-tail
                                   (vector-ref %expanded-vtables 14)
                                   #f
                                   '()
-                                  #{body 14433}#)))
-                            (list (#{chi 4375}#
-                                    #{val 14216}#
-                                    #{r 14162}#
+                                  #{body 14525}#)))
+                            (list (#{chi 4373}#
+                                    #{val 14306}#
+                                    #{r 14248}#
                                     '(())
-                                    #{mod 14165}#))))
+                                    #{mod 14251}#))))
                         (syntax-violation
                           'syntax-case
                           "invalid literals list"
-                          #{e 14166}#)))
-                    #{tmp 14168}#)
+                          #{e 14252}#)))
+                    #{tmp 14254}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp 14167}#))))))))
+                    #{tmp 14253}#))))))))
     (set! macroexpand
       (lambda*
-        (#{x 17153}#
+        (#{x 17257}#
           #:optional
-          (#{m 17154}# 'e)
-          (#{esew 17155}# '(eval)))
-        (#{chi-top-sequence 4371}#
-          (list #{x 17153}#)
+          (#{m 17258}# 'e)
+          (#{esew 17259}# '(eval)))
+        (#{chi-top-sequence 4369}#
+          (list #{x 17257}#)
           '()
           '((top))
           #f
-          #{m 17154}#
-          #{esew 17155}#
+          #{m 17258}#
+          #{esew 17259}#
           (cons 'hygiene (module-name (current-module))))))
     (set! identifier?
-      (lambda (#{x 17158}#)
-        (if (if (vector? #{x 17158}#)
-              (if (= (vector-length #{x 17158}#) 4)
-                (eq? (vector-ref #{x 17158}# 0) 'syntax-object)
+      (lambda (#{x 17262}#)
+        (if (if (vector? #{x 17262}#)
+              (if (= (vector-length #{x 17262}#) 4)
+                (eq? (vector-ref #{x 17262}# 0) 'syntax-object)
                 #f)
               #f)
-          (symbol? (vector-ref #{x 17158}# 1))
+          (symbol? (vector-ref #{x 17262}# 1))
           #f)))
     (set! datum->syntax
-      (lambda (#{id 17183}# #{datum 17184}#)
-        (let ((#{wrap 17189}# (vector-ref #{id 17183}# 2))
-              (#{module 17190}# (vector-ref #{id 17183}# 3)))
+      (lambda (#{id 17287}# #{datum 17288}#)
+        (let ((#{wrap 17293}# (vector-ref #{id 17287}# 2))
+              (#{module 17294}# (vector-ref #{id 17287}# 3)))
           (vector
             'syntax-object
-            #{datum 17184}#
-            #{wrap 17189}#
-            #{module 17190}#))))
+            #{datum 17288}#
+            #{wrap 17293}#
+            #{module 17294}#))))
     (set! syntax->datum
-      (lambda (#{x 17197}#)
-        (#{strip 4388}# #{x 17197}# '(()))))
+      (lambda (#{x 17301}#)
+        (#{strip 4386}# #{x 17301}# '(()))))
     (set! syntax-source
-      (lambda (#{x 17200}#)
-        (#{source-annotation 4336}# #{x 17200}#)))
+      (lambda (#{x 17304}#)
+        (#{source-annotation 4334}# #{x 17304}#)))
     (set! generate-temporaries
-      (lambda (#{ls 17390}#)
+      (lambda (#{ls 17506}#)
         (begin
-          (if (not (list? #{ls 17390}#))
+          (if (not (list? #{ls 17506}#))
             (syntax-violation
               'generate-temporaries
               "invalid argument"
-              #{ls 17390}#))
-          (let ((#{mod 17398}#
+              #{ls 17506}#))
+          (let ((#{mod 17514}#
                   (cons 'hygiene (module-name (current-module)))))
-            (map (lambda (#{x 17399}#)
-                   (let ((#{x 17403}# (gensym)))
-                     (if (if (vector? #{x 17403}#)
-                           (if (= (vector-length #{x 17403}#) 4)
-                             (eq? (vector-ref #{x 17403}# 0) 'syntax-object)
+            (map (lambda (#{x 17515}#)
+                   (let ((#{x 17519}# (gensym)))
+                     (if (if (vector? #{x 17519}#)
+                           (if (= (vector-length #{x 17519}#) 4)
+                             (eq? (vector-ref #{x 17519}# 0) 'syntax-object)
                              #f)
                            #f)
-                       (let ((#{expression 17418}# (vector-ref #{x 17403}# 1))
-                             (#{wrap 17419}#
-                               (let ((#{w2 17427}# (vector-ref #{x 17403}# 2)))
-                                 (cons (let ((#{m2 17434}# (car #{w2 17427}#)))
-                                         (if (null? #{m2 17434}#)
+                       (let ((#{expression 17534}# (vector-ref #{x 17519}# 1))
+                             (#{wrap 17535}#
+                               (let ((#{w2 17543}# (vector-ref #{x 17519}# 2)))
+                                 (cons (let ((#{m2 17550}# (car #{w2 17543}#)))
+                                         (if (null? #{m2 17550}#)
                                            '(top)
-                                           (append '(top) #{m2 17434}#)))
-                                       (let ((#{m2 17441}# (cdr #{w2 17427}#)))
-                                         (if (null? #{m2 17441}#)
+                                           (append '(top) #{m2 17550}#)))
+                                       (let ((#{m2 17557}# (cdr #{w2 17543}#)))
+                                         (if (null? #{m2 17557}#)
                                            '()
-                                           (append '() #{m2 17441}#))))))
-                             (#{module 17420}# (vector-ref #{x 17403}# 3)))
+                                           (append '() #{m2 17557}#))))))
+                             (#{module 17536}# (vector-ref #{x 17519}# 3)))
                          (vector
                            'syntax-object
-                           #{expression 17418}#
-                           #{wrap 17419}#
-                           #{module 17420}#))
-                       (if (null? #{x 17403}#)
-                         #{x 17403}#
+                           #{expression 17534}#
+                           #{wrap 17535}#
+                           #{module 17536}#))
+                       (if (null? #{x 17519}#)
+                         #{x 17519}#
                          (vector
                            'syntax-object
-                           #{x 17403}#
+                           #{x 17519}#
                            '((top))
-                           #{mod 17398}#)))))
-                 #{ls 17390}#)))))
+                           #{mod 17514}#)))))
+                 #{ls 17506}#)))))
     (set! free-identifier=?
-      (lambda (#{x 17450}# #{y 17451}#)
+      (lambda (#{x 17566}# #{y 17567}#)
         (begin
-          (if (not (if (if (vector? #{x 17450}#)
-                         (if (= (vector-length #{x 17450}#) 4)
-                           (eq? (vector-ref #{x 17450}# 0) 'syntax-object)
+          (if (not (if (if (vector? #{x 17566}#)
+                         (if (= (vector-length #{x 17566}#) 4)
+                           (eq? (vector-ref #{x 17566}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{x 17450}# 1))
+                     (symbol? (vector-ref #{x 17566}# 1))
                      #f))
             (syntax-violation
               'free-identifier=?
               "invalid argument"
-              #{x 17450}#))
-          (if (not (if (if (vector? #{y 17451}#)
-                         (if (= (vector-length #{y 17451}#) 4)
-                           (eq? (vector-ref #{y 17451}# 0) 'syntax-object)
+              #{x 17566}#))
+          (if (not (if (if (vector? #{y 17567}#)
+                         (if (= (vector-length #{y 17567}#) 4)
+                           (eq? (vector-ref #{y 17567}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{y 17451}# 1))
+                     (symbol? (vector-ref #{y 17567}# 1))
                      #f))
             (syntax-violation
               'free-identifier=?
               "invalid argument"
-              #{y 17451}#))
-          (#{free-id=? 4363}# #{x 17450}# #{y 17451}#))))
+              #{y 17567}#))
+          (#{free-id=? 4361}# #{x 17566}# #{y 17567}#))))
     (set! bound-identifier=?
-      (lambda (#{x 17526}# #{y 17527}#)
+      (lambda (#{x 17642}# #{y 17643}#)
         (begin
-          (if (not (if (if (vector? #{x 17526}#)
-                         (if (= (vector-length #{x 17526}#) 4)
-                           (eq? (vector-ref #{x 17526}# 0) 'syntax-object)
+          (if (not (if (if (vector? #{x 17642}#)
+                         (if (= (vector-length #{x 17642}#) 4)
+                           (eq? (vector-ref #{x 17642}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{x 17526}# 1))
+                     (symbol? (vector-ref #{x 17642}# 1))
                      #f))
             (syntax-violation
               'bound-identifier=?
               "invalid argument"
-              #{x 17526}#))
-          (if (not (if (if (vector? #{y 17527}#)
-                         (if (= (vector-length #{y 17527}#) 4)
-                           (eq? (vector-ref #{y 17527}# 0) 'syntax-object)
+              #{x 17642}#))
+          (if (not (if (if (vector? #{y 17643}#)
+                         (if (= (vector-length #{y 17643}#) 4)
+                           (eq? (vector-ref #{y 17643}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{y 17527}# 1))
+                     (symbol? (vector-ref #{y 17643}# 1))
                      #f))
             (syntax-violation
               'bound-identifier=?
               "invalid argument"
-              #{y 17527}#))
-          (#{bound-id=? 4364}# #{x 17526}# #{y 17527}#))))
+              #{y 17643}#))
+          (#{bound-id=? 4362}# #{x 17642}# #{y 17643}#))))
     (set! syntax-violation
       (lambda*
-        (#{who 17693}#
-          #{message 17694}#
-          #{form 17695}#
+        (#{who 17809}#
+          #{message 17810}#
+          #{form 17811}#
           #:optional
-          (#{subform 17696}# #f))
+          (#{subform 17812}# #f))
         (begin
-          (if (not (if (not #{who 17693}#)
-                     (not #{who 17693}#)
-                     (let ((#{t 17714}# (string? #{who 17693}#)))
-                       (if #{t 17714}#
-                         #{t 17714}#
-                         (symbol? #{who 17693}#)))))
+          (if (not (if (not #{who 17809}#)
+                     (not #{who 17809}#)
+                     (let ((#{t 17830}# (string? #{who 17809}#)))
+                       (if #{t 17830}#
+                         #{t 17830}#
+                         (symbol? #{who 17809}#)))))
             (syntax-violation
               'syntax-violation
               "invalid argument"
-              #{who 17693}#))
-          (if (not (string? #{message 17694}#))
+              #{who 17809}#))
+          (if (not (string? #{message 17810}#))
             (syntax-violation
               'syntax-violation
               "invalid argument"
-              #{message 17694}#))
+              #{message 17810}#))
           (throw 'syntax-error
-                 #{who 17693}#
-                 #{message 17694}#
-                 (#{source-annotation 4336}#
-                   (if #{form 17695}#
-                     #{form 17695}#
-                     #{subform 17696}#))
-                 (#{strip 4388}# #{form 17695}# '(()))
-                 (if #{subform 17696}#
-                   (#{strip 4388}# #{subform 17696}# '(()))
+                 #{who 17809}#
+                 #{message 17810}#
+                 (#{source-annotation 4334}#
+                   (if #{form 17811}#
+                     #{form 17811}#
+                     #{subform 17812}#))
+                 (#{strip 4386}# #{form 17811}# '(()))
+                 (if #{subform 17812}#
+                   (#{strip 4386}# #{subform 17812}# '(()))
                    #f)))))
     (letrec*
-      ((#{match-each 17956}#
-         (lambda (#{e 18844}#
-                  #{p 18845}#
-                  #{w 18846}#
-                  #{mod 18847}#)
-           (if (pair? #{e 18844}#)
-             (let ((#{first 18848}#
-                     (#{match 17962}#
-                       (car #{e 18844}#)
-                       #{p 18845}#
-                       #{w 18846}#
+      ((#{match-each 18081}#
+         (lambda (#{e 18969}#
+                  #{p 18970}#
+                  #{w 18971}#
+                  #{mod 18972}#)
+           (if (pair? #{e 18969}#)
+             (let ((#{first 18973}#
+                     (#{match 18087}#
+                       (car #{e 18969}#)
+                       #{p 18970}#
+                       #{w 18971}#
                        '()
-                       #{mod 18847}#)))
-               (if #{first 18848}#
-                 (let ((#{rest 18851}#
-                         (#{match-each 17956}#
-                           (cdr #{e 18844}#)
-                           #{p 18845}#
-                           #{w 18846}#
-                           #{mod 18847}#)))
-                   (if #{rest 18851}#
-                     (cons #{first 18848}# #{rest 18851}#)
+                       #{mod 18972}#)))
+               (if #{first 18973}#
+                 (let ((#{rest 18976}#
+                         (#{match-each 18081}#
+                           (cdr #{e 18969}#)
+                           #{p 18970}#
+                           #{w 18971}#
+                           #{mod 18972}#)))
+                   (if #{rest 18976}#
+                     (cons #{first 18973}# #{rest 18976}#)
                      #f))
                  #f))
-             (if (null? #{e 18844}#)
+             (if (null? #{e 18969}#)
                '()
-               (if (if (vector? #{e 18844}#)
-                     (if (= (vector-length #{e 18844}#) 4)
-                       (eq? (vector-ref #{e 18844}# 0) 'syntax-object)
+               (if (if (vector? #{e 18969}#)
+                     (if (= (vector-length #{e 18969}#) 4)
+                       (eq? (vector-ref #{e 18969}# 0) 'syntax-object)
                        #f)
                      #f)
-                 (#{match-each 17956}#
-                   (vector-ref #{e 18844}# 1)
-                   #{p 18845}#
-                   (let ((#{w2 18873}# (vector-ref #{e 18844}# 2)))
-                     (let ((#{m1 18874}# (car #{w 18846}#))
-                           (#{s1 18875}# (cdr #{w 18846}#)))
-                       (if (null? #{m1 18874}#)
-                         (if (null? #{s1 18875}#)
-                           #{w2 18873}#
-                           (cons (car #{w2 18873}#)
-                                 (let ((#{m2 18886}# (cdr #{w2 18873}#)))
-                                   (if (null? #{m2 18886}#)
-                                     #{s1 18875}#
-                                     (append #{s1 18875}# #{m2 18886}#)))))
-                         (cons (let ((#{m2 18894}# (car #{w2 18873}#)))
-                                 (if (null? #{m2 18894}#)
-                                   #{m1 18874}#
-                                   (append #{m1 18874}# #{m2 18894}#)))
-                               (let ((#{m2 18902}# (cdr #{w2 18873}#)))
-                                 (if (null? #{m2 18902}#)
-                                   #{s1 18875}#
-                                   (append #{s1 18875}# #{m2 18902}#)))))))
-                   (vector-ref #{e 18844}# 3))
+                 (#{match-each 18081}#
+                   (vector-ref #{e 18969}# 1)
+                   #{p 18970}#
+                   (let ((#{w2 18998}# (vector-ref #{e 18969}# 2)))
+                     (let ((#{m1 18999}# (car #{w 18971}#))
+                           (#{s1 19000}# (cdr #{w 18971}#)))
+                       (if (null? #{m1 18999}#)
+                         (if (null? #{s1 19000}#)
+                           #{w2 18998}#
+                           (cons (car #{w2 18998}#)
+                                 (let ((#{m2 19011}# (cdr #{w2 18998}#)))
+                                   (if (null? #{m2 19011}#)
+                                     #{s1 19000}#
+                                     (append #{s1 19000}# #{m2 19011}#)))))
+                         (cons (let ((#{m2 19019}# (car #{w2 18998}#)))
+                                 (if (null? #{m2 19019}#)
+                                   #{m1 18999}#
+                                   (append #{m1 18999}# #{m2 19019}#)))
+                               (let ((#{m2 19027}# (cdr #{w2 18998}#)))
+                                 (if (null? #{m2 19027}#)
+                                   #{s1 19000}#
+                                   (append #{s1 19000}# #{m2 19027}#)))))))
+                   (vector-ref #{e 18969}# 3))
                  #f)))))
-       (#{match-each-any 17958}#
-         (lambda (#{e 18911}# #{w 18912}# #{mod 18913}#)
-           (if (pair? #{e 18911}#)
-             (let ((#{l 18914}#
-                     (#{match-each-any 17958}#
-                       (cdr #{e 18911}#)
-                       #{w 18912}#
-                       #{mod 18913}#)))
-               (if #{l 18914}#
-                 (cons (let ((#{x 18919}# (car #{e 18911}#)))
-                         (if (if (null? (car #{w 18912}#))
-                               (null? (cdr #{w 18912}#))
+       (#{match-each-any 18083}#
+         (lambda (#{e 19036}# #{w 19037}# #{mod 19038}#)
+           (if (pair? #{e 19036}#)
+             (let ((#{l 19039}#
+                     (#{match-each-any 18083}#
+                       (cdr #{e 19036}#)
+                       #{w 19037}#
+                       #{mod 19038}#)))
+               (if #{l 19039}#
+                 (cons (let ((#{x 19044}# (car #{e 19036}#)))
+                         (if (if (null? (car #{w 19037}#))
+                               (null? (cdr #{w 19037}#))
                                #f)
-                           #{x 18919}#
-                           (if (if (vector? #{x 18919}#)
-                                 (if (= (vector-length #{x 18919}#) 4)
-                                   (eq? (vector-ref #{x 18919}# 0)
+                           #{x 19044}#
+                           (if (if (vector? #{x 19044}#)
+                                 (if (= (vector-length #{x 19044}#) 4)
+                                   (eq? (vector-ref #{x 19044}# 0)
                                         'syntax-object)
                                    #f)
                                  #f)
-                             (let ((#{expression 18937}#
-                                     (vector-ref #{x 18919}# 1))
-                                   (#{wrap 18938}#
-                                     (let ((#{w2 18946}#
-                                             (vector-ref #{x 18919}# 2)))
-                                       (let ((#{m1 18947}# (car #{w 18912}#))
-                                             (#{s1 18948}# (cdr #{w 18912}#)))
-                                         (if (null? #{m1 18947}#)
-                                           (if (null? #{s1 18948}#)
-                                             #{w2 18946}#
-                                             (cons (car #{w2 18946}#)
-                                                   (let ((#{m2 18963}#
-                                                           (cdr #{w2 18946}#)))
-                                                     (if (null? #{m2 18963}#)
-                                                       #{s1 18948}#
+                             (let ((#{expression 19062}#
+                                     (vector-ref #{x 19044}# 1))
+                                   (#{wrap 19063}#
+                                     (let ((#{w2 19071}#
+                                             (vector-ref #{x 19044}# 2)))
+                                       (let ((#{m1 19072}# (car #{w 19037}#))
+                                             (#{s1 19073}# (cdr #{w 19037}#)))
+                                         (if (null? #{m1 19072}#)
+                                           (if (null? #{s1 19073}#)
+                                             #{w2 19071}#
+                                             (cons (car #{w2 19071}#)
+                                                   (let ((#{m2 19088}#
+                                                           (cdr #{w2 19071}#)))
+                                                     (if (null? #{m2 19088}#)
+                                                       #{s1 19073}#
                                                        (append
-                                                         #{s1 18948}#
-                                                         #{m2 18963}#)))))
-                                           (cons (let ((#{m2 18971}#
-                                                         (car #{w2 18946}#)))
-                                                   (if (null? #{m2 18971}#)
-                                                     #{m1 18947}#
+                                                         #{s1 19073}#
+                                                         #{m2 19088}#)))))
+                                           (cons (let ((#{m2 19096}#
+                                                         (car #{w2 19071}#)))
+                                                   (if (null? #{m2 19096}#)
+                                                     #{m1 19072}#
                                                      (append
-                                                       #{m1 18947}#
-                                                       #{m2 18971}#)))
-                                                 (let ((#{m2 18979}#
-                                                         (cdr #{w2 18946}#)))
-                                                   (if (null? #{m2 18979}#)
-                                                     #{s1 18948}#
+                                                       #{m1 19072}#
+                                                       #{m2 19096}#)))
+                                                 (let ((#{m2 19104}#
+                                                         (cdr #{w2 19071}#)))
+                                                   (if (null? #{m2 19104}#)
+                                                     #{s1 19073}#
                                                      (append
-                                                       #{s1 18948}#
-                                                       #{m2 18979}#))))))))
-                                   (#{module 18939}#
-                                     (vector-ref #{x 18919}# 3)))
+                                                       #{s1 19073}#
+                                                       #{m2 19104}#))))))))
+                                   (#{module 19064}#
+                                     (vector-ref #{x 19044}# 3)))
                                (vector
                                  'syntax-object
-                                 #{expression 18937}#
-                                 #{wrap 18938}#
-                                 #{module 18939}#))
-                             (if (null? #{x 18919}#)
-                               #{x 18919}#
+                                 #{expression 19062}#
+                                 #{wrap 19063}#
+                                 #{module 19064}#))
+                             (if (null? #{x 19044}#)
+                               #{x 19044}#
                                (vector
                                  'syntax-object
-                                 #{x 18919}#
-                                 #{w 18912}#
-                                 #{mod 18913}#)))))
-                       #{l 18914}#)
+                                 #{x 19044}#
+                                 #{w 19037}#
+                                 #{mod 19038}#)))))
+                       #{l 19039}#)
                  #f))
-             (if (null? #{e 18911}#)
+             (if (null? #{e 19036}#)
                '()
-               (if (if (vector? #{e 18911}#)
-                     (if (= (vector-length #{e 18911}#) 4)
-                       (eq? (vector-ref #{e 18911}# 0) 'syntax-object)
+               (if (if (vector? #{e 19036}#)
+                     (if (= (vector-length #{e 19036}#) 4)
+                       (eq? (vector-ref #{e 19036}# 0) 'syntax-object)
                        #f)
                      #f)
-                 (#{match-each-any 17958}#
-                   (vector-ref #{e 18911}# 1)
-                   (let ((#{w2 19012}# (vector-ref #{e 18911}# 2)))
-                     (let ((#{m1 19013}# (car #{w 18912}#))
-                           (#{s1 19014}# (cdr #{w 18912}#)))
-                       (if (null? #{m1 19013}#)
-                         (if (null? #{s1 19014}#)
-                           #{w2 19012}#
-                           (cons (car #{w2 19012}#)
-                                 (let ((#{m2 19025}# (cdr #{w2 19012}#)))
-                                   (if (null? #{m2 19025}#)
-                                     #{s1 19014}#
-                                     (append #{s1 19014}# #{m2 19025}#)))))
-                         (cons (let ((#{m2 19033}# (car #{w2 19012}#)))
-                                 (if (null? #{m2 19033}#)
-                                   #{m1 19013}#
-                                   (append #{m1 19013}# #{m2 19033}#)))
-                               (let ((#{m2 19041}# (cdr #{w2 19012}#)))
-                                 (if (null? #{m2 19041}#)
-                                   #{s1 19014}#
-                                   (append #{s1 19014}# #{m2 19041}#)))))))
-                   #{mod 18913}#)
+                 (#{match-each-any 18083}#
+                   (vector-ref #{e 19036}# 1)
+                   (let ((#{w2 19137}# (vector-ref #{e 19036}# 2)))
+                     (let ((#{m1 19138}# (car #{w 19037}#))
+                           (#{s1 19139}# (cdr #{w 19037}#)))
+                       (if (null? #{m1 19138}#)
+                         (if (null? #{s1 19139}#)
+                           #{w2 19137}#
+                           (cons (car #{w2 19137}#)
+                                 (let ((#{m2 19150}# (cdr #{w2 19137}#)))
+                                   (if (null? #{m2 19150}#)
+                                     #{s1 19139}#
+                                     (append #{s1 19139}# #{m2 19150}#)))))
+                         (cons (let ((#{m2 19158}# (car #{w2 19137}#)))
+                                 (if (null? #{m2 19158}#)
+                                   #{m1 19138}#
+                                   (append #{m1 19138}# #{m2 19158}#)))
+                               (let ((#{m2 19166}# (cdr #{w2 19137}#)))
+                                 (if (null? #{m2 19166}#)
+                                   #{s1 19139}#
+                                   (append #{s1 19139}# #{m2 19166}#)))))))
+                   #{mod 19038}#)
                  #f)))))
-       (#{match-empty 17959}#
-         (lambda (#{p 19046}# #{r 19047}#)
-           (if (null? #{p 19046}#)
-             #{r 19047}#
-             (if (eq? #{p 19046}# '_)
-               #{r 19047}#
-               (if (eq? #{p 19046}# 'any)
-                 (cons '() #{r 19047}#)
-                 (if (pair? #{p 19046}#)
-                   (#{match-empty 17959}#
-                     (car #{p 19046}#)
-                     (#{match-empty 17959}#
-                       (cdr #{p 19046}#)
-                       #{r 19047}#))
-                   (if (eq? #{p 19046}# 'each-any)
-                     (cons '() #{r 19047}#)
-                     (let ((#{atom-key 19048}# (vector-ref #{p 19046}# 0)))
-                       (if (eqv? #{atom-key 19048}# 'each)
-                         (#{match-empty 17959}#
-                           (vector-ref #{p 19046}# 1)
-                           #{r 19047}#)
-                         (if (eqv? #{atom-key 19048}# 'each+)
-                           (#{match-empty 17959}#
-                             (vector-ref #{p 19046}# 1)
-                             (#{match-empty 17959}#
-                               (reverse (vector-ref #{p 19046}# 2))
-                               (#{match-empty 17959}#
-                                 (vector-ref #{p 19046}# 3)
-                                 #{r 19047}#)))
-                           (if (if (eqv? #{atom-key 19048}# 'free-id)
+       (#{match-empty 18084}#
+         (lambda (#{p 19171}# #{r 19172}#)
+           (if (null? #{p 19171}#)
+             #{r 19172}#
+             (if (eq? #{p 19171}# '_)
+               #{r 19172}#
+               (if (eq? #{p 19171}# 'any)
+                 (cons '() #{r 19172}#)
+                 (if (pair? #{p 19171}#)
+                   (#{match-empty 18084}#
+                     (car #{p 19171}#)
+                     (#{match-empty 18084}#
+                       (cdr #{p 19171}#)
+                       #{r 19172}#))
+                   (if (eq? #{p 19171}# 'each-any)
+                     (cons '() #{r 19172}#)
+                     (let ((#{atom-key 19173}# (vector-ref #{p 19171}# 0)))
+                       (if (eqv? #{atom-key 19173}# 'each)
+                         (#{match-empty 18084}#
+                           (vector-ref #{p 19171}# 1)
+                           #{r 19172}#)
+                         (if (eqv? #{atom-key 19173}# 'each+)
+                           (#{match-empty 18084}#
+                             (vector-ref #{p 19171}# 1)
+                             (#{match-empty 18084}#
+                               (reverse (vector-ref #{p 19171}# 2))
+                               (#{match-empty 18084}#
+                                 (vector-ref #{p 19171}# 3)
+                                 #{r 19172}#)))
+                           (if (if (eqv? #{atom-key 19173}# 'free-id)
                                  #t
-                                 (eqv? #{atom-key 19048}# 'atom))
-                             #{r 19047}#
-                             (if (eqv? #{atom-key 19048}# 'vector)
-                               (#{match-empty 17959}#
-                                 (vector-ref #{p 19046}# 1)
-                                 #{r 19047}#)))))))))))))
-       (#{combine 17960}#
-         (lambda (#{r* 19067}# #{r 19068}#)
-           (if (null? (car #{r* 19067}#))
-             #{r 19068}#
-             (cons (map car #{r* 19067}#)
-                   (#{combine 17960}#
-                     (map cdr #{r* 19067}#)
-                     #{r 19068}#)))))
-       (#{match* 17961}#
-         (lambda (#{e 17991}#
-                  #{p 17992}#
-                  #{w 17993}#
-                  #{r 17994}#
-                  #{mod 17995}#)
-           (if (null? #{p 17992}#)
-             (if (null? #{e 17991}#) #{r 17994}# #f)
-             (if (pair? #{p 17992}#)
-               (if (pair? #{e 17991}#)
-                 (#{match 17962}#
-                   (car #{e 17991}#)
-                   (car #{p 17992}#)
-                   #{w 17993}#
-                   (#{match 17962}#
-                     (cdr #{e 17991}#)
-                     (cdr #{p 17992}#)
-                     #{w 17993}#
-                     #{r 17994}#
-                     #{mod 17995}#)
-                   #{mod 17995}#)
+                                 (eqv? #{atom-key 19173}# 'atom))
+                             #{r 19172}#
+                             (if (eqv? #{atom-key 19173}# 'vector)
+                               (#{match-empty 18084}#
+                                 (vector-ref #{p 19171}# 1)
+                                 #{r 19172}#)))))))))))))
+       (#{combine 18085}#
+         (lambda (#{r* 19192}# #{r 19193}#)
+           (if (null? (car #{r* 19192}#))
+             #{r 19193}#
+             (cons (map car #{r* 19192}#)
+                   (#{combine 18085}#
+                     (map cdr #{r* 19192}#)
+                     #{r 19193}#)))))
+       (#{match* 18086}#
+         (lambda (#{e 18116}#
+                  #{p 18117}#
+                  #{w 18118}#
+                  #{r 18119}#
+                  #{mod 18120}#)
+           (if (null? #{p 18117}#)
+             (if (null? #{e 18116}#) #{r 18119}# #f)
+             (if (pair? #{p 18117}#)
+               (if (pair? #{e 18116}#)
+                 (#{match 18087}#
+                   (car #{e 18116}#)
+                   (car #{p 18117}#)
+                   #{w 18118}#
+                   (#{match 18087}#
+                     (cdr #{e 18116}#)
+                     (cdr #{p 18117}#)
+                     #{w 18118}#
+                     #{r 18119}#
+                     #{mod 18120}#)
+                   #{mod 18120}#)
                  #f)
-               (if (eq? #{p 17992}# 'each-any)
-                 (let ((#{l 18000}#
-                         (#{match-each-any 17958}#
-                           #{e 17991}#
-                           #{w 17993}#
-                           #{mod 17995}#)))
-                   (if #{l 18000}#
-                     (cons #{l 18000}# #{r 17994}#)
+               (if (eq? #{p 18117}# 'each-any)
+                 (let ((#{l 18125}#
+                         (#{match-each-any 18083}#
+                           #{e 18116}#
+                           #{w 18118}#
+                           #{mod 18120}#)))
+                   (if #{l 18125}#
+                     (cons #{l 18125}# #{r 18119}#)
                      #f))
-                 (let ((#{atom-key 18005}# (vector-ref #{p 17992}# 0)))
-                   (if (eqv? #{atom-key 18005}# 'each)
-                     (if (null? #{e 17991}#)
-                       (#{match-empty 17959}#
-                         (vector-ref #{p 17992}# 1)
-                         #{r 17994}#)
-                       (let ((#{l 18012}#
-                               (#{match-each 17956}#
-                                 #{e 17991}#
-                                 (vector-ref #{p 17992}# 1)
-                                 #{w 17993}#
-                                 #{mod 17995}#)))
-                         (if #{l 18012}#
+                 (let ((#{atom-key 18130}# (vector-ref #{p 18117}# 0)))
+                   (if (eqv? #{atom-key 18130}# 'each)
+                     (if (null? #{e 18116}#)
+                       (#{match-empty 18084}#
+                         (vector-ref #{p 18117}# 1)
+                         #{r 18119}#)
+                       (let ((#{l 18137}#
+                               (#{match-each 18081}#
+                                 #{e 18116}#
+                                 (vector-ref #{p 18117}# 1)
+                                 #{w 18118}#
+                                 #{mod 18120}#)))
+                         (if #{l 18137}#
                            (letrec*
-                             ((#{collect 18015}#
-                                (lambda (#{l 18076}#)
-                                  (if (null? (car #{l 18076}#))
-                                    #{r 17994}#
-                                    (cons (map car #{l 18076}#)
-                                          (#{collect 18015}#
-                                            (map cdr #{l 18076}#)))))))
-                             (#{collect 18015}# #{l 18012}#))
+                             ((#{collect 18140}#
+                                (lambda (#{l 18201}#)
+                                  (if (null? (car #{l 18201}#))
+                                    #{r 18119}#
+                                    (cons (map car #{l 18201}#)
+                                          (#{collect 18140}#
+                                            (map cdr #{l 18201}#)))))))
+                             (#{collect 18140}# #{l 18137}#))
                            #f)))
-                     (if (eqv? #{atom-key 18005}# 'each+)
+                     (if (eqv? #{atom-key 18130}# 'each+)
                        (call-with-values
                          (lambda ()
-                           (let ((#{x-pat 18085}# (vector-ref #{p 17992}# 1))
-                                 (#{y-pat 18086}# (vector-ref #{p 17992}# 2))
-                                 (#{z-pat 18087}# (vector-ref #{p 17992}# 3)))
+                           (let ((#{x-pat 18210}# (vector-ref #{p 18117}# 1))
+                                 (#{y-pat 18211}# (vector-ref #{p 18117}# 2))
+                                 (#{z-pat 18212}# (vector-ref #{p 18117}# 3)))
                              (letrec*
-                               ((#{f 18091}#
-                                  (lambda (#{e 18093}# #{w 18094}#)
-                                    (if (pair? #{e 18093}#)
+                               ((#{f 18216}#
+                                  (lambda (#{e 18218}# #{w 18219}#)
+                                    (if (pair? #{e 18218}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{f 18091}#
-                                            (cdr #{e 18093}#)
-                                            #{w 18094}#))
-                                        (lambda (#{xr* 18095}#
-                                                 #{y-pat 18096}#
-                                                 #{r 18097}#)
-                                          (if #{r 18097}#
-                                            (if (null? #{y-pat 18096}#)
-                                              (let ((#{xr 18098}#
-                                                      (#{match 17962}#
-                                                        (car #{e 18093}#)
-                                                        #{x-pat 18085}#
-                                                        #{w 18094}#
+                                          (#{f 18216}#
+                                            (cdr #{e 18218}#)
+                                            #{w 18219}#))
+                                        (lambda (#{xr* 18220}#
+                                                 #{y-pat 18221}#
+                                                 #{r 18222}#)
+                                          (if #{r 18222}#
+                                            (if (null? #{y-pat 18221}#)
+                                              (let ((#{xr 18223}#
+                                                      (#{match 18087}#
+                                                        (car #{e 18218}#)
+                                                        #{x-pat 18210}#
+                                                        #{w 18219}#
                                                         '()
-                                                        #{mod 17995}#)))
-                                                (if #{xr 18098}#
+                                                        #{mod 18120}#)))
+                                                (if #{xr 18223}#
                                                   (values
-                                                    (cons #{xr 18098}#
-                                                          #{xr* 18095}#)
-                                                    #{y-pat 18096}#
-                                                    #{r 18097}#)
+                                                    (cons #{xr 18223}#
+                                                          #{xr* 18220}#)
+                                                    #{y-pat 18221}#
+                                                    #{r 18222}#)
                                                   (values #f #f #f)))
                                               (values
                                                 '()
-                                                (cdr #{y-pat 18096}#)
-                                                (#{match 17962}#
-                                                  (car #{e 18093}#)
-                                                  (car #{y-pat 18096}#)
-                                                  #{w 18094}#
-                                                  #{r 18097}#
-                                                  #{mod 17995}#)))
+                                                (cdr #{y-pat 18221}#)
+                                                (#{match 18087}#
+                                                  (car #{e 18218}#)
+                                                  (car #{y-pat 18221}#)
+                                                  #{w 18219}#
+                                                  #{r 18222}#
+                                                  #{mod 18120}#)))
                                             (values #f #f #f))))
-                                      (if (if (vector? #{e 18093}#)
-                                            (if (= (vector-length #{e 18093}#)
+                                      (if (if (vector? #{e 18218}#)
+                                            (if (= (vector-length #{e 18218}#)
                                                    4)
-                                              (eq? (vector-ref #{e 18093}# 0)
+                                              (eq? (vector-ref #{e 18218}# 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (#{f 18091}#
-                                          (vector-ref #{e 18093}# 1)
-                                          (let ((#{m1 18126}#
-                                                  (car #{w 18094}#))
-                                                (#{s1 18127}#
-                                                  (cdr #{w 18094}#)))
-                                            (if (null? #{m1 18126}#)
-                                              (if (null? #{s1 18127}#)
-                                                #{e 18093}#
-                                                (cons (car #{e 18093}#)
-                                                      (let ((#{m2 18139}#
-                                                              (cdr #{e 
18093}#)))
-                                                        (if (null? #{m2 
18139}#)
-                                                          #{s1 18127}#
+                                        (#{f 18216}#
+                                          (vector-ref #{e 18218}# 1)
+                                          (let ((#{m1 18251}#
+                                                  (car #{w 18219}#))
+                                                (#{s1 18252}#
+                                                  (cdr #{w 18219}#)))
+                                            (if (null? #{m1 18251}#)
+                                              (if (null? #{s1 18252}#)
+                                                #{e 18218}#
+                                                (cons (car #{e 18218}#)
+                                                      (let ((#{m2 18264}#
+                                                              (cdr #{e 
18218}#)))
+                                                        (if (null? #{m2 
18264}#)
+                                                          #{s1 18252}#
                                                           (append
-                                                            #{s1 18127}#
-                                                            #{m2 18139}#)))))
-                                              (cons (let ((#{m2 18149}#
-                                                            (car #{e 18093}#)))
-                                                      (if (null? #{m2 18149}#)
-                                                        #{m1 18126}#
+                                                            #{s1 18252}#
+                                                            #{m2 18264}#)))))
+                                              (cons (let ((#{m2 18274}#
+                                                            (car #{e 18218}#)))
+                                                      (if (null? #{m2 18274}#)
+                                                        #{m1 18251}#
                                                         (append
-                                                          #{m1 18126}#
-                                                          #{m2 18149}#)))
-                                                    (let ((#{m2 18159}#
-                                                            (cdr #{e 18093}#)))
-                                                      (if (null? #{m2 18159}#)
-                                                        #{s1 18127}#
+                                                          #{m1 18251}#
+                                                          #{m2 18274}#)))
+                                                    (let ((#{m2 18284}#
+                                                            (cdr #{e 18218}#)))
+                                                      (if (null? #{m2 18284}#)
+                                                        #{s1 18252}#
                                                         (append
-                                                          #{s1 18127}#
-                                                          #{m2 18159}#)))))))
+                                                          #{s1 18252}#
+                                                          #{m2 18284}#)))))))
                                         (values
                                           '()
-                                          #{y-pat 18086}#
-                                          (#{match 17962}#
-                                            #{e 18093}#
-                                            #{z-pat 18087}#
-                                            #{w 18094}#
-                                            #{r 17994}#
-                                            #{mod 17995}#)))))))
-                               (#{f 18091}# #{e 17991}# #{w 17993}#))))
-                         (lambda (#{xr* 18169}# #{y-pat 18170}# #{r 18171}#)
-                           (if #{r 18171}#
-                             (if (null? #{y-pat 18170}#)
-                               (if (null? #{xr* 18169}#)
-                                 (#{match-empty 17959}#
-                                   (vector-ref #{p 17992}# 1)
-                                   #{r 18171}#)
-                                 (#{combine 17960}# #{xr* 18169}# #{r 18171}#))
+                                          #{y-pat 18211}#
+                                          (#{match 18087}#
+                                            #{e 18218}#
+                                            #{z-pat 18212}#
+                                            #{w 18219}#
+                                            #{r 18119}#
+                                            #{mod 18120}#)))))))
+                               (#{f 18216}# #{e 18116}# #{w 18118}#))))
+                         (lambda (#{xr* 18294}# #{y-pat 18295}# #{r 18296}#)
+                           (if #{r 18296}#
+                             (if (null? #{y-pat 18295}#)
+                               (if (null? #{xr* 18294}#)
+                                 (#{match-empty 18084}#
+                                   (vector-ref #{p 18117}# 1)
+                                   #{r 18296}#)
+                                 (#{combine 18085}# #{xr* 18294}# #{r 18296}#))
                                #f)
                              #f)))
-                       (if (eqv? #{atom-key 18005}# 'free-id)
-                         (if (if (symbol? #{e 17991}#)
+                       (if (eqv? #{atom-key 18130}# 'free-id)
+                         (if (if (symbol? #{e 18116}#)
                                #t
-                               (if (if (vector? #{e 17991}#)
-                                     (if (= (vector-length #{e 17991}#) 4)
-                                       (eq? (vector-ref #{e 17991}# 0)
+                               (if (if (vector? #{e 18116}#)
+                                     (if (= (vector-length #{e 18116}#) 4)
+                                       (eq? (vector-ref #{e 18116}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
-                                 (symbol? (vector-ref #{e 17991}# 1))
+                                 (symbol? (vector-ref #{e 18116}# 1))
                                  #f))
-                           (if (#{free-id=? 4363}#
-                                 (if (if (null? (car #{w 17993}#))
-                                       (null? (cdr #{w 17993}#))
+                           (if (#{free-id=? 4361}#
+                                 (if (if (null? (car #{w 18118}#))
+                                       (null? (cdr #{w 18118}#))
                                        #f)
-                                   #{e 17991}#
-                                   (if (if (vector? #{e 17991}#)
-                                         (if (= (vector-length #{e 17991}#) 4)
-                                           (eq? (vector-ref #{e 17991}# 0)
+                                   #{e 18116}#
+                                   (if (if (vector? #{e 18116}#)
+                                         (if (= (vector-length #{e 18116}#) 4)
+                                           (eq? (vector-ref #{e 18116}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
-                                     (let ((#{expression 18602}#
-                                             (vector-ref #{e 17991}# 1))
-                                           (#{wrap 18603}#
-                                             (let ((#{w2 18613}#
+                                     (let ((#{expression 18727}#
+                                             (vector-ref #{e 18116}# 1))
+                                           (#{wrap 18728}#
+                                             (let ((#{w2 18738}#
                                                      (vector-ref
-                                                       #{e 17991}#
+                                                       #{e 18116}#
                                                        2)))
-                                               (let ((#{m1 18614}#
-                                                       (car #{w 17993}#))
-                                                     (#{s1 18615}#
-                                                       (cdr #{w 17993}#)))
-                                                 (if (null? #{m1 18614}#)
-                                                   (if (null? #{s1 18615}#)
-                                                     #{w2 18613}#
-                                                     (cons (car #{w2 18613}#)
-                                                           (let ((#{m2 18632}#
-                                                                   (cdr #{w2 
18613}#)))
-                                                             (if (null? #{m2 
18632}#)
-                                                               #{s1 18615}#
+                                               (let ((#{m1 18739}#
+                                                       (car #{w 18118}#))
+                                                     (#{s1 18740}#
+                                                       (cdr #{w 18118}#)))
+                                                 (if (null? #{m1 18739}#)
+                                                   (if (null? #{s1 18740}#)
+                                                     #{w2 18738}#
+                                                     (cons (car #{w2 18738}#)
+                                                           (let ((#{m2 18757}#
+                                                                   (cdr #{w2 
18738}#)))
+                                                             (if (null? #{m2 
18757}#)
+                                                               #{s1 18740}#
                                                                (append
-                                                                 #{s1 18615}#
-                                                                 #{m2 
18632}#)))))
-                                                   (cons (let ((#{m2 18640}#
-                                                                 (car #{w2 
18613}#)))
-                                                           (if (null? #{m2 
18640}#)
-                                                             #{m1 18614}#
+                                                                 #{s1 18740}#
+                                                                 #{m2 
18757}#)))))
+                                                   (cons (let ((#{m2 18765}#
+                                                                 (car #{w2 
18738}#)))
+                                                           (if (null? #{m2 
18765}#)
+                                                             #{m1 18739}#
                                                              (append
-                                                               #{m1 18614}#
-                                                               #{m2 18640}#)))
-                                                         (let ((#{m2 18648}#
-                                                                 (cdr #{w2 
18613}#)))
-                                                           (if (null? #{m2 
18648}#)
-                                                             #{s1 18615}#
+                                                               #{m1 18739}#
+                                                               #{m2 18765}#)))
+                                                         (let ((#{m2 18773}#
+                                                                 (cdr #{w2 
18738}#)))
+                                                           (if (null? #{m2 
18773}#)
+                                                             #{s1 18740}#
                                                              (append
-                                                               #{s1 18615}#
-                                                               #{m2 
18648}#))))))))
-                                           (#{module 18604}#
-                                             (vector-ref #{e 17991}# 3)))
+                                                               #{s1 18740}#
+                                                               #{m2 
18773}#))))))))
+                                           (#{module 18729}#
+                                             (vector-ref #{e 18116}# 3)))
                                        (vector
                                          'syntax-object
-                                         #{expression 18602}#
-                                         #{wrap 18603}#
-                                         #{module 18604}#))
-                                     (if (null? #{e 17991}#)
-                                       #{e 17991}#
+                                         #{expression 18727}#
+                                         #{wrap 18728}#
+                                         #{module 18729}#))
+                                     (if (null? #{e 18116}#)
+                                       #{e 18116}#
                                        (vector
                                          'syntax-object
-                                         #{e 17991}#
-                                         #{w 17993}#
-                                         #{mod 17995}#))))
-                                 (vector-ref #{p 17992}# 1))
-                             #{r 17994}#
+                                         #{e 18116}#
+                                         #{w 18118}#
+                                         #{mod 18120}#))))
+                                 (vector-ref #{p 18117}# 1))
+                             #{r 18119}#
                              #f)
                            #f)
-                         (if (eqv? #{atom-key 18005}# 'atom)
+                         (if (eqv? #{atom-key 18130}# 'atom)
                            (if (equal?
-                                 (vector-ref #{p 17992}# 1)
-                                 (#{strip 4388}# #{e 17991}# #{w 17993}#))
-                             #{r 17994}#
+                                 (vector-ref #{p 18117}# 1)
+                                 (#{strip 4386}# #{e 18116}# #{w 18118}#))
+                             #{r 18119}#
                              #f)
-                           (if (eqv? #{atom-key 18005}# 'vector)
-                             (if (vector? #{e 17991}#)
-                               (#{match 17962}#
-                                 (vector->list #{e 17991}#)
-                                 (vector-ref #{p 17992}# 1)
-                                 #{w 17993}#
-                                 #{r 17994}#
-                                 #{mod 17995}#)
+                           (if (eqv? #{atom-key 18130}# 'vector)
+                             (if (vector? #{e 18116}#)
+                               (#{match 18087}#
+                                 (vector->list #{e 18116}#)
+                                 (vector-ref #{p 18117}# 1)
+                                 #{w 18118}#
+                                 #{r 18119}#
+                                 #{mod 18120}#)
                                #f))))))))))))
-       (#{match 17962}#
-         (lambda (#{e 18681}#
-                  #{p 18682}#
-                  #{w 18683}#
-                  #{r 18684}#
-                  #{mod 18685}#)
-           (if (not #{r 18684}#)
+       (#{match 18087}#
+         (lambda (#{e 18806}#
+                  #{p 18807}#
+                  #{w 18808}#
+                  #{r 18809}#
+                  #{mod 18810}#)
+           (if (not #{r 18809}#)
              #f
-             (if (eq? #{p 18682}# '_)
-               #{r 18684}#
-               (if (eq? #{p 18682}# 'any)
-                 (cons (if (if (null? (car #{w 18683}#))
-                             (null? (cdr #{w 18683}#))
+             (if (eq? #{p 18807}# '_)
+               #{r 18809}#
+               (if (eq? #{p 18807}# 'any)
+                 (cons (if (if (null? (car #{w 18808}#))
+                             (null? (cdr #{w 18808}#))
                              #f)
-                         #{e 18681}#
-                         (if (if (vector? #{e 18681}#)
-                               (if (= (vector-length #{e 18681}#) 4)
-                                 (eq? (vector-ref #{e 18681}# 0)
+                         #{e 18806}#
+                         (if (if (vector? #{e 18806}#)
+                               (if (= (vector-length #{e 18806}#) 4)
+                                 (eq? (vector-ref #{e 18806}# 0)
                                       'syntax-object)
                                  #f)
                                #f)
-                           (let ((#{expression 18715}#
-                                   (vector-ref #{e 18681}# 1))
-                                 (#{wrap 18716}#
-                                   (let ((#{w2 18726}#
-                                           (vector-ref #{e 18681}# 2)))
-                                     (let ((#{m1 18727}# (car #{w 18683}#))
-                                           (#{s1 18728}# (cdr #{w 18683}#)))
-                                       (if (null? #{m1 18727}#)
-                                         (if (null? #{s1 18728}#)
-                                           #{w2 18726}#
-                                           (cons (car #{w2 18726}#)
-                                                 (let ((#{m2 18745}#
-                                                         (cdr #{w2 18726}#)))
-                                                   (if (null? #{m2 18745}#)
-                                                     #{s1 18728}#
+                           (let ((#{expression 18840}#
+                                   (vector-ref #{e 18806}# 1))
+                                 (#{wrap 18841}#
+                                   (let ((#{w2 18851}#
+                                           (vector-ref #{e 18806}# 2)))
+                                     (let ((#{m1 18852}# (car #{w 18808}#))
+                                           (#{s1 18853}# (cdr #{w 18808}#)))
+                                       (if (null? #{m1 18852}#)
+                                         (if (null? #{s1 18853}#)
+                                           #{w2 18851}#
+                                           (cons (car #{w2 18851}#)
+                                                 (let ((#{m2 18870}#
+                                                         (cdr #{w2 18851}#)))
+                                                   (if (null? #{m2 18870}#)
+                                                     #{s1 18853}#
                                                      (append
-                                                       #{s1 18728}#
-                                                       #{m2 18745}#)))))
-                                         (cons (let ((#{m2 18753}#
-                                                       (car #{w2 18726}#)))
-                                                 (if (null? #{m2 18753}#)
-                                                   #{m1 18727}#
+                                                       #{s1 18853}#
+                                                       #{m2 18870}#)))))
+                                         (cons (let ((#{m2 18878}#
+                                                       (car #{w2 18851}#)))
+                                                 (if (null? #{m2 18878}#)
+                                                   #{m1 18852}#
                                                    (append
-                                                     #{m1 18727}#
-                                                     #{m2 18753}#)))
-                                               (let ((#{m2 18761}#
-                                                       (cdr #{w2 18726}#)))
-                                                 (if (null? #{m2 18761}#)
-                                                   #{s1 18728}#
+                                                     #{m1 18852}#
+                                                     #{m2 18878}#)))
+                                               (let ((#{m2 18886}#
+                                                       (cdr #{w2 18851}#)))
+                                                 (if (null? #{m2 18886}#)
+                                                   #{s1 18853}#
                                                    (append
-                                                     #{s1 18728}#
-                                                     #{m2 18761}#))))))))
-                                 (#{module 18717}# (vector-ref #{e 18681}# 3)))
+                                                     #{s1 18853}#
+                                                     #{m2 18886}#))))))))
+                                 (#{module 18842}# (vector-ref #{e 18806}# 3)))
                              (vector
                                'syntax-object
-                               #{expression 18715}#
-                               #{wrap 18716}#
-                               #{module 18717}#))
-                           (if (null? #{e 18681}#)
-                             #{e 18681}#
+                               #{expression 18840}#
+                               #{wrap 18841}#
+                               #{module 18842}#))
+                           (if (null? #{e 18806}#)
+                             #{e 18806}#
                              (vector
                                'syntax-object
-                               #{e 18681}#
-                               #{w 18683}#
-                               #{mod 18685}#))))
-                       #{r 18684}#)
-                 (if (if (vector? #{e 18681}#)
-                       (if (= (vector-length #{e 18681}#) 4)
-                         (eq? (vector-ref #{e 18681}# 0) 'syntax-object)
+                               #{e 18806}#
+                               #{w 18808}#
+                               #{mod 18810}#))))
+                       #{r 18809}#)
+                 (if (if (vector? #{e 18806}#)
+                       (if (= (vector-length #{e 18806}#) 4)
+                         (eq? (vector-ref #{e 18806}# 0) 'syntax-object)
                          #f)
                        #f)
-                   (#{match* 17961}#
-                     (vector-ref #{e 18681}# 1)
-                     #{p 18682}#
-                     (let ((#{w2 18804}# (vector-ref #{e 18681}# 2)))
-                       (let ((#{m1 18805}# (car #{w 18683}#))
-                             (#{s1 18806}# (cdr #{w 18683}#)))
-                         (if (null? #{m1 18805}#)
-                           (if (null? #{s1 18806}#)
-                             #{w2 18804}#
-                             (cons (car #{w2 18804}#)
-                                   (let ((#{m2 18817}# (cdr #{w2 18804}#)))
-                                     (if (null? #{m2 18817}#)
-                                       #{s1 18806}#
-                                       (append #{s1 18806}# #{m2 18817}#)))))
-                           (cons (let ((#{m2 18825}# (car #{w2 18804}#)))
-                                   (if (null? #{m2 18825}#)
-                                     #{m1 18805}#
-                                     (append #{m1 18805}# #{m2 18825}#)))
-                                 (let ((#{m2 18833}# (cdr #{w2 18804}#)))
-                                   (if (null? #{m2 18833}#)
-                                     #{s1 18806}#
-                                     (append #{s1 18806}# #{m2 18833}#)))))))
-                     #{r 18684}#
-                     (vector-ref #{e 18681}# 3))
-                   (#{match* 17961}#
-                     #{e 18681}#
-                     #{p 18682}#
-                     #{w 18683}#
-                     #{r 18684}#
-                     #{mod 18685}#))))))))
+                   (#{match* 18086}#
+                     (vector-ref #{e 18806}# 1)
+                     #{p 18807}#
+                     (let ((#{w2 18929}# (vector-ref #{e 18806}# 2)))
+                       (let ((#{m1 18930}# (car #{w 18808}#))
+                             (#{s1 18931}# (cdr #{w 18808}#)))
+                         (if (null? #{m1 18930}#)
+                           (if (null? #{s1 18931}#)
+                             #{w2 18929}#
+                             (cons (car #{w2 18929}#)
+                                   (let ((#{m2 18942}# (cdr #{w2 18929}#)))
+                                     (if (null? #{m2 18942}#)
+                                       #{s1 18931}#
+                                       (append #{s1 18931}# #{m2 18942}#)))))
+                           (cons (let ((#{m2 18950}# (car #{w2 18929}#)))
+                                   (if (null? #{m2 18950}#)
+                                     #{m1 18930}#
+                                     (append #{m1 18930}# #{m2 18950}#)))
+                                 (let ((#{m2 18958}# (cdr #{w2 18929}#)))
+                                   (if (null? #{m2 18958}#)
+                                     #{s1 18931}#
+                                     (append #{s1 18931}# #{m2 18958}#)))))))
+                     #{r 18809}#
+                     (vector-ref #{e 18806}# 3))
+                   (#{match* 18086}#
+                     #{e 18806}#
+                     #{p 18807}#
+                     #{w 18808}#
+                     #{r 18809}#
+                     #{mod 18810}#))))))))
       (set! $sc-dispatch
-        (lambda (#{e 17963}# #{p 17964}#)
-          (if (eq? #{p 17964}# 'any)
-            (list #{e 17963}#)
-            (if (eq? #{p 17964}# '_)
+        (lambda (#{e 18088}# #{p 18089}#)
+          (if (eq? #{p 18089}# 'any)
+            (list #{e 18088}#)
+            (if (eq? #{p 18089}# '_)
               '()
-              (if (if (vector? #{e 17963}#)
-                    (if (= (vector-length #{e 17963}#) 4)
-                      (eq? (vector-ref #{e 17963}# 0) 'syntax-object)
+              (if (if (vector? #{e 18088}#)
+                    (if (= (vector-length #{e 18088}#) 4)
+                      (eq? (vector-ref #{e 18088}# 0) 'syntax-object)
                       #f)
                     #f)
-                (#{match* 17961}#
-                  (vector-ref #{e 17963}# 1)
-                  #{p 17964}#
-                  (vector-ref #{e 17963}# 2)
+                (#{match* 18086}#
+                  (vector-ref #{e 18088}# 1)
+                  #{p 18089}#
+                  (vector-ref #{e 18088}# 2)
                   '()
-                  (vector-ref #{e 17963}# 3))
-                (#{match* 17961}#
-                  #{e 17963}#
-                  #{p 17964}#
+                  (vector-ref #{e 18088}# 3))
+                (#{match* 18086}#
+                  #{e 18088}#
+                  #{p 18089}#
                   '(())
                   '()
                   #f)))))))))
@@ -17637,82 +17620,82 @@
   (make-syntax-transformer
     'with-syntax
     'macro
-    (lambda (#{x 36962}#)
-      (let ((#{tmp 36964}#
-              ($sc-dispatch #{x 36962}# '(_ () any . each-any))))
-        (if #{tmp 36964}#
+    (lambda (#{x 37268}#)
+      (let ((#{tmp 37270}#
+              ($sc-dispatch #{x 37268}# '(_ () any . each-any))))
+        (if #{tmp 37270}#
           (@apply
-            (lambda (#{e1 36968}# #{e2 36969}#)
+            (lambda (#{e1 37274}# #{e2 37275}#)
               (cons '#(syntax-object
                        let
                        ((top)
                         #(ribcage
                           #(e1 e2)
                           #((top) (top))
-                          #("i36935" "i36936"))
+                          #("i37241" "i37242"))
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i36932")))
+                        #(ribcage #(x) #((top)) #("i37238")))
                        (hygiene guile))
-                    (cons '() (cons #{e1 36968}# #{e2 36969}#))))
-            #{tmp 36964}#)
-          (let ((#{tmp 36970}#
+                    (cons '() (cons #{e1 37274}# #{e2 37275}#))))
+            #{tmp 37270}#)
+          (let ((#{tmp 37276}#
                   ($sc-dispatch
-                    #{x 36962}#
+                    #{x 37268}#
                     '(_ ((any any)) any . each-any))))
-            (if #{tmp 36970}#
+            (if #{tmp 37276}#
               (@apply
-                (lambda (#{out 36974}#
-                         #{in 36975}#
-                         #{e1 36976}#
-                         #{e2 36977}#)
+                (lambda (#{out 37280}#
+                         #{in 37281}#
+                         #{e1 37282}#
+                         #{e2 37283}#)
                   (list '#(syntax-object
                            syntax-case
                            ((top)
                             #(ribcage
                               #(out in e1 e2)
                               #((top) (top) (top) (top))
-                              #("i36941" "i36942" "i36943" "i36944"))
+                              #("i37247" "i37248" "i37249" "i37250"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i36932")))
+                            #(ribcage #(x) #((top)) #("i37238")))
                            (hygiene guile))
-                        #{in 36975}#
+                        #{in 37281}#
                         '()
-                        (list #{out 36974}#
+                        (list #{out 37280}#
                               (cons '#(syntax-object
                                        let
                                        ((top)
                                         #(ribcage
                                           #(out in e1 e2)
                                           #((top) (top) (top) (top))
-                                          #("i36941"
-                                            "i36942"
-                                            "i36943"
-                                            "i36944"))
+                                          #("i37247"
+                                            "i37248"
+                                            "i37249"
+                                            "i37250"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i36932")))
+                                        #(ribcage #(x) #((top)) #("i37238")))
                                        (hygiene guile))
                                     (cons '()
-                                          (cons #{e1 36976}# #{e2 36977}#))))))
-                #{tmp 36970}#)
-              (let ((#{tmp 36978}#
+                                          (cons #{e1 37282}# #{e2 37283}#))))))
+                #{tmp 37276}#)
+              (let ((#{tmp 37284}#
                       ($sc-dispatch
-                        #{x 36962}#
+                        #{x 37268}#
                         '(_ #(each (any any)) any . each-any))))
-                (if #{tmp 36978}#
+                (if #{tmp 37284}#
                   (@apply
-                    (lambda (#{out 36982}#
-                             #{in 36983}#
-                             #{e1 36984}#
-                             #{e2 36985}#)
+                    (lambda (#{out 37288}#
+                             #{in 37289}#
+                             #{e1 37290}#
+                             #{e2 37291}#)
                       (list '#(syntax-object
                                syntax-case
                                ((top)
                                 #(ribcage
                                   #(out in e1 e2)
                                   #((top) (top) (top) (top))
-                                  #("i36951" "i36952" "i36953" "i36954"))
+                                  #("i37257" "i37258" "i37259" "i37260"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i36932")))
+                                #(ribcage #(x) #((top)) #("i37238")))
                                (hygiene guile))
                             (cons '#(syntax-object
                                      list
@@ -17720,62 +17703,62 @@
                                       #(ribcage
                                         #(out in e1 e2)
                                         #((top) (top) (top) (top))
-                                        #("i36951" "i36952" "i36953" "i36954"))
+                                        #("i37257" "i37258" "i37259" "i37260"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i36932")))
+                                      #(ribcage #(x) #((top)) #("i37238")))
                                      (hygiene guile))
-                                  #{in 36983}#)
+                                  #{in 37289}#)
                             '()
-                            (list #{out 36982}#
+                            (list #{out 37288}#
                                   (cons '#(syntax-object
                                            let
                                            ((top)
                                             #(ribcage
                                               #(out in e1 e2)
                                               #((top) (top) (top) (top))
-                                              #("i36951"
-                                                "i36952"
-                                                "i36953"
-                                                "i36954"))
+                                              #("i37257"
+                                                "i37258"
+                                                "i37259"
+                                                "i37260"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
-                                              #("i36932")))
+                                              #("i37238")))
                                            (hygiene guile))
                                         (cons '()
-                                              (cons #{e1 36984}#
-                                                    #{e2 36985}#))))))
-                    #{tmp 36978}#)
+                                              (cons #{e1 37290}#
+                                                    #{e2 37291}#))))))
+                    #{tmp 37284}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{x 36962}#))))))))))
+                    #{x 37268}#))))))))))
 
 (define syntax-rules
   (make-syntax-transformer
     'syntax-rules
     'macro
-    (lambda (#{x 37039}#)
-      (let ((#{tmp 37041}#
+    (lambda (#{x 37345}#)
+      (let ((#{tmp 37347}#
               ($sc-dispatch
-                #{x 37039}#
+                #{x 37345}#
                 '(_ each-any . #(each ((any . any) any))))))
-        (if #{tmp 37041}#
+        (if #{tmp 37347}#
           (@apply
-            (lambda (#{k 37045}#
-                     #{keyword 37046}#
-                     #{pattern 37047}#
-                     #{template 37048}#)
+            (lambda (#{k 37351}#
+                     #{keyword 37352}#
+                     #{pattern 37353}#
+                     #{template 37354}#)
               (list '#(syntax-object
                        lambda
                        ((top)
                         #(ribcage
                           #(k keyword pattern template)
                           #((top) (top) (top) (top))
-                          #("i37002" "i37003" "i37004" "i37005"))
+                          #("i37308" "i37309" "i37310" "i37311"))
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i36999")))
+                        #(ribcage #(x) #((top)) #("i37305")))
                        (hygiene guile))
                     '(#(syntax-object
                         x
@@ -17783,9 +17766,9 @@
                          #(ribcage
                            #(k keyword pattern template)
                            #((top) (top) (top) (top))
-                           #("i37002" "i37003" "i37004" "i37005"))
+                           #("i37308" "i37309" "i37310" "i37311"))
                          #(ribcage () () ())
-                         #(ribcage #(x) #((top)) #("i36999")))
+                         #(ribcage #(x) #((top)) #("i37305")))
                         (hygiene guile)))
                     (vector
                       '(#(syntax-object
@@ -17794,9 +17777,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i37002" "i37003" "i37004" "i37005"))
+                             #("i37308" "i37309" "i37310" "i37311"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i36999")))
+                           #(ribcage #(x) #((top)) #("i37305")))
                           (hygiene guile))
                         .
                         #(syntax-object
@@ -17805,9 +17788,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i37002" "i37003" "i37004" "i37005"))
+                             #("i37308" "i37309" "i37310" "i37311"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i36999")))
+                           #(ribcage #(x) #((top)) #("i37305")))
                           (hygiene guile)))
                       (cons '#(syntax-object
                                patterns
@@ -17815,20 +17798,20 @@
                                 #(ribcage
                                   #(k keyword pattern template)
                                   #((top) (top) (top) (top))
-                                  #("i37002" "i37003" "i37004" "i37005"))
+                                  #("i37308" "i37309" "i37310" "i37311"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i36999")))
+                                #(ribcage #(x) #((top)) #("i37305")))
                                (hygiene guile))
-                            #{pattern 37047}#))
+                            #{pattern 37353}#))
                     (cons '#(syntax-object
                              syntax-case
                              ((top)
                               #(ribcage
                                 #(k keyword pattern template)
                                 #((top) (top) (top) (top))
-                                #("i37002" "i37003" "i37004" "i37005"))
+                                #("i37308" "i37309" "i37310" "i37311"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i36999")))
+                              #(ribcage #(x) #((top)) #("i37305")))
                              (hygiene guile))
                           (cons '#(syntax-object
                                    x
@@ -17836,13 +17819,13 @@
                                     #(ribcage
                                       #(k keyword pattern template)
                                       #((top) (top) (top) (top))
-                                      #("i37002" "i37003" "i37004" "i37005"))
+                                      #("i37308" "i37309" "i37310" "i37311"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i36999")))
+                                    #(ribcage #(x) #((top)) #("i37305")))
                                    (hygiene guile))
-                                (cons #{k 37045}#
-                                      (map (lambda (#{tmp 37013 37049}#
-                                                    #{tmp 37012 37050}#)
+                                (cons #{k 37351}#
+                                      (map (lambda (#{tmp 37319 37355}#
+                                                    #{tmp 37318 37356}#)
                                              (list (cons '#(syntax-object
                                                             dummy
                                                             ((top)
@@ -17855,10 +17838,10 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                               #("i37002"
-                                                                 "i37003"
-                                                                 "i37004"
-                                                                 "i37005"))
+                                                               #("i37308"
+                                                                 "i37309"
+                                                                 "i37310"
+                                                                 "i37311"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -17866,9 +17849,9 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i36999")))
+                                                               #("i37305")))
                                                             (hygiene guile))
-                                                         #{tmp 37012 37050}#)
+                                                         #{tmp 37318 37356}#)
                                                    (list '#(syntax-object
                                                             syntax
                                                             ((top)
@@ -17881,10 +17864,10 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                               #("i37002"
-                                                                 "i37003"
-                                                                 "i37004"
-                                                                 "i37005"))
+                                                               #("i37308"
+                                                                 "i37309"
+                                                                 "i37310"
+                                                                 "i37311"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -17892,41 +17875,41 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i36999")))
+                                                               #("i37305")))
                                                             (hygiene guile))
-                                                         #{tmp 37013 37049}#)))
-                                           #{template 37048}#
-                                           #{pattern 37047}#))))))
-            #{tmp 37041}#)
-          (let ((#{tmp 37051}#
+                                                         #{tmp 37319 37355}#)))
+                                           #{template 37354}#
+                                           #{pattern 37353}#))))))
+            #{tmp 37347}#)
+          (let ((#{tmp 37357}#
                   ($sc-dispatch
-                    #{x 37039}#
+                    #{x 37345}#
                     '(_ each-any any . #(each ((any . any) any))))))
-            (if (if #{tmp 37051}#
+            (if (if #{tmp 37357}#
                   (@apply
-                    (lambda (#{k 37055}#
-                             #{docstring 37056}#
-                             #{keyword 37057}#
-                             #{pattern 37058}#
-                             #{template 37059}#)
-                      (string? (syntax->datum #{docstring 37056}#)))
-                    #{tmp 37051}#)
+                    (lambda (#{k 37361}#
+                             #{docstring 37362}#
+                             #{keyword 37363}#
+                             #{pattern 37364}#
+                             #{template 37365}#)
+                      (string? (syntax->datum #{docstring 37362}#)))
+                    #{tmp 37357}#)
                   #f)
               (@apply
-                (lambda (#{k 37060}#
-                         #{docstring 37061}#
-                         #{keyword 37062}#
-                         #{pattern 37063}#
-                         #{template 37064}#)
+                (lambda (#{k 37366}#
+                         #{docstring 37367}#
+                         #{keyword 37368}#
+                         #{pattern 37369}#
+                         #{template 37370}#)
                   (list '#(syntax-object
                            lambda
                            ((top)
                             #(ribcage
                               #(k docstring keyword pattern template)
                               #((top) (top) (top) (top) (top))
-                              #("i37025" "i37026" "i37027" "i37028" "i37029"))
+                              #("i37331" "i37332" "i37333" "i37334" "i37335"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i36999")))
+                            #(ribcage #(x) #((top)) #("i37305")))
                            (hygiene guile))
                         '(#(syntax-object
                             x
@@ -17934,11 +17917,11 @@
                              #(ribcage
                                #(k docstring keyword pattern template)
                                #((top) (top) (top) (top) (top))
-                               #("i37025" "i37026" "i37027" "i37028" "i37029"))
+                               #("i37331" "i37332" "i37333" "i37334" "i37335"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i36999")))
+                             #(ribcage #(x) #((top)) #("i37305")))
                             (hygiene guile)))
-                        #{docstring 37061}#
+                        #{docstring 37367}#
                         (vector
                           '(#(syntax-object
                               macro-type
@@ -17946,13 +17929,13 @@
                                #(ribcage
                                  #(k docstring keyword pattern template)
                                  #((top) (top) (top) (top) (top))
-                                 #("i37025"
-                                   "i37026"
-                                   "i37027"
-                                   "i37028"
-                                   "i37029"))
+                                 #("i37331"
+                                   "i37332"
+                                   "i37333"
+                                   "i37334"
+                                   "i37335"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i36999")))
+                               #(ribcage #(x) #((top)) #("i37305")))
                               (hygiene guile))
                             .
                             #(syntax-object
@@ -17961,13 +17944,13 @@
                                #(ribcage
                                  #(k docstring keyword pattern template)
                                  #((top) (top) (top) (top) (top))
-                                 #("i37025"
-                                   "i37026"
-                                   "i37027"
-                                   "i37028"
-                                   "i37029"))
+                                 #("i37331"
+                                   "i37332"
+                                   "i37333"
+                                   "i37334"
+                                   "i37335"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i36999")))
+                               #(ribcage #(x) #((top)) #("i37305")))
                               (hygiene guile)))
                           (cons '#(syntax-object
                                    patterns
@@ -17975,28 +17958,28 @@
                                     #(ribcage
                                       #(k docstring keyword pattern template)
                                       #((top) (top) (top) (top) (top))
-                                      #("i37025"
-                                        "i37026"
-                                        "i37027"
-                                        "i37028"
-                                        "i37029"))
+                                      #("i37331"
+                                        "i37332"
+                                        "i37333"
+                                        "i37334"
+                                        "i37335"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i36999")))
+                                    #(ribcage #(x) #((top)) #("i37305")))
                                    (hygiene guile))
-                                #{pattern 37063}#))
+                                #{pattern 37369}#))
                         (cons '#(syntax-object
                                  syntax-case
                                  ((top)
                                   #(ribcage
                                     #(k docstring keyword pattern template)
                                     #((top) (top) (top) (top) (top))
-                                    #("i37025"
-                                      "i37026"
-                                      "i37027"
-                                      "i37028"
-                                      "i37029"))
+                                    #("i37331"
+                                      "i37332"
+                                      "i37333"
+                                      "i37334"
+                                      "i37335"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i36999")))
+                                  #(ribcage #(x) #((top)) #("i37305")))
                                  (hygiene guile))
                               (cons '#(syntax-object
                                        x
@@ -18008,17 +17991,17 @@
                                             pattern
                                             template)
                                           #((top) (top) (top) (top) (top))
-                                          #("i37025"
-                                            "i37026"
-                                            "i37027"
-                                            "i37028"
-                                            "i37029"))
+                                          #("i37331"
+                                            "i37332"
+                                            "i37333"
+                                            "i37334"
+                                            "i37335"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i36999")))
+                                        #(ribcage #(x) #((top)) #("i37305")))
                                        (hygiene guile))
-                                    (cons #{k 37060}#
-                                          (map (lambda (#{tmp 37038 37065}#
-                                                        #{tmp 37037 37066}#)
+                                    (cons #{k 37366}#
+                                          (map (lambda (#{tmp 37344 37371}#
+                                                        #{tmp 37343 37372}#)
                                                  (list (cons '#(syntax-object
                                                                 dummy
                                                                 ((top)
@@ -18033,11 +18016,11 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i37025"
-                                                                     "i37026"
-                                                                     "i37027"
-                                                                     "i37028"
-                                                                     "i37029"))
+                                                                   #("i37331"
+                                                                     "i37332"
+                                                                     "i37333"
+                                                                     "i37334"
+                                                                     "i37335"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -18045,10 +18028,10 @@
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
-                                                                   
#("i36999")))
+                                                                   
#("i37305")))
                                                                 (hygiene
                                                                   guile))
-                                                             #{tmp 37037 
37066}#)
+                                                             #{tmp 37343 
37372}#)
                                                        (list '#(syntax-object
                                                                 syntax
                                                                 ((top)
@@ -18063,11 +18046,11 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i37025"
-                                                                     "i37026"
-                                                                     "i37027"
-                                                                     "i37028"
-                                                                     "i37029"))
+                                                                   #("i37331"
+                                                                     "i37332"
+                                                                     "i37333"
+                                                                     "i37334"
+                                                                     "i37335"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -18075,50 +18058,50 @@
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
-                                                                   
#("i36999")))
+                                                                   
#("i37305")))
                                                                 (hygiene
                                                                   guile))
-                                                             #{tmp 37038 
37065}#)))
-                                               #{template 37064}#
-                                               #{pattern 37063}#))))))
-                #{tmp 37051}#)
+                                                             #{tmp 37344 
37371}#)))
+                                               #{template 37370}#
+                                               #{pattern 37369}#))))))
+                #{tmp 37357}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{x 37039}#))))))))
+                #{x 37345}#))))))))
 
 (define define-syntax-rule
   (make-syntax-transformer
     'define-syntax-rule
     'macro
-    (lambda (#{x 37103}#)
-      (let ((#{tmp 37105}#
-              ($sc-dispatch #{x 37103}# '(_ (any . any) any))))
-        (if #{tmp 37105}#
+    (lambda (#{x 37409}#)
+      (let ((#{tmp 37411}#
+              ($sc-dispatch #{x 37409}# '(_ (any . any) any))))
+        (if #{tmp 37411}#
           (@apply
-            (lambda (#{name 37109}#
-                     #{pattern 37110}#
-                     #{template 37111}#)
+            (lambda (#{name 37415}#
+                     #{pattern 37416}#
+                     #{template 37417}#)
               (list '#(syntax-object
                        define-syntax
                        ((top)
                         #(ribcage
                           #(name pattern template)
                           #((top) (top) (top))
-                          #("i37080" "i37081" "i37082"))
+                          #("i37386" "i37387" "i37388"