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-20-g46e372e


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-20-g46e372e
Date: Mon, 10 Oct 2011 14:21:51 +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=46e372ef71ae7774b05a44a7443887a70efa8da0

The branch, master has been updated
       via  46e372ef71ae7774b05a44a7443887a70efa8da0 (commit)
       via  a215c1591351b9c8099c833361520c174d490cd4 (commit)
       via  34c5fe83c021eb27c5bdff0f1328c733a7cb45b4 (commit)
       via  4bf9e92875973b8997b2876218b6bd595fbf1952 (commit)
       via  f26c3a93ecc0fdf69139ce86a825f262535554c9 (commit)
       via  751708726bff664e1119396241dab8b99c19bbe0 (commit)
       via  580a59e75e4d865da2b9e2490e73e5bbd3de5878 (commit)
       via  30669991740de16d8147496def08592fd40e2e2c (commit)
       via  022dda690126d993d82644efeffada1a1ef41123 (commit)
       via  b2c4c3e5e315c64a5978d1c5918e9063cd92ada8 (commit)
       via  41d43584f2175e22e3380ae1553a3415dae711fc (commit)
       via  1082cbba47d3735a502c7cc631c5cc4a705b6a62 (commit)
       via  012492a7f1968bb996a98864da32591bffbf08a3 (commit)
       via  6d2d68972144e795a53067f1c08c13be01559784 (commit)
       via  904981ee417afea6f1ed4a244dd275e78a6a4b8d (commit)
       via  47974c308a27c6327696b1c21bfde00fe78fd3a9 (commit)
       via  6d5f8c324e6c5f4fda155329eab6dade43ac5ffe (commit)
       via  21524430e9d821014d6c0efbe4df74c12179c072 (commit)
       via  9acea53ecd4377a98250f52517ed0f00a108f103 (commit)
       via  16d50b8e89d92f7aacea374802cb47c5ee373a33 (commit)
      from  840cf0d1e2bb3b019210958056404f29347042fe (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 46e372ef71ae7774b05a44a7443887a70efa8da0
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 16:21:06 2011 +0200

    regenerate psyntax-pp.scm
    
    * module/ice-9/psyntax-pp.scm: Regenerate, now with optimizations.

commit a215c1591351b9c8099c833361520c174d490cd4
Merge: 840cf0d 34c5fe8
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 16:20:08 2011 +0200

    Merge remote-tracking branch 'origin/stable-2.0'
    
    Does not include psyntax regeneration.
    
    Conflicts:
        module/ice-9/psyntax-pp.scm
        module/language/tree-il/peval.scm
        test-suite/tests/tree-il.test

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

Summary of changes:
 doc/ref/api-control.texi                |   11 +
 doc/ref/api-data.texi                   |   13 +
 libguile/numbers.c                      |   10 +
 libguile/numbers.h                      |    2 +
 libguile/read.c                         |   41 +-
 module/Makefile.am                      |    1 +
 module/ice-9/match.scm                  |    1 +
 module/ice-9/psyntax-pp.scm             |23681 +++++++++++++++++--------------
 module/language/tree-il/debug.scm       |  264 +
 module/language/tree-il/optimize.scm    |    6 +-
 module/language/tree-il/peval.scm       |  908 +-
 module/language/tree-il/primitives.scm  |   45 +-
 test-suite/standalone/test-conversion.c |   33 +
 test-suite/tests/reader.test            |    8 +
 test-suite/tests/tree-il.test           |  213 +-
 15 files changed, 14113 insertions(+), 11124 deletions(-)
 create mode 100644 module/language/tree-il/debug.scm

diff --git a/doc/ref/api-control.texi b/doc/ref/api-control.texi
index 9f741fd..ad36806 100644
--- a/doc/ref/api-control.texi
+++ b/doc/ref/api-control.texi
@@ -1636,9 +1636,13 @@ causing a segmentation fault.  Guile provides some 
macros to make this
 easier.
 
 @deftypefn Macro void SCM_ASSERT (int @var{test}, SCM @var{obj}, unsigned int 
@var{position}, const char address@hidden)
address@hidden Macro void SCM_ASSERT_TYPE (int @var{test}, SCM @var{obj}, 
unsigned int @var{position}, const char address@hidden, const char 
address@hidden) 
 If @var{test} is zero, signal a ``wrong type argument'' error,
 attributed to the subroutine named @var{subr}, operating on the value
 @var{obj}, which is the @var{position}'th argument of @var{subr}.
+
+In @code{SCM_ASSERT_TYPE}, @var{expected} is a C string describing the
+type of argument that was expected.
 @end deftypefn
 
 @deftypefn Macro int SCM_ARG1
@@ -1663,6 +1667,13 @@ leave it unspecified which argument's type is incorrect. 
 Again,
 @code{SCM_ARGn} should be preferred over a raw zero constant.
 @end deftypefn
 
+The @code{SCM_ASRTGO} macro provides another strategy for handling 
+incorrect types.
+
address@hidden Macro void SCM_ASRTGO (int @var{test}, label)
+If @var{test} is zero, use @code{goto} to jump to the given @var{label}.
address@hidden must appear within the current function.
address@hidden deftypefn
 
 @node Continuation Barriers
 @subsection Continuation Barriers
diff --git a/doc/ref/api-data.texi b/doc/ref/api-data.texi
index 9825bef..f9b39b6 100644
--- a/doc/ref/api-data.texi
+++ b/doc/ref/api-data.texi
@@ -747,12 +747,25 @@ otherwise.
 
 @end deffn
 
address@hidden {C Function} int scm_is_exact (SCM z)
+Return a @code{1} if the number @var{z} is exact, and @code{0}
+otherwise.  This is equivalent to @code{scm_is_true (scm_exact_p (z))}.
+
+An alternate approch to testing the exactness of a number is to 
+use @code{scm_is_signed_integer} or @code{scm_is_unsigned_integer}.
address@hidden deftypefn
+
 @deffn {Scheme Procedure} inexact? z
 @deffnx {C Function} scm_inexact_p (z)
 Return @code{#t} if the number @var{z} is inexact, @code{#f}
 else.
 @end deffn
 
address@hidden {C Function} int scm_is_inexact (SCM z)
+Return a @code{1} if the number @var{z} is inexact, and @code{0}
+otherwise.  This is equivalent to @code{scm_is_true (scm_inexact_p (z))}.
address@hidden deftypefn
+
 @deffn {Scheme Procedure} inexact->exact z
 @deffnx {C Function} scm_inexact_to_exact (z)
 Return an exact number that is numerically closest to @var{z}, when
diff --git a/libguile/numbers.c b/libguile/numbers.c
index a278ed5..19673b8 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -536,6 +536,11 @@ SCM_PRIMITIVE_GENERIC (scm_exact_p, "exact?", 1, 0, 0,
 }
 #undef FUNC_NAME
 
+int
+scm_is_exact (SCM val)
+{
+  return scm_is_true (scm_exact_p (val));
+}
 
 SCM_PRIMITIVE_GENERIC (scm_inexact_p, "inexact?", 1, 0, 0,
             (SCM x),
@@ -552,6 +557,11 @@ SCM_PRIMITIVE_GENERIC (scm_inexact_p, "inexact?", 1, 0, 0,
 }
 #undef FUNC_NAME
 
+int
+scm_is_inexact (SCM val)
+{
+  return scm_is_true (scm_inexact_p (val));
+}
 
 SCM_PRIMITIVE_GENERIC (scm_odd_p, "odd?", 1, 0, 0, 
             (SCM n),
diff --git a/libguile/numbers.h b/libguile/numbers.h
index d985830..d3a3444 100644
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -165,6 +165,7 @@ typedef struct scm_t_complex
 
 
 SCM_API SCM scm_exact_p (SCM x);
+SCM_API int scm_is_exact (SCM x);
 SCM_API SCM scm_odd_p (SCM n);
 SCM_API SCM scm_even_p (SCM n);
 SCM_API SCM scm_finite_p (SCM x);
@@ -241,6 +242,7 @@ SCM_API SCM scm_real_p (SCM x);
 SCM_API SCM scm_rational_p (SCM z);
 SCM_API SCM scm_integer_p (SCM x);
 SCM_API SCM scm_inexact_p (SCM x);
+SCM_API int scm_is_inexact (SCM x);
 SCM_API SCM scm_num_eq_p (SCM x, SCM y);
 SCM_API SCM scm_less_p (SCM x, SCM y);
 SCM_API SCM scm_gr_p (SCM x, SCM y);
diff --git a/libguile/read.c b/libguile/read.c
index 0b7144c..4b9c248 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1133,34 +1133,33 @@ scm_read_r6rs_block_comment (scm_t_wchar chr, SCM port)
   /* Unlike SCSH-style block comments, SRFI-30/R6RS block comments may be
      nested.  So care must be taken.  */
   int nesting_level = 1;
-  int opening_seen = 0, closing_seen = 0;
+
+  int a = scm_getc (port);
+
+  if (a == EOF)
+    scm_i_input_error ("scm_read_r6rs_block_comment", port,
+                       "unterminated `#| ... |#' comment", SCM_EOL);
 
   while (nesting_level > 0)
     {
-      int c = scm_getc (port);
+      int b = scm_getc (port);
 
-      if (c == EOF)
+      if (b == EOF)
        scm_i_input_error ("scm_read_r6rs_block_comment", port,
                           "unterminated `#| ... |#' comment", SCM_EOL);
 
-      if (opening_seen)
-       {
-         if (c == '|')
-           nesting_level++;
-         opening_seen = 0;
-       }
-      else if (closing_seen)
-       {
-         if (c == '#')
-           nesting_level--;
-         closing_seen = 0;
-       }
-      else if (c == '|')
-       closing_seen = 1;
-      else if (c == '#')
-       opening_seen = 1;
-      else
-       opening_seen = closing_seen = 0;
+      if (a == '|' && b == '#')
+        {
+          nesting_level--;
+          b = EOF;
+        }
+      else if (a == '#' && b == '|')
+        {
+          nesting_level++;
+          b = EOF;
+        }
+
+      a = b;
     }
 
   return SCM_UNSPECIFIED;
diff --git a/module/Makefile.am b/module/Makefile.am
index 6b265b6..b93d8d3 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -98,6 +98,7 @@ TREE_IL_LANG_SOURCES =                                        
        \
   language/tree-il/analyze.scm                                 \
   language/tree-il/inline.scm                                  \
   language/tree-il/compile-glil.scm                            \
+  language/tree-il/debug.scm                                   \
   language/tree-il/spec.scm
 
 GLIL_LANG_SOURCES =                                            \
diff --git a/module/ice-9/match.scm b/module/ice-9/match.scm
index 0384f69..2753ebe 100644
--- a/module/ice-9/match.scm
+++ b/module/ice-9/match.scm
@@ -58,6 +58,7 @@
 ;; file.
 (include-from-path "ice-9/match.upstream.scm")
 
+;; Patch to work around <http://debbugs.gnu.org/9567>.
 (define-syntax match
   (syntax-rules ()
     ((match)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index db6fc8a..2d94856 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,2203 +2,2669 @@
 (if #f #f)
 
 (letrec*
-  ((#{make-void 208}#
-     (lambda (#{src 783}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 0)
-         #{src 783}#)))
-   (#{make-const 210}#
-     (lambda (#{src 785}# #{exp 786}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 1)
-         #{src 785}#
-         #{exp 786}#)))
-   (#{make-lexical-ref 214}#
-     (lambda (#{src 793}# #{name 794}# #{gensym 795}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 3)
-         #{src 793}#
-         #{name 794}#
-         #{gensym 795}#)))
-   (#{make-lexical-set 216}#
-     (lambda (#{src 799}#
-              #{name 800}#
-              #{gensym 801}#
-              #{exp 802}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 4)
-         #{src 799}#
-         #{name 800}#
-         #{gensym 801}#
-         #{exp 802}#)))
-   (#{make-module-ref 218}#
-     (lambda (#{src 807}#
-              #{mod 808}#
-              #{name 809}#
-              #{public? 810}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 5)
-         #{src 807}#
-         #{mod 808}#
-         #{name 809}#
-         #{public? 810}#)))
-   (#{make-module-set 220}#
-     (lambda (#{src 815}#
-              #{mod 816}#
-              #{name 817}#
-              #{public? 818}#
-              #{exp 819}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 6)
-         #{src 815}#
-         #{mod 816}#
-         #{name 817}#
-         #{public? 818}#
-         #{exp 819}#)))
-   (#{make-toplevel-ref 222}#
-     (lambda (#{src 825}# #{name 826}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 7)
-         #{src 825}#
-         #{name 826}#)))
-   (#{make-toplevel-set 224}#
-     (lambda (#{src 829}# #{name 830}# #{exp 831}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 8)
-         #{src 829}#
-         #{name 830}#
-         #{exp 831}#)))
-   (#{make-toplevel-define 226}#
-     (lambda (#{src 835}# #{name 836}# #{exp 837}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 9)
-         #{src 835}#
-         #{name 836}#
-         #{exp 837}#)))
-   (#{make-conditional 228}#
-     (lambda (#{src 841}#
-              #{test 842}#
-              #{consequent 843}#
-              #{alternate 844}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 10)
-         #{src 841}#
-         #{test 842}#
-         #{consequent 843}#
-         #{alternate 844}#)))
-   (#{make-call 230}#
-     (lambda (#{src 849}# #{proc 850}# #{args 851}#)
+  ((#{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}#)
+                  (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}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 11)
-         #{src 849}#
-         #{proc 850}#
-         #{args 851}#)))
-   (#{make-primcall 232}#
-     (lambda (#{src 855}# #{name 856}# #{args 857}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 12)
-         #{src 855}#
-         #{name 856}#
-         #{args 857}#)))
-   (#{make-seq 234}#
-     (lambda (#{src 861}# #{head 862}# #{tail 863}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 13)
-         #{src 861}#
-         #{head 862}#
-         #{tail 863}#)))
-   (#{make-lambda 236}#
-     (lambda (#{src 867}# #{meta 868}# #{body 869}#)
+         #{source 19069}#
+         #{fun-exp 19070}#
+         #{arg-exps 19071}#)))
+   (#{build-conditional 4310}#
+     (lambda (#{source 19077}#
+              #{test-exp 19078}#
+              #{then-exp 19079}#
+              #{else-exp 19080}#)
        (make-struct/no-tail
-         (vector-ref %expanded-vtables 14)
-         #{src 867}#
-         #{meta 868}#
-         #{body 869}#)))
-   (#{make-lambda-case 238}#
-     (lambda (#{src 873}#
-              #{req 874}#
-              #{opt 875}#
-              #{rest 876}#
-              #{kw 877}#
-              #{inits 878}#
-              #{gensyms 879}#
-              #{body 880}#
-              #{alternate 881}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 15)
-         #{src 873}#
-         #{req 874}#
-         #{opt 875}#
-         #{rest 876}#
-         #{kw 877}#
-         #{inits 878}#
-         #{gensyms 879}#
-         #{body 880}#
-         #{alternate 881}#)))
-   (#{make-let 240}#
-     (lambda (#{src 891}#
-              #{names 892}#
-              #{gensyms 893}#
-              #{vals 894}#
-              #{body 895}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 16)
-         #{src 891}#
-         #{names 892}#
-         #{gensyms 893}#
-         #{vals 894}#
-         #{body 895}#)))
-   (#{make-letrec 242}#
-     (lambda (#{src 901}#
-              #{in-order? 902}#
-              #{names 903}#
-              #{gensyms 904}#
-              #{vals 905}#
-              #{body 906}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 17)
-         #{src 901}#
-         #{in-order? 902}#
-         #{names 903}#
-         #{gensyms 904}#
-         #{vals 905}#
-         #{body 906}#)))
-   (#{make-dynlet 244}#
-     (lambda (#{src 913}#
-              #{fluids 914}#
-              #{vals 915}#
-              #{body 916}#)
+         (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}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 18)
-         #{src 913}#
-         #{fluids 914}#
-         #{vals 915}#
-         #{body 916}#)))
-   (#{lambda? 247}#
-     (lambda (#{x 921}#)
-       (if (struct? #{x 921}#)
-         (eq? (struct-vtable #{x 921}#)
-              (vector-ref %expanded-vtables 14))
-         #f)))
-   (#{lambda-meta 249}#
-     (lambda (#{x 925}#) (struct-ref #{x 925}# 1)))
-   (#{set-lambda-meta! 251}#
-     (lambda (#{x 927}# #{v 928}#)
-       (struct-set! #{x 927}# 1 #{v 928}#)))
-   (#{top-level-eval-hook 257}#
-     (lambda (#{x 931}# #{mod 932}#)
-       (primitive-eval #{x 931}#)))
-   (#{local-eval-hook 259}#
-     (lambda (#{x 935}# #{mod 936}#)
-       (primitive-eval #{x 935}#)))
-   (#{put-global-definition-hook 263}#
-     (lambda (#{symbol 939}# #{type 940}# #{val 941}#)
-       (module-define!
-         (current-module)
-         #{symbol 939}#
-         (make-syntax-transformer
-           #{symbol 939}#
-           #{type 940}#
-           #{val 941}#))))
-   (#{get-global-definition-hook 265}#
-     (lambda (#{symbol 945}# #{module 946}#)
+         #{source 19087}#
+         #{fluids 19088}#
+         #{vals 19089}#
+         #{body 19090}#)))
+   (#{build-lexical-reference 4312}#
+     (lambda (#{type 36534}#
+              #{source 36535}#
+              #{name 36536}#
+              #{var 36537}#)
+       (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}#)
        (begin
-         (if (if (not #{module 946}#) (current-module) #f)
-           (warn "module system is booted, we should have a module"
-                 #{symbol 945}#))
-         (let ((#{v 952}# (module-variable
-                            (if #{module 946}#
-                              (resolve-module (cdr #{module 946}#))
-                              (current-module))
-                            #{symbol 945}#)))
-           (if #{v 952}#
-             (if (variable-bound? #{v 952}#)
-               (let ((#{val 957}# (variable-ref #{v 952}#)))
-                 (if (macro? #{val 957}#)
-                   (if (macro-type #{val 957}#)
-                     (cons (macro-type #{val 957}#)
-                           (macro-binding #{val 957}#))
-                     #f)
-                   #f))
+         (if (if (struct? #{exp 19100}#)
+               (eq? (struct-vtable #{exp 19100}#)
+                    (vector-ref %expanded-vtables 14))
                #f)
-             #f)))))
-   (#{decorate-source 267}#
-     (lambda (#{e 961}# #{s 962}#)
-       (begin
-         (if (if (pair? #{e 961}#) #{s 962}# #f)
-           (set-source-properties! #{e 961}# #{s 962}#))
-         #{e 961}#)))
-   (#{maybe-name-value! 269}#
-     (lambda (#{name 967}# #{val 968}#)
-       (if (#{lambda? 247}# #{val 968}#)
-         (let ((#{meta 972}# (#{lambda-meta 249}# #{val 968}#)))
-           (if (not (assq 'name #{meta 972}#))
-             (#{set-lambda-meta! 251}#
-               #{val 968}#
-               (cons (cons 'name #{name 967}#) #{meta 972}#)))))))
-   (#{build-void 271}#
-     (lambda (#{source 973}#)
-       (#{make-void 208}# #{source 973}#)))
-   (#{build-call 273}#
-     (lambda (#{source 975}# #{fun-exp 976}# #{arg-exps 977}#)
-       (#{make-call 230}#
-         #{source 975}#
-         #{fun-exp 976}#
-         #{arg-exps 977}#)))
-   (#{build-conditional 275}#
-     (lambda (#{source 981}#
-              #{test-exp 982}#
-              #{then-exp 983}#
-              #{else-exp 984}#)
-       (#{make-conditional 228}#
-         #{source 981}#
-         #{test-exp 982}#
-         #{then-exp 983}#
-         #{else-exp 984}#)))
-   (#{build-lexical-reference 279}#
-     (lambda (#{type 997}#
-              #{source 998}#
-              #{name 999}#
-              #{var 1000}#)
-       (#{make-lexical-ref 214}#
-         #{source 998}#
-         #{name 999}#
-         #{var 1000}#)))
-   (#{analyze-variable 283}#
-     (lambda (#{mod 1013}#
-              #{var 1014}#
-              #{modref-cont 1015}#
-              #{bare-cont 1016}#)
-       (if (not #{mod 1013}#)
-         (#{bare-cont 1016}# #{var 1014}#)
-         (let ((#{kind 1023}# (car #{mod 1013}#))
-               (#{mod 1024}# (cdr #{mod 1013}#)))
-           (if (memv #{kind 1023}# '(public))
-             (#{modref-cont 1015}#
-               #{mod 1024}#
-               #{var 1014}#
+           (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}#)))))
+         (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}#
                #t)
-             (if (memv #{kind 1023}# '(private))
+             (if (eqv? #{kind 36547}# 'private)
                (if (not (equal?
-                          #{mod 1024}#
+                          #{mod 36548}#
                           (module-name (current-module))))
-                 (#{modref-cont 1015}#
-                   #{mod 1024}#
-                   #{var 1014}#
+                 (#{modref-cont 36545}#
+                   #{mod 36548}#
+                   #{var 36544}#
                    #f)
-                 (#{bare-cont 1016}# #{var 1014}#))
-               (if (memv #{kind 1023}# '(bare))
-                 (#{bare-cont 1016}# #{var 1014}#)
-                 (if (memv #{kind 1023}# '(hygiene))
+                 (#{bare-cont 36546}# #{var 36544}#))
+               (if (eqv? #{kind 36547}# 'bare)
+                 (#{bare-cont 36546}# #{var 36544}#)
+                 (if (eqv? #{kind 36547}# 'hygiene)
                    (if (if (not (equal?
-                                  #{mod 1024}#
+                                  #{mod 36548}#
                                   (module-name (current-module))))
                          (module-variable
-                           (resolve-module #{mod 1024}#)
-                           #{var 1014}#)
+                           (resolve-module #{mod 36548}#)
+                           #{var 36544}#)
                          #f)
-                     (#{modref-cont 1015}#
-                       #{mod 1024}#
-                       #{var 1014}#
+                     (#{modref-cont 36545}#
+                       #{mod 36548}#
+                       #{var 36544}#
                        #f)
-                     (#{bare-cont 1016}# #{var 1014}#))
+                     (#{bare-cont 36546}# #{var 36544}#))
                    (syntax-violation
                      #f
                      "bad module kind"
-                     #{var 1014}#
-                     #{mod 1024}#)))))))))
-   (#{build-global-reference 285}#
-     (lambda (#{source 1032}# #{var 1033}# #{mod 1034}#)
-       (#{analyze-variable 283}#
-         #{mod 1034}#
-         #{var 1033}#
-         (lambda (#{mod 1038}# #{var 1039}# #{public? 1040}#)
-           (#{make-module-ref 218}#
-             #{source 1032}#
-             #{mod 1038}#
-             #{var 1039}#
-             #{public? 1040}#))
-         (lambda (#{var 1044}#)
-           (#{make-toplevel-ref 222}#
-             #{source 1032}#
-             #{var 1044}#)))))
-   (#{build-global-assignment 287}#
-     (lambda (#{source 1046}#
-              #{var 1047}#
-              #{exp 1048}#
-              #{mod 1049}#)
+                     #{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}#)
+           (make-struct/no-tail
+             (vector-ref %expanded-vtables 5)
+             #{source 36563}#
+             #{mod 36568}#
+             #{var 36569}#
+             #{public? 36570}#))
+         (lambda (#{var 36577}#)
+           (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}#)
        (begin
-         (#{maybe-name-value! 269}#
-           #{var 1047}#
-           #{exp 1048}#)
-         (#{analyze-variable 283}#
-           #{mod 1049}#
-           #{var 1047}#
-           (lambda (#{mod 1054}# #{var 1055}# #{public? 1056}#)
-             (#{make-module-set 220}#
-               #{source 1046}#
-               #{mod 1054}#
-               #{var 1055}#
-               #{public? 1056}#
-               #{exp 1048}#))
-           (lambda (#{var 1060}#)
-             (#{make-toplevel-set 224}#
-               #{source 1046}#
-               #{var 1060}#
-               #{exp 1048}#))))))
-   (#{build-global-definition 289}#
-     (lambda (#{source 1062}# #{var 1063}# #{exp 1064}#)
+         (if (if (struct? #{exp 19134}#)
+               (eq? (struct-vtable #{exp 19134}#)
+                    (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}#)
+             (make-struct/no-tail
+               (vector-ref %expanded-vtables 6)
+               #{source 19132}#
+               #{mod 19163}#
+               #{var 19164}#
+               #{public? 19165}#
+               #{exp 19134}#))
+           (lambda (#{var 19173}#)
+             (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}#)
        (begin
-         (#{maybe-name-value! 269}#
-           #{var 1063}#
-           #{exp 1064}#)
-         (#{make-toplevel-define 226}#
-           #{source 1062}#
-           #{var 1063}#
-           #{exp 1064}#))))
-   (#{build-simple-lambda 291}#
-     (lambda (#{src 1068}#
-              #{req 1069}#
-              #{rest 1070}#
-              #{vars 1071}#
-              #{meta 1072}#
-              #{exp 1073}#)
-       (#{make-lambda 236}#
-         #{src 1068}#
-         #{meta 1072}#
-         (#{make-lambda-case 238}#
-           #{src 1068}#
-           #{req 1069}#
-           #f
-           #{rest 1070}#
-           #f
-           '()
-           #{vars 1071}#
-           #{exp 1073}#
-           #f))))
-   (#{build-lambda-case 295}#
-     (lambda (#{src 1086}#
-              #{req 1087}#
-              #{opt 1088}#
-              #{rest 1089}#
-              #{kw 1090}#
-              #{inits 1091}#
-              #{vars 1092}#
-              #{body 1093}#
-              #{else-case 1094}#)
-       (#{make-lambda-case 238}#
-         #{src 1086}#
-         #{req 1087}#
-         #{opt 1088}#
-         #{rest 1089}#
-         #{kw 1090}#
-         #{inits 1091}#
-         #{vars 1092}#
-         #{body 1093}#
-         #{else-case 1094}#)))
-   (#{build-primcall 297}#
-     (lambda (#{src 1104}# #{name 1105}# #{args 1106}#)
-       (#{make-primcall 232}#
-         #{src 1104}#
-         #{name 1105}#
-         #{args 1106}#)))
-   (#{build-data 301}#
-     (lambda (#{src 1114}# #{exp 1115}#)
-       (#{make-const 210}# #{src 1114}# #{exp 1115}#)))
-   (#{build-sequence 303}#
-     (lambda (#{src 1118}# #{exps 1119}#)
-       (if (null? (cdr #{exps 1119}#))
-         (car #{exps 1119}#)
-         (#{make-seq 234}#
-           #{src 1118}#
-           (car #{exps 1119}#)
-           (#{build-sequence 303}# #f (cdr #{exps 1119}#))))))
-   (#{build-letrec 309}#
-     (lambda (#{src 1152}#
-              #{in-order? 1153}#
-              #{ids 1154}#
-              #{vars 1155}#
-              #{val-exps 1156}#
-              #{body-exp 1157}#)
-       (if (null? #{vars 1155}#)
-         #{body-exp 1157}#
+         (if (if (struct? #{exp 36584}#)
+               (eq? (struct-vtable #{exp 36584}#)
+                    (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}#)))))
+         (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}#
+               (make-struct/no-tail
+                 (vector-ref %expanded-vtables 15)
+                 #{src 19179}#
+                 #{req 19180}#
+                 #f
+                 #{rest 19181}#
+                 #f
+                 '()
+                 #{vars 19182}#
+                 #{exp 19184}#
+                 #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}#)
+       (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}#))))
+           (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}#
+                         (make-struct/no-tail
+                           (vector-ref %expanded-vtables 15)
+                           #{src 19210}#
+                           #{ids 19218}#
+                           #f
+                           #f
+                           #f
+                           '()
+                           #{vars 19217}#
+                           #{body-exp 19214}#
+                           #f)))
+                   (make-struct/no-tail
+                     (vector-ref %expanded-vtables 14)
+                     #{src 19210}#
+                     '()
+                     #{body 19239}#))))
+           (begin
+             (if (if (struct? #{proc 19219}#)
+                   (eq? (struct-vtable #{proc 19219}#)
+                        (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}#)))))
+             (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}#
+                             (make-struct/no-tail
+                               (vector-ref %expanded-vtables 3)
+                               #{src 19210}#
+                               #{f-name 19216}#
+                               #{f 19215}#)))
+                       (make-struct/no-tail
+                         (vector-ref %expanded-vtables 11)
+                         #{src 19210}#
+                         #{fun-exp 19301}#
+                         #{val-exps 19213}#))))
+               (make-struct/no-tail
+                 (vector-ref %expanded-vtables 17)
+                 #{src 19210}#
+                 #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}#
          (begin
            (for-each
-             #{maybe-name-value! 269}#
-             #{ids 1154}#
-             #{val-exps 1156}#)
-           (#{make-letrec 242}#
-             #{src 1152}#
-             #{in-order? 1153}#
-             #{ids 1154}#
-             #{vars 1155}#
-             #{val-exps 1156}#
-             #{body-exp 1157}#)))))
-   (#{make-syntax-object 314}#
-     (lambda (#{expression 1164}#
-              #{wrap 1165}#
-              #{module 1166}#)
-       (vector
-         'syntax-object
-         #{expression 1164}#
-         #{wrap 1165}#
-         #{module 1166}#)))
-   (#{syntax-object? 316}#
-     (lambda (#{x 1170}#)
-       (if (vector? #{x 1170}#)
-         (if (= (vector-length #{x 1170}#) 4)
-           (eq? (vector-ref #{x 1170}# 0) 'syntax-object)
-           #f)
-         #f)))
-   (#{syntax-object-expression 318}#
-     (lambda (#{x 1175}#) (vector-ref #{x 1175}# 1)))
-   (#{syntax-object-wrap 320}#
-     (lambda (#{x 1177}#) (vector-ref #{x 1177}# 2)))
-   (#{syntax-object-module 322}#
-     (lambda (#{x 1179}#) (vector-ref #{x 1179}# 3)))
-   (#{source-annotation 331}#
-     (lambda (#{x 1193}#)
-       (if (#{syntax-object? 316}# #{x 1193}#)
-         (#{source-annotation 331}#
-           (#{syntax-object-expression 318}# #{x 1193}#))
-         (if (pair? #{x 1193}#)
-           (let ((#{props 1200}# (source-properties #{x 1193}#)))
-             (if (pair? #{props 1200}#) #{props 1200}# #f))
+             #{maybe-name-value! 4307}#
+             #{ids 19319}#
+             #{val-exps 19321}#)
+           (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)
+               #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))
            #f))))
-   (#{extend-env 341}#
-     (lambda (#{labels 1202}# #{bindings 1203}# #{r 1204}#)
-       (if (null? #{labels 1202}#)
-         #{r 1204}#
-         (#{extend-env 341}#
-           (cdr #{labels 1202}#)
-           (cdr #{bindings 1203}#)
-           (cons (cons (car #{labels 1202}#)
-                       (car #{bindings 1203}#))
-                 #{r 1204}#)))))
-   (#{extend-var-env 343}#
-     (lambda (#{labels 1208}# #{vars 1209}# #{r 1210}#)
-       (if (null? #{labels 1208}#)
-         #{r 1210}#
-         (#{extend-var-env 343}#
-           (cdr #{labels 1208}#)
-           (cdr #{vars 1209}#)
-           (cons (cons (car #{labels 1208}#)
-                       (cons 'lexical (car #{vars 1209}#)))
-                 #{r 1210}#)))))
-   (#{macros-only-env 345}#
-     (lambda (#{r 1215}#)
-       (if (null? #{r 1215}#)
+   (#{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}#)
          '()
-         (let ((#{a 1218}# (car #{r 1215}#)))
-           (if (eq? (car (cdr #{a 1218}#)) 'macro)
-             (cons #{a 1218}#
-                   (#{macros-only-env 345}# (cdr #{r 1215}#)))
-             (#{macros-only-env 345}# (cdr #{r 1215}#)))))))
-   (#{lookup 347}#
-     (lambda (#{x 1219}# #{r 1220}# #{mod 1221}#)
-       (let ((#{t 1227}# (assq #{x 1219}# #{r 1220}#)))
-         (if #{t 1227}#
-           (cdr #{t 1227}#)
-           (if (symbol? #{x 1219}#)
-             (let ((#{t 1233}#
-                     (#{get-global-definition-hook 265}#
-                       #{x 1219}#
-                       #{mod 1221}#)))
-               (if #{t 1233}# #{t 1233}# '(global)))
-             '(displaced-lexical))))))
-   (#{global-extend 349}#
-     (lambda (#{type 1238}# #{sym 1239}# #{val 1240}#)
-       (#{put-global-definition-hook 263}#
-         #{sym 1239}#
-         #{type 1238}#
-         #{val 1240}#)))
-   (#{nonsymbol-id? 351}#
-     (lambda (#{x 1244}#)
-       (if (#{syntax-object? 316}# #{x 1244}#)
-         (symbol?
-           (#{syntax-object-expression 318}# #{x 1244}#))
-         #f)))
-   (#{id? 353}#
-     (lambda (#{x 1248}#)
-       (if (symbol? #{x 1248}#)
+         (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}#)
+       (module-define!
+         (current-module)
+         #{sym 19375}#
+         (make-syntax-transformer
+           #{sym 19375}#
+           #{type 19374}#
+           #{val 19376}#))))
+   (#{id? 4343}#
+     (lambda (#{x 12386}#)
+       (if (symbol? #{x 12386}#)
          #t
-         (if (#{syntax-object? 316}# #{x 1248}#)
-           (symbol?
-             (#{syntax-object-expression 318}# #{x 1248}#))
+         (if (if (vector? #{x 12386}#)
+               (if (= (vector-length #{x 12386}#) 4)
+                 (eq? (vector-ref #{x 12386}# 0) 'syntax-object)
+                 #f)
+               #f)
+           (symbol? (vector-ref #{x 12386}# 1))
            #f))))
-   (#{id-sym-name&marks 357}#
-     (lambda (#{x 1255}# #{w 1256}#)
-       (if (#{syntax-object? 316}# #{x 1255}#)
-         (values
-           (#{syntax-object-expression 318}# #{x 1255}#)
-           (#{join-marks 411}#
-             (car #{w 1256}#)
-             (car (#{syntax-object-wrap 320}# #{x 1255}#))))
-         (values #{x 1255}# (car #{w 1256}#)))))
-   (#{gen-label 371}#
-     (lambda () (symbol->string (gensym "i"))))
-   (#{gen-labels 373}#
-     (lambda (#{ls 1262}#)
-       (if (null? #{ls 1262}#)
+   (#{gen-labels 4346}#
+     (lambda (#{ls 19386}#)
+       (if (null? #{ls 19386}#)
          '()
-         (cons (#{gen-label 371}#)
-               (#{gen-labels 373}# (cdr #{ls 1262}#))))))
-   (#{make-ribcage 376}#
-     (lambda (#{symnames 1264}#
-              #{marks 1265}#
-              #{labels 1266}#)
-       (vector
-         'ribcage
-         #{symnames 1264}#
-         #{marks 1265}#
-         #{labels 1266}#)))
-   (#{ribcage-symnames 380}#
-     (lambda (#{x 1275}#) (vector-ref #{x 1275}# 1)))
-   (#{ribcage-marks 382}#
-     (lambda (#{x 1277}#) (vector-ref #{x 1277}# 2)))
-   (#{ribcage-labels 384}#
-     (lambda (#{x 1279}#) (vector-ref #{x 1279}# 3)))
-   (#{set-ribcage-symnames! 386}#
-     (lambda (#{x 1281}# #{update 1282}#)
-       (vector-set! #{x 1281}# 1 #{update 1282}#)))
-   (#{set-ribcage-marks! 388}#
-     (lambda (#{x 1285}# #{update 1286}#)
-       (vector-set! #{x 1285}# 2 #{update 1286}#)))
-   (#{set-ribcage-labels! 390}#
-     (lambda (#{x 1289}# #{update 1290}#)
-       (vector-set! #{x 1289}# 3 #{update 1290}#)))
-   (#{anti-mark 397}#
-     (lambda (#{w 1293}#)
-       (cons (cons #f (car #{w 1293}#))
-             (cons 'shift (cdr #{w 1293}#)))))
-   (#{extend-ribcage! 403}#
-     (lambda (#{ribcage 1299}# #{id 1300}# #{label 1301}#)
-       (begin
-         (#{set-ribcage-symnames! 386}#
-           #{ribcage 1299}#
-           (cons (#{syntax-object-expression 318}# #{id 1300}#)
-                 (#{ribcage-symnames 380}# #{ribcage 1299}#)))
-         (#{set-ribcage-marks! 388}#
-           #{ribcage 1299}#
-           (cons (car (#{syntax-object-wrap 320}# #{id 1300}#))
-                 (#{ribcage-marks 382}# #{ribcage 1299}#)))
-         (#{set-ribcage-labels! 390}#
-           #{ribcage 1299}#
-           (cons #{label 1301}#
-                 (#{ribcage-labels 384}# #{ribcage 1299}#))))))
-   (#{make-binding-wrap 405}#
-     (lambda (#{ids 1306}# #{labels 1307}# #{w 1308}#)
-       (if (null? #{ids 1306}#)
-         #{w 1308}#
-         (cons (car #{w 1308}#)
-               (cons (let ((#{labelvec 1315}#
-                             (list->vector #{labels 1307}#)))
-                       (let ((#{n 1317}# (vector-length #{labelvec 1315}#)))
-                         (let ((#{symnamevec 1320}# (make-vector #{n 1317}#))
-                               (#{marksvec 1321}# (make-vector #{n 1317}#)))
+         (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}#)))
                            (begin
                              (letrec*
-                               ((#{f 1325}#
-                                  (lambda (#{ids 1326}# #{i 1327}#)
-                                    (if (not (null? #{ids 1326}#))
+                               ((#{f 19397}#
+                                  (lambda (#{ids 19592}# #{i 19593}#)
+                                    (if (not (null? #{ids 19592}#))
                                       (call-with-values
                                         (lambda ()
-                                          (#{id-sym-name&marks 357}#
-                                            (car #{ids 1326}#)
-                                            #{w 1308}#))
-                                        (lambda (#{symname 1328}#
-                                                 #{marks 1329}#)
+                                          (let ((#{x 19596}#
+                                                  (car #{ids 19592}#)))
+                                            (if (if (vector? #{x 19596}#)
+                                                  (if (= (vector-length
+                                                           #{x 19596}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{x 19596}#
+                                                           0)
+                                                         'syntax-object)
+                                                    #f)
+                                                  #f)
+                                              (values
+                                                (vector-ref #{x 19596}# 1)
+                                                (let ((#{m1 19612}#
+                                                        (car #{w 19392}#))
+                                                      (#{m2 19613}#
+                                                        (car (vector-ref
+                                                               #{x 19596}#
+                                                               2))))
+                                                  (if (null? #{m2 19613}#)
+                                                    #{m1 19612}#
+                                                    (append
+                                                      #{m1 19612}#
+                                                      #{m2 19613}#))))
+                                              (values
+                                                #{x 19596}#
+                                                (car #{w 19392}#)))))
+                                        (lambda (#{symname 19633}#
+                                                 #{marks 19634}#)
                                           (begin
                                             (vector-set!
-                                              #{symnamevec 1320}#
-                                              #{i 1327}#
-                                              #{symname 1328}#)
+                                              #{symnamevec 19395}#
+                                              #{i 19593}#
+                                              #{symname 19633}#)
                                             (vector-set!
-                                              #{marksvec 1321}#
-                                              #{i 1327}#
-                                              #{marks 1329}#)
-                                            (#{f 1325}#
-                                              (cdr #{ids 1326}#)
-                                              (#{1+}# #{i 1327}#)))))))))
-                               (#{f 1325}# #{ids 1306}# 0))
-                             (#{make-ribcage 376}#
-                               #{symnamevec 1320}#
-                               #{marksvec 1321}#
-                               #{labelvec 1315}#)))))
-                     (cdr #{w 1308}#))))))
-   (#{smart-append 407}#
-     (lambda (#{m1 1334}# #{m2 1335}#)
-       (if (null? #{m2 1335}#)
-         #{m1 1334}#
-         (append #{m1 1334}# #{m2 1335}#))))
-   (#{join-wraps 409}#
-     (lambda (#{w1 1338}# #{w2 1339}#)
-       (let ((#{m1 1344}# (car #{w1 1338}#))
-             (#{s1 1345}# (cdr #{w1 1338}#)))
-         (if (null? #{m1 1344}#)
-           (if (null? #{s1 1345}#)
-             #{w2 1339}#
-             (cons (car #{w2 1339}#)
-                   (#{smart-append 407}#
-                     #{s1 1345}#
-                     (cdr #{w2 1339}#))))
-           (cons (#{smart-append 407}#
-                   #{m1 1344}#
-                   (car #{w2 1339}#))
-                 (#{smart-append 407}#
-                   #{s1 1345}#
-                   (cdr #{w2 1339}#)))))))
-   (#{join-marks 411}#
-     (lambda (#{m1 1354}# #{m2 1355}#)
-       (#{smart-append 407}# #{m1 1354}# #{m2 1355}#)))
-   (#{same-marks? 413}#
-     (lambda (#{x 1358}# #{y 1359}#)
-       (if (eq? #{x 1358}# #{y 1359}#)
-         (eq? #{x 1358}# #{y 1359}#)
-         (if (not (null? #{x 1358}#))
-           (if (not (null? #{y 1359}#))
-             (if (eq? (car #{x 1358}#) (car #{y 1359}#))
-               (#{same-marks? 413}#
-                 (cdr #{x 1358}#)
-                 (cdr #{y 1359}#))
+                                              #{marksvec 19396}#
+                                              #{i 19593}#
+                                              #{marks 19634}#)
+                                            (#{f 19397}#
+                                              (cdr #{ids 19592}#)
+                                              (#{1+}# #{i 19593}#)))))))))
+                               (#{f 19397}# #{ids 19390}# 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}#))
                #f)
              #f)
            #f))))
-   (#{id-var-name 415}#
-     (lambda (#{id 1370}# #{w 1371}#)
+   (#{id-var-name 4362}#
+     (lambda (#{id 19641}# #{w 19642}#)
        (letrec*
-         ((#{search 1377}#
-            (lambda (#{sym 1393}# #{subst 1394}# #{marks 1395}#)
-              (if (null? #{subst 1394}#)
-                (values #f #{marks 1395}#)
-                (let ((#{fst 1400}# (car #{subst 1394}#)))
-                  (if (eq? #{fst 1400}# 'shift)
-                    (#{search 1377}#
-                      #{sym 1393}#
-                      (cdr #{subst 1394}#)
-                      (cdr #{marks 1395}#))
-                    (let ((#{symnames 1402}#
-                            (#{ribcage-symnames 380}# #{fst 1400}#)))
-                      (if (vector? #{symnames 1402}#)
-                        (#{search-vector-rib 1381}#
-                          #{sym 1393}#
-                          #{subst 1394}#
-                          #{marks 1395}#
-                          #{symnames 1402}#
-                          #{fst 1400}#)
-                        (#{search-list-rib 1379}#
-                          #{sym 1393}#
-                          #{subst 1394}#
-                          #{marks 1395}#
-                          #{symnames 1402}#
-                          #{fst 1400}#))))))))
-          (#{search-list-rib 1379}#
-            (lambda (#{sym 1403}#
-                     #{subst 1404}#
-                     #{marks 1405}#
-                     #{symnames 1406}#
-                     #{ribcage 1407}#)
+         ((#{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}#)
               (letrec*
-                ((#{f 1416}#
-                   (lambda (#{symnames 1417}# #{i 1418}#)
-                     (if (null? #{symnames 1417}#)
-                       (#{search 1377}#
-                         #{sym 1403}#
-                         (cdr #{subst 1404}#)
-                         #{marks 1405}#)
-                       (if (if (eq? (car #{symnames 1417}#) #{sym 1403}#)
-                             (#{same-marks? 413}#
-                               #{marks 1405}#
+                ((#{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}#
                                (list-ref
-                                 (#{ribcage-marks 382}# #{ribcage 1407}#)
-                                 #{i 1418}#))
+                                 (vector-ref #{ribcage 19883}# 2)
+                                 #{i 19888}#))
                              #f)
                          (values
                            (list-ref
-                             (#{ribcage-labels 384}# #{ribcage 1407}#)
-                             #{i 1418}#)
-                           #{marks 1405}#)
-                         (#{f 1416}#
-                           (cdr #{symnames 1417}#)
-                           (#{1+}# #{i 1418}#)))))))
-                (#{f 1416}# #{symnames 1406}# 0))))
-          (#{search-vector-rib 1381}#
-            (lambda (#{sym 1427}#
-                     #{subst 1428}#
-                     #{marks 1429}#
-                     #{symnames 1430}#
-                     #{ribcage 1431}#)
-              (let ((#{n 1438}# (vector-length #{symnames 1430}#)))
+                             (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}#)))
                 (letrec*
-                  ((#{f 1441}#
-                     (lambda (#{i 1442}#)
-                       (if (= #{i 1442}# #{n 1438}#)
-                         (#{search 1377}#
-                           #{sym 1427}#
-                           (cdr #{subst 1428}#)
-                           #{marks 1429}#)
-                         (if (if (eq? (vector-ref #{symnames 1430}# #{i 1442}#)
-                                      #{sym 1427}#)
-                               (#{same-marks? 413}#
-                                 #{marks 1429}#
+                  ((#{f 20044}#
+                     (lambda (#{i 20101}#)
+                       (if (= #{i 20101}# #{n 20043}#)
+                         (#{search 19643}#
+                           #{sym 20038}#
+                           (cdr #{subst 20039}#)
+                           #{marks 20040}#)
+                         (if (if (eq? (vector-ref
+                                        #{symnames 20041}#
+                                        #{i 20101}#)
+                                      #{sym 20038}#)
+                               (#{same-marks? 4361}#
+                                 #{marks 20040}#
                                  (vector-ref
-                                   (#{ribcage-marks 382}# #{ribcage 1431}#)
-                                   #{i 1442}#))
+                                   (vector-ref #{ribcage 20042}# 2)
+                                   #{i 20101}#))
                                #f)
                            (values
                              (vector-ref
-                               (#{ribcage-labels 384}# #{ribcage 1431}#)
-                               #{i 1442}#)
-                             #{marks 1429}#)
-                           (#{f 1441}# (#{1+}# #{i 1442}#)))))))
-                  (#{f 1441}# 0))))))
-         (if (symbol? #{id 1370}#)
-           (let ((#{t 1454}#
-                   (#{search 1377}#
-                     #{id 1370}#
-                     (cdr #{w 1371}#)
-                     (car #{w 1371}#))))
-             (if #{t 1454}# #{t 1454}# #{id 1370}#))
-           (if (#{syntax-object? 316}# #{id 1370}#)
-             (let ((#{id 1463}#
-                     (#{syntax-object-expression 318}# #{id 1370}#))
-                   (#{w1 1464}#
-                     (#{syntax-object-wrap 320}# #{id 1370}#)))
-               (let ((#{marks 1466}#
-                       (#{join-marks 411}#
-                         (car #{w 1371}#)
-                         (car #{w1 1464}#))))
+                               (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)
+                   #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}#)))))
                  (call-with-values
                    (lambda ()
-                     (#{search 1377}#
-                       #{id 1463}#
-                       (cdr #{w 1371}#)
-                       #{marks 1466}#))
-                   (lambda (#{new-id 1470}# #{marks 1471}#)
-                     (if #{new-id 1470}#
-                       #{new-id 1470}#
-                       (let ((#{t 1479}#
-                               (#{search 1377}#
-                                 #{id 1463}#
-                                 (cdr #{w1 1464}#)
-                                 #{marks 1471}#)))
-                         (if #{t 1479}# #{t 1479}# #{id 1463}#)))))))
+                     (#{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}#)))))))
              (syntax-violation
                'id-var-name
                "invalid id"
-               #{id 1370}#))))))
-   (#{free-id=? 417}#
-     (lambda (#{i 1484}# #{j 1485}#)
-       (let ((#{ni 1490}#
-               (#{id-var-name 415}# #{i 1484}# '(())))
-             (#{nj 1491}#
-               (#{id-var-name 415}# #{j 1485}# '(()))))
-         (if (eq? #{ni 1490}#
-                  (if (#{syntax-object? 316}# #{i 1484}#)
-                    (#{syntax-object-expression 318}# #{i 1484}#)
-                    #{i 1484}#))
-           (if (eq? #{nj 1491}#
-                    (if (#{syntax-object? 316}# #{j 1485}#)
-                      (#{syntax-object-expression 318}# #{j 1485}#)
-                      #{j 1485}#))
-             (if (let ((#{bi 1514}#
-                         (let ((#{mod 4428}#
-                                 (if (#{syntax-object? 316}# #{i 1484}#)
-                                   (#{syntax-object-module 322}# #{i 1484}#)
+               #{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)
+                          #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)
+                            #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)
+                                              'syntax-object)
+                                         #f)
+                                       #f)
+                                   (vector-ref #{i 20251}# 3)
                                    #f)))
                            (module-variable
-                             (if #{mod 4428}#
-                               (resolve-module (cdr #{mod 4428}#))
+                             (if #{mod 20581}#
+                               (resolve-module (cdr #{mod 20581}#))
                                (current-module))
-                             (if (#{syntax-object? 316}# #{i 1484}#)
-                               (#{syntax-object-expression 318}# #{i 1484}#)
-                               #{i 1484}#)))))
-                   (if #{bi 1514}#
-                     (eq? #{bi 1514}#
-                          (let ((#{mod 4432}#
-                                  (if (#{syntax-object? 316}# #{j 1485}#)
-                                    (#{syntax-object-module 322}# #{j 1485}#)
+                             (if (if (vector? #{i 20251}#)
+                                   (if (= (vector-length #{i 20251}#) 4)
+                                     (eq? (vector-ref #{i 20251}# 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)
+                                               'syntax-object)
+                                          #f)
+                                        #f)
+                                    (vector-ref #{j 20252}# 3)
                                     #f)))
                             (module-variable
-                              (if #{mod 4432}#
-                                (resolve-module (cdr #{mod 4432}#))
+                              (if #{mod 20425}#
+                                (resolve-module (cdr #{mod 20425}#))
                                 (current-module))
-                              (if (#{syntax-object? 316}# #{j 1485}#)
-                                (#{syntax-object-expression 318}# #{j 1485}#)
-                                #{j 1485}#))))
-                     (if (not (let ((#{mod 4436}#
-                                      (if (#{syntax-object? 316}# #{j 1485}#)
-                                        (#{syntax-object-module 322}#
-                                          #{j 1485}#)
+                              (if (if (vector? #{j 20252}#)
+                                    (if (= (vector-length #{j 20252}#) 4)
+                                      (eq? (vector-ref #{j 20252}# 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}#)
+                                                   4)
+                                              (eq? (vector-ref #{j 20252}# 0)
+                                                   'syntax-object)
+                                              #f)
+                                            #f)
+                                        (vector-ref #{j 20252}# 3)
                                         #f)))
                                 (module-variable
-                                  (if #{mod 4436}#
-                                    (resolve-module (cdr #{mod 4436}#))
+                                  (if #{mod 20503}#
+                                    (resolve-module (cdr #{mod 20503}#))
                                     (current-module))
-                                  (if (#{syntax-object? 316}# #{j 1485}#)
-                                    (#{syntax-object-expression 318}#
-                                      #{j 1485}#)
-                                    #{j 1485}#))))
-                       (eq? #{ni 1490}# #{nj 1491}#)
+                                  (if (if (vector? #{j 20252}#)
+                                        (if (= (vector-length #{j 20252}#) 4)
+                                          (eq? (vector-ref #{j 20252}# 0)
+                                               'syntax-object)
+                                          #f)
+                                        #f)
+                                    (vector-ref #{j 20252}# 1)
+                                    #{j 20252}#))))
+                       (eq? #{ni 20253}# #{nj 20254}#)
                        #f)))
-               (eq? (let ((#{mod 4440}#
-                            (if (#{syntax-object? 316}# #{i 1484}#)
-                              (#{syntax-object-module 322}# #{i 1484}#)
+               (eq? (let ((#{mod 20659}#
+                            (if (if (vector? #{i 20251}#)
+                                  (if (= (vector-length #{i 20251}#) 4)
+                                    (eq? (vector-ref #{i 20251}# 0)
+                                         'syntax-object)
+                                    #f)
+                                  #f)
+                              (vector-ref #{i 20251}# 3)
                               #f)))
                       (module-variable
-                        (if #{mod 4440}#
-                          (resolve-module (cdr #{mod 4440}#))
+                        (if #{mod 20659}#
+                          (resolve-module (cdr #{mod 20659}#))
                           (current-module))
-                        (if (#{syntax-object? 316}# #{i 1484}#)
-                          (#{syntax-object-expression 318}# #{i 1484}#)
-                          #{i 1484}#)))
-                    (let ((#{mod 4444}#
-                            (if (#{syntax-object? 316}# #{j 1485}#)
-                              (#{syntax-object-module 322}# #{j 1485}#)
+                        (if (if (vector? #{i 20251}#)
+                              (if (= (vector-length #{i 20251}#) 4)
+                                (eq? (vector-ref #{i 20251}# 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)
+                                         'syntax-object)
+                                    #f)
+                                  #f)
+                              (vector-ref #{j 20252}# 3)
                               #f)))
                       (module-variable
-                        (if #{mod 4444}#
-                          (resolve-module (cdr #{mod 4444}#))
+                        (if #{mod 20737}#
+                          (resolve-module (cdr #{mod 20737}#))
                           (current-module))
-                        (if (#{syntax-object? 316}# #{j 1485}#)
-                          (#{syntax-object-expression 318}# #{j 1485}#)
-                          #{j 1485}#))))
+                        (if (if (vector? #{j 20252}#)
+                              (if (= (vector-length #{j 20252}#) 4)
+                                (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+                                #f)
+                              #f)
+                          (vector-ref #{j 20252}# 1)
+                          #{j 20252}#))))
                #f)
              #f)
-           (if (eq? #{ni 1490}# #{nj 1491}#)
-             (not (eq? #{nj 1491}#
-                       (if (#{syntax-object? 316}# #{j 1485}#)
-                         (#{syntax-object-expression 318}# #{j 1485}#)
-                         #{j 1485}#)))
+           (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)
+                               #f)
+                             #f)
+                         (vector-ref #{j 20252}# 1)
+                         #{j 20252}#)))
              #f)))))
-   (#{bound-id=? 419}#
-     (lambda (#{i 1523}# #{j 1524}#)
-       (if (if (#{syntax-object? 316}# #{i 1523}#)
-             (#{syntax-object? 316}# #{j 1524}#)
+   (#{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)
+                   #f)
+                 #f)
+             (if (vector? #{j 20838}#)
+               (if (= (vector-length #{j 20838}#) 4)
+                 (eq? (vector-ref #{j 20838}# 0) 'syntax-object)
+                 #f)
+               #f)
              #f)
-         (if (eq? (#{syntax-object-expression 318}# #{i 1523}#)
-                  (#{syntax-object-expression 318}# #{j 1524}#))
-           (#{same-marks? 413}#
-             (car (#{syntax-object-wrap 320}# #{i 1523}#))
-             (car (#{syntax-object-wrap 320}# #{j 1524}#)))
+         (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)))
            #f)
-         (eq? #{i 1523}# #{j 1524}#))))
-   (#{valid-bound-ids? 421}#
-     (lambda (#{ids 1533}#)
+         (eq? #{i 20837}# #{j 20838}#))))
+   (#{valid-bound-ids? 4365}#
+     (lambda (#{ids 21007}#)
        (if (letrec*
-             ((#{all-ids? 1538}#
-                (lambda (#{ids 1539}#)
-                  (if (null? #{ids 1539}#)
-                    (null? #{ids 1539}#)
-                    (if (#{id? 353}# (car #{ids 1539}#))
-                      (#{all-ids? 1538}# (cdr #{ids 1539}#))
+             ((#{all-ids? 21008}#
+                (lambda (#{ids 21198}#)
+                  (if (null? #{ids 21198}#)
+                    (null? #{ids 21198}#)
+                    (if (let ((#{x 21209}# (car #{ids 21198}#)))
+                          (if (symbol? #{x 21209}#)
+                            #t
+                            (if (if (vector? #{x 21209}#)
+                                  (if (= (vector-length #{x 21209}#) 4)
+                                    (eq? (vector-ref #{x 21209}# 0)
+                                         'syntax-object)
+                                    #f)
+                                  #f)
+                              (symbol? (vector-ref #{x 21209}# 1))
+                              #f)))
+                      (#{all-ids? 21008}# (cdr #{ids 21198}#))
                       #f)))))
-             (#{all-ids? 1538}# #{ids 1533}#))
-         (#{distinct-bound-ids? 423}# #{ids 1533}#)
+             (#{all-ids? 21008}# #{ids 21007}#))
+         (#{distinct-bound-ids? 4366}# #{ids 21007}#)
          #f)))
-   (#{distinct-bound-ids? 423}#
-     (lambda (#{ids 1547}#)
+   (#{distinct-bound-ids? 4366}#
+     (lambda (#{ids 21330}#)
        (letrec*
-         ((#{distinct? 1551}#
-            (lambda (#{ids 1552}#)
-              (if (null? #{ids 1552}#)
-                (null? #{ids 1552}#)
-                (if (not (#{bound-id-member? 425}#
-                           (car #{ids 1552}#)
-                           (cdr #{ids 1552}#)))
-                  (#{distinct? 1551}# (cdr #{ids 1552}#))
+         ((#{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}#))
                   #f)))))
-         (#{distinct? 1551}# #{ids 1547}#))))
-   (#{bound-id-member? 425}#
-     (lambda (#{x 1559}# #{list 1560}#)
-       (if (not (null? #{list 1560}#))
-         (let ((#{t 1567}#
-                 (#{bound-id=? 419}#
-                   #{x 1559}#
-                   (car #{list 1560}#))))
-           (if #{t 1567}#
-             #{t 1567}#
-             (#{bound-id-member? 425}#
-               #{x 1559}#
-               (cdr #{list 1560}#))))
+         (#{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}#))))
          #f)))
-   (#{wrap 427}#
-     (lambda (#{x 1569}# #{w 1570}# #{defmod 1571}#)
-       (if (if (null? (car #{w 1570}#))
-             (null? (cdr #{w 1570}#))
-             #f)
-         #{x 1569}#
-         (if (#{syntax-object? 316}# #{x 1569}#)
-           (#{make-syntax-object 314}#
-             (#{syntax-object-expression 318}# #{x 1569}#)
-             (#{join-wraps 409}#
-               #{w 1570}#
-               (#{syntax-object-wrap 320}# #{x 1569}#))
-             (#{syntax-object-module 322}# #{x 1569}#))
-           (if (null? #{x 1569}#)
-             #{x 1569}#
-             (#{make-syntax-object 314}#
-               #{x 1569}#
-               #{w 1570}#
-               #{defmod 1571}#))))))
-   (#{source-wrap 429}#
-     (lambda (#{x 1586}#
-              #{w 1587}#
-              #{s 1588}#
-              #{defmod 1589}#)
-       (#{wrap 427}#
-         (#{decorate-source 267}# #{x 1586}# #{s 1588}#)
-         #{w 1587}#
-         #{defmod 1589}#)))
-   (#{chi-sequence 431}#
-     (lambda (#{body 1594}#
-              #{r 1595}#
-              #{w 1596}#
-              #{s 1597}#
-              #{mod 1598}#)
-       (#{build-sequence 303}#
-         #{s 1597}#
+   (#{source-wrap 4369}#
+     (lambda (#{x 21708}#
+              #{w 21709}#
+              #{s 21710}#
+              #{defmod 21711}#)
+       (let ((#{x 21715}#
+               (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}#))
+               #f)
+           #{x 21715}#
+           (if (if (vector? #{x 21715}#)
+                 (if (= (vector-length #{x 21715}#) 4)
+                   (eq? (vector-ref #{x 21715}# 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)))
+               (vector
+                 'syntax-object
+                 #{expression 21747}#
+                 #{wrap 21748}#
+                 #{module 21749}#))
+             (if (null? #{x 21715}#)
+               #{x 21715}#
+               (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}#
          (letrec*
-           ((#{dobody 1609}#
-              (lambda (#{body 1610}#
-                       #{r 1611}#
-                       #{w 1612}#
-                       #{mod 1613}#)
-                (if (null? #{body 1610}#)
+           ((#{dobody 36725}#
+              (lambda (#{body 36810}#
+                       #{r 36811}#
+                       #{w 36812}#
+                       #{mod 36813}#)
+                (if (null? #{body 36810}#)
                   '()
-                  (let ((#{first 1615}#
-                          (#{chi 441}#
-                            (car #{body 1610}#)
-                            #{r 1611}#
-                            #{w 1612}#
-                            #{mod 1613}#)))
-                    (cons #{first 1615}#
-                          (#{dobody 1609}#
-                            (cdr #{body 1610}#)
-                            #{r 1611}#
-                            #{w 1612}#
-                            #{mod 1613}#)))))))
-           (#{dobody 1609}#
-             #{body 1594}#
-             #{r 1595}#
-             #{w 1596}#
-             #{mod 1598}#)))))
-   (#{chi-top-sequence 433}#
-     (lambda (#{body 1616}#
-              #{r 1617}#
-              #{w 1618}#
-              #{s 1619}#
-              #{m 1620}#
-              #{esew 1621}#
-              #{mod 1622}#)
+                  (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}#)
        (letrec*
-         ((#{scan 1631}#
-            (lambda (#{body 1632}#
-                     #{r 1633}#
-                     #{w 1634}#
-                     #{s 1635}#
-                     #{m 1636}#
-                     #{esew 1637}#
-                     #{mod 1638}#
-                     #{exps 1639}#)
-              (if (null? #{body 1632}#)
-                #{exps 1639}#
+         ((#{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 1652}# (car #{body 1632}#)))
-                          (#{syntax-type 439}#
-                            #{e 1652}#
-                            #{r 1633}#
-                            #{w 1634}#
-                            (let ((#{t 1655}#
-                                    (#{source-annotation 331}# #{e 1652}#)))
-                              (if #{t 1655}# #{t 1655}# #{s 1635}#))
+                        (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 1638}#
+                            #{mod 21964}#
                             #f)))
-                      (lambda (#{type 1657}#
-                               #{value 1658}#
-                               #{e 1659}#
-                               #{w 1660}#
-                               #{s 1661}#
-                               #{mod 1662}#)
-                        (if (memv #{type 1657}# '(begin-form))
-                          (let ((#{tmp 1671}# ($sc-dispatch #{e 1659}# '(_))))
-                            (if #{tmp 1671}#
-                              (@apply (lambda () #{exps 1639}#) #{tmp 1671}#)
-                              (let ((#{tmp 1672}#
+                      (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 1659}#
+                                        #{e 22254}#
                                         '(_ any . each-any))))
-                                (if #{tmp 1672}#
+                                (if #{tmp 22266}#
                                   (@apply
-                                    (lambda (#{e1 1675}# #{e2 1676}#)
-                                      (#{scan 1631}#
-                                        (cons #{e1 1675}# #{e2 1676}#)
-                                        #{r 1633}#
-                                        #{w 1660}#
-                                        #{s 1661}#
-                                        #{m 1636}#
-                                        #{esew 1637}#
-                                        #{mod 1662}#
-                                        #{exps 1639}#))
-                                    #{tmp 1672}#)
+                                    (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 1659}#)))))
-                          (if (memv #{type 1657}# '(local-syntax-form))
-                            (#{chi-local-syntax 451}#
-                              #{value 1658}#
-                              #{e 1659}#
-                              #{r 1633}#
-                              #{w 1660}#
-                              #{s 1661}#
-                              #{mod 1662}#
-                              (lambda (#{body 1679}#
-                                       #{r 1680}#
-                                       #{w 1681}#
-                                       #{s 1682}#
-                                       #{mod 1683}#)
-                                (#{scan 1631}#
-                                  #{body 1679}#
-                                  #{r 1680}#
-                                  #{w 1681}#
-                                  #{s 1682}#
-                                  #{m 1636}#
-                                  #{esew 1637}#
-                                  #{mod 1683}#
-                                  #{exps 1639}#)))
-                            (if (memv #{type 1657}# '(eval-when-form))
-                              (let ((#{tmp 1691}#
+                                    #{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 1659}#
+                                        #{e 22254}#
                                         '(_ each-any any . each-any))))
-                                (if #{tmp 1691}#
+                                (if #{tmp 22295}#
                                   (@apply
-                                    (lambda (#{x 1695}#
-                                             #{e1 1696}#
-                                             #{e2 1697}#)
-                                      (let ((#{when-list 1700}#
-                                              (#{chi-when-list 437}#
-                                                #{e 1659}#
-                                                #{x 1695}#
-                                                #{w 1660}#))
-                                            (#{body 1701}#
-                                              (cons #{e1 1696}# #{e2 1697}#)))
-                                        (if (eq? #{m 1636}# 'e)
-                                          (if (memq 'eval #{when-list 1700}#)
-                                            (#{scan 1631}#
-                                              #{body 1701}#
-                                              #{r 1633}#
-                                              #{w 1660}#
-                                              #{s 1661}#
+                                    (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 1700}#)
+                                                        #{when-list 22302}#)
                                                 'c&e
                                                 'e)
                                               '(eval)
-                                              #{mod 1662}#
-                                              #{exps 1639}#)
+                                              #{mod 22257}#
+                                              #{exps 21965}#)
                                             (begin
                                               (if (memq 'expand
-                                                        #{when-list 1700}#)
-                                                (#{top-level-eval-hook 257}#
-                                                  (#{chi-top-sequence 433}#
-                                                    #{body 1701}#
-                                                    #{r 1633}#
-                                                    #{w 1660}#
-                                                    #{s 1661}#
-                                                    'e
-                                                    '(eval)
-                                                    #{mod 1662}#)
-                                                  #{mod 1662}#))
-                                              (values #{exps 1639}#)))
-                                          (if (memq 'load #{when-list 1700}#)
-                                            (if (let ((#{t 1710}#
+                                                        #{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 
1700}#)))
-                                                  (if #{t 1710}#
-                                                    #{t 1710}#
-                                                    (let ((#{t 1713}#
+                                                              #{when-list 
22302}#)))
+                                                  (if #{t 22312}#
+                                                    #{t 22312}#
+                                                    (let ((#{t 22314}#
                                                             (memq 'expand
-                                                                  #{when-list 
1700}#)))
-                                                      (if #{t 1713}#
-                                                        #{t 1713}#
-                                                        (if (eq? #{m 1636}#
+                                                                  #{when-list 
22302}#)))
+                                                      (if #{t 22314}#
+                                                        #{t 22314}#
+                                                        (if (eq? #{m 21962}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
1700}#)
+                                                                #{when-list 
22302}#)
                                                           #f)))))
-                                              (#{scan 1631}#
-                                                #{body 1701}#
-                                                #{r 1633}#
-                                                #{w 1660}#
-                                                #{s 1661}#
+                                              (#{scan 21811}#
+                                                #{body 22303}#
+                                                #{r 21959}#
+                                                #{w 22255}#
+                                                #{s 22256}#
                                                 'c&e
                                                 '(compile load)
-                                                #{mod 1662}#
-                                                #{exps 1639}#)
-                                              (if (memq #{m 1636}# '(c c&e))
-                                                (#{scan 1631}#
-                                                  #{body 1701}#
-                                                  #{r 1633}#
-                                                  #{w 1660}#
-                                                  #{s 1661}#
+                                                #{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 1662}#
-                                                  #{exps 1639}#)
-                                                (values #{exps 1639}#)))
-                                            (if (let ((#{t 1721}#
+                                                  #{mod 22257}#
+                                                  #{exps 21965}#)
+                                                (values #{exps 21965}#)))
+                                            (if (let ((#{t 22324}#
                                                         (memq 'compile
-                                                              #{when-list 
1700}#)))
-                                                  (if #{t 1721}#
-                                                    #{t 1721}#
-                                                    (let ((#{t 1724}#
+                                                              #{when-list 
22302}#)))
+                                                  (if #{t 22324}#
+                                                    #{t 22324}#
+                                                    (let ((#{t 22326}#
                                                             (memq 'expand
-                                                                  #{when-list 
1700}#)))
-                                                      (if #{t 1724}#
-                                                        #{t 1724}#
-                                                        (if (eq? #{m 1636}#
+                                                                  #{when-list 
22302}#)))
+                                                      (if #{t 22326}#
+                                                        #{t 22326}#
+                                                        (if (eq? #{m 21962}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
1700}#)
+                                                                #{when-list 
22302}#)
                                                           #f)))))
                                               (begin
-                                                (#{top-level-eval-hook 257}#
-                                                  (#{chi-top-sequence 433}#
-                                                    #{body 1701}#
-                                                    #{r 1633}#
-                                                    #{w 1660}#
-                                                    #{s 1661}#
-                                                    'e
-                                                    '(eval)
-                                                    #{mod 1662}#)
-                                                  #{mod 1662}#)
-                                                (values #{exps 1639}#))
-                                              (values #{exps 1639}#))))))
-                                    #{tmp 1691}#)
+                                                (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 1659}#)))
-                              (if (memv #{type 1657}# '(define-syntax-form))
-                                (let ((#{n 1732}#
-                                        (#{id-var-name 415}#
-                                          #{value 1658}#
-                                          #{w 1660}#))
-                                      (#{r 1733}#
-                                        (#{macros-only-env 345}# #{r 1633}#)))
-                                  (if (memv #{m 1636}# '(c))
-                                    (if (memq 'compile #{esew 1637}#)
-                                      (let ((#{e 1736}#
-                                              (#{chi-install-global 435}#
-                                                #{n 1732}#
-                                                (#{chi 441}#
-                                                  #{e 1659}#
-                                                  #{r 1733}#
-                                                  #{w 1660}#
-                                                  #{mod 1662}#))))
+                                    #{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 257}#
-                                            #{e 1736}#
-                                            #{mod 1662}#)
-                                          (if (memq 'load #{esew 1637}#)
+                                          (#{top-level-eval-hook 4302}#
+                                            #{e 22347}#
+                                            #{mod 22257}#)
+                                          (if (memq 'load #{esew 21963}#)
                                             (values
-                                              (cons #{e 1736}# #{exps 1639}#))
-                                            (values #{exps 1639}#))))
-                                      (if (memq 'load #{esew 1637}#)
+                                              (cons #{e 22347}#
+                                                    #{exps 21965}#))
+                                            (values #{exps 21965}#))))
+                                      (if (memq 'load #{esew 21963}#)
                                         (values
-                                          (cons (#{chi-install-global 435}#
-                                                  #{n 1732}#
-                                                  (#{chi 441}#
-                                                    #{e 1659}#
-                                                    #{r 1733}#
-                                                    #{w 1660}#
-                                                    #{mod 1662}#))
-                                                #{exps 1639}#))
-                                        (values #{exps 1639}#)))
-                                    (if (memv #{m 1636}# '(c&e))
-                                      (let ((#{e 1739}#
-                                              (#{chi-install-global 435}#
-                                                #{n 1732}#
-                                                (#{chi 441}#
-                                                  #{e 1659}#
-                                                  #{r 1733}#
-                                                  #{w 1660}#
-                                                  #{mod 1662}#))))
+                                          (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 257}#
-                                            #{e 1739}#
-                                            #{mod 1662}#)
+                                          (#{top-level-eval-hook 4302}#
+                                            #{e 22789}#
+                                            #{mod 22257}#)
                                           (values
-                                            (cons #{e 1739}# #{exps 1639}#))))
+                                            (cons #{e 22789}#
+                                                  #{exps 21965}#))))
                                       (begin
-                                        (if (memq 'eval #{esew 1637}#)
-                                          (#{top-level-eval-hook 257}#
-                                            (#{chi-install-global 435}#
-                                              #{n 1732}#
-                                              (#{chi 441}#
-                                                #{e 1659}#
-                                                #{r 1733}#
-                                                #{w 1660}#
-                                                #{mod 1662}#))
-                                            #{mod 1662}#))
-                                        (values #{exps 1639}#)))))
-                                (if (memv #{type 1657}# '(define-form))
-                                  (let ((#{n 1744}#
-                                          (#{id-var-name 415}#
-                                            #{value 1658}#
-                                            #{w 1660}#)))
-                                    (let ((#{type 1746}#
-                                            (car (#{lookup 347}#
-                                                   #{n 1744}#
-                                                   #{r 1633}#
-                                                   #{mod 1662}#))))
-                                      (if (memv #{type 1746}#
-                                                '(global
-                                                   core
-                                                   macro
-                                                   module-ref))
+                                        (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)
+                                              #t
+                                              (if (eqv? #{t 23468}# 'core)
+                                                #t
+                                                (if (eqv? #{t 23468}# 'macro)
+                                                  #t
+                                                  (eqv? #{t 23468}#
+                                                        'module-ref)))))
                                         (begin
-                                          (if (if (memq #{m 1636}# '(c c&e))
+                                          (if (if (if (eq? #{m 21962}# 'c)
+                                                    #t
+                                                    (eq? #{m 21962}# 'c&e))
                                                 (if (not (module-local-variable
                                                            (current-module)
-                                                           #{n 1744}#))
+                                                           #{n 23433}#))
                                                   (current-module)
                                                   #f)
                                                 #f)
-                                            (let ((#{old 1753}#
+                                            (let ((#{old 23632}#
                                                     (module-variable
                                                       (current-module)
-                                                      #{n 1744}#)))
-                                              (if (if (variable? #{old 1753}#)
+                                                      #{n 23433}#)))
+                                              (if (if (variable? #{old 23632}#)
                                                     (variable-bound?
-                                                      #{old 1753}#)
+                                                      #{old 23632}#)
                                                     #f)
                                                 (module-define!
                                                   (current-module)
-                                                  #{n 1744}#
-                                                  (variable-ref #{old 1753}#))
+                                                  #{n 23433}#
+                                                  (variable-ref #{old 23632}#))
                                                 (module-add!
                                                   (current-module)
-                                                  #{n 1744}#
+                                                  #{n 23433}#
                                                   (make-undefined-variable)))))
                                           (values
-                                            (cons (if (eq? #{m 1636}# 'c&e)
-                                                    (let ((#{x 1757}#
-                                                            
(#{build-global-definition 289}#
-                                                              #{s 1661}#
-                                                              #{n 1744}#
-                                                              (#{chi 441}#
-                                                                #{e 1659}#
-                                                                #{r 1633}#
-                                                                #{w 1660}#
-                                                                #{mod 
1662}#))))
+                                            (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 
257}#
-                                                          #{x 1757}#
-                                                          #{mod 1662}#)
-                                                        #{x 1757}#))
+                                                        (#{top-level-eval-hook 
4302}#
+                                                          #{x 23634}#
+                                                          #{mod 22257}#)
+                                                        #{x 23634}#))
                                                     (lambda ()
-                                                      
(#{build-global-definition 289}#
-                                                        #{s 1661}#
-                                                        #{n 1744}#
-                                                        (#{chi 441}#
-                                                          #{e 1659}#
-                                                          #{r 1633}#
-                                                          #{w 1660}#
-                                                          #{mod 1662}#))))
-                                                  #{exps 1639}#)))
-                                        (if (memv #{type 1746}#
-                                                  '(displaced-lexical))
+                                                      
(#{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 1659}#
-                                            (#{wrap 427}#
-                                              #{value 1658}#
-                                              #{w 1660}#
-                                              #{mod 1662}#))
+                                            #{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}#
+                                                                        (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 1659}#
-                                            (#{wrap 427}#
-                                              #{value 1658}#
-                                              #{w 1660}#
-                                              #{mod 1662}#))))))
+                                            #{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 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}#
+                                                                        (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 1636}# 'c&e)
-                                            (let ((#{x 1762}#
-                                                    (#{chi-expr 443}#
-                                                      #{type 1657}#
-                                                      #{value 1658}#
-                                                      #{e 1659}#
-                                                      #{r 1633}#
-                                                      #{w 1660}#
-                                                      #{s 1661}#
-                                                      #{mod 1662}#)))
+                                    (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
-                                                (#{top-level-eval-hook 257}#
-                                                  #{x 1762}#
-                                                  #{mod 1662}#)
-                                                #{x 1762}#))
+                                                (primitive-eval #{x 24488}#)
+                                                #{x 24488}#))
                                             (lambda ()
-                                              (#{chi-expr 443}#
-                                                #{type 1657}#
-                                                #{value 1658}#
-                                                #{e 1659}#
-                                                #{r 1633}#
-                                                #{w 1660}#
-                                                #{s 1661}#
-                                                #{mod 1662}#)))
-                                          #{exps 1639}#))))))))))
-                  (lambda (#{exps 1763}#)
-                    (#{scan 1631}#
-                      (cdr #{body 1632}#)
-                      #{r 1633}#
-                      #{w 1634}#
-                      #{s 1635}#
-                      #{m 1636}#
-                      #{esew 1637}#
-                      #{mod 1638}#
-                      #{exps 1763}#)))))))
+                                              (#{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 1631}#
-               #{body 1616}#
-               #{r 1617}#
-               #{w 1618}#
-               #{s 1619}#
-               #{m 1620}#
-               #{esew 1621}#
-               #{mod 1622}#
+             (#{scan 21811}#
+               #{body 21804}#
+               #{r 21805}#
+               #{w 21806}#
+               #{s 21807}#
+               #{m 21808}#
+               #{esew 21809}#
+               #{mod 21810}#
                '()))
-           (lambda (#{exps 1765}#)
-             (if (null? #{exps 1765}#)
-               (#{build-void 271}# #{s 1619}#)
-               (#{build-sequence 303}#
-                 #{s 1619}#
+           (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 1770}#
-                      (lambda (#{in 1771}# #{out 1772}#)
-                        (if (null? #{in 1771}#)
-                          #{out 1772}#
-                          (let ((#{e 1774}# (car #{in 1771}#)))
-                            (#{lp 1770}#
-                              (cdr #{in 1771}#)
-                              (cons (if (procedure? #{e 1774}#)
-                                      (#{e 1774}#)
-                                      #{e 1774}#)
-                                    #{out 1772}#)))))))
-                   (#{lp 1770}# #{exps 1765}# '())))))))))
-   (#{chi-install-global 435}#
-     (lambda (#{name 1775}# #{e 1776}#)
-       (#{build-global-definition 289}#
-         #f
-         #{name 1775}#
-         (#{build-primcall 297}#
-           #f
-           'make-syntax-transformer
-           (list (#{build-data 301}# #f #{name 1775}#)
-                 (#{build-data 301}# #f 'macro)
-                 #{e 1776}#)))))
-   (#{chi-when-list 437}#
-     (lambda (#{e 1783}# #{when-list 1784}# #{w 1785}#)
+                   ((#{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}#
+                       (list (make-struct/no-tail
+                               (vector-ref %expanded-vtables 1)
+                               #f
+                               #{name 24498}#)
+                             (make-struct/no-tail
+                               (vector-ref %expanded-vtables 1)
+                               #f
+                               'macro)
+                             #{e 24499}#)))
+                 (make-struct/no-tail
+                   (vector-ref %expanded-vtables 12)
+                   #f
+                   'make-syntax-transformer
+                   #{args 24516}#))))
+         (begin
+           (if (if (struct? #{exp 24505}#)
+                 (eq? (struct-vtable #{exp 24505}#)
+                      (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}#)))))
+           (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}#)
        (letrec*
-         ((#{f 1792}#
-            (lambda (#{when-list 1793}# #{situations 1794}#)
-              (if (null? #{when-list 1793}#)
-                #{situations 1794}#
-                (#{f 1792}#
-                  (cdr #{when-list 1793}#)
-                  (cons (let ((#{x 1796}#
-                                (syntax->datum (car #{when-list 1793}#))))
-                          (if (memq #{x 1796}# '(compile load eval expand))
-                            #{x 1796}#
+         ((#{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)
+                                #t
+                                (if (eq? #{x 24766}# 'load)
+                                  #t
+                                  (if (eq? #{x 24766}# 'eval)
+                                    #t
+                                    (eq? #{x 24766}# 'expand))))
+                            #{x 24766}#
                             (syntax-violation
                               'eval-when
                               "invalid situation"
-                              #{e 1783}#
-                              (#{wrap 427}#
-                                (car #{when-list 1793}#)
-                                #{w 1785}#
-                                #f))))
-                        #{situations 1794}#))))))
-         (#{f 1792}# #{when-list 1784}# '()))))
-   (#{syntax-type 439}#
-     (lambda (#{e 1797}#
-              #{r 1798}#
-              #{w 1799}#
-              #{s 1800}#
-              #{rib 1801}#
-              #{mod 1802}#
-              #{for-car? 1803}#)
-       (if (symbol? #{e 1797}#)
-         (let ((#{n 1815}#
-                 (#{id-var-name 415}# #{e 1797}# #{w 1799}#)))
-           (let ((#{b 1817}#
-                   (#{lookup 347}#
-                     #{n 1815}#
-                     #{r 1798}#
-                     #{mod 1802}#)))
-             (let ((#{type 1819}# (car #{b 1817}#)))
-               (if (memv #{type 1819}# '(lexical))
+                              #{e 24561}#
+                              (let ((#{x 24785}# (car #{when-list 24764}#)))
+                                (if (if (null? (car #{w 24563}#))
+                                      (null? (cdr #{w 24563}#))
+                                      #f)
+                                  #{x 24785}#
+                                  (if (if (vector? #{x 24785}#)
+                                        (if (= (vector-length #{x 24785}#) 4)
+                                          (eq? (vector-ref #{x 24785}# 0)
+                                               'syntax-object)
+                                          #f)
+                                        #f)
+                                    (let ((#{expression 24803}#
+                                            (vector-ref #{x 24785}# 1))
+                                          (#{wrap 24804}#
+                                            (let ((#{w2 24812}#
+                                                    (vector-ref
+                                                      #{x 24785}#
+                                                      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}#
+                                                              (append
+                                                                #{s1 24814}#
+                                                                #{m2 
24829}#)))))
+                                                  (cons (let ((#{m2 24837}#
+                                                                (car #{w2 
24812}#)))
+                                                          (if (null? #{m2 
24837}#)
+                                                            #{m1 24813}#
+                                                            (append
+                                                              #{m1 24813}#
+                                                              #{m2 24837}#)))
+                                                        (let ((#{m2 24845}#
+                                                                (cdr #{w2 
24812}#)))
+                                                          (if (null? #{m2 
24845}#)
+                                                            #{s1 24814}#
+                                                            (append
+                                                              #{s1 24814}#
+                                                              #{m2 
24845}#))))))))
+                                          (#{module 24805}#
+                                            (vector-ref #{x 24785}# 3)))
+                                      (vector
+                                        'syntax-object
+                                        #{expression 24803}#
+                                        #{wrap 24804}#
+                                        #{module 24805}#))
+                                    (if (null? #{x 24785}#)
+                                      #{x 24785}#
+                                      (vector
+                                        'syntax-object
+                                        #{x 24785}#
+                                        #{w 24563}#
+                                        #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}#
+                                 (begin
+                                   (if (if (not #{mod 24865}#)
+                                         (current-module)
+                                         #f)
+                                     (warn "module system is booted, we should 
have a module"
+                                           #{n 24867}#))
+                                   (let ((#{v 25485}#
+                                           (module-variable
+                                             (if #{mod 24865}#
+                                               (resolve-module
+                                                 (cdr #{mod 24865}#))
+                                               (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}#)
+                                                     (macro-binding
+                                                       #{val 25494}#))
+                                               #f)
+                                             #f))
+                                         #f)
+                                       #f)))))
+                           (if #{t 25448}# #{t 25448}# '(global)))
+                         '(displaced-lexical))))))
+             (let ((#{type 24869}# (car #{b 24868}#)))
+               (if (let ((#{t 24903}# #{type 24869}#))
+                     (eqv? #{t 24903}# 'lexical))
                  (values
-                   #{type 1819}#
-                   (cdr #{b 1817}#)
-                   #{e 1797}#
-                   #{w 1799}#
-                   #{s 1800}#
-                   #{mod 1802}#)
-                 (if (memv #{type 1819}# '(global))
+                   #{type 24869}#
+                   (cdr #{b 24868}#)
+                   #{e 24860}#
+                   #{w 24862}#
+                   #{s 24863}#
+                   #{mod 24865}#)
+                 (if (let ((#{t 25060}# #{type 24869}#))
+                       (eqv? #{t 25060}# 'global))
                    (values
-                     #{type 1819}#
-                     #{n 1815}#
-                     #{e 1797}#
-                     #{w 1799}#
-                     #{s 1800}#
-                     #{mod 1802}#)
-                   (if (memv #{type 1819}# '(macro))
-                     (if #{for-car? 1803}#
+                     #{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}#
                        (values
-                         #{type 1819}#
-                         (cdr #{b 1817}#)
-                         #{e 1797}#
-                         #{w 1799}#
-                         #{s 1800}#
-                         #{mod 1802}#)
-                       (#{syntax-type 439}#
-                         (#{chi-macro 447}#
-                           (cdr #{b 1817}#)
-                           #{e 1797}#
-                           #{r 1798}#
-                           #{w 1799}#
-                           #{s 1800}#
-                           #{rib 1801}#
-                           #{mod 1802}#)
-                         #{r 1798}#
+                         #{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}#
                          '(())
-                         #{s 1800}#
-                         #{rib 1801}#
-                         #{mod 1802}#
+                         #{s 24863}#
+                         #{rib 24864}#
+                         #{mod 24865}#
                          #f))
                      (values
-                       #{type 1819}#
-                       (cdr #{b 1817}#)
-                       #{e 1797}#
-                       #{w 1799}#
-                       #{s 1800}#
-                       #{mod 1802}#)))))))
-         (if (pair? #{e 1797}#)
-           (let ((#{first 1833}# (car #{e 1797}#)))
+                       #{type 24869}#
+                       (cdr #{b 24868}#)
+                       #{e 24860}#
+                       #{w 24862}#
+                       #{s 24863}#
+                       #{mod 24865}#)))))))
+         (if (pair? #{e 24860}#)
+           (let ((#{first 25505}# (car #{e 24860}#)))
              (call-with-values
                (lambda ()
-                 (#{syntax-type 439}#
-                   #{first 1833}#
-                   #{r 1798}#
-                   #{w 1799}#
-                   #{s 1800}#
-                   #{rib 1801}#
-                   #{mod 1802}#
+                 (#{syntax-type 4374}#
+                   #{first 25505}#
+                   #{r 24861}#
+                   #{w 24862}#
+                   #{s 24863}#
+                   #{rib 24864}#
+                   #{mod 24865}#
                    #t))
-               (lambda (#{ftype 1834}#
-                        #{fval 1835}#
-                        #{fe 1836}#
-                        #{fw 1837}#
-                        #{fs 1838}#
-                        #{fmod 1839}#)
-                 (if (memv #{ftype 1834}# '(lexical))
+               (lambda (#{ftype 25507}#
+                        #{fval 25508}#
+                        #{fe 25509}#
+                        #{fw 25510}#
+                        #{fs 25511}#
+                        #{fmod 25512}#)
+                 (if (eqv? #{ftype 25507}# 'lexical)
                    (values
                      'lexical-call
-                     #{fval 1835}#
-                     #{e 1797}#
-                     #{w 1799}#
-                     #{s 1800}#
-                     #{mod 1802}#)
-                   (if (memv #{ftype 1834}# '(global))
+                     #{fval 25508}#
+                     #{e 24860}#
+                     #{w 24862}#
+                     #{s 24863}#
+                     #{mod 24865}#)
+                   (if (eqv? #{ftype 25507}# 'global)
                      (values
                        'global-call
-                       (#{make-syntax-object 314}#
-                         #{fval 1835}#
-                         #{w 1799}#
-                         #{fmod 1839}#)
-                       #{e 1797}#
-                       #{w 1799}#
-                       #{s 1800}#
-                       #{mod 1802}#)
-                     (if (memv #{ftype 1834}# '(macro))
-                       (#{syntax-type 439}#
-                         (#{chi-macro 447}#
-                           #{fval 1835}#
-                           #{e 1797}#
-                           #{r 1798}#
-                           #{w 1799}#
-                           #{s 1800}#
-                           #{rib 1801}#
-                           #{mod 1802}#)
-                         #{r 1798}#
+                       (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}#
                          '(())
-                         #{s 1800}#
-                         #{rib 1801}#
-                         #{mod 1802}#
-                         #{for-car? 1803}#)
-                       (if (memv #{ftype 1834}# '(module-ref))
+                         #{s 24863}#
+                         #{rib 24864}#
+                         #{mod 24865}#
+                         #{for-car? 24866}#)
+                       (if (eqv? #{ftype 25507}# 'module-ref)
                          (call-with-values
                            (lambda ()
-                             (#{fval 1835}# #{e 1797}# #{r 1798}# #{w 1799}#))
-                           (lambda (#{e 1851}#
-                                    #{r 1852}#
-                                    #{w 1853}#
-                                    #{s 1854}#
-                                    #{mod 1855}#)
-                             (#{syntax-type 439}#
-                               #{e 1851}#
-                               #{r 1852}#
-                               #{w 1853}#
-                               #{s 1854}#
-                               #{rib 1801}#
-                               #{mod 1855}#
-                               #{for-car? 1803}#)))
-                         (if (memv #{ftype 1834}# '(core))
+                             (#{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)
                            (values
                              'core-form
-                             #{fval 1835}#
-                             #{e 1797}#
-                             #{w 1799}#
-                             #{s 1800}#
-                             #{mod 1802}#)
-                           (if (memv #{ftype 1834}# '(local-syntax))
+                             #{fval 25508}#
+                             #{e 24860}#
+                             #{w 24862}#
+                             #{s 24863}#
+                             #{mod 24865}#)
+                           (if (eqv? #{ftype 25507}# 'local-syntax)
                              (values
                                'local-syntax-form
-                               #{fval 1835}#
-                               #{e 1797}#
-                               #{w 1799}#
-                               #{s 1800}#
-                               #{mod 1802}#)
-                             (if (memv #{ftype 1834}# '(begin))
+                               #{fval 25508}#
+                               #{e 24860}#
+                               #{w 24862}#
+                               #{s 24863}#
+                               #{mod 24865}#)
+                             (if (eqv? #{ftype 25507}# 'begin)
                                (values
                                  'begin-form
                                  #f
-                                 #{e 1797}#
-                                 #{w 1799}#
-                                 #{s 1800}#
-                                 #{mod 1802}#)
-                               (if (memv #{ftype 1834}# '(eval-when))
+                                 #{e 24860}#
+                                 #{w 24862}#
+                                 #{s 24863}#
+                                 #{mod 24865}#)
+                               (if (eqv? #{ftype 25507}# 'eval-when)
                                  (values
                                    'eval-when-form
                                    #f
-                                   #{e 1797}#
-                                   #{w 1799}#
-                                   #{s 1800}#
-                                   #{mod 1802}#)
-                                 (if (memv #{ftype 1834}# '(define))
-                                   (let ((#{tmp 1867}#
+                                   #{e 24860}#
+                                   #{w 24862}#
+                                   #{s 24863}#
+                                   #{mod 24865}#)
+                                 (if (eqv? #{ftype 25507}# 'define)
+                                   (let ((#{tmp 25554}#
                                            ($sc-dispatch
-                                             #{e 1797}#
+                                             #{e 24860}#
                                              '(_ any any))))
-                                     (if (if #{tmp 1867}#
+                                     (if (if #{tmp 25554}#
                                            (@apply
-                                             (lambda (#{name 1870}#
-                                                      #{val 1871}#)
-                                               (#{id? 353}# #{name 1870}#))
-                                             #{tmp 1867}#)
+                                             (lambda (#{name 25558}#
+                                                      #{val 25559}#)
+                                               (if (symbol? #{name 25558}#)
+                                                 #t
+                                                 (if (if (vector?
+                                                           #{name 25558}#)
+                                                       (if (= (vector-length
+                                                                #{name 25558}#)
+                                                              4)
+                                                         (eq? (vector-ref
+                                                                #{name 25558}#
+                                                                0)
+                                                              'syntax-object)
+                                                         #f)
+                                                       #f)
+                                                   (symbol?
+                                                     (vector-ref
+                                                       #{name 25558}#
+                                                       1))
+                                                   #f)))
+                                             #{tmp 25554}#)
                                            #f)
                                        (@apply
-                                         (lambda (#{name 1874}# #{val 1875}#)
+                                         (lambda (#{name 25586}# #{val 25587}#)
                                            (values
                                              'define-form
-                                             #{name 1874}#
-                                             #{val 1875}#
-                                             #{w 1799}#
-                                             #{s 1800}#
-                                             #{mod 1802}#))
-                                         #{tmp 1867}#)
-                                       (let ((#{tmp 1876}#
+                                             #{name 25586}#
+                                             #{val 25587}#
+                                             #{w 24862}#
+                                             #{s 24863}#
+                                             #{mod 24865}#))
+                                         #{tmp 25554}#)
+                                       (let ((#{tmp 25588}#
                                                ($sc-dispatch
-                                                 #{e 1797}#
+                                                 #{e 24860}#
                                                  '(_ (any . any)
                                                      any
                                                      .
                                                      each-any))))
-                                         (if (if #{tmp 1876}#
+                                         (if (if #{tmp 25588}#
                                                (@apply
-                                                 (lambda (#{name 1881}#
-                                                          #{args 1882}#
-                                                          #{e1 1883}#
-                                                          #{e2 1884}#)
-                                                   (if (#{id? 353}#
-                                                         #{name 1881}#)
-                                                     (#{valid-bound-ids? 421}#
-                                                       (#{lambda-var-list 471}#
-                                                         #{args 1882}#))
+                                                 (lambda (#{name 25592}#
+                                                          #{args 25593}#
+                                                          #{e1 25594}#
+                                                          #{e2 25595}#)
+                                                   (if (if (symbol?
+                                                             #{name 25592}#)
+                                                         #t
+                                                         (if (if (vector?
+                                                                   #{name 
25592}#)
+                                                               (if (= 
(vector-length
+                                                                        #{name 
25592}#)
+                                                                      4)
+                                                                 (eq? 
(vector-ref
+                                                                        #{name 
25592}#
+                                                                        0)
+                                                                      
'syntax-object)
+                                                                 #f)
+                                                               #f)
+                                                           (symbol?
+                                                             (vector-ref
+                                                               #{name 25592}#
+                                                               1))
+                                                           #f))
+                                                     (#{valid-bound-ids? 4365}#
+                                                       (#{lambda-var-list 
4390}#
+                                                         #{args 25593}#))
                                                      #f))
-                                                 #{tmp 1876}#)
+                                                 #{tmp 25588}#)
                                                #f)
                                            (@apply
-                                             (lambda (#{name 1891}#
-                                                      #{args 1892}#
-                                                      #{e1 1893}#
-                                                      #{e2 1894}#)
+                                             (lambda (#{name 26071}#
+                                                      #{args 26072}#
+                                                      #{e1 26073}#
+                                                      #{e2 26074}#)
                                                (values
                                                  'define-form
-                                                 (#{wrap 427}#
-                                                   #{name 1891}#
-                                                   #{w 1799}#
-                                                   #{mod 1802}#)
-                                                 (#{decorate-source 267}#
-                                                   (cons '#(syntax-object
-                                                            lambda
-                                                            ((top)
-                                                             #(ribcage
-                                                               #(name
-                                                                 args
-                                                                 e1
-                                                                 e2)
-                                                               #((top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top))
-                                                               #("i1887"
-                                                                 "i1888"
-                                                                 "i1889"
-                                                                 "i1890"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(ftype
-                                                                 fval
-                                                                 fe
-                                                                 fw
-                                                                 fs
-                                                                 fmod)
-                                                               #((top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top))
-                                                               #("i1840"
-                                                                 "i1841"
-                                                                 "i1842"
-                                                                 "i1843"
-                                                                 "i1844"
-                                                                 "i1845"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(first)
-                                                               #((top))
-                                                               #("i1832"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(e
-                                                                 r
-                                                                 w
-                                                                 s
-                                                                 rib
-                                                                 mod
-                                                                 for-car?)
-                                                               #((top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top))
-                                                               #("i1804"
-                                                                 "i1805"
-                                                                 "i1806"
-                                                                 "i1807"
-                                                                 "i1808"
-                                                                 "i1809"
-                                                                 "i1810"))
-                                                             #(ribcage
-                                                               (lambda-var-list
-                                                                 gen-var
-                                                                 strip
-                                                                 
chi-lambda-case
-                                                                 
lambda*-formals
-                                                                 
chi-simple-lambda
-                                                                 lambda-formals
-                                                                 ellipsis?
-                                                                 chi-void
-                                                                 
eval-local-transformer
-                                                                 
chi-local-syntax
-                                                                 chi-body
-                                                                 chi-macro
-                                                                 chi-call
-                                                                 chi-expr
-                                                                 chi
-                                                                 syntax-type
-                                                                 chi-when-list
-                                                                 
chi-install-global
-                                                                 
chi-top-sequence
-                                                                 chi-sequence
-                                                                 source-wrap
-                                                                 wrap
-                                                                 
bound-id-member?
-                                                                 
distinct-bound-ids?
-                                                                 
valid-bound-ids?
-                                                                 bound-id=?
-                                                                 free-id=?
-                                                                 id-var-name
-                                                                 same-marks?
-                                                                 join-marks
-                                                                 join-wraps
-                                                                 smart-append
-                                                                 
make-binding-wrap
-                                                                 
extend-ribcage!
-                                                                 
make-empty-ribcage
-                                                                 new-mark
-                                                                 anti-mark
-                                                                 the-anti-mark
-                                                                 top-marked?
-                                                                 top-wrap
-                                                                 empty-wrap
-                                                                 
set-ribcage-labels!
-                                                                 
set-ribcage-marks!
-                                                                 
set-ribcage-symnames!
-                                                                 ribcage-labels
-                                                                 ribcage-marks
-                                                                 
ribcage-symnames
-                                                                 ribcage?
-                                                                 make-ribcage
-                                                                 gen-labels
-                                                                 gen-label
-                                                                 make-rename
-                                                                 rename-marks
-                                                                 rename-new
-                                                                 rename-old
-                                                                 subst-rename?
-                                                                 wrap-subst
-                                                                 wrap-marks
-                                                                 make-wrap
-                                                                 
id-sym-name&marks
-                                                                 id-sym-name
-                                                                 id?
-                                                                 nonsymbol-id?
-                                                                 global-extend
-                                                                 lookup
-                                                                 
macros-only-env
-                                                                 extend-var-env
-                                                                 extend-env
-                                                                 null-env
-                                                                 binding-value
-                                                                 binding-type
-                                                                 make-binding
-                                                                 arg-check
-                                                                 
source-annotation
-                                                                 no-source
-                                                                 
set-syntax-object-module!
-                                                                 
set-syntax-object-wrap!
-                                                                 
set-syntax-object-expression!
-                                                                 
syntax-object-module
-                                                                 
syntax-object-wrap
-                                                                 
syntax-object-expression
-                                                                 syntax-object?
-                                                                 
make-syntax-object
-                                                                 
build-lexical-var
-                                                                 build-letrec
-                                                                 
build-named-let
-                                                                 build-let
-                                                                 build-sequence
-                                                                 build-data
-                                                                 build-primref
-                                                                 build-primcall
-                                                                 
build-lambda-case
-                                                                 
build-case-lambda
-                                                                 
build-simple-lambda
-                                                                 
build-global-definition
-                                                                 
build-global-assignment
-                                                                 
build-global-reference
-                                                                 
analyze-variable
-                                                                 
build-lexical-assignment
-                                                                 
build-lexical-reference
-                                                                 build-dynlet
-                                                                 
build-conditional
-                                                                 build-call
-                                                                 build-void
-                                                                 
maybe-name-value!
-                                                                 
decorate-source
-                                                                 
get-global-definition-hook
-                                                                 
put-global-definition-hook
-                                                                 gensym-hook
-                                                                 
local-eval-hook
-                                                                 
top-level-eval-hook
-                                                                 fx<
-                                                                 fx=
-                                                                 fx-
-                                                                 fx+
-                                                                 
set-lambda-meta!
-                                                                 lambda-meta
-                                                                 lambda?
-                                                                 make-dynlet
-                                                                 make-letrec
-                                                                 make-let
-                                                                 
make-lambda-case
-                                                                 make-lambda
-                                                                 make-seq
-                                                                 make-primcall
-                                                                 make-call
-                                                                 
make-conditional
-                                                                 
make-toplevel-define
-                                                                 
make-toplevel-set
-                                                                 
make-toplevel-ref
-                                                                 
make-module-set
-                                                                 
make-module-ref
-                                                                 
make-lexical-set
-                                                                 
make-lexical-ref
-                                                                 
make-primitive-ref
-                                                                 make-const
-                                                                 make-void)
-                                                               ((top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top)
-                                                                (top))
-                                                               ("i470"
-                                                                "i468"
-                                                                "i466"
-                                                                "i464"
-                                                                "i462"
-                                                                "i460"
-                                                                "i458"
-                                                                "i456"
-                                                                "i454"
-                                                                "i452"
-                                                                "i450"
-                                                                "i448"
-                                                                "i446"
-                                                                "i444"
-                                                                "i442"
-                                                                "i440"
-                                                                "i438"
-                                                                "i436"
-                                                                "i434"
-                                                                "i432"
-                                                                "i430"
-                                                                "i428"
-                                                                "i426"
-                                                                "i424"
-                                                                "i422"
-                                                                "i420"
-                                                                "i418"
-                                                                "i416"
-                                                                "i414"
-                                                                "i412"
-                                                                "i410"
-                                                                "i408"
-                                                                "i406"
-                                                                "i404"
-                                                                "i402"
-                                                                "i401"
-                                                                "i399"
-                                                                "i396"
-                                                                "i395"
-                                                                "i394"
-                                                                "i392"
-                                                                "i391"
-                                                                "i389"
-                                                                "i387"
-                                                                "i385"
-                                                                "i383"
-                                                                "i381"
-                                                                "i379"
-                                                                "i377"
-                                                                "i375"
-                                                                "i372"
-                                                                "i370"
-                                                                "i369"
-                                                                "i367"
-                                                                "i365"
-                                                                "i363"
-                                                                "i361"
-                                                                "i360"
-                                                                "i359"
-                                                                "i358"
-                                                                "i356"
-                                                                "i355"
-                                                                "i352"
-                                                                "i350"
-                                                                "i348"
-                                                                "i346"
-                                                                "i344"
-                                                                "i342"
-                                                                "i340"
-                                                                "i339"
-                                                                "i338"
-                                                                "i336"
-                                                                "i334"
-                                                                "i333"
-                                                                "i330"
-                                                                "i329"
-                                                                "i327"
-                                                                "i325"
-                                                                "i323"
-                                                                "i321"
-                                                                "i319"
-                                                                "i317"
-                                                                "i315"
-                                                                "i313"
-                                                                "i311"
-                                                                "i308"
-                                                                "i306"
-                                                                "i304"
-                                                                "i302"
-                                                                "i300"
-                                                                "i298"
-                                                                "i296"
-                                                                "i294"
-                                                                "i292"
-                                                                "i290"
-                                                                "i288"
-                                                                "i286"
-                                                                "i284"
-                                                                "i282"
-                                                                "i280"
-                                                                "i278"
-                                                                "i276"
-                                                                "i274"
-                                                                "i272"
-                                                                "i270"
-                                                                "i268"
-                                                                "i266"
-                                                                "i264"
-                                                                "i262"
-                                                                "i261"
-                                                                "i258"
-                                                                "i256"
-                                                                "i255"
-                                                                "i254"
-                                                                "i253"
-                                                                "i252"
-                                                                "i250"
-                                                                "i248"
-                                                                "i246"
-                                                                "i243"
-                                                                "i241"
-                                                                "i239"
-                                                                "i237"
-                                                                "i235"
-                                                                "i233"
-                                                                "i231"
-                                                                "i229"
-                                                                "i227"
-                                                                "i225"
-                                                                "i223"
-                                                                "i221"
-                                                                "i219"
-                                                                "i217"
-                                                                "i215"
-                                                                "i213"
-                                                                "i211"
-                                                                "i209"
-                                                                "i207"))
-                                                             #(ribcage
-                                                               
(define-structure
-                                                                 
define-expansion-accessors
-                                                                 
define-expansion-constructors)
-                                                               ((top)
-                                                                (top)
-                                                                (top))
-                                                               ("i45"
-                                                                "i44"
-                                                                "i43")))
-                                                            (hygiene guile))
-                                                         (#{wrap 427}#
-                                                           (cons #{args 1892}#
-                                                                 (cons #{e1 
1893}#
-                                                                       #{e2 
1894}#))
-                                                           #{w 1799}#
-                                                           #{mod 1802}#))
-                                                   #{s 1800}#)
+                                                 (if (if (null? (car #{w 
24862}#))
+                                                       (null? (cdr #{w 
24862}#))
+                                                       #f)
+                                                   #{name 26071}#
+                                                   (if (if (vector?
+                                                             #{name 26071}#)
+                                                         (if (= (vector-length
+                                                                  #{name 
26071}#)
+                                                                4)
+                                                           (eq? (vector-ref
+                                                                  #{name 
26071}#
+                                                                  0)
+                                                                'syntax-object)
+                                                           #f)
+                                                         #f)
+                                                     (let ((#{expression 
26104}#
+                                                             (vector-ref
+                                                               #{name 26071}#
+                                                               1))
+                                                           (#{wrap 26105}#
+                                                             (let ((#{w2 
26115}#
+                                                                     
(vector-ref
+                                                                       #{name 
26071}#
+                                                                       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}#
+                                                                               
(append
+                                                                               
  #{s1 26117}#
+                                                                               
  #{m2 26134}#)))))
+                                                                   (cons (let 
((#{m2 26142}#
+                                                                               
  (car #{w2 26115}#)))
+                                                                           (if 
(null? #{m2 26142}#)
+                                                                             
#{m1 26116}#
+                                                                             
(append
+                                                                               
#{m1 26116}#
+                                                                               
#{m2 26142}#)))
+                                                                         (let 
((#{m2 26150}#
+                                                                               
  (cdr #{w2 26115}#)))
+                                                                           (if 
(null? #{m2 26150}#)
+                                                                             
#{s1 26117}#
+                                                                             
(append
+                                                                               
#{s1 26117}#
+                                                                               
#{m2 26150}#))))))))
+                                                           (#{module 26106}#
+                                                             (vector-ref
+                                                               #{name 26071}#
+                                                               3)))
+                                                       (vector
+                                                         'syntax-object
+                                                         #{expression 26104}#
+                                                         #{wrap 26105}#
+                                                         #{module 26106}#))
+                                                     (if (null? #{name 26071}#)
+                                                       #{name 26071}#
+                                                       (vector
+                                                         'syntax-object
+                                                         #{name 26071}#
+                                                         #{w 24862}#
+                                                         #{mod 24865}#))))
+                                                 (let ((#{e 26176}#
+                                                         (cons '#(syntax-object
+                                                                  lambda
+                                                                  ((top)
+                                                                   #(ribcage
+                                                                     #(name
+                                                                       args
+                                                                       e1
+                                                                       e2)
+                                                                     #((top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top))
+                                                                     #("i1888"
+                                                                       "i1889"
+                                                                       "i1890"
+                                                                       
"i1891"))
+                                                                   #(ribcage
+                                                                     ()
+                                                                     ()
+                                                                     ())
+                                                                   #(ribcage
+                                                                     ()
+                                                                     ()
+                                                                     ())
+                                                                   #(ribcage
+                                                                     #(ftype
+                                                                       fval
+                                                                       fe
+                                                                       fw
+                                                                       fs
+                                                                       fmod)
+                                                                     #((top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top))
+                                                                     #("i1841"
+                                                                       "i1842"
+                                                                       "i1843"
+                                                                       "i1844"
+                                                                       "i1845"
+                                                                       
"i1846"))
+                                                                   #(ribcage
+                                                                     ()
+                                                                     ()
+                                                                     ())
+                                                                   #(ribcage
+                                                                     #(first)
+                                                                     #((top))
+                                                                     
#("i1833"))
+                                                                   #(ribcage
+                                                                     ()
+                                                                     ()
+                                                                     ())
+                                                                   #(ribcage
+                                                                     ()
+                                                                     ()
+                                                                     ())
+                                                                   #(ribcage
+                                                                     ()
+                                                                     ()
+                                                                     ())
+                                                                   #(ribcage
+                                                                     #(e
+                                                                       r
+                                                                       w
+                                                                       s
+                                                                       rib
+                                                                       mod
+                                                                       
for-car?)
+                                                                     #((top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top)
+                                                                       (top))
+                                                                     #("i1805"
+                                                                       "i1806"
+                                                                       "i1807"
+                                                                       "i1808"
+                                                                       "i1809"
+                                                                       "i1810"
+                                                                       
"i1811"))
+                                                                   #(ribcage
+                                                                     
(lambda-var-list
+                                                                       gen-var
+                                                                       strip
+                                                                       
chi-lambda-case
+                                                                       
lambda*-formals
+                                                                       
chi-simple-lambda
+                                                                       
lambda-formals
+                                                                       
ellipsis?
+                                                                       chi-void
+                                                                       
eval-local-transformer
+                                                                       
chi-local-syntax
+                                                                       chi-body
+                                                                       
chi-macro
+                                                                       chi-call
+                                                                       chi-expr
+                                                                       chi
+                                                                       
syntax-type
+                                                                       
chi-when-list
+                                                                       
chi-install-global
+                                                                       
chi-top-sequence
+                                                                       
chi-sequence
+                                                                       
source-wrap
+                                                                       wrap
+                                                                       
bound-id-member?
+                                                                       
distinct-bound-ids?
+                                                                       
valid-bound-ids?
+                                                                       
bound-id=?
+                                                                       
free-id=?
+                                                                       
id-var-name
+                                                                       
same-marks?
+                                                                       
join-marks
+                                                                       
join-wraps
+                                                                       
smart-append
+                                                                       
make-binding-wrap
+                                                                       
extend-ribcage!
+                                                                       
make-empty-ribcage
+                                                                       new-mark
+                                                                       
anti-mark
+                                                                       
the-anti-mark
+                                                                       
top-marked?
+                                                                       top-wrap
+                                                                       
empty-wrap
+                                                                       
set-ribcage-labels!
+                                                                       
set-ribcage-marks!
+                                                                       
set-ribcage-symnames!
+                                                                       
ribcage-labels
+                                                                       
ribcage-marks
+                                                                       
ribcage-symnames
+                                                                       ribcage?
+                                                                       
make-ribcage
+                                                                       
gen-labels
+                                                                       
gen-label
+                                                                       
make-rename
+                                                                       
rename-marks
+                                                                       
rename-new
+                                                                       
rename-old
+                                                                       
subst-rename?
+                                                                       
wrap-subst
+                                                                       
wrap-marks
+                                                                       
make-wrap
+                                                                       
id-sym-name&marks
+                                                                       
id-sym-name
+                                                                       id?
+                                                                       
nonsymbol-id?
+                                                                       
global-extend
+                                                                       lookup
+                                                                       
macros-only-env
+                                                                       
extend-var-env
+                                                                       
extend-env
+                                                                       null-env
+                                                                       
binding-value
+                                                                       
binding-type
+                                                                       
make-binding
+                                                                       
arg-check
+                                                                       
source-annotation
+                                                                       
no-source
+                                                                       
set-syntax-object-module!
+                                                                       
set-syntax-object-wrap!
+                                                                       
set-syntax-object-expression!
+                                                                       
syntax-object-module
+                                                                       
syntax-object-wrap
+                                                                       
syntax-object-expression
+                                                                       
syntax-object?
+                                                                       
make-syntax-object
+                                                                       
build-lexical-var
+                                                                       
build-letrec
+                                                                       
build-named-let
+                                                                       
build-let
+                                                                       
build-sequence
+                                                                       
build-data
+                                                                       
build-primref
+                                                                       
build-primcall
+                                                                       
build-lambda-case
+                                                                       
build-case-lambda
+                                                                       
build-simple-lambda
+                                                                       
build-global-definition
+                                                                       
build-global-assignment
+                                                                       
build-global-reference
+                                                                       
analyze-variable
+                                                                       
build-lexical-assignment
+                                                                       
build-lexical-reference
+                                                                       
build-dynlet
+                                                                       
build-conditional
+                                                                       
build-call
+                                                                       
build-void
+                                                                       
maybe-name-value!
+                                                                       
decorate-source
+                                                                       
get-global-definition-hook
+                                                                       
put-global-definition-hook
+                                                                       
gensym-hook
+                                                                       
local-eval-hook
+                                                                       
top-level-eval-hook
+                                                                       fx<
+                                                                       fx=
+                                                                       fx-
+                                                                       fx+
+                                                                       
set-lambda-meta!
+                                                                       
lambda-meta
+                                                                       lambda?
+                                                                       
make-dynlet
+                                                                       
make-letrec
+                                                                       make-let
+                                                                       
make-lambda-case
+                                                                       
make-lambda
+                                                                       make-seq
+                                                                       
make-primcall
+                                                                       
make-call
+                                                                       
make-conditional
+                                                                       
make-toplevel-define
+                                                                       
make-toplevel-set
+                                                                       
make-toplevel-ref
+                                                                       
make-module-set
+                                                                       
make-module-ref
+                                                                       
make-lexical-set
+                                                                       
make-lexical-ref
+                                                                       
make-primitive-ref
+                                                                       
make-const
+                                                                       
make-void)
+                                                                     ((top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top)
+                                                                      (top))
+                                                                     ("i471"
+                                                                      "i469"
+                                                                      "i467"
+                                                                      "i465"
+                                                                      "i463"
+                                                                      "i461"
+                                                                      "i459"
+                                                                      "i457"
+                                                                      "i455"
+                                                                      "i453"
+                                                                      "i451"
+                                                                      "i449"
+                                                                      "i447"
+                                                                      "i445"
+                                                                      "i443"
+                                                                      "i441"
+                                                                      "i439"
+                                                                      "i437"
+                                                                      "i435"
+                                                                      "i433"
+                                                                      "i431"
+                                                                      "i429"
+                                                                      "i427"
+                                                                      "i425"
+                                                                      "i423"
+                                                                      "i421"
+                                                                      "i419"
+                                                                      "i417"
+                                                                      "i415"
+                                                                      "i413"
+                                                                      "i411"
+                                                                      "i409"
+                                                                      "i407"
+                                                                      "i405"
+                                                                      "i403"
+                                                                      "i402"
+                                                                      "i400"
+                                                                      "i397"
+                                                                      "i396"
+                                                                      "i395"
+                                                                      "i393"
+                                                                      "i392"
+                                                                      "i390"
+                                                                      "i388"
+                                                                      "i386"
+                                                                      "i384"
+                                                                      "i382"
+                                                                      "i380"
+                                                                      "i378"
+                                                                      "i376"
+                                                                      "i373"
+                                                                      "i371"
+                                                                      "i370"
+                                                                      "i368"
+                                                                      "i366"
+                                                                      "i364"
+                                                                      "i362"
+                                                                      "i361"
+                                                                      "i360"
+                                                                      "i359"
+                                                                      "i357"
+                                                                      "i356"
+                                                                      "i353"
+                                                                      "i351"
+                                                                      "i349"
+                                                                      "i347"
+                                                                      "i345"
+                                                                      "i343"
+                                                                      "i341"
+                                                                      "i340"
+                                                                      "i339"
+                                                                      "i337"
+                                                                      "i335"
+                                                                      "i334"
+                                                                      "i331"
+                                                                      "i330"
+                                                                      "i328"
+                                                                      "i326"
+                                                                      "i324"
+                                                                      "i322"
+                                                                      "i320"
+                                                                      "i318"
+                                                                      "i316"
+                                                                      "i314"
+                                                                      "i312"
+                                                                      "i309"
+                                                                      "i307"
+                                                                      "i305"
+                                                                      "i303"
+                                                                      "i301"
+                                                                      "i299"
+                                                                      "i297"
+                                                                      "i295"
+                                                                      "i293"
+                                                                      "i291"
+                                                                      "i289"
+                                                                      "i287"
+                                                                      "i285"
+                                                                      "i283"
+                                                                      "i281"
+                                                                      "i279"
+                                                                      "i277"
+                                                                      "i275"
+                                                                      "i273"
+                                                                      "i271"
+                                                                      "i269"
+                                                                      "i267"
+                                                                      "i265"
+                                                                      "i263"
+                                                                      "i262"
+                                                                      "i259"
+                                                                      "i257"
+                                                                      "i256"
+                                                                      "i255"
+                                                                      "i254"
+                                                                      "i253"
+                                                                      "i251"
+                                                                      "i249"
+                                                                      "i247"
+                                                                      "i244"
+                                                                      "i242"
+                                                                      "i240"
+                                                                      "i238"
+                                                                      "i236"
+                                                                      "i234"
+                                                                      "i232"
+                                                                      "i230"
+                                                                      "i228"
+                                                                      "i226"
+                                                                      "i224"
+                                                                      "i222"
+                                                                      "i220"
+                                                                      "i218"
+                                                                      "i216"
+                                                                      "i214"
+                                                                      "i212"
+                                                                      "i210"
+                                                                      "i208"))
+                                                                   #(ribcage
+                                                                     
(define-structure
+                                                                       
define-expansion-accessors
+                                                                       
define-expansion-constructors)
+                                                                     ((top)
+                                                                      (top)
+                                                                      (top))
+                                                                     ("i46"
+                                                                      "i45"
+                                                                      "i44")))
+                                                                  (hygiene
+                                                                    guile))
+                                                               (let ((#{x 
26180}#
+                                                                       (cons 
#{args 26072}#
+                                                                             
(cons #{e1 26073}#
+                                                                               
    #{e2 26074}#))))
+                                                                 (if (if 
(null? (car #{w 24862}#))
+                                                                       (null? 
(cdr #{w 24862}#))
+                                                                       #f)
+                                                                   #{x 26180}#
+                                                                   (if (if 
(vector?
+                                                                             
#{x 26180}#)
+                                                                         (if 
(= (vector-length
+                                                                               
   #{x 26180}#)
+                                                                               
 4)
+                                                                           
(eq? (vector-ref
+                                                                               
   #{x 26180}#
+                                                                               
   0)
+                                                                               
 'syntax-object)
+                                                                           #f)
+                                                                         #f)
+                                                                     (let 
((#{expression 26198}#
+                                                                             
(vector-ref
+                                                                               
#{x 26180}#
+                                                                               
1))
+                                                                           
(#{wrap 26199}#
+                                                                             
(let ((#{w2 26207}#
+                                                                               
      (vector-ref
+                                                                               
        #{x 26180}#
+                                                                               
        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}#
+                                                                               
                (append
+                                                                               
                  #{s1 26209}#
+                                                                               
                  #{m2 26224}#)))))
+                                                                               
    (cons (let ((#{m2 26232}#
+                                                                               
                  (car #{w2 26207}#)))
+                                                                               
            (if (null? #{m2 26232}#)
+                                                                               
              #{m1 26208}#
+                                                                               
              (append
+                                                                               
                #{m1 26208}#
+                                                                               
                #{m2 26232}#)))
+                                                                               
          (let ((#{m2 26240}#
+                                                                               
                  (cdr #{w2 26207}#)))
+                                                                               
            (if (null? #{m2 26240}#)
+                                                                               
              #{s1 26209}#
+                                                                               
              (append
+                                                                               
                #{s1 26209}#
+                                                                               
                #{m2 26240}#))))))))
+                                                                           
(#{module 26200}#
+                                                                             
(vector-ref
+                                                                               
#{x 26180}#
+                                                                               
3)))
+                                                                       (vector
+                                                                         
'syntax-object
+                                                                         
#{expression 26198}#
+                                                                         
#{wrap 26199}#
+                                                                         
#{module 26200}#))
+                                                                     (if 
(null? #{x 26180}#)
+                                                                       #{x 
26180}#
+                                                                       (vector
+                                                                         
'syntax-object
+                                                                         #{x 
26180}#
+                                                                         #{w 
24862}#
+                                                                         #{mod 
24865}#))))))))
+                                                   (begin
+                                                     (if (if (pair? #{e 
26176}#)
+                                                           #{s 24863}#
+                                                           #f)
+                                                       (set-source-properties!
+                                                         #{e 26176}#
+                                                         #{s 24863}#))
+                                                     #{e 26176}#))
                                                  '(())
-                                                 #{s 1800}#
-                                                 #{mod 1802}#))
-                                             #{tmp 1876}#)
-                                           (let ((#{tmp 1897}#
+                                                 #{s 24863}#
+                                                 #{mod 24865}#))
+                                             #{tmp 25588}#)
+                                           (let ((#{tmp 26259}#
                                                    ($sc-dispatch
-                                                     #{e 1797}#
+                                                     #{e 24860}#
                                                      '(_ any))))
-                                             (if (if #{tmp 1897}#
+                                             (if (if #{tmp 26259}#
                                                    (@apply
-                                                     (lambda (#{name 1899}#)
-                                                       (#{id? 353}#
-                                                         #{name 1899}#))
-                                                     #{tmp 1897}#)
+                                                     (lambda (#{name 26263}#)
+                                                       (if (symbol?
+                                                             #{name 26263}#)
+                                                         #t
+                                                         (if (if (vector?
+                                                                   #{name 
26263}#)
+                                                               (if (= 
(vector-length
+                                                                        #{name 
26263}#)
+                                                                      4)
+                                                                 (eq? 
(vector-ref
+                                                                        #{name 
26263}#
+                                                                        0)
+                                                                      
'syntax-object)
+                                                                 #f)
+                                                               #f)
+                                                           (symbol?
+                                                             (vector-ref
+                                                               #{name 26263}#
+                                                               1))
+                                                           #f)))
+                                                     #{tmp 26259}#)
                                                    #f)
                                                (@apply
-                                                 (lambda (#{name 1901}#)
+                                                 (lambda (#{name 26290}#)
                                                    (values
                                                      'define-form
-                                                     (#{wrap 427}#
-                                                       #{name 1901}#
-                                                       #{w 1799}#
-                                                       #{mod 1802}#)
+                                                     (if (if (null? (car #{w 
24862}#))
+                                                           (null? (cdr #{w 
24862}#))
+                                                           #f)
+                                                       #{name 26290}#
+                                                       (if (if (vector?
+                                                                 #{name 
26290}#)
+                                                             (if (= 
(vector-length
+                                                                      #{name 
26290}#)
+                                                                    4)
+                                                               (eq? (vector-ref
+                                                                      #{name 
26290}#
+                                                                      0)
+                                                                    
'syntax-object)
+                                                               #f)
+                                                             #f)
+                                                         (let ((#{expression 
26320}#
+                                                                 (vector-ref
+                                                                   #{name 
26290}#
+                                                                   1))
+                                                               (#{wrap 26321}#
+                                                                 (let ((#{w2 
26331}#
+                                                                         
(vector-ref
+                                                                           
#{name 26290}#
+                                                                           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}#
+                                                                               
    (append
+                                                                               
      #{s1 26333}#
+                                                                               
      #{m2 26350}#)))))
+                                                                       (cons 
(let ((#{m2 26358}#
+                                                                               
      (car #{w2 26331}#)))
+                                                                               
(if (null? #{m2 26358}#)
+                                                                               
  #{m1 26332}#
+                                                                               
  (append
+                                                                               
    #{m1 26332}#
+                                                                               
    #{m2 26358}#)))
+                                                                             
(let ((#{m2 26366}#
+                                                                               
      (cdr #{w2 26331}#)))
+                                                                               
(if (null? #{m2 26366}#)
+                                                                               
  #{s1 26333}#
+                                                                               
  (append
+                                                                               
    #{s1 26333}#
+                                                                               
    #{m2 26366}#))))))))
+                                                               (#{module 
26322}#
+                                                                 (vector-ref
+                                                                   #{name 
26290}#
+                                                                   3)))
+                                                           (vector
+                                                             'syntax-object
+                                                             #{expression 
26320}#
+                                                             #{wrap 26321}#
+                                                             #{module 26322}#))
+                                                         (if (null? #{name 
26290}#)
+                                                           #{name 26290}#
+                                                           (vector
+                                                             'syntax-object
+                                                             #{name 26290}#
+                                                             #{w 24862}#
+                                                             #{mod 24865}#))))
                                                      '(#(syntax-object
                                                          if
                                                          ((top)
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1900"))
+                                                            #("i1901"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -2214,17 +2680,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1840"
-                                                              "i1841"
+                                                            #("i1841"
                                                               "i1842"
                                                               "i1843"
                                                               "i1844"
-                                                              "i1845"))
+                                                              "i1845"
+                                                              "i1846"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1832"))
+                                                            #("i1833"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -2243,13 +2709,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1804"
-                                                              "i1805"
+                                                            #("i1805"
                                                               "i1806"
                                                               "i1807"
                                                               "i1808"
                                                               "i1809"
-                                                              "i1810"))
+                                                              "i1810"
+                                                              "i1811"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -2527,152 +2993,152 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i470"
-                                                             "i468"
-                                                             "i466"
-                                                             "i464"
-                                                             "i462"
-                                                             "i460"
-                                                             "i458"
-                                                             "i456"
-                                                             "i454"
-                                                             "i452"
-                                                             "i450"
-                                                             "i448"
-                                                             "i446"
-                                                             "i444"
-                                                             "i442"
-                                                             "i440"
-                                                             "i438"
-                                                             "i436"
-                                                             "i434"
-                                                             "i432"
-                                                             "i430"
-                                                             "i428"
-                                                             "i426"
-                                                             "i424"
-                                                             "i422"
-                                                             "i420"
-                                                             "i418"
-                                                             "i416"
-                                                             "i414"
-                                                             "i412"
-                                                             "i410"
-                                                             "i408"
-                                                             "i406"
-                                                             "i404"
+                                                            ("i471"
+                                                             "i469"
+                                                             "i467"
+                                                             "i465"
+                                                             "i463"
+                                                             "i461"
+                                                             "i459"
+                                                             "i457"
+                                                             "i455"
+                                                             "i453"
+                                                             "i451"
+                                                             "i449"
+                                                             "i447"
+                                                             "i445"
+                                                             "i443"
+                                                             "i441"
+                                                             "i439"
+                                                             "i437"
+                                                             "i435"
+                                                             "i433"
+                                                             "i431"
+                                                             "i429"
+                                                             "i427"
+                                                             "i425"
+                                                             "i423"
+                                                             "i421"
+                                                             "i419"
+                                                             "i417"
+                                                             "i415"
+                                                             "i413"
+                                                             "i411"
+                                                             "i409"
+                                                             "i407"
+                                                             "i405"
+                                                             "i403"
                                                              "i402"
-                                                             "i401"
-                                                             "i399"
+                                                             "i400"
+                                                             "i397"
                                                              "i396"
                                                              "i395"
-                                                             "i394"
+                                                             "i393"
                                                              "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i387"
-                                                             "i385"
-                                                             "i383"
-                                                             "i381"
-                                                             "i379"
-                                                             "i377"
-                                                             "i375"
-                                                             "i372"
+                                                             "i390"
+                                                             "i388"
+                                                             "i386"
+                                                             "i384"
+                                                             "i382"
+                                                             "i380"
+                                                             "i378"
+                                                             "i376"
+                                                             "i373"
+                                                             "i371"
                                                              "i370"
-                                                             "i369"
-                                                             "i367"
-                                                             "i365"
-                                                             "i363"
+                                                             "i368"
+                                                             "i366"
+                                                             "i364"
+                                                             "i362"
                                                              "i361"
                                                              "i360"
                                                              "i359"
-                                                             "i358"
+                                                             "i357"
                                                              "i356"
-                                                             "i355"
-                                                             "i352"
-                                                             "i350"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
+                                                             "i353"
+                                                             "i351"
+                                                             "i349"
+                                                             "i347"
+                                                             "i345"
+                                                             "i343"
+                                                             "i341"
                                                              "i340"
                                                              "i339"
-                                                             "i338"
-                                                             "i336"
+                                                             "i337"
+                                                             "i335"
                                                              "i334"
-                                                             "i333"
+                                                             "i331"
                                                              "i330"
-                                                             "i329"
-                                                             "i327"
-                                                             "i325"
-                                                             "i323"
-                                                             "i321"
-                                                             "i319"
-                                                             "i317"
-                                                             "i315"
-                                                             "i313"
-                                                             "i311"
-                                                             "i308"
-                                                             "i306"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
+                                                             "i328"
+                                                             "i326"
+                                                             "i324"
+                                                             "i322"
+                                                             "i320"
+                                                             "i318"
+                                                             "i316"
+                                                             "i314"
+                                                             "i312"
+                                                             "i309"
+                                                             "i307"
+                                                             "i305"
+                                                             "i303"
+                                                             "i301"
+                                                             "i299"
+                                                             "i297"
+                                                             "i295"
+                                                             "i293"
+                                                             "i291"
+                                                             "i289"
+                                                             "i287"
+                                                             "i285"
+                                                             "i283"
+                                                             "i281"
+                                                             "i279"
+                                                             "i277"
+                                                             "i275"
+                                                             "i273"
+                                                             "i271"
+                                                             "i269"
+                                                             "i267"
+                                                             "i265"
+                                                             "i263"
                                                              "i262"
-                                                             "i261"
-                                                             "i258"
+                                                             "i259"
+                                                             "i257"
                                                              "i256"
                                                              "i255"
                                                              "i254"
                                                              "i253"
-                                                             "i252"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i243"
-                                                             "i241"
-                                                             "i239"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"))
+                                                             "i251"
+                                                             "i249"
+                                                             "i247"
+                                                             "i244"
+                                                             "i242"
+                                                             "i240"
+                                                             "i238"
+                                                             "i236"
+                                                             "i234"
+                                                             "i232"
+                                                             "i230"
+                                                             "i228"
+                                                             "i226"
+                                                             "i224"
+                                                             "i222"
+                                                             "i220"
+                                                             "i218"
+                                                             "i216"
+                                                             "i214"
+                                                             "i212"
+                                                             "i210"
+                                                             "i208"))
                                                           #(ribcage
                                                             (define-structure
                                                               
define-expansion-accessors
                                                               
define-expansion-constructors)
                                                             ((top) (top) (top))
-                                                            ("i45"
-                                                             "i44"
-                                                             "i43")))
+                                                            ("i46"
+                                                             "i45"
+                                                             "i44")))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          #f
@@ -2680,7 +3146,7 @@
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1900"))
+                                                            #("i1901"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -2696,17 +3162,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1840"
-                                                              "i1841"
+                                                            #("i1841"
                                                               "i1842"
                                                               "i1843"
                                                               "i1844"
-                                                              "i1845"))
+                                                              "i1845"
+                                                              "i1846"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1832"))
+                                                            #("i1833"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -2725,13 +3191,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1804"
-                                                              "i1805"
+                                                            #("i1805"
                                                               "i1806"
                                                               "i1807"
                                                               "i1808"
                                                               "i1809"
-                                                              "i1810"))
+                                                              "i1810"
+                                                              "i1811"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -3009,152 +3475,152 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i470"
-                                                             "i468"
-                                                             "i466"
-                                                             "i464"
-                                                             "i462"
-                                                             "i460"
-                                                             "i458"
-                                                             "i456"
-                                                             "i454"
-                                                             "i452"
-                                                             "i450"
-                                                             "i448"
-                                                             "i446"
-                                                             "i444"
-                                                             "i442"
-                                                             "i440"
-                                                             "i438"
-                                                             "i436"
-                                                             "i434"
-                                                             "i432"
-                                                             "i430"
-                                                             "i428"
-                                                             "i426"
-                                                             "i424"
-                                                             "i422"
-                                                             "i420"
-                                                             "i418"
-                                                             "i416"
-                                                             "i414"
-                                                             "i412"
-                                                             "i410"
-                                                             "i408"
-                                                             "i406"
-                                                             "i404"
+                                                            ("i471"
+                                                             "i469"
+                                                             "i467"
+                                                             "i465"
+                                                             "i463"
+                                                             "i461"
+                                                             "i459"
+                                                             "i457"
+                                                             "i455"
+                                                             "i453"
+                                                             "i451"
+                                                             "i449"
+                                                             "i447"
+                                                             "i445"
+                                                             "i443"
+                                                             "i441"
+                                                             "i439"
+                                                             "i437"
+                                                             "i435"
+                                                             "i433"
+                                                             "i431"
+                                                             "i429"
+                                                             "i427"
+                                                             "i425"
+                                                             "i423"
+                                                             "i421"
+                                                             "i419"
+                                                             "i417"
+                                                             "i415"
+                                                             "i413"
+                                                             "i411"
+                                                             "i409"
+                                                             "i407"
+                                                             "i405"
+                                                             "i403"
                                                              "i402"
-                                                             "i401"
-                                                             "i399"
+                                                             "i400"
+                                                             "i397"
                                                              "i396"
                                                              "i395"
-                                                             "i394"
+                                                             "i393"
                                                              "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i387"
-                                                             "i385"
-                                                             "i383"
-                                                             "i381"
-                                                             "i379"
-                                                             "i377"
-                                                             "i375"
-                                                             "i372"
+                                                             "i390"
+                                                             "i388"
+                                                             "i386"
+                                                             "i384"
+                                                             "i382"
+                                                             "i380"
+                                                             "i378"
+                                                             "i376"
+                                                             "i373"
+                                                             "i371"
                                                              "i370"
-                                                             "i369"
-                                                             "i367"
-                                                             "i365"
-                                                             "i363"
+                                                             "i368"
+                                                             "i366"
+                                                             "i364"
+                                                             "i362"
                                                              "i361"
                                                              "i360"
                                                              "i359"
-                                                             "i358"
+                                                             "i357"
                                                              "i356"
-                                                             "i355"
-                                                             "i352"
-                                                             "i350"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
+                                                             "i353"
+                                                             "i351"
+                                                             "i349"
+                                                             "i347"
+                                                             "i345"
+                                                             "i343"
+                                                             "i341"
                                                              "i340"
                                                              "i339"
-                                                             "i338"
-                                                             "i336"
+                                                             "i337"
+                                                             "i335"
                                                              "i334"
-                                                             "i333"
+                                                             "i331"
                                                              "i330"
-                                                             "i329"
-                                                             "i327"
-                                                             "i325"
-                                                             "i323"
-                                                             "i321"
-                                                             "i319"
-                                                             "i317"
-                                                             "i315"
-                                                             "i313"
-                                                             "i311"
-                                                             "i308"
-                                                             "i306"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
+                                                             "i328"
+                                                             "i326"
+                                                             "i324"
+                                                             "i322"
+                                                             "i320"
+                                                             "i318"
+                                                             "i316"
+                                                             "i314"
+                                                             "i312"
+                                                             "i309"
+                                                             "i307"
+                                                             "i305"
+                                                             "i303"
+                                                             "i301"
+                                                             "i299"
+                                                             "i297"
+                                                             "i295"
+                                                             "i293"
+                                                             "i291"
+                                                             "i289"
+                                                             "i287"
+                                                             "i285"
+                                                             "i283"
+                                                             "i281"
+                                                             "i279"
+                                                             "i277"
+                                                             "i275"
+                                                             "i273"
+                                                             "i271"
+                                                             "i269"
+                                                             "i267"
+                                                             "i265"
+                                                             "i263"
                                                              "i262"
-                                                             "i261"
-                                                             "i258"
+                                                             "i259"
+                                                             "i257"
                                                              "i256"
                                                              "i255"
                                                              "i254"
                                                              "i253"
-                                                             "i252"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i243"
-                                                             "i241"
-                                                             "i239"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"))
+                                                             "i251"
+                                                             "i249"
+                                                             "i247"
+                                                             "i244"
+                                                             "i242"
+                                                             "i240"
+                                                             "i238"
+                                                             "i236"
+                                                             "i234"
+                                                             "i232"
+                                                             "i230"
+                                                             "i228"
+                                                             "i226"
+                                                             "i224"
+                                                             "i222"
+                                                             "i220"
+                                                             "i218"
+                                                             "i216"
+                                                             "i214"
+                                                             "i212"
+                                                             "i210"
+                                                             "i208"))
                                                           #(ribcage
                                                             (define-structure
                                                               
define-expansion-accessors
                                                               
define-expansion-constructors)
                                                             ((top) (top) (top))
-                                                            ("i45"
-                                                             "i44"
-                                                             "i43")))
+                                                            ("i46"
+                                                             "i45"
+                                                             "i44")))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          #f
@@ -3162,7 +3628,7 @@
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1900"))
+                                                            #("i1901"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -3178,17 +3644,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1840"
-                                                              "i1841"
+                                                            #("i1841"
                                                               "i1842"
                                                               "i1843"
                                                               "i1844"
-                                                              "i1845"))
+                                                              "i1845"
+                                                              "i1846"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1832"))
+                                                            #("i1833"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -3207,13 +3673,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1804"
-                                                              "i1805"
+                                                            #("i1805"
                                                               "i1806"
                                                               "i1807"
                                                               "i1808"
                                                               "i1809"
-                                                              "i1810"))
+                                                              "i1810"
+                                                              "i1811"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -3491,907 +3957,2160 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i470"
-                                                             "i468"
-                                                             "i466"
-                                                             "i464"
-                                                             "i462"
-                                                             "i460"
-                                                             "i458"
-                                                             "i456"
-                                                             "i454"
-                                                             "i452"
-                                                             "i450"
-                                                             "i448"
-                                                             "i446"
-                                                             "i444"
-                                                             "i442"
-                                                             "i440"
-                                                             "i438"
-                                                             "i436"
-                                                             "i434"
-                                                             "i432"
-                                                             "i430"
-                                                             "i428"
-                                                             "i426"
-                                                             "i424"
-                                                             "i422"
-                                                             "i420"
-                                                             "i418"
-                                                             "i416"
-                                                             "i414"
-                                                             "i412"
-                                                             "i410"
-                                                             "i408"
-                                                             "i406"
-                                                             "i404"
+                                                            ("i471"
+                                                             "i469"
+                                                             "i467"
+                                                             "i465"
+                                                             "i463"
+                                                             "i461"
+                                                             "i459"
+                                                             "i457"
+                                                             "i455"
+                                                             "i453"
+                                                             "i451"
+                                                             "i449"
+                                                             "i447"
+                                                             "i445"
+                                                             "i443"
+                                                             "i441"
+                                                             "i439"
+                                                             "i437"
+                                                             "i435"
+                                                             "i433"
+                                                             "i431"
+                                                             "i429"
+                                                             "i427"
+                                                             "i425"
+                                                             "i423"
+                                                             "i421"
+                                                             "i419"
+                                                             "i417"
+                                                             "i415"
+                                                             "i413"
+                                                             "i411"
+                                                             "i409"
+                                                             "i407"
+                                                             "i405"
+                                                             "i403"
                                                              "i402"
-                                                             "i401"
-                                                             "i399"
+                                                             "i400"
+                                                             "i397"
                                                              "i396"
                                                              "i395"
-                                                             "i394"
+                                                             "i393"
                                                              "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i387"
-                                                             "i385"
-                                                             "i383"
-                                                             "i381"
-                                                             "i379"
-                                                             "i377"
-                                                             "i375"
-                                                             "i372"
+                                                             "i390"
+                                                             "i388"
+                                                             "i386"
+                                                             "i384"
+                                                             "i382"
+                                                             "i380"
+                                                             "i378"
+                                                             "i376"
+                                                             "i373"
+                                                             "i371"
                                                              "i370"
-                                                             "i369"
-                                                             "i367"
-                                                             "i365"
-                                                             "i363"
+                                                             "i368"
+                                                             "i366"
+                                                             "i364"
+                                                             "i362"
                                                              "i361"
                                                              "i360"
                                                              "i359"
-                                                             "i358"
+                                                             "i357"
                                                              "i356"
-                                                             "i355"
-                                                             "i352"
-                                                             "i350"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
+                                                             "i353"
+                                                             "i351"
+                                                             "i349"
+                                                             "i347"
+                                                             "i345"
+                                                             "i343"
+                                                             "i341"
                                                              "i340"
                                                              "i339"
-                                                             "i338"
-                                                             "i336"
+                                                             "i337"
+                                                             "i335"
                                                              "i334"
-                                                             "i333"
+                                                             "i331"
                                                              "i330"
-                                                             "i329"
-                                                             "i327"
-                                                             "i325"
-                                                             "i323"
-                                                             "i321"
-                                                             "i319"
-                                                             "i317"
-                                                             "i315"
-                                                             "i313"
-                                                             "i311"
-                                                             "i308"
-                                                             "i306"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
+                                                             "i328"
+                                                             "i326"
+                                                             "i324"
+                                                             "i322"
+                                                             "i320"
+                                                             "i318"
+                                                             "i316"
+                                                             "i314"
+                                                             "i312"
+                                                             "i309"
+                                                             "i307"
+                                                             "i305"
+                                                             "i303"
+                                                             "i301"
+                                                             "i299"
+                                                             "i297"
+                                                             "i295"
+                                                             "i293"
+                                                             "i291"
+                                                             "i289"
+                                                             "i287"
+                                                             "i285"
+                                                             "i283"
+                                                             "i281"
+                                                             "i279"
+                                                             "i277"
+                                                             "i275"
+                                                             "i273"
+                                                             "i271"
+                                                             "i269"
+                                                             "i267"
+                                                             "i265"
+                                                             "i263"
                                                              "i262"
-                                                             "i261"
-                                                             "i258"
+                                                             "i259"
+                                                             "i257"
                                                              "i256"
                                                              "i255"
                                                              "i254"
                                                              "i253"
-                                                             "i252"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i243"
-                                                             "i241"
-                                                             "i239"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"))
+                                                             "i251"
+                                                             "i249"
+                                                             "i247"
+                                                             "i244"
+                                                             "i242"
+                                                             "i240"
+                                                             "i238"
+                                                             "i236"
+                                                             "i234"
+                                                             "i232"
+                                                             "i230"
+                                                             "i228"
+                                                             "i226"
+                                                             "i224"
+                                                             "i222"
+                                                             "i220"
+                                                             "i218"
+                                                             "i216"
+                                                             "i214"
+                                                             "i212"
+                                                             "i210"
+                                                             "i208"))
                                                           #(ribcage
                                                             (define-structure
                                                               
define-expansion-accessors
                                                               
define-expansion-constructors)
                                                             ((top) (top) (top))
-                                                            ("i45"
-                                                             "i44"
-                                                             "i43")))
+                                                            ("i46"
+                                                             "i45"
+                                                             "i44")))
                                                          (hygiene guile)))
                                                      '(())
-                                                     #{s 1800}#
-                                                     #{mod 1802}#))
-                                                 #{tmp 1897}#)
+                                                     #{s 24863}#
+                                                     #{mod 24865}#))
+                                                 #{tmp 26259}#)
                                                (syntax-violation
                                                  #f
                                                  "source expression failed to 
match any pattern"
-                                                 #{e 1797}#)))))))
-                                   (if (memv #{ftype 1834}# '(define-syntax))
-                                     (let ((#{tmp 1905}#
+                                                 #{e 24860}#)))))))
+                                   (if (eqv? #{ftype 25507}# 'define-syntax)
+                                     (let ((#{tmp 26405}#
                                              ($sc-dispatch
-                                               #{e 1797}#
+                                               #{e 24860}#
                                                '(_ any any))))
-                                       (if (if #{tmp 1905}#
+                                       (if (if #{tmp 26405}#
                                              (@apply
-                                               (lambda (#{name 1908}#
-                                                        #{val 1909}#)
-                                                 (#{id? 353}# #{name 1908}#))
-                                               #{tmp 1905}#)
+                                               (lambda (#{name 26409}#
+                                                        #{val 26410}#)
+                                                 (if (symbol? #{name 26409}#)
+                                                   #t
+                                                   (if (if (vector?
+                                                             #{name 26409}#)
+                                                         (if (= (vector-length
+                                                                  #{name 
26409}#)
+                                                                4)
+                                                           (eq? (vector-ref
+                                                                  #{name 
26409}#
+                                                                  0)
+                                                                'syntax-object)
+                                                           #f)
+                                                         #f)
+                                                     (symbol?
+                                                       (vector-ref
+                                                         #{name 26409}#
+                                                         1))
+                                                     #f)))
+                                               #{tmp 26405}#)
                                              #f)
                                          (@apply
-                                           (lambda (#{name 1912}# #{val 1913}#)
+                                           (lambda (#{name 26437}#
+                                                    #{val 26438}#)
                                              (values
                                                'define-syntax-form
-                                               #{name 1912}#
-                                               #{val 1913}#
-                                               #{w 1799}#
-                                               #{s 1800}#
-                                               #{mod 1802}#))
-                                           #{tmp 1905}#)
+                                               #{name 26437}#
+                                               #{val 26438}#
+                                               #{w 24862}#
+                                               #{s 24863}#
+                                               #{mod 24865}#))
+                                           #{tmp 26405}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{e 1797}#)))
+                                           #{e 24860}#)))
                                      (values
                                        'call
                                        #f
-                                       #{e 1797}#
-                                       #{w 1799}#
-                                       #{s 1800}#
-                                       #{mod 1802}#))))))))))))))
-           (if (#{syntax-object? 316}# #{e 1797}#)
-             (#{syntax-type 439}#
-               (#{syntax-object-expression 318}# #{e 1797}#)
-               #{r 1798}#
-               (#{join-wraps 409}#
-                 #{w 1799}#
-                 (#{syntax-object-wrap 320}# #{e 1797}#))
-               (let ((#{t 1919}#
-                       (#{source-annotation 331}# #{e 1797}#)))
-                 (if #{t 1919}# #{t 1919}# #{s 1800}#))
-               #{rib 1801}#
-               (let ((#{t 1923}#
-                       (#{syntax-object-module 322}# #{e 1797}#)))
-                 (if #{t 1923}# #{t 1923}# #{mod 1802}#))
-               #{for-car? 1803}#)
-             (if (self-evaluating? #{e 1797}#)
+                                       #{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)
+                   #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}#)
                (values
                  'constant
                  #f
-                 #{e 1797}#
-                 #{w 1799}#
-                 #{s 1800}#
-                 #{mod 1802}#)
+                 #{e 24860}#
+                 #{w 24862}#
+                 #{s 24863}#
+                 #{mod 24865}#)
                (values
                  'other
                  #f
-                 #{e 1797}#
-                 #{w 1799}#
-                 #{s 1800}#
-                 #{mod 1802}#)))))))
-   (#{chi 441}#
-     (lambda (#{e 1928}# #{r 1929}# #{w 1930}# #{mod 1931}#)
+                 #{e 24860}#
+                 #{w 24862}#
+                 #{s 24863}#
+                 #{mod 24865}#)))))))
+   (#{chi 4375}#
+     (lambda (#{e 26788}#
+              #{r 26789}#
+              #{w 26790}#
+              #{mod 26791}#)
        (call-with-values
          (lambda ()
-           (#{syntax-type 439}#
-             #{e 1928}#
-             #{r 1929}#
-             #{w 1930}#
-             (#{source-annotation 331}# #{e 1928}#)
+           (#{syntax-type 4374}#
+             #{e 26788}#
+             #{r 26789}#
+             #{w 26790}#
+             (#{source-annotation 4336}# #{e 26788}#)
              #f
-             #{mod 1931}#
+             #{mod 26791}#
              #f))
-         (lambda (#{type 1936}#
-                  #{value 1937}#
-                  #{e 1938}#
-                  #{w 1939}#
-                  #{s 1940}#
-                  #{mod 1941}#)
-           (#{chi-expr 443}#
-             #{type 1936}#
-             #{value 1937}#
-             #{e 1938}#
-             #{r 1929}#
-             #{w 1939}#
-             #{s 1940}#
-             #{mod 1941}#)))))
-   (#{chi-expr 443}#
-     (lambda (#{type 1948}#
-              #{value 1949}#
-              #{e 1950}#
-              #{r 1951}#
-              #{w 1952}#
-              #{s 1953}#
-              #{mod 1954}#)
-       (if (memv #{type 1948}# '(lexical))
-         (#{build-lexical-reference 279}#
-           'value
-           #{s 1953}#
-           #{e 1950}#
-           #{value 1949}#)
-         (if (memv #{type 1948}# '(core core-form))
-           (#{value 1949}#
-             #{e 1950}#
-             #{r 1951}#
-             #{w 1952}#
-             #{s 1953}#
-             #{mod 1954}#)
-           (if (memv #{type 1948}# '(module-ref))
+         (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)
+         (make-struct/no-tail
+           (vector-ref %expanded-vtables 3)
+           #{s 26996}#
+           #{e 26993}#
+           #{value 26992}#)
+         (if (if (eqv? #{type 26991}# '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)
              (call-with-values
                (lambda ()
-                 (#{value 1949}# #{e 1950}# #{r 1951}# #{w 1952}#))
-               (lambda (#{e 1965}#
-                        #{r 1966}#
-                        #{w 1967}#
-                        #{s 1968}#
-                        #{mod 1969}#)
-                 (#{chi 441}#
-                   #{e 1965}#
-                   #{r 1966}#
-                   #{w 1967}#
-                   #{mod 1969}#)))
-             (if (memv #{type 1948}# '(lexical-call))
-               (#{chi-call 445}#
-                 (let ((#{id 1977}# (car #{e 1950}#)))
-                   (#{build-lexical-reference 279}#
+                 (#{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}#
                      'fun
-                     (#{source-annotation 331}# #{id 1977}#)
-                     (if (#{syntax-object? 316}# #{id 1977}#)
-                       (syntax->datum #{id 1977}#)
-                       #{id 1977}#)
-                     #{value 1949}#))
-                 #{e 1950}#
-                 #{r 1951}#
-                 #{w 1952}#
-                 #{s 1953}#
-                 #{mod 1954}#)
-               (if (memv #{type 1948}# '(global-call))
-                 (#{chi-call 445}#
-                   (#{build-global-reference 285}#
-                     (#{source-annotation 331}# (car #{e 1950}#))
-                     (if (#{syntax-object? 316}# #{value 1949}#)
-                       (#{syntax-object-expression 318}# #{value 1949}#)
-                       #{value 1949}#)
-                     (if (#{syntax-object? 316}# #{value 1949}#)
-                       (#{syntax-object-module 322}# #{value 1949}#)
-                       #{mod 1954}#))
-                   #{e 1950}#
-                   #{r 1951}#
-                   #{w 1952}#
-                   #{s 1953}#
-                   #{mod 1954}#)
-                 (if (memv #{type 1948}# '(constant))
-                   (#{build-data 301}#
-                     #{s 1953}#
-                     (#{strip 467}#
-                       (#{source-wrap 429}#
-                         #{e 1950}#
-                         #{w 1952}#
-                         #{s 1953}#
-                         #{mod 1954}#)
-                       '(())))
-                   (if (memv #{type 1948}# '(global))
-                     (#{build-global-reference 285}#
-                       #{s 1953}#
-                       #{value 1949}#
-                       #{mod 1954}#)
-                     (if (memv #{type 1948}# '(call))
-                       (#{chi-call 445}#
-                         (#{chi 441}#
-                           (car #{e 1950}#)
-                           #{r 1951}#
-                           #{w 1952}#
-                           #{mod 1954}#)
-                         #{e 1950}#
-                         #{r 1951}#
-                         #{w 1952}#
-                         #{s 1953}#
-                         #{mod 1954}#)
-                       (if (memv #{type 1948}# '(begin-form))
-                         (let ((#{tmp 1985}#
+                     (#{source-annotation 4336}# #{id 27204}#)
+                     (if (if (vector? #{id 27204}#)
+                           (if (= (vector-length #{id 27204}#) 4)
+                             (eq? (vector-ref #{id 27204}# 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-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)
+                                  '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}#
+                                     (begin
+                                       (if (if (pair? #{e 26993}#)
+                                             #{s 26996}#
+                                             #f)
+                                         (set-source-properties!
+                                           #{e 26993}#
+                                           #{s 26996}#))
+                                       #{e 26993}#)))
+                               (if (if (null? (car #{w 26995}#))
+                                     (null? (cdr #{w 26995}#))
+                                     #f)
+                                 #{x 27910}#
+                                 (if (if (vector? #{x 27910}#)
+                                       (if (= (vector-length #{x 27910}#) 4)
+                                         (eq? (vector-ref #{x 27910}# 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}#
+                                                             (append
+                                                               #{s1 27953}#
+                                                               #{m2 
27968}#)))))
+                                                 (cons (let ((#{m2 27976}#
+                                                               (car #{w2 
27951}#)))
+                                                         (if (null? #{m2 
27976}#)
+                                                           #{m1 27952}#
+                                                           (append
+                                                             #{m1 27952}#
+                                                             #{m2 27976}#)))
+                                                       (let ((#{m2 27984}#
+                                                               (cdr #{w2 
27951}#)))
+                                                         (if (null? #{m2 
27984}#)
+                                                           #{s1 27953}#
+                                                           (append
+                                                             #{s1 27953}#
+                                                             #{m2 
27984}#))))))))
+                                         (#{module 27944}#
+                                           (vector-ref #{x 27910}# 3)))
+                                     (vector
+                                       'syntax-object
+                                       #{expression 27942}#
+                                       #{wrap 27943}#
+                                       #{module 27944}#))
+                                   (if (null? #{x 27910}#)
+                                     #{x 27910}#
+                                     (vector
+                                       'syntax-object
+                                       #{x 27910}#
+                                       #{w 26995}#
+                                       #{mod 26997}#)))))
+                             '(()))))
+                     (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}#)
+                         (make-struct/no-tail
+                           (vector-ref %expanded-vtables 5)
+                           #{s 26996}#
+                           #{mod 28009}#
+                           #{var 28010}#
+                           #{public? 28011}#))
+                       (lambda (#{var 28019}#)
+                         (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}#
                                  ($sc-dispatch
-                                   #{e 1950}#
+                                   #{e 26993}#
                                    '(_ any . each-any))))
-                           (if #{tmp 1985}#
+                           (if #{tmp 28193}#
                              (@apply
-                               (lambda (#{e1 1988}# #{e2 1989}#)
-                                 (#{chi-sequence 431}#
-                                   (cons #{e1 1988}# #{e2 1989}#)
-                                   #{r 1951}#
-                                   #{w 1952}#
-                                   #{s 1953}#
-                                   #{mod 1954}#))
-                               #{tmp 1985}#)
+                               (lambda (#{e1 28197}# #{e2 28198}#)
+                                 (#{chi-sequence 4370}#
+                                   (cons #{e1 28197}# #{e2 28198}#)
+                                   #{r 26994}#
+                                   #{w 26995}#
+                                   #{s 26996}#
+                                   #{mod 26997}#))
+                               #{tmp 28193}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{e 1950}#)))
-                         (if (memv #{type 1948}# '(local-syntax-form))
-                           (#{chi-local-syntax 451}#
-                             #{value 1949}#
-                             #{e 1950}#
-                             #{r 1951}#
-                             #{w 1952}#
-                             #{s 1953}#
-                             #{mod 1954}#
-                             #{chi-sequence 431}#)
-                           (if (memv #{type 1948}# '(eval-when-form))
-                             (let ((#{tmp 1994}#
+                               #{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}#
                                      ($sc-dispatch
-                                       #{e 1950}#
+                                       #{e 26993}#
                                        '(_ each-any any . each-any))))
-                               (if #{tmp 1994}#
+                               (if #{tmp 28374}#
                                  (@apply
-                                   (lambda (#{x 1998}# #{e1 1999}# #{e2 2000}#)
-                                     (let ((#{when-list 2002}#
-                                             (#{chi-when-list 437}#
-                                               #{e 1950}#
-                                               #{x 1998}#
-                                               #{w 1952}#)))
-                                       (if (memq 'eval #{when-list 2002}#)
-                                         (#{chi-sequence 431}#
-                                           (cons #{e1 1999}# #{e2 2000}#)
-                                           #{r 1951}#
-                                           #{w 1952}#
-                                           #{s 1953}#
-                                           #{mod 1954}#)
-                                         (#{chi-void 455}#))))
-                                   #{tmp 1994}#)
+                                   (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}#)
+                                         (make-struct/no-tail
+                                           (vector-ref %expanded-vtables 0)
+                                           #f))))
+                                   #{tmp 28374}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{e 1950}#)))
-                             (if (memv #{type 1948}#
-                                       '(define-form define-syntax-form))
+                                   #{e 26993}#)))
+                             (if (if (eqv? #{type 26991}# 'define-form)
+                                   #t
+                                   (eqv? #{type 26991}# 'define-syntax-form))
                                (syntax-violation
                                  #f
                                  "definition in expression context"
-                                 #{e 1950}#
-                                 (#{wrap 427}#
-                                   #{value 1949}#
-                                   #{w 1952}#
-                                   #{mod 1954}#))
-                               (if (memv #{type 1948}# '(syntax))
+                                 #{e 26993}#
+                                 (if (if (null? (car #{w 26995}#))
+                                       (null? (cdr #{w 26995}#))
+                                       #f)
+                                   #{value 26992}#
+                                   (if (if (vector? #{value 26992}#)
+                                         (if (= (vector-length #{value 26992}#)
+                                                4)
+                                           (eq? (vector-ref #{value 26992}# 0)
+                                                'syntax-object)
+                                           #f)
+                                         #f)
+                                     (let ((#{expression 28530}#
+                                             (vector-ref #{value 26992}# 1))
+                                           (#{wrap 28531}#
+                                             (let ((#{w2 28541}#
+                                                     (vector-ref
+                                                       #{value 26992}#
+                                                       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}#
+                                                               (append
+                                                                 #{s1 28543}#
+                                                                 #{m2 
28560}#)))))
+                                                   (cons (let ((#{m2 28568}#
+                                                                 (car #{w2 
28541}#)))
+                                                           (if (null? #{m2 
28568}#)
+                                                             #{m1 28542}#
+                                                             (append
+                                                               #{m1 28542}#
+                                                               #{m2 28568}#)))
+                                                         (let ((#{m2 28576}#
+                                                                 (cdr #{w2 
28541}#)))
+                                                           (if (null? #{m2 
28576}#)
+                                                             #{s1 28543}#
+                                                             (append
+                                                               #{s1 28543}#
+                                                               #{m2 
28576}#))))))))
+                                           (#{module 28532}#
+                                             (vector-ref #{value 26992}# 3)))
+                                       (vector
+                                         'syntax-object
+                                         #{expression 28530}#
+                                         #{wrap 28531}#
+                                         #{module 28532}#))
+                                     (if (null? #{value 26992}#)
+                                       #{value 26992}#
+                                       (vector
+                                         'syntax-object
+                                         #{value 26992}#
+                                         #{w 26995}#
+                                         #{mod 26997}#)))))
+                               (if (eqv? #{type 26991}# 'syntax)
                                  (syntax-violation
                                    #f
                                    "reference to pattern variable outside 
syntax form"
-                                   (#{source-wrap 429}#
-                                     #{e 1950}#
-                                     #{w 1952}#
-                                     #{s 1953}#
-                                     #{mod 1954}#))
-                                 (if (memv #{type 1948}# '(displaced-lexical))
+                                   (let ((#{x 28611}#
+                                           (begin
+                                             (if (if (pair? #{e 26993}#)
+                                                   #{s 26996}#
+                                                   #f)
+                                               (set-source-properties!
+                                                 #{e 26993}#
+                                                 #{s 26996}#))
+                                             #{e 26993}#)))
+                                     (if (if (null? (car #{w 26995}#))
+                                           (null? (cdr #{w 26995}#))
+                                           #f)
+                                       #{x 28611}#
+                                       (if (if (vector? #{x 28611}#)
+                                             (if (= (vector-length #{x 28611}#)
+                                                    4)
+                                               (eq? (vector-ref #{x 28611}# 0)
+                                                    'syntax-object)
+                                               #f)
+                                             #f)
+                                         (let ((#{expression 28643}#
+                                                 (vector-ref #{x 28611}# 1))
+                                               (#{wrap 28644}#
+                                                 (let ((#{w2 28652}#
+                                                         (vector-ref
+                                                           #{x 28611}#
+                                                           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}#
+                                                                   (append
+                                                                     #{s1 
28654}#
+                                                                     #{m2 
28669}#)))))
+                                                       (cons (let ((#{m2 
28677}#
+                                                                     (car #{w2 
28652}#)))
+                                                               (if (null? #{m2 
28677}#)
+                                                                 #{m1 28653}#
+                                                                 (append
+                                                                   #{m1 28653}#
+                                                                   #{m2 
28677}#)))
+                                                             (let ((#{m2 
28685}#
+                                                                     (cdr #{w2 
28652}#)))
+                                                               (if (null? #{m2 
28685}#)
+                                                                 #{s1 28654}#
+                                                                 (append
+                                                                   #{s1 28654}#
+                                                                   #{m2 
28685}#))))))))
+                                               (#{module 28645}#
+                                                 (vector-ref #{x 28611}# 3)))
+                                           (vector
+                                             'syntax-object
+                                             #{expression 28643}#
+                                             #{wrap 28644}#
+                                             #{module 28645}#))
+                                         (if (null? #{x 28611}#)
+                                           #{x 28611}#
+                                           (vector
+                                             'syntax-object
+                                             #{x 28611}#
+                                             #{w 26995}#
+                                             #{mod 26997}#))))))
+                                 (if (eqv? #{type 26991}# 'displaced-lexical)
                                    (syntax-violation
                                      #f
                                      "reference to identifier outside its 
scope"
-                                     (#{source-wrap 429}#
-                                       #{e 1950}#
-                                       #{w 1952}#
-                                       #{s 1953}#
-                                       #{mod 1954}#))
+                                     (let ((#{x 28712}#
+                                             (begin
+                                               (if (if (pair? #{e 26993}#)
+                                                     #{s 26996}#
+                                                     #f)
+                                                 (set-source-properties!
+                                                   #{e 26993}#
+                                                   #{s 26996}#))
+                                               #{e 26993}#)))
+                                       (if (if (null? (car #{w 26995}#))
+                                             (null? (cdr #{w 26995}#))
+                                             #f)
+                                         #{x 28712}#
+                                         (if (if (vector? #{x 28712}#)
+                                               (if (= (vector-length
+                                                        #{x 28712}#)
+                                                      4)
+                                                 (eq? (vector-ref
+                                                        #{x 28712}#
+                                                        0)
+                                                      'syntax-object)
+                                                 #f)
+                                               #f)
+                                           (let ((#{expression 28744}#
+                                                   (vector-ref #{x 28712}# 1))
+                                                 (#{wrap 28745}#
+                                                   (let ((#{w2 28753}#
+                                                           (vector-ref
+                                                             #{x 28712}#
+                                                             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}#
+                                                                     (append
+                                                                       #{s1 
28755}#
+                                                                       #{m2 
28770}#)))))
+                                                         (cons (let ((#{m2 
28778}#
+                                                                       (car 
#{w2 28753}#)))
+                                                                 (if (null? 
#{m2 28778}#)
+                                                                   #{m1 28754}#
+                                                                   (append
+                                                                     #{m1 
28754}#
+                                                                     #{m2 
28778}#)))
+                                                               (let ((#{m2 
28786}#
+                                                                       (cdr 
#{w2 28753}#)))
+                                                                 (if (null? 
#{m2 28786}#)
+                                                                   #{s1 28755}#
+                                                                   (append
+                                                                     #{s1 
28755}#
+                                                                     #{m2 
28786}#))))))))
+                                                 (#{module 28746}#
+                                                   (vector-ref #{x 28712}# 3)))
+                                             (vector
+                                               'syntax-object
+                                               #{expression 28744}#
+                                               #{wrap 28745}#
+                                               #{module 28746}#))
+                                           (if (null? #{x 28712}#)
+                                             #{x 28712}#
+                                             (vector
+                                               'syntax-object
+                                               #{x 28712}#
+                                               #{w 26995}#
+                                               #{mod 26997}#))))))
                                    (syntax-violation
                                      #f
                                      "unexpected syntax"
-                                     (#{source-wrap 429}#
-                                       #{e 1950}#
-                                       #{w 1952}#
-                                       #{s 1953}#
-                                       #{mod 1954}#))))))))))))))))))
-   (#{chi-call 445}#
-     (lambda (#{x 2009}#
-              #{e 2010}#
-              #{r 2011}#
-              #{w 2012}#
-              #{s 2013}#
-              #{mod 2014}#)
-       (let ((#{tmp 2022}#
-               ($sc-dispatch #{e 2010}# '(any . each-any))))
-         (if #{tmp 2022}#
+                                     (let ((#{x 28810}#
+                                             (begin
+                                               (if (if (pair? #{e 26993}#)
+                                                     #{s 26996}#
+                                                     #f)
+                                                 (set-source-properties!
+                                                   #{e 26993}#
+                                                   #{s 26996}#))
+                                               #{e 26993}#)))
+                                       (if (if (null? (car #{w 26995}#))
+                                             (null? (cdr #{w 26995}#))
+                                             #f)
+                                         #{x 28810}#
+                                         (if (if (vector? #{x 28810}#)
+                                               (if (= (vector-length
+                                                        #{x 28810}#)
+                                                      4)
+                                                 (eq? (vector-ref
+                                                        #{x 28810}#
+                                                        0)
+                                                      'syntax-object)
+                                                 #f)
+                                               #f)
+                                           (let ((#{expression 28842}#
+                                                   (vector-ref #{x 28810}# 1))
+                                                 (#{wrap 28843}#
+                                                   (let ((#{w2 28851}#
+                                                           (vector-ref
+                                                             #{x 28810}#
+                                                             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}#
+                                                                     (append
+                                                                       #{s1 
28853}#
+                                                                       #{m2 
28868}#)))))
+                                                         (cons (let ((#{m2 
28876}#
+                                                                       (car 
#{w2 28851}#)))
+                                                                 (if (null? 
#{m2 28876}#)
+                                                                   #{m1 28852}#
+                                                                   (append
+                                                                     #{m1 
28852}#
+                                                                     #{m2 
28876}#)))
+                                                               (let ((#{m2 
28884}#
+                                                                       (cdr 
#{w2 28851}#)))
+                                                                 (if (null? 
#{m2 28884}#)
+                                                                   #{s1 28853}#
+                                                                   (append
+                                                                     #{s1 
28853}#
+                                                                     #{m2 
28884}#))))))))
+                                                 (#{module 28844}#
+                                                   (vector-ref #{x 28810}# 3)))
+                                             (vector
+                                               'syntax-object
+                                               #{expression 28842}#
+                                               #{wrap 28843}#
+                                               #{module 28844}#))
+                                           (if (null? #{x 28810}#)
+                                             #{x 28810}#
+                                             (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}#
            (@apply
-             (lambda (#{e0 2025}# #{e1 2026}#)
-               (#{build-call 273}#
-                 #{s 2013}#
-                 #{x 2009}#
-                 (map (lambda (#{e 2027}#)
-                        (#{chi 441}#
-                          #{e 2027}#
-                          #{r 2011}#
-                          #{w 2012}#
-                          #{mod 2014}#))
-                      #{e1 2026}#)))
-             #{tmp 2022}#)
+             (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}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
-             #{e 2010}#)))))
-   (#{chi-macro 447}#
-     (lambda (#{p 2030}#
-              #{e 2031}#
-              #{r 2032}#
-              #{w 2033}#
-              #{s 2034}#
-              #{rib 2035}#
-              #{mod 2036}#)
+             #{e 28900}#)))))
+   (#{chi-macro 4378}#
+     (lambda (#{p 29087}#
+              #{e 29088}#
+              #{r 29089}#
+              #{w 29090}#
+              #{s 29091}#
+              #{rib 29092}#
+              #{mod 29093}#)
        (letrec*
-         ((#{rebuild-macro-output 2045}#
-            (lambda (#{x 2046}# #{m 2047}#)
-              (if (pair? #{x 2046}#)
-                (#{decorate-source 267}#
-                  (cons (#{rebuild-macro-output 2045}#
-                          (car #{x 2046}#)
-                          #{m 2047}#)
-                        (#{rebuild-macro-output 2045}#
-                          (cdr #{x 2046}#)
-                          #{m 2047}#))
-                  #{s 2034}#)
-                (if (#{syntax-object? 316}# #{x 2046}#)
-                  (let ((#{w 2055}#
-                          (#{syntax-object-wrap 320}# #{x 2046}#)))
-                    (let ((#{ms 2058}# (car #{w 2055}#))
-                          (#{s 2059}# (cdr #{w 2055}#)))
-                      (if (if (pair? #{ms 2058}#)
-                            (eq? (car #{ms 2058}#) #f)
+         ((#{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}#))))
+                  (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)
+                        #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)
                             #f)
-                        (#{make-syntax-object 314}#
-                          (#{syntax-object-expression 318}# #{x 2046}#)
-                          (cons (cdr #{ms 2058}#)
-                                (if #{rib 2035}#
-                                  (cons #{rib 2035}# (cdr #{s 2059}#))
-                                  (cdr #{s 2059}#)))
-                          (#{syntax-object-module 322}# #{x 2046}#))
-                        (#{make-syntax-object 314}#
-                          (#{decorate-source 267}#
-                            (#{syntax-object-expression 318}# #{x 2046}#)
-                            #{s 2059}#)
-                          (cons (cons #{m 2047}# #{ms 2058}#)
-                                (if #{rib 2035}#
-                                  (cons #{rib 2035}# (cons 'shift #{s 2059}#))
-                                  (cons 'shift #{s 2059}#)))
-                          (#{syntax-object-module 322}# #{x 2046}#)))))
-                  (if (vector? #{x 2046}#)
-                    (let ((#{n 2071}# (vector-length #{x 2046}#)))
-                      (let ((#{v 2073}#
-                              (#{decorate-source 267}#
-                                (make-vector #{n 2071}#)
-                                #{x 2046}#)))
+                        (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)))
+                          (vector
+                            'syntax-object
+                            #{expression 29232}#
+                            #{wrap 29233}#
+                            #{module 29234}#))
+                        (let ((#{expression 29244}#
+                                (let ((#{e 29249}# (vector-ref #{x 29201}# 1)))
+                                  (begin
+                                    (if (if (pair? #{e 29249}#) #{s 29224}# #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)))
+                          (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}#)))
+                                (begin
+                                  (if (if (pair? #{e 29270}#) #{x 29201}# #f)
+                                    (set-source-properties!
+                                      #{e 29270}#
+                                      #{x 29201}#))
+                                  #{e 29270}#))))
                         (letrec*
-                          ((#{loop 2076}#
-                             (lambda (#{i 2077}#)
-                               (if (= #{i 2077}# #{n 2071}#)
-                                 #{v 2073}#
+                          ((#{loop 29263}#
+                             (lambda (#{i 29324}#)
+                               (if (= #{i 29324}# #{n 29261}#)
+                                 #{v 29262}#
                                  (begin
                                    (vector-set!
-                                     #{v 2073}#
-                                     #{i 2077}#
-                                     (#{rebuild-macro-output 2045}#
-                                       (vector-ref #{x 2046}# #{i 2077}#)
-                                       #{m 2047}#))
-                                   (#{loop 2076}# (#{1+}# #{i 2077}#)))))))
-                          (#{loop 2076}# 0))))
-                    (if (symbol? #{x 2046}#)
+                                     #{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}#)
                       (syntax-violation
                         #f
                         "encountered raw symbol in macro output"
-                        (#{source-wrap 429}#
-                          #{e 2031}#
-                          #{w 2033}#
-                          (cdr #{w 2033}#)
-                          #{mod 2036}#)
-                        #{x 2046}#)
-                      (#{decorate-source 267}# #{x 2046}# #{s 2034}#))))))))
-         (#{rebuild-macro-output 2045}#
-           (#{p 2030}#
-             (#{source-wrap 429}#
-               #{e 2031}#
-               (#{anti-mark 397}# #{w 2033}#)
-               #{s 2034}#
-               #{mod 2036}#))
+                        (let ((#{s 29330}# (cdr #{w 29090}#)))
+                          (let ((#{x 29334}#
+                                  (begin
+                                    (if (if (pair? #{e 29088}#) #{s 29330}# #f)
+                                      (set-source-properties!
+                                        #{e 29088}#
+                                        #{s 29330}#))
+                                    #{e 29088}#)))
+                            (if (if (null? (car #{w 29090}#))
+                                  (null? (cdr #{w 29090}#))
+                                  #f)
+                              #{x 29334}#
+                              (if (if (vector? #{x 29334}#)
+                                    (if (= (vector-length #{x 29334}#) 4)
+                                      (eq? (vector-ref #{x 29334}# 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}#
+                                                          (append
+                                                            #{s1 29377}#
+                                                            #{m2 29392}#)))))
+                                              (cons (let ((#{m2 29400}#
+                                                            (car #{w2 
29375}#)))
+                                                      (if (null? #{m2 29400}#)
+                                                        #{m1 29376}#
+                                                        (append
+                                                          #{m1 29376}#
+                                                          #{m2 29400}#)))
+                                                    (let ((#{m2 29408}#
+                                                            (cdr #{w2 
29375}#)))
+                                                      (if (null? #{m2 29408}#)
+                                                        #{s1 29377}#
+                                                        (append
+                                                          #{s1 29377}#
+                                                          #{m2 29408}#))))))))
+                                      (#{module 29368}#
+                                        (vector-ref #{x 29334}# 3)))
+                                  (vector
+                                    'syntax-object
+                                    #{expression 29366}#
+                                    #{wrap 29367}#
+                                    #{module 29368}#))
+                                (if (null? #{x 29334}#)
+                                  #{x 29334}#
+                                  (vector
+                                    'syntax-object
+                                    #{x 29334}#
+                                    #{w 29090}#
+                                    #{mod 29093}#))))))
+                        #{x 29201}#)
+                      (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}#
+                       (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}#))
+                       #f)
+                   #{x 29106}#
+                   (if (if (vector? #{x 29106}#)
+                         (if (= (vector-length #{x 29106}#) 4)
+                           (eq? (vector-ref #{x 29106}# 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}#
+                                               (append
+                                                 #{s1 29155}#
+                                                 #{m2 29170}#)))))
+                                   (cons (let ((#{m2 29178}#
+                                                 (car #{w2 29153}#)))
+                                           (if (null? #{m2 29178}#)
+                                             #{m1 29154}#
+                                             (append
+                                               #{m1 29154}#
+                                               #{m2 29178}#)))
+                                         (let ((#{m2 29186}#
+                                                 (cdr #{w2 29153}#)))
+                                           (if (null? #{m2 29186}#)
+                                             #{s1 29155}#
+                                             (append
+                                               #{s1 29155}#
+                                               #{m2 29186}#))))))))
+                           (#{module 29146}# (vector-ref #{x 29106}# 3)))
+                       (vector
+                         'syntax-object
+                         #{expression 29144}#
+                         #{wrap 29145}#
+                         #{module 29146}#))
+                     (if (null? #{x 29106}#)
+                       #{x 29106}#
+                       (vector
+                         'syntax-object
+                         #{x 29106}#
+                         #{w 29101}#
+                         #{mod 29093}#)))))))
            (gensym "m")))))
-   (#{chi-body 449}#
-     (lambda (#{body 2087}#
-              #{outer-form 2088}#
-              #{r 2089}#
-              #{w 2090}#
-              #{mod 2091}#)
-       (let ((#{r 2099}#
-               (cons '("placeholder" placeholder) #{r 2089}#)))
-         (let ((#{ribcage 2101}#
-                 (#{make-ribcage 376}# '() '() '())))
-           (let ((#{w 2104}#
-                   (cons (car #{w 2090}#)
-                         (cons #{ribcage 2101}# (cdr #{w 2090}#)))))
+   (#{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}#)))))
              (letrec*
-               ((#{parse 2116}#
-                  (lambda (#{body 2117}#
-                           #{ids 2118}#
-                           #{labels 2119}#
-                           #{var-ids 2120}#
-                           #{vars 2121}#
-                           #{vals 2122}#
-                           #{bindings 2123}#)
-                    (if (null? #{body 2117}#)
+               ((#{parse 29446}#
+                  (lambda (#{body 29554}#
+                           #{ids 29555}#
+                           #{labels 29556}#
+                           #{var-ids 29557}#
+                           #{vars 29558}#
+                           #{vals 29559}#
+                           #{bindings 29560}#)
+                    (if (null? #{body 29554}#)
                       (syntax-violation
                         #f
                         "no expressions in body"
-                        #{outer-form 2088}#)
-                      (let ((#{e 2128}# (cdr (car #{body 2117}#)))
-                            (#{er 2129}# (car (car #{body 2117}#))))
+                        #{outer-form 29439}#)
+                      (let ((#{e 29561}# (cdr (car #{body 29554}#)))
+                            (#{er 29562}# (car (car #{body 29554}#))))
                         (call-with-values
                           (lambda ()
-                            (#{syntax-type 439}#
-                              #{e 2128}#
-                              #{er 2129}#
+                            (#{syntax-type 4374}#
+                              #{e 29561}#
+                              #{er 29562}#
                               '(())
-                              (#{source-annotation 331}# #{er 2129}#)
-                              #{ribcage 2101}#
-                              #{mod 2091}#
+                              (#{source-annotation 4336}# #{er 29562}#)
+                              #{ribcage 29444}#
+                              #{mod 29442}#
                               #f))
-                          (lambda (#{type 2131}#
-                                   #{value 2132}#
-                                   #{e 2133}#
-                                   #{w 2134}#
-                                   #{s 2135}#
-                                   #{mod 2136}#)
-                            (if (memv #{type 2131}# '(define-form))
-                              (let ((#{id 2146}#
-                                      (#{wrap 427}#
-                                        #{value 2132}#
-                                        #{w 2134}#
-                                        #{mod 2136}#))
-                                    (#{label 2147}# (#{gen-label 371}#)))
-                                (let ((#{var 2149}#
-                                        (#{gen-var 469}# #{id 2146}#)))
+                          (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}#))
+                                            #f)
+                                        #{value 29757}#
+                                        (if (if (vector? #{value 29757}#)
+                                              (if (= (vector-length
+                                                       #{value 29757}#)
+                                                     4)
+                                                (eq? (vector-ref
+                                                       #{value 29757}#
+                                                       0)
+                                                     'syntax-object)
+                                                #f)
+                                              #f)
+                                          (let ((#{expression 29810}#
+                                                  (vector-ref
+                                                    #{value 29757}#
+                                                    1))
+                                                (#{wrap 29811}#
+                                                  (let ((#{w2 29821}#
+                                                          (vector-ref
+                                                            #{value 29757}#
+                                                            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}#
+                                                                    (append
+                                                                      #{s1 
29823}#
+                                                                      #{m2 
29840}#)))))
+                                                        (cons (let ((#{m2 
29848}#
+                                                                      (car 
#{w2 29821}#)))
+                                                                (if (null? 
#{m2 29848}#)
+                                                                  #{m1 29822}#
+                                                                  (append
+                                                                    #{m1 
29822}#
+                                                                    #{m2 
29848}#)))
+                                                              (let ((#{m2 
29856}#
+                                                                      (cdr 
#{w2 29821}#)))
+                                                                (if (null? 
#{m2 29856}#)
+                                                                  #{s1 29823}#
+                                                                  (append
+                                                                    #{s1 
29823}#
+                                                                    #{m2 
29856}#))))))))
+                                                (#{module 29812}#
+                                                  (vector-ref
+                                                    #{value 29757}#
+                                                    3)))
+                                            (vector
+                                              'syntax-object
+                                              #{expression 29810}#
+                                              #{wrap 29811}#
+                                              #{module 29812}#))
+                                          (if (null? #{value 29757}#)
+                                            #{value 29757}#
+                                            (vector
+                                              'syntax-object
+                                              #{value 29757}#
+                                              #{w 29759}#
+                                              #{mod 29761}#)))))
+                                    (#{label 29766}#
+                                      (symbol->string (gensym "i"))))
+                                (let ((#{var 29767}#
+                                        (let ((#{id 29917}#
+                                                (if (if (vector? #{id 29765}#)
+                                                      (if (= (vector-length
+                                                               #{id 29765}#)
+                                                             4)
+                                                        (eq? (vector-ref
+                                                               #{id 29765}#
+                                                               0)
+                                                             'syntax-object)
+                                                        #f)
+                                                      #f)
+                                                  (vector-ref #{id 29765}# 1)
+                                                  #{id 29765}#)))
+                                          (gensym
+                                            (string-append
+                                              (symbol->string #{id 29917}#)
+                                              " ")))))
                                   (begin
-                                    (#{extend-ribcage! 403}#
-                                      #{ribcage 2101}#
-                                      #{id 2146}#
-                                      #{label 2147}#)
-                                    (#{parse 2116}#
-                                      (cdr #{body 2117}#)
-                                      (cons #{id 2146}# #{ids 2118}#)
-                                      (cons #{label 2147}# #{labels 2119}#)
-                                      (cons #{id 2146}# #{var-ids 2120}#)
-                                      (cons #{var 2149}# #{vars 2121}#)
-                                      (cons (cons #{er 2129}#
-                                                  (#{wrap 427}#
-                                                    #{e 2133}#
-                                                    #{w 2134}#
-                                                    #{mod 2136}#))
-                                            #{vals 2122}#)
-                                      (cons (cons 'lexical #{var 2149}#)
-                                            #{bindings 2123}#)))))
-                              (if (memv #{type 2131}# '(define-syntax-form))
-                                (let ((#{id 2154}#
-                                        (#{wrap 427}#
-                                          #{value 2132}#
-                                          #{w 2134}#
-                                          #{mod 2136}#))
-                                      (#{label 2155}# (#{gen-label 371}#)))
+                                    (begin
+                                      (let ((#{update 29776}#
+                                              (cons (vector-ref #{id 29765}# 1)
+                                                    (vector-ref
+                                                      #{ribcage 29444}#
+                                                      1))))
+                                        (vector-set!
+                                          #{ribcage 29444}#
+                                          1
+                                          #{update 29776}#))
+                                      (let ((#{update 29888}#
+                                              (cons (car (vector-ref
+                                                           #{id 29765}#
+                                                           2))
+                                                    (vector-ref
+                                                      #{ribcage 29444}#
+                                                      2))))
+                                        (vector-set!
+                                          #{ribcage 29444}#
+                                          2
+                                          #{update 29888}#))
+                                      (let ((#{update 29903}#
+                                              (cons #{label 29766}#
+                                                    (vector-ref
+                                                      #{ribcage 29444}#
+                                                      3))))
+                                        (vector-set!
+                                          #{ribcage 29444}#
+                                          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}#))
+                                                        #f)
+                                                    #{e 29758}#
+                                                    (if (if (vector?
+                                                              #{e 29758}#)
+                                                          (if (= (vector-length
+                                                                   #{e 29758}#)
+                                                                 4)
+                                                            (eq? (vector-ref
+                                                                   #{e 29758}#
+                                                                   0)
+                                                                 
'syntax-object)
+                                                            #f)
+                                                          #f)
+                                                      (let ((#{expression 
29969}#
+                                                              (vector-ref
+                                                                #{e 29758}#
+                                                                1))
+                                                            (#{wrap 29970}#
+                                                              (let ((#{w2 
29980}#
+                                                                      
(vector-ref
+                                                                        #{e 
29758}#
+                                                                        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}#
+                                                                               
 (append
+                                                                               
   #{s1 29982}#
+                                                                               
   #{m2 29999}#)))))
+                                                                    (cons (let 
((#{m2 30007}#
+                                                                               
   (car #{w2 29980}#)))
+                                                                            
(if (null? #{m2 30007}#)
+                                                                              
#{m1 29981}#
+                                                                              
(append
+                                                                               
 #{m1 29981}#
+                                                                               
 #{m2 30007}#)))
+                                                                          (let 
((#{m2 30015}#
+                                                                               
   (cdr #{w2 29980}#)))
+                                                                            
(if (null? #{m2 30015}#)
+                                                                              
#{s1 29982}#
+                                                                              
(append
+                                                                               
 #{s1 29982}#
+                                                                               
 #{m2 30015}#))))))))
+                                                            (#{module 29971}#
+                                                              (vector-ref
+                                                                #{e 29758}#
+                                                                3)))
+                                                        (vector
+                                                          'syntax-object
+                                                          #{expression 29969}#
+                                                          #{wrap 29970}#
+                                                          #{module 29971}#))
+                                                      (if (null? #{e 29758}#)
+                                                        #{e 29758}#
+                                                        (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}#))
+                                              #f)
+                                          #{value 29757}#
+                                          (if (if (vector? #{value 29757}#)
+                                                (if (= (vector-length
+                                                         #{value 29757}#)
+                                                       4)
+                                                  (eq? (vector-ref
+                                                         #{value 29757}#
+                                                         0)
+                                                       'syntax-object)
+                                                  #f)
+                                                #f)
+                                            (let ((#{expression 30085}#
+                                                    (vector-ref
+                                                      #{value 29757}#
+                                                      1))
+                                                  (#{wrap 30086}#
+                                                    (let ((#{w2 30096}#
+                                                            (vector-ref
+                                                              #{value 29757}#
+                                                              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}#
+                                                                      (append
+                                                                        #{s1 
30098}#
+                                                                        #{m2 
30115}#)))))
+                                                          (cons (let ((#{m2 
30123}#
+                                                                        (car 
#{w2 30096}#)))
+                                                                  (if (null? 
#{m2 30123}#)
+                                                                    #{m1 
30097}#
+                                                                    (append
+                                                                      #{m1 
30097}#
+                                                                      #{m2 
30123}#)))
+                                                                (let ((#{m2 
30131}#
+                                                                        (cdr 
#{w2 30096}#)))
+                                                                  (if (null? 
#{m2 30131}#)
+                                                                    #{s1 
30098}#
+                                                                    (append
+                                                                      #{s1 
30098}#
+                                                                      #{m2 
30131}#))))))))
+                                                  (#{module 30087}#
+                                                    (vector-ref
+                                                      #{value 29757}#
+                                                      3)))
+                                              (vector
+                                                'syntax-object
+                                                #{expression 30085}#
+                                                #{wrap 30086}#
+                                                #{module 30087}#))
+                                            (if (null? #{value 29757}#)
+                                              #{value 29757}#
+                                              (vector
+                                                'syntax-object
+                                                #{value 29757}#
+                                                #{w 29759}#
+                                                #{mod 29761}#)))))
+                                      (#{label 30042}#
+                                        (symbol->string (gensym "i"))))
                                   (begin
-                                    (#{extend-ribcage! 403}#
-                                      #{ribcage 2101}#
-                                      #{id 2154}#
-                                      #{label 2155}#)
-                                    (#{parse 2116}#
-                                      (cdr #{body 2117}#)
-                                      (cons #{id 2154}# #{ids 2118}#)
-                                      (cons #{label 2155}# #{labels 2119}#)
-                                      #{var-ids 2120}#
-                                      #{vars 2121}#
-                                      #{vals 2122}#
+                                    (begin
+                                      (let ((#{update 30051}#
+                                              (cons (vector-ref #{id 30041}# 1)
+                                                    (vector-ref
+                                                      #{ribcage 29444}#
+                                                      1))))
+                                        (vector-set!
+                                          #{ribcage 29444}#
+                                          1
+                                          #{update 30051}#))
+                                      (let ((#{update 30163}#
+                                              (cons (car (vector-ref
+                                                           #{id 30041}#
+                                                           2))
+                                                    (vector-ref
+                                                      #{ribcage 29444}#
+                                                      2))))
+                                        (vector-set!
+                                          #{ribcage 29444}#
+                                          2
+                                          #{update 30163}#))
+                                      (let ((#{update 30178}#
+                                              (cons #{label 30042}#
+                                                    (vector-ref
+                                                      #{ribcage 29444}#
+                                                      3))))
+                                        (vector-set!
+                                          #{ribcage 29444}#
+                                          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}#
                                       (cons (cons 'macro
-                                                  (cons #{er 2129}#
-                                                        (#{wrap 427}#
-                                                          #{e 2133}#
-                                                          #{w 2134}#
-                                                          #{mod 2136}#)))
-                                            #{bindings 2123}#))))
-                                (if (memv #{type 2131}# '(begin-form))
-                                  (let ((#{tmp 2159}#
+                                                  (cons #{er 29562}#
+                                                        (if (if (null? (car 
#{w 29759}#))
+                                                              (null? (cdr #{w 
29759}#))
+                                                              #f)
+                                                          #{e 29758}#
+                                                          (if (if (vector?
+                                                                    #{e 
29758}#)
+                                                                (if (= 
(vector-length
+                                                                         #{e 
29758}#)
+                                                                       4)
+                                                                  (eq? 
(vector-ref
+                                                                         #{e 
29758}#
+                                                                         0)
+                                                                       
'syntax-object)
+                                                                  #f)
+                                                                #f)
+                                                            (let 
((#{expression 30217}#
+                                                                    (vector-ref
+                                                                      #{e 
29758}#
+                                                                      1))
+                                                                  (#{wrap 
30218}#
+                                                                    (let 
((#{w2 30228}#
+                                                                            
(vector-ref
+                                                                              
#{e 29758}#
+                                                                              
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}#
+                                                                               
       (append
+                                                                               
         #{s1 30230}#
+                                                                               
         #{m2 30247}#)))))
+                                                                          
(cons (let ((#{m2 30255}#
+                                                                               
         (car #{w2 30228}#)))
+                                                                               
   (if (null? #{m2 30255}#)
+                                                                               
     #{m1 30229}#
+                                                                               
     (append
+                                                                               
       #{m1 30229}#
+                                                                               
       #{m2 30255}#)))
+                                                                               
 (let ((#{m2 30263}#
+                                                                               
         (cdr #{w2 30228}#)))
+                                                                               
   (if (null? #{m2 30263}#)
+                                                                               
     #{s1 30230}#
+                                                                               
     (append
+                                                                               
       #{s1 30230}#
+                                                                               
       #{m2 30263}#))))))))
+                                                                  (#{module 
30219}#
+                                                                    (vector-ref
+                                                                      #{e 
29758}#
+                                                                      3)))
+                                                              (vector
+                                                                'syntax-object
+                                                                #{expression 
30217}#
+                                                                #{wrap 30218}#
+                                                                #{module 
30219}#))
+                                                            (if (null? #{e 
29758}#)
+                                                              #{e 29758}#
+                                                              (vector
+                                                                'syntax-object
+                                                                #{e 29758}#
+                                                                #{w 29759}#
+                                                                #{mod 
29761}#))))))
+                                            #{bindings 29560}#))))
+                                (if (eqv? #{type 29756}# 'begin-form)
+                                  (let ((#{tmp 30290}#
                                           ($sc-dispatch
-                                            #{e 2133}#
+                                            #{e 29758}#
                                             '(_ . each-any))))
-                                    (if #{tmp 2159}#
+                                    (if #{tmp 30290}#
                                       (@apply
-                                        (lambda (#{e1 2161}#)
-                                          (#{parse 2116}#
+                                        (lambda (#{e1 30294}#)
+                                          (#{parse 29446}#
                                             (letrec*
-                                              ((#{f 2164}#
-                                                 (lambda (#{forms 2165}#)
-                                                   (if (null? #{forms 2165}#)
-                                                     (cdr #{body 2117}#)
-                                                     (cons (cons #{er 2129}#
-                                                                 (#{wrap 427}#
-                                                                   (car 
#{forms 2165}#)
-                                                                   #{w 2134}#
-                                                                   #{mod 
2136}#))
-                                                           (#{f 2164}#
-                                                             (cdr #{forms 
2165}#)))))))
-                                              (#{f 2164}# #{e1 2161}#))
-                                            #{ids 2118}#
-                                            #{labels 2119}#
-                                            #{var-ids 2120}#
-                                            #{vars 2121}#
-                                            #{vals 2122}#
-                                            #{bindings 2123}#))
-                                        #{tmp 2159}#)
+                                              ((#{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)
+                                                                     #{x 
30513}#
+                                                                     (if (if 
(vector?
+                                                                               
#{x 30513}#)
+                                                                           (if 
(= (vector-length
+                                                                               
     #{x 30513}#)
+                                                                               
   4)
+                                                                             
(eq? (vector-ref
+                                                                               
     #{x 30513}#
+                                                                               
     0)
+                                                                               
   'syntax-object)
+                                                                             
#f)
+                                                                           #f)
+                                                                       (let 
((#{expression 30531}#
+                                                                               
(vector-ref
+                                                                               
  #{x 30513}#
+                                                                               
  1))
+                                                                             
(#{wrap 30532}#
+                                                                               
(let ((#{w2 30540}#
+                                                                               
        (vector-ref
+                                                                               
          #{x 30513}#
+                                                                               
          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}#
+                                                                               
                  (append
+                                                                               
                    #{s1 30542}#
+                                                                               
                    #{m2 30557}#)))))
+                                                                               
      (cons (let ((#{m2 30565}#
+                                                                               
                    (car #{w2 30540}#)))
+                                                                               
              (if (null? #{m2 30565}#)
+                                                                               
                #{m1 30541}#
+                                                                               
                (append
+                                                                               
                  #{m1 30541}#
+                                                                               
                  #{m2 30565}#)))
+                                                                               
            (let ((#{m2 30573}#
+                                                                               
                    (cdr #{w2 30540}#)))
+                                                                               
              (if (null? #{m2 30573}#)
+                                                                               
                #{s1 30542}#
+                                                                               
                (append
+                                                                               
                  #{s1 30542}#
+                                                                               
                  #{m2 30573}#))))))))
+                                                                             
(#{module 30533}#
+                                                                               
(vector-ref
+                                                                               
  #{x 30513}#
+                                                                               
  3)))
+                                                                         
(vector
+                                                                           
'syntax-object
+                                                                           
#{expression 30531}#
+                                                                           
#{wrap 30532}#
+                                                                           
#{module 30533}#))
+                                                                       (if 
(null? #{x 30513}#)
+                                                                         #{x 
30513}#
+                                                                         
(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}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{e 2133}#)))
-                                  (if (memv #{type 2131}# '(local-syntax-form))
-                                    (#{chi-local-syntax 451}#
-                                      #{value 2132}#
-                                      #{e 2133}#
-                                      #{er 2129}#
-                                      #{w 2134}#
-                                      #{s 2135}#
-                                      #{mod 2136}#
-                                      (lambda (#{forms 2168}#
-                                               #{er 2169}#
-                                               #{w 2170}#
-                                               #{s 2171}#
-                                               #{mod 2172}#)
-                                        (#{parse 2116}#
+                                        #{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}#
                                           (letrec*
-                                            ((#{f 2180}#
-                                               (lambda (#{forms 2181}#)
-                                                 (if (null? #{forms 2181}#)
-                                                   (cdr #{body 2117}#)
-                                                   (cons (cons #{er 2169}#
-                                                               (#{wrap 427}#
-                                                                 (car #{forms 
2181}#)
-                                                                 #{w 2170}#
-                                                                 #{mod 2172}#))
-                                                         (#{f 2180}#
-                                                           (cdr #{forms 
2181}#)))))))
-                                            (#{f 2180}# #{forms 2168}#))
-                                          #{ids 2118}#
-                                          #{labels 2119}#
-                                          #{var-ids 2120}#
-                                          #{vars 2121}#
-                                          #{vals 2122}#
-                                          #{bindings 2123}#)))
-                                    (if (null? #{ids 2118}#)
-                                      (#{build-sequence 303}#
+                                            ((#{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)
+                                                                   #{x 30822}#
+                                                                   (if (if 
(vector?
+                                                                             
#{x 30822}#)
+                                                                         (if 
(= (vector-length
+                                                                               
   #{x 30822}#)
+                                                                               
 4)
+                                                                           
(eq? (vector-ref
+                                                                               
   #{x 30822}#
+                                                                               
   0)
+                                                                               
 'syntax-object)
+                                                                           #f)
+                                                                         #f)
+                                                                     (let 
((#{expression 30840}#
+                                                                             
(vector-ref
+                                                                               
#{x 30822}#
+                                                                               
1))
+                                                                           
(#{wrap 30841}#
+                                                                             
(let ((#{w2 30849}#
+                                                                               
      (vector-ref
+                                                                               
        #{x 30822}#
+                                                                               
        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}#
+                                                                               
                (append
+                                                                               
                  #{s1 30851}#
+                                                                               
                  #{m2 30866}#)))))
+                                                                               
    (cons (let ((#{m2 30874}#
+                                                                               
                  (car #{w2 30849}#)))
+                                                                               
            (if (null? #{m2 30874}#)
+                                                                               
              #{m1 30850}#
+                                                                               
              (append
+                                                                               
                #{m1 30850}#
+                                                                               
                #{m2 30874}#)))
+                                                                               
          (let ((#{m2 30882}#
+                                                                               
                  (cdr #{w2 30849}#)))
+                                                                               
            (if (null? #{m2 30882}#)
+                                                                               
              #{s1 30851}#
+                                                                               
              (append
+                                                                               
                #{s1 30851}#
+                                                                               
                #{m2 30882}#))))))))
+                                                                           
(#{module 30842}#
+                                                                             
(vector-ref
+                                                                               
#{x 30822}#
+                                                                               
3)))
+                                                                       (vector
+                                                                         
'syntax-object
+                                                                         
#{expression 30840}#
+                                                                         
#{wrap 30841}#
+                                                                         
#{module 30842}#))
+                                                                     (if 
(null? #{x 30822}#)
+                                                                       #{x 
30822}#
+                                                                       (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}#
                                         #f
-                                        (map (lambda (#{x 2184}#)
-                                               (#{chi 441}#
-                                                 (cdr #{x 2184}#)
-                                                 (car #{x 2184}#)
+                                        (map (lambda (#{x 30969}#)
+                                               (#{chi 4375}#
+                                                 (cdr #{x 30969}#)
+                                                 (car #{x 30969}#)
                                                  '(())
-                                                 #{mod 2136}#))
-                                             (cons (cons #{er 2129}#
-                                                         (#{source-wrap 429}#
-                                                           #{e 2133}#
-                                                           #{w 2134}#
-                                                           #{s 2135}#
-                                                           #{mod 2136}#))
-                                                   (cdr #{body 2117}#))))
+                                                 #{mod 29761}#))
+                                             (cons (cons #{er 29562}#
+                                                         (let ((#{x 31046}#
+                                                                 (begin
+                                                                   (if (if 
(pair? #{e 29758}#)
+                                                                         #{s 
29760}#
+                                                                         #f)
+                                                                     
(set-source-properties!
+                                                                       #{e 
29758}#
+                                                                       #{s 
29760}#))
+                                                                   #{e 
29758}#)))
+                                                           (if (if (null? (car 
#{w 29759}#))
+                                                                 (null? (cdr 
#{w 29759}#))
+                                                                 #f)
+                                                             #{x 31046}#
+                                                             (if (if (vector?
+                                                                       #{x 
31046}#)
+                                                                   (if (= 
(vector-length
+                                                                            
#{x 31046}#)
+                                                                          4)
+                                                                     (eq? 
(vector-ref
+                                                                            
#{x 31046}#
+                                                                            0)
+                                                                          
'syntax-object)
+                                                                     #f)
+                                                                   #f)
+                                                               (let 
((#{expression 31078}#
+                                                                       
(vector-ref
+                                                                         #{x 
31046}#
+                                                                         1))
+                                                                     (#{wrap 
31079}#
+                                                                       (let 
((#{w2 31087}#
+                                                                               
(vector-ref
+                                                                               
  #{x 31046}#
+                                                                               
  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}#
+                                                                               
          (append
+                                                                               
            #{s1 31089}#
+                                                                               
            #{m2 31104}#)))))
+                                                                             
(cons (let ((#{m2 31112}#
+                                                                               
            (car #{w2 31087}#)))
+                                                                               
      (if (null? #{m2 31112}#)
+                                                                               
        #{m1 31088}#
+                                                                               
        (append
+                                                                               
          #{m1 31088}#
+                                                                               
          #{m2 31112}#)))
+                                                                               
    (let ((#{m2 31120}#
+                                                                               
            (cdr #{w2 31087}#)))
+                                                                               
      (if (null? #{m2 31120}#)
+                                                                               
        #{s1 31089}#
+                                                                               
        (append
+                                                                               
          #{s1 31089}#
+                                                                               
          #{m2 31120}#))))))))
+                                                                     (#{module 
31080}#
+                                                                       
(vector-ref
+                                                                         #{x 
31046}#
+                                                                         3)))
+                                                                 (vector
+                                                                   
'syntax-object
+                                                                   
#{expression 31078}#
+                                                                   #{wrap 
31079}#
+                                                                   #{module 
31080}#))
+                                                               (if (null? #{x 
31046}#)
+                                                                 #{x 31046}#
+                                                                 (vector
+                                                                   
'syntax-object
+                                                                   #{x 31046}#
+                                                                   #{w 29759}#
+                                                                   #{mod 
29761}#))))))
+                                                   (cdr #{body 29554}#))))
                                       (begin
-                                        (if (not (#{valid-bound-ids? 421}#
-                                                   #{ids 2118}#))
+                                        (if (not (#{valid-bound-ids? 4365}#
+                                                   #{ids 29555}#))
                                           (syntax-violation
                                             #f
                                             "invalid or duplicate identifier 
in definition"
-                                            #{outer-form 2088}#))
+                                            #{outer-form 29439}#))
                                         (letrec*
-                                          ((#{loop 2191}#
-                                             (lambda (#{bs 2192}#
-                                                      #{er-cache 2193}#
-                                                      #{r-cache 2194}#)
-                                               (if (not (null? #{bs 2192}#))
-                                                 (let ((#{b 2197}#
-                                                         (car #{bs 2192}#)))
-                                                   (if (eq? (car #{b 2197}#)
+                                          ((#{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}#)
                                                             'macro)
-                                                     (let ((#{er 2200}#
-                                                             (car (cdr #{b 
2197}#))))
-                                                       (let ((#{r-cache 2202}#
-                                                               (if (eq? #{er 
2200}#
-                                                                        
#{er-cache 2193}#)
-                                                                 #{r-cache 
2194}#
-                                                                 
(#{macros-only-env 345}#
-                                                                   #{er 
2200}#))))
+                                                     (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}#))))
                                                          (begin
                                                            (set-cdr!
-                                                             #{b 2197}#
-                                                             
(#{eval-local-transformer 453}#
-                                                               (#{chi 441}#
-                                                                 (cdr (cdr #{b 
2197}#))
-                                                                 #{r-cache 
2202}#
+                                                             #{b 31223}#
+                                                             
(#{eval-local-transformer 4381}#
+                                                               (#{chi 4375}#
+                                                                 (cdr (cdr #{b 
31223}#))
+                                                                 #{r-cache 
31226}#
                                                                  '(())
-                                                                 #{mod 2136}#)
-                                                               #{mod 2136}#))
-                                                           (#{loop 2191}#
-                                                             (cdr #{bs 2192}#)
-                                                             #{er 2200}#
-                                                             #{r-cache 
2202}#))))
-                                                     (#{loop 2191}#
-                                                       (cdr #{bs 2192}#)
-                                                       #{er-cache 2193}#
-                                                       #{r-cache 2194}#)))))))
-                                          (#{loop 2191}#
-                                            #{bindings 2123}#
+                                                                 #{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}#
                                             #f
                                             #f))
                                         (set-cdr!
-                                          #{r 2099}#
-                                          (#{extend-env 341}#
-                                            #{labels 2119}#
-                                            #{bindings 2123}#
-                                            (cdr #{r 2099}#)))
-                                        (#{build-letrec 309}#
+                                          #{r 29443}#
+                                          (#{extend-env 4337}#
+                                            #{labels 29556}#
+                                            #{bindings 29560}#
+                                            (cdr #{r 29443}#)))
+                                        (#{build-letrec 4327}#
                                           #f
                                           #t
                                           (reverse
                                             (map syntax->datum
-                                                 #{var-ids 2120}#))
-                                          (reverse #{vars 2121}#)
-                                          (map (lambda (#{x 2205}#)
-                                                 (#{chi 441}#
-                                                   (cdr #{x 2205}#)
-                                                   (car #{x 2205}#)
+                                                 #{var-ids 29557}#))
+                                          (reverse #{vars 29558}#)
+                                          (map (lambda (#{x 31641}#)
+                                                 (#{chi 4375}#
+                                                   (cdr #{x 31641}#)
+                                                   (car #{x 31641}#)
                                                    '(())
-                                                   #{mod 2136}#))
-                                               (reverse #{vals 2122}#))
-                                          (#{build-sequence 303}#
+                                                   #{mod 29761}#))
+                                               (reverse #{vals 29559}#))
+                                          (#{build-sequence 4324}#
                                             #f
-                                            (map (lambda (#{x 2209}#)
-                                                   (#{chi 441}#
-                                                     (cdr #{x 2209}#)
-                                                     (car #{x 2209}#)
+                                            (map (lambda (#{x 31781}#)
+                                                   (#{chi 4375}#
+                                                     (cdr #{x 31781}#)
+                                                     (car #{x 31781}#)
                                                      '(())
-                                                     #{mod 2136}#))
-                                                 (cons (cons #{er 2129}#
-                                                             (#{source-wrap 
429}#
-                                                               #{e 2133}#
-                                                               #{w 2134}#
-                                                               #{s 2135}#
-                                                               #{mod 2136}#))
-                                                       (cdr #{body 
2117}#))))))))))))))))))
-               (#{parse 2116}#
-                 (map (lambda (#{x 2124}#)
-                        (cons #{r 2099}#
-                              (#{wrap 427}#
-                                #{x 2124}#
-                                #{w 2104}#
-                                #{mod 2091}#)))
-                      #{body 2087}#)
+                                                     #{mod 29761}#))
+                                                 (cons (cons #{er 29562}#
+                                                             (let ((#{x 31858}#
+                                                                     (begin
+                                                                       (if (if 
(pair? #{e 29758}#)
+                                                                             
#{s 29760}#
+                                                                             
#f)
+                                                                         
(set-source-properties!
+                                                                           #{e 
29758}#
+                                                                           #{s 
29760}#))
+                                                                       #{e 
29758}#)))
+                                                               (if (if (null? 
(car #{w 29759}#))
+                                                                     (null? 
(cdr #{w 29759}#))
+                                                                     #f)
+                                                                 #{x 31858}#
+                                                                 (if (if 
(vector?
+                                                                           #{x 
31858}#)
+                                                                       (if (= 
(vector-length
+                                                                               
 #{x 31858}#)
+                                                                              
4)
+                                                                         (eq? 
(vector-ref
+                                                                               
 #{x 31858}#
+                                                                               
 0)
+                                                                              
'syntax-object)
+                                                                         #f)
+                                                                       #f)
+                                                                   (let 
((#{expression 31890}#
+                                                                           
(vector-ref
+                                                                             
#{x 31858}#
+                                                                             
1))
+                                                                         
(#{wrap 31891}#
+                                                                           
(let ((#{w2 31899}#
+                                                                               
    (vector-ref
+                                                                               
      #{x 31858}#
+                                                                               
      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}#
+                                                                               
              (append
+                                                                               
                #{s1 31901}#
+                                                                               
                #{m2 31916}#)))))
+                                                                               
  (cons (let ((#{m2 31924}#
+                                                                               
                (car #{w2 31899}#)))
+                                                                               
          (if (null? #{m2 31924}#)
+                                                                               
            #{m1 31900}#
+                                                                               
            (append
+                                                                               
              #{m1 31900}#
+                                                                               
              #{m2 31924}#)))
+                                                                               
        (let ((#{m2 31932}#
+                                                                               
                (cdr #{w2 31899}#)))
+                                                                               
          (if (null? #{m2 31932}#)
+                                                                               
            #{s1 31901}#
+                                                                               
            (append
+                                                                               
              #{s1 31901}#
+                                                                               
              #{m2 31932}#))))))))
+                                                                         
(#{module 31892}#
+                                                                           
(vector-ref
+                                                                             
#{x 31858}#
+                                                                             
3)))
+                                                                     (vector
+                                                                       
'syntax-object
+                                                                       
#{expression 31890}#
+                                                                       #{wrap 
31891}#
+                                                                       
#{module 31892}#))
+                                                                   (if (null? 
#{x 31858}#)
+                                                                     #{x 
31858}#
+                                                                     (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}#))
+                                    #f)
+                                #{x 29449}#
+                                (if (if (vector? #{x 29449}#)
+                                      (if (= (vector-length #{x 29449}#) 4)
+                                        (eq? (vector-ref #{x 29449}# 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}#
+                                                            (append
+                                                              #{s1 29498}#
+                                                              #{m2 29515}#)))))
+                                                (cons (let ((#{m2 29523}#
+                                                              (car #{w2 
29496}#)))
+                                                        (if (null? #{m2 
29523}#)
+                                                          #{m1 29497}#
+                                                          (append
+                                                            #{m1 29497}#
+                                                            #{m2 29523}#)))
+                                                      (let ((#{m2 29531}#
+                                                              (cdr #{w2 
29496}#)))
+                                                        (if (null? #{m2 
29531}#)
+                                                          #{s1 29498}#
+                                                          (append
+                                                            #{s1 29498}#
+                                                            #{m2 
29531}#))))))))
+                                        (#{module 29487}#
+                                          (vector-ref #{x 29449}# 3)))
+                                    (vector
+                                      'syntax-object
+                                      #{expression 29485}#
+                                      #{wrap 29486}#
+                                      #{module 29487}#))
+                                  (if (null? #{x 29449}#)
+                                    #{x 29449}#
+                                    (vector
+                                      'syntax-object
+                                      #{x 29449}#
+                                      #{w 29445}#
+                                      #{mod 29442}#))))))
+                      #{body 29438}#)
                  '()
                  '()
                  '()
                  '()
                  '()
                  '())))))))
-   (#{chi-local-syntax 451}#
-     (lambda (#{rec? 2212}#
-              #{e 2213}#
-              #{r 2214}#
-              #{w 2215}#
-              #{s 2216}#
-              #{mod 2217}#
-              #{k 2218}#)
-       (let ((#{tmp 2227}#
+   (#{chi-local-syntax 4380}#
+     (lambda (#{rec? 31947}#
+              #{e 31948}#
+              #{r 31949}#
+              #{w 31950}#
+              #{s 31951}#
+              #{mod 31952}#
+              #{k 31953}#)
+       (let ((#{tmp 31955}#
                ($sc-dispatch
-                 #{e 2213}#
+                 #{e 31948}#
                  '(_ #(each (any any)) any . each-any))))
-         (if #{tmp 2227}#
+         (if #{tmp 31955}#
            (@apply
-             (lambda (#{id 2232}#
-                      #{val 2233}#
-                      #{e1 2234}#
-                      #{e2 2235}#)
-               (if (not (#{valid-bound-ids? 421}# #{id 2232}#))
+             (lambda (#{id 31959}#
+                      #{val 31960}#
+                      #{e1 31961}#
+                      #{e2 31962}#)
+               (if (not (#{valid-bound-ids? 4365}# #{id 31959}#))
                  (syntax-violation
                    #f
                    "duplicate bound keyword"
-                   #{e 2213}#)
-                 (let ((#{labels 2240}#
-                         (#{gen-labels 373}# #{id 2232}#)))
-                   (let ((#{new-w 2242}#
-                           (#{make-binding-wrap 405}#
-                             #{id 2232}#
-                             #{labels 2240}#
-                             #{w 2215}#)))
-                     (#{k 2218}#
-                       (cons #{e1 2234}# #{e2 2235}#)
-                       (#{extend-env 341}#
-                         #{labels 2240}#
-                         (let ((#{trans-r 2247}#
-                                 (#{macros-only-env 345}# #{r 2214}#)))
+                   #{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}#)))
                            (begin
-                             (if #{rec? 2212}# (if #f #f))
-                             (map (lambda (#{x 2248}#)
+                             (if #{rec? 31947}# (if #f #f))
+                             (map (lambda (#{x 32099}#)
                                     (cons 'macro
-                                          (#{eval-local-transformer 453}#
-                                            (#{chi 441}#
-                                              #{x 2248}#
-                                              #{trans-r 2247}#
-                                              (if #{rec? 2212}#
-                                                #{new-w 2242}#
-                                                #{w 2215}#)
-                                              #{mod 2217}#)
-                                            #{mod 2217}#)))
-                                  #{val 2233}#)))
-                         #{r 2214}#)
-                       #{new-w 2242}#
-                       #{s 2216}#
-                       #{mod 2217}#)))))
-             #{tmp 2227}#)
+                                          (#{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}#)
            (syntax-violation
              #f
              "bad local syntax definition"
-             (#{source-wrap 429}#
-               #{e 2213}#
-               #{w 2215}#
-               #{s 2216}#
-               #{mod 2217}#))))))
-   (#{eval-local-transformer 453}#
-     (lambda (#{expanded 2254}# #{mod 2255}#)
-       (let ((#{p 2259}#
-               (#{local-eval-hook 259}#
-                 #{expanded 2254}#
-                 #{mod 2255}#)))
-         (if (procedure? #{p 2259}#)
-           #{p 2259}#
+             (let ((#{x 32422}#
+                     (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}#))
+                     #f)
+                 #{x 32422}#
+                 (if (if (vector? #{x 32422}#)
+                       (if (= (vector-length #{x 32422}#) 4)
+                         (eq? (vector-ref #{x 32422}# 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}#
+                                             (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}#
+                                           (append
+                                             #{s1 32465}#
+                                             #{m2 32496}#))))))))
+                         (#{module 32456}# (vector-ref #{x 32422}# 3)))
+                     (vector
+                       'syntax-object
+                       #{expression 32454}#
+                       #{wrap 32455}#
+                       #{module 32456}#))
+                   (if (null? #{x 32422}#)
+                     #{x 32422}#
+                     (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}#
            (syntax-violation
              #f
              "nonprocedure transformer"
-             #{p 2259}#)))))
-   (#{chi-void 455}#
-     (lambda () (#{build-void 271}# #f)))
-   (#{ellipsis? 457}#
-     (lambda (#{x 2261}#)
-       (if (#{nonsymbol-id? 351}# #{x 2261}#)
-         (#{free-id=? 417}#
-           #{x 2261}#
+             #{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)
+                   #f)
+                 #f)
+             (symbol? (vector-ref #{x 5824}# 1))
+             #f)
+         (#{free-id=? 4363}#
+           #{x 5824}#
            '#(syntax-object
               ...
               ((top)
                #(ribcage () () ())
                #(ribcage () () ())
-               #(ribcage #(x) #((top)) #("i2262"))
+               #(ribcage #(x) #((top)) #("i2263"))
                #(ribcage
                  (lambda-var-list
                    gen-var
@@ -4669,353 +6388,496 @@
                   (top)
                   (top)
                   (top))
-                 ("i470"
-                  "i468"
-                  "i466"
-                  "i464"
-                  "i462"
-                  "i460"
-                  "i458"
-                  "i456"
-                  "i454"
-                  "i452"
-                  "i450"
-                  "i448"
-                  "i446"
-                  "i444"
-                  "i442"
-                  "i440"
-                  "i438"
-                  "i436"
-                  "i434"
-                  "i432"
-                  "i430"
-                  "i428"
-                  "i426"
-                  "i424"
-                  "i422"
-                  "i420"
-                  "i418"
-                  "i416"
-                  "i414"
-                  "i412"
-                  "i410"
-                  "i408"
-                  "i406"
-                  "i404"
+                 ("i471"
+                  "i469"
+                  "i467"
+                  "i465"
+                  "i463"
+                  "i461"
+                  "i459"
+                  "i457"
+                  "i455"
+                  "i453"
+                  "i451"
+                  "i449"
+                  "i447"
+                  "i445"
+                  "i443"
+                  "i441"
+                  "i439"
+                  "i437"
+                  "i435"
+                  "i433"
+                  "i431"
+                  "i429"
+                  "i427"
+                  "i425"
+                  "i423"
+                  "i421"
+                  "i419"
+                  "i417"
+                  "i415"
+                  "i413"
+                  "i411"
+                  "i409"
+                  "i407"
+                  "i405"
+                  "i403"
                   "i402"
-                  "i401"
-                  "i399"
+                  "i400"
+                  "i397"
                   "i396"
                   "i395"
-                  "i394"
+                  "i393"
                   "i392"
-                  "i391"
-                  "i389"
-                  "i387"
-                  "i385"
-                  "i383"
-                  "i381"
-                  "i379"
-                  "i377"
-                  "i375"
-                  "i372"
+                  "i390"
+                  "i388"
+                  "i386"
+                  "i384"
+                  "i382"
+                  "i380"
+                  "i378"
+                  "i376"
+                  "i373"
+                  "i371"
                   "i370"
-                  "i369"
-                  "i367"
-                  "i365"
-                  "i363"
+                  "i368"
+                  "i366"
+                  "i364"
+                  "i362"
                   "i361"
                   "i360"
                   "i359"
-                  "i358"
+                  "i357"
                   "i356"
-                  "i355"
-                  "i352"
-                  "i350"
-                  "i348"
-                  "i346"
-                  "i344"
-                  "i342"
+                  "i353"
+                  "i351"
+                  "i349"
+                  "i347"
+                  "i345"
+                  "i343"
+                  "i341"
                   "i340"
                   "i339"
-                  "i338"
-                  "i336"
+                  "i337"
+                  "i335"
                   "i334"
-                  "i333"
+                  "i331"
                   "i330"
-                  "i329"
-                  "i327"
-                  "i325"
-                  "i323"
-                  "i321"
-                  "i319"
-                  "i317"
-                  "i315"
-                  "i313"
-                  "i311"
-                  "i308"
-                  "i306"
-                  "i304"
-                  "i302"
-                  "i300"
-                  "i298"
-                  "i296"
-                  "i294"
-                  "i292"
-                  "i290"
-                  "i288"
-                  "i286"
-                  "i284"
-                  "i282"
-                  "i280"
-                  "i278"
-                  "i276"
-                  "i274"
-                  "i272"
-                  "i270"
-                  "i268"
-                  "i266"
-                  "i264"
+                  "i328"
+                  "i326"
+                  "i324"
+                  "i322"
+                  "i320"
+                  "i318"
+                  "i316"
+                  "i314"
+                  "i312"
+                  "i309"
+                  "i307"
+                  "i305"
+                  "i303"
+                  "i301"
+                  "i299"
+                  "i297"
+                  "i295"
+                  "i293"
+                  "i291"
+                  "i289"
+                  "i287"
+                  "i285"
+                  "i283"
+                  "i281"
+                  "i279"
+                  "i277"
+                  "i275"
+                  "i273"
+                  "i271"
+                  "i269"
+                  "i267"
+                  "i265"
+                  "i263"
                   "i262"
-                  "i261"
-                  "i258"
+                  "i259"
+                  "i257"
                   "i256"
                   "i255"
                   "i254"
                   "i253"
-                  "i252"
-                  "i250"
-                  "i248"
-                  "i246"
-                  "i243"
-                  "i241"
-                  "i239"
-                  "i237"
-                  "i235"
-                  "i233"
-                  "i231"
-                  "i229"
-                  "i227"
-                  "i225"
-                  "i223"
-                  "i221"
-                  "i219"
-                  "i217"
-                  "i215"
-                  "i213"
-                  "i211"
-                  "i209"
-                  "i207"))
+                  "i251"
+                  "i249"
+                  "i247"
+                  "i244"
+                  "i242"
+                  "i240"
+                  "i238"
+                  "i236"
+                  "i234"
+                  "i232"
+                  "i230"
+                  "i228"
+                  "i226"
+                  "i224"
+                  "i222"
+                  "i220"
+                  "i218"
+                  "i216"
+                  "i214"
+                  "i212"
+                  "i210"
+                  "i208"))
                #(ribcage
                  (define-structure
                    define-expansion-accessors
                    define-expansion-constructors)
                  ((top) (top) (top))
-                 ("i45" "i44" "i43")))
+                 ("i46" "i45" "i44")))
               (hygiene guile)))
          #f)))
-   (#{lambda-formals 459}#
-     (lambda (#{orig-args 2265}#)
+   (#{lambda-formals 4384}#
+     (lambda (#{orig-args 32521}#)
        (letrec*
-         ((#{req 2268}#
-            (lambda (#{args 2271}# #{rreq 2272}#)
-              (let ((#{tmp 2276}# ($sc-dispatch #{args 2271}# '())))
-                (if #{tmp 2276}#
+         ((#{req 32522}#
+            (lambda (#{args 32526}# #{rreq 32527}#)
+              (let ((#{tmp 32529}# ($sc-dispatch #{args 32526}# '())))
+                (if #{tmp 32529}#
                   (@apply
                     (lambda ()
-                      (#{check 2270}# (reverse #{rreq 2272}#) #f))
-                    #{tmp 2276}#)
-                  (let ((#{tmp 2277}#
-                          ($sc-dispatch #{args 2271}# '(any . any))))
-                    (if (if #{tmp 2277}#
+                      (#{check 32523}# (reverse #{rreq 32527}#) #f))
+                    #{tmp 32529}#)
+                  (let ((#{tmp 32645}#
+                          ($sc-dispatch #{args 32526}# '(any . any))))
+                    (if (if #{tmp 32645}#
                           (@apply
-                            (lambda (#{a 2280}# #{b 2281}#)
-                              (#{id? 353}# #{a 2280}#))
-                            #{tmp 2277}#)
+                            (lambda (#{a 32649}# #{b 32650}#)
+                              (if (symbol? #{a 32649}#)
+                                #t
+                                (if (if (vector? #{a 32649}#)
+                                      (if (= (vector-length #{a 32649}#) 4)
+                                        (eq? (vector-ref #{a 32649}# 0)
+                                             'syntax-object)
+                                        #f)
+                                      #f)
+                                  (symbol? (vector-ref #{a 32649}# 1))
+                                  #f)))
+                            #{tmp 32645}#)
                           #f)
                       (@apply
-                        (lambda (#{a 2284}# #{b 2285}#)
-                          (#{req 2268}#
-                            #{b 2285}#
-                            (cons #{a 2284}# #{rreq 2272}#)))
-                        #{tmp 2277}#)
-                      (let ((#{tmp 2286}# (list #{args 2271}#)))
-                        (if (if #{tmp 2286}#
-                              (@apply
-                                (lambda (#{r 2288}#) (#{id? 353}# #{r 2288}#))
-                                #{tmp 2286}#)
-                              #f)
+                        (lambda (#{a 32677}# #{b 32678}#)
+                          (#{req 32522}#
+                            #{b 32678}#
+                            (cons #{a 32677}# #{rreq 32527}#)))
+                        #{tmp 32645}#)
+                      (let ((#{tmp 32679}# (list #{args 32526}#)))
+                        (if (@apply
+                              (lambda (#{r 32681}#)
+                                (if (symbol? #{r 32681}#)
+                                  #t
+                                  (if (if (vector? #{r 32681}#)
+                                        (if (= (vector-length #{r 32681}#) 4)
+                                          (eq? (vector-ref #{r 32681}# 0)
+                                               'syntax-object)
+                                          #f)
+                                        #f)
+                                    (symbol? (vector-ref #{r 32681}# 1))
+                                    #f)))
+                              #{tmp 32679}#)
                           (@apply
-                            (lambda (#{r 2290}#)
-                              (#{check 2270}#
-                                (reverse #{rreq 2272}#)
-                                #{r 2290}#))
-                            #{tmp 2286}#)
+                            (lambda (#{r 32711}#)
+                              (#{check 32523}#
+                                (reverse #{rreq 32527}#)
+                                #{r 32711}#))
+                            #{tmp 32679}#)
                           (syntax-violation
                             'lambda
                             "invalid argument list"
-                            #{orig-args 2265}#
-                            #{args 2271}#)))))))))
-          (#{check 2270}#
-            (lambda (#{req 2293}# #{rest 2294}#)
-              (if (#{distinct-bound-ids? 423}#
-                    (if #{rest 2294}#
-                      (cons #{rest 2294}# #{req 2293}#)
-                      #{req 2293}#))
-                (values #{req 2293}# #f #{rest 2294}# #f)
+                            #{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)
                 (syntax-violation
                   'lambda
                   "duplicate identifier in argument list"
-                  #{orig-args 2265}#)))))
-         (#{req 2268}# #{orig-args 2265}# '()))))
-   (#{lambda*-formals 463}#
-     (lambda (#{orig-args 2327}#)
+                  #{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}#)
+                 #f)
+               #{vars 32955}#
+               #{meta 32952}#
+               (#{chi-body 4379}#
+                 #{body 32953}#
+                 (let ((#{x 33145}#
+                         (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}#))
+                         #f)
+                     #{x 33145}#
+                     (if (if (vector? #{x 33145}#)
+                           (if (= (vector-length #{x 33145}#) 4)
+                             (eq? (vector-ref #{x 33145}# 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}#
+                                                 (append
+                                                   #{s1 33188}#
+                                                   #{m2 33203}#)))))
+                                     (cons (let ((#{m2 33211}#
+                                                   (car #{w2 33186}#)))
+                                             (if (null? #{m2 33211}#)
+                                               #{m1 33187}#
+                                               (append
+                                                 #{m1 33187}#
+                                                 #{m2 33211}#)))
+                                           (let ((#{m2 33219}#
+                                                   (cdr #{w2 33186}#)))
+                                             (if (null? #{m2 33219}#)
+                                               #{s1 33188}#
+                                               (append
+                                                 #{s1 33188}#
+                                                 #{m2 33219}#))))))))
+                             (#{module 33179}# (vector-ref #{x 33145}# 3)))
+                         (vector
+                           'syntax-object
+                           #{expression 33177}#
+                           #{wrap 33178}#
+                           #{module 33179}#))
+                       (if (null? #{x 33145}#)
+                         #{x 33145}#
+                         (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}#)
        (letrec*
-         ((#{req 2330}#
-            (lambda (#{args 2339}# #{rreq 2340}#)
-              (let ((#{tmp 2344}# ($sc-dispatch #{args 2339}# '())))
-                (if #{tmp 2344}#
+         ((#{req 33451}#
+            (lambda (#{args 33458}# #{rreq 33459}#)
+              (let ((#{tmp 33461}# ($sc-dispatch #{args 33458}# '())))
+                (if #{tmp 33461}#
                   (@apply
                     (lambda ()
-                      (#{check 2338}#
-                        (reverse #{rreq 2340}#)
+                      (#{check 33455}#
+                        (reverse #{rreq 33459}#)
                         '()
                         #f
                         '()))
-                    #{tmp 2344}#)
-                  (let ((#{tmp 2345}#
-                          ($sc-dispatch #{args 2339}# '(any . any))))
-                    (if (if #{tmp 2345}#
+                    #{tmp 33461}#)
+                  (let ((#{tmp 33580}#
+                          ($sc-dispatch #{args 33458}# '(any . any))))
+                    (if (if #{tmp 33580}#
                           (@apply
-                            (lambda (#{a 2348}# #{b 2349}#)
-                              (#{id? 353}# #{a 2348}#))
-                            #{tmp 2345}#)
+                            (lambda (#{a 33584}# #{b 33585}#)
+                              (if (symbol? #{a 33584}#)
+                                #t
+                                (if (if (vector? #{a 33584}#)
+                                      (if (= (vector-length #{a 33584}#) 4)
+                                        (eq? (vector-ref #{a 33584}# 0)
+                                             'syntax-object)
+                                        #f)
+                                      #f)
+                                  (symbol? (vector-ref #{a 33584}# 1))
+                                  #f)))
+                            #{tmp 33580}#)
                           #f)
                       (@apply
-                        (lambda (#{a 2352}# #{b 2353}#)
-                          (#{req 2330}#
-                            #{b 2353}#
-                            (cons #{a 2352}# #{rreq 2340}#)))
-                        #{tmp 2345}#)
-                      (let ((#{tmp 2354}#
-                              ($sc-dispatch #{args 2339}# '(any . any))))
-                        (if (if #{tmp 2354}#
+                        (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}#
                               (@apply
-                                (lambda (#{a 2357}# #{b 2358}#)
-                                  (eq? (syntax->datum #{a 2357}#) #:optional))
-                                #{tmp 2354}#)
+                                (lambda (#{a 33618}# #{b 33619}#)
+                                  (eq? (syntax->datum #{a 33618}#) #:optional))
+                                #{tmp 33614}#)
                               #f)
                           (@apply
-                            (lambda (#{a 2361}# #{b 2362}#)
-                              (#{opt 2332}#
-                                #{b 2362}#
-                                (reverse #{rreq 2340}#)
+                            (lambda (#{a 33620}# #{b 33621}#)
+                              (#{opt 33452}#
+                                #{b 33621}#
+                                (reverse #{rreq 33459}#)
                                 '()))
-                            #{tmp 2354}#)
-                          (let ((#{tmp 2363}#
-                                  ($sc-dispatch #{args 2339}# '(any . any))))
-                            (if (if #{tmp 2363}#
+                            #{tmp 33614}#)
+                          (let ((#{tmp 33624}#
+                                  ($sc-dispatch #{args 33458}# '(any . any))))
+                            (if (if #{tmp 33624}#
                                   (@apply
-                                    (lambda (#{a 2366}# #{b 2367}#)
-                                      (eq? (syntax->datum #{a 2366}#) #:key))
-                                    #{tmp 2363}#)
+                                    (lambda (#{a 33628}# #{b 33629}#)
+                                      (eq? (syntax->datum #{a 33628}#) #:key))
+                                    #{tmp 33624}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 2370}# #{b 2371}#)
-                                  (#{key 2334}#
-                                    #{b 2371}#
-                                    (reverse #{rreq 2340}#)
+                                (lambda (#{a 33630}# #{b 33631}#)
+                                  (#{key 33453}#
+                                    #{b 33631}#
+                                    (reverse #{rreq 33459}#)
                                     '()
                                     '()))
-                                #{tmp 2363}#)
-                              (let ((#{tmp 2372}#
-                                      ($sc-dispatch #{args 2339}# '(any any))))
-                                (if (if #{tmp 2372}#
+                                #{tmp 33624}#)
+                              (let ((#{tmp 33634}#
+                                      ($sc-dispatch
+                                        #{args 33458}#
+                                        '(any any))))
+                                (if (if #{tmp 33634}#
                                       (@apply
-                                        (lambda (#{a 2375}# #{b 2376}#)
-                                          (eq? (syntax->datum #{a 2375}#)
+                                        (lambda (#{a 33638}# #{b 33639}#)
+                                          (eq? (syntax->datum #{a 33638}#)
                                                #:rest))
-                                        #{tmp 2372}#)
+                                        #{tmp 33634}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a 2379}# #{b 2380}#)
-                                      (#{rest 2336}#
-                                        #{b 2380}#
-                                        (reverse #{rreq 2340}#)
+                                    (lambda (#{a 33640}# #{b 33641}#)
+                                      (#{rest 33454}#
+                                        #{b 33641}#
+                                        (reverse #{rreq 33459}#)
                                         '()
                                         '()))
-                                    #{tmp 2372}#)
-                                  (let ((#{tmp 2381}# (list #{args 2339}#)))
-                                    (if (if #{tmp 2381}#
-                                          (@apply
-                                            (lambda (#{r 2383}#)
-                                              (#{id? 353}# #{r 2383}#))
-                                            #{tmp 2381}#)
-                                          #f)
+                                    #{tmp 33634}#)
+                                  (let ((#{tmp 33644}# (list #{args 33458}#)))
+                                    (if (@apply
+                                          (lambda (#{r 33646}#)
+                                            (if (symbol? #{r 33646}#)
+                                              #t
+                                              (if (if (vector? #{r 33646}#)
+                                                    (if (= (vector-length
+                                                             #{r 33646}#)
+                                                           4)
+                                                      (eq? (vector-ref
+                                                             #{r 33646}#
+                                                             0)
+                                                           'syntax-object)
+                                                      #f)
+                                                    #f)
+                                                (symbol?
+                                                  (vector-ref #{r 33646}# 1))
+                                                #f)))
+                                          #{tmp 33644}#)
                                       (@apply
-                                        (lambda (#{r 2385}#)
-                                          (#{rest 2336}#
-                                            #{r 2385}#
-                                            (reverse #{rreq 2340}#)
+                                        (lambda (#{r 33676}#)
+                                          (#{rest 33454}#
+                                            #{r 33676}#
+                                            (reverse #{rreq 33459}#)
                                             '()
                                             '()))
-                                        #{tmp 2381}#)
+                                        #{tmp 33644}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid argument list"
-                                        #{orig-args 2327}#
-                                        #{args 2339}#)))))))))))))))
-          (#{opt 2332}#
-            (lambda (#{args 2388}# #{req 2389}# #{ropt 2390}#)
-              (let ((#{tmp 2395}# ($sc-dispatch #{args 2388}# '())))
-                (if #{tmp 2395}#
+                                        #{orig-args 33450}#
+                                        #{args 33458}#)))))))))))))))
+          (#{opt 33452}#
+            (lambda (#{args 33695}# #{req 33696}# #{ropt 33697}#)
+              (let ((#{tmp 33699}# ($sc-dispatch #{args 33695}# '())))
+                (if #{tmp 33699}#
                   (@apply
                     (lambda ()
-                      (#{check 2338}#
-                        #{req 2389}#
-                        (reverse #{ropt 2390}#)
+                      (#{check 33455}#
+                        #{req 33696}#
+                        (reverse #{ropt 33697}#)
                         #f
                         '()))
-                    #{tmp 2395}#)
-                  (let ((#{tmp 2396}#
-                          ($sc-dispatch #{args 2388}# '(any . any))))
-                    (if (if #{tmp 2396}#
+                    #{tmp 33699}#)
+                  (let ((#{tmp 33820}#
+                          ($sc-dispatch #{args 33695}# '(any . any))))
+                    (if (if #{tmp 33820}#
                           (@apply
-                            (lambda (#{a 2399}# #{b 2400}#)
-                              (#{id? 353}# #{a 2399}#))
-                            #{tmp 2396}#)
+                            (lambda (#{a 33824}# #{b 33825}#)
+                              (if (symbol? #{a 33824}#)
+                                #t
+                                (if (if (vector? #{a 33824}#)
+                                      (if (= (vector-length #{a 33824}#) 4)
+                                        (eq? (vector-ref #{a 33824}# 0)
+                                             'syntax-object)
+                                        #f)
+                                      #f)
+                                  (symbol? (vector-ref #{a 33824}# 1))
+                                  #f)))
+                            #{tmp 33820}#)
                           #f)
                       (@apply
-                        (lambda (#{a 2403}# #{b 2404}#)
-                          (#{opt 2332}#
-                            #{b 2404}#
-                            #{req 2389}#
-                            (cons (cons #{a 2403}#
+                        (lambda (#{a 33852}# #{b 33853}#)
+                          (#{opt 33452}#
+                            #{b 33853}#
+                            #{req 33696}#
+                            (cons (cons #{a 33852}#
                                         '(#(syntax-object
                                             #f
                                             ((top)
                                              #(ribcage
                                                #(a b)
                                                #((top) (top))
-                                               #("i2401" "i2402"))
+                                               #("i2402" "i2403"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(args req ropt)
                                                #((top) (top) (top))
-                                               #("i2391" "i2392" "i2393"))
+                                               #("i2392" "i2393" "i2394"))
                                              #(ribcage
                                                (check rest key opt req)
                                                ((top) (top) (top) (top) (top))
-                                               ("i2337"
-                                                "i2335"
-                                                "i2333"
-                                                "i2331"
-                                                "i2329"))
+                                               ("i2338"
+                                                "i2336"
+                                                "i2334"
+                                                "i2332"
+                                                "i2330"))
                                              #(ribcage
                                                #(orig-args)
                                                #((top))
-                                               #("i2328"))
+                                               #("i2329"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -5293,256 +7155,292 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i470"
-                                                "i468"
-                                                "i466"
-                                                "i464"
-                                                "i462"
-                                                "i460"
-                                                "i458"
-                                                "i456"
-                                                "i454"
-                                                "i452"
-                                                "i450"
-                                                "i448"
-                                                "i446"
-                                                "i444"
-                                                "i442"
-                                                "i440"
-                                                "i438"
-                                                "i436"
-                                                "i434"
-                                                "i432"
-                                                "i430"
-                                                "i428"
-                                                "i426"
-                                                "i424"
-                                                "i422"
-                                                "i420"
-                                                "i418"
-                                                "i416"
-                                                "i414"
-                                                "i412"
-                                                "i410"
-                                                "i408"
-                                                "i406"
-                                                "i404"
+                                               ("i471"
+                                                "i469"
+                                                "i467"
+                                                "i465"
+                                                "i463"
+                                                "i461"
+                                                "i459"
+                                                "i457"
+                                                "i455"
+                                                "i453"
+                                                "i451"
+                                                "i449"
+                                                "i447"
+                                                "i445"
+                                                "i443"
+                                                "i441"
+                                                "i439"
+                                                "i437"
+                                                "i435"
+                                                "i433"
+                                                "i431"
+                                                "i429"
+                                                "i427"
+                                                "i425"
+                                                "i423"
+                                                "i421"
+                                                "i419"
+                                                "i417"
+                                                "i415"
+                                                "i413"
+                                                "i411"
+                                                "i409"
+                                                "i407"
+                                                "i405"
+                                                "i403"
                                                 "i402"
-                                                "i401"
-                                                "i399"
+                                                "i400"
+                                                "i397"
                                                 "i396"
                                                 "i395"
-                                                "i394"
+                                                "i393"
                                                 "i392"
-                                                "i391"
-                                                "i389"
-                                                "i387"
-                                                "i385"
-                                                "i383"
-                                                "i381"
-                                                "i379"
-                                                "i377"
-                                                "i375"
-                                                "i372"
+                                                "i390"
+                                                "i388"
+                                                "i386"
+                                                "i384"
+                                                "i382"
+                                                "i380"
+                                                "i378"
+                                                "i376"
+                                                "i373"
+                                                "i371"
                                                 "i370"
-                                                "i369"
-                                                "i367"
-                                                "i365"
-                                                "i363"
+                                                "i368"
+                                                "i366"
+                                                "i364"
+                                                "i362"
                                                 "i361"
                                                 "i360"
                                                 "i359"
-                                                "i358"
+                                                "i357"
                                                 "i356"
-                                                "i355"
-                                                "i352"
-                                                "i350"
-                                                "i348"
-                                                "i346"
-                                                "i344"
-                                                "i342"
+                                                "i353"
+                                                "i351"
+                                                "i349"
+                                                "i347"
+                                                "i345"
+                                                "i343"
+                                                "i341"
                                                 "i340"
                                                 "i339"
-                                                "i338"
-                                                "i336"
+                                                "i337"
+                                                "i335"
                                                 "i334"
-                                                "i333"
+                                                "i331"
                                                 "i330"
-                                                "i329"
-                                                "i327"
-                                                "i325"
-                                                "i323"
-                                                "i321"
-                                                "i319"
-                                                "i317"
-                                                "i315"
-                                                "i313"
-                                                "i311"
-                                                "i308"
-                                                "i306"
-                                                "i304"
-                                                "i302"
-                                                "i300"
-                                                "i298"
-                                                "i296"
-                                                "i294"
-                                                "i292"
-                                                "i290"
-                                                "i288"
-                                                "i286"
-                                                "i284"
-                                                "i282"
-                                                "i280"
-                                                "i278"
-                                                "i276"
-                                                "i274"
-                                                "i272"
-                                                "i270"
-                                                "i268"
-                                                "i266"
-                                                "i264"
+                                                "i328"
+                                                "i326"
+                                                "i324"
+                                                "i322"
+                                                "i320"
+                                                "i318"
+                                                "i316"
+                                                "i314"
+                                                "i312"
+                                                "i309"
+                                                "i307"
+                                                "i305"
+                                                "i303"
+                                                "i301"
+                                                "i299"
+                                                "i297"
+                                                "i295"
+                                                "i293"
+                                                "i291"
+                                                "i289"
+                                                "i287"
+                                                "i285"
+                                                "i283"
+                                                "i281"
+                                                "i279"
+                                                "i277"
+                                                "i275"
+                                                "i273"
+                                                "i271"
+                                                "i269"
+                                                "i267"
+                                                "i265"
+                                                "i263"
                                                 "i262"
-                                                "i261"
-                                                "i258"
+                                                "i259"
+                                                "i257"
                                                 "i256"
                                                 "i255"
                                                 "i254"
                                                 "i253"
-                                                "i252"
-                                                "i250"
-                                                "i248"
-                                                "i246"
-                                                "i243"
-                                                "i241"
-                                                "i239"
-                                                "i237"
-                                                "i235"
-                                                "i233"
-                                                "i231"
-                                                "i229"
-                                                "i227"
-                                                "i225"
-                                                "i223"
-                                                "i221"
-                                                "i219"
-                                                "i217"
-                                                "i215"
-                                                "i213"
-                                                "i211"
-                                                "i209"
-                                                "i207"))
+                                                "i251"
+                                                "i249"
+                                                "i247"
+                                                "i244"
+                                                "i242"
+                                                "i240"
+                                                "i238"
+                                                "i236"
+                                                "i234"
+                                                "i232"
+                                                "i230"
+                                                "i228"
+                                                "i226"
+                                                "i224"
+                                                "i222"
+                                                "i220"
+                                                "i218"
+                                                "i216"
+                                                "i214"
+                                                "i212"
+                                                "i210"
+                                                "i208"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors)
                                                ((top) (top) (top))
-                                               ("i45" "i44" "i43")))
+                                               ("i46" "i45" "i44")))
                                             (hygiene guile))))
-                                  #{ropt 2390}#)))
-                        #{tmp 2396}#)
-                      (let ((#{tmp 2405}#
-                              ($sc-dispatch #{args 2388}# '((any any) . any))))
-                        (if (if #{tmp 2405}#
+                                  #{ropt 33697}#)))
+                        #{tmp 33820}#)
+                      (let ((#{tmp 33854}#
+                              ($sc-dispatch
+                                #{args 33695}#
+                                '((any any) . any))))
+                        (if (if #{tmp 33854}#
                               (@apply
-                                (lambda (#{a 2409}# #{init 2410}# #{b 2411}#)
-                                  (#{id? 353}# #{a 2409}#))
-                                #{tmp 2405}#)
+                                (lambda (#{a 33858}#
+                                         #{init 33859}#
+                                         #{b 33860}#)
+                                  (if (symbol? #{a 33858}#)
+                                    #t
+                                    (if (if (vector? #{a 33858}#)
+                                          (if (= (vector-length #{a 33858}#) 4)
+                                            (eq? (vector-ref #{a 33858}# 0)
+                                                 'syntax-object)
+                                            #f)
+                                          #f)
+                                      (symbol? (vector-ref #{a 33858}# 1))
+                                      #f)))
+                                #{tmp 33854}#)
                               #f)
                           (@apply
-                            (lambda (#{a 2415}# #{init 2416}# #{b 2417}#)
-                              (#{opt 2332}#
-                                #{b 2417}#
-                                #{req 2389}#
-                                (cons (list #{a 2415}# #{init 2416}#)
-                                      #{ropt 2390}#)))
-                            #{tmp 2405}#)
-                          (let ((#{tmp 2418}#
-                                  ($sc-dispatch #{args 2388}# '(any . any))))
-                            (if (if #{tmp 2418}#
+                            (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}#
                                   (@apply
-                                    (lambda (#{a 2421}# #{b 2422}#)
-                                      (eq? (syntax->datum #{a 2421}#) #:key))
-                                    #{tmp 2418}#)
+                                    (lambda (#{a 33894}# #{b 33895}#)
+                                      (eq? (syntax->datum #{a 33894}#) #:key))
+                                    #{tmp 33890}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 2425}# #{b 2426}#)
-                                  (#{key 2334}#
-                                    #{b 2426}#
-                                    #{req 2389}#
-                                    (reverse #{ropt 2390}#)
+                                (lambda (#{a 33896}# #{b 33897}#)
+                                  (#{key 33453}#
+                                    #{b 33897}#
+                                    #{req 33696}#
+                                    (reverse #{ropt 33697}#)
                                     '()))
-                                #{tmp 2418}#)
-                              (let ((#{tmp 2427}#
-                                      ($sc-dispatch #{args 2388}# '(any any))))
-                                (if (if #{tmp 2427}#
+                                #{tmp 33890}#)
+                              (let ((#{tmp 33900}#
+                                      ($sc-dispatch
+                                        #{args 33695}#
+                                        '(any any))))
+                                (if (if #{tmp 33900}#
                                       (@apply
-                                        (lambda (#{a 2430}# #{b 2431}#)
-                                          (eq? (syntax->datum #{a 2430}#)
+                                        (lambda (#{a 33904}# #{b 33905}#)
+                                          (eq? (syntax->datum #{a 33904}#)
                                                #:rest))
-                                        #{tmp 2427}#)
+                                        #{tmp 33900}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a 2434}# #{b 2435}#)
-                                      (#{rest 2336}#
-                                        #{b 2435}#
-                                        #{req 2389}#
-                                        (reverse #{ropt 2390}#)
+                                    (lambda (#{a 33906}# #{b 33907}#)
+                                      (#{rest 33454}#
+                                        #{b 33907}#
+                                        #{req 33696}#
+                                        (reverse #{ropt 33697}#)
                                         '()))
-                                    #{tmp 2427}#)
-                                  (let ((#{tmp 2436}# (list #{args 2388}#)))
-                                    (if (if #{tmp 2436}#
-                                          (@apply
-                                            (lambda (#{r 2438}#)
-                                              (#{id? 353}# #{r 2438}#))
-                                            #{tmp 2436}#)
-                                          #f)
+                                    #{tmp 33900}#)
+                                  (let ((#{tmp 33910}# (list #{args 33695}#)))
+                                    (if (@apply
+                                          (lambda (#{r 33912}#)
+                                            (if (symbol? #{r 33912}#)
+                                              #t
+                                              (if (if (vector? #{r 33912}#)
+                                                    (if (= (vector-length
+                                                             #{r 33912}#)
+                                                           4)
+                                                      (eq? (vector-ref
+                                                             #{r 33912}#
+                                                             0)
+                                                           'syntax-object)
+                                                      #f)
+                                                    #f)
+                                                (symbol?
+                                                  (vector-ref #{r 33912}# 1))
+                                                #f)))
+                                          #{tmp 33910}#)
                                       (@apply
-                                        (lambda (#{r 2440}#)
-                                          (#{rest 2336}#
-                                            #{r 2440}#
-                                            #{req 2389}#
-                                            (reverse #{ropt 2390}#)
+                                        (lambda (#{r 33942}#)
+                                          (#{rest 33454}#
+                                            #{r 33942}#
+                                            #{req 33696}#
+                                            (reverse #{ropt 33697}#)
                                             '()))
-                                        #{tmp 2436}#)
+                                        #{tmp 33910}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid optional argument list"
-                                        #{orig-args 2327}#
-                                        #{args 2388}#)))))))))))))))
-          (#{key 2334}#
-            (lambda (#{args 2443}#
-                     #{req 2444}#
-                     #{opt 2445}#
-                     #{rkey 2446}#)
-              (let ((#{tmp 2452}# ($sc-dispatch #{args 2443}# '())))
-                (if #{tmp 2452}#
+                                        #{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}#
                   (@apply
                     (lambda ()
-                      (#{check 2338}#
-                        #{req 2444}#
-                        #{opt 2445}#
+                      (#{check 33455}#
+                        #{req 33962}#
+                        #{opt 33963}#
                         #f
-                        (cons #f (reverse #{rkey 2446}#))))
-                    #{tmp 2452}#)
-                  (let ((#{tmp 2453}#
-                          ($sc-dispatch #{args 2443}# '(any . any))))
-                    (if (if #{tmp 2453}#
+                        (cons #f (reverse #{rkey 33964}#))))
+                    #{tmp 33966}#)
+                  (let ((#{tmp 34088}#
+                          ($sc-dispatch #{args 33961}# '(any . any))))
+                    (if (if #{tmp 34088}#
                           (@apply
-                            (lambda (#{a 2456}# #{b 2457}#)
-                              (#{id? 353}# #{a 2456}#))
-                            #{tmp 2453}#)
+                            (lambda (#{a 34092}# #{b 34093}#)
+                              (if (symbol? #{a 34092}#)
+                                #t
+                                (if (if (vector? #{a 34092}#)
+                                      (if (= (vector-length #{a 34092}#) 4)
+                                        (eq? (vector-ref #{a 34092}# 0)
+                                             'syntax-object)
+                                        #f)
+                                      #f)
+                                  (symbol? (vector-ref #{a 34092}# 1))
+                                  #f)))
+                            #{tmp 34088}#)
                           #f)
                       (@apply
-                        (lambda (#{a 2460}# #{b 2461}#)
-                          (let ((#{tmp 2463}#
+                        (lambda (#{a 34120}# #{b 34121}#)
+                          (let ((#{tmp 34122}#
                                   (symbol->keyword
-                                    (syntax->datum #{a 2460}#))))
-                            (#{key 2334}#
-                              #{b 2461}#
-                              #{req 2444}#
-                              #{opt 2445}#
-                              (cons (cons #{tmp 2463}#
-                                          (cons #{a 2460}#
+                                    (syntax->datum #{a 34120}#))))
+                            (#{key 33453}#
+                              #{b 34121}#
+                              #{req 33962}#
+                              #{opt 33963}#
+                              (cons (cons #{tmp 34122}#
+                                          (cons #{a 34120}#
                                                 '(#(syntax-object
                                                     #f
                                                     ((top)
@@ -5550,11 +7448,11 @@
                                                      #(ribcage
                                                        #(k)
                                                        #((top))
-                                                       #("i2464"))
+                                                       #("i2465"))
                                                      #(ribcage
                                                        #(a b)
                                                        #((top) (top))
-                                                       #("i2458" "i2459"))
+                                                       #("i2459" "i2460"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(args req opt rkey)
@@ -5562,10 +7460,10 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                       #("i2447"
-                                                         "i2448"
+                                                       #("i2448"
                                                          "i2449"
-                                                         "i2450"))
+                                                         "i2450"
+                                                         "i2451"))
                                                      #(ribcage
                                                        (check rest key opt req)
                                                        ((top)
@@ -5573,15 +7471,15 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i2337"
-                                                        "i2335"
-                                                        "i2333"
-                                                        "i2331"
-                                                        "i2329"))
+                                                       ("i2338"
+                                                        "i2336"
+                                                        "i2334"
+                                                        "i2332"
+                                                        "i2330"))
                                                      #(ribcage
                                                        #(orig-args)
                                                        #((top))
-                                                       #("i2328"))
+                                                       #("i2329"))
                                                      #(ribcage
                                                        (lambda-var-list
                                                          gen-var
@@ -5859,807 +7757,1155 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i470"
-                                                        "i468"
-                                                        "i466"
-                                                        "i464"
-                                                        "i462"
-                                                        "i460"
-                                                        "i458"
-                                                        "i456"
-                                                        "i454"
-                                                        "i452"
-                                                        "i450"
-                                                        "i448"
-                                                        "i446"
-                                                        "i444"
-                                                        "i442"
-                                                        "i440"
-                                                        "i438"
-                                                        "i436"
-                                                        "i434"
-                                                        "i432"
-                                                        "i430"
-                                                        "i428"
-                                                        "i426"
-                                                        "i424"
-                                                        "i422"
-                                                        "i420"
-                                                        "i418"
-                                                        "i416"
-                                                        "i414"
-                                                        "i412"
-                                                        "i410"
-                                                        "i408"
-                                                        "i406"
-                                                        "i404"
+                                                       ("i471"
+                                                        "i469"
+                                                        "i467"
+                                                        "i465"
+                                                        "i463"
+                                                        "i461"
+                                                        "i459"
+                                                        "i457"
+                                                        "i455"
+                                                        "i453"
+                                                        "i451"
+                                                        "i449"
+                                                        "i447"
+                                                        "i445"
+                                                        "i443"
+                                                        "i441"
+                                                        "i439"
+                                                        "i437"
+                                                        "i435"
+                                                        "i433"
+                                                        "i431"
+                                                        "i429"
+                                                        "i427"
+                                                        "i425"
+                                                        "i423"
+                                                        "i421"
+                                                        "i419"
+                                                        "i417"
+                                                        "i415"
+                                                        "i413"
+                                                        "i411"
+                                                        "i409"
+                                                        "i407"
+                                                        "i405"
+                                                        "i403"
                                                         "i402"
-                                                        "i401"
-                                                        "i399"
+                                                        "i400"
+                                                        "i397"
                                                         "i396"
                                                         "i395"
-                                                        "i394"
+                                                        "i393"
                                                         "i392"
-                                                        "i391"
-                                                        "i389"
-                                                        "i387"
-                                                        "i385"
-                                                        "i383"
-                                                        "i381"
-                                                        "i379"
-                                                        "i377"
-                                                        "i375"
-                                                        "i372"
+                                                        "i390"
+                                                        "i388"
+                                                        "i386"
+                                                        "i384"
+                                                        "i382"
+                                                        "i380"
+                                                        "i378"
+                                                        "i376"
+                                                        "i373"
+                                                        "i371"
                                                         "i370"
-                                                        "i369"
-                                                        "i367"
-                                                        "i365"
-                                                        "i363"
+                                                        "i368"
+                                                        "i366"
+                                                        "i364"
+                                                        "i362"
                                                         "i361"
                                                         "i360"
                                                         "i359"
-                                                        "i358"
+                                                        "i357"
                                                         "i356"
-                                                        "i355"
-                                                        "i352"
-                                                        "i350"
-                                                        "i348"
-                                                        "i346"
-                                                        "i344"
-                                                        "i342"
+                                                        "i353"
+                                                        "i351"
+                                                        "i349"
+                                                        "i347"
+                                                        "i345"
+                                                        "i343"
+                                                        "i341"
                                                         "i340"
                                                         "i339"
-                                                        "i338"
-                                                        "i336"
+                                                        "i337"
+                                                        "i335"
                                                         "i334"
-                                                        "i333"
+                                                        "i331"
                                                         "i330"
-                                                        "i329"
-                                                        "i327"
-                                                        "i325"
-                                                        "i323"
-                                                        "i321"
-                                                        "i319"
-                                                        "i317"
-                                                        "i315"
-                                                        "i313"
-                                                        "i311"
-                                                        "i308"
-                                                        "i306"
-                                                        "i304"
-                                                        "i302"
-                                                        "i300"
-                                                        "i298"
-                                                        "i296"
-                                                        "i294"
-                                                        "i292"
-                                                        "i290"
-                                                        "i288"
-                                                        "i286"
-                                                        "i284"
-                                                        "i282"
-                                                        "i280"
-                                                        "i278"
-                                                        "i276"
-                                                        "i274"
-                                                        "i272"
-                                                        "i270"
-                                                        "i268"
-                                                        "i266"
-                                                        "i264"
+                                                        "i328"
+                                                        "i326"
+                                                        "i324"
+                                                        "i322"
+                                                        "i320"
+                                                        "i318"
+                                                        "i316"
+                                                        "i314"
+                                                        "i312"
+                                                        "i309"
+                                                        "i307"
+                                                        "i305"
+                                                        "i303"
+                                                        "i301"
+                                                        "i299"
+                                                        "i297"
+                                                        "i295"
+                                                        "i293"
+                                                        "i291"
+                                                        "i289"
+                                                        "i287"
+                                                        "i285"
+                                                        "i283"
+                                                        "i281"
+                                                        "i279"
+                                                        "i277"
+                                                        "i275"
+                                                        "i273"
+                                                        "i271"
+                                                        "i269"
+                                                        "i267"
+                                                        "i265"
+                                                        "i263"
                                                         "i262"
-                                                        "i261"
-                                                        "i258"
+                                                        "i259"
+                                                        "i257"
                                                         "i256"
                                                         "i255"
                                                         "i254"
                                                         "i253"
-                                                        "i252"
-                                                        "i250"
-                                                        "i248"
-                                                        "i246"
-                                                        "i243"
-                                                        "i241"
-                                                        "i239"
-                                                        "i237"
-                                                        "i235"
-                                                        "i233"
-                                                        "i231"
-                                                        "i229"
-                                                        "i227"
-                                                        "i225"
-                                                        "i223"
-                                                        "i221"
-                                                        "i219"
-                                                        "i217"
-                                                        "i215"
-                                                        "i213"
-                                                        "i211"
-                                                        "i209"
-                                                        "i207"))
+                                                        "i251"
+                                                        "i249"
+                                                        "i247"
+                                                        "i244"
+                                                        "i242"
+                                                        "i240"
+                                                        "i238"
+                                                        "i236"
+                                                        "i234"
+                                                        "i232"
+                                                        "i230"
+                                                        "i228"
+                                                        "i226"
+                                                        "i224"
+                                                        "i222"
+                                                        "i220"
+                                                        "i218"
+                                                        "i216"
+                                                        "i214"
+                                                        "i212"
+                                                        "i210"
+                                                        "i208"))
                                                      #(ribcage
                                                        (define-structure
                                                          
define-expansion-accessors
                                                          
define-expansion-constructors)
                                                        ((top) (top) (top))
-                                                       ("i45" "i44" "i43")))
+                                                       ("i46" "i45" "i44")))
                                                     (hygiene guile)))))
-                                    #{rkey 2446}#))))
-                        #{tmp 2453}#)
-                      (let ((#{tmp 2466}#
-                              ($sc-dispatch #{args 2443}# '((any any) . any))))
-                        (if (if #{tmp 2466}#
+                                    #{rkey 33964}#))))
+                        #{tmp 34088}#)
+                      (let ((#{tmp 34125}#
+                              ($sc-dispatch
+                                #{args 33961}#
+                                '((any any) . any))))
+                        (if (if #{tmp 34125}#
                               (@apply
-                                (lambda (#{a 2470}# #{init 2471}# #{b 2472}#)
-                                  (#{id? 353}# #{a 2470}#))
-                                #{tmp 2466}#)
+                                (lambda (#{a 34129}#
+                                         #{init 34130}#
+                                         #{b 34131}#)
+                                  (if (symbol? #{a 34129}#)
+                                    #t
+                                    (if (if (vector? #{a 34129}#)
+                                          (if (= (vector-length #{a 34129}#) 4)
+                                            (eq? (vector-ref #{a 34129}# 0)
+                                                 'syntax-object)
+                                            #f)
+                                          #f)
+                                      (symbol? (vector-ref #{a 34129}# 1))
+                                      #f)))
+                                #{tmp 34125}#)
                               #f)
                           (@apply
-                            (lambda (#{a 2476}# #{init 2477}# #{b 2478}#)
-                              (let ((#{tmp 2480}#
+                            (lambda (#{a 34158}# #{init 34159}# #{b 34160}#)
+                              (let ((#{tmp 34161}#
                                       (symbol->keyword
-                                        (syntax->datum #{a 2476}#))))
-                                (#{key 2334}#
-                                  #{b 2478}#
-                                  #{req 2444}#
-                                  #{opt 2445}#
-                                  (cons (list #{tmp 2480}#
-                                              #{a 2476}#
-                                              #{init 2477}#)
-                                        #{rkey 2446}#))))
-                            #{tmp 2466}#)
-                          (let ((#{tmp 2483}#
+                                        (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}#
                                   ($sc-dispatch
-                                    #{args 2443}#
+                                    #{args 33961}#
                                     '((any any any) . any))))
-                            (if (if #{tmp 2483}#
+                            (if (if #{tmp 34164}#
                                   (@apply
-                                    (lambda (#{a 2488}#
-                                             #{init 2489}#
-                                             #{k 2490}#
-                                             #{b 2491}#)
-                                      (if (#{id? 353}# #{a 2488}#)
-                                        (keyword? (syntax->datum #{k 2490}#))
+                                    (lambda (#{a 34168}#
+                                             #{init 34169}#
+                                             #{k 34170}#
+                                             #{b 34171}#)
+                                      (if (if (symbol? #{a 34168}#)
+                                            #t
+                                            (if (if (vector? #{a 34168}#)
+                                                  (if (= (vector-length
+                                                           #{a 34168}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{a 34168}#
+                                                           0)
+                                                         'syntax-object)
+                                                    #f)
+                                                  #f)
+                                              (symbol?
+                                                (vector-ref #{a 34168}# 1))
+                                              #f))
+                                        (keyword? (syntax->datum #{k 34170}#))
                                         #f))
-                                    #{tmp 2483}#)
+                                    #{tmp 34164}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 2498}#
-                                         #{init 2499}#
-                                         #{k 2500}#
-                                         #{b 2501}#)
-                                  (#{key 2334}#
-                                    #{b 2501}#
-                                    #{req 2444}#
-                                    #{opt 2445}#
-                                    (cons (list #{k 2500}#
-                                                #{a 2498}#
-                                                #{init 2499}#)
-                                          #{rkey 2446}#)))
-                                #{tmp 2483}#)
-                              (let ((#{tmp 2502}#
-                                      ($sc-dispatch #{args 2443}# '(any))))
-                                (if (if #{tmp 2502}#
+                                (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}#
                                       (@apply
-                                        (lambda (#{aok 2504}#)
-                                          (eq? (syntax->datum #{aok 2504}#)
+                                        (lambda (#{aok 34206}#)
+                                          (eq? (syntax->datum #{aok 34206}#)
                                                #:allow-other-keys))
-                                        #{tmp 2502}#)
+                                        #{tmp 34202}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{aok 2506}#)
-                                      (#{check 2338}#
-                                        #{req 2444}#
-                                        #{opt 2445}#
+                                    (lambda (#{aok 34207}#)
+                                      (#{check 33455}#
+                                        #{req 33962}#
+                                        #{opt 33963}#
                                         #f
-                                        (cons #t (reverse #{rkey 2446}#))))
-                                    #{tmp 2502}#)
-                                  (let ((#{tmp 2507}#
+                                        (cons #t (reverse #{rkey 33964}#))))
+                                    #{tmp 34202}#)
+                                  (let ((#{tmp 34326}#
                                           ($sc-dispatch
-                                            #{args 2443}#
+                                            #{args 33961}#
                                             '(any any any))))
-                                    (if (if #{tmp 2507}#
+                                    (if (if #{tmp 34326}#
                                           (@apply
-                                            (lambda (#{aok 2511}#
-                                                     #{a 2512}#
-                                                     #{b 2513}#)
+                                            (lambda (#{aok 34330}#
+                                                     #{a 34331}#
+                                                     #{b 34332}#)
                                               (if (eq? (syntax->datum
-                                                         #{aok 2511}#)
+                                                         #{aok 34330}#)
                                                        #:allow-other-keys)
-                                                (eq? (syntax->datum #{a 2512}#)
+                                                (eq? (syntax->datum
+                                                       #{a 34331}#)
                                                      #:rest)
                                                 #f))
-                                            #{tmp 2507}#)
+                                            #{tmp 34326}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{aok 2519}#
-                                                 #{a 2520}#
-                                                 #{b 2521}#)
-                                          (#{rest 2336}#
-                                            #{b 2521}#
-                                            #{req 2444}#
-                                            #{opt 2445}#
-                                            (cons #t (reverse #{rkey 2446}#))))
-                                        #{tmp 2507}#)
-                                      (let ((#{tmp 2522}#
+                                        (lambda (#{aok 34333}#
+                                                 #{a 34334}#
+                                                 #{b 34335}#)
+                                          (#{rest 33454}#
+                                            #{b 34335}#
+                                            #{req 33962}#
+                                            #{opt 33963}#
+                                            (cons #t
+                                                  (reverse #{rkey 33964}#))))
+                                        #{tmp 34326}#)
+                                      (let ((#{tmp 34338}#
                                               ($sc-dispatch
-                                                #{args 2443}#
+                                                #{args 33961}#
                                                 '(any . any))))
-                                        (if (if #{tmp 2522}#
+                                        (if (if #{tmp 34338}#
                                               (@apply
-                                                (lambda (#{aok 2525}#
-                                                         #{r 2526}#)
+                                                (lambda (#{aok 34342}#
+                                                         #{r 34343}#)
                                                   (if (eq? (syntax->datum
-                                                             #{aok 2525}#)
+                                                             #{aok 34342}#)
                                                            #:allow-other-keys)
-                                                    (#{id? 353}# #{r 2526}#)
+                                                    (if (symbol? #{r 34343}#)
+                                                      #t
+                                                      (if (if (vector?
+                                                                #{r 34343}#)
+                                                            (if (= 
(vector-length
+                                                                     #{r 
34343}#)
+                                                                   4)
+                                                              (eq? (vector-ref
+                                                                     #{r 
34343}#
+                                                                     0)
+                                                                   
'syntax-object)
+                                                              #f)
+                                                            #f)
+                                                        (symbol?
+                                                          (vector-ref
+                                                            #{r 34343}#
+                                                            1))
+                                                        #f))
                                                     #f))
-                                                #{tmp 2522}#)
+                                                #{tmp 34338}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{aok 2531}# #{r 2532}#)
-                                              (#{rest 2336}#
-                                                #{r 2532}#
-                                                #{req 2444}#
-                                                #{opt 2445}#
+                                            (lambda (#{aok 34370}# #{r 34371}#)
+                                              (#{rest 33454}#
+                                                #{r 34371}#
+                                                #{req 33962}#
+                                                #{opt 33963}#
                                                 (cons #t
                                                       (reverse
-                                                        #{rkey 2446}#))))
-                                            #{tmp 2522}#)
-                                          (let ((#{tmp 2533}#
+                                                        #{rkey 33964}#))))
+                                            #{tmp 34338}#)
+                                          (let ((#{tmp 34374}#
                                                   ($sc-dispatch
-                                                    #{args 2443}#
+                                                    #{args 33961}#
                                                     '(any any))))
-                                            (if (if #{tmp 2533}#
+                                            (if (if #{tmp 34374}#
                                                   (@apply
-                                                    (lambda (#{a 2536}#
-                                                             #{b 2537}#)
+                                                    (lambda (#{a 34378}#
+                                                             #{b 34379}#)
                                                       (eq? (syntax->datum
-                                                             #{a 2536}#)
+                                                             #{a 34378}#)
                                                            #:rest))
-                                                    #{tmp 2533}#)
+                                                    #{tmp 34374}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{a 2540}# #{b 2541}#)
-                                                  (#{rest 2336}#
-                                                    #{b 2541}#
-                                                    #{req 2444}#
-                                                    #{opt 2445}#
+                                                (lambda (#{a 34380}#
+                                                         #{b 34381}#)
+                                                  (#{rest 33454}#
+                                                    #{b 34381}#
+                                                    #{req 33962}#
+                                                    #{opt 33963}#
                                                     (cons #f
                                                           (reverse
-                                                            #{rkey 2446}#))))
-                                                #{tmp 2533}#)
-                                              (let ((#{tmp 2542}#
-                                                      (list #{args 2443}#)))
-                                                (if (if #{tmp 2542}#
-                                                      (@apply
-                                                        (lambda (#{r 2544}#)
-                                                          (#{id? 353}#
-                                                            #{r 2544}#))
-                                                        #{tmp 2542}#)
-                                                      #f)
+                                                            #{rkey 33964}#))))
+                                                #{tmp 34374}#)
+                                              (let ((#{tmp 34384}#
+                                                      (list #{args 33961}#)))
+                                                (if (@apply
+                                                      (lambda (#{r 34386}#)
+                                                        (if (symbol?
+                                                              #{r 34386}#)
+                                                          #t
+                                                          (if (if (vector?
+                                                                    #{r 
34386}#)
+                                                                (if (= 
(vector-length
+                                                                         #{r 
34386}#)
+                                                                       4)
+                                                                  (eq? 
(vector-ref
+                                                                         #{r 
34386}#
+                                                                         0)
+                                                                       
'syntax-object)
+                                                                  #f)
+                                                                #f)
+                                                            (symbol?
+                                                              (vector-ref
+                                                                #{r 34386}#
+                                                                1))
+                                                            #f)))
+                                                      #{tmp 34384}#)
                                                   (@apply
-                                                    (lambda (#{r 2546}#)
-                                                      (#{rest 2336}#
-                                                        #{r 2546}#
-                                                        #{req 2444}#
-                                                        #{opt 2445}#
+                                                    (lambda (#{r 34416}#)
+                                                      (#{rest 33454}#
+                                                        #{r 34416}#
+                                                        #{req 33962}#
+                                                        #{opt 33963}#
                                                         (cons #f
                                                               (reverse
-                                                                #{rkey 
2446}#))))
-                                                    #{tmp 2542}#)
+                                                                #{rkey 
33964}#))))
+                                                    #{tmp 34384}#)
                                                   (syntax-violation
                                                     'lambda*
                                                     "invalid keyword argument 
list"
-                                                    #{orig-args 2327}#
-                                                    #{args 
2443}#)))))))))))))))))))))
-          (#{rest 2336}#
-            (lambda (#{args 2549}#
-                     #{req 2550}#
-                     #{opt 2551}#
-                     #{kw 2552}#)
-              (let ((#{tmp 2558}# (list #{args 2549}#)))
-                (if (if #{tmp 2558}#
-                      (@apply
-                        (lambda (#{r 2560}#) (#{id? 353}# #{r 2560}#))
-                        #{tmp 2558}#)
-                      #f)
+                                                    #{orig-args 33450}#
+                                                    #{args 
33961}#)))))))))))))))))))))
+          (#{rest 33454}#
+            (lambda (#{args 34444}#
+                     #{req 34445}#
+                     #{opt 34446}#
+                     #{kw 34447}#)
+              (let ((#{tmp 34449}# (list #{args 34444}#)))
+                (if (@apply
+                      (lambda (#{r 34451}#)
+                        (if (symbol? #{r 34451}#)
+                          #t
+                          (if (if (vector? #{r 34451}#)
+                                (if (= (vector-length #{r 34451}#) 4)
+                                  (eq? (vector-ref #{r 34451}# 0)
+                                       'syntax-object)
+                                  #f)
+                                #f)
+                            (symbol? (vector-ref #{r 34451}# 1))
+                            #f)))
+                      #{tmp 34449}#)
                   (@apply
-                    (lambda (#{r 2562}#)
-                      (#{check 2338}#
-                        #{req 2550}#
-                        #{opt 2551}#
-                        #{r 2562}#
-                        #{kw 2552}#))
-                    #{tmp 2558}#)
+                    (lambda (#{r 34481}#)
+                      (#{check 33455}#
+                        #{req 34445}#
+                        #{opt 34446}#
+                        #{r 34481}#
+                        #{kw 34447}#))
+                    #{tmp 34449}#)
                   (syntax-violation
                     'lambda*
                     "invalid rest argument"
-                    #{orig-args 2327}#
-                    #{args 2549}#)))))
-          (#{check 2338}#
-            (lambda (#{req 2565}#
-                     #{opt 2566}#
-                     #{rest 2567}#
-                     #{kw 2568}#)
-              (if (#{distinct-bound-ids? 423}#
+                    #{orig-args 33450}#
+                    #{args 34444}#)))))
+          (#{check 33455}#
+            (lambda (#{req 34609}#
+                     #{opt 34610}#
+                     #{rest 34611}#
+                     #{kw 34612}#)
+              (if (#{distinct-bound-ids? 4366}#
                     (append
-                      #{req 2565}#
-                      (map car #{opt 2566}#)
-                      (if #{rest 2567}# (list #{rest 2567}#) '())
-                      (if (pair? #{kw 2568}#)
-                        (map cadr (cdr #{kw 2568}#))
+                      #{req 34609}#
+                      (map car #{opt 34610}#)
+                      (if #{rest 34611}# (list #{rest 34611}#) '())
+                      (if (pair? #{kw 34612}#)
+                        (map cadr (cdr #{kw 34612}#))
                         '())))
                 (values
-                  #{req 2565}#
-                  #{opt 2566}#
-                  #{rest 2567}#
-                  #{kw 2568}#)
+                  #{req 34609}#
+                  #{opt 34610}#
+                  #{rest 34611}#
+                  #{kw 34612}#)
                 (syntax-violation
                   'lambda*
                   "duplicate identifier in argument list"
-                  #{orig-args 2327}#)))))
-         (#{req 2330}# #{orig-args 2327}# '()))))
-   (#{chi-lambda-case 465}#
-     (lambda (#{e 2576}#
-              #{r 2577}#
-              #{w 2578}#
-              #{s 2579}#
-              #{mod 2580}#
-              #{get-formals 2581}#
-              #{clauses 2582}#)
+                  #{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}#)
        (letrec*
-         ((#{expand-opt 2593}#
-            (lambda (#{req 2616}#
-                     #{opt 2617}#
-                     #{rest 2618}#
-                     #{kw 2619}#
-                     #{body 2620}#
-                     #{vars 2621}#
-                     #{r* 2622}#
-                     #{w* 2623}#
-                     #{out 2624}#
-                     #{inits 2625}#)
-              (if (pair? #{opt 2617}#)
-                (let ((#{tmp 2638}# (car #{opt 2617}#)))
-                  (let ((#{tmp 2639}#
-                          ($sc-dispatch #{tmp 2638}# '(any any))))
-                    (if #{tmp 2639}#
+         ((#{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-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}#
                       (@apply
-                        (lambda (#{id 2642}# #{i 2643}#)
-                          (let ((#{v 2646}# (#{gen-var 469}# #{id 2642}#)))
-                            (let ((#{l 2648}#
-                                    (#{gen-labels 373}# (list #{v 2646}#))))
-                              (let ((#{r** 2650}#
-                                      (#{extend-var-env 343}#
-                                        #{l 2648}#
-                                        (list #{v 2646}#)
-                                        #{r* 2622}#)))
-                                (let ((#{w** 2652}#
-                                        (#{make-binding-wrap 405}#
-                                          (list #{id 2642}#)
-                                          #{l 2648}#
-                                          #{w* 2623}#)))
-                                  (#{expand-opt 2593}#
-                                    #{req 2616}#
-                                    (cdr #{opt 2617}#)
-                                    #{rest 2618}#
-                                    #{kw 2619}#
-                                    #{body 2620}#
-                                    (cons #{v 2646}# #{vars 2621}#)
-                                    #{r** 2650}#
-                                    #{w** 2652}#
-                                    (cons (syntax->datum #{id 2642}#)
-                                          #{out 2624}#)
-                                    (cons (#{chi 441}#
-                                            #{i 2643}#
-                                            #{r* 2622}#
-                                            #{w* 2623}#
-                                            #{mod 2580}#)
-                                          #{inits 2625}#)))))))
-                        #{tmp 2639}#)
+                        (lambda (#{id 35121}# #{i 35122}#)
+                          (let ((#{v 35123}#
+                                  (let ((#{id 35131}#
+                                          (if (if (vector? #{id 35121}#)
+                                                (if (= (vector-length
+                                                         #{id 35121}#)
+                                                       4)
+                                                  (eq? (vector-ref
+                                                         #{id 35121}#
+                                                         0)
+                                                       'syntax-object)
+                                                  #f)
+                                                #f)
+                                            (vector-ref #{id 35121}# 1)
+                                            #{id 35121}#)))
+                                    (gensym
+                                      (string-append
+                                        (symbol->string #{id 35131}#)
+                                        " ")))))
+                            (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}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 2638}#))))
-                (if #{rest 2618}#
-                  (let ((#{v 2657}# (#{gen-var 469}# #{rest 2618}#)))
-                    (let ((#{l 2659}#
-                            (#{gen-labels 373}# (list #{v 2657}#))))
-                      (let ((#{r* 2661}#
-                              (#{extend-var-env 343}#
-                                #{l 2659}#
-                                (list #{v 2657}#)
-                                #{r* 2622}#)))
-                        (let ((#{w* 2663}#
-                                (#{make-binding-wrap 405}#
-                                  (list #{rest 2618}#)
-                                  #{l 2659}#
-                                  #{w* 2623}#)))
-                          (#{expand-kw 2595}#
-                            #{req 2616}#
-                            (if (pair? #{out 2624}#)
-                              (reverse #{out 2624}#)
+                        #{tmp 35118}#))))
+                (if #{rest 35110}#
+                  (let ((#{v 35430}#
+                          (let ((#{id 35440}#
+                                  (if (if (vector? #{rest 35110}#)
+                                        (if (= (vector-length #{rest 35110}#)
+                                               4)
+                                          (eq? (vector-ref #{rest 35110}# 0)
+                                               'syntax-object)
+                                          #f)
+                                        #f)
+                                    (vector-ref #{rest 35110}# 1)
+                                    #{rest 35110}#)))
+                            (gensym
+                              (string-append
+                                (symbol->string #{id 35440}#)
+                                " ")))))
+                    (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}#)
                               #f)
-                            (syntax->datum #{rest 2618}#)
-                            (if (pair? #{kw 2619}#)
-                              (cdr #{kw 2619}#)
-                              #{kw 2619}#)
-                            #{body 2620}#
-                            (cons #{v 2657}# #{vars 2621}#)
-                            #{r* 2661}#
-                            #{w* 2663}#
-                            (if (pair? #{kw 2619}#) (car #{kw 2619}#) #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)
                             '()
-                            #{inits 2625}#)))))
-                  (#{expand-kw 2595}#
-                    #{req 2616}#
-                    (if (pair? #{out 2624}#)
-                      (reverse #{out 2624}#)
+                            #{inits 35117}#)))))
+                  (#{expand-kw 34730}#
+                    #{req 35108}#
+                    (if (pair? #{out 35116}#)
+                      (reverse #{out 35116}#)
                       #f)
                     #f
-                    (if (pair? #{kw 2619}#)
-                      (cdr #{kw 2619}#)
-                      #{kw 2619}#)
-                    #{body 2620}#
-                    #{vars 2621}#
-                    #{r* 2622}#
-                    #{w* 2623}#
-                    (if (pair? #{kw 2619}#) (car #{kw 2619}#) #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)
                     '()
-                    #{inits 2625}#)))))
-          (#{expand-kw 2595}#
-            (lambda (#{req 2665}#
-                     #{opt 2666}#
-                     #{rest 2667}#
-                     #{kw 2668}#
-                     #{body 2669}#
-                     #{vars 2670}#
-                     #{r* 2671}#
-                     #{w* 2672}#
-                     #{aok 2673}#
-                     #{out 2674}#
-                     #{inits 2675}#)
-              (if (pair? #{kw 2668}#)
-                (let ((#{tmp 2689}# (car #{kw 2668}#)))
-                  (let ((#{tmp 2690}#
-                          ($sc-dispatch #{tmp 2689}# '(any any any))))
-                    (if #{tmp 2690}#
+                    #{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}#
                       (@apply
-                        (lambda (#{k 2694}# #{id 2695}# #{i 2696}#)
-                          (let ((#{v 2699}# (#{gen-var 469}# #{id 2695}#)))
-                            (let ((#{l 2701}#
-                                    (#{gen-labels 373}# (list #{v 2699}#))))
-                              (let ((#{r** 2703}#
-                                      (#{extend-var-env 343}#
-                                        #{l 2701}#
-                                        (list #{v 2699}#)
-                                        #{r* 2671}#)))
-                                (let ((#{w** 2705}#
-                                        (#{make-binding-wrap 405}#
-                                          (list #{id 2695}#)
-                                          #{l 2701}#
-                                          #{w* 2672}#)))
-                                  (#{expand-kw 2595}#
-                                    #{req 2665}#
-                                    #{opt 2666}#
-                                    #{rest 2667}#
-                                    (cdr #{kw 2668}#)
-                                    #{body 2669}#
-                                    (cons #{v 2699}# #{vars 2670}#)
-                                    #{r** 2703}#
-                                    #{w** 2705}#
-                                    #{aok 2673}#
-                                    (cons (list (syntax->datum #{k 2694}#)
-                                                (syntax->datum #{id 2695}#)
-                                                #{v 2699}#)
-                                          #{out 2674}#)
-                                    (cons (#{chi 441}#
-                                            #{i 2696}#
-                                            #{r* 2671}#
-                                            #{w* 2672}#
-                                            #{mod 2580}#)
-                                          #{inits 2675}#)))))))
-                        #{tmp 2690}#)
+                        (lambda (#{k 35676}# #{id 35677}# #{i 35678}#)
+                          (let ((#{v 35679}#
+                                  (let ((#{id 35687}#
+                                          (if (if (vector? #{id 35677}#)
+                                                (if (= (vector-length
+                                                         #{id 35677}#)
+                                                       4)
+                                                  (eq? (vector-ref
+                                                         #{id 35677}#
+                                                         0)
+                                                       'syntax-object)
+                                                  #f)
+                                                #f)
+                                            (vector-ref #{id 35677}# 1)
+                                            #{id 35677}#)))
+                                    (gensym
+                                      (string-append
+                                        (symbol->string #{id 35687}#)
+                                        " ")))))
+                            (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}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 2689}#))))
-                (#{expand-body 2597}#
-                  #{req 2665}#
-                  #{opt 2666}#
-                  #{rest 2667}#
-                  (if (if #{aok 2673}#
-                        #{aok 2673}#
-                        (pair? #{out 2674}#))
-                    (cons #{aok 2673}# (reverse #{out 2674}#))
+                        #{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}#))
                     #f)
-                  #{body 2669}#
-                  (reverse #{vars 2670}#)
-                  #{r* 2671}#
-                  #{w* 2672}#
-                  (reverse #{inits 2675}#)
+                  #{body 35666}#
+                  (reverse #{vars 35667}#)
+                  #{r* 35668}#
+                  #{w* 35669}#
+                  (reverse #{inits 35672}#)
                   '()))))
-          (#{expand-body 2597}#
-            (lambda (#{req 2711}#
-                     #{opt 2712}#
-                     #{rest 2713}#
-                     #{kw 2714}#
-                     #{body 2715}#
-                     #{vars 2716}#
-                     #{r* 2717}#
-                     #{w* 2718}#
-                     #{inits 2719}#
-                     #{meta 2720}#)
-              (let ((#{tmp 2732}#
+          (#{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}#
                       ($sc-dispatch
-                        #{body 2715}#
+                        #{body 35999}#
                         '(any any . each-any))))
-                (if (if #{tmp 2732}#
+                (if (if #{tmp 36006}#
                       (@apply
-                        (lambda (#{docstring 2736}# #{e1 2737}# #{e2 2738}#)
-                          (string? (syntax->datum #{docstring 2736}#)))
-                        #{tmp 2732}#)
+                        (lambda (#{docstring 36010}# #{e1 36011}# #{e2 36012}#)
+                          (string? (syntax->datum #{docstring 36010}#)))
+                        #{tmp 36006}#)
                       #f)
                   (@apply
-                    (lambda (#{docstring 2742}# #{e1 2743}# #{e2 2744}#)
-                      (#{expand-body 2597}#
-                        #{req 2711}#
-                        #{opt 2712}#
-                        #{rest 2713}#
-                        #{kw 2714}#
-                        (cons #{e1 2743}# #{e2 2744}#)
-                        #{vars 2716}#
-                        #{r* 2717}#
-                        #{w* 2718}#
-                        #{inits 2719}#
+                    (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}#
                         (append
-                          #{meta 2720}#
+                          #{meta 36004}#
                           (list (cons 'documentation
-                                      (syntax->datum #{docstring 2742}#))))))
-                    #{tmp 2732}#)
-                  (let ((#{tmp 2747}#
+                                      (syntax->datum #{docstring 36013}#))))))
+                    #{tmp 36006}#)
+                  (let ((#{tmp 36016}#
                           ($sc-dispatch
-                            #{body 2715}#
+                            #{body 35999}#
                             '(#(vector #(each (any . any))) any . each-any))))
-                    (if #{tmp 2747}#
+                    (if #{tmp 36016}#
                       (@apply
-                        (lambda (#{k 2752}# #{v 2753}# #{e1 2754}# #{e2 2755}#)
-                          (#{expand-body 2597}#
-                            #{req 2711}#
-                            #{opt 2712}#
-                            #{rest 2713}#
-                            #{kw 2714}#
-                            (cons #{e1 2754}# #{e2 2755}#)
-                            #{vars 2716}#
-                            #{r* 2717}#
-                            #{w* 2718}#
-                            #{inits 2719}#
+                        (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}#
                             (append
-                              #{meta 2720}#
+                              #{meta 36004}#
                               (syntax->datum
-                                (map cons #{k 2752}# #{v 2753}#)))))
-                        #{tmp 2747}#)
-                      (let ((#{tmp 2759}#
-                              ($sc-dispatch #{body 2715}# '(any . each-any))))
-                        (if #{tmp 2759}#
+                                (map cons #{k 36020}# #{v 36021}#)))))
+                        #{tmp 36016}#)
+                      (let ((#{tmp 36024}#
+                              ($sc-dispatch #{body 35999}# '(any . each-any))))
+                        (if #{tmp 36024}#
                           (@apply
-                            (lambda (#{e1 2762}# #{e2 2763}#)
+                            (lambda (#{e1 36028}# #{e2 36029}#)
                               (values
-                                #{meta 2720}#
-                                #{req 2711}#
-                                #{opt 2712}#
-                                #{rest 2713}#
-                                #{kw 2714}#
-                                #{inits 2719}#
-                                #{vars 2716}#
-                                (#{chi-body 449}#
-                                  (cons #{e1 2762}# #{e2 2763}#)
-                                  (#{source-wrap 429}#
-                                    #{e 2576}#
-                                    #{w 2578}#
-                                    #{s 2579}#
-                                    #{mod 2580}#)
-                                  #{r* 2717}#
-                                  #{w* 2718}#
-                                  #{mod 2580}#)))
-                            #{tmp 2759}#)
+                                #{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}#
+                                          (begin
+                                            (if (if (pair? #{e 34721}#)
+                                                  #{s 34724}#
+                                                  #f)
+                                              (set-source-properties!
+                                                #{e 34721}#
+                                                #{s 34724}#))
+                                            #{e 34721}#)))
+                                    (if (if (null? (car #{w 34723}#))
+                                          (null? (cdr #{w 34723}#))
+                                          #f)
+                                      #{x 36041}#
+                                      (if (if (vector? #{x 36041}#)
+                                            (if (= (vector-length #{x 36041}#)
+                                                   4)
+                                              (eq? (vector-ref #{x 36041}# 0)
+                                                   'syntax-object)
+                                              #f)
+                                            #f)
+                                        (let ((#{expression 36073}#
+                                                (vector-ref #{x 36041}# 1))
+                                              (#{wrap 36074}#
+                                                (let ((#{w2 36082}#
+                                                        (vector-ref
+                                                          #{x 36041}#
+                                                          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}#
+                                                                  (append
+                                                                    #{s1 
36084}#
+                                                                    #{m2 
36099}#)))))
+                                                      (cons (let ((#{m2 36107}#
+                                                                    (car #{w2 
36082}#)))
+                                                              (if (null? #{m2 
36107}#)
+                                                                #{m1 36083}#
+                                                                (append
+                                                                  #{m1 36083}#
+                                                                  #{m2 
36107}#)))
+                                                            (let ((#{m2 36115}#
+                                                                    (cdr #{w2 
36082}#)))
+                                                              (if (null? #{m2 
36115}#)
+                                                                #{s1 36084}#
+                                                                (append
+                                                                  #{s1 36084}#
+                                                                  #{m2 
36115}#))))))))
+                                              (#{module 36075}#
+                                                (vector-ref #{x 36041}# 3)))
+                                          (vector
+                                            'syntax-object
+                                            #{expression 36073}#
+                                            #{wrap 36074}#
+                                            #{module 36075}#))
+                                        (if (null? #{x 36041}#)
+                                          #{x 36041}#
+                                          (vector
+                                            'syntax-object
+                                            #{x 36041}#
+                                            #{w 34723}#
+                                            #{mod 34725}#)))))
+                                  #{r* 36001}#
+                                  #{w* 36002}#
+                                  #{mod 34725}#)))
+                            #{tmp 36024}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{body 2715}#))))))))))
-         (let ((#{tmp 2766}#
-                 ($sc-dispatch #{clauses 2582}# '())))
-           (if #{tmp 2766}#
-             (@apply (lambda () (values '() #f)) #{tmp 2766}#)
-             (let ((#{tmp 2767}#
+                            #{body 35999}#))))))))))
+         (let ((#{tmp 34733}#
+                 ($sc-dispatch #{clauses 34727}# '())))
+           (if #{tmp 34733}#
+             (@apply
+               (lambda () (values '() #f))
+               #{tmp 34733}#)
+             (let ((#{tmp 34738}#
                      ($sc-dispatch
-                       #{clauses 2582}#
+                       #{clauses 34727}#
                        '((any any . each-any)
                          .
                          #(each (any any . each-any))))))
-               (if #{tmp 2767}#
+               (if #{tmp 34738}#
                  (@apply
-                   (lambda (#{args 2774}#
-                            #{e1 2775}#
-                            #{e2 2776}#
-                            #{args* 2777}#
-                            #{e1* 2778}#
-                            #{e2* 2779}#)
+                   (lambda (#{args 34742}#
+                            #{e1 34743}#
+                            #{e2 34744}#
+                            #{args* 34745}#
+                            #{e1* 34746}#
+                            #{e2* 34747}#)
                      (call-with-values
-                       (lambda () (#{get-formals 2581}# #{args 2774}#))
-                       (lambda (#{req 2780}#
-                                #{opt 2781}#
-                                #{rest 2782}#
-                                #{kw 2783}#)
+                       (lambda ()
+                         (#{get-formals 34726}# #{args 34742}#))
+                       (lambda (#{req 34748}#
+                                #{opt 34749}#
+                                #{rest 34750}#
+                                #{kw 34751}#)
                          (call-with-values
                            (lambda ()
-                             (let ((#{body 5051}#
-                                     (cons #{e1 2775}# #{e2 2776}#)))
-                               (let ((#{vars 5052}#
-                                       (map #{gen-var 469}# #{req 2780}#))
-                                     (#{labels 5053}#
-                                       (#{gen-labels 373}# #{req 2780}#)))
-                                 (let ((#{r* 5054}#
-                                         (#{extend-var-env 343}#
-                                           #{labels 5053}#
-                                           #{vars 5052}#
-                                           #{r 2577}#))
-                                       (#{w* 5055}#
-                                         (#{make-binding-wrap 405}#
-                                           #{req 2780}#
-                                           #{labels 5053}#
-                                           #{w 2578}#)))
-                                   (#{expand-opt 2593}#
-                                     (map syntax->datum #{req 2780}#)
-                                     #{opt 2781}#
-                                     #{rest 2782}#
-                                     #{kw 2783}#
-                                     #{body 5051}#
-                                     (reverse #{vars 5052}#)
-                                     #{r* 5054}#
-                                     #{w* 5055}#
-                                     '()
-                                     '())))))
-                           (lambda (#{meta 2789}#
-                                    #{req 2790}#
-                                    #{opt 2791}#
-                                    #{rest 2792}#
-                                    #{kw 2793}#
-                                    #{inits 2794}#
-                                    #{vars 2795}#
-                                    #{body 2796}#)
+                             (#{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}#)
                              (call-with-values
                                (lambda ()
-                                 (#{chi-lambda-case 465}#
-                                   #{e 2576}#
-                                   #{r 2577}#
-                                   #{w 2578}#
-                                   #{s 2579}#
-                                   #{mod 2580}#
-                                   #{get-formals 2581}#
-                                   (map (lambda (#{tmp 2807}#
-                                                 #{tmp 2806}#
-                                                 #{tmp 2805}#)
-                                          (cons #{tmp 2805}#
-                                                (cons #{tmp 2806}#
-                                                      #{tmp 2807}#)))
-                                        #{e2* 2779}#
-                                        #{e1* 2778}#
-                                        #{args* 2777}#)))
-                               (lambda (#{meta* 2809}# #{else* 2810}#)
+                                 (#{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}#)
                                  (values
-                                   (append #{meta 2789}# #{meta* 2809}#)
-                                   (#{build-lambda-case 295}#
-                                     #{s 2579}#
-                                     #{req 2790}#
-                                     #{opt 2791}#
-                                     #{rest 2792}#
-                                     #{kw 2793}#
-                                     #{inits 2794}#
-                                     #{vars 2795}#
-                                     #{body 2796}#
-                                     #{else* 2810}#)))))))))
-                   #{tmp 2767}#)
+                                   (append #{meta 34820}# #{meta* 34831}#)
+                                   (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}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
-                   #{clauses 2582}#))))))))
-   (#{strip 467}#
-     (lambda (#{x 2813}# #{w 2814}#)
-       (if (memq 'top (car #{w 2814}#))
-         #{x 2813}#
+                   #{clauses 34727}#))))))))
+   (#{strip 4388}#
+     (lambda (#{x 36142}# #{w 36143}#)
+       (if (memq 'top (car #{w 36143}#))
+         #{x 36142}#
          (letrec*
-           ((#{f 2821}#
-              (lambda (#{x 2822}#)
-                (if (#{syntax-object? 316}# #{x 2822}#)
-                  (#{strip 467}#
-                    (#{syntax-object-expression 318}# #{x 2822}#)
-                    (#{syntax-object-wrap 320}# #{x 2822}#))
-                  (if (pair? #{x 2822}#)
-                    (let ((#{a 2829}# (#{f 2821}# (car #{x 2822}#)))
-                          (#{d 2830}# (#{f 2821}# (cdr #{x 2822}#))))
-                      (if (if (eq? #{a 2829}# (car #{x 2822}#))
-                            (eq? #{d 2830}# (cdr #{x 2822}#))
+           ((#{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)
+                      #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}#))
                             #f)
-                        #{x 2822}#
-                        (cons #{a 2829}# #{d 2830}#)))
-                    (if (vector? #{x 2822}#)
-                      (let ((#{old 2836}# (vector->list #{x 2822}#)))
-                        (let ((#{new 2838}# (map #{f 2821}# #{old 2836}#)))
+                        #{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}#)))
                           (letrec*
-                            ((#{lp 2842}#
-                               (lambda (#{l1 2843}# #{l2 2844}#)
-                                 (if (null? #{l1 2843}#)
-                                   #{x 2822}#
-                                   (if (eq? (car #{l1 2843}#)
-                                            (car #{l2 2844}#))
-                                     (#{lp 2842}#
-                                       (cdr #{l1 2843}#)
-                                       (cdr #{l2 2844}#))
-                                     (list->vector #{new 2838}#))))))
-                            (#{lp 2842}# #{old 2836}# #{new 2838}#))))
-                      #{x 2822}#))))))
-           (#{f 2821}# #{x 2813}#)))))
-   (#{gen-var 469}#
-     (lambda (#{id 2846}#)
-       (let ((#{id 2849}#
-               (if (#{syntax-object? 316}# #{id 2846}#)
-                 (#{syntax-object-expression 318}# #{id 2846}#)
-                 #{id 2846}#)))
+                            ((#{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)
+                       #f)
+                     #f)
+                 (vector-ref #{id 34876}# 1)
+                 #{id 34876}#)))
          (gensym
-           (string-append (symbol->string #{id 2849}#) " ")))))
-   (#{lambda-var-list 471}#
-     (lambda (#{vars 2851}#)
+           (string-append (symbol->string #{id 34877}#) " ")))))
+   (#{lambda-var-list 4390}#
+     (lambda (#{vars 36271}#)
        (letrec*
-         ((#{lvl 2857}#
-            (lambda (#{vars 2858}# #{ls 2859}# #{w 2860}#)
-              (if (pair? #{vars 2858}#)
-                (#{lvl 2857}#
-                  (cdr #{vars 2858}#)
-                  (cons (#{wrap 427}# (car #{vars 2858}#) #{w 2860}# #f)
-                        #{ls 2859}#)
-                  #{w 2860}#)
-                (if (#{id? 353}# #{vars 2858}#)
-                  (cons (#{wrap 427}# #{vars 2858}# #{w 2860}# #f)
-                        #{ls 2859}#)
-                  (if (null? #{vars 2858}#)
-                    #{ls 2859}#
-                    (if (#{syntax-object? 316}# #{vars 2858}#)
-                      (#{lvl 2857}#
-                        (#{syntax-object-expression 318}# #{vars 2858}#)
-                        #{ls 2859}#
-                        (#{join-wraps 409}#
-                          #{w 2860}#
-                          (#{syntax-object-wrap 320}# #{vars 2858}#)))
-                      (cons #{vars 2858}# #{ls 2859}#))))))))
-         (#{lvl 2857}# #{vars 2851}# '() '(()))))))
+         ((#{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}#))
+                                #f)
+                            #{x 36281}#
+                            (if (if (vector? #{x 36281}#)
+                                  (if (= (vector-length #{x 36281}#) 4)
+                                    (eq? (vector-ref #{x 36281}# 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}#
+                                                        (append
+                                                          #{s1 36310}#
+                                                          #{m2 36325}#)))))
+                                            (cons (let ((#{m2 36333}#
+                                                          (car #{w2 36308}#)))
+                                                    (if (null? #{m2 36333}#)
+                                                      #{m1 36309}#
+                                                      (append
+                                                        #{m1 36309}#
+                                                        #{m2 36333}#)))
+                                                  (let ((#{m2 36341}#
+                                                          (cdr #{w2 36308}#)))
+                                                    (if (null? #{m2 36341}#)
+                                                      #{s1 36310}#
+                                                      (append
+                                                        #{s1 36310}#
+                                                        #{m2 36341}#))))))))
+                                    (#{module 36301}#
+                                      (vector-ref #{x 36281}# 3)))
+                                (vector
+                                  'syntax-object
+                                  #{expression 36299}#
+                                  #{wrap 36300}#
+                                  #{module 36301}#))
+                              (if (null? #{x 36281}#)
+                                #{x 36281}#
+                                (vector
+                                  'syntax-object
+                                  #{x 36281}#
+                                  #{w 36277}#
+                                  #f)))))
+                        #{ls 36276}#)
+                  #{w 36277}#)
+                (if (if (symbol? #{vars 36275}#)
+                      #t
+                      (if (if (vector? #{vars 36275}#)
+                            (if (= (vector-length #{vars 36275}#) 4)
+                              (eq? (vector-ref #{vars 36275}# 0)
+                                   'syntax-object)
+                              #f)
+                            #f)
+                        (symbol? (vector-ref #{vars 36275}# 1))
+                        #f))
+                  (cons (if (if (null? (car #{w 36277}#))
+                              (null? (cdr #{w 36277}#))
+                              #f)
+                          #{vars 36275}#
+                          (if (if (vector? #{vars 36275}#)
+                                (if (= (vector-length #{vars 36275}#) 4)
+                                  (eq? (vector-ref #{vars 36275}# 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}#
+                                                      (append
+                                                        #{s1 36424}#
+                                                        #{m2 36441}#)))))
+                                          (cons (let ((#{m2 36449}#
+                                                        (car #{w2 36422}#)))
+                                                  (if (null? #{m2 36449}#)
+                                                    #{m1 36423}#
+                                                    (append
+                                                      #{m1 36423}#
+                                                      #{m2 36449}#)))
+                                                (let ((#{m2 36457}#
+                                                        (cdr #{w2 36422}#)))
+                                                  (if (null? #{m2 36457}#)
+                                                    #{s1 36424}#
+                                                    (append
+                                                      #{s1 36424}#
+                                                      #{m2 36457}#))))))))
+                                  (#{module 36413}#
+                                    (vector-ref #{vars 36275}# 3)))
+                              (vector
+                                'syntax-object
+                                #{expression 36411}#
+                                #{wrap 36412}#
+                                #{module 36413}#))
+                            (if (null? #{vars 36275}#)
+                              #{vars 36275}#
+                              (vector
+                                'syntax-object
+                                #{vars 36275}#
+                                #{w 36277}#
+                                #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)
+                                 '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}#
+                                          (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}#
+                                        (append
+                                          #{s1 36500}#
+                                          #{m2 36527}#))))))))
+                      (cons #{vars 36275}# #{ls 36276}#))))))))
+         (#{lvl 36272}# #{vars 36271}# '() '(()))))))
   (begin
-    (lambda (#{src 789}# #{name 790}#)
-      (make-struct/no-tail
-        (vector-ref %expanded-vtables 2)
-        #{src 789}#
-        #{name 790}#))
     (module-define!
       (current-module)
       'letrec-syntax
@@ -6674,2212 +8920,2101 @@
         'let-syntax
         'local-syntax
         #f))
-    (#{global-extend 349}#
+    (#{global-extend 4341}#
       'core
       'fluid-let-syntax
-      (lambda (#{e 2871}#
-               #{r 2872}#
-               #{w 2873}#
-               #{s 2874}#
-               #{mod 2875}#)
-        (let ((#{tmp 2882}#
+      (lambda (#{e 4515}#
+               #{r 4516}#
+               #{w 4517}#
+               #{s 4518}#
+               #{mod 4519}#)
+        (let ((#{tmp 4521}#
                 ($sc-dispatch
-                  #{e 2871}#
+                  #{e 4515}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 2882}#
+          (if (if #{tmp 4521}#
                 (@apply
-                  (lambda (#{var 2887}#
-                           #{val 2888}#
-                           #{e1 2889}#
-                           #{e2 2890}#)
-                    (#{valid-bound-ids? 421}# #{var 2887}#))
-                  #{tmp 2882}#)
+                  (lambda (#{var 4525}#
+                           #{val 4526}#
+                           #{e1 4527}#
+                           #{e2 4528}#)
+                    (#{valid-bound-ids? 4365}# #{var 4525}#))
+                  #{tmp 4521}#)
                 #f)
             (@apply
-              (lambda (#{var 2896}#
-                       #{val 2897}#
-                       #{e1 2898}#
-                       #{e2 2899}#)
-                (let ((#{names 2901}#
-                        (map (lambda (#{x 2902}#)
-                               (#{id-var-name 415}# #{x 2902}# #{w 2873}#))
-                             #{var 2896}#)))
+              (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}#)))
                   (begin
                     (for-each
-                      (lambda (#{id 2905}# #{n 2906}#)
-                        (let ((#{atom-key 2911}#
-                                (car (let ((#{t 5313}#
-                                             (assq #{n 2906}# #{r 2872}#)))
-                                       (if #{t 5313}#
-                                         (cdr #{t 5313}#)
-                                         (if (symbol? #{n 2906}#)
-                                           (let ((#{t 5314}#
-                                                   
(#{get-global-definition-hook 265}#
-                                                     #{n 2906}#
-                                                     #{mod 2875}#)))
-                                             (if #{t 5314}#
-                                               #{t 5314}#
+                      (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}#
+                                                   (begin
+                                                     (if (if (not #{mod 4519}#)
+                                                           (current-module)
+                                                           #f)
+                                                       (warn "module system is 
booted, we should have a module"
+                                                             #{n 4617}#))
+                                                     (let ((#{v 4860}#
+                                                             (module-variable
+                                                               (if #{mod 4519}#
+                                                                 
(resolve-module
+                                                                   (cdr #{mod 
4519}#))
+                                                                 
(current-module))
+                                                               #{n 4617}#)))
+                                                       (if #{v 4860}#
+                                                         (if (variable-bound?
+                                                               #{v 4860}#)
+                                                           (let ((#{val 4869}#
+                                                                   
(variable-ref
+                                                                     #{v 
4860}#)))
+                                                             (if (macro?
+                                                                   #{val 
4869}#)
+                                                               (if (macro-type
+                                                                     #{val 
4869}#)
+                                                                 (cons 
(macro-type
+                                                                         #{val 
4869}#)
+                                                                       
(macro-binding
+                                                                         #{val 
4869}#))
+                                                                 #f)
+                                                               #f))
+                                                           #f)
+                                                         #f)))))
+                                             (if #{t 4823}#
+                                               #{t 4823}#
                                                '(global)))
                                            '(displaced-lexical)))))))
-                          (if (memv #{atom-key 2911}# '(displaced-lexical))
+                          (if (let ((#{t 4651}# #{atom-key 4618}#))
+                                (eqv? #{t 4651}# 'displaced-lexical))
                             (syntax-violation
                               'fluid-let-syntax
                               "identifier out of context"
-                              #{e 2871}#
-                              (let ((#{x 5324}#
+                              #{e 4515}#
+                              (let ((#{x 4723}#
                                       (begin
-                                        (if (if (pair? #{id 2905}#)
-                                              #{s 2874}#
+                                        (if (if (pair? #{id 4616}#)
+                                              #{s 4518}#
                                               #f)
                                           (set-source-properties!
-                                            #{id 2905}#
-                                            #{s 2874}#))
-                                        #{id 2905}#)))
-                                (if (if (null? (car #{w 2873}#))
-                                      (null? (cdr #{w 2873}#))
+                                            #{id 4616}#
+                                            #{s 4518}#))
+                                        #{id 4616}#)))
+                                (if (if (null? (car #{w 4517}#))
+                                      (null? (cdr #{w 4517}#))
                                       #f)
-                                  #{x 5324}#
-                                  (if (if (vector? #{x 5324}#)
-                                        (if (= (vector-length #{x 5324}#) 4)
-                                          (eq? (vector-ref #{x 5324}# 0)
+                                  #{x 4723}#
+                                  (if (if (vector? #{x 4723}#)
+                                        (if (= (vector-length #{x 4723}#) 4)
+                                          (eq? (vector-ref #{x 4723}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (let ((#{expression 5336}#
-                                            (vector-ref #{x 5324}# 1))
-                                          (#{wrap 5337}#
-                                            (let ((#{w2 5345}#
-                                                    (vector-ref #{x 5324}# 2)))
-                                              (let ((#{m1 5346}#
-                                                      (car #{w 2873}#))
-                                                    (#{s1 5347}#
-                                                      (cdr #{w 2873}#)))
-                                                (if (null? #{m1 5346}#)
-                                                  (if (null? #{s1 5347}#)
-                                                    #{w2 5345}#
-                                                    (cons (car #{w2 5345}#)
-                                                          (let ((#{m2 5354}#
-                                                                  (cdr #{w2 
5345}#)))
-                                                            (if (null? #{m2 
5354}#)
-                                                              #{s1 5347}#
+                                    (let ((#{expression 4755}#
+                                            (vector-ref #{x 4723}# 1))
+                                          (#{wrap 4756}#
+                                            (let ((#{w2 4764}#
+                                                    (vector-ref #{x 4723}# 2)))
+                                              (let ((#{m1 4765}#
+                                                      (car #{w 4517}#))
+                                                    (#{s1 4766}#
+                                                      (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}#
                                                               (append
-                                                                #{s1 5347}#
-                                                                #{m2 
5354}#)))))
-                                                  (cons (let ((#{m2 5358}#
-                                                                (car #{w2 
5345}#)))
-                                                          (if (null? #{m2 
5358}#)
-                                                            #{m1 5346}#
+                                                                #{s1 4766}#
+                                                                #{m2 
4781}#)))))
+                                                  (cons (let ((#{m2 4789}#
+                                                                (car #{w2 
4764}#)))
+                                                          (if (null? #{m2 
4789}#)
+                                                            #{m1 4765}#
                                                             (append
-                                                              #{m1 5346}#
-                                                              #{m2 5358}#)))
-                                                        (let ((#{m2 5362}#
-                                                                (cdr #{w2 
5345}#)))
-                                                          (if (null? #{m2 
5362}#)
-                                                            #{s1 5347}#
+                                                              #{m1 4765}#
+                                                              #{m2 4789}#)))
+                                                        (let ((#{m2 4797}#
+                                                                (cdr #{w2 
4764}#)))
+                                                          (if (null? #{m2 
4797}#)
+                                                            #{s1 4766}#
                                                             (append
-                                                              #{s1 5347}#
-                                                              #{m2 
5362}#))))))))
-                                          (#{module 5338}#
-                                            (vector-ref #{x 5324}# 3)))
+                                                              #{s1 4766}#
+                                                              #{m2 
4797}#))))))))
+                                          (#{module 4757}#
+                                            (vector-ref #{x 4723}# 3)))
                                       (vector
                                         'syntax-object
-                                        #{expression 5336}#
-                                        #{wrap 5337}#
-                                        #{module 5338}#))
-                                    (if (null? #{x 5324}#)
-                                      #{x 5324}#
+                                        #{expression 4755}#
+                                        #{wrap 4756}#
+                                        #{module 4757}#))
+                                    (if (null? #{x 4723}#)
+                                      #{x 4723}#
                                       (vector
                                         'syntax-object
-                                        #{x 5324}#
-                                        #{w 2873}#
-                                        #{mod 2875}#)))))))))
-                      #{var 2896}#
-                      #{names 2901}#)
-                    (#{chi-body 449}#
-                      (cons #{e1 2898}# #{e2 2899}#)
-                      (let ((#{x 5380}#
+                                        #{x 4723}#
+                                        #{w 4517}#
+                                        #{mod 4519}#)))))))))
+                      #{var 4611}#
+                      #{names 4615}#)
+                    (#{chi-body 4379}#
+                      (cons #{e1 4613}# #{e2 4614}#)
+                      (let ((#{x 4894}#
                               (begin
-                                (if (if (pair? #{e 2871}#) #{s 2874}# #f)
+                                (if (if (pair? #{e 4515}#) #{s 4518}# #f)
                                   (set-source-properties!
-                                    #{e 2871}#
-                                    #{s 2874}#))
-                                #{e 2871}#)))
-                        (if (if (null? (car #{w 2873}#))
-                              (null? (cdr #{w 2873}#))
+                                    #{e 4515}#
+                                    #{s 4518}#))
+                                #{e 4515}#)))
+                        (if (if (null? (car #{w 4517}#))
+                              (null? (cdr #{w 4517}#))
                               #f)
-                          #{x 5380}#
-                          (if (if (vector? #{x 5380}#)
-                                (if (= (vector-length #{x 5380}#) 4)
-                                  (eq? (vector-ref #{x 5380}# 0)
+                          #{x 4894}#
+                          (if (if (vector? #{x 4894}#)
+                                (if (= (vector-length #{x 4894}#) 4)
+                                  (eq? (vector-ref #{x 4894}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (let ((#{expression 5392}#
-                                    (vector-ref #{x 5380}# 1))
-                                  (#{wrap 5393}#
-                                    (let ((#{w2 5401}#
-                                            (vector-ref #{x 5380}# 2)))
-                                      (let ((#{m1 5402}# (car #{w 2873}#))
-                                            (#{s1 5403}# (cdr #{w 2873}#)))
-                                        (if (null? #{m1 5402}#)
-                                          (if (null? #{s1 5403}#)
-                                            #{w2 5401}#
-                                            (cons (car #{w2 5401}#)
-                                                  (let ((#{m2 5410}#
-                                                          (cdr #{w2 5401}#)))
-                                                    (if (null? #{m2 5410}#)
-                                                      #{s1 5403}#
+                            (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}#
                                                       (append
-                                                        #{s1 5403}#
-                                                        #{m2 5410}#)))))
-                                          (cons (let ((#{m2 5414}#
-                                                        (car #{w2 5401}#)))
-                                                  (if (null? #{m2 5414}#)
-                                                    #{m1 5402}#
+                                                        #{s1 4937}#
+                                                        #{m2 4952}#)))))
+                                          (cons (let ((#{m2 4960}#
+                                                        (car #{w2 4935}#)))
+                                                  (if (null? #{m2 4960}#)
+                                                    #{m1 4936}#
                                                     (append
-                                                      #{m1 5402}#
-                                                      #{m2 5414}#)))
-                                                (let ((#{m2 5418}#
-                                                        (cdr #{w2 5401}#)))
-                                                  (if (null? #{m2 5418}#)
-                                                    #{s1 5403}#
+                                                      #{m1 4936}#
+                                                      #{m2 4960}#)))
+                                                (let ((#{m2 4968}#
+                                                        (cdr #{w2 4935}#)))
+                                                  (if (null? #{m2 4968}#)
+                                                    #{s1 4937}#
                                                     (append
-                                                      #{s1 5403}#
-                                                      #{m2 5418}#))))))))
-                                  (#{module 5394}# (vector-ref #{x 5380}# 3)))
+                                                      #{s1 4937}#
+                                                      #{m2 4968}#))))))))
+                                  (#{module 4928}# (vector-ref #{x 4894}# 3)))
                               (vector
                                 'syntax-object
-                                #{expression 5392}#
-                                #{wrap 5393}#
-                                #{module 5394}#))
-                            (if (null? #{x 5380}#)
-                              #{x 5380}#
+                                #{expression 4926}#
+                                #{wrap 4927}#
+                                #{module 4928}#))
+                            (if (null? #{x 4894}#)
+                              #{x 4894}#
                               (vector
                                 'syntax-object
-                                #{x 5380}#
-                                #{w 2873}#
-                                #{mod 2875}#)))))
-                      (#{extend-env 341}#
-                        #{names 2901}#
-                        (let ((#{trans-r 2917}#
-                                (#{macros-only-env 345}# #{r 2872}#)))
-                          (map (lambda (#{x 2918}#)
+                                #{x 4894}#
+                                #{w 4517}#
+                                #{mod 4519}#)))))
+                      (#{extend-env 4337}#
+                        #{names 4615}#
+                        (let ((#{trans-r 5046}#
+                                (#{macros-only-env 4339}# #{r 4516}#)))
+                          (map (lambda (#{x 5047}#)
                                  (cons 'macro
-                                       (#{eval-local-transformer 453}#
-                                         (#{chi 441}#
-                                           #{x 2918}#
-                                           #{trans-r 2917}#
-                                           #{w 2873}#
-                                           #{mod 2875}#)
-                                         #{mod 2875}#)))
-                               #{val 2897}#))
-                        #{r 2872}#)
-                      #{w 2873}#
-                      #{mod 2875}#))))
-              #{tmp 2882}#)
+                                       (#{eval-local-transformer 4381}#
+                                         (#{chi 4375}#
+                                           #{x 5047}#
+                                           #{trans-r 5046}#
+                                           #{w 4517}#
+                                           #{mod 4519}#)
+                                         #{mod 4519}#)))
+                               #{val 4612}#))
+                        #{r 4516}#)
+                      #{w 4517}#
+                      #{mod 4519}#))))
+              #{tmp 4521}#)
             (syntax-violation
               'fluid-let-syntax
               "bad syntax"
-              (let ((#{x 5641}#
+              (let ((#{x 5261}#
                       (begin
-                        (if (if (pair? #{e 2871}#) #{s 2874}# #f)
-                          (set-source-properties! #{e 2871}# #{s 2874}#))
-                        #{e 2871}#)))
-                (if (if (null? (car #{w 2873}#))
-                      (null? (cdr #{w 2873}#))
+                        (if (if (pair? #{e 4515}#) #{s 4518}# #f)
+                          (set-source-properties! #{e 4515}# #{s 4518}#))
+                        #{e 4515}#)))
+                (if (if (null? (car #{w 4517}#))
+                      (null? (cdr #{w 4517}#))
                       #f)
-                  #{x 5641}#
-                  (if (if (vector? #{x 5641}#)
-                        (if (= (vector-length #{x 5641}#) 4)
-                          (eq? (vector-ref #{x 5641}# 0) 'syntax-object)
+                  #{x 5261}#
+                  (if (if (vector? #{x 5261}#)
+                        (if (= (vector-length #{x 5261}#) 4)
+                          (eq? (vector-ref #{x 5261}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (let ((#{expression 5653}# (vector-ref #{x 5641}# 1))
-                          (#{wrap 5654}#
-                            (let ((#{w2 5662}# (vector-ref #{x 5641}# 2)))
-                              (let ((#{m1 5663}# (car #{w 2873}#))
-                                    (#{s1 5664}# (cdr #{w 2873}#)))
-                                (if (null? #{m1 5663}#)
-                                  (if (null? #{s1 5664}#)
-                                    #{w2 5662}#
-                                    (cons (car #{w2 5662}#)
-                                          (let ((#{m2 5671}#
-                                                  (cdr #{w2 5662}#)))
-                                            (if (null? #{m2 5671}#)
-                                              #{s1 5664}#
+                    (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}#
                                               (append
-                                                #{s1 5664}#
-                                                #{m2 5671}#)))))
-                                  (cons (let ((#{m2 5675}# (car #{w2 5662}#)))
-                                          (if (null? #{m2 5675}#)
-                                            #{m1 5663}#
-                                            (append #{m1 5663}# #{m2 5675}#)))
-                                        (let ((#{m2 5679}# (cdr #{w2 5662}#)))
-                                          (if (null? #{m2 5679}#)
-                                            #{s1 5664}#
+                                                #{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}#
                                             (append
-                                              #{s1 5664}#
-                                              #{m2 5679}#))))))))
-                          (#{module 5655}# (vector-ref #{x 5641}# 3)))
+                                              #{s1 5304}#
+                                              #{m2 5335}#))))))))
+                          (#{module 5295}# (vector-ref #{x 5261}# 3)))
                       (vector
                         'syntax-object
-                        #{expression 5653}#
-                        #{wrap 5654}#
-                        #{module 5655}#))
-                    (if (null? #{x 5641}#)
-                      #{x 5641}#
+                        #{expression 5293}#
+                        #{wrap 5294}#
+                        #{module 5295}#))
+                    (if (null? #{x 5261}#)
+                      #{x 5261}#
                       (vector
                         'syntax-object
-                        #{x 5641}#
-                        #{w 2873}#
-                        #{mod 2875}#))))))))))
+                        #{x 5261}#
+                        #{w 4517}#
+                        #{mod 4519}#))))))))))
     (module-define!
       (current-module)
       'quote
       (make-syntax-transformer
         'quote
         'core
-        (lambda (#{e 2924}#
-                 #{r 2925}#
-                 #{w 2926}#
-                 #{s 2927}#
-                 #{mod 2928}#)
-          (let ((#{tmp 2935}# ($sc-dispatch #{e 2924}# '(_ any))))
-            (if #{tmp 2935}#
+        (lambda (#{e 5363}#
+                 #{r 5364}#
+                 #{w 5365}#
+                 #{s 5366}#
+                 #{mod 5367}#)
+          (let ((#{tmp 5369}# ($sc-dispatch #{e 5363}# '(_ any))))
+            (if #{tmp 5369}#
               (@apply
-                (lambda (#{e 2937}#)
-                  (let ((#{exp 5696}#
-                          (#{strip 467}# #{e 2937}# #{w 2926}#)))
+                (lambda (#{e 5372}#)
+                  (let ((#{exp 5376}#
+                          (#{strip 4388}# #{e 5372}# #{w 5365}#)))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 1)
-                      #{s 2927}#
-                      #{exp 5696}#)))
-                #{tmp 2935}#)
+                      #{s 5366}#
+                      #{exp 5376}#)))
+                #{tmp 5369}#)
               (syntax-violation
                 'quote
                 "bad syntax"
-                (let ((#{x 5710}#
+                (let ((#{x 5390}#
                         (begin
-                          (if (if (pair? #{e 2924}#) #{s 2927}# #f)
-                            (set-source-properties! #{e 2924}# #{s 2927}#))
-                          #{e 2924}#)))
-                  (if (if (null? (car #{w 2926}#))
-                        (null? (cdr #{w 2926}#))
+                          (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}#))
                         #f)
-                    #{x 5710}#
-                    (if (if (vector? #{x 5710}#)
-                          (if (= (vector-length #{x 5710}#) 4)
-                            (eq? (vector-ref #{x 5710}# 0) 'syntax-object)
+                    #{x 5390}#
+                    (if (if (vector? #{x 5390}#)
+                          (if (= (vector-length #{x 5390}#) 4)
+                            (eq? (vector-ref #{x 5390}# 0) 'syntax-object)
                             #f)
                           #f)
-                      (let ((#{expression 5722}# (vector-ref #{x 5710}# 1))
-                            (#{wrap 5723}#
-                              (let ((#{w2 5731}# (vector-ref #{x 5710}# 2)))
-                                (let ((#{m1 5732}# (car #{w 2926}#))
-                                      (#{s1 5733}# (cdr #{w 2926}#)))
-                                  (if (null? #{m1 5732}#)
-                                    (if (null? #{s1 5733}#)
-                                      #{w2 5731}#
-                                      (cons (car #{w2 5731}#)
-                                            (let ((#{m2 5740}#
-                                                    (cdr #{w2 5731}#)))
-                                              (if (null? #{m2 5740}#)
-                                                #{s1 5733}#
+                      (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}#
                                                 (append
-                                                  #{s1 5733}#
-                                                  #{m2 5740}#)))))
-                                    (cons (let ((#{m2 5744}#
-                                                  (car #{w2 5731}#)))
-                                            (if (null? #{m2 5744}#)
-                                              #{m1 5732}#
+                                                  #{s1 5433}#
+                                                  #{m2 5448}#)))))
+                                    (cons (let ((#{m2 5456}#
+                                                  (car #{w2 5431}#)))
+                                            (if (null? #{m2 5456}#)
+                                              #{m1 5432}#
                                               (append
-                                                #{m1 5732}#
-                                                #{m2 5744}#)))
-                                          (let ((#{m2 5748}#
-                                                  (cdr #{w2 5731}#)))
-                                            (if (null? #{m2 5748}#)
-                                              #{s1 5733}#
+                                                #{m1 5432}#
+                                                #{m2 5456}#)))
+                                          (let ((#{m2 5464}#
+                                                  (cdr #{w2 5431}#)))
+                                            (if (null? #{m2 5464}#)
+                                              #{s1 5433}#
                                               (append
-                                                #{s1 5733}#
-                                                #{m2 5748}#))))))))
-                            (#{module 5724}# (vector-ref #{x 5710}# 3)))
+                                                #{s1 5433}#
+                                                #{m2 5464}#))))))))
+                            (#{module 5424}# (vector-ref #{x 5390}# 3)))
                         (vector
                           'syntax-object
-                          #{expression 5722}#
-                          #{wrap 5723}#
-                          #{module 5724}#))
-                      (if (null? #{x 5710}#)
-                        #{x 5710}#
+                          #{expression 5422}#
+                          #{wrap 5423}#
+                          #{module 5424}#))
+                      (if (null? #{x 5390}#)
+                        #{x 5390}#
                         (vector
                           'syntax-object
-                          #{x 5710}#
-                          #{w 2926}#
-                          #{mod 2928}#)))))))))))
-    (#{global-extend 349}#
+                          #{x 5390}#
+                          #{w 5365}#
+                          #{mod 5367}#)))))))))))
+    (#{global-extend 4341}#
       'core
       'syntax
       (letrec*
-        ((#{gen-syntax 2941}#
-           (lambda (#{src 2956}#
-                    #{e 2957}#
-                    #{r 2958}#
-                    #{maps 2959}#
-                    #{ellipsis? 2960}#
-                    #{mod 2961}#)
-             (if (if (symbol? #{e 2957}#)
+        ((#{gen-syntax 5704}#
+           (lambda (#{src 6157}#
+                    #{e 6158}#
+                    #{r 6159}#
+                    #{maps 6160}#
+                    #{ellipsis? 6161}#
+                    #{mod 6162}#)
+             (if (if (symbol? #{e 6158}#)
                    #t
-                   (if (if (vector? #{e 2957}#)
-                         (if (= (vector-length #{e 2957}#) 4)
-                           (eq? (vector-ref #{e 2957}# 0) 'syntax-object)
+                   (if (if (vector? #{e 6158}#)
+                         (if (= (vector-length #{e 6158}#) 4)
+                           (eq? (vector-ref #{e 6158}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{e 2957}# 1))
+                     (symbol? (vector-ref #{e 6158}# 1))
                      #f))
-               (let ((#{label 2969}#
-                       (#{id-var-name 415}# #{e 2957}# '(()))))
-                 (let ((#{b 2972}#
-                         (let ((#{t 5811}# (assq #{label 2969}# #{r 2958}#)))
-                           (if #{t 5811}#
-                             (cdr #{t 5811}#)
-                             (if (symbol? #{label 2969}#)
-                               (let ((#{t 5812}#
-                                       (#{get-global-definition-hook 265}#
-                                         #{label 2969}#
-                                         #{mod 2961}#)))
-                                 (if #{t 5812}# #{t 5812}# '(global)))
+               (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}#
+                                       (begin
+                                         (if (if (not #{mod 6162}#)
+                                               (current-module)
+                                               #f)
+                                           (warn "module system is booted, we 
should have a module"
+                                                 #{label 6189}#))
+                                         (let ((#{v 6369}#
+                                                 (module-variable
+                                                   (if #{mod 6162}#
+                                                     (resolve-module
+                                                       (cdr #{mod 6162}#))
+                                                     (current-module))
+                                                   #{label 6189}#)))
+                                           (if #{v 6369}#
+                                             (if (variable-bound? #{v 6369}#)
+                                               (let ((#{val 6378}#
+                                                       (variable-ref
+                                                         #{v 6369}#)))
+                                                 (if (macro? #{val 6378}#)
+                                                   (if (macro-type
+                                                         #{val 6378}#)
+                                                     (cons (macro-type
+                                                             #{val 6378}#)
+                                                           (macro-binding
+                                                             #{val 6378}#))
+                                                     #f)
+                                                   #f))
+                                               #f)
+                                             #f)))))
+                                 (if #{t 6332}# #{t 6332}# '(global)))
                                '(displaced-lexical))))))
-                   (if (eq? (car #{b 2972}#) 'syntax)
+                   (if (eq? (car #{b 6190}#) 'syntax)
                      (call-with-values
                        (lambda ()
-                         (let ((#{var.lev 2975}# (cdr #{b 2972}#)))
-                           (#{gen-ref 2943}#
-                             #{src 2956}#
-                             (car #{var.lev 2975}#)
-                             (cdr #{var.lev 2975}#)
-                             #{maps 2959}#)))
-                       (lambda (#{var 2977}# #{maps 2978}#)
-                         (values (list 'ref #{var 2977}#) #{maps 2978}#)))
-                     (if (#{ellipsis? 2960}# #{e 2957}#)
+                         (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}#)
                        (syntax-violation
                          'syntax
                          "misplaced ellipsis"
-                         #{src 2956}#)
-                       (values (list 'quote #{e 2957}#) #{maps 2959}#)))))
-               (let ((#{tmp 2984}#
-                       ($sc-dispatch #{e 2957}# '(any any))))
-                 (if (if #{tmp 2984}#
+                         #{src 6157}#)
+                       (values (list 'quote #{e 6158}#) #{maps 6160}#)))))
+               (let ((#{tmp 6390}#
+                       ($sc-dispatch #{e 6158}# '(any any))))
+                 (if (if #{tmp 6390}#
                        (@apply
-                         (lambda (#{dots 2987}# #{e 2988}#)
-                           (#{ellipsis? 2960}# #{dots 2987}#))
-                         #{tmp 2984}#)
+                         (lambda (#{dots 6394}# #{e 6395}#)
+                           (#{ellipsis? 6161}# #{dots 6394}#))
+                         #{tmp 6390}#)
                        #f)
                    (@apply
-                     (lambda (#{dots 2991}# #{e 2992}#)
-                       (#{gen-syntax 2941}#
-                         #{src 2956}#
-                         #{e 2992}#
-                         #{r 2958}#
-                         #{maps 2959}#
-                         (lambda (#{x 2993}#) #f)
-                         #{mod 2961}#))
-                     #{tmp 2984}#)
-                   (let ((#{tmp 2995}#
-                           ($sc-dispatch #{e 2957}# '(any any . any))))
-                     (if (if #{tmp 2995}#
+                     (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}#
                            (@apply
-                             (lambda (#{x 2999}# #{dots 3000}# #{y 3001}#)
-                               (#{ellipsis? 2960}# #{dots 3000}#))
-                             #{tmp 2995}#)
+                             (lambda (#{x 6403}# #{dots 6404}# #{y 6405}#)
+                               (#{ellipsis? 6161}# #{dots 6404}#))
+                             #{tmp 6399}#)
                            #f)
                        (@apply
-                         (lambda (#{x 3005}# #{dots 3006}# #{y 3007}#)
+                         (lambda (#{x 6406}# #{dots 6407}# #{y 6408}#)
                            (letrec*
-                             ((#{f 3011}#
-                                (lambda (#{y 3012}# #{k 3013}#)
-                                  (let ((#{tmp 3021}#
+                             ((#{f 6409}#
+                                (lambda (#{y 6417}# #{k 6418}#)
+                                  (let ((#{tmp 6420}#
                                           ($sc-dispatch
-                                            #{y 3012}#
+                                            #{y 6417}#
                                             '(any . any))))
-                                    (if (if #{tmp 3021}#
+                                    (if (if #{tmp 6420}#
                                           (@apply
-                                            (lambda (#{dots 3024}# #{y 3025}#)
-                                              (#{ellipsis? 2960}#
-                                                #{dots 3024}#))
-                                            #{tmp 3021}#)
+                                            (lambda (#{dots 6424}# #{y 6425}#)
+                                              (#{ellipsis? 6161}#
+                                                #{dots 6424}#))
+                                            #{tmp 6420}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{dots 3028}# #{y 3029}#)
-                                          (#{f 3011}#
-                                            #{y 3029}#
-                                            (lambda (#{maps 3030}#)
+                                        (lambda (#{dots 6426}# #{y 6427}#)
+                                          (#{f 6409}#
+                                            #{y 6427}#
+                                            (lambda (#{maps 6428}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{k 3013}#
-                                                    (cons '() #{maps 3030}#)))
-                                                (lambda (#{x 3032}#
-                                                         #{maps 3033}#)
-                                                  (if (null? (car #{maps 
3033}#))
+                                                  (#{k 6418}#
+                                                    (cons '() #{maps 6428}#)))
+                                                (lambda (#{x 6429}#
+                                                         #{maps 6430}#)
+                                                  (if (null? (car #{maps 
6430}#))
                                                     (syntax-violation
                                                       'syntax
                                                       "extra ellipsis"
-                                                      #{src 2956}#)
+                                                      #{src 6157}#)
                                                     (values
-                                                      (#{gen-mappend 2945}#
-                                                        #{x 3032}#
-                                                        (car #{maps 3033}#))
-                                                      (cdr #{maps 
3033}#))))))))
-                                        #{tmp 3021}#)
+                                                      (let ((#{map-env 6434}#
+                                                              (car #{maps 
6430}#)))
+                                                        (list 'apply
+                                                              '(primitive
+                                                                 append)
+                                                              (#{gen-map 5707}#
+                                                                #{x 6429}#
+                                                                #{map-env 
6434}#)))
+                                                      (cdr #{maps 
6430}#))))))))
+                                        #{tmp 6420}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{gen-syntax 2941}#
-                                            #{src 2956}#
-                                            #{y 3012}#
-                                            #{r 2958}#
-                                            #{maps 2959}#
-                                            #{ellipsis? 2960}#
-                                            #{mod 2961}#))
-                                        (lambda (#{y 3038}# #{maps 3039}#)
+                                          (#{gen-syntax 5704}#
+                                            #{src 6157}#
+                                            #{y 6417}#
+                                            #{r 6159}#
+                                            #{maps 6160}#
+                                            #{ellipsis? 6161}#
+                                            #{mod 6162}#))
+                                        (lambda (#{y 6437}# #{maps 6438}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{k 3013}# #{maps 3039}#))
-                                            (lambda (#{x 3042}# #{maps 3043}#)
+                                              (#{k 6418}# #{maps 6438}#))
+                                            (lambda (#{x 6439}# #{maps 6440}#)
                                               (values
-                                                (#{gen-append 2951}#
-                                                  #{x 3042}#
-                                                  #{y 3038}#)
-                                                #{maps 3043}#))))))))))
-                             (#{f 3011}#
-                               #{y 3007}#
-                               (lambda (#{maps 3014}#)
+                                                (if (equal? #{y 6437}# ''())
+                                                  #{x 6439}#
+                                                  (list 'append
+                                                        #{x 6439}#
+                                                        #{y 6437}#))
+                                                #{maps 6440}#))))))))))
+                             (#{f 6409}#
+                               #{y 6408}#
+                               (lambda (#{maps 6412}#)
                                  (call-with-values
                                    (lambda ()
-                                     (#{gen-syntax 2941}#
-                                       #{src 2956}#
-                                       #{x 3005}#
-                                       #{r 2958}#
-                                       (cons '() #{maps 3014}#)
-                                       #{ellipsis? 2960}#
-                                       #{mod 2961}#))
-                                   (lambda (#{x 3016}# #{maps 3017}#)
-                                     (if (null? (car #{maps 3017}#))
+                                     (#{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}#))
                                        (syntax-violation
                                          'syntax
                                          "extra ellipsis"
-                                         #{src 2956}#)
+                                         #{src 6157}#)
                                        (values
-                                         (#{gen-map 2947}#
-                                           #{x 3016}#
-                                           (car #{maps 3017}#))
-                                         (cdr #{maps 3017}#)))))))))
-                         #{tmp 2995}#)
-                       (let ((#{tmp 3046}#
-                               ($sc-dispatch #{e 2957}# '(any . any))))
-                         (if #{tmp 3046}#
+                                         (#{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}#
                            (@apply
-                             (lambda (#{x 3049}# #{y 3050}#)
+                             (lambda (#{x 6460}# #{y 6461}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax 2941}#
-                                     #{src 2956}#
-                                     #{x 3049}#
-                                     #{r 2958}#
-                                     #{maps 2959}#
-                                     #{ellipsis? 2960}#
-                                     #{mod 2961}#))
-                                 (lambda (#{x 3051}# #{maps 3052}#)
+                                   (#{gen-syntax 5704}#
+                                     #{src 6157}#
+                                     #{x 6460}#
+                                     #{r 6159}#
+                                     #{maps 6160}#
+                                     #{ellipsis? 6161}#
+                                     #{mod 6162}#))
+                                 (lambda (#{x 6462}# #{maps 6463}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 2941}#
-                                         #{src 2956}#
-                                         #{y 3050}#
-                                         #{r 2958}#
-                                         #{maps 3052}#
-                                         #{ellipsis? 2960}#
-                                         #{mod 2961}#))
-                                     (lambda (#{y 3055}# #{maps 3056}#)
+                                       (#{gen-syntax 5704}#
+                                         #{src 6157}#
+                                         #{y 6461}#
+                                         #{r 6159}#
+                                         #{maps 6463}#
+                                         #{ellipsis? 6161}#
+                                         #{mod 6162}#))
+                                     (lambda (#{y 6464}# #{maps 6465}#)
                                        (values
-                                         (#{gen-cons 2949}#
-                                           #{x 3051}#
-                                           #{y 3055}#)
-                                         #{maps 3056}#))))))
-                             #{tmp 3046}#)
-                           (let ((#{tmp 3059}#
+                                         (let ((#{atom-key 6470}#
+                                                 (car #{y 6464}#)))
+                                           (if (eqv? #{atom-key 6470}# 'quote)
+                                             (if (eq? (car #{x 6462}#) 'quote)
+                                               (list 'quote
+                                                     (cons (car (cdr #{x 
6462}#))
+                                                           (car (cdr #{y 
6464}#))))
+                                               (if (eq? (car (cdr #{y 6464}#))
+                                                        '())
+                                                 (list 'list #{x 6462}#)
+                                                 (list 'cons
+                                                       #{x 6462}#
+                                                       #{y 6464}#)))
+                                             (if (eqv? #{atom-key 6470}# 'list)
+                                               (cons 'list
+                                                     (cons #{x 6462}#
+                                                           (cdr #{y 6464}#)))
+                                               (list 'cons
+                                                     #{x 6462}#
+                                                     #{y 6464}#))))
+                                         #{maps 6465}#))))))
+                             #{tmp 6456}#)
+                           (let ((#{tmp 6499}#
                                    ($sc-dispatch
-                                     #{e 2957}#
+                                     #{e 6158}#
                                      '#(vector (any . each-any)))))
-                             (if #{tmp 3059}#
+                             (if #{tmp 6499}#
                                (@apply
-                                 (lambda (#{e1 3062}# #{e2 3063}#)
+                                 (lambda (#{e1 6503}# #{e2 6504}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 2941}#
-                                         #{src 2956}#
-                                         (cons #{e1 3062}# #{e2 3063}#)
-                                         #{r 2958}#
-                                         #{maps 2959}#
-                                         #{ellipsis? 2960}#
-                                         #{mod 2961}#))
-                                     (lambda (#{e 3065}# #{maps 3066}#)
+                                       (#{gen-syntax 5704}#
+                                         #{src 6157}#
+                                         (cons #{e1 6503}# #{e2 6504}#)
+                                         #{r 6159}#
+                                         #{maps 6160}#
+                                         #{ellipsis? 6161}#
+                                         #{mod 6162}#))
+                                     (lambda (#{e 6505}# #{maps 6506}#)
                                        (values
-                                         (#{gen-vector 2953}# #{e 3065}#)
-                                         #{maps 3066}#))))
-                                 #{tmp 3059}#)
+                                         (if (eq? (car #{e 6505}#) 'list)
+                                           (cons 'vector (cdr #{e 6505}#))
+                                           (if (eq? (car #{e 6505}#) 'quote)
+                                             (list 'quote
+                                                   (list->vector
+                                                     (car (cdr #{e 6505}#))))
+                                             (list 'list->vector #{e 6505}#)))
+                                         #{maps 6506}#))))
+                                 #{tmp 6499}#)
                                (values
-                                 (list 'quote #{e 2957}#)
-                                 #{maps 2959}#))))))))))))
-         (#{gen-ref 2943}#
-           (lambda (#{src 3072}#
-                    #{var 3073}#
-                    #{level 3074}#
-                    #{maps 3075}#)
-             (if (= #{level 3074}# 0)
-               (values #{var 3073}# #{maps 3075}#)
-               (if (null? #{maps 3075}#)
+                                 (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}#)
                  (syntax-violation
                    'syntax
                    "missing ellipsis"
-                   #{src 3072}#)
+                   #{src 6533}#)
                  (call-with-values
                    (lambda ()
-                     (#{gen-ref 2943}#
-                       #{src 3072}#
-                       #{var 3073}#
-                       (#{1-}# #{level 3074}#)
-                       (cdr #{maps 3075}#)))
-                   (lambda (#{outer-var 3082}# #{outer-maps 3083}#)
-                     (let ((#{b 3087}#
-                             (assq #{outer-var 3082}# (car #{maps 3075}#))))
-                       (if #{b 3087}#
-                         (values (cdr #{b 3087}#) #{maps 3075}#)
-                         (let ((#{inner-var 3089}#
+                     (#{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}#
                                  (gensym
                                    (string-append (symbol->string 'tmp) " "))))
                            (values
-                             #{inner-var 3089}#
-                             (cons (cons (cons #{outer-var 3082}#
-                                               #{inner-var 3089}#)
-                                         (car #{maps 3075}#))
-                                   #{outer-maps 3083}#)))))))))))
-         (#{gen-mappend 2945}#
-           (lambda (#{e 3090}# #{map-env 3091}#)
-             (list 'apply
-                   '(primitive append)
-                   (#{gen-map 2947}# #{e 3090}# #{map-env 3091}#))))
-         (#{gen-map 2947}#
-           (lambda (#{e 3095}# #{map-env 3096}#)
-             (let ((#{formals 3101}# (map cdr #{map-env 3096}#))
-                   (#{actuals 3102}#
-                     (map (lambda (#{x 3103}#)
-                            (list 'ref (car #{x 3103}#)))
-                          #{map-env 3096}#)))
-               (if (eq? (car #{e 3095}#) 'ref)
-                 (car #{actuals 3102}#)
+                             #{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}#)
                  (if (and-map
-                       (lambda (#{x 3110}#)
-                         (if (eq? (car #{x 3110}#) 'ref)
-                           (memq (car (cdr #{x 3110}#)) #{formals 3101}#)
+                       (lambda (#{x 6561}#)
+                         (if (eq? (car #{x 6561}#) 'ref)
+                           (memq (car (cdr #{x 6561}#)) #{formals 6557}#)
                            #f))
-                       (cdr #{e 3095}#))
+                       (cdr #{e 6555}#))
                    (cons 'map
-                         (cons (list 'primitive (car #{e 3095}#))
-                               (map (let ((#{r 3116}#
+                         (cons (list 'primitive (car #{e 6555}#))
+                               (map (let ((#{r 6563}#
                                             (map cons
-                                                 #{formals 3101}#
-                                                 #{actuals 3102}#)))
-                                      (lambda (#{x 3117}#)
-                                        (cdr (assq (car (cdr #{x 3117}#))
-                                                   #{r 3116}#))))
-                                    (cdr #{e 3095}#))))
+                                                 #{formals 6557}#
+                                                 #{actuals 6558}#)))
+                                      (lambda (#{x 6564}#)
+                                        (cdr (assq (car (cdr #{x 6564}#))
+                                                   #{r 6563}#))))
+                                    (cdr #{e 6555}#))))
                    (cons 'map
-                         (cons (list 'lambda #{formals 3101}# #{e 3095}#)
-                               #{actuals 3102}#)))))))
-         (#{gen-cons 2949}#
-           (lambda (#{x 3121}# #{y 3122}#)
-             (let ((#{atom-key 3127}# (car #{y 3122}#)))
-               (if (memv #{atom-key 3127}# '(quote))
-                 (if (eq? (car #{x 3121}#) 'quote)
-                   (list 'quote
-                         (cons (car (cdr #{x 3121}#))
-                               (car (cdr #{y 3122}#))))
-                   (if (eq? (car (cdr #{y 3122}#)) '())
-                     (list 'list #{x 3121}#)
-                     (list 'cons #{x 3121}# #{y 3122}#)))
-                 (if (memv #{atom-key 3127}# '(list))
-                   (cons 'list (cons #{x 3121}# (cdr #{y 3122}#)))
-                   (list 'cons #{x 3121}# #{y 3122}#))))))
-         (#{gen-append 2951}#
-           (lambda (#{x 3136}# #{y 3137}#)
-             (if (equal? #{y 3137}# ''())
-               #{x 3136}#
-               (list 'append #{x 3136}# #{y 3137}#))))
-         (#{gen-vector 2953}#
-           (lambda (#{x 3141}#)
-             (if (eq? (car #{x 3141}#) 'list)
-               (cons 'vector (cdr #{x 3141}#))
-               (if (eq? (car #{x 3141}#) 'quote)
-                 (list 'quote
-                       (list->vector (car (cdr #{x 3141}#))))
-                 (list 'list->vector #{x 3141}#)))))
-         (#{regen 2955}#
-           (lambda (#{x 3151}#)
-             (let ((#{atom-key 3155}# (car #{x 3151}#)))
-               (if (memv #{atom-key 3155}# '(ref))
-                 (let ((#{name 5827}# (car (cdr #{x 3151}#)))
-                       (#{var 5828}# (car (cdr #{x 3151}#))))
+                         (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}#))))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 3)
                      #f
-                     #{name 5827}#
-                     #{var 5828}#))
-                 (if (memv #{atom-key 3155}# '(primitive))
-                   (let ((#{name 5836}# (car (cdr #{x 3151}#))))
+                     #{name 6577}#
+                     #{var 6578}#))
+                 (if (eqv? #{atom-key 6567}# 'primitive)
+                   (let ((#{name 6589}# (car (cdr #{x 6566}#))))
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 2)
                        #f
-                       #{name 5836}#))
-                   (if (memv #{atom-key 3155}# '(quote))
-                     (let ((#{exp 5844}# (car (cdr #{x 3151}#))))
+                       #{name 6589}#))
+                   (if (eqv? #{atom-key 6567}# 'quote)
+                     (let ((#{exp 6600}# (car (cdr #{x 6566}#))))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 1)
                          #f
-                         #{exp 5844}#))
-                     (if (memv #{atom-key 3155}# '(lambda))
-                       (if (list? (car (cdr #{x 3151}#)))
-                         (let ((#{req 5852}# (car (cdr #{x 3151}#)))
-                               (#{vars 5854}# (car (cdr #{x 3151}#)))
-                               (#{exp 5856}#
-                                 (#{regen 2955}#
-                                   (car (cdr (cdr #{x 3151}#))))))
-                           (let ((#{body 5861}#
+                         #{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}#
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 15)
                                      #f
-                                     #{req 5852}#
+                                     #{req 6611}#
                                      #f
                                      #f
                                      #f
                                      '()
-                                     #{vars 5854}#
-                                     #{exp 5856}#
+                                     #{vars 6613}#
+                                     #{exp 6615}#
                                      #f)))
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 14)
                                #f
                                '()
-                               #{body 5861}#)))
-                         (error "how did we get here" #{x 3151}#))
-                       (let ((#{name 5876}# (car #{x 3151}#))
-                             (#{args 5877}#
-                               (map #{regen 2955}# (cdr #{x 3151}#))))
+                               #{body 6620}#)))
+                         (error "how did we get here" #{x 6566}#))
+                       (let ((#{name 6636}# (car #{x 6566}#))
+                             (#{args 6637}#
+                               (map #{regen 5711}# (cdr #{x 6566}#))))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 12)
                            #f
-                           #{name 5876}#
-                           #{args 5877}#))))))))))
-        (lambda (#{e 3166}#
-                 #{r 3167}#
-                 #{w 3168}#
-                 #{s 3169}#
-                 #{mod 3170}#)
-          (let ((#{e 3177}#
-                  (let ((#{x 5891}#
+                           #{name 6636}#
+                           #{args 6637}#))))))))))
+        (lambda (#{e 5712}#
+                 #{r 5713}#
+                 #{w 5714}#
+                 #{s 5715}#
+                 #{mod 5716}#)
+          (let ((#{e 5717}#
+                  (let ((#{x 6068}#
                           (begin
-                            (if (if (pair? #{e 3166}#) #{s 3169}# #f)
-                              (set-source-properties! #{e 3166}# #{s 3169}#))
-                            #{e 3166}#)))
-                    (if (if (null? (car #{w 3168}#))
-                          (null? (cdr #{w 3168}#))
+                            (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}#))
                           #f)
-                      #{x 5891}#
-                      (if (if (vector? #{x 5891}#)
-                            (if (= (vector-length #{x 5891}#) 4)
-                              (eq? (vector-ref #{x 5891}# 0) 'syntax-object)
+                      #{x 6068}#
+                      (if (if (vector? #{x 6068}#)
+                            (if (= (vector-length #{x 6068}#) 4)
+                              (eq? (vector-ref #{x 6068}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (let ((#{expression 5903}# (vector-ref #{x 5891}# 1))
-                              (#{wrap 5904}#
-                                (let ((#{w2 5912}# (vector-ref #{x 5891}# 2)))
-                                  (let ((#{m1 5913}# (car #{w 3168}#))
-                                        (#{s1 5914}# (cdr #{w 3168}#)))
-                                    (if (null? #{m1 5913}#)
-                                      (if (null? #{s1 5914}#)
-                                        #{w2 5912}#
-                                        (cons (car #{w2 5912}#)
-                                              (let ((#{m2 5921}#
-                                                      (cdr #{w2 5912}#)))
-                                                (if (null? #{m2 5921}#)
-                                                  #{s1 5914}#
+                        (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}#
                                                   (append
-                                                    #{s1 5914}#
-                                                    #{m2 5921}#)))))
-                                      (cons (let ((#{m2 5925}#
-                                                    (car #{w2 5912}#)))
-                                              (if (null? #{m2 5925}#)
-                                                #{m1 5913}#
+                                                    #{s1 6111}#
+                                                    #{m2 6126}#)))))
+                                      (cons (let ((#{m2 6134}#
+                                                    (car #{w2 6109}#)))
+                                              (if (null? #{m2 6134}#)
+                                                #{m1 6110}#
                                                 (append
-                                                  #{m1 5913}#
-                                                  #{m2 5925}#)))
-                                            (let ((#{m2 5929}#
-                                                    (cdr #{w2 5912}#)))
-                                              (if (null? #{m2 5929}#)
-                                                #{s1 5914}#
+                                                  #{m1 6110}#
+                                                  #{m2 6134}#)))
+                                            (let ((#{m2 6142}#
+                                                    (cdr #{w2 6109}#)))
+                                              (if (null? #{m2 6142}#)
+                                                #{s1 6111}#
                                                 (append
-                                                  #{s1 5914}#
-                                                  #{m2 5929}#))))))))
-                              (#{module 5905}# (vector-ref #{x 5891}# 3)))
+                                                  #{s1 6111}#
+                                                  #{m2 6142}#))))))))
+                              (#{module 6102}# (vector-ref #{x 6068}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 5903}#
-                            #{wrap 5904}#
-                            #{module 5905}#))
-                        (if (null? #{x 5891}#)
-                          #{x 5891}#
+                            #{expression 6100}#
+                            #{wrap 6101}#
+                            #{module 6102}#))
+                        (if (null? #{x 6068}#)
+                          #{x 6068}#
                           (vector
                             'syntax-object
-                            #{x 5891}#
-                            #{w 3168}#
-                            #{mod 3170}#)))))))
-            (let ((#{tmp 3179}# ($sc-dispatch #{e 3177}# '(_ any))))
-              (if #{tmp 3179}#
-                (@apply
-                  (lambda (#{x 3181}#)
-                    (call-with-values
-                      (lambda ()
-                        (#{gen-syntax 2941}#
-                          #{e 3177}#
-                          #{x 3181}#
-                          #{r 3167}#
-                          '()
-                          #{ellipsis? 457}#
-                          #{mod 3170}#))
-                      (lambda (#{e 3182}# #{maps 3183}#)
-                        (#{regen 2955}# #{e 3182}#))))
-                  #{tmp 3179}#)
-                (syntax-violation
-                  'syntax
-                  "bad `syntax' form"
-                  #{e 3177}#)))))))
-    (#{global-extend 349}#
+                            #{x 6068}#
+                            #{w 5714}#
+                            #{mod 5716}#)))))))
+            (let ((#{tmp 5718}# #{e 5717}#))
+              (let ((#{tmp 5719}#
+                      ($sc-dispatch #{tmp 5718}# '(_ any))))
+                (if #{tmp 5719}#
+                  (@apply
+                    (lambda (#{x 5767}#)
+                      (call-with-values
+                        (lambda ()
+                          (#{gen-syntax 5704}#
+                            #{e 5717}#
+                            #{x 5767}#
+                            #{r 5713}#
+                            '()
+                            #{ellipsis? 4383}#
+                            #{mod 5716}#))
+                        (lambda (#{e 5850}# #{maps 5851}#)
+                          (#{regen 5711}# #{e 5850}#))))
+                    #{tmp 5719}#)
+                  (syntax-violation
+                    'syntax
+                    "bad `syntax' form"
+                    #{e 5717}#))))))))
+    (#{global-extend 4341}#
       'core
       'lambda
-      (lambda (#{e 3188}#
-               #{r 3189}#
-               #{w 3190}#
-               #{s 3191}#
-               #{mod 3192}#)
-        (let ((#{tmp 3199}#
-                ($sc-dispatch #{e 3188}# '(_ any any . each-any))))
-          (if #{tmp 3199}#
+      (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}#
             (@apply
-              (lambda (#{args 3203}# #{e1 3204}# #{e2 3205}#)
+              (lambda (#{args 6883}# #{e1 6884}# #{e2 6885}#)
                 (call-with-values
                   (lambda ()
-                    (#{lambda-formals 459}# #{args 3203}#))
-                  (lambda (#{req 3206}#
-                           #{opt 3207}#
-                           #{rest 3208}#
-                           #{kw 3209}#)
+                    (#{lambda-formals 4384}# #{args 6883}#))
+                  (lambda (#{req 6888}#
+                           #{opt 6889}#
+                           #{rest 6890}#
+                           #{kw 6891}#)
                     (letrec*
-                      ((#{lp 3217}#
-                         (lambda (#{body 3218}# #{meta 3219}#)
-                           (let ((#{tmp 3222}#
+                      ((#{lp 6892}#
+                         (lambda (#{body 6895}# #{meta 6896}#)
+                           (let ((#{tmp 6898}#
                                    ($sc-dispatch
-                                     #{body 3218}#
+                                     #{body 6895}#
                                      '(any any . each-any))))
-                             (if (if #{tmp 3222}#
+                             (if (if #{tmp 6898}#
                                    (@apply
-                                     (lambda (#{docstring 3226}#
-                                              #{e1 3227}#
-                                              #{e2 3228}#)
+                                     (lambda (#{docstring 6902}#
+                                              #{e1 6903}#
+                                              #{e2 6904}#)
                                        (string?
-                                         (syntax->datum #{docstring 3226}#)))
-                                     #{tmp 3222}#)
+                                         (syntax->datum #{docstring 6902}#)))
+                                     #{tmp 6898}#)
                                    #f)
                                (@apply
-                                 (lambda (#{docstring 3232}#
-                                          #{e1 3233}#
-                                          #{e2 3234}#)
-                                   (#{lp 3217}#
-                                     (cons #{e1 3233}# #{e2 3234}#)
+                                 (lambda (#{docstring 6905}#
+                                          #{e1 6906}#
+                                          #{e2 6907}#)
+                                   (#{lp 6892}#
+                                     (cons #{e1 6906}# #{e2 6907}#)
                                      (append
-                                       #{meta 3219}#
+                                       #{meta 6896}#
                                        (list (cons 'documentation
                                                    (syntax->datum
-                                                     #{docstring 3232}#))))))
-                                 #{tmp 3222}#)
-                               (let ((#{tmp 3237}#
+                                                     #{docstring 6905}#))))))
+                                 #{tmp 6898}#)
+                               (let ((#{tmp 6908}#
                                        ($sc-dispatch
-                                         #{body 3218}#
+                                         #{body 6895}#
                                          '(#(vector #(each (any . any)))
                                            any
                                            .
                                            each-any))))
-                                 (if #{tmp 3237}#
+                                 (if #{tmp 6908}#
                                    (@apply
-                                     (lambda (#{k 3242}#
-                                              #{v 3243}#
-                                              #{e1 3244}#
-                                              #{e2 3245}#)
-                                       (#{lp 3217}#
-                                         (cons #{e1 3244}# #{e2 3245}#)
+                                     (lambda (#{k 6912}#
+                                              #{v 6913}#
+                                              #{e1 6914}#
+                                              #{e2 6915}#)
+                                       (#{lp 6892}#
+                                         (cons #{e1 6914}# #{e2 6915}#)
                                          (append
-                                           #{meta 3219}#
+                                           #{meta 6896}#
                                            (syntax->datum
                                              (map cons
-                                                  #{k 3242}#
-                                                  #{v 3243}#)))))
-                                     #{tmp 3237}#)
-                                   ((lambda (#{e 2300}#
-                                             #{r 2301}#
-                                             #{w 2302}#
-                                             #{s 2303}#
-                                             #{mod 2304}#
-                                             #{req 2305}#
-                                             #{rest 2306}#
-                                             #{meta 2307}#
-                                             #{body 2308}#)
-                                      (let ((#{ids 2320}#
-                                              (if #{rest 2306}#
-                                                (append
-                                                  #{req 2305}#
-                                                  (list #{rest 2306}#))
-                                                #{req 2305}#)))
-                                        (let ((#{vars 2322}#
-                                                (map #{gen-var 469}#
-                                                     #{ids 2320}#)))
-                                          (let ((#{labels 2324}#
-                                                  (#{gen-labels 373}#
-                                                    #{ids 2320}#)))
-                                            (#{build-simple-lambda 291}#
-                                              #{s 2303}#
-                                              (map syntax->datum #{req 2305}#)
-                                              (if #{rest 2306}#
-                                                (syntax->datum #{rest 2306}#)
-                                                #f)
-                                              #{vars 2322}#
-                                              #{meta 2307}#
-                                              (#{chi-body 449}#
-                                                #{body 2308}#
-                                                (#{source-wrap 429}#
-                                                  #{e 2300}#
-                                                  #{w 2302}#
-                                                  #{s 2303}#
-                                                  #{mod 2304}#)
-                                                (#{extend-var-env 343}#
-                                                  #{labels 2324}#
-                                                  #{vars 2322}#
-                                                  #{r 2301}#)
-                                                (#{make-binding-wrap 405}#
-                                                  #{ids 2320}#
-                                                  #{labels 2324}#
-                                                  #{w 2302}#)
-                                                #{mod 2304}#))))))
-                                    #{e 3188}#
-                                    #{r 3189}#
-                                    #{w 3190}#
-                                    #{s 3191}#
-                                    #{mod 3192}#
-                                    #{req 3206}#
-                                    #{rest 3208}#
-                                    #{meta 3219}#
-                                    #{body 3218}#))))))))
-                      (#{lp 3217}# (cons #{e1 3204}# #{e2 3205}#) '())))))
-              #{tmp 3199}#)
+                                                  #{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}#)
             (syntax-violation
               'lambda
               "bad lambda"
-              #{e 3188}#)))))
-    (module-define!
-      (current-module)
+              #{e 6873}#)))))
+    (#{global-extend 4341}#
+      'core
       'lambda*
-      (make-syntax-transformer
-        'lambda*
-        'core
-        (lambda (#{e 3253}#
-                 #{r 3254}#
-                 #{w 3255}#
-                 #{s 3256}#
-                 #{mod 3257}#)
-          (let ((#{tmp 3264}#
-                  ($sc-dispatch #{e 3253}# '(_ any any . each-any))))
-            (if #{tmp 3264}#
-              (@apply
-                (lambda (#{args 3268}# #{e1 3269}# #{e2 3270}#)
-                  (call-with-values
-                    (lambda ()
-                      (#{chi-lambda-case 465}#
-                        #{e 3253}#
-                        #{r 3254}#
-                        #{w 3255}#
-                        #{s 3256}#
-                        #{mod 3257}#
-                        #{lambda*-formals 463}#
-                        (list (cons #{args 3268}#
-                                    (cons #{e1 3269}# #{e2 3270}#)))))
-                    (lambda (#{meta 3272}# #{lcase 3273}#)
-                      (make-struct/no-tail
-                        (vector-ref %expanded-vtables 14)
-                        #{s 3256}#
-                        #{meta 3272}#
-                        #{lcase 3273}#))))
-                #{tmp 3264}#)
-              (syntax-violation
-                'lambda
-                "bad lambda*"
-                #{e 3253}#))))))
-    (module-define!
-      (current-module)
+      (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}#
+            (@apply
+              (lambda (#{args 7309}# #{e1 7310}# #{e2 7311}#)
+                (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}#)
+                    (make-struct/no-tail
+                      (vector-ref %expanded-vtables 14)
+                      #{s 7302}#
+                      #{meta 7314}#
+                      #{lcase 7315}#))))
+              #{tmp 7305}#)
+            (syntax-violation
+              'lambda
+              "bad lambda*"
+              #{e 7299}#)))))
+    (#{global-extend 4341}#
+      'core
       'case-lambda
-      (make-syntax-transformer
-        'case-lambda
-        'core
-        (lambda (#{e 3278}#
-                 #{r 3279}#
-                 #{w 3280}#
-                 #{s 3281}#
-                 #{mod 3282}#)
-          (let ((#{tmp 3289}#
-                  ($sc-dispatch
-                    #{e 3278}#
-                    '(_ (any any . each-any)
-                        .
-                        #(each (any any . each-any))))))
-            (if #{tmp 3289}#
-              (@apply
-                (lambda (#{args 3296}#
-                         #{e1 3297}#
-                         #{e2 3298}#
-                         #{args* 3299}#
-                         #{e1* 3300}#
-                         #{e2* 3301}#)
-                  (call-with-values
-                    (lambda ()
-                      (#{chi-lambda-case 465}#
-                        #{e 3278}#
-                        #{r 3279}#
-                        #{w 3280}#
-                        #{s 3281}#
-                        #{mod 3282}#
-                        #{lambda-formals 459}#
-                        (cons (cons #{args 3296}#
-                                    (cons #{e1 3297}# #{e2 3298}#))
-                              (map (lambda (#{tmp 3305}#
-                                            #{tmp 3304}#
-                                            #{tmp 3303}#)
-                                     (cons #{tmp 3303}#
-                                           (cons #{tmp 3304}# #{tmp 3305}#)))
-                                   #{e2* 3301}#
-                                   #{e1* 3300}#
-                                   #{args* 3299}#))))
-                    (lambda (#{meta 3307}# #{lcase 3308}#)
-                      (make-struct/no-tail
-                        (vector-ref %expanded-vtables 14)
-                        #{s 3281}#
-                        #{meta 3307}#
-                        #{lcase 3308}#))))
-                #{tmp 3289}#)
-              (syntax-violation
-                'case-lambda
-                "bad case-lambda"
-                #{e 3278}#))))))
-    (module-define!
-      (current-module)
+      (lambda (#{e 7478}#
+               #{r 7479}#
+               #{w 7480}#
+               #{s 7481}#
+               #{mod 7482}#)
+        (let ((#{tmp 7484}#
+                ($sc-dispatch
+                  #{e 7478}#
+                  '(_ (any any . each-any)
+                      .
+                      #(each (any any . each-any))))))
+          (if #{tmp 7484}#
+            (@apply
+              (lambda (#{args 7488}#
+                       #{e1 7489}#
+                       #{e2 7490}#
+                       #{args* 7491}#
+                       #{e1* 7492}#
+                       #{e2* 7493}#)
+                (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}#)
+                    (make-struct/no-tail
+                      (vector-ref %expanded-vtables 14)
+                      #{s 7481}#
+                      #{meta 7499}#
+                      #{lcase 7500}#))))
+              #{tmp 7484}#)
+            (syntax-violation
+              'case-lambda
+              "bad case-lambda"
+              #{e 7478}#)))))
+    (#{global-extend 4341}#
+      'core
       'case-lambda*
-      (make-syntax-transformer
-        'case-lambda*
-        'core
-        (lambda (#{e 3313}#
-                 #{r 3314}#
-                 #{w 3315}#
-                 #{s 3316}#
-                 #{mod 3317}#)
-          (let ((#{tmp 3324}#
-                  ($sc-dispatch
-                    #{e 3313}#
-                    '(_ (any any . each-any)
-                        .
-                        #(each (any any . each-any))))))
-            (if #{tmp 3324}#
-              (@apply
-                (lambda (#{args 3331}#
-                         #{e1 3332}#
-                         #{e2 3333}#
-                         #{args* 3334}#
-                         #{e1* 3335}#
-                         #{e2* 3336}#)
-                  (call-with-values
-                    (lambda ()
-                      (#{chi-lambda-case 465}#
-                        #{e 3313}#
-                        #{r 3314}#
-                        #{w 3315}#
-                        #{s 3316}#
-                        #{mod 3317}#
-                        #{lambda*-formals 463}#
-                        (cons (cons #{args 3331}#
-                                    (cons #{e1 3332}# #{e2 3333}#))
-                              (map (lambda (#{tmp 3340}#
-                                            #{tmp 3339}#
-                                            #{tmp 3338}#)
-                                     (cons #{tmp 3338}#
-                                           (cons #{tmp 3339}# #{tmp 3340}#)))
-                                   #{e2* 3336}#
-                                   #{e1* 3335}#
-                                   #{args* 3334}#))))
-                    (lambda (#{meta 3342}# #{lcase 3343}#)
-                      (make-struct/no-tail
-                        (vector-ref %expanded-vtables 14)
-                        #{s 3316}#
-                        #{meta 3342}#
-                        #{lcase 3343}#))))
-                #{tmp 3324}#)
-              (syntax-violation
-                'case-lambda
-                "bad case-lambda*"
-                #{e 3313}#))))))
-    (#{global-extend 349}#
+      (lambda (#{e 7669}#
+               #{r 7670}#
+               #{w 7671}#
+               #{s 7672}#
+               #{mod 7673}#)
+        (let ((#{tmp 7675}#
+                ($sc-dispatch
+                  #{e 7669}#
+                  '(_ (any any . each-any)
+                      .
+                      #(each (any any . each-any))))))
+          (if #{tmp 7675}#
+            (@apply
+              (lambda (#{args 7679}#
+                       #{e1 7680}#
+                       #{e2 7681}#
+                       #{args* 7682}#
+                       #{e1* 7683}#
+                       #{e2* 7684}#)
+                (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}#)
+                    (make-struct/no-tail
+                      (vector-ref %expanded-vtables 14)
+                      #{s 7672}#
+                      #{meta 7690}#
+                      #{lcase 7691}#))))
+              #{tmp 7675}#)
+            (syntax-violation
+              'case-lambda
+              "bad case-lambda*"
+              #{e 7669}#)))))
+    (#{global-extend 4341}#
       'core
       'let
       (letrec*
-        ((#{chi-let 3349}#
-           (lambda (#{e 3350}#
-                    #{r 3351}#
-                    #{w 3352}#
-                    #{s 3353}#
-                    #{mod 3354}#
-                    #{constructor 3355}#
-                    #{ids 3356}#
-                    #{vals 3357}#
-                    #{exps 3358}#)
-             (if (not (#{valid-bound-ids? 421}# #{ids 3356}#))
+        ((#{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}#))
                (syntax-violation
                  'let
                  "duplicate bound variable"
-                 #{e 3350}#)
-               (let ((#{labels 3370}#
-                       (#{gen-labels 373}# #{ids 3356}#))
-                     (#{new-vars 3371}#
-                       (map #{gen-var 469}# #{ids 3356}#)))
-                 (let ((#{nw 3374}#
-                         (#{make-binding-wrap 405}#
-                           #{ids 3356}#
-                           #{labels 3370}#
-                           #{w 3352}#))
-                       (#{nr 3375}#
-                         (#{extend-var-env 343}#
-                           #{labels 3370}#
-                           #{new-vars 3371}#
-                           #{r 3351}#)))
-                   (#{constructor 3355}#
-                     #{s 3353}#
-                     (map syntax->datum #{ids 3356}#)
-                     #{new-vars 3371}#
-                     (map (lambda (#{x 3376}#)
-                            (#{chi 441}#
-                              #{x 3376}#
-                              #{r 3351}#
-                              #{w 3352}#
-                              #{mod 3354}#))
-                          #{vals 3357}#)
-                     (#{chi-body 449}#
-                       #{exps 3358}#
-                       (let ((#{x 6517}#
-                               (begin
-                                 (if (if (pair? #{e 3350}#) #{s 3353}# #f)
-                                   (set-source-properties!
-                                     #{e 3350}#
-                                     #{s 3353}#))
-                                 #{e 3350}#)))
-                         (if (if (null? (car #{nw 3374}#))
-                               (null? (cdr #{nw 3374}#))
-                               #f)
-                           #{x 6517}#
-                           (if (if (vector? #{x 6517}#)
-                                 (if (= (vector-length #{x 6517}#) 4)
-                                   (eq? (vector-ref #{x 6517}# 0)
-                                        'syntax-object)
-                                   #f)
-                                 #f)
-                             (let ((#{expression 6529}#
-                                     (vector-ref #{x 6517}# 1))
-                                   (#{wrap 6530}#
-                                     (let ((#{w2 6538}#
-                                             (vector-ref #{x 6517}# 2)))
-                                       (let ((#{m1 6539}# (car #{nw 3374}#))
-                                             (#{s1 6540}# (cdr #{nw 3374}#)))
-                                         (if (null? #{m1 6539}#)
-                                           (if (null? #{s1 6540}#)
-                                             #{w2 6538}#
-                                             (cons (car #{w2 6538}#)
-                                                   (let ((#{m2 6547}#
-                                                           (cdr #{w2 6538}#)))
-                                                     (if (null? #{m2 6547}#)
-                                                       #{s1 6540}#
-                                                       (append
-                                                         #{s1 6540}#
-                                                         #{m2 6547}#)))))
-                                           (cons (let ((#{m2 6551}#
-                                                         (car #{w2 6538}#)))
-                                                   (if (null? #{m2 6551}#)
-                                                     #{m1 6539}#
-                                                     (append
-                                                       #{m1 6539}#
-                                                       #{m2 6551}#)))
-                                                 (let ((#{m2 6555}#
-                                                         (cdr #{w2 6538}#)))
-                                                   (if (null? #{m2 6555}#)
-                                                     #{s1 6540}#
-                                                     (append
-                                                       #{s1 6540}#
-                                                       #{m2 6555}#))))))))
-                                   (#{module 6531}# (vector-ref #{x 6517}# 3)))
-                               (vector
-                                 'syntax-object
-                                 #{expression 6529}#
-                                 #{wrap 6530}#
-                                 #{module 6531}#))
-                             (if (null? #{x 6517}#)
-                               #{x 6517}#
-                               (vector
-                                 'syntax-object
-                                 #{x 6517}#
-                                 #{nw 3374}#
-                                 #{mod 3354}#)))))
-                       #{nr 3375}#
-                       #{nw 3374}#
-                       #{mod 3354}#))))))))
-        (lambda (#{e 3378}#
-                 #{r 3379}#
-                 #{w 3380}#
-                 #{s 3381}#
-                 #{mod 3382}#)
-          (let ((#{tmp 3389}#
+                 #{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}#
                   ($sc-dispatch
-                    #{e 3378}#
+                    #{e 7901}#
                     '(_ #(each (any any)) any . each-any))))
-            (if (if #{tmp 3389}#
+            (if (if #{tmp 7907}#
                   (@apply
-                    (lambda (#{id 3394}#
-                             #{val 3395}#
-                             #{e1 3396}#
-                             #{e2 3397}#)
-                      (and-map #{id? 353}# #{id 3394}#))
-                    #{tmp 3389}#)
+                    (lambda (#{id 7911}#
+                             #{val 7912}#
+                             #{e1 7913}#
+                             #{e2 7914}#)
+                      (and-map #{id? 4343}# #{id 7911}#))
+                    #{tmp 7907}#)
                   #f)
               (@apply
-                (lambda (#{id 3403}#
-                         #{val 3404}#
-                         #{e1 3405}#
-                         #{e2 3406}#)
-                  (#{chi-let 3349}#
-                    #{e 3378}#
-                    #{r 3379}#
-                    #{w 3380}#
-                    #{s 3381}#
-                    #{mod 3382}#
-                    (lambda (#{src 1122}#
-                             #{ids 1123}#
-                             #{vars 1124}#
-                             #{val-exps 1125}#
-                             #{body-exp 1126}#)
+                (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}#)
                       (begin
                         (for-each
-                          #{maybe-name-value! 269}#
-                          #{ids 1123}#
-                          #{val-exps 1125}#)
-                        (if (null? #{vars 1124}#)
-                          #{body-exp 1126}#
-                          (#{make-let 240}#
-                            #{src 1122}#
-                            #{ids 1123}#
-                            #{vars 1124}#
-                            #{val-exps 1125}#
-                            #{body-exp 1126}#))))
-                    #{id 3403}#
-                    #{val 3404}#
-                    (cons #{e1 3405}# #{e2 3406}#)))
-                #{tmp 3389}#)
-              (let ((#{tmp 3410}#
+                          #{maybe-name-value! 4307}#
+                          #{ids 7938}#
+                          #{val-exps 7940}#)
+                        (if (null? #{vars 7939}#)
+                          #{body-exp 7941}#
+                          (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}#
                       ($sc-dispatch
-                        #{e 3378}#
+                        #{e 7901}#
                         '(_ any #(each (any any)) any . each-any))))
-                (if (if #{tmp 3410}#
+                (if (if #{tmp 7948}#
                       (@apply
-                        (lambda (#{f 3416}#
-                                 #{id 3417}#
-                                 #{val 3418}#
-                                 #{e1 3419}#
-                                 #{e2 3420}#)
-                          (if (if (symbol? #{f 3416}#)
+                        (lambda (#{f 7952}#
+                                 #{id 7953}#
+                                 #{val 7954}#
+                                 #{e1 7955}#
+                                 #{e2 7956}#)
+                          (if (if (symbol? #{f 7952}#)
                                 #t
-                                (if (if (vector? #{f 3416}#)
-                                      (if (= (vector-length #{f 3416}#) 4)
-                                        (eq? (vector-ref #{f 3416}# 0)
+                                (if (if (vector? #{f 7952}#)
+                                      (if (= (vector-length #{f 7952}#) 4)
+                                        (eq? (vector-ref #{f 7952}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{f 3416}# 1))
+                                  (symbol? (vector-ref #{f 7952}# 1))
                                   #f))
-                            (and-map #{id? 353}# #{id 3417}#)
+                            (and-map #{id? 4343}# #{id 7953}#)
                             #f))
-                        #{tmp 3410}#)
+                        #{tmp 7948}#)
                       #f)
                   (@apply
-                    (lambda (#{f 3429}#
-                             #{id 3430}#
-                             #{val 3431}#
-                             #{e1 3432}#
-                             #{e2 3433}#)
-                      (#{chi-let 3349}#
-                        #{e 3378}#
-                        #{r 3379}#
-                        #{w 3380}#
-                        #{s 3381}#
-                        #{mod 3382}#
-                        (lambda (#{src 1132}#
-                                 #{ids 1133}#
-                                 #{vars 1134}#
-                                 #{val-exps 1135}#
-                                 #{body-exp 1136}#)
-                          (let ((#{f 1146}# (car #{vars 1134}#))
-                                (#{f-name 1147}# (car #{ids 1133}#))
-                                (#{vars 1148}# (cdr #{vars 1134}#))
-                                (#{ids 1149}# (cdr #{ids 1133}#)))
-                            (let ((#{proc 1151}#
-                                    (#{build-simple-lambda 291}#
-                                      #{src 1132}#
-                                      #{ids 1149}#
-                                      #f
-                                      #{vars 1148}#
-                                      '()
-                                      #{body-exp 1136}#)))
-                              (begin
-                                (#{maybe-name-value! 269}#
-                                  #{f-name 1147}#
-                                  #{proc 1151}#)
-                                (for-each
-                                  #{maybe-name-value! 269}#
-                                  #{ids 1149}#
-                                  #{val-exps 1135}#)
-                                (#{make-letrec 242}#
-                                  #{src 1132}#
-                                  #f
-                                  (list #{f-name 1147}#)
-                                  (list #{f 1146}#)
-                                  (list #{proc 1151}#)
-                                  (#{build-call 273}#
-                                    #{src 1132}#
-                                    (#{build-lexical-reference 279}#
-                                      'fun
-                                      #{src 1132}#
-                                      #{f-name 1147}#
-                                      #{f 1146}#)
-                                    #{val-exps 1135}#))))))
-                        (cons #{f 3429}# #{id 3430}#)
-                        #{val 3431}#
-                        (cons #{e1 3432}# #{e2 3433}#)))
-                    #{tmp 3410}#)
+                    (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}#)
                   (syntax-violation
                     'let
                     "bad let"
-                    (let ((#{x 6585}#
+                    (let ((#{x 8015}#
                             (begin
-                              (if (if (pair? #{e 3378}#) #{s 3381}# #f)
-                                (set-source-properties! #{e 3378}# #{s 3381}#))
-                              #{e 3378}#)))
-                      (if (if (null? (car #{w 3380}#))
-                            (null? (cdr #{w 3380}#))
+                              (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}#))
                             #f)
-                        #{x 6585}#
-                        (if (if (vector? #{x 6585}#)
-                              (if (= (vector-length #{x 6585}#) 4)
-                                (eq? (vector-ref #{x 6585}# 0) 'syntax-object)
+                        #{x 8015}#
+                        (if (if (vector? #{x 8015}#)
+                              (if (= (vector-length #{x 8015}#) 4)
+                                (eq? (vector-ref #{x 8015}# 0) 'syntax-object)
                                 #f)
                               #f)
-                          (let ((#{expression 6597}# (vector-ref #{x 6585}# 1))
-                                (#{wrap 6598}#
-                                  (let ((#{w2 6606}#
-                                          (vector-ref #{x 6585}# 2)))
-                                    (let ((#{m1 6607}# (car #{w 3380}#))
-                                          (#{s1 6608}# (cdr #{w 3380}#)))
-                                      (if (null? #{m1 6607}#)
-                                        (if (null? #{s1 6608}#)
-                                          #{w2 6606}#
-                                          (cons (car #{w2 6606}#)
-                                                (let ((#{m2 6615}#
-                                                        (cdr #{w2 6606}#)))
-                                                  (if (null? #{m2 6615}#)
-                                                    #{s1 6608}#
+                          (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}#
                                                     (append
-                                                      #{s1 6608}#
-                                                      #{m2 6615}#)))))
-                                        (cons (let ((#{m2 6619}#
-                                                      (car #{w2 6606}#)))
-                                                (if (null? #{m2 6619}#)
-                                                  #{m1 6607}#
+                                                      #{s1 8058}#
+                                                      #{m2 8073}#)))))
+                                        (cons (let ((#{m2 8081}#
+                                                      (car #{w2 8056}#)))
+                                                (if (null? #{m2 8081}#)
+                                                  #{m1 8057}#
                                                   (append
-                                                    #{m1 6607}#
-                                                    #{m2 6619}#)))
-                                              (let ((#{m2 6623}#
-                                                      (cdr #{w2 6606}#)))
-                                                (if (null? #{m2 6623}#)
-                                                  #{s1 6608}#
+                                                    #{m1 8057}#
+                                                    #{m2 8081}#)))
+                                              (let ((#{m2 8089}#
+                                                      (cdr #{w2 8056}#)))
+                                                (if (null? #{m2 8089}#)
+                                                  #{s1 8058}#
                                                   (append
-                                                    #{s1 6608}#
-                                                    #{m2 6623}#))))))))
-                                (#{module 6599}# (vector-ref #{x 6585}# 3)))
+                                                    #{s1 8058}#
+                                                    #{m2 8089}#))))))))
+                                (#{module 8049}# (vector-ref #{x 8015}# 3)))
                             (vector
                               'syntax-object
-                              #{expression 6597}#
-                              #{wrap 6598}#
-                              #{module 6599}#))
-                          (if (null? #{x 6585}#)
-                            #{x 6585}#
+                              #{expression 8047}#
+                              #{wrap 8048}#
+                              #{module 8049}#))
+                          (if (null? #{x 8015}#)
+                            #{x 8015}#
                             (vector
                               'syntax-object
-                              #{x 6585}#
-                              #{w 3380}#
-                              #{mod 3382}#)))))))))))))
-    (#{global-extend 349}#
+                              #{x 8015}#
+                              #{w 7903}#
+                              #{mod 7905}#)))))))))))))
+    (#{global-extend 4341}#
       'core
       'letrec
-      (lambda (#{e 3439}#
-               #{r 3440}#
-               #{w 3441}#
-               #{s 3442}#
-               #{mod 3443}#)
-        (let ((#{tmp 3450}#
+      (lambda (#{e 8694}#
+               #{r 8695}#
+               #{w 8696}#
+               #{s 8697}#
+               #{mod 8698}#)
+        (let ((#{tmp 8700}#
                 ($sc-dispatch
-                  #{e 3439}#
+                  #{e 8694}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 3450}#
+          (if (if #{tmp 8700}#
                 (@apply
-                  (lambda (#{id 3455}#
-                           #{val 3456}#
-                           #{e1 3457}#
-                           #{e2 3458}#)
-                    (and-map #{id? 353}# #{id 3455}#))
-                  #{tmp 3450}#)
+                  (lambda (#{id 8704}#
+                           #{val 8705}#
+                           #{e1 8706}#
+                           #{e2 8707}#)
+                    (and-map #{id? 4343}# #{id 8704}#))
+                  #{tmp 8700}#)
                 #f)
             (@apply
-              (lambda (#{id 3464}#
-                       #{val 3465}#
-                       #{e1 3466}#
-                       #{e2 3467}#)
-                (if (not (#{valid-bound-ids? 421}# #{id 3464}#))
+              (lambda (#{id 8723}#
+                       #{val 8724}#
+                       #{e1 8725}#
+                       #{e2 8726}#)
+                (if (not (#{valid-bound-ids? 4365}# #{id 8723}#))
                   (syntax-violation
                     'letrec
                     "duplicate bound variable"
-                    #{e 3439}#)
-                  (let ((#{labels 3473}#
-                          (#{gen-labels 373}# #{id 3464}#))
-                        (#{new-vars 3474}#
-                          (map #{gen-var 469}# #{id 3464}#)))
-                    (let ((#{w 3477}#
-                            (#{make-binding-wrap 405}#
-                              #{id 3464}#
-                              #{labels 3473}#
-                              #{w 3441}#))
-                          (#{r 3478}#
-                            (#{extend-var-env 343}#
-                              #{labels 3473}#
-                              #{new-vars 3474}#
-                              #{r 3440}#)))
-                      (#{build-letrec 309}#
-                        #{s 3442}#
+                    #{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}#
                         #f
-                        (map syntax->datum #{id 3464}#)
-                        #{new-vars 3474}#
-                        (map (lambda (#{x 3479}#)
-                               (#{chi 441}#
-                                 #{x 3479}#
-                                 #{r 3478}#
-                                 #{w 3477}#
-                                 #{mod 3443}#))
-                             #{val 3465}#)
-                        (#{chi-body 449}#
-                          (cons #{e1 3466}# #{e2 3467}#)
-                          (let ((#{x 7107}#
+                        (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}#
                                   (begin
-                                    (if (if (pair? #{e 3439}#) #{s 3442}# #f)
+                                    (if (if (pair? #{e 8694}#) #{s 8697}# #f)
                                       (set-source-properties!
-                                        #{e 3439}#
-                                        #{s 3442}#))
-                                    #{e 3439}#)))
-                            (if (if (null? (car #{w 3477}#))
-                                  (null? (cdr #{w 3477}#))
+                                        #{e 8694}#
+                                        #{s 8697}#))
+                                    #{e 8694}#)))
+                            (if (if (null? (car #{w 8823}#))
+                                  (null? (cdr #{w 8823}#))
                                   #f)
-                              #{x 7107}#
-                              (if (if (vector? #{x 7107}#)
-                                    (if (= (vector-length #{x 7107}#) 4)
-                                      (eq? (vector-ref #{x 7107}# 0)
+                              #{x 8965}#
+                              (if (if (vector? #{x 8965}#)
+                                    (if (= (vector-length #{x 8965}#) 4)
+                                      (eq? (vector-ref #{x 8965}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
-                                (let ((#{expression 7119}#
-                                        (vector-ref #{x 7107}# 1))
-                                      (#{wrap 7120}#
-                                        (let ((#{w2 7128}#
-                                                (vector-ref #{x 7107}# 2)))
-                                          (let ((#{m1 7129}# (car #{w 3477}#))
-                                                (#{s1 7130}# (cdr #{w 3477}#)))
-                                            (if (null? #{m1 7129}#)
-                                              (if (null? #{s1 7130}#)
-                                                #{w2 7128}#
-                                                (cons (car #{w2 7128}#)
-                                                      (let ((#{m2 7137}#
-                                                              (cdr #{w2 
7128}#)))
-                                                        (if (null? #{m2 7137}#)
-                                                          #{s1 7130}#
+                                (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}#
                                                           (append
-                                                            #{s1 7130}#
-                                                            #{m2 7137}#)))))
-                                              (cons (let ((#{m2 7141}#
-                                                            (car #{w2 7128}#)))
-                                                      (if (null? #{m2 7141}#)
-                                                        #{m1 7129}#
+                                                            #{s1 9008}#
+                                                            #{m2 9023}#)))))
+                                              (cons (let ((#{m2 9031}#
+                                                            (car #{w2 9006}#)))
+                                                      (if (null? #{m2 9031}#)
+                                                        #{m1 9007}#
                                                         (append
-                                                          #{m1 7129}#
-                                                          #{m2 7141}#)))
-                                                    (let ((#{m2 7145}#
-                                                            (cdr #{w2 7128}#)))
-                                                      (if (null? #{m2 7145}#)
-                                                        #{s1 7130}#
+                                                          #{m1 9007}#
+                                                          #{m2 9031}#)))
+                                                    (let ((#{m2 9039}#
+                                                            (cdr #{w2 9006}#)))
+                                                      (if (null? #{m2 9039}#)
+                                                        #{s1 9008}#
                                                         (append
-                                                          #{s1 7130}#
-                                                          #{m2 7145}#))))))))
-                                      (#{module 7121}#
-                                        (vector-ref #{x 7107}# 3)))
+                                                          #{s1 9008}#
+                                                          #{m2 9039}#))))))))
+                                      (#{module 8999}#
+                                        (vector-ref #{x 8965}# 3)))
                                   (vector
                                     'syntax-object
-                                    #{expression 7119}#
-                                    #{wrap 7120}#
-                                    #{module 7121}#))
-                                (if (null? #{x 7107}#)
-                                  #{x 7107}#
+                                    #{expression 8997}#
+                                    #{wrap 8998}#
+                                    #{module 8999}#))
+                                (if (null? #{x 8965}#)
+                                  #{x 8965}#
                                   (vector
                                     'syntax-object
-                                    #{x 7107}#
-                                    #{w 3477}#
-                                    #{mod 3443}#)))))
-                          #{r 3478}#
-                          #{w 3477}#
-                          #{mod 3443}#))))))
-              #{tmp 3450}#)
+                                    #{x 8965}#
+                                    #{w 8823}#
+                                    #{mod 8698}#)))))
+                          #{r 8824}#
+                          #{w 8823}#
+                          #{mod 8698}#))))))
+              #{tmp 8700}#)
             (syntax-violation
               'letrec
               "bad letrec"
-              (let ((#{x 7162}#
+              (let ((#{x 9279}#
                       (begin
-                        (if (if (pair? #{e 3439}#) #{s 3442}# #f)
-                          (set-source-properties! #{e 3439}# #{s 3442}#))
-                        #{e 3439}#)))
-                (if (if (null? (car #{w 3441}#))
-                      (null? (cdr #{w 3441}#))
+                        (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}#))
                       #f)
-                  #{x 7162}#
-                  (if (if (vector? #{x 7162}#)
-                        (if (= (vector-length #{x 7162}#) 4)
-                          (eq? (vector-ref #{x 7162}# 0) 'syntax-object)
+                  #{x 9279}#
+                  (if (if (vector? #{x 9279}#)
+                        (if (= (vector-length #{x 9279}#) 4)
+                          (eq? (vector-ref #{x 9279}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (let ((#{expression 7174}# (vector-ref #{x 7162}# 1))
-                          (#{wrap 7175}#
-                            (let ((#{w2 7183}# (vector-ref #{x 7162}# 2)))
-                              (let ((#{m1 7184}# (car #{w 3441}#))
-                                    (#{s1 7185}# (cdr #{w 3441}#)))
-                                (if (null? #{m1 7184}#)
-                                  (if (null? #{s1 7185}#)
-                                    #{w2 7183}#
-                                    (cons (car #{w2 7183}#)
-                                          (let ((#{m2 7192}#
-                                                  (cdr #{w2 7183}#)))
-                                            (if (null? #{m2 7192}#)
-                                              #{s1 7185}#
+                    (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}#
                                               (append
-                                                #{s1 7185}#
-                                                #{m2 7192}#)))))
-                                  (cons (let ((#{m2 7196}# (car #{w2 7183}#)))
-                                          (if (null? #{m2 7196}#)
-                                            #{m1 7184}#
-                                            (append #{m1 7184}# #{m2 7196}#)))
-                                        (let ((#{m2 7200}# (cdr #{w2 7183}#)))
-                                          (if (null? #{m2 7200}#)
-                                            #{s1 7185}#
+                                                #{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}#
                                             (append
-                                              #{s1 7185}#
-                                              #{m2 7200}#))))))))
-                          (#{module 7176}# (vector-ref #{x 7162}# 3)))
+                                              #{s1 9322}#
+                                              #{m2 9353}#))))))))
+                          (#{module 9313}# (vector-ref #{x 9279}# 3)))
                       (vector
                         'syntax-object
-                        #{expression 7174}#
-                        #{wrap 7175}#
-                        #{module 7176}#))
-                    (if (null? #{x 7162}#)
-                      #{x 7162}#
+                        #{expression 9311}#
+                        #{wrap 9312}#
+                        #{module 9313}#))
+                    (if (null? #{x 9279}#)
+                      #{x 9279}#
                       (vector
                         'syntax-object
-                        #{x 7162}#
-                        #{w 3441}#
-                        #{mod 3443}#))))))))))
-    (#{global-extend 349}#
+                        #{x 9279}#
+                        #{w 8696}#
+                        #{mod 8698}#))))))))))
+    (#{global-extend 4341}#
       'core
       'letrec*
-      (lambda (#{e 3485}#
-               #{r 3486}#
-               #{w 3487}#
-               #{s 3488}#
-               #{mod 3489}#)
-        (let ((#{tmp 3496}#
+      (lambda (#{e 9502}#
+               #{r 9503}#
+               #{w 9504}#
+               #{s 9505}#
+               #{mod 9506}#)
+        (let ((#{tmp 9508}#
                 ($sc-dispatch
-                  #{e 3485}#
+                  #{e 9502}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 3496}#
+          (if (if #{tmp 9508}#
                 (@apply
-                  (lambda (#{id 3501}#
-                           #{val 3502}#
-                           #{e1 3503}#
-                           #{e2 3504}#)
-                    (and-map #{id? 353}# #{id 3501}#))
-                  #{tmp 3496}#)
+                  (lambda (#{id 9512}#
+                           #{val 9513}#
+                           #{e1 9514}#
+                           #{e2 9515}#)
+                    (and-map #{id? 4343}# #{id 9512}#))
+                  #{tmp 9508}#)
                 #f)
             (@apply
-              (lambda (#{id 3510}#
-                       #{val 3511}#
-                       #{e1 3512}#
-                       #{e2 3513}#)
-                (if (not (#{valid-bound-ids? 421}# #{id 3510}#))
+              (lambda (#{id 9531}#
+                       #{val 9532}#
+                       #{e1 9533}#
+                       #{e2 9534}#)
+                (if (not (#{valid-bound-ids? 4365}# #{id 9531}#))
                   (syntax-violation
                     'letrec*
                     "duplicate bound variable"
-                    #{e 3485}#)
-                  (let ((#{labels 3519}#
-                          (#{gen-labels 373}# #{id 3510}#))
-                        (#{new-vars 3520}#
-                          (map #{gen-var 469}# #{id 3510}#)))
-                    (let ((#{w 3523}#
-                            (#{make-binding-wrap 405}#
-                              #{id 3510}#
-                              #{labels 3519}#
-                              #{w 3487}#))
-                          (#{r 3524}#
-                            (#{extend-var-env 343}#
-                              #{labels 3519}#
-                              #{new-vars 3520}#
-                              #{r 3486}#)))
-                      (#{build-letrec 309}#
-                        #{s 3488}#
+                    #{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}#
                         #t
-                        (map syntax->datum #{id 3510}#)
-                        #{new-vars 3520}#
-                        (map (lambda (#{x 3525}#)
-                               (#{chi 441}#
-                                 #{x 3525}#
-                                 #{r 3524}#
-                                 #{w 3523}#
-                                 #{mod 3489}#))
-                             #{val 3511}#)
-                        (#{chi-body 449}#
-                          (cons #{e1 3512}# #{e2 3513}#)
-                          (let ((#{x 7684}#
+                        (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}#
                                   (begin
-                                    (if (if (pair? #{e 3485}#) #{s 3488}# #f)
+                                    (if (if (pair? #{e 9502}#) #{s 9505}# #f)
                                       (set-source-properties!
-                                        #{e 3485}#
-                                        #{s 3488}#))
-                                    #{e 3485}#)))
-                            (if (if (null? (car #{w 3523}#))
-                                  (null? (cdr #{w 3523}#))
+                                        #{e 9502}#
+                                        #{s 9505}#))
+                                    #{e 9502}#)))
+                            (if (if (null? (car #{w 9631}#))
+                                  (null? (cdr #{w 9631}#))
                                   #f)
-                              #{x 7684}#
-                              (if (if (vector? #{x 7684}#)
-                                    (if (= (vector-length #{x 7684}#) 4)
-                                      (eq? (vector-ref #{x 7684}# 0)
+                              #{x 9773}#
+                              (if (if (vector? #{x 9773}#)
+                                    (if (= (vector-length #{x 9773}#) 4)
+                                      (eq? (vector-ref #{x 9773}# 0)
                                            'syntax-object)
                                       #f)
                                     #f)
-                                (let ((#{expression 7696}#
-                                        (vector-ref #{x 7684}# 1))
-                                      (#{wrap 7697}#
-                                        (let ((#{w2 7705}#
-                                                (vector-ref #{x 7684}# 2)))
-                                          (let ((#{m1 7706}# (car #{w 3523}#))
-                                                (#{s1 7707}# (cdr #{w 3523}#)))
-                                            (if (null? #{m1 7706}#)
-                                              (if (null? #{s1 7707}#)
-                                                #{w2 7705}#
-                                                (cons (car #{w2 7705}#)
-                                                      (let ((#{m2 7714}#
-                                                              (cdr #{w2 
7705}#)))
-                                                        (if (null? #{m2 7714}#)
-                                                          #{s1 7707}#
+                                (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}#
                                                           (append
-                                                            #{s1 7707}#
-                                                            #{m2 7714}#)))))
-                                              (cons (let ((#{m2 7718}#
-                                                            (car #{w2 7705}#)))
-                                                      (if (null? #{m2 7718}#)
-                                                        #{m1 7706}#
+                                                            #{s1 9816}#
+                                                            #{m2 9831}#)))))
+                                              (cons (let ((#{m2 9839}#
+                                                            (car #{w2 9814}#)))
+                                                      (if (null? #{m2 9839}#)
+                                                        #{m1 9815}#
                                                         (append
-                                                          #{m1 7706}#
-                                                          #{m2 7718}#)))
-                                                    (let ((#{m2 7722}#
-                                                            (cdr #{w2 7705}#)))
-                                                      (if (null? #{m2 7722}#)
-                                                        #{s1 7707}#
+                                                          #{m1 9815}#
+                                                          #{m2 9839}#)))
+                                                    (let ((#{m2 9847}#
+                                                            (cdr #{w2 9814}#)))
+                                                      (if (null? #{m2 9847}#)
+                                                        #{s1 9816}#
                                                         (append
-                                                          #{s1 7707}#
-                                                          #{m2 7722}#))))))))
-                                      (#{module 7698}#
-                                        (vector-ref #{x 7684}# 3)))
+                                                          #{s1 9816}#
+                                                          #{m2 9847}#))))))))
+                                      (#{module 9807}#
+                                        (vector-ref #{x 9773}# 3)))
                                   (vector
                                     'syntax-object
-                                    #{expression 7696}#
-                                    #{wrap 7697}#
-                                    #{module 7698}#))
-                                (if (null? #{x 7684}#)
-                                  #{x 7684}#
+                                    #{expression 9805}#
+                                    #{wrap 9806}#
+                                    #{module 9807}#))
+                                (if (null? #{x 9773}#)
+                                  #{x 9773}#
                                   (vector
                                     'syntax-object
-                                    #{x 7684}#
-                                    #{w 3523}#
-                                    #{mod 3489}#)))))
-                          #{r 3524}#
-                          #{w 3523}#
-                          #{mod 3489}#))))))
-              #{tmp 3496}#)
+                                    #{x 9773}#
+                                    #{w 9631}#
+                                    #{mod 9506}#)))))
+                          #{r 9632}#
+                          #{w 9631}#
+                          #{mod 9506}#))))))
+              #{tmp 9508}#)
             (syntax-violation
               'letrec*
               "bad letrec*"
-              (let ((#{x 7739}#
+              (let ((#{x 10087}#
                       (begin
-                        (if (if (pair? #{e 3485}#) #{s 3488}# #f)
-                          (set-source-properties! #{e 3485}# #{s 3488}#))
-                        #{e 3485}#)))
-                (if (if (null? (car #{w 3487}#))
-                      (null? (cdr #{w 3487}#))
+                        (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}#))
                       #f)
-                  #{x 7739}#
-                  (if (if (vector? #{x 7739}#)
-                        (if (= (vector-length #{x 7739}#) 4)
-                          (eq? (vector-ref #{x 7739}# 0) 'syntax-object)
+                  #{x 10087}#
+                  (if (if (vector? #{x 10087}#)
+                        (if (= (vector-length #{x 10087}#) 4)
+                          (eq? (vector-ref #{x 10087}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (let ((#{expression 7751}# (vector-ref #{x 7739}# 1))
-                          (#{wrap 7752}#
-                            (let ((#{w2 7760}# (vector-ref #{x 7739}# 2)))
-                              (let ((#{m1 7761}# (car #{w 3487}#))
-                                    (#{s1 7762}# (cdr #{w 3487}#)))
-                                (if (null? #{m1 7761}#)
-                                  (if (null? #{s1 7762}#)
-                                    #{w2 7760}#
-                                    (cons (car #{w2 7760}#)
-                                          (let ((#{m2 7769}#
-                                                  (cdr #{w2 7760}#)))
-                                            (if (null? #{m2 7769}#)
-                                              #{s1 7762}#
+                    (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}#
                                               (append
-                                                #{s1 7762}#
-                                                #{m2 7769}#)))))
-                                  (cons (let ((#{m2 7773}# (car #{w2 7760}#)))
-                                          (if (null? #{m2 7773}#)
-                                            #{m1 7761}#
-                                            (append #{m1 7761}# #{m2 7773}#)))
-                                        (let ((#{m2 7777}# (cdr #{w2 7760}#)))
-                                          (if (null? #{m2 7777}#)
-                                            #{s1 7762}#
+                                                #{s1 10130}#
+                                                #{m2 10145}#)))))
+                                  (cons (let ((#{m2 10153}#
+                                                (car #{w2 10128}#)))
+                                          (if (null? #{m2 10153}#)
+                                            #{m1 10129}#
                                             (append
-                                              #{s1 7762}#
-                                              #{m2 7777}#))))))))
-                          (#{module 7753}# (vector-ref #{x 7739}# 3)))
+                                              #{m1 10129}#
+                                              #{m2 10153}#)))
+                                        (let ((#{m2 10161}#
+                                                (cdr #{w2 10128}#)))
+                                          (if (null? #{m2 10161}#)
+                                            #{s1 10130}#
+                                            (append
+                                              #{s1 10130}#
+                                              #{m2 10161}#))))))))
+                          (#{module 10121}# (vector-ref #{x 10087}# 3)))
                       (vector
                         'syntax-object
-                        #{expression 7751}#
-                        #{wrap 7752}#
-                        #{module 7753}#))
-                    (if (null? #{x 7739}#)
-                      #{x 7739}#
+                        #{expression 10119}#
+                        #{wrap 10120}#
+                        #{module 10121}#))
+                    (if (null? #{x 10087}#)
+                      #{x 10087}#
                       (vector
                         'syntax-object
-                        #{x 7739}#
-                        #{w 3487}#
-                        #{mod 3489}#))))))))))
-    (#{global-extend 349}#
+                        #{x 10087}#
+                        #{w 9504}#
+                        #{mod 9506}#))))))))))
+    (#{global-extend 4341}#
       'core
       'set!
-      (lambda (#{e 3531}#
-               #{r 3532}#
-               #{w 3533}#
-               #{s 3534}#
-               #{mod 3535}#)
-        (let ((#{tmp 3542}#
-                ($sc-dispatch #{e 3531}# '(_ any any))))
-          (if (if #{tmp 3542}#
+      (lambda (#{e 10378}#
+               #{r 10379}#
+               #{w 10380}#
+               #{s 10381}#
+               #{mod 10382}#)
+        (let ((#{tmp 10384}#
+                ($sc-dispatch #{e 10378}# '(_ any any))))
+          (if (if #{tmp 10384}#
                 (@apply
-                  (lambda (#{id 3545}# #{val 3546}#)
-                    (if (symbol? #{id 3545}#)
+                  (lambda (#{id 10388}# #{val 10389}#)
+                    (if (symbol? #{id 10388}#)
                       #t
-                      (if (if (vector? #{id 3545}#)
-                            (if (= (vector-length #{id 3545}#) 4)
-                              (eq? (vector-ref #{id 3545}# 0) 'syntax-object)
+                      (if (if (vector? #{id 10388}#)
+                            (if (= (vector-length #{id 10388}#) 4)
+                              (eq? (vector-ref #{id 10388}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (symbol? (vector-ref #{id 3545}# 1))
+                        (symbol? (vector-ref #{id 10388}# 1))
                         #f)))
-                  #{tmp 3542}#)
+                  #{tmp 10384}#)
                 #f)
             (@apply
-              (lambda (#{id 3549}# #{val 3550}#)
-                (let ((#{n 3553}#
-                        (#{id-var-name 415}# #{id 3549}# #{w 3533}#))
-                      (#{id-mod 3554}#
-                        (if (if (vector? #{id 3549}#)
-                              (if (= (vector-length #{id 3549}#) 4)
-                                (eq? (vector-ref #{id 3549}# 0) 'syntax-object)
+              (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)
+                                     'syntax-object)
                                 #f)
                               #f)
-                          (vector-ref #{id 3549}# 3)
-                          #{mod 3535}#)))
-                  (let ((#{b 3556}#
-                          (let ((#{t 7891}# (assq #{n 3553}# #{r 3532}#)))
-                            (if #{t 7891}#
-                              (cdr #{t 7891}#)
-                              (if (symbol? #{n 3553}#)
-                                (let ((#{t 7892}#
-                                        (#{get-global-definition-hook 265}#
-                                          #{n 3553}#
-                                          #{id-mod 3554}#)))
-                                  (if #{t 7892}# #{t 7892}# '(global)))
+                          (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}#
+                                        (begin
+                                          (if (if (not #{id-mod 10419}#)
+                                                (current-module)
+                                                #f)
+                                            (warn "module system is booted, we 
should have a module"
+                                                  #{n 10418}#))
+                                          (let ((#{v 11171}#
+                                                  (module-variable
+                                                    (if #{id-mod 10419}#
+                                                      (resolve-module
+                                                        (cdr #{id-mod 10419}#))
+                                                      (current-module))
+                                                    #{n 10418}#)))
+                                            (if #{v 11171}#
+                                              (if (variable-bound? #{v 11171}#)
+                                                (let ((#{val 11180}#
+                                                        (variable-ref
+                                                          #{v 11171}#)))
+                                                  (if (macro? #{val 11180}#)
+                                                    (if (macro-type
+                                                          #{val 11180}#)
+                                                      (cons (macro-type
+                                                              #{val 11180}#)
+                                                            (macro-binding
+                                                              #{val 11180}#))
+                                                      #f)
+                                                    #f))
+                                                #f)
+                                              #f)))))
+                                  (if #{t 11134}# #{t 11134}# '(global)))
                                 '(displaced-lexical))))))
-                    (let ((#{atom-key 3559}# (car #{b 3556}#)))
-                      (if (memv #{atom-key 3559}# '(lexical))
-                        ((lambda (#{source 1005}#
-                                  #{name 1006}#
-                                  #{var 1007}#
-                                  #{exp 1008}#)
-                           (begin
-                             (#{maybe-name-value! 269}#
-                               #{name 1006}#
-                               #{exp 1008}#)
-                             (#{make-lexical-set 216}#
-                               #{source 1005}#
-                               #{name 1006}#
-                               #{var 1007}#
-                               #{exp 1008}#)))
-                         #{s 3534}#
-                         (syntax->datum #{id 3549}#)
-                         (cdr #{b 3556}#)
-                         (#{chi 441}#
-                           #{val 3550}#
-                           #{r 3532}#
-                           #{w 3533}#
-                           #{mod 3535}#))
-                        (if (memv #{atom-key 3559}# '(global))
-                          (#{build-global-assignment 287}#
-                            #{s 3534}#
-                            #{n 3553}#
-                            (#{chi 441}#
-                              #{val 3550}#
-                              #{r 3532}#
-                              #{w 3533}#
-                              #{mod 3535}#)
-                            #{id-mod 3554}#)
-                          (if (memv #{atom-key 3559}# '(macro))
-                            (let ((#{p 3566}# (cdr #{b 3556}#)))
+                    (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}#)))
                               (if (procedure-property
-                                    #{p 3566}#
+                                    #{p 11083}#
                                     'variable-transformer)
-                                (#{chi 441}#
-                                  (#{chi-macro 447}#
-                                    #{p 3566}#
-                                    #{e 3531}#
-                                    #{r 3532}#
-                                    #{w 3533}#
-                                    #{s 3534}#
+                                (#{chi 4375}#
+                                  (#{chi-macro 4378}#
+                                    #{p 11083}#
+                                    #{e 10378}#
+                                    #{r 10379}#
+                                    #{w 10380}#
+                                    #{s 10381}#
                                     #f
-                                    #{mod 3535}#)
-                                  #{r 3532}#
+                                    #{mod 10382}#)
+                                  #{r 10379}#
                                   '(())
-                                  #{mod 3535}#)
+                                  #{mod 10382}#)
                                 (syntax-violation
                                   'set!
                                   "not a variable transformer"
-                                  (if (if (null? (car #{w 3533}#))
-                                        (null? (cdr #{w 3533}#))
+                                  (if (if (null? (car #{w 10380}#))
+                                        (null? (cdr #{w 10380}#))
                                         #f)
-                                    #{e 3531}#
-                                    (if (if (vector? #{e 3531}#)
-                                          (if (= (vector-length #{e 3531}#) 4)
-                                            (eq? (vector-ref #{e 3531}# 0)
+                                    #{e 10378}#
+                                    (if (if (vector? #{e 10378}#)
+                                          (if (= (vector-length #{e 10378}#) 4)
+                                            (eq? (vector-ref #{e 10378}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (let ((#{expression 8165}#
-                                              (vector-ref #{e 3531}# 1))
-                                            (#{wrap 8166}#
-                                              (let ((#{w2 8174}#
+                                      (let ((#{expression 11283}#
+                                              (vector-ref #{e 10378}# 1))
+                                            (#{wrap 11284}#
+                                              (let ((#{w2 11294}#
                                                       (vector-ref
-                                                        #{e 3531}#
+                                                        #{e 10378}#
                                                         2)))
-                                                (let ((#{m1 8175}#
-                                                        (car #{w 3533}#))
-                                                      (#{s1 8176}#
-                                                        (cdr #{w 3533}#)))
-                                                  (if (null? #{m1 8175}#)
-                                                    (if (null? #{s1 8176}#)
-                                                      #{w2 8174}#
-                                                      (cons (car #{w2 8174}#)
-                                                            (let ((#{m2 8183}#
-                                                                    (cdr #{w2 
8174}#)))
-                                                              (if (null? #{m2 
8183}#)
-                                                                #{s1 8176}#
+                                                (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}#
                                                                 (append
-                                                                  #{s1 8176}#
-                                                                  #{m2 
8183}#)))))
-                                                    (cons (let ((#{m2 8187}#
-                                                                  (car #{w2 
8174}#)))
-                                                            (if (null? #{m2 
8187}#)
-                                                              #{m1 8175}#
+                                                                  #{s1 11296}#
+                                                                  #{m2 
11313}#)))))
+                                                    (cons (let ((#{m2 11321}#
+                                                                  (car #{w2 
11294}#)))
+                                                            (if (null? #{m2 
11321}#)
+                                                              #{m1 11295}#
                                                               (append
-                                                                #{m1 8175}#
-                                                                #{m2 8187}#)))
-                                                          (let ((#{m2 8191}#
-                                                                  (cdr #{w2 
8174}#)))
-                                                            (if (null? #{m2 
8191}#)
-                                                              #{s1 8176}#
+                                                                #{m1 11295}#
+                                                                #{m2 11321}#)))
+                                                          (let ((#{m2 11329}#
+                                                                  (cdr #{w2 
11294}#)))
+                                                            (if (null? #{m2 
11329}#)
+                                                              #{s1 11296}#
                                                               (append
-                                                                #{s1 8176}#
-                                                                #{m2 
8191}#))))))))
-                                            (#{module 8167}#
-                                              (vector-ref #{e 3531}# 3)))
+                                                                #{s1 11296}#
+                                                                #{m2 
11329}#))))))))
+                                            (#{module 11285}#
+                                              (vector-ref #{e 10378}# 3)))
                                         (vector
                                           'syntax-object
-                                          #{expression 8165}#
-                                          #{wrap 8166}#
-                                          #{module 8167}#))
-                                      (if (null? #{e 3531}#)
-                                        #{e 3531}#
+                                          #{expression 11283}#
+                                          #{wrap 11284}#
+                                          #{module 11285}#))
+                                      (if (null? #{e 10378}#)
+                                        #{e 10378}#
                                         (vector
                                           'syntax-object
-                                          #{e 3531}#
-                                          #{w 3533}#
-                                          #{mod 3535}#))))
-                                  (if (if (null? (car #{w 3533}#))
-                                        (null? (cdr #{w 3533}#))
+                                          #{e 10378}#
+                                          #{w 10380}#
+                                          #{mod 10382}#))))
+                                  (if (if (null? (car #{w 10380}#))
+                                        (null? (cdr #{w 10380}#))
                                         #f)
-                                    #{id 3549}#
-                                    (if (if (vector? #{id 3549}#)
-                                          (if (= (vector-length #{id 3549}#) 4)
-                                            (eq? (vector-ref #{id 3549}# 0)
+                                    #{id 10416}#
+                                    (if (if (vector? #{id 10416}#)
+                                          (if (= (vector-length #{id 10416}#)
+                                                 4)
+                                            (eq? (vector-ref #{id 10416}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (let ((#{expression 8210}#
-                                              (vector-ref #{id 3549}# 1))
-                                            (#{wrap 8211}#
-                                              (let ((#{w2 8219}#
+                                      (let ((#{expression 11381}#
+                                              (vector-ref #{id 10416}# 1))
+                                            (#{wrap 11382}#
+                                              (let ((#{w2 11392}#
                                                       (vector-ref
-                                                        #{id 3549}#
+                                                        #{id 10416}#
                                                         2)))
-                                                (let ((#{m1 8220}#
-                                                        (car #{w 3533}#))
-                                                      (#{s1 8221}#
-                                                        (cdr #{w 3533}#)))
-                                                  (if (null? #{m1 8220}#)
-                                                    (if (null? #{s1 8221}#)
-                                                      #{w2 8219}#
-                                                      (cons (car #{w2 8219}#)
-                                                            (let ((#{m2 8228}#
-                                                                    (cdr #{w2 
8219}#)))
-                                                              (if (null? #{m2 
8228}#)
-                                                                #{s1 8221}#
+                                                (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}#
                                                                 (append
-                                                                  #{s1 8221}#
-                                                                  #{m2 
8228}#)))))
-                                                    (cons (let ((#{m2 8232}#
-                                                                  (car #{w2 
8219}#)))
-                                                            (if (null? #{m2 
8232}#)
-                                                              #{m1 8220}#
+                                                                  #{s1 11394}#
+                                                                  #{m2 
11411}#)))))
+                                                    (cons (let ((#{m2 11419}#
+                                                                  (car #{w2 
11392}#)))
+                                                            (if (null? #{m2 
11419}#)
+                                                              #{m1 11393}#
                                                               (append
-                                                                #{m1 8220}#
-                                                                #{m2 8232}#)))
-                                                          (let ((#{m2 8236}#
-                                                                  (cdr #{w2 
8219}#)))
-                                                            (if (null? #{m2 
8236}#)
-                                                              #{s1 8221}#
+                                                                #{m1 11393}#
+                                                                #{m2 11419}#)))
+                                                          (let ((#{m2 11427}#
+                                                                  (cdr #{w2 
11392}#)))
+                                                            (if (null? #{m2 
11427}#)
+                                                              #{s1 11394}#
                                                               (append
-                                                                #{s1 8221}#
-                                                                #{m2 
8236}#))))))))
-                                            (#{module 8212}#
-                                              (vector-ref #{id 3549}# 3)))
+                                                                #{s1 11394}#
+                                                                #{m2 
11427}#))))))))
+                                            (#{module 11383}#
+                                              (vector-ref #{id 10416}# 3)))
                                         (vector
                                           'syntax-object
-                                          #{expression 8210}#
-                                          #{wrap 8211}#
-                                          #{module 8212}#))
-                                      (if (null? #{id 3549}#)
-                                        #{id 3549}#
+                                          #{expression 11381}#
+                                          #{wrap 11382}#
+                                          #{module 11383}#))
+                                      (if (null? #{id 10416}#)
+                                        #{id 10416}#
                                         (vector
                                           'syntax-object
-                                          #{id 3549}#
-                                          #{w 3533}#
-                                          #{id-mod 3554}#)))))))
-                            (if (memv #{atom-key 3559}# '(displaced-lexical))
+                                          #{id 10416}#
+                                          #{w 10380}#
+                                          #{id-mod 10419}#)))))))
+                            (if (eqv? #{atom-key 10421}# 'displaced-lexical)
                               (syntax-violation
                                 'set!
                                 "identifier out of context"
-                                (if (if (null? (car #{w 3533}#))
-                                      (null? (cdr #{w 3533}#))
+                                (if (if (null? (car #{w 10380}#))
+                                      (null? (cdr #{w 10380}#))
                                       #f)
-                                  #{id 3549}#
-                                  (if (if (vector? #{id 3549}#)
-                                        (if (= (vector-length #{id 3549}#) 4)
-                                          (eq? (vector-ref #{id 3549}# 0)
+                                  #{id 10416}#
+                                  (if (if (vector? #{id 10416}#)
+                                        (if (= (vector-length #{id 10416}#) 4)
+                                          (eq? (vector-ref #{id 10416}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (let ((#{expression 8255}#
-                                            (vector-ref #{id 3549}# 1))
-                                          (#{wrap 8256}#
-                                            (let ((#{w2 8264}#
+                                    (let ((#{expression 11483}#
+                                            (vector-ref #{id 10416}# 1))
+                                          (#{wrap 11484}#
+                                            (let ((#{w2 11494}#
                                                     (vector-ref
-                                                      #{id 3549}#
+                                                      #{id 10416}#
                                                       2)))
-                                              (let ((#{m1 8265}#
-                                                      (car #{w 3533}#))
-                                                    (#{s1 8266}#
-                                                      (cdr #{w 3533}#)))
-                                                (if (null? #{m1 8265}#)
-                                                  (if (null? #{s1 8266}#)
-                                                    #{w2 8264}#
-                                                    (cons (car #{w2 8264}#)
-                                                          (let ((#{m2 8273}#
-                                                                  (cdr #{w2 
8264}#)))
-                                                            (if (null? #{m2 
8273}#)
-                                                              #{s1 8266}#
+                                              (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}#
                                                               (append
-                                                                #{s1 8266}#
-                                                                #{m2 
8273}#)))))
-                                                  (cons (let ((#{m2 8277}#
-                                                                (car #{w2 
8264}#)))
-                                                          (if (null? #{m2 
8277}#)
-                                                            #{m1 8265}#
+                                                                #{s1 11496}#
+                                                                #{m2 
11513}#)))))
+                                                  (cons (let ((#{m2 11521}#
+                                                                (car #{w2 
11494}#)))
+                                                          (if (null? #{m2 
11521}#)
+                                                            #{m1 11495}#
                                                             (append
-                                                              #{m1 8265}#
-                                                              #{m2 8277}#)))
-                                                        (let ((#{m2 8281}#
-                                                                (cdr #{w2 
8264}#)))
-                                                          (if (null? #{m2 
8281}#)
-                                                            #{s1 8266}#
+                                                              #{m1 11495}#
+                                                              #{m2 11521}#)))
+                                                        (let ((#{m2 11529}#
+                                                                (cdr #{w2 
11494}#)))
+                                                          (if (null? #{m2 
11529}#)
+                                                            #{s1 11496}#
                                                             (append
-                                                              #{s1 8266}#
-                                                              #{m2 
8281}#))))))))
-                                          (#{module 8257}#
-                                            (vector-ref #{id 3549}# 3)))
+                                                              #{s1 11496}#
+                                                              #{m2 
11529}#))))))))
+                                          (#{module 11485}#
+                                            (vector-ref #{id 10416}# 3)))
                                       (vector
                                         'syntax-object
-                                        #{expression 8255}#
-                                        #{wrap 8256}#
-                                        #{module 8257}#))
-                                    (if (null? #{id 3549}#)
-                                      #{id 3549}#
+                                        #{expression 11483}#
+                                        #{wrap 11484}#
+                                        #{module 11485}#))
+                                    (if (null? #{id 10416}#)
+                                      #{id 10416}#
                                       (vector
                                         'syntax-object
-                                        #{id 3549}#
-                                        #{w 3533}#
-                                        #{mod 3535}#)))))
+                                        #{id 10416}#
+                                        #{w 10380}#
+                                        #{mod 10382}#)))))
                               (syntax-violation
                                 'set!
                                 "bad set!"
-                                (let ((#{x 8298}#
+                                (let ((#{x 11561}#
                                         (begin
-                                          (if (if (pair? #{e 3531}#)
-                                                #{s 3534}#
+                                          (if (if (pair? #{e 10378}#)
+                                                #{s 10381}#
                                                 #f)
                                             (set-source-properties!
-                                              #{e 3531}#
-                                              #{s 3534}#))
-                                          #{e 3531}#)))
-                                  (if (if (null? (car #{w 3533}#))
-                                        (null? (cdr #{w 3533}#))
+                                              #{e 10378}#
+                                              #{s 10381}#))
+                                          #{e 10378}#)))
+                                  (if (if (null? (car #{w 10380}#))
+                                        (null? (cdr #{w 10380}#))
                                         #f)
-                                    #{x 8298}#
-                                    (if (if (vector? #{x 8298}#)
-                                          (if (= (vector-length #{x 8298}#) 4)
-                                            (eq? (vector-ref #{x 8298}# 0)
+                                    #{x 11561}#
+                                    (if (if (vector? #{x 11561}#)
+                                          (if (= (vector-length #{x 11561}#) 4)
+                                            (eq? (vector-ref #{x 11561}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (let ((#{expression 8310}#
-                                              (vector-ref #{x 8298}# 1))
-                                            (#{wrap 8311}#
-                                              (let ((#{w2 8319}#
+                                      (let ((#{expression 11593}#
+                                              (vector-ref #{x 11561}# 1))
+                                            (#{wrap 11594}#
+                                              (let ((#{w2 11602}#
                                                       (vector-ref
-                                                        #{x 8298}#
+                                                        #{x 11561}#
                                                         2)))
-                                                (let ((#{m1 8320}#
-                                                        (car #{w 3533}#))
-                                                      (#{s1 8321}#
-                                                        (cdr #{w 3533}#)))
-                                                  (if (null? #{m1 8320}#)
-                                                    (if (null? #{s1 8321}#)
-                                                      #{w2 8319}#
-                                                      (cons (car #{w2 8319}#)
-                                                            (let ((#{m2 8328}#
-                                                                    (cdr #{w2 
8319}#)))
-                                                              (if (null? #{m2 
8328}#)
-                                                                #{s1 8321}#
+                                                (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}#
                                                                 (append
-                                                                  #{s1 8321}#
-                                                                  #{m2 
8328}#)))))
-                                                    (cons (let ((#{m2 8332}#
-                                                                  (car #{w2 
8319}#)))
-                                                            (if (null? #{m2 
8332}#)
-                                                              #{m1 8320}#
+                                                                  #{s1 11604}#
+                                                                  #{m2 
11619}#)))))
+                                                    (cons (let ((#{m2 11627}#
+                                                                  (car #{w2 
11602}#)))
+                                                            (if (null? #{m2 
11627}#)
+                                                              #{m1 11603}#
                                                               (append
-                                                                #{m1 8320}#
-                                                                #{m2 8332}#)))
-                                                          (let ((#{m2 8336}#
-                                                                  (cdr #{w2 
8319}#)))
-                                                            (if (null? #{m2 
8336}#)
-                                                              #{s1 8321}#
+                                                                #{m1 11603}#
+                                                                #{m2 11627}#)))
+                                                          (let ((#{m2 11635}#
+                                                                  (cdr #{w2 
11602}#)))
+                                                            (if (null? #{m2 
11635}#)
+                                                              #{s1 11604}#
                                                               (append
-                                                                #{s1 8321}#
-                                                                #{m2 
8336}#))))))))
-                                            (#{module 8312}#
-                                              (vector-ref #{x 8298}# 3)))
+                                                                #{s1 11604}#
+                                                                #{m2 
11635}#))))))))
+                                            (#{module 11595}#
+                                              (vector-ref #{x 11561}# 3)))
                                         (vector
                                           'syntax-object
-                                          #{expression 8310}#
-                                          #{wrap 8311}#
-                                          #{module 8312}#))
-                                      (if (null? #{x 8298}#)
-                                        #{x 8298}#
+                                          #{expression 11593}#
+                                          #{wrap 11594}#
+                                          #{module 11595}#))
+                                      (if (null? #{x 11561}#)
+                                        #{x 11561}#
                                         (vector
                                           'syntax-object
-                                          #{x 8298}#
-                                          #{w 3533}#
-                                          #{mod 3535}#))))))))))))))
-              #{tmp 3542}#)
-            (let ((#{tmp 3571}#
+                                          #{x 11561}#
+                                          #{w 10380}#
+                                          #{mod 10382}#))))))))))))))
+              #{tmp 10384}#)
+            (let ((#{tmp 11650}#
                     ($sc-dispatch
-                      #{e 3531}#
+                      #{e 10378}#
                       '(_ (any . each-any) any))))
-              (if #{tmp 3571}#
+              (if #{tmp 11650}#
                 (@apply
-                  (lambda (#{head 3575}# #{tail 3576}# #{val 3577}#)
+                  (lambda (#{head 11654}# #{tail 11655}# #{val 11656}#)
                     (call-with-values
                       (lambda ()
-                        (#{syntax-type 439}#
-                          #{head 3575}#
-                          #{r 3532}#
+                        (#{syntax-type 4374}#
+                          #{head 11654}#
+                          #{r 10379}#
                           '(())
                           #f
                           #f
-                          #{mod 3535}#
+                          #{mod 10382}#
                           #t))
-                      (lambda (#{type 3580}#
-                               #{value 3581}#
-                               #{ee 3582}#
-                               #{ww 3583}#
-                               #{ss 3584}#
-                               #{modmod 3585}#)
-                        (if (memv #{type 3580}# '(module-ref))
-                          (let ((#{val 3594}#
-                                  (#{chi 441}#
-                                    #{val 3577}#
-                                    #{r 3532}#
-                                    #{w 3533}#
-                                    #{mod 3535}#)))
+                      (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}#)))
                             (call-with-values
                               (lambda ()
-                                (#{value 3581}#
-                                  (cons #{head 3575}# #{tail 3576}#)
-                                  #{r 3532}#
-                                  #{w 3533}#))
-                              (lambda (#{e 3596}#
-                                       #{r 3597}#
-                                       #{w 3598}#
-                                       #{s* 3599}#
-                                       #{mod 3600}#)
-                                (let ((#{tmp 3607}# (list #{e 3596}#)))
-                                  (if (if #{tmp 3607}#
-                                        (@apply
-                                          (lambda (#{e 3609}#)
-                                            (if (symbol? #{e 3609}#)
-                                              #t
-                                              (if (if (vector? #{e 3609}#)
-                                                    (if (= (vector-length
-                                                             #{e 3609}#)
-                                                           4)
-                                                      (eq? (vector-ref
-                                                             #{e 3609}#
-                                                             0)
-                                                           'syntax-object)
-                                                      #f)
+                                (#{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}#)))
+                                  (if (@apply
+                                        (lambda (#{e 11677}#)
+                                          (if (symbol? #{e 11677}#)
+                                            #t
+                                            (if (if (vector? #{e 11677}#)
+                                                  (if (= (vector-length
+                                                           #{e 11677}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{e 11677}#
+                                                           0)
+                                                         'syntax-object)
                                                     #f)
-                                                (symbol?
-                                                  (vector-ref #{e 3609}# 1))
-                                                #f)))
-                                          #{tmp 3607}#)
-                                        #f)
-                                    (@apply
-                                      (lambda (#{e 3611}#)
-                                        (let ((#{var 8407}#
-                                                (syntax->datum #{e 3611}#)))
-                                          (begin
-                                            (if (if (struct? #{val 3594}#)
-                                                  (eq? (struct-vtable
-                                                         #{val 3594}#)
-                                                       (vector-ref
-                                                         %expanded-vtables
-                                                         14))
                                                   #f)
-                                              (let ((#{meta 8418}#
-                                                      (struct-ref
-                                                        #{val 3594}#
-                                                        1)))
-                                                (if (not (assq 'name
-                                                               #{meta 8418}#))
-                                                  (let ((#{v 8428}#
-                                                          (cons (cons 'name
-                                                                      #{var 
8407}#)
-                                                                #{meta 
8418}#)))
-                                                    (struct-set!
-                                                      #{val 3594}#
-                                                      1
-                                                      #{v 8428}#)))))
-                                            (#{analyze-variable 283}#
-                                              #{mod 3600}#
-                                              #{var 8407}#
-                                              (lambda (#{mod 8410}#
-                                                       #{var 8411}#
-                                                       #{public? 8412}#)
-                                                (make-struct/no-tail
-                                                  (vector-ref
-                                                    %expanded-vtables
-                                                    6)
-                                                  #{s 3534}#
-                                                  #{mod 8410}#
-                                                  #{var 8411}#
-                                                  #{public? 8412}#
-                                                  #{val 3594}#))
-                                              (lambda (#{var 8413}#)
-                                                (make-struct/no-tail
-                                                  (vector-ref
-                                                    %expanded-vtables
-                                                    8)
-                                                  #{s 3534}#
-                                                  #{var 8413}#
-                                                  #{val 3594}#))))))
-                                      #{tmp 3607}#)
+                                              (symbol?
+                                                (vector-ref #{e 11677}# 1))
+                                              #f)))
+                                        #{tmp 11675}#)
+                                    (@apply
+                                      (lambda (#{e 11707}#)
+                                        (#{build-global-assignment 4316}#
+                                          #{s 10381}#
+                                          (syntax->datum #{e 11707}#)
+                                          #{val 11668}#
+                                          #{mod 11673}#))
+                                      #{tmp 11675}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any 
pattern"
-                                      #{e 3596}#))))))
-                          (#{build-call 273}#
-                            #{s 3534}#
-                            (#{chi 441}#
+                                      #{e 11669}#))))))
+                          (#{build-call 4309}#
+                            #{s 10381}#
+                            (#{chi 4375}#
                               (list '#(syntax-object
                                        setter
                                        ((top)
@@ -8893,25 +11028,25 @@
                                             (top)
                                             (top)
                                             (top))
-                                          #("i3586"
-                                            "i3587"
+                                          #("i3587"
                                             "i3588"
                                             "i3589"
                                             "i3590"
-                                            "i3591"))
+                                            "i3591"
+                                            "i3592"))
                                         #(ribcage
                                           #(head tail val)
                                           #((top) (top) (top))
-                                          #("i3572" "i3573" "i3574"))
+                                          #("i3573" "i3574" "i3575"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(e r w s mod)
                                           #((top) (top) (top) (top) (top))
-                                          #("i3536"
-                                            "i3537"
+                                          #("i3537"
                                             "i3538"
                                             "i3539"
-                                            "i3540"))
+                                            "i3540"
+                                            "i3541"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
@@ -9189,257 +11324,258 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("i470"
-                                           "i468"
-                                           "i466"
-                                           "i464"
-                                           "i462"
-                                           "i460"
-                                           "i458"
-                                           "i456"
-                                           "i454"
-                                           "i452"
-                                           "i450"
-                                           "i448"
-                                           "i446"
-                                           "i444"
-                                           "i442"
-                                           "i440"
-                                           "i438"
-                                           "i436"
-                                           "i434"
-                                           "i432"
-                                           "i430"
-                                           "i428"
-                                           "i426"
-                                           "i424"
-                                           "i422"
-                                           "i420"
-                                           "i418"
-                                           "i416"
-                                           "i414"
-                                           "i412"
-                                           "i410"
-                                           "i408"
-                                           "i406"
-                                           "i404"
+                                          ("i471"
+                                           "i469"
+                                           "i467"
+                                           "i465"
+                                           "i463"
+                                           "i461"
+                                           "i459"
+                                           "i457"
+                                           "i455"
+                                           "i453"
+                                           "i451"
+                                           "i449"
+                                           "i447"
+                                           "i445"
+                                           "i443"
+                                           "i441"
+                                           "i439"
+                                           "i437"
+                                           "i435"
+                                           "i433"
+                                           "i431"
+                                           "i429"
+                                           "i427"
+                                           "i425"
+                                           "i423"
+                                           "i421"
+                                           "i419"
+                                           "i417"
+                                           "i415"
+                                           "i413"
+                                           "i411"
+                                           "i409"
+                                           "i407"
+                                           "i405"
+                                           "i403"
                                            "i402"
-                                           "i401"
-                                           "i399"
+                                           "i400"
+                                           "i397"
                                            "i396"
                                            "i395"
-                                           "i394"
+                                           "i393"
                                            "i392"
-                                           "i391"
-                                           "i389"
-                                           "i387"
-                                           "i385"
-                                           "i383"
-                                           "i381"
-                                           "i379"
-                                           "i377"
-                                           "i375"
-                                           "i372"
+                                           "i390"
+                                           "i388"
+                                           "i386"
+                                           "i384"
+                                           "i382"
+                                           "i380"
+                                           "i378"
+                                           "i376"
+                                           "i373"
+                                           "i371"
                                            "i370"
-                                           "i369"
-                                           "i367"
-                                           "i365"
-                                           "i363"
+                                           "i368"
+                                           "i366"
+                                           "i364"
+                                           "i362"
                                            "i361"
                                            "i360"
                                            "i359"
-                                           "i358"
+                                           "i357"
                                            "i356"
-                                           "i355"
-                                           "i352"
-                                           "i350"
-                                           "i348"
-                                           "i346"
-                                           "i344"
-                                           "i342"
+                                           "i353"
+                                           "i351"
+                                           "i349"
+                                           "i347"
+                                           "i345"
+                                           "i343"
+                                           "i341"
                                            "i340"
                                            "i339"
-                                           "i338"
-                                           "i336"
+                                           "i337"
+                                           "i335"
                                            "i334"
-                                           "i333"
+                                           "i331"
                                            "i330"
-                                           "i329"
-                                           "i327"
-                                           "i325"
-                                           "i323"
-                                           "i321"
-                                           "i319"
-                                           "i317"
-                                           "i315"
-                                           "i313"
-                                           "i311"
-                                           "i308"
-                                           "i306"
-                                           "i304"
-                                           "i302"
-                                           "i300"
-                                           "i298"
-                                           "i296"
-                                           "i294"
-                                           "i292"
-                                           "i290"
-                                           "i288"
-                                           "i286"
-                                           "i284"
-                                           "i282"
-                                           "i280"
-                                           "i278"
-                                           "i276"
-                                           "i274"
-                                           "i272"
-                                           "i270"
-                                           "i268"
-                                           "i266"
-                                           "i264"
+                                           "i328"
+                                           "i326"
+                                           "i324"
+                                           "i322"
+                                           "i320"
+                                           "i318"
+                                           "i316"
+                                           "i314"
+                                           "i312"
+                                           "i309"
+                                           "i307"
+                                           "i305"
+                                           "i303"
+                                           "i301"
+                                           "i299"
+                                           "i297"
+                                           "i295"
+                                           "i293"
+                                           "i291"
+                                           "i289"
+                                           "i287"
+                                           "i285"
+                                           "i283"
+                                           "i281"
+                                           "i279"
+                                           "i277"
+                                           "i275"
+                                           "i273"
+                                           "i271"
+                                           "i269"
+                                           "i267"
+                                           "i265"
+                                           "i263"
                                            "i262"
-                                           "i261"
-                                           "i258"
+                                           "i259"
+                                           "i257"
                                            "i256"
                                            "i255"
                                            "i254"
                                            "i253"
-                                           "i252"
-                                           "i250"
-                                           "i248"
-                                           "i246"
-                                           "i243"
-                                           "i241"
-                                           "i239"
-                                           "i237"
-                                           "i235"
-                                           "i233"
-                                           "i231"
-                                           "i229"
-                                           "i227"
-                                           "i225"
-                                           "i223"
-                                           "i221"
-                                           "i219"
-                                           "i217"
-                                           "i215"
-                                           "i213"
-                                           "i211"
-                                           "i209"
-                                           "i207"))
+                                           "i251"
+                                           "i249"
+                                           "i247"
+                                           "i244"
+                                           "i242"
+                                           "i240"
+                                           "i238"
+                                           "i236"
+                                           "i234"
+                                           "i232"
+                                           "i230"
+                                           "i228"
+                                           "i226"
+                                           "i224"
+                                           "i222"
+                                           "i220"
+                                           "i218"
+                                           "i216"
+                                           "i214"
+                                           "i212"
+                                           "i210"
+                                           "i208"))
                                         #(ribcage
                                           (define-structure
                                             define-expansion-accessors
                                             define-expansion-constructors)
                                           ((top) (top) (top))
-                                          ("i45" "i44" "i43")))
+                                          ("i46" "i45" "i44")))
                                        (hygiene guile))
-                                    #{head 3575}#)
-                              #{r 3532}#
-                              #{w 3533}#
-                              #{mod 3535}#)
-                            (map (lambda (#{e 3613}#)
-                                   (#{chi 441}#
-                                     #{e 3613}#
-                                     #{r 3532}#
-                                     #{w 3533}#
-                                     #{mod 3535}#))
+                                    #{head 11654}#)
+                              #{r 10379}#
+                              #{w 10380}#
+                              #{mod 10382}#)
+                            (map (lambda (#{e 12028}#)
+                                   (#{chi 4375}#
+                                     #{e 12028}#
+                                     #{r 10379}#
+                                     #{w 10380}#
+                                     #{mod 10382}#))
                                  (append
-                                   #{tail 3576}#
-                                   (list #{val 3577}#))))))))
-                  #{tmp 3571}#)
+                                   #{tail 11655}#
+                                   (list #{val 11656}#))))))))
+                  #{tmp 11650}#)
                 (syntax-violation
                   'set!
                   "bad set!"
-                  (let ((#{x 8603}#
+                  (let ((#{x 12118}#
                           (begin
-                            (if (if (pair? #{e 3531}#) #{s 3534}# #f)
-                              (set-source-properties! #{e 3531}# #{s 3534}#))
-                            #{e 3531}#)))
-                    (if (if (null? (car #{w 3533}#))
-                          (null? (cdr #{w 3533}#))
+                            (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}#))
                           #f)
-                      #{x 8603}#
-                      (if (if (vector? #{x 8603}#)
-                            (if (= (vector-length #{x 8603}#) 4)
-                              (eq? (vector-ref #{x 8603}# 0) 'syntax-object)
+                      #{x 12118}#
+                      (if (if (vector? #{x 12118}#)
+                            (if (= (vector-length #{x 12118}#) 4)
+                              (eq? (vector-ref #{x 12118}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (let ((#{expression 8615}# (vector-ref #{x 8603}# 1))
-                              (#{wrap 8616}#
-                                (let ((#{w2 8624}# (vector-ref #{x 8603}# 2)))
-                                  (let ((#{m1 8625}# (car #{w 3533}#))
-                                        (#{s1 8626}# (cdr #{w 3533}#)))
-                                    (if (null? #{m1 8625}#)
-                                      (if (null? #{s1 8626}#)
-                                        #{w2 8624}#
-                                        (cons (car #{w2 8624}#)
-                                              (let ((#{m2 8633}#
-                                                      (cdr #{w2 8624}#)))
-                                                (if (null? #{m2 8633}#)
-                                                  #{s1 8626}#
+                        (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}#
                                                   (append
-                                                    #{s1 8626}#
-                                                    #{m2 8633}#)))))
-                                      (cons (let ((#{m2 8637}#
-                                                    (car #{w2 8624}#)))
-                                              (if (null? #{m2 8637}#)
-                                                #{m1 8625}#
+                                                    #{s1 12161}#
+                                                    #{m2 12176}#)))))
+                                      (cons (let ((#{m2 12184}#
+                                                    (car #{w2 12159}#)))
+                                              (if (null? #{m2 12184}#)
+                                                #{m1 12160}#
                                                 (append
-                                                  #{m1 8625}#
-                                                  #{m2 8637}#)))
-                                            (let ((#{m2 8641}#
-                                                    (cdr #{w2 8624}#)))
-                                              (if (null? #{m2 8641}#)
-                                                #{s1 8626}#
+                                                  #{m1 12160}#
+                                                  #{m2 12184}#)))
+                                            (let ((#{m2 12192}#
+                                                    (cdr #{w2 12159}#)))
+                                              (if (null? #{m2 12192}#)
+                                                #{s1 12161}#
                                                 (append
-                                                  #{s1 8626}#
-                                                  #{m2 8641}#))))))))
-                              (#{module 8617}# (vector-ref #{x 8603}# 3)))
+                                                  #{s1 12161}#
+                                                  #{m2 12192}#))))))))
+                              (#{module 12152}# (vector-ref #{x 12118}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 8615}#
-                            #{wrap 8616}#
-                            #{module 8617}#))
-                        (if (null? #{x 8603}#)
-                          #{x 8603}#
+                            #{expression 12150}#
+                            #{wrap 12151}#
+                            #{module 12152}#))
+                        (if (null? #{x 12118}#)
+                          #{x 12118}#
                           (vector
                             'syntax-object
-                            #{x 8603}#
-                            #{w 3533}#
-                            #{mod 3535}#))))))))))))
+                            #{x 12118}#
+                            #{w 10380}#
+                            #{mod 10382}#))))))))))))
     (module-define!
       (current-module)
       '@
       (make-syntax-transformer
         '@
         'module-ref
-        (lambda (#{e 3618}# #{r 3619}# #{w 3620}#)
-          (let ((#{tmp 3625}#
-                  ($sc-dispatch #{e 3618}# '(_ each-any any))))
-            (if (if #{tmp 3625}#
+        (lambda (#{e 12223}# #{r 12224}# #{w 12225}#)
+          (let ((#{tmp 12227}#
+                  ($sc-dispatch #{e 12223}# '(_ each-any any))))
+            (if (if #{tmp 12227}#
                   (@apply
-                    (lambda (#{mod 3628}# #{id 3629}#)
-                      (if (and-map #{id? 353}# #{mod 3628}#)
-                        (if (symbol? #{id 3629}#)
+                    (lambda (#{mod 12230}# #{id 12231}#)
+                      (if (and-map #{id? 4343}# #{mod 12230}#)
+                        (if (symbol? #{id 12231}#)
                           #t
-                          (if (if (vector? #{id 3629}#)
-                                (if (= (vector-length #{id 3629}#) 4)
-                                  (eq? (vector-ref #{id 3629}# 0)
+                          (if (if (vector? #{id 12231}#)
+                                (if (= (vector-length #{id 12231}#) 4)
+                                  (eq? (vector-ref #{id 12231}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{id 3629}# 1))
+                            (symbol? (vector-ref #{id 12231}# 1))
                             #f))
                         #f))
-                    #{tmp 3625}#)
+                    #{tmp 12227}#)
                   #f)
               (@apply
-                (lambda (#{mod 3635}# #{id 3636}#)
+                (lambda (#{mod 12271}# #{id 12272}#)
                   (values
-                    (syntax->datum #{id 3636}#)
-                    #{r 3619}#
-                    #{w 3620}#
+                    (syntax->datum #{id 12272}#)
+                    #{r 12224}#
+                    #{w 12225}#
                     #f
                     (syntax->datum
                       (cons '#(syntax-object
@@ -9448,12 +11584,12 @@
                                 #(ribcage
                                   #(mod id)
                                   #((top) (top))
-                                  #("i3633" "i3634"))
+                                  #("i3634" "i3635"))
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(e r w)
                                   #((top) (top) (top))
-                                  #("i3621" "i3622" "i3623"))
+                                  #("i3622" "i3623" "i3624"))
                                 #(ribcage
                                   (lambda-var-list
                                     gen-var
@@ -9731,215 +11867,215 @@
                                    (top)
                                    (top)
                                    (top))
-                                  ("i470"
-                                   "i468"
-                                   "i466"
-                                   "i464"
-                                   "i462"
-                                   "i460"
-                                   "i458"
-                                   "i456"
-                                   "i454"
-                                   "i452"
-                                   "i450"
-                                   "i448"
-                                   "i446"
-                                   "i444"
-                                   "i442"
-                                   "i440"
-                                   "i438"
-                                   "i436"
-                                   "i434"
-                                   "i432"
-                                   "i430"
-                                   "i428"
-                                   "i426"
-                                   "i424"
-                                   "i422"
-                                   "i420"
-                                   "i418"
-                                   "i416"
-                                   "i414"
-                                   "i412"
-                                   "i410"
-                                   "i408"
-                                   "i406"
-                                   "i404"
+                                  ("i471"
+                                   "i469"
+                                   "i467"
+                                   "i465"
+                                   "i463"
+                                   "i461"
+                                   "i459"
+                                   "i457"
+                                   "i455"
+                                   "i453"
+                                   "i451"
+                                   "i449"
+                                   "i447"
+                                   "i445"
+                                   "i443"
+                                   "i441"
+                                   "i439"
+                                   "i437"
+                                   "i435"
+                                   "i433"
+                                   "i431"
+                                   "i429"
+                                   "i427"
+                                   "i425"
+                                   "i423"
+                                   "i421"
+                                   "i419"
+                                   "i417"
+                                   "i415"
+                                   "i413"
+                                   "i411"
+                                   "i409"
+                                   "i407"
+                                   "i405"
+                                   "i403"
                                    "i402"
-                                   "i401"
-                                   "i399"
+                                   "i400"
+                                   "i397"
                                    "i396"
                                    "i395"
-                                   "i394"
+                                   "i393"
                                    "i392"
-                                   "i391"
-                                   "i389"
-                                   "i387"
-                                   "i385"
-                                   "i383"
-                                   "i381"
-                                   "i379"
-                                   "i377"
-                                   "i375"
-                                   "i372"
+                                   "i390"
+                                   "i388"
+                                   "i386"
+                                   "i384"
+                                   "i382"
+                                   "i380"
+                                   "i378"
+                                   "i376"
+                                   "i373"
+                                   "i371"
                                    "i370"
-                                   "i369"
-                                   "i367"
-                                   "i365"
-                                   "i363"
+                                   "i368"
+                                   "i366"
+                                   "i364"
+                                   "i362"
                                    "i361"
                                    "i360"
                                    "i359"
-                                   "i358"
+                                   "i357"
                                    "i356"
-                                   "i355"
-                                   "i352"
-                                   "i350"
-                                   "i348"
-                                   "i346"
-                                   "i344"
-                                   "i342"
+                                   "i353"
+                                   "i351"
+                                   "i349"
+                                   "i347"
+                                   "i345"
+                                   "i343"
+                                   "i341"
                                    "i340"
                                    "i339"
-                                   "i338"
-                                   "i336"
+                                   "i337"
+                                   "i335"
                                    "i334"
-                                   "i333"
+                                   "i331"
                                    "i330"
-                                   "i329"
-                                   "i327"
-                                   "i325"
-                                   "i323"
-                                   "i321"
-                                   "i319"
-                                   "i317"
-                                   "i315"
-                                   "i313"
-                                   "i311"
-                                   "i308"
-                                   "i306"
-                                   "i304"
-                                   "i302"
-                                   "i300"
-                                   "i298"
-                                   "i296"
-                                   "i294"
-                                   "i292"
-                                   "i290"
-                                   "i288"
-                                   "i286"
-                                   "i284"
-                                   "i282"
-                                   "i280"
-                                   "i278"
-                                   "i276"
-                                   "i274"
-                                   "i272"
-                                   "i270"
-                                   "i268"
-                                   "i266"
-                                   "i264"
+                                   "i328"
+                                   "i326"
+                                   "i324"
+                                   "i322"
+                                   "i320"
+                                   "i318"
+                                   "i316"
+                                   "i314"
+                                   "i312"
+                                   "i309"
+                                   "i307"
+                                   "i305"
+                                   "i303"
+                                   "i301"
+                                   "i299"
+                                   "i297"
+                                   "i295"
+                                   "i293"
+                                   "i291"
+                                   "i289"
+                                   "i287"
+                                   "i285"
+                                   "i283"
+                                   "i281"
+                                   "i279"
+                                   "i277"
+                                   "i275"
+                                   "i273"
+                                   "i271"
+                                   "i269"
+                                   "i267"
+                                   "i265"
+                                   "i263"
                                    "i262"
-                                   "i261"
-                                   "i258"
+                                   "i259"
+                                   "i257"
                                    "i256"
                                    "i255"
                                    "i254"
                                    "i253"
-                                   "i252"
-                                   "i250"
-                                   "i248"
-                                   "i246"
-                                   "i243"
-                                   "i241"
-                                   "i239"
-                                   "i237"
-                                   "i235"
-                                   "i233"
-                                   "i231"
-                                   "i229"
-                                   "i227"
-                                   "i225"
-                                   "i223"
-                                   "i221"
-                                   "i219"
-                                   "i217"
-                                   "i215"
-                                   "i213"
-                                   "i211"
-                                   "i209"
-                                   "i207"))
+                                   "i251"
+                                   "i249"
+                                   "i247"
+                                   "i244"
+                                   "i242"
+                                   "i240"
+                                   "i238"
+                                   "i236"
+                                   "i234"
+                                   "i232"
+                                   "i230"
+                                   "i228"
+                                   "i226"
+                                   "i224"
+                                   "i222"
+                                   "i220"
+                                   "i218"
+                                   "i216"
+                                   "i214"
+                                   "i212"
+                                   "i210"
+                                   "i208"))
                                 #(ribcage
                                   (define-structure
                                     define-expansion-accessors
                                     define-expansion-constructors)
                                   ((top) (top) (top))
-                                  ("i45" "i44" "i43")))
+                                  ("i46" "i45" "i44")))
                                (hygiene guile))
-                            #{mod 3635}#))))
-                #{tmp 3625}#)
+                            #{mod 12271}#))))
+                #{tmp 12227}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{e 3618}#))))))
-    (#{global-extend 349}#
+                #{e 12223}#))))))
+    (#{global-extend 4341}#
       'module-ref
       '@@
-      (lambda (#{e 3638}# #{r 3639}# #{w 3640}#)
+      (lambda (#{e 12374}# #{r 12375}# #{w 12376}#)
         (letrec*
-          ((#{remodulate 3645}#
-             (lambda (#{x 3646}# #{mod 3647}#)
-               (if (pair? #{x 3646}#)
-                 (cons (#{remodulate 3645}#
-                         (car #{x 3646}#)
-                         #{mod 3647}#)
-                       (#{remodulate 3645}#
-                         (cdr #{x 3646}#)
-                         #{mod 3647}#))
-                 (if (if (vector? #{x 3646}#)
-                       (if (= (vector-length #{x 3646}#) 4)
-                         (eq? (vector-ref #{x 3646}# 0) 'syntax-object)
+          ((#{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)
                          #f)
                        #f)
-                   (let ((#{expression 8715}#
-                           (#{remodulate 3645}#
-                             (vector-ref #{x 3646}# 1)
-                             #{mod 3647}#))
-                         (#{wrap 8716}# (vector-ref #{x 3646}# 2)))
+                   (let ((#{expression 12616}#
+                           (#{remodulate 12377}#
+                             (vector-ref #{x 12601}# 1)
+                             #{mod 12602}#))
+                         (#{wrap 12617}# (vector-ref #{x 12601}# 2)))
                      (vector
                        'syntax-object
-                       #{expression 8715}#
-                       #{wrap 8716}#
-                       #{mod 3647}#))
-                   (if (vector? #{x 3646}#)
-                     (let ((#{n 3658}# (vector-length #{x 3646}#)))
-                       (let ((#{v 3660}# (make-vector #{n 3658}#)))
+                       #{expression 12616}#
+                       #{wrap 12617}#
+                       #{mod 12602}#))
+                   (if (vector? #{x 12601}#)
+                     (let ((#{n 12625}# (vector-length #{x 12601}#)))
+                       (let ((#{v 12626}# (make-vector #{n 12625}#)))
                          (letrec*
-                           ((#{loop 3663}#
-                              (lambda (#{i 3664}#)
-                                (if (= #{i 3664}# #{n 3658}#)
-                                  #{v 3660}#
+                           ((#{loop 12627}#
+                              (lambda (#{i 12682}#)
+                                (if (= #{i 12682}# #{n 12625}#)
+                                  #{v 12626}#
                                   (begin
                                     (vector-set!
-                                      #{v 3660}#
-                                      #{i 3664}#
-                                      (#{remodulate 3645}#
-                                        (vector-ref #{x 3646}# #{i 3664}#)
-                                        #{mod 3647}#))
-                                    (#{loop 3663}# (#{1+}# #{i 3664}#)))))))
-                           (#{loop 3663}# 0))))
-                     #{x 3646}#))))))
-          (let ((#{tmp 3671}#
-                  ($sc-dispatch #{e 3638}# '(_ each-any any))))
-            (if (if #{tmp 3671}#
+                                      #{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}#
                   (@apply
-                    (lambda (#{mod 3674}# #{exp 3675}#)
-                      (and-map #{id? 353}# #{mod 3674}#))
-                    #{tmp 3671}#)
+                    (lambda (#{mod 12383}# #{exp 12384}#)
+                      (and-map #{id? 4343}# #{mod 12383}#))
+                    #{tmp 12379}#)
                   #f)
               (@apply
-                (lambda (#{mod 3679}# #{exp 3680}#)
-                  (let ((#{mod 3682}#
+                (lambda (#{mod 12400}# #{exp 12401}#)
+                  (let ((#{mod 12402}#
                           (syntax->datum
                             (cons '#(syntax-object
                                      private
@@ -9947,12 +12083,12 @@
                                       #(ribcage
                                         #(mod exp)
                                         #((top) (top))
-                                        #("i3677" "i3678"))
-                                      #(ribcage (remodulate) ((top)) ("i3644"))
+                                        #("i3678" "i3679"))
+                                      #(ribcage (remodulate) ((top)) ("i3645"))
                                       #(ribcage
                                         #(e r w)
                                         #((top) (top) (top))
-                                        #("i3641" "i3642" "i3643"))
+                                        #("i3642" "i3643" "i3644"))
                                       #(ribcage
                                         (lambda-var-list
                                           gen-var
@@ -10230,328 +12366,326 @@
                                          (top)
                                          (top)
                                          (top))
-                                        ("i470"
-                                         "i468"
-                                         "i466"
-                                         "i464"
-                                         "i462"
-                                         "i460"
-                                         "i458"
-                                         "i456"
-                                         "i454"
-                                         "i452"
-                                         "i450"
-                                         "i448"
-                                         "i446"
-                                         "i444"
-                                         "i442"
-                                         "i440"
-                                         "i438"
-                                         "i436"
-                                         "i434"
-                                         "i432"
-                                         "i430"
-                                         "i428"
-                                         "i426"
-                                         "i424"
-                                         "i422"
-                                         "i420"
-                                         "i418"
-                                         "i416"
-                                         "i414"
-                                         "i412"
-                                         "i410"
-                                         "i408"
-                                         "i406"
-                                         "i404"
+                                        ("i471"
+                                         "i469"
+                                         "i467"
+                                         "i465"
+                                         "i463"
+                                         "i461"
+                                         "i459"
+                                         "i457"
+                                         "i455"
+                                         "i453"
+                                         "i451"
+                                         "i449"
+                                         "i447"
+                                         "i445"
+                                         "i443"
+                                         "i441"
+                                         "i439"
+                                         "i437"
+                                         "i435"
+                                         "i433"
+                                         "i431"
+                                         "i429"
+                                         "i427"
+                                         "i425"
+                                         "i423"
+                                         "i421"
+                                         "i419"
+                                         "i417"
+                                         "i415"
+                                         "i413"
+                                         "i411"
+                                         "i409"
+                                         "i407"
+                                         "i405"
+                                         "i403"
                                          "i402"
-                                         "i401"
-                                         "i399"
+                                         "i400"
+                                         "i397"
                                          "i396"
                                          "i395"
-                                         "i394"
+                                         "i393"
                                          "i392"
-                                         "i391"
-                                         "i389"
-                                         "i387"
-                                         "i385"
-                                         "i383"
-                                         "i381"
-                                         "i379"
-                                         "i377"
-                                         "i375"
-                                         "i372"
+                                         "i390"
+                                         "i388"
+                                         "i386"
+                                         "i384"
+                                         "i382"
+                                         "i380"
+                                         "i378"
+                                         "i376"
+                                         "i373"
+                                         "i371"
                                          "i370"
-                                         "i369"
-                                         "i367"
-                                         "i365"
-                                         "i363"
+                                         "i368"
+                                         "i366"
+                                         "i364"
+                                         "i362"
                                          "i361"
                                          "i360"
                                          "i359"
-                                         "i358"
+                                         "i357"
                                          "i356"
-                                         "i355"
-                                         "i352"
-                                         "i350"
-                                         "i348"
-                                         "i346"
-                                         "i344"
-                                         "i342"
+                                         "i353"
+                                         "i351"
+                                         "i349"
+                                         "i347"
+                                         "i345"
+                                         "i343"
+                                         "i341"
                                          "i340"
                                          "i339"
-                                         "i338"
-                                         "i336"
+                                         "i337"
+                                         "i335"
                                          "i334"
-                                         "i333"
+                                         "i331"
                                          "i330"
-                                         "i329"
-                                         "i327"
-                                         "i325"
-                                         "i323"
-                                         "i321"
-                                         "i319"
-                                         "i317"
-                                         "i315"
-                                         "i313"
-                                         "i311"
-                                         "i308"
-                                         "i306"
-                                         "i304"
-                                         "i302"
-                                         "i300"
-                                         "i298"
-                                         "i296"
-                                         "i294"
-                                         "i292"
-                                         "i290"
-                                         "i288"
-                                         "i286"
-                                         "i284"
-                                         "i282"
-                                         "i280"
-                                         "i278"
-                                         "i276"
-                                         "i274"
-                                         "i272"
-                                         "i270"
-                                         "i268"
-                                         "i266"
-                                         "i264"
+                                         "i328"
+                                         "i326"
+                                         "i324"
+                                         "i322"
+                                         "i320"
+                                         "i318"
+                                         "i316"
+                                         "i314"
+                                         "i312"
+                                         "i309"
+                                         "i307"
+                                         "i305"
+                                         "i303"
+                                         "i301"
+                                         "i299"
+                                         "i297"
+                                         "i295"
+                                         "i293"
+                                         "i291"
+                                         "i289"
+                                         "i287"
+                                         "i285"
+                                         "i283"
+                                         "i281"
+                                         "i279"
+                                         "i277"
+                                         "i275"
+                                         "i273"
+                                         "i271"
+                                         "i269"
+                                         "i267"
+                                         "i265"
+                                         "i263"
                                          "i262"
-                                         "i261"
-                                         "i258"
+                                         "i259"
+                                         "i257"
                                          "i256"
                                          "i255"
                                          "i254"
                                          "i253"
-                                         "i252"
-                                         "i250"
-                                         "i248"
-                                         "i246"
-                                         "i243"
-                                         "i241"
-                                         "i239"
-                                         "i237"
-                                         "i235"
-                                         "i233"
-                                         "i231"
-                                         "i229"
-                                         "i227"
-                                         "i225"
-                                         "i223"
-                                         "i221"
-                                         "i219"
-                                         "i217"
-                                         "i215"
-                                         "i213"
-                                         "i211"
-                                         "i209"
-                                         "i207"))
+                                         "i251"
+                                         "i249"
+                                         "i247"
+                                         "i244"
+                                         "i242"
+                                         "i240"
+                                         "i238"
+                                         "i236"
+                                         "i234"
+                                         "i232"
+                                         "i230"
+                                         "i228"
+                                         "i226"
+                                         "i224"
+                                         "i222"
+                                         "i220"
+                                         "i218"
+                                         "i216"
+                                         "i214"
+                                         "i212"
+                                         "i210"
+                                         "i208"))
                                       #(ribcage
                                         (define-structure
                                           define-expansion-accessors
                                           define-expansion-constructors)
                                         ((top) (top) (top))
-                                        ("i45" "i44" "i43")))
+                                        ("i46" "i45" "i44")))
                                      (hygiene guile))
-                                  #{mod 3679}#))))
+                                  #{mod 12400}#))))
                     (values
-                      (#{remodulate 3645}# #{exp 3680}# #{mod 3682}#)
-                      #{r 3639}#
-                      #{w 3640}#
-                      (#{source-annotation 331}# #{exp 3680}#)
-                      #{mod 3682}#)))
-                #{tmp 3671}#)
+                      (#{remodulate 12377}#
+                        #{exp 12401}#
+                        #{mod 12402}#)
+                      #{r 12375}#
+                      #{w 12376}#
+                      (#{source-annotation 4336}# #{exp 12401}#)
+                      #{mod 12402}#)))
+                #{tmp 12379}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{e 3638}#))))))
-    (#{global-extend 349}#
+                #{e 12374}#))))))
+    (#{global-extend 4341}#
       'core
       'if
-      (lambda (#{e 3684}#
-               #{r 3685}#
-               #{w 3686}#
-               #{s 3687}#
-               #{mod 3688}#)
-        (let ((#{tmp 3695}#
-                ($sc-dispatch #{e 3684}# '(_ any any))))
-          (if #{tmp 3695}#
+      (lambda (#{e 12793}#
+               #{r 12794}#
+               #{w 12795}#
+               #{s 12796}#
+               #{mod 12797}#)
+        (let ((#{tmp 12799}#
+                ($sc-dispatch #{e 12793}# '(_ any any))))
+          (if #{tmp 12799}#
             (@apply
-              (lambda (#{test 3698}# #{then 3699}#)
-                (#{build-conditional 275}#
-                  #{s 3687}#
-                  (#{chi 441}#
-                    #{test 3698}#
-                    #{r 3685}#
-                    #{w 3686}#
-                    #{mod 3688}#)
-                  (#{chi 441}#
-                    #{then 3699}#
-                    #{r 3685}#
-                    #{w 3686}#
-                    #{mod 3688}#)
+              (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}#)
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 0)
                     #f)))
-              #{tmp 3695}#)
-            (let ((#{tmp 3701}#
-                    ($sc-dispatch #{e 3684}# '(_ any any any))))
-              (if #{tmp 3701}#
+              #{tmp 12799}#)
+            (let ((#{tmp 13059}#
+                    ($sc-dispatch #{e 12793}# '(_ any any any))))
+              (if #{tmp 13059}#
                 (@apply
-                  (lambda (#{test 3705}# #{then 3706}# #{else 3707}#)
-                    (#{build-conditional 275}#
-                      #{s 3687}#
-                      (#{chi 441}#
-                        #{test 3705}#
-                        #{r 3685}#
-                        #{w 3686}#
-                        #{mod 3688}#)
-                      (#{chi 441}#
-                        #{then 3706}#
-                        #{r 3685}#
-                        #{w 3686}#
-                        #{mod 3688}#)
-                      (#{chi 441}#
-                        #{else 3707}#
-                        #{r 3685}#
-                        #{w 3686}#
-                        #{mod 3688}#)))
-                  #{tmp 3701}#)
+                  (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}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{e 3684}#)))))))
-    (#{global-extend 349}#
+                  #{e 12793}#)))))))
+    (#{global-extend 4341}#
       'core
       'with-fluids
-      (lambda (#{e 3708}#
-               #{r 3709}#
-               #{w 3710}#
-               #{s 3711}#
-               #{mod 3712}#)
-        (let ((#{tmp 3719}#
+      (lambda (#{e 13514}#
+               #{r 13515}#
+               #{w 13516}#
+               #{s 13517}#
+               #{mod 13518}#)
+        (let ((#{tmp 13520}#
                 ($sc-dispatch
-                  #{e 3708}#
+                  #{e 13514}#
                   '(_ #(each (any any)) any . each-any))))
-          (if #{tmp 3719}#
+          (if #{tmp 13520}#
             (@apply
-              (lambda (#{fluid 3724}#
-                       #{val 3725}#
-                       #{b 3726}#
-                       #{b* 3727}#)
-                ((lambda (#{source 989}#
-                          #{fluids 990}#
-                          #{vals 991}#
-                          #{body 992}#)
-                   (#{make-dynlet 244}#
-                     #{source 989}#
-                     #{fluids 990}#
-                     #{vals 991}#
-                     #{body 992}#))
-                 #{s 3711}#
-                 (map (lambda (#{x 3728}#)
-                        (#{chi 441}#
-                          #{x 3728}#
-                          #{r 3709}#
-                          #{w 3710}#
-                          #{mod 3712}#))
-                      #{fluid 3724}#)
-                 (map (lambda (#{x 3731}#)
-                        (#{chi 441}#
-                          #{x 3731}#
-                          #{r 3709}#
-                          #{w 3710}#
-                          #{mod 3712}#))
-                      #{val 3725}#)
-                 (#{chi-body 449}#
-                   (cons #{b 3726}# #{b* 3727}#)
-                   (let ((#{x 9559}#
-                           (begin
-                             (if (if (pair? #{e 3708}#) #{s 3711}# #f)
-                               (set-source-properties! #{e 3708}# #{s 3711}#))
-                             #{e 3708}#)))
-                     (if (if (null? (car #{w 3710}#))
-                           (null? (cdr #{w 3710}#))
-                           #f)
-                       #{x 9559}#
-                       (if (if (vector? #{x 9559}#)
-                             (if (= (vector-length #{x 9559}#) 4)
-                               (eq? (vector-ref #{x 9559}# 0) 'syntax-object)
-                               #f)
-                             #f)
-                         (let ((#{expression 9571}# (vector-ref #{x 9559}# 1))
-                               (#{wrap 9572}#
-                                 (let ((#{w2 9580}# (vector-ref #{x 9559}# 2)))
-                                   (let ((#{m1 9581}# (car #{w 3710}#))
-                                         (#{s1 9582}# (cdr #{w 3710}#)))
-                                     (if (null? #{m1 9581}#)
-                                       (if (null? #{s1 9582}#)
-                                         #{w2 9580}#
-                                         (cons (car #{w2 9580}#)
-                                               (let ((#{m2 9589}#
-                                                       (cdr #{w2 9580}#)))
-                                                 (if (null? #{m2 9589}#)
-                                                   #{s1 9582}#
-                                                   (append
-                                                     #{s1 9582}#
-                                                     #{m2 9589}#)))))
-                                       (cons (let ((#{m2 9593}#
-                                                     (car #{w2 9580}#)))
-                                               (if (null? #{m2 9593}#)
-                                                 #{m1 9581}#
-                                                 (append
-                                                   #{m1 9581}#
-                                                   #{m2 9593}#)))
-                                             (let ((#{m2 9597}#
-                                                     (cdr #{w2 9580}#)))
-                                               (if (null? #{m2 9597}#)
-                                                 #{s1 9582}#
-                                                 (append
-                                                   #{s1 9582}#
-                                                   #{m2 9597}#))))))))
-                               (#{module 9573}# (vector-ref #{x 9559}# 3)))
-                           (vector
-                             'syntax-object
-                             #{expression 9571}#
-                             #{wrap 9572}#
-                             #{module 9573}#))
-                         (if (null? #{x 9559}#)
-                           #{x 9559}#
-                           (vector
-                             'syntax-object
-                             #{x 9559}#
-                             #{w 3710}#
-                             #{mod 3712}#)))))
-                   #{r 3709}#
-                   #{w 3710}#
-                   #{mod 3712}#)))
-              #{tmp 3719}#)
+              (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}#
+                            (begin
+                              (if (if (pair? #{e 13514}#) #{s 13517}# #f)
+                                (set-source-properties!
+                                  #{e 13514}#
+                                  #{s 13517}#))
+                              #{e 13514}#)))
+                      (if (if (null? (car #{w 13516}#))
+                            (null? (cdr #{w 13516}#))
+                            #f)
+                        #{x 13789}#
+                        (if (if (vector? #{x 13789}#)
+                              (if (= (vector-length #{x 13789}#) 4)
+                                (eq? (vector-ref #{x 13789}# 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}#
+                                                    (append
+                                                      #{s1 13832}#
+                                                      #{m2 13847}#)))))
+                                        (cons (let ((#{m2 13855}#
+                                                      (car #{w2 13830}#)))
+                                                (if (null? #{m2 13855}#)
+                                                  #{m1 13831}#
+                                                  (append
+                                                    #{m1 13831}#
+                                                    #{m2 13855}#)))
+                                              (let ((#{m2 13863}#
+                                                      (cdr #{w2 13830}#)))
+                                                (if (null? #{m2 13863}#)
+                                                  #{s1 13832}#
+                                                  (append
+                                                    #{s1 13832}#
+                                                    #{m2 13863}#))))))))
+                                (#{module 13823}# (vector-ref #{x 13789}# 3)))
+                            (vector
+                              'syntax-object
+                              #{expression 13821}#
+                              #{wrap 13822}#
+                              #{module 13823}#))
+                          (if (null? #{x 13789}#)
+                            #{x 13789}#
+                            (vector
+                              'syntax-object
+                              #{x 13789}#
+                              #{w 13516}#
+                              #{mod 13518}#)))))
+                    #{r 13515}#
+                    #{w 13516}#
+                    #{mod 13518}#)))
+              #{tmp 13520}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{e 3708}#)))))
+              #{e 13514}#)))))
     (module-define!
       (current-module)
       'begin
@@ -10574,68 +12708,68 @@
         'eval-when
         'eval-when
         '()))
-    (#{global-extend 349}#
+    (#{global-extend 4341}#
       'core
       'syntax-case
       (letrec*
-        ((#{convert-pattern 3736}#
-           (lambda (#{pattern 3743}# #{keys 3744}#)
+        ((#{convert-pattern 14157}#
+           (lambda (#{pattern 15795}# #{keys 15796}#)
              (letrec*
-               ((#{cvt* 3748}#
-                  (lambda (#{p* 3753}# #{n 3754}# #{ids 3755}#)
-                    (if (not (pair? #{p* 3753}#))
-                      (#{cvt 3752}#
-                        #{p* 3753}#
-                        #{n 3754}#
-                        #{ids 3755}#)
+               ((#{cvt* 15797}#
+                  (lambda (#{p* 16596}# #{n 16597}# #{ids 16598}#)
+                    (if (not (pair? #{p* 16596}#))
+                      (#{cvt 15799}#
+                        #{p* 16596}#
+                        #{n 16597}#
+                        #{ids 16598}#)
                       (call-with-values
                         (lambda ()
-                          (#{cvt* 3748}#
-                            (cdr #{p* 3753}#)
-                            #{n 3754}#
-                            #{ids 3755}#))
-                        (lambda (#{y 3759}# #{ids 3760}#)
+                          (#{cvt* 15797}#
+                            (cdr #{p* 16596}#)
+                            #{n 16597}#
+                            #{ids 16598}#))
+                        (lambda (#{y 16601}# #{ids 16602}#)
                           (call-with-values
                             (lambda ()
-                              (#{cvt 3752}#
-                                (car #{p* 3753}#)
-                                #{n 3754}#
-                                #{ids 3760}#))
-                            (lambda (#{x 3763}# #{ids 3764}#)
+                              (#{cvt 15799}#
+                                (car #{p* 16596}#)
+                                #{n 16597}#
+                                #{ids 16602}#))
+                            (lambda (#{x 16605}# #{ids 16606}#)
                               (values
-                                (cons #{x 3763}# #{y 3759}#)
-                                #{ids 3764}#))))))))
-                (#{v-reverse 3750}#
-                  (lambda (#{x 3767}#)
+                                (cons #{x 16605}# #{y 16601}#)
+                                #{ids 16606}#))))))))
+                (#{v-reverse 15798}#
+                  (lambda (#{x 16607}#)
                     (letrec*
-                      ((#{loop 3772}#
-                         (lambda (#{r 3773}# #{x 3774}#)
-                           (if (not (pair? #{x 3774}#))
-                             (values #{r 3773}# #{x 3774}#)
-                             (#{loop 3772}#
-                               (cons (car #{x 3774}#) #{r 3773}#)
-                               (cdr #{x 3774}#))))))
-                      (#{loop 3772}# '() #{x 3767}#))))
-                (#{cvt 3752}#
-                  (lambda (#{p 3775}# #{n 3776}# #{ids 3777}#)
-                    (if (if (symbol? #{p 3775}#)
+                      ((#{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}#)
                           #t
-                          (if (if (vector? #{p 3775}#)
-                                (if (= (vector-length #{p 3775}#) 4)
-                                  (eq? (vector-ref #{p 3775}# 0)
+                          (if (if (vector? #{p 15802}#)
+                                (if (= (vector-length #{p 15802}#) 4)
+                                  (eq? (vector-ref #{p 15802}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{p 3775}# 1))
+                            (symbol? (vector-ref #{p 15802}# 1))
                             #f))
-                      (if (#{bound-id-member? 425}#
-                            #{p 3775}#
-                            #{keys 3744}#)
+                      (if (#{bound-id-member? 4367}#
+                            #{p 15802}#
+                            #{keys 15796}#)
                         (values
-                          (vector 'free-id #{p 3775}#)
-                          #{ids 3777}#)
-                        (if (#{free-id=? 417}#
-                              #{p 3775}#
+                          (vector 'free-id #{p 15802}#)
+                          #{ids 15804}#)
+                        (if (#{free-id=? 4363}#
+                              #{p 15802}#
                               '#(syntax-object
                                  _
                                  ((top)
@@ -10643,22 +12777,22 @@
                                   #(ribcage
                                     #(p n ids)
                                     #((top) (top) (top))
-                                    #("i3778" "i3779" "i3780"))
+                                    #("i3779" "i3780" "i3781"))
                                   #(ribcage
                                     (cvt v-reverse cvt*)
                                     ((top) (top) (top))
-                                    ("i3751" "i3749" "i3747"))
+                                    ("i3752" "i3750" "i3748"))
                                   #(ribcage
                                     #(pattern keys)
                                     #((top) (top))
-                                    #("i3745" "i3746"))
+                                    #("i3746" "i3747"))
                                   #(ribcage
                                     (gen-syntax-case
                                       gen-clause
                                       build-dispatch-call
                                       convert-pattern)
                                     ((top) (top) (top) (top))
-                                    ("i3741" "i3739" "i3737" "i3735"))
+                                    ("i3742" "i3740" "i3738" "i3736"))
                                   #(ribcage
                                     (lambda-var-list
                                       gen-var
@@ -10936,178 +13070,181 @@
                                      (top)
                                      (top)
                                      (top))
-                                    ("i470"
-                                     "i468"
-                                     "i466"
-                                     "i464"
-                                     "i462"
-                                     "i460"
-                                     "i458"
-                                     "i456"
-                                     "i454"
-                                     "i452"
-                                     "i450"
-                                     "i448"
-                                     "i446"
-                                     "i444"
-                                     "i442"
-                                     "i440"
-                                     "i438"
-                                     "i436"
-                                     "i434"
-                                     "i432"
-                                     "i430"
-                                     "i428"
-                                     "i426"
-                                     "i424"
-                                     "i422"
-                                     "i420"
-                                     "i418"
-                                     "i416"
-                                     "i414"
-                                     "i412"
-                                     "i410"
-                                     "i408"
-                                     "i406"
-                                     "i404"
+                                    ("i471"
+                                     "i469"
+                                     "i467"
+                                     "i465"
+                                     "i463"
+                                     "i461"
+                                     "i459"
+                                     "i457"
+                                     "i455"
+                                     "i453"
+                                     "i451"
+                                     "i449"
+                                     "i447"
+                                     "i445"
+                                     "i443"
+                                     "i441"
+                                     "i439"
+                                     "i437"
+                                     "i435"
+                                     "i433"
+                                     "i431"
+                                     "i429"
+                                     "i427"
+                                     "i425"
+                                     "i423"
+                                     "i421"
+                                     "i419"
+                                     "i417"
+                                     "i415"
+                                     "i413"
+                                     "i411"
+                                     "i409"
+                                     "i407"
+                                     "i405"
+                                     "i403"
                                      "i402"
-                                     "i401"
-                                     "i399"
+                                     "i400"
+                                     "i397"
                                      "i396"
                                      "i395"
-                                     "i394"
+                                     "i393"
                                      "i392"
-                                     "i391"
-                                     "i389"
-                                     "i387"
-                                     "i385"
-                                     "i383"
-                                     "i381"
-                                     "i379"
-                                     "i377"
-                                     "i375"
-                                     "i372"
+                                     "i390"
+                                     "i388"
+                                     "i386"
+                                     "i384"
+                                     "i382"
+                                     "i380"
+                                     "i378"
+                                     "i376"
+                                     "i373"
+                                     "i371"
                                      "i370"
-                                     "i369"
-                                     "i367"
-                                     "i365"
-                                     "i363"
+                                     "i368"
+                                     "i366"
+                                     "i364"
+                                     "i362"
                                      "i361"
                                      "i360"
                                      "i359"
-                                     "i358"
+                                     "i357"
                                      "i356"
-                                     "i355"
-                                     "i352"
-                                     "i350"
-                                     "i348"
-                                     "i346"
-                                     "i344"
-                                     "i342"
+                                     "i353"
+                                     "i351"
+                                     "i349"
+                                     "i347"
+                                     "i345"
+                                     "i343"
+                                     "i341"
                                      "i340"
                                      "i339"
-                                     "i338"
-                                     "i336"
+                                     "i337"
+                                     "i335"
                                      "i334"
-                                     "i333"
+                                     "i331"
                                      "i330"
-                                     "i329"
-                                     "i327"
-                                     "i325"
-                                     "i323"
-                                     "i321"
-                                     "i319"
-                                     "i317"
-                                     "i315"
-                                     "i313"
-                                     "i311"
-                                     "i308"
-                                     "i306"
-                                     "i304"
-                                     "i302"
-                                     "i300"
-                                     "i298"
-                                     "i296"
-                                     "i294"
-                                     "i292"
-                                     "i290"
-                                     "i288"
-                                     "i286"
-                                     "i284"
-                                     "i282"
-                                     "i280"
-                                     "i278"
-                                     "i276"
-                                     "i274"
-                                     "i272"
-                                     "i270"
-                                     "i268"
-                                     "i266"
-                                     "i264"
+                                     "i328"
+                                     "i326"
+                                     "i324"
+                                     "i322"
+                                     "i320"
+                                     "i318"
+                                     "i316"
+                                     "i314"
+                                     "i312"
+                                     "i309"
+                                     "i307"
+                                     "i305"
+                                     "i303"
+                                     "i301"
+                                     "i299"
+                                     "i297"
+                                     "i295"
+                                     "i293"
+                                     "i291"
+                                     "i289"
+                                     "i287"
+                                     "i285"
+                                     "i283"
+                                     "i281"
+                                     "i279"
+                                     "i277"
+                                     "i275"
+                                     "i273"
+                                     "i271"
+                                     "i269"
+                                     "i267"
+                                     "i265"
+                                     "i263"
                                      "i262"
-                                     "i261"
-                                     "i258"
+                                     "i259"
+                                     "i257"
                                      "i256"
                                      "i255"
                                      "i254"
                                      "i253"
-                                     "i252"
-                                     "i250"
-                                     "i248"
-                                     "i246"
-                                     "i243"
-                                     "i241"
-                                     "i239"
-                                     "i237"
-                                     "i235"
-                                     "i233"
-                                     "i231"
-                                     "i229"
-                                     "i227"
-                                     "i225"
-                                     "i223"
-                                     "i221"
-                                     "i219"
-                                     "i217"
-                                     "i215"
-                                     "i213"
-                                     "i211"
-                                     "i209"
-                                     "i207"))
+                                     "i251"
+                                     "i249"
+                                     "i247"
+                                     "i244"
+                                     "i242"
+                                     "i240"
+                                     "i238"
+                                     "i236"
+                                     "i234"
+                                     "i232"
+                                     "i230"
+                                     "i228"
+                                     "i226"
+                                     "i224"
+                                     "i222"
+                                     "i220"
+                                     "i218"
+                                     "i216"
+                                     "i214"
+                                     "i212"
+                                     "i210"
+                                     "i208"))
                                   #(ribcage
                                     (define-structure
                                       define-expansion-accessors
                                       define-expansion-constructors)
                                     ((top) (top) (top))
-                                    ("i45" "i44" "i43")))
+                                    ("i46" "i45" "i44")))
                                  (hygiene guile)))
-                          (values '_ #{ids 3777}#)
+                          (values '_ #{ids 15804}#)
                           (values
                             'any
-                            (cons (cons #{p 3775}# #{n 3776}#) #{ids 3777}#))))
-                      (let ((#{tmp 3787}#
-                              ($sc-dispatch #{p 3775}# '(any any))))
-                        (if (if #{tmp 3787}#
+                            (cons (cons #{p 15802}# #{n 15803}#)
+                                  #{ids 15804}#))))
+                      (let ((#{tmp 15936}#
+                              ($sc-dispatch #{p 15802}# '(any any))))
+                        (if (if #{tmp 15936}#
                               (@apply
-                                (lambda (#{x 3790}# #{dots 3791}#)
-                                  (if (if (if (vector? #{dots 3791}#)
+                                (lambda (#{x 15940}# #{dots 15941}#)
+                                  (if (if (if (vector? #{dots 15941}#)
                                             (if (= (vector-length
-                                                     #{dots 3791}#)
+                                                     #{dots 15941}#)
                                                    4)
-                                              (eq? (vector-ref #{dots 3791}# 0)
+                                              (eq? (vector-ref
+                                                     #{dots 15941}#
+                                                     0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (symbol? (vector-ref #{dots 3791}# 1))
+                                        (symbol? (vector-ref #{dots 15941}# 1))
                                         #f)
-                                    (#{free-id=? 417}#
-                                      #{dots 3791}#
+                                    (#{free-id=? 4363}#
+                                      #{dots 15941}#
                                       '#(syntax-object
                                          ...
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i2262"))
+                                          #(ribcage #(x) #((top)) #("i2263"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
@@ -11385,191 +13522,191 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i470"
-                                             "i468"
-                                             "i466"
-                                             "i464"
-                                             "i462"
-                                             "i460"
-                                             "i458"
-                                             "i456"
-                                             "i454"
-                                             "i452"
-                                             "i450"
-                                             "i448"
-                                             "i446"
-                                             "i444"
-                                             "i442"
-                                             "i440"
-                                             "i438"
-                                             "i436"
-                                             "i434"
-                                             "i432"
-                                             "i430"
-                                             "i428"
-                                             "i426"
-                                             "i424"
-                                             "i422"
-                                             "i420"
-                                             "i418"
-                                             "i416"
-                                             "i414"
-                                             "i412"
-                                             "i410"
-                                             "i408"
-                                             "i406"
-                                             "i404"
+                                            ("i471"
+                                             "i469"
+                                             "i467"
+                                             "i465"
+                                             "i463"
+                                             "i461"
+                                             "i459"
+                                             "i457"
+                                             "i455"
+                                             "i453"
+                                             "i451"
+                                             "i449"
+                                             "i447"
+                                             "i445"
+                                             "i443"
+                                             "i441"
+                                             "i439"
+                                             "i437"
+                                             "i435"
+                                             "i433"
+                                             "i431"
+                                             "i429"
+                                             "i427"
+                                             "i425"
+                                             "i423"
+                                             "i421"
+                                             "i419"
+                                             "i417"
+                                             "i415"
+                                             "i413"
+                                             "i411"
+                                             "i409"
+                                             "i407"
+                                             "i405"
+                                             "i403"
                                              "i402"
-                                             "i401"
-                                             "i399"
+                                             "i400"
+                                             "i397"
                                              "i396"
                                              "i395"
-                                             "i394"
+                                             "i393"
                                              "i392"
-                                             "i391"
-                                             "i389"
-                                             "i387"
-                                             "i385"
-                                             "i383"
-                                             "i381"
-                                             "i379"
-                                             "i377"
-                                             "i375"
-                                             "i372"
+                                             "i390"
+                                             "i388"
+                                             "i386"
+                                             "i384"
+                                             "i382"
+                                             "i380"
+                                             "i378"
+                                             "i376"
+                                             "i373"
+                                             "i371"
                                              "i370"
-                                             "i369"
-                                             "i367"
-                                             "i365"
-                                             "i363"
+                                             "i368"
+                                             "i366"
+                                             "i364"
+                                             "i362"
                                              "i361"
                                              "i360"
                                              "i359"
-                                             "i358"
+                                             "i357"
                                              "i356"
-                                             "i355"
-                                             "i352"
-                                             "i350"
-                                             "i348"
-                                             "i346"
-                                             "i344"
-                                             "i342"
+                                             "i353"
+                                             "i351"
+                                             "i349"
+                                             "i347"
+                                             "i345"
+                                             "i343"
+                                             "i341"
                                              "i340"
                                              "i339"
-                                             "i338"
-                                             "i336"
+                                             "i337"
+                                             "i335"
                                              "i334"
-                                             "i333"
+                                             "i331"
                                              "i330"
-                                             "i329"
-                                             "i327"
-                                             "i325"
-                                             "i323"
-                                             "i321"
-                                             "i319"
-                                             "i317"
-                                             "i315"
-                                             "i313"
-                                             "i311"
-                                             "i308"
-                                             "i306"
-                                             "i304"
-                                             "i302"
-                                             "i300"
-                                             "i298"
-                                             "i296"
-                                             "i294"
-                                             "i292"
-                                             "i290"
-                                             "i288"
-                                             "i286"
-                                             "i284"
-                                             "i282"
-                                             "i280"
-                                             "i278"
-                                             "i276"
-                                             "i274"
-                                             "i272"
-                                             "i270"
-                                             "i268"
-                                             "i266"
-                                             "i264"
+                                             "i328"
+                                             "i326"
+                                             "i324"
+                                             "i322"
+                                             "i320"
+                                             "i318"
+                                             "i316"
+                                             "i314"
+                                             "i312"
+                                             "i309"
+                                             "i307"
+                                             "i305"
+                                             "i303"
+                                             "i301"
+                                             "i299"
+                                             "i297"
+                                             "i295"
+                                             "i293"
+                                             "i291"
+                                             "i289"
+                                             "i287"
+                                             "i285"
+                                             "i283"
+                                             "i281"
+                                             "i279"
+                                             "i277"
+                                             "i275"
+                                             "i273"
+                                             "i271"
+                                             "i269"
+                                             "i267"
+                                             "i265"
+                                             "i263"
                                              "i262"
-                                             "i261"
-                                             "i258"
+                                             "i259"
+                                             "i257"
                                              "i256"
                                              "i255"
                                              "i254"
                                              "i253"
-                                             "i252"
-                                             "i250"
-                                             "i248"
-                                             "i246"
-                                             "i243"
-                                             "i241"
-                                             "i239"
-                                             "i237"
-                                             "i235"
-                                             "i233"
-                                             "i231"
-                                             "i229"
-                                             "i227"
-                                             "i225"
-                                             "i223"
-                                             "i221"
-                                             "i219"
-                                             "i217"
-                                             "i215"
-                                             "i213"
-                                             "i211"
-                                             "i209"
-                                             "i207"))
+                                             "i251"
+                                             "i249"
+                                             "i247"
+                                             "i244"
+                                             "i242"
+                                             "i240"
+                                             "i238"
+                                             "i236"
+                                             "i234"
+                                             "i232"
+                                             "i230"
+                                             "i228"
+                                             "i226"
+                                             "i224"
+                                             "i222"
+                                             "i220"
+                                             "i218"
+                                             "i216"
+                                             "i214"
+                                             "i212"
+                                             "i210"
+                                             "i208"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors)
                                             ((top) (top) (top))
-                                            ("i45" "i44" "i43")))
+                                            ("i46" "i45" "i44")))
                                          (hygiene guile)))
                                     #f))
-                                #{tmp 3787}#)
+                                #{tmp 15936}#)
                               #f)
                           (@apply
-                            (lambda (#{x 3794}# #{dots 3795}#)
+                            (lambda (#{x 15980}# #{dots 15981}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{cvt 3752}#
-                                    #{x 3794}#
-                                    (#{1+}# #{n 3776}#)
-                                    #{ids 3777}#))
-                                (lambda (#{p 3797}# #{ids 3798}#)
+                                  (#{cvt 15799}#
+                                    #{x 15980}#
+                                    (#{1+}# #{n 15803}#)
+                                    #{ids 15804}#))
+                                (lambda (#{p 15982}# #{ids 15983}#)
                                   (values
-                                    (if (eq? #{p 3797}# 'any)
+                                    (if (eq? #{p 15982}# 'any)
                                       'each-any
-                                      (vector 'each #{p 3797}#))
-                                    #{ids 3798}#))))
-                            #{tmp 3787}#)
-                          (let ((#{tmp 3801}#
-                                  ($sc-dispatch #{p 3775}# '(any any . any))))
-                            (if (if #{tmp 3801}#
+                                      (vector 'each #{p 15982}#))
+                                    #{ids 15983}#))))
+                            #{tmp 15936}#)
+                          (let ((#{tmp 15984}#
+                                  ($sc-dispatch #{p 15802}# '(any any . any))))
+                            (if (if #{tmp 15984}#
                                   (@apply
-                                    (lambda (#{x 3805}#
-                                             #{dots 3806}#
-                                             #{ys 3807}#)
-                                      (if (if (if (vector? #{dots 3806}#)
+                                    (lambda (#{x 15988}#
+                                             #{dots 15989}#
+                                             #{ys 15990}#)
+                                      (if (if (if (vector? #{dots 15989}#)
                                                 (if (= (vector-length
-                                                         #{dots 3806}#)
+                                                         #{dots 15989}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{dots 3806}#
+                                                         #{dots 15989}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
                                             (symbol?
-                                              (vector-ref #{dots 3806}# 1))
+                                              (vector-ref #{dots 15989}# 1))
                                             #f)
-                                        (#{free-id=? 417}#
-                                          #{dots 3806}#
+                                        (#{free-id=? 4363}#
+                                          #{dots 15989}#
                                           '#(syntax-object
                                              ...
                                              ((top)
@@ -11578,7 +13715,7 @@
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i2262"))
+                                                #("i2263"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -11856,314 +13993,321 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i470"
-                                                 "i468"
-                                                 "i466"
-                                                 "i464"
-                                                 "i462"
-                                                 "i460"
-                                                 "i458"
-                                                 "i456"
-                                                 "i454"
-                                                 "i452"
-                                                 "i450"
-                                                 "i448"
-                                                 "i446"
-                                                 "i444"
-                                                 "i442"
-                                                 "i440"
-                                                 "i438"
-                                                 "i436"
-                                                 "i434"
-                                                 "i432"
-                                                 "i430"
-                                                 "i428"
-                                                 "i426"
-                                                 "i424"
-                                                 "i422"
-                                                 "i420"
-                                                 "i418"
-                                                 "i416"
-                                                 "i414"
-                                                 "i412"
-                                                 "i410"
-                                                 "i408"
-                                                 "i406"
-                                                 "i404"
+                                                ("i471"
+                                                 "i469"
+                                                 "i467"
+                                                 "i465"
+                                                 "i463"
+                                                 "i461"
+                                                 "i459"
+                                                 "i457"
+                                                 "i455"
+                                                 "i453"
+                                                 "i451"
+                                                 "i449"
+                                                 "i447"
+                                                 "i445"
+                                                 "i443"
+                                                 "i441"
+                                                 "i439"
+                                                 "i437"
+                                                 "i435"
+                                                 "i433"
+                                                 "i431"
+                                                 "i429"
+                                                 "i427"
+                                                 "i425"
+                                                 "i423"
+                                                 "i421"
+                                                 "i419"
+                                                 "i417"
+                                                 "i415"
+                                                 "i413"
+                                                 "i411"
+                                                 "i409"
+                                                 "i407"
+                                                 "i405"
+                                                 "i403"
                                                  "i402"
-                                                 "i401"
-                                                 "i399"
+                                                 "i400"
+                                                 "i397"
                                                  "i396"
                                                  "i395"
-                                                 "i394"
+                                                 "i393"
                                                  "i392"
-                                                 "i391"
-                                                 "i389"
-                                                 "i387"
-                                                 "i385"
-                                                 "i383"
-                                                 "i381"
-                                                 "i379"
-                                                 "i377"
-                                                 "i375"
-                                                 "i372"
+                                                 "i390"
+                                                 "i388"
+                                                 "i386"
+                                                 "i384"
+                                                 "i382"
+                                                 "i380"
+                                                 "i378"
+                                                 "i376"
+                                                 "i373"
+                                                 "i371"
                                                  "i370"
-                                                 "i369"
-                                                 "i367"
-                                                 "i365"
-                                                 "i363"
+                                                 "i368"
+                                                 "i366"
+                                                 "i364"
+                                                 "i362"
                                                  "i361"
                                                  "i360"
                                                  "i359"
-                                                 "i358"
+                                                 "i357"
                                                  "i356"
-                                                 "i355"
-                                                 "i352"
-                                                 "i350"
-                                                 "i348"
-                                                 "i346"
-                                                 "i344"
-                                                 "i342"
+                                                 "i353"
+                                                 "i351"
+                                                 "i349"
+                                                 "i347"
+                                                 "i345"
+                                                 "i343"
+                                                 "i341"
                                                  "i340"
                                                  "i339"
-                                                 "i338"
-                                                 "i336"
+                                                 "i337"
+                                                 "i335"
                                                  "i334"
-                                                 "i333"
+                                                 "i331"
                                                  "i330"
-                                                 "i329"
-                                                 "i327"
-                                                 "i325"
-                                                 "i323"
-                                                 "i321"
-                                                 "i319"
-                                                 "i317"
-                                                 "i315"
-                                                 "i313"
-                                                 "i311"
-                                                 "i308"
-                                                 "i306"
-                                                 "i304"
-                                                 "i302"
-                                                 "i300"
-                                                 "i298"
-                                                 "i296"
-                                                 "i294"
-                                                 "i292"
-                                                 "i290"
-                                                 "i288"
-                                                 "i286"
-                                                 "i284"
-                                                 "i282"
-                                                 "i280"
-                                                 "i278"
-                                                 "i276"
-                                                 "i274"
-                                                 "i272"
-                                                 "i270"
-                                                 "i268"
-                                                 "i266"
-                                                 "i264"
+                                                 "i328"
+                                                 "i326"
+                                                 "i324"
+                                                 "i322"
+                                                 "i320"
+                                                 "i318"
+                                                 "i316"
+                                                 "i314"
+                                                 "i312"
+                                                 "i309"
+                                                 "i307"
+                                                 "i305"
+                                                 "i303"
+                                                 "i301"
+                                                 "i299"
+                                                 "i297"
+                                                 "i295"
+                                                 "i293"
+                                                 "i291"
+                                                 "i289"
+                                                 "i287"
+                                                 "i285"
+                                                 "i283"
+                                                 "i281&