guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-84-gfff39e


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-84-gfff39e1
Date: Thu, 22 Dec 2011 01:16:04 +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=fff39e1aa5df70a65e78a3d49d6d841f58bafde7

The branch, stable-2.0 has been updated
       via  fff39e1aa5df70a65e78a3d49d6d841f58bafde7 (commit)
       via  dc65d1cf5b59daafdff23d48a48da7f13982efc9 (commit)
      from  a2c66014cf4b8799812e45eedbb9b1a2c61236b0 (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 fff39e1aa5df70a65e78a3d49d6d841f58bafde7
Author: Andy Wingo <address@hidden>
Date:   Wed Dec 21 20:15:57 2011 -0500

    peval minor tweak
    
    * module/language/tree-il/peval.scm (peval): Record residual values in
      both value and values contexts.  No test cases, it just seemed like a
      good idea.

commit dc65d1cf5b59daafdff23d48a48da7f13982efc9
Author: Andy Wingo <address@hidden>
Date:   Wed Dec 21 20:10:42 2011 -0500

    document invalidity of (begin) as expression; add back-compat shim
    
    * doc/ref/api-control.texi (begin): Update to distinguish between
      splicing begin and sequencing begin.
    
    * module/ice-9/psyntax.scm (expand-expr): Add a back-compatibility shim
      for `(begin)'.
    * module/ice-9/psyntax-pp.scm: Regenerate.
    
    * test-suite/tests/syntax.test: Update to run illegal (begin) test only
      if we are not including deprecated features.

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

Summary of changes:
 doc/ref/api-control.texi          |   77 +-
 module/ice-9/psyntax-pp.scm       |14217 +++++++++++++++++++------------------
 module/ice-9/psyntax.scm          |    7 +-
 module/language/tree-il/peval.scm |    2 +-
 test-suite/tests/syntax.test      |    7 +-
 5 files changed, 7259 insertions(+), 7051 deletions(-)

diff --git a/doc/ref/api-control.texi b/doc/ref/api-control.texi
index ad36806..957b9a7 100644
--- a/doc/ref/api-control.texi
+++ b/doc/ref/api-control.texi
@@ -11,7 +11,7 @@ See @ref{Control Flow} for a discussion of how the more 
general control
 flow of Scheme affects C code.
 
 @menu
-* begin::                       Evaluating a sequence of expressions.
+* begin::                       Sequencing and splicing.
 * if cond case::                Simple conditional evaluation.
 * and or::                      Conditional evaluation of a sequence.
 * while do::                    Iteration mechanisms.
@@ -26,38 +26,83 @@ flow of Scheme affects C code.
 @end menu
 
 @node begin
address@hidden Evaluating a Sequence of Expressions
address@hidden Sequencing and Splicing
 
 @cindex begin
 @cindex sequencing
 @cindex expression sequencing
 
-The @code{begin} syntax is used for grouping several expressions
-together so that they are treated as if they were one expression.
-This is particularly important when syntactic expressions are used
-which only allow one expression, but the programmer wants to use more
-than one expression in that place.  As an example, consider the
-conditional expression below:
+As an expression, the @code{begin} syntax is used to evaluate a sequence
+of sub-expressions in order.  Consider the conditional expression below:
 
 @lisp
 (if (> x 0)
     (begin (display "greater") (newline)))
 @end lisp
 
-If the two calls to @code{display} and @code{newline} were not embedded
-in a @code{begin}-statement, the call to @code{newline} would get
-misinterpreted as the else-branch of the @code{if}-expression.
+If the test is true, we want to display ``greater'' to the current
+output port, then display a newline.  We use @code{begin} to form a
+compound expression out of this sequence of sub-expressions.
 
 @deffn syntax begin expr1 expr2 @dots{}
-The expression(s) are evaluated in left-to-right order and the value
-of the last expression is returned as the value of the
+The expression(s) are evaluated in left-to-right order and the value of
+the last expression is returned as the value of the
 @code{begin}-expression.  This expression type is used when the
 expressions before the last one are evaluated for their side effects.
-
-Guile also allows the expression @code{(begin)}, a @code{begin} with no
-sub-expressions.  Such an expression returns the `unspecified' value.
 @end deffn
 
address@hidden splicing
address@hidden definition splicing
+
+The @code{begin} syntax has another role in definition context
+(@pxref{Internal Definitions}).  A @code{begin} form in a definition
+context @dfn{splices} its subforms into its place.  For example,
+consider the following procedure:
+
address@hidden
+(define (make-seal)
+  (define-sealant seal open)
+  (values seal open))
address@hidden lisp
+
+Let us assume the existence of a @code{define-sealant} macro that
+expands out to some definitions wrapped in a @code{begin}, like so:
+
address@hidden
+(define (make-seal)
+  (begin
+    (define seal-tag
+      (list 'seal))
+    (define (seal x)
+      (cons seal-tag x))
+    (define (sealed? x)
+      (and (pair? x) (eq? (car x) seal-tag)))
+    (define (open x)
+      (if (sealed? x)
+          (cdr x)
+          (error "Expected a sealed value:" x))))
+  (values seal open))
address@hidden lisp
+
+Here, because the @code{begin} is in definition context, its subforms
+are @dfn{spliced} into the place of the @code{begin}.  This allows the
+definitions created by the macro to be visible to the following
+expression, the @code{values} form.
+
+It is a fine point, but splicing and sequencing are different.  It can
+make sense to splice zero forms, because it can make sense to have zero
+internal definitions before the expressions in a procedure or lexical
+binding form.  However it does not make sense to have a sequence of zero
+expressions, because in that case it would not be clear what the value
+of the sequence would be, because in a sequence of zero expressions,
+there can be no last value.  Sequencing zero expressions is an error.
+
+It would be more elegant in some ways to eliminate splicing from the
+Scheme language, and without macros (@pxref{Macros}), that would be a
+good idea.  But it is useful to be able to write macros that expand out
+to multiple definitions, as in @code{define-sealant} above, so Scheme
+abuses the @code{begin} form for these two tasks.
+
 @node if cond case
 @subsection Simple Conditional Evaluation
 
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 644ebf5..f7e315d 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1211 +2,1231 @@
 (if #f #f)
 
 (letrec*
-  ((#{top-level-eval-hook 4261}#
-     (lambda (#{x 28515}# #{mod 28516}#)
-       (primitive-eval #{x 28515}#)))
-   (#{maybe-name-value! 4266}#
-     (lambda (#{name 16653}# #{val 16654}#)
-       (if (if (struct? #{val 16654}#)
-             (eq? (struct-vtable #{val 16654}#)
+  ((#{top-level-eval-hook 4262}#
+     (lambda (#{x 27369}# #{mod 27370}#)
+       (primitive-eval #{x 27369}#)))
+   (#{maybe-name-value! 4267}#
+     (lambda (#{name 16133}# #{val 16134}#)
+       (if (if (struct? #{val 16134}#)
+             (eq? (struct-vtable #{val 16134}#)
                   (vector-ref %expanded-vtables 13))
              #f)
-         (let ((#{meta 16661}# (struct-ref #{val 16654}# 1)))
-           (if (not (assq 'name #{meta 16661}#))
-             (let ((#{v 16666}#
-                     (cons (cons 'name #{name 16653}#) #{meta 16661}#)))
-               (struct-set! #{val 16654}# 1 #{v 16666}#)))))))
-   (#{build-application 4268}#
-     (lambda (#{source 16378}#
-              #{fun-exp 16379}#
-              #{arg-exps 16380}#)
+         (let ((#{meta 16141}# (struct-ref #{val 16134}# 1)))
+           (if (not (assq 'name #{meta 16141}#))
+             (let ((#{v 16146}#
+                     (cons (cons 'name #{name 16133}#) #{meta 16141}#)))
+               (struct-set! #{val 16134}# 1 #{v 16146}#)))))))
+   (#{build-application 4269}#
+     (lambda (#{source 15858}#
+              #{fun-exp 15859}#
+              #{arg-exps 15860}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 11)
-         #{source 16378}#
-         #{fun-exp 16379}#
-         #{arg-exps 16380}#)))
-   (#{build-conditional 4269}#
-     (lambda (#{source 16386}#
-              #{test-exp 16387}#
-              #{then-exp 16388}#
-              #{else-exp 16389}#)
+         #{source 15858}#
+         #{fun-exp 15859}#
+         #{arg-exps 15860}#)))
+   (#{build-conditional 4270}#
+     (lambda (#{source 15866}#
+              #{test-exp 15867}#
+              #{then-exp 15868}#
+              #{else-exp 15869}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 10)
-         #{source 16386}#
-         #{test-exp 16387}#
-         #{then-exp 16388}#
-         #{else-exp 16389}#)))
-   (#{build-dynlet 4270}#
-     (lambda (#{source 16396}#
-              #{fluids 16397}#
-              #{vals 16398}#
-              #{body 16399}#)
+         #{source 15866}#
+         #{test-exp 15867}#
+         #{then-exp 15868}#
+         #{else-exp 15869}#)))
+   (#{build-dynlet 4271}#
+     (lambda (#{source 15876}#
+              #{fluids 15877}#
+              #{vals 15878}#
+              #{body 15879}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 17)
-         #{source 16396}#
-         #{fluids 16397}#
-         #{vals 16398}#
-         #{body 16399}#)))
-   (#{build-lexical-reference 4271}#
-     (lambda (#{type 28517}#
-              #{source 28518}#
-              #{name 28519}#
-              #{var 28520}#)
+         #{source 15876}#
+         #{fluids 15877}#
+         #{vals 15878}#
+         #{body 15879}#)))
+   (#{build-lexical-reference 4272}#
+     (lambda (#{type 27371}#
+              #{source 27372}#
+              #{name 27373}#
+              #{var 27374}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 3)
-         #{source 28518}#
-         #{name 28519}#
-         #{var 28520}#)))
-   (#{build-lexical-assignment 4272}#
-     (lambda (#{source 16406}#
-              #{name 16407}#
-              #{var 16408}#
-              #{exp 16409}#)
+         #{source 27372}#
+         #{name 27373}#
+         #{var 27374}#)))
+   (#{build-lexical-assignment 4273}#
+     (lambda (#{source 15886}#
+              #{name 15887}#
+              #{var 15888}#
+              #{exp 15889}#)
        (begin
-         (if (if (struct? #{exp 16409}#)
-               (eq? (struct-vtable #{exp 16409}#)
+         (if (if (struct? #{exp 15889}#)
+               (eq? (struct-vtable #{exp 15889}#)
                     (vector-ref %expanded-vtables 13))
                #f)
-           (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1)))
-             (if (not (assq 'name #{meta 16425}#))
-               (let ((#{v 16432}#
-                       (cons (cons 'name #{name 16407}#) #{meta 16425}#)))
-                 (struct-set! #{exp 16409}# 1 #{v 16432}#)))))
+           (let ((#{meta 15905}# (struct-ref #{exp 15889}# 1)))
+             (if (not (assq 'name #{meta 15905}#))
+               (let ((#{v 15912}#
+                       (cons (cons 'name #{name 15887}#) #{meta 15905}#)))
+                 (struct-set! #{exp 15889}# 1 #{v 15912}#)))))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 4)
-           #{source 16406}#
-           #{name 16407}#
-           #{var 16408}#
-           #{exp 16409}#))))
-   (#{analyze-variable 4273}#
-     (lambda (#{mod 28526}#
-              #{var 28527}#
-              #{modref-cont 28528}#
-              #{bare-cont 28529}#)
-       (if (not #{mod 28526}#)
-         (#{bare-cont 28529}# #{var 28527}#)
-         (let ((#{kind 28530}# (car #{mod 28526}#))
-               (#{mod 28531}# (cdr #{mod 28526}#)))
-           (if (eqv? #{kind 28530}# 'public)
-             (#{modref-cont 28528}#
-               #{mod 28531}#
-               #{var 28527}#
+           #{source 15886}#
+           #{name 15887}#
+           #{var 15888}#
+           #{exp 15889}#))))
+   (#{analyze-variable 4274}#
+     (lambda (#{mod 27380}#
+              #{var 27381}#
+              #{modref-cont 27382}#
+              #{bare-cont 27383}#)
+       (if (not #{mod 27380}#)
+         (#{bare-cont 27383}# #{var 27381}#)
+         (let ((#{kind 27384}# (car #{mod 27380}#))
+               (#{mod 27385}# (cdr #{mod 27380}#)))
+           (if (eqv? #{kind 27384}# 'public)
+             (#{modref-cont 27382}#
+               #{mod 27385}#
+               #{var 27381}#
                #t)
-             (if (eqv? #{kind 28530}# 'private)
+             (if (eqv? #{kind 27384}# 'private)
                (if (not (equal?
-                          #{mod 28531}#
+                          #{mod 27385}#
                           (module-name (current-module))))
-                 (#{modref-cont 28528}#
-                   #{mod 28531}#
-                   #{var 28527}#
+                 (#{modref-cont 27382}#
+                   #{mod 27385}#
+                   #{var 27381}#
                    #f)
-                 (#{bare-cont 28529}# #{var 28527}#))
-               (if (eqv? #{kind 28530}# 'bare)
-                 (#{bare-cont 28529}# #{var 28527}#)
-                 (if (eqv? #{kind 28530}# 'hygiene)
+                 (#{bare-cont 27383}# #{var 27381}#))
+               (if (eqv? #{kind 27384}# 'bare)
+                 (#{bare-cont 27383}# #{var 27381}#)
+                 (if (eqv? #{kind 27384}# 'hygiene)
                    (if (if (not (equal?
-                                  #{mod 28531}#
+                                  #{mod 27385}#
                                   (module-name (current-module))))
                          (module-variable
-                           (resolve-module #{mod 28531}#)
-                           #{var 28527}#)
+                           (resolve-module #{mod 27385}#)
+                           #{var 27381}#)
                          #f)
-                     (#{modref-cont 28528}#
-                       #{mod 28531}#
-                       #{var 28527}#
+                     (#{modref-cont 27382}#
+                       #{mod 27385}#
+                       #{var 27381}#
                        #f)
-                     (#{bare-cont 28529}# #{var 28527}#))
+                     (#{bare-cont 27383}# #{var 27381}#))
                    (syntax-violation
                      #f
                      "bad module kind"
-                     #{var 28527}#
-                     #{mod 28531}#)))))))))
-   (#{build-global-reference 4274}#
-     (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#)
-       (#{analyze-variable 4273}#
-         #{mod 28548}#
-         #{var 28547}#
-         (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#)
+                     #{var 27381}#
+                     #{mod 27385}#)))))))))
+   (#{build-global-reference 4275}#
+     (lambda (#{source 27400}# #{var 27401}# #{mod 27402}#)
+       (#{analyze-variable 4274}#
+         #{mod 27402}#
+         #{var 27401}#
+         (lambda (#{mod 27405}# #{var 27406}# #{public? 27407}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 5)
-             #{source 28546}#
-             #{mod 28551}#
-             #{var 28552}#
-             #{public? 28553}#))
-         (lambda (#{var 28561}#)
+             #{source 27400}#
+             #{mod 27405}#
+             #{var 27406}#
+             #{public? 27407}#))
+         (lambda (#{var 27415}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 7)
-             #{source 28546}#
-             #{var 28561}#)))))
-   (#{build-global-assignment 4275}#
-     (lambda (#{source 16441}#
-              #{var 16442}#
-              #{exp 16443}#
-              #{mod 16444}#)
+             #{source 27400}#
+             #{var 27415}#)))))
+   (#{build-global-assignment 4276}#
+     (lambda (#{source 15921}#
+              #{var 15922}#
+              #{exp 15923}#
+              #{mod 15924}#)
        (begin
-         (if (if (struct? #{exp 16443}#)
-               (eq? (struct-vtable #{exp 16443}#)
+         (if (if (struct? #{exp 15923}#)
+               (eq? (struct-vtable #{exp 15923}#)
                     (vector-ref %expanded-vtables 13))
                #f)
-           (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1)))
-             (if (not (assq 'name #{meta 16460}#))
-               (let ((#{v 16467}#
-                       (cons (cons 'name #{var 16442}#) #{meta 16460}#)))
-                 (struct-set! #{exp 16443}# 1 #{v 16467}#)))))
-         (#{analyze-variable 4273}#
-           #{mod 16444}#
-           #{var 16442}#
-           (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#)
+           (let ((#{meta 15940}# (struct-ref #{exp 15923}# 1)))
+             (if (not (assq 'name #{meta 15940}#))
+               (let ((#{v 15947}#
+                       (cons (cons 'name #{var 15922}#) #{meta 15940}#)))
+                 (struct-set! #{exp 15923}# 1 #{v 15947}#)))))
+         (#{analyze-variable 4274}#
+           #{mod 15924}#
+           #{var 15922}#
+           (lambda (#{mod 15952}# #{var 15953}# #{public? 15954}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 6)
-               #{source 16441}#
-               #{mod 16472}#
-               #{var 16473}#
-               #{public? 16474}#
-               #{exp 16443}#))
-           (lambda (#{var 16482}#)
+               #{source 15921}#
+               #{mod 15952}#
+               #{var 15953}#
+               #{public? 15954}#
+               #{exp 15923}#))
+           (lambda (#{var 15962}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 8)
-               #{source 16441}#
-               #{var 16482}#
-               #{exp 16443}#))))))
-   (#{build-global-definition 4276}#
-     (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#)
+               #{source 15921}#
+               #{var 15962}#
+               #{exp 15923}#))))))
+   (#{build-global-definition 4277}#
+     (lambda (#{source 27421}# #{var 27422}# #{exp 27423}#)
        (begin
-         (if (if (struct? #{exp 28569}#)
-               (eq? (struct-vtable #{exp 28569}#)
+         (if (if (struct? #{exp 27423}#)
+               (eq? (struct-vtable #{exp 27423}#)
                     (vector-ref %expanded-vtables 13))
                #f)
-           (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1)))
-             (if (not (assq 'name #{meta 28585}#))
-               (let ((#{v 28592}#
-                       (cons (cons 'name #{var 28568}#) #{meta 28585}#)))
-                 (struct-set! #{exp 28569}# 1 #{v 28592}#)))))
+           (let ((#{meta 27439}# (struct-ref #{exp 27423}# 1)))
+             (if (not (assq 'name #{meta 27439}#))
+               (let ((#{v 27446}#
+                       (cons (cons 'name #{var 27422}#) #{meta 27439}#)))
+                 (struct-set! #{exp 27423}# 1 #{v 27446}#)))))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 9)
-           #{source 28567}#
-           #{var 28568}#
-           #{exp 28569}#))))
-   (#{build-simple-lambda 4277}#
-     (lambda (#{src 16488}#
-              #{req 16489}#
-              #{rest 16490}#
-              #{vars 16491}#
-              #{meta 16492}#
-              #{exp 16493}#)
-       (let ((#{body 16499}#
+           #{source 27421}#
+           #{var 27422}#
+           #{exp 27423}#))))
+   (#{build-simple-lambda 4278}#
+     (lambda (#{src 15968}#
+              #{req 15969}#
+              #{rest 15970}#
+              #{vars 15971}#
+              #{meta 15972}#
+              #{exp 15973}#)
+       (let ((#{body 15979}#
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 14)
-                 #{src 16488}#
-                 #{req 16489}#
+                 #{src 15968}#
+                 #{req 15969}#
                  #f
-                 #{rest 16490}#
+                 #{rest 15970}#
                  #f
                  '()
-                 #{vars 16491}#
-                 #{exp 16493}#
+                 #{vars 15971}#
+                 #{exp 15973}#
                  #f)))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 13)
-           #{src 16488}#
-           #{meta 16492}#
-           #{body 16499}#))))
-   (#{build-sequence 4282}#
-     (lambda (#{src 28600}# #{exps 28601}#)
-       (if (null? (cdr #{exps 28601}#))
-         (car #{exps 28601}#)
+           #{src 15968}#
+           #{meta 15972}#
+           #{body 15979}#))))
+   (#{build-sequence 4283}#
+     (lambda (#{src 27454}# #{exps 27455}#)
+       (if (null? (cdr #{exps 27455}#))
+         (car #{exps 27455}#)
          (make-struct/no-tail
            (vector-ref %expanded-vtables 12)
-           #{src 28600}#
-           #{exps 28601}#))))
-   (#{build-let 4283}#
-     (lambda (#{src 16511}#
-              #{ids 16512}#
-              #{vars 16513}#
-              #{val-exps 16514}#
-              #{body-exp 16515}#)
+           #{src 27454}#
+           #{exps 27455}#))))
+   (#{build-let 4284}#
+     (lambda (#{src 15991}#
+              #{ids 15992}#
+              #{vars 15993}#
+              #{val-exps 15994}#
+              #{body-exp 15995}#)
        (begin
          (for-each
-           #{maybe-name-value! 4266}#
-           #{ids 16512}#
-           #{val-exps 16514}#)
-         (if (null? #{vars 16513}#)
-           #{body-exp 16515}#
+           #{maybe-name-value! 4267}#
+           #{ids 15992}#
+           #{val-exps 15994}#)
+         (if (null? #{vars 15993}#)
+           #{body-exp 15995}#
            (make-struct/no-tail
              (vector-ref %expanded-vtables 15)
-             #{src 16511}#
-             #{ids 16512}#
-             #{vars 16513}#
-             #{val-exps 16514}#
-             #{body-exp 16515}#)))))
-   (#{build-named-let 4284}#
-     (lambda (#{src 16539}#
-              #{ids 16540}#
-              #{vars 16541}#
-              #{val-exps 16542}#
-              #{body-exp 16543}#)
-       (let ((#{f 16544}# (car #{vars 16541}#))
-             (#{f-name 16545}# (car #{ids 16540}#))
-             (#{vars 16546}# (cdr #{vars 16541}#))
-             (#{ids 16547}# (cdr #{ids 16540}#)))
-         (let ((#{proc 16548}#
-                 (let ((#{body 16568}#
+             #{src 15991}#
+             #{ids 15992}#
+             #{vars 15993}#
+             #{val-exps 15994}#
+             #{body-exp 15995}#)))))
+   (#{build-named-let 4285}#
+     (lambda (#{src 16019}#
+              #{ids 16020}#
+              #{vars 16021}#
+              #{val-exps 16022}#
+              #{body-exp 16023}#)
+       (let ((#{f 16024}# (car #{vars 16021}#))
+             (#{f-name 16025}# (car #{ids 16020}#))
+             (#{vars 16026}# (cdr #{vars 16021}#))
+             (#{ids 16027}# (cdr #{ids 16020}#)))
+         (let ((#{proc 16028}#
+                 (let ((#{body 16048}#
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 14)
-                           #{src 16539}#
-                           #{ids 16547}#
+                           #{src 16019}#
+                           #{ids 16027}#
                            #f
                            #f
                            #f
                            '()
-                           #{vars 16546}#
-                           #{body-exp 16543}#
+                           #{vars 16026}#
+                           #{body-exp 16023}#
                            #f)))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 13)
-                     #{src 16539}#
+                     #{src 16019}#
                      '()
-                     #{body 16568}#))))
+                     #{body 16048}#))))
            (begin
-             (if (if (struct? #{proc 16548}#)
-                   (eq? (struct-vtable #{proc 16548}#)
+             (if (if (struct? #{proc 16028}#)
+                   (eq? (struct-vtable #{proc 16028}#)
                         (vector-ref %expanded-vtables 13))
                    #f)
-               (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1)))
-                 (if (not (assq 'name #{meta 16592}#))
-                   (let ((#{v 16599}#
-                           (cons (cons 'name #{f-name 16545}#)
-                                 #{meta 16592}#)))
-                     (struct-set! #{proc 16548}# 1 #{v 16599}#)))))
+               (let ((#{meta 16072}# (struct-ref #{proc 16028}# 1)))
+                 (if (not (assq 'name #{meta 16072}#))
+                   (let ((#{v 16079}#
+                           (cons (cons 'name #{f-name 16025}#)
+                                 #{meta 16072}#)))
+                     (struct-set! #{proc 16028}# 1 #{v 16079}#)))))
              (for-each
-               #{maybe-name-value! 4266}#
-               #{ids 16547}#
-               #{val-exps 16542}#)
-             (let ((#{names 16623}# (list #{f-name 16545}#))
-                   (#{gensyms 16624}# (list #{f 16544}#))
-                   (#{vals 16625}# (list #{proc 16548}#))
-                   (#{body 16626}#
-                     (let ((#{fun-exp 16630}#
+               #{maybe-name-value! 4267}#
+               #{ids 16027}#
+               #{val-exps 16022}#)
+             (let ((#{names 16103}# (list #{f-name 16025}#))
+                   (#{gensyms 16104}# (list #{f 16024}#))
+                   (#{vals 16105}# (list #{proc 16028}#))
+                   (#{body 16106}#
+                     (let ((#{fun-exp 16110}#
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 3)
-                               #{src 16539}#
-                               #{f-name 16545}#
-                               #{f 16544}#)))
+                               #{src 16019}#
+                               #{f-name 16025}#
+                               #{f 16024}#)))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 11)
-                         #{src 16539}#
-                         #{fun-exp 16630}#
-                         #{val-exps 16542}#))))
+                         #{src 16019}#
+                         #{fun-exp 16110}#
+                         #{val-exps 16022}#))))
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 16)
-                 #{src 16539}#
+                 #{src 16019}#
                  #f
-                 #{names 16623}#
-                 #{gensyms 16624}#
-                 #{vals 16625}#
-                 #{body 16626}#)))))))
-   (#{build-letrec 4285}#
-     (lambda (#{src 16646}#
-              #{in-order? 16647}#
-              #{ids 16648}#
-              #{vars 16649}#
-              #{val-exps 16650}#
-              #{body-exp 16651}#)
-       (if (null? #{vars 16649}#)
-         #{body-exp 16651}#
+                 #{names 16103}#
+                 #{gensyms 16104}#
+                 #{vals 16105}#
+                 #{body 16106}#)))))))
+   (#{build-letrec 4286}#
+     (lambda (#{src 16126}#
+              #{in-order? 16127}#
+              #{ids 16128}#
+              #{vars 16129}#
+              #{val-exps 16130}#
+              #{body-exp 16131}#)
+       (if (null? #{vars 16129}#)
+         #{body-exp 16131}#
          (begin
            (for-each
-             #{maybe-name-value! 4266}#
-             #{ids 16648}#
-             #{val-exps 16650}#)
+             #{maybe-name-value! 4267}#
+             #{ids 16128}#
+             #{val-exps 16130}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 16)
-             #{src 16646}#
-             #{in-order? 16647}#
-             #{ids 16648}#
-             #{vars 16649}#
-             #{val-exps 16650}#
-             #{body-exp 16651}#)))))
-   (#{source-annotation 4294}#
-     (lambda (#{x 16677}#)
-       (if (if (vector? #{x 16677}#)
-             (if (= (vector-length #{x 16677}#) 4)
-               (eq? (vector-ref #{x 16677}# 0) 'syntax-object)
+             #{src 16126}#
+             #{in-order? 16127}#
+             #{ids 16128}#
+             #{vars 16129}#
+             #{val-exps 16130}#
+             #{body-exp 16131}#)))))
+   (#{source-annotation 4295}#
+     (lambda (#{x 16157}#)
+       (if (if (vector? #{x 16157}#)
+             (if (= (vector-length #{x 16157}#) 4)
+               (eq? (vector-ref #{x 16157}# 0) 'syntax-object)
                #f)
              #f)
-         (#{source-annotation 4294}#
-           (vector-ref #{x 16677}# 1))
-         (if (pair? #{x 16677}#)
-           (let ((#{props 16692}# (source-properties #{x 16677}#)))
-             (if (pair? #{props 16692}#) #{props 16692}# #f))
+         (#{source-annotation 4295}#
+           (vector-ref #{x 16157}# 1))
+         (if (pair? #{x 16157}#)
+           (let ((#{props 16172}# (source-properties #{x 16157}#)))
+             (if (pair? #{props 16172}#) #{props 16172}# #f))
            #f))))
-   (#{extend-env 4295}#
-     (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#)
-       (if (null? #{labels 16694}#)
-         #{r 16696}#
-         (#{extend-env 4295}#
-           (cdr #{labels 16694}#)
-           (cdr #{bindings 16695}#)
-           (cons (cons (car #{labels 16694}#)
-                       (car #{bindings 16695}#))
-                 #{r 16696}#)))))
-   (#{extend-var-env 4296}#
-     (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#)
-       (if (null? #{labels 16697}#)
-         #{r 16699}#
-         (#{extend-var-env 4296}#
-           (cdr #{labels 16697}#)
-           (cdr #{vars 16698}#)
-           (cons (cons (car #{labels 16697}#)
-                       (cons 'lexical (car #{vars 16698}#)))
-                 #{r 16699}#)))))
-   (#{macros-only-env 4297}#
-     (lambda (#{r 16700}#)
-       (if (null? #{r 16700}#)
+   (#{extend-env 4296}#
+     (lambda (#{labels 16174}# #{bindings 16175}# #{r 16176}#)
+       (if (null? #{labels 16174}#)
+         #{r 16176}#
+         (#{extend-env 4296}#
+           (cdr #{labels 16174}#)
+           (cdr #{bindings 16175}#)
+           (cons (cons (car #{labels 16174}#)
+                       (car #{bindings 16175}#))
+                 #{r 16176}#)))))
+   (#{extend-var-env 4297}#
+     (lambda (#{labels 16177}# #{vars 16178}# #{r 16179}#)
+       (if (null? #{labels 16177}#)
+         #{r 16179}#
+         (#{extend-var-env 4297}#
+           (cdr #{labels 16177}#)
+           (cdr #{vars 16178}#)
+           (cons (cons (car #{labels 16177}#)
+                       (cons 'lexical (car #{vars 16178}#)))
+                 #{r 16179}#)))))
+   (#{macros-only-env 4298}#
+     (lambda (#{r 16180}#)
+       (if (null? #{r 16180}#)
          '()
-         (let ((#{a 16701}# (car #{r 16700}#)))
-           (if (eq? (car (cdr #{a 16701}#)) 'macro)
-             (cons #{a 16701}#
-                   (#{macros-only-env 4297}# (cdr #{r 16700}#)))
-             (#{macros-only-env 4297}# (cdr #{r 16700}#)))))))
-   (#{global-extend 4299}#
-     (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#)
+         (let ((#{a 16181}# (car #{r 16180}#)))
+           (if (eq? (car (cdr #{a 16181}#)) 'macro)
+             (cons #{a 16181}#
+                   (#{macros-only-env 4298}# (cdr #{r 16180}#)))
+             (#{macros-only-env 4298}# (cdr #{r 16180}#)))))))
+   (#{global-extend 4300}#
+     (lambda (#{type 16183}# #{sym 16184}# #{val 16185}#)
        (module-define!
          (current-module)
-         #{sym 16704}#
+         #{sym 16184}#
          (make-syntax-transformer
-           #{sym 16704}#
-           #{type 16703}#
-           #{val 16705}#))))
-   (#{id? 4301}#
-     (lambda (#{x 10537}#)
-       (if (symbol? #{x 10537}#)
+           #{sym 16184}#
+           #{type 16183}#
+           #{val 16185}#))))
+   (#{id? 4302}#
+     (lambda (#{x 10359}#)
+       (if (symbol? #{x 10359}#)
          #t
-         (if (if (vector? #{x 10537}#)
-               (if (= (vector-length #{x 10537}#) 4)
-                 (eq? (vector-ref #{x 10537}# 0) 'syntax-object)
+         (if (if (vector? #{x 10359}#)
+               (if (= (vector-length #{x 10359}#) 4)
+                 (eq? (vector-ref #{x 10359}# 0) 'syntax-object)
                  #f)
                #f)
-           (symbol? (vector-ref #{x 10537}# 1))
+           (symbol? (vector-ref #{x 10359}# 1))
            #f))))
-   (#{gen-labels 4304}#
-     (lambda (#{ls 16715}#)
-       (if (null? #{ls 16715}#)
+   (#{gen-labels 4305}#
+     (lambda (#{ls 16195}#)
+       (if (null? #{ls 16195}#)
          '()
          (cons (symbol->string (gensym "i"))
-               (#{gen-labels 4304}# (cdr #{ls 16715}#))))))
-   (#{make-binding-wrap 4315}#
-     (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#)
-       (if (null? #{ids 16719}#)
-         #{w 16721}#
-         (cons (car #{w 16721}#)
-               (cons (let ((#{labelvec 16722}#
-                             (list->vector #{labels 16720}#)))
-                       (let ((#{n 16723}# (vector-length #{labelvec 16722}#)))
-                         (let ((#{symnamevec 16724}# (make-vector #{n 16723}#))
-                               (#{marksvec 16725}# (make-vector #{n 16723}#)))
+               (#{gen-labels 4305}# (cdr #{ls 16195}#))))))
+   (#{make-binding-wrap 4316}#
+     (lambda (#{ids 16199}# #{labels 16200}# #{w 16201}#)
+       (if (null? #{ids 16199}#)
+         #{w 16201}#
+         (cons (car #{w 16201}#)
+               (cons (let ((#{labelvec 16202}#
+                             (list->vector #{labels 16200}#)))
+                       (let ((#{n 16203}# (vector-length #{labelvec 16202}#)))
+                         (let ((#{symnamevec 16204}# (make-vector #{n 16203}#))
+                               (#{marksvec 16205}# (make-vector #{n 16203}#)))
                            (begin
                              (letrec*
-                               ((#{f 16726}#
-                                  (lambda (#{ids 16729}# #{i 16730}#)
-                                    (if (not (null? #{ids 16729}#))
+                               ((#{f 16206}#
+                                  (lambda (#{ids 16209}# #{i 16210}#)
+                                    (if (not (null? #{ids 16209}#))
                                       (call-with-values
                                         (lambda ()
-                                          (let ((#{x 16733}#
-                                                  (car #{ids 16729}#)))
-                                            (if (if (vector? #{x 16733}#)
+                                          (let ((#{x 16213}#
+                                                  (car #{ids 16209}#)))
+                                            (if (if (vector? #{x 16213}#)
                                                   (if (= (vector-length
-                                                           #{x 16733}#)
+                                                           #{x 16213}#)
                                                          4)
                                                     (eq? (vector-ref
-                                                           #{x 16733}#
+                                                           #{x 16213}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (values
-                                                (vector-ref #{x 16733}# 1)
-                                                (let ((#{m1 16749}#
-                                                        (car #{w 16721}#))
-                                                      (#{m2 16750}#
+                                                (vector-ref #{x 16213}# 1)
+                                                (let ((#{m1 16229}#
+                                                        (car #{w 16201}#))
+                                                      (#{m2 16230}#
                                                         (car (vector-ref
-                                                               #{x 16733}#
+                                                               #{x 16213}#
                                                                2))))
-                                                  (if (null? #{m2 16750}#)
-                                                    #{m1 16749}#
+                                                  (if (null? #{m2 16230}#)
+                                                    #{m1 16229}#
                                                     (append
-                                                      #{m1 16749}#
-                                                      #{m2 16750}#))))
+                                                      #{m1 16229}#
+                                                      #{m2 16230}#))))
                                               (values
-                                                #{x 16733}#
-                                                (car #{w 16721}#)))))
-                                        (lambda (#{symname 16770}#
-                                                 #{marks 16771}#)
+                                                #{x 16213}#
+                                                (car #{w 16201}#)))))
+                                        (lambda (#{symname 16250}#
+                                                 #{marks 16251}#)
                                           (begin
                                             (vector-set!
-                                              #{symnamevec 16724}#
-                                              #{i 16730}#
-                                              #{symname 16770}#)
+                                              #{symnamevec 16204}#
+                                              #{i 16210}#
+                                              #{symname 16250}#)
                                             (vector-set!
-                                              #{marksvec 16725}#
-                                              #{i 16730}#
-                                              #{marks 16771}#)
-                                            (#{f 16726}#
-                                              (cdr #{ids 16729}#)
-                                              (#{1+}# #{i 16730}#)))))))))
-                               (#{f 16726}# #{ids 16719}# 0))
+                                              #{marksvec 16205}#
+                                              #{i 16210}#
+                                              #{marks 16251}#)
+                                            (#{f 16206}#
+                                              (cdr #{ids 16209}#)
+                                              (#{1+}# #{i 16210}#)))))))))
+                               (#{f 16206}# #{ids 16199}# 0))
                              (vector
                                'ribcage
-                               #{symnamevec 16724}#
-                               #{marksvec 16725}#
-                               #{labelvec 16722}#)))))
-                     (cdr #{w 16721}#))))))
-   (#{join-wraps 4317}#
-     (lambda (#{w1 16780}# #{w2 16781}#)
-       (let ((#{m1 16782}# (car #{w1 16780}#))
-             (#{s1 16783}# (cdr #{w1 16780}#)))
-         (if (null? #{m1 16782}#)
-           (if (null? #{s1 16783}#)
-             #{w2 16781}#
-             (cons (car #{w2 16781}#)
-                   (let ((#{m2 16790}# (cdr #{w2 16781}#)))
-                     (if (null? #{m2 16790}#)
-                       #{s1 16783}#
-                       (append #{s1 16783}# #{m2 16790}#)))))
-           (cons (let ((#{m2 16799}# (car #{w2 16781}#)))
-                   (if (null? #{m2 16799}#)
-                     #{m1 16782}#
-                     (append #{m1 16782}# #{m2 16799}#)))
-                 (let ((#{m2 16808}# (cdr #{w2 16781}#)))
-                   (if (null? #{m2 16808}#)
-                     #{s1 16783}#
-                     (append #{s1 16783}# #{m2 16808}#))))))))
-   (#{same-marks? 4319}#
-     (lambda (#{x 16813}# #{y 16814}#)
-       (if (eq? #{x 16813}# #{y 16814}#)
-         (eq? #{x 16813}# #{y 16814}#)
-         (if (not (null? #{x 16813}#))
-           (if (not (null? #{y 16814}#))
-             (if (eq? (car #{x 16813}#) (car #{y 16814}#))
-               (#{same-marks? 4319}#
-                 (cdr #{x 16813}#)
-                 (cdr #{y 16814}#))
+                               #{symnamevec 16204}#
+                               #{marksvec 16205}#
+                               #{labelvec 16202}#)))))
+                     (cdr #{w 16201}#))))))
+   (#{join-wraps 4318}#
+     (lambda (#{w1 16260}# #{w2 16261}#)
+       (let ((#{m1 16262}# (car #{w1 16260}#))
+             (#{s1 16263}# (cdr #{w1 16260}#)))
+         (if (null? #{m1 16262}#)
+           (if (null? #{s1 16263}#)
+             #{w2 16261}#
+             (cons (car #{w2 16261}#)
+                   (let ((#{m2 16270}# (cdr #{w2 16261}#)))
+                     (if (null? #{m2 16270}#)
+                       #{s1 16263}#
+                       (append #{s1 16263}# #{m2 16270}#)))))
+           (cons (let ((#{m2 16279}# (car #{w2 16261}#)))
+                   (if (null? #{m2 16279}#)
+                     #{m1 16262}#
+                     (append #{m1 16262}# #{m2 16279}#)))
+                 (let ((#{m2 16288}# (cdr #{w2 16261}#)))
+                   (if (null? #{m2 16288}#)
+                     #{s1 16263}#
+                     (append #{s1 16263}# #{m2 16288}#))))))))
+   (#{same-marks? 4320}#
+     (lambda (#{x 16293}# #{y 16294}#)
+       (if (eq? #{x 16293}# #{y 16294}#)
+         (eq? #{x 16293}# #{y 16294}#)
+         (if (not (null? #{x 16293}#))
+           (if (not (null? #{y 16294}#))
+             (if (eq? (car #{x 16293}#) (car #{y 16294}#))
+               (#{same-marks? 4320}#
+                 (cdr #{x 16293}#)
+                 (cdr #{y 16294}#))
                #f)
              #f)
            #f))))
-   (#{id-var-name 4320}#
-     (lambda (#{id 16822}# #{w 16823}#)
+   (#{id-var-name 4321}#
+     (lambda (#{id 16302}# #{w 16303}#)
        (letrec*
-         ((#{search 16824}#
-            (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#)
-              (if (null? #{subst 16886}#)
-                (values #f #{marks 16887}#)
-                (let ((#{fst 16888}# (car #{subst 16886}#)))
-                  (if (eq? #{fst 16888}# 'shift)
-                    (#{search 16824}#
-                      #{sym 16885}#
-                      (cdr #{subst 16886}#)
-                      (cdr #{marks 16887}#))
-                    (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1)))
-                      (if (vector? #{symnames 16890}#)
-                        (let ((#{n 16902}# (vector-length #{symnames 16890}#)))
+         ((#{search 16304}#
+            (lambda (#{sym 16365}# #{subst 16366}# #{marks 16367}#)
+              (if (null? #{subst 16366}#)
+                (values #f #{marks 16367}#)
+                (let ((#{fst 16368}# (car #{subst 16366}#)))
+                  (if (eq? #{fst 16368}# 'shift)
+                    (#{search 16304}#
+                      #{sym 16365}#
+                      (cdr #{subst 16366}#)
+                      (cdr #{marks 16367}#))
+                    (let ((#{symnames 16370}# (vector-ref #{fst 16368}# 1)))
+                      (if (vector? #{symnames 16370}#)
+                        (let ((#{n 16382}# (vector-length #{symnames 16370}#)))
                           (letrec*
-                            ((#{f 16903}#
-                               (lambda (#{i 16905}#)
-                                 (if (= #{i 16905}# #{n 16902}#)
-                                   (#{search 16824}#
-                                     #{sym 16885}#
-                                     (cdr #{subst 16886}#)
-                                     #{marks 16887}#)
+                            ((#{f 16383}#
+                               (lambda (#{i 16385}#)
+                                 (if (= #{i 16385}# #{n 16382}#)
+                                   (#{search 16304}#
+                                     #{sym 16365}#
+                                     (cdr #{subst 16366}#)
+                                     #{marks 16367}#)
                                    (if (if (eq? (vector-ref
-                                                  #{symnames 16890}#
-                                                  #{i 16905}#)
-                                                #{sym 16885}#)
-                                         (#{same-marks? 4319}#
-                                           #{marks 16887}#
+                                                  #{symnames 16370}#
+                                                  #{i 16385}#)
+                                                #{sym 16365}#)
+                                         (#{same-marks? 4320}#
+                                           #{marks 16367}#
                                            (vector-ref
-                                             (vector-ref #{fst 16888}# 2)
-                                             #{i 16905}#))
+                                             (vector-ref #{fst 16368}# 2)
+                                             #{i 16385}#))
                                          #f)
                                      (values
                                        (vector-ref
-                                         (vector-ref #{fst 16888}# 3)
-                                         #{i 16905}#)
-                                       #{marks 16887}#)
-                                     (#{f 16903}# (#{1+}# #{i 16905}#)))))))
-                            (#{f 16903}# 0)))
+                                         (vector-ref #{fst 16368}# 3)
+                                         #{i 16385}#)
+                                       #{marks 16367}#)
+                                     (#{f 16383}# (#{1+}# #{i 16385}#)))))))
+                            (#{f 16383}# 0)))
                         (letrec*
-                          ((#{f 16938}#
-                             (lambda (#{symnames 16940}# #{i 16941}#)
-                               (if (null? #{symnames 16940}#)
-                                 (#{search 16824}#
-                                   #{sym 16885}#
-                                   (cdr #{subst 16886}#)
-                                   #{marks 16887}#)
-                                 (if (if (eq? (car #{symnames 16940}#)
-                                              #{sym 16885}#)
-                                       (#{same-marks? 4319}#
-                                         #{marks 16887}#
+                          ((#{f 16418}#
+                             (lambda (#{symnames 16420}# #{i 16421}#)
+                               (if (null? #{symnames 16420}#)
+                                 (#{search 16304}#
+                                   #{sym 16365}#
+                                   (cdr #{subst 16366}#)
+                                   #{marks 16367}#)
+                                 (if (if (eq? (car #{symnames 16420}#)
+                                              #{sym 16365}#)
+                                       (#{same-marks? 4320}#
+                                         #{marks 16367}#
                                          (list-ref
-                                           (vector-ref #{fst 16888}# 2)
-                                           #{i 16941}#))
+                                           (vector-ref #{fst 16368}# 2)
+                                           #{i 16421}#))
                                        #f)
                                    (values
                                      (list-ref
-                                       (vector-ref #{fst 16888}# 3)
-                                       #{i 16941}#)
-                                     #{marks 16887}#)
-                                   (#{f 16938}#
-                                     (cdr #{symnames 16940}#)
-                                     (#{1+}# #{i 16941}#)))))))
-                          (#{f 16938}# #{symnames 16890}# 0))))))))))
-         (if (symbol? #{id 16822}#)
-           (let ((#{t 16827}#
-                   (#{search 16824}#
-                     #{id 16822}#
-                     (cdr #{w 16823}#)
-                     (car #{w 16823}#))))
-             (if #{t 16827}# #{t 16827}# #{id 16822}#))
-           (if (if (vector? #{id 16822}#)
-                 (if (= (vector-length #{id 16822}#) 4)
-                   (eq? (vector-ref #{id 16822}# 0) 'syntax-object)
+                                       (vector-ref #{fst 16368}# 3)
+                                       #{i 16421}#)
+                                     #{marks 16367}#)
+                                   (#{f 16418}#
+                                     (cdr #{symnames 16420}#)
+                                     (#{1+}# #{i 16421}#)))))))
+                          (#{f 16418}# #{symnames 16370}# 0))))))))))
+         (if (symbol? #{id 16302}#)
+           (let ((#{t 16307}#
+                   (#{search 16304}#
+                     #{id 16302}#
+                     (cdr #{w 16303}#)
+                     (car #{w 16303}#))))
+             (if #{t 16307}# #{t 16307}# #{id 16302}#))
+           (if (if (vector? #{id 16302}#)
+                 (if (= (vector-length #{id 16302}#) 4)
+                   (eq? (vector-ref #{id 16302}# 0) 'syntax-object)
                    #f)
                  #f)
-             (let ((#{id 16842}# (vector-ref #{id 16822}# 1))
-                   (#{w1 16843}# (vector-ref #{id 16822}# 2)))
-               (let ((#{marks 16844}#
-                       (let ((#{m1 16854}# (car #{w 16823}#))
-                             (#{m2 16855}# (car #{w1 16843}#)))
-                         (if (null? #{m2 16855}#)
-                           #{m1 16854}#
-                           (append #{m1 16854}# #{m2 16855}#)))))
+             (let ((#{id 16322}# (vector-ref #{id 16302}# 1))
+                   (#{w1 16323}# (vector-ref #{id 16302}# 2)))
+               (let ((#{marks 16324}#
+                       (let ((#{m1 16334}# (car #{w 16303}#))
+                             (#{m2 16335}# (car #{w1 16323}#)))
+                         (if (null? #{m2 16335}#)
+                           #{m1 16334}#
+                           (append #{m1 16334}# #{m2 16335}#)))))
                  (call-with-values
                    (lambda ()
-                     (#{search 16824}#
-                       #{id 16842}#
-                       (cdr #{w 16823}#)
-                       #{marks 16844}#))
-                   (lambda (#{new-id 16871}# #{marks 16872}#)
-                     (if #{new-id 16871}#
-                       #{new-id 16871}#
-                       (let ((#{t 16880}#
-                               (#{search 16824}#
-                                 #{id 16842}#
-                                 (cdr #{w1 16843}#)
-                                 #{marks 16872}#)))
-                         (if #{t 16880}# #{t 16880}# #{id 16842}#)))))))
+                     (#{search 16304}#
+                       #{id 16322}#
+                       (cdr #{w 16303}#)
+                       #{marks 16324}#))
+                   (lambda (#{new-id 16351}# #{marks 16352}#)
+                     (if #{new-id 16351}#
+                       #{new-id 16351}#
+                       (let ((#{t 16360}#
+                               (#{search 16304}#
+                                 #{id 16322}#
+                                 (cdr #{w1 16323}#)
+                                 #{marks 16352}#)))
+                         (if #{t 16360}# #{t 16360}# #{id 16322}#)))))))
              (syntax-violation
                'id-var-name
                "invalid id"
-               #{id 16822}#))))))
-   (#{valid-bound-ids? 4323}#
-     (lambda (#{ids 16963}#)
+               #{id 16302}#))))))
+   (#{valid-bound-ids? 4324}#
+     (lambda (#{ids 16443}#)
        (if (letrec*
-             ((#{all-ids? 16964}#
-                (lambda (#{ids 17126}#)
-                  (if (null? #{ids 17126}#)
-                    (null? #{ids 17126}#)
-                    (if (let ((#{x 17137}# (car #{ids 17126}#)))
-                          (if (symbol? #{x 17137}#)
+             ((#{all-ids? 16444}#
+                (lambda (#{ids 16606}#)
+                  (if (null? #{ids 16606}#)
+                    (null? #{ids 16606}#)
+                    (if (let ((#{x 16617}# (car #{ids 16606}#)))
+                          (if (symbol? #{x 16617}#)
                             #t
-                            (if (if (vector? #{x 17137}#)
-                                  (if (= (vector-length #{x 17137}#) 4)
-                                    (eq? (vector-ref #{x 17137}# 0)
+                            (if (if (vector? #{x 16617}#)
+                                  (if (= (vector-length #{x 16617}#) 4)
+                                    (eq? (vector-ref #{x 16617}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
-                              (symbol? (vector-ref #{x 17137}# 1))
+                              (symbol? (vector-ref #{x 16617}# 1))
                               #f)))
-                      (#{all-ids? 16964}# (cdr #{ids 17126}#))
+                      (#{all-ids? 16444}# (cdr #{ids 16606}#))
                       #f)))))
-             (#{all-ids? 16964}# #{ids 16963}#))
-         (#{distinct-bound-ids? 4324}# #{ids 16963}#)
+             (#{all-ids? 16444}# #{ids 16443}#))
+         (#{distinct-bound-ids? 4325}# #{ids 16443}#)
          #f)))
-   (#{distinct-bound-ids? 4324}#
-     (lambda (#{ids 17269}#)
+   (#{distinct-bound-ids? 4325}#
+     (lambda (#{ids 16745}#)
        (letrec*
-         ((#{distinct? 17270}#
-            (lambda (#{ids 17386}#)
-              (if (null? #{ids 17386}#)
-                (null? #{ids 17386}#)
-                (if (not (#{bound-id-member? 4325}#
-                           (car #{ids 17386}#)
-                           (cdr #{ids 17386}#)))
-                  (#{distinct? 17270}# (cdr #{ids 17386}#))
+         ((#{distinct? 16746}#
+            (lambda (#{ids 16858}#)
+              (if (null? #{ids 16858}#)
+                (null? #{ids 16858}#)
+                (if (not (#{bound-id-member? 4326}#
+                           (car #{ids 16858}#)
+                           (cdr #{ids 16858}#)))
+                  (#{distinct? 16746}# (cdr #{ids 16858}#))
                   #f)))))
-         (#{distinct? 17270}# #{ids 17269}#))))
-   (#{bound-id-member? 4325}#
-     (lambda (#{x 17606}# #{list 17607}#)
-       (if (not (null? #{list 17607}#))
-         (let ((#{t 17608}#
-                 (let ((#{j 17689}# (car #{list 17607}#)))
-                   (if (if (if (vector? #{x 17606}#)
-                             (if (= (vector-length #{x 17606}#) 4)
-                               (eq? (vector-ref #{x 17606}# 0) 'syntax-object)
+         (#{distinct? 16746}# #{ids 16745}#))))
+   (#{bound-id-member? 4326}#
+     (lambda (#{x 17068}# #{list 17069}#)
+       (if (not (null? #{list 17069}#))
+         (let ((#{t 17070}#
+                 (let ((#{j 17151}# (car #{list 17069}#)))
+                   (if (if (if (vector? #{x 17068}#)
+                             (if (= (vector-length #{x 17068}#) 4)
+                               (eq? (vector-ref #{x 17068}# 0) 'syntax-object)
                                #f)
                              #f)
-                         (if (vector? #{j 17689}#)
-                           (if (= (vector-length #{j 17689}#) 4)
-                             (eq? (vector-ref #{j 17689}# 0) 'syntax-object)
+                         (if (vector? #{j 17151}#)
+                           (if (= (vector-length #{j 17151}#) 4)
+                             (eq? (vector-ref #{j 17151}# 0) 'syntax-object)
                              #f)
                            #f)
                          #f)
-                     (if (eq? (vector-ref #{x 17606}# 1)
-                              (vector-ref #{j 17689}# 1))
-                       (#{same-marks? 4319}#
-                         (car (vector-ref #{x 17606}# 2))
-                         (car (vector-ref #{j 17689}# 2)))
+                     (if (eq? (vector-ref #{x 17068}# 1)
+                              (vector-ref #{j 17151}# 1))
+                       (#{same-marks? 4320}#
+                         (car (vector-ref #{x 17068}# 2))
+                         (car (vector-ref #{j 17151}# 2)))
                        #f)
-                     (eq? #{x 17606}# #{j 17689}#)))))
-           (if #{t 17608}#
-             #{t 17608}#
-             (#{bound-id-member? 4325}#
-               #{x 17606}#
-               (cdr #{list 17607}#))))
+                     (eq? #{x 17068}# #{j 17151}#)))))
+           (if #{t 17070}#
+             #{t 17070}#
+             (#{bound-id-member? 4326}#
+               #{x 17068}#
+               (cdr #{list 17069}#))))
          #f)))
-   (#{wrap 4326}#
-     (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#)
-       (if (if (null? (car #{w 17734}#))
-             (null? (cdr #{w 17734}#))
+   (#{wrap 4327}#
+     (lambda (#{x 17195}# #{w 17196}# #{defmod 17197}#)
+       (if (if (null? (car #{w 17196}#))
+             (null? (cdr #{w 17196}#))
              #f)
-         #{x 17733}#
-         (if (if (vector? #{x 17733}#)
-               (if (= (vector-length #{x 17733}#) 4)
-                 (eq? (vector-ref #{x 17733}# 0) 'syntax-object)
+         #{x 17195}#
+         (if (if (vector? #{x 17195}#)
+               (if (= (vector-length #{x 17195}#) 4)
+                 (eq? (vector-ref #{x 17195}# 0) 'syntax-object)
                  #f)
                #f)
-           (let ((#{expression 17749}# (vector-ref #{x 17733}# 1))
-                 (#{wrap 17750}#
-                   (#{join-wraps 4317}#
-                     #{w 17734}#
-                     (vector-ref #{x 17733}# 2)))
-                 (#{module 17751}# (vector-ref #{x 17733}# 3)))
+           (let ((#{expression 17211}# (vector-ref #{x 17195}# 1))
+                 (#{wrap 17212}#
+                   (#{join-wraps 4318}#
+                     #{w 17196}#
+                     (vector-ref #{x 17195}# 2)))
+                 (#{module 17213}# (vector-ref #{x 17195}# 3)))
              (vector
                'syntax-object
-               #{expression 17749}#
-               #{wrap 17750}#
-               #{module 17751}#))
-           (if (null? #{x 17733}#)
-             #{x 17733}#
+               #{expression 17211}#
+               #{wrap 17212}#
+               #{module 17213}#))
+           (if (null? #{x 17195}#)
+             #{x 17195}#
              (vector
                'syntax-object
-               #{x 17733}#
-               #{w 17734}#
-               #{defmod 17735}#))))))
-   (#{source-wrap 4327}#
-     (lambda (#{x 17768}#
-              #{w 17769}#
-              #{s 17770}#
-              #{defmod 17771}#)
-       (#{wrap 4326}#
+               #{x 17195}#
+               #{w 17196}#
+               #{defmod 17197}#))))))
+   (#{source-wrap 4328}#
+     (lambda (#{x 17230}#
+              #{w 17231}#
+              #{s 17232}#
+              #{defmod 17233}#)
+       (#{wrap 4327}#
          (begin
-           (if (if (pair? #{x 17768}#) #{s 17770}# #f)
-             (set-source-properties! #{x 17768}# #{s 17770}#))
-           #{x 17768}#)
-         #{w 17769}#
-         #{defmod 17771}#)))
-   (#{expand-sequence 4328}#
-     (lambda (#{body 28606}#
-              #{r 28607}#
-              #{w 28608}#
-              #{s 28609}#
-              #{mod 28610}#)
-       (#{build-sequence 4282}#
-         #{s 28609}#
+           (if (if (pair? #{x 17230}#) #{s 17232}# #f)
+             (set-source-properties! #{x 17230}# #{s 17232}#))
+           #{x 17230}#)
+         #{w 17231}#
+         #{defmod 17233}#)))
+   (#{expand-sequence 4329}#
+     (lambda (#{body 27460}#
+              #{r 27461}#
+              #{w 27462}#
+              #{s 27463}#
+              #{mod 27464}#)
+       (#{build-sequence 4283}#
+         #{s 27463}#
          (letrec*
-           ((#{dobody 28695}#
-              (lambda (#{body 28775}#
-                       #{r 28776}#
-                       #{w 28777}#
-                       #{mod 28778}#)
-                (if (null? #{body 28775}#)
+           ((#{dobody 27544}#
+              (lambda (#{body 27894}#
+                       #{r 27895}#
+                       #{w 27896}#
+                       #{mod 27897}#)
+                (if (null? #{body 27894}#)
                   '()
-                  (let ((#{first 28779}#
-                          (#{expand 4333}#
-                            (car #{body 28775}#)
-                            #{r 28776}#
-                            #{w 28777}#
-                            #{mod 28778}#)))
-                    (cons #{first 28779}#
-                          (#{dobody 28695}#
-                            (cdr #{body 28775}#)
-                            #{r 28776}#
-                            #{w 28777}#
-                            #{mod 28778}#)))))))
-           (#{dobody 28695}#
-             #{body 28606}#
-             #{r 28607}#
-             #{w 28608}#
-             #{mod 28610}#)))))
-   (#{expand-top-sequence 4329}#
-     (lambda (#{body 17789}#
-              #{r 17790}#
-              #{w 17791}#
-              #{s 17792}#
-              #{m 17793}#
-              #{esew 17794}#
-              #{mod 17795}#)
+                  (let ((#{first 27898}#
+                          (let ((#{e 27902}# (car #{body 27894}#)))
+                            (call-with-values
+                              (lambda ()
+                                (#{syntax-type 4333}#
+                                  #{e 27902}#
+                                  #{r 27895}#
+                                  #{w 27896}#
+                                  (#{source-annotation 4295}# #{e 27902}#)
+                                  #f
+                                  #{mod 27897}#
+                                  #f))
+                              (lambda (#{type 27909}#
+                                       #{value 27910}#
+                                       #{e 27911}#
+                                       #{w 27912}#
+                                       #{s 27913}#
+                                       #{mod 27914}#)
+                                (#{expand-expr 4335}#
+                                  #{type 27909}#
+                                  #{value 27910}#
+                                  #{e 27911}#
+                                  #{r 27895}#
+                                  #{w 27912}#
+                                  #{s 27913}#
+                                  #{mod 27914}#))))))
+                    (cons #{first 27898}#
+                          (#{dobody 27544}#
+                            (cdr #{body 27894}#)
+                            #{r 27895}#
+                            #{w 27896}#
+                            #{mod 27897}#)))))))
+           (#{dobody 27544}#
+             #{body 27460}#
+             #{r 27461}#
+             #{w 27462}#
+             #{mod 27464}#)))))
+   (#{expand-top-sequence 4330}#
+     (lambda (#{body 17251}#
+              #{r 17252}#
+              #{w 17253}#
+              #{s 17254}#
+              #{m 17255}#
+              #{esew 17256}#
+              #{mod 17257}#)
        (letrec*
-         ((#{scan 17796}#
-            (lambda (#{body 17927}#
-                     #{r 17928}#
-                     #{w 17929}#
-                     #{s 17930}#
-                     #{m 17931}#
-                     #{esew 17932}#
-                     #{mod 17933}#
-                     #{exps 17934}#)
-              (if (null? #{body 17927}#)
-                #{exps 17934}#
+         ((#{scan 17258}#
+            (lambda (#{body 17389}#
+                     #{r 17390}#
+                     #{w 17391}#
+                     #{s 17392}#
+                     #{m 17393}#
+                     #{esew 17394}#
+                     #{mod 17395}#
+                     #{exps 17396}#)
+              (if (null? #{body 17389}#)
+                #{exps 17396}#
                 (call-with-values
                   (lambda ()
                     (call-with-values
                       (lambda ()
-                        (let ((#{e 17935}# (car #{body 17927}#)))
-                          (#{syntax-type 4332}#
-                            #{e 17935}#
-                            #{r 17928}#
-                            #{w 17929}#
-                            (let ((#{t 17939}#
-                                    (#{source-annotation 4294}# #{e 17935}#)))
-                              (if #{t 17939}# #{t 17939}# #{s 17930}#))
+                        (let ((#{e 17397}# (car #{body 17389}#)))
+                          (#{syntax-type 4333}#
+                            #{e 17397}#
+                            #{r 17390}#
+                            #{w 17391}#
+                            (let ((#{t 17401}#
+                                    (#{source-annotation 4295}# #{e 17397}#)))
+                              (if #{t 17401}# #{t 17401}# #{s 17392}#))
                             #f
-                            #{mod 17933}#
+                            #{mod 17395}#
                             #f)))
-                      (lambda (#{type 18199}#
-                               #{value 18200}#
-                               #{e 18201}#
-                               #{w 18202}#
-                               #{s 18203}#
-                               #{mod 18204}#)
-                        (if (eqv? #{type 18199}# 'begin-form)
-                          (let ((#{tmp 18209}#
-                                  ($sc-dispatch #{e 18201}# '(_))))
-                            (if #{tmp 18209}#
-                              (@apply (lambda () #{exps 17934}#) #{tmp 18209}#)
-                              (let ((#{tmp 18213}#
+                      (lambda (#{type 17636}#
+                               #{value 17637}#
+                               #{e 17638}#
+                               #{w 17639}#
+                               #{s 17640}#
+                               #{mod 17641}#)
+                        (if (eqv? #{type 17636}# 'begin-form)
+                          (let ((#{tmp 17646}#
+                                  ($sc-dispatch #{e 17638}# '(_))))
+                            (if #{tmp 17646}#
+                              (@apply (lambda () #{exps 17396}#) #{tmp 17646}#)
+                              (let ((#{tmp 17650}#
                                       ($sc-dispatch
-                                        #{e 18201}#
+                                        #{e 17638}#
                                         '(_ any . each-any))))
-                                (if #{tmp 18213}#
+                                (if #{tmp 17650}#
                                   (@apply
-                                    (lambda (#{e1 18217}# #{e2 18218}#)
-                                      (#{scan 17796}#
-                                        (cons #{e1 18217}# #{e2 18218}#)
-                                        #{r 17928}#
-                                        #{w 18202}#
-                                        #{s 18203}#
-                                        #{m 17931}#
-                                        #{esew 17932}#
-                                        #{mod 18204}#
-                                        #{exps 17934}#))
-                                    #{tmp 18213}#)
+                                    (lambda (#{e1 17654}# #{e2 17655}#)
+                                      (#{scan 17258}#
+                                        (cons #{e1 17654}# #{e2 17655}#)
+                                        #{r 17390}#
+                                        #{w 17639}#
+                                        #{s 17640}#
+                                        #{m 17393}#
+                                        #{esew 17394}#
+                                        #{mod 17641}#
+                                        #{exps 17396}#))
+                                    #{tmp 17650}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{e 18201}#)))))
-                          (if (eqv? #{type 18199}# 'local-syntax-form)
-                            (#{expand-local-syntax 4338}#
-                              #{value 18200}#
-                              #{e 18201}#
-                              #{r 17928}#
-                              #{w 18202}#
-                              #{s 18203}#
-                              #{mod 18204}#
-                              (lambda (#{body 18233}#
-                                       #{r 18234}#
-                                       #{w 18235}#
-                                       #{s 18236}#
-                                       #{mod 18237}#)
-                                (#{scan 17796}#
-                                  #{body 18233}#
-                                  #{r 18234}#
-                                  #{w 18235}#
-                                  #{s 18236}#
-                                  #{m 17931}#
-                                  #{esew 17932}#
-                                  #{mod 18237}#
-                                  #{exps 17934}#)))
-                            (if (eqv? #{type 18199}# 'eval-when-form)
-                              (let ((#{tmp 18242}#
+                                    #{e 17638}#)))))
+                          (if (eqv? #{type 17636}# 'local-syntax-form)
+                            (#{expand-local-syntax 4339}#
+                              #{value 17637}#
+                              #{e 17638}#
+                              #{r 17390}#
+                              #{w 17639}#
+                              #{s 17640}#
+                              #{mod 17641}#
+                              (lambda (#{body 17670}#
+                                       #{r 17671}#
+                                       #{w 17672}#
+                                       #{s 17673}#
+                                       #{mod 17674}#)
+                                (#{scan 17258}#
+                                  #{body 17670}#
+                                  #{r 17671}#
+                                  #{w 17672}#
+                                  #{s 17673}#
+                                  #{m 17393}#
+                                  #{esew 17394}#
+                                  #{mod 17674}#
+                                  #{exps 17396}#)))
+                            (if (eqv? #{type 17636}# 'eval-when-form)
+                              (let ((#{tmp 17679}#
                                       ($sc-dispatch
-                                        #{e 18201}#
+                                        #{e 17638}#
                                         '(_ each-any any . each-any))))
-                                (if #{tmp 18242}#
+                                (if #{tmp 17679}#
                                   (@apply
-                                    (lambda (#{x 18246}#
-                                             #{e1 18247}#
-                                             #{e2 18248}#)
-                                      (let ((#{when-list 18249}#
-                                              (#{parse-when-list 4331}#
-                                                #{e 18201}#
-                                                #{x 18246}#))
-                                            (#{body 18250}#
-                                              (cons #{e1 18247}#
-                                                    #{e2 18248}#)))
-                                        (if (eq? #{m 17931}# 'e)
-                                          (if (memq 'eval #{when-list 18249}#)
-                                            (#{scan 17796}#
-                                              #{body 18250}#
-                                              #{r 17928}#
-                                              #{w 18202}#
-                                              #{s 18203}#
+                                    (lambda (#{x 17683}#
+                                             #{e1 17684}#
+                                             #{e2 17685}#)
+                                      (let ((#{when-list 17686}#
+                                              (#{parse-when-list 4332}#
+                                                #{e 17638}#
+                                                #{x 17683}#))
+                                            (#{body 17687}#
+                                              (cons #{e1 17684}#
+                                                    #{e2 17685}#)))
+                                        (if (eq? #{m 17393}# 'e)
+                                          (if (memq 'eval #{when-list 17686}#)
+                                            (#{scan 17258}#
+                                              #{body 17687}#
+                                              #{r 17390}#
+                                              #{w 17639}#
+                                              #{s 17640}#
                                               (if (memq 'expand
-                                                        #{when-list 18249}#)
+                                                        #{when-list 17686}#)
                                                 'c&e
                                                 'e)
                                               '(eval)
-                                              #{mod 18204}#
-                                              #{exps 17934}#)
+                                              #{mod 17641}#
+                                              #{exps 17396}#)
                                             (begin
                                               (if (memq 'expand
-                                                        #{when-list 18249}#)
-                                                (let ((#{x 18327}#
-                                                        (#{expand-top-sequence 
4329}#
-                                                          #{body 18250}#
-                                                          #{r 17928}#
-                                                          #{w 18202}#
-                                                          #{s 18203}#
+                                                        #{when-list 17686}#)
+                                                (let ((#{x 17764}#
+                                                        (#{expand-top-sequence 
4330}#
+                                                          #{body 17687}#
+                                                          #{r 17390}#
+                                                          #{w 17639}#
+                                                          #{s 17640}#
                                                           'e
                                                           '(eval)
-                                                          #{mod 18204}#)))
+                                                          #{mod 17641}#)))
                                                   (primitive-eval
-                                                    #{x 18327}#)))
-                                              (values #{exps 17934}#)))
-                                          (if (memq 'load #{when-list 18249}#)
-                                            (if (let ((#{t 18353}#
+                                                    #{x 17764}#)))
+                                              (values #{exps 17396}#)))
+                                          (if (memq 'load #{when-list 17686}#)
+                                            (if (let ((#{t 17790}#
                                                         (memq 'compile
-                                                              #{when-list 
18249}#)))
-                                                  (if #{t 18353}#
-                                                    #{t 18353}#
-                                                    (let ((#{t 18402}#
+                                                              #{when-list 
17686}#)))
+                                                  (if #{t 17790}#
+                                                    #{t 17790}#
+                                                    (let ((#{t 17839}#
                                                             (memq 'expand
-                                                                  #{when-list 
18249}#)))
-                                                      (if #{t 18402}#
-                                                        #{t 18402}#
-                                                        (if (eq? #{m 17931}#
+                                                                  #{when-list 
17686}#)))
+                                                      (if #{t 17839}#
+                                                        #{t 17839}#
+                                                        (if (eq? #{m 17393}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
18249}#)
+                                                                #{when-list 
17686}#)
                                                           #f)))))
-                                              (#{scan 17796}#
-                                                #{body 18250}#
-                                                #{r 17928}#
-                                                #{w 18202}#
-                                                #{s 18203}#
+                                              (#{scan 17258}#
+                                                #{body 17687}#
+                                                #{r 17390}#
+                                                #{w 17639}#
+                                                #{s 17640}#
                                                 'c&e
                                                 '(compile load)
-                                                #{mod 18204}#
-                                                #{exps 17934}#)
-                                              (if (if (eq? #{m 17931}# 'c)
+                                                #{mod 17641}#
+                                                #{exps 17396}#)
+                                              (if (if (eq? #{m 17393}# 'c)
                                                     #t
-                                                    (eq? #{m 17931}# 'c&e))
-                                                (#{scan 17796}#
-                                                  #{body 18250}#
-                                                  #{r 17928}#
-                                                  #{w 18202}#
-                                                  #{s 18203}#
+                                                    (eq? #{m 17393}# 'c&e))
+                                                (#{scan 17258}#
+                                                  #{body 17687}#
+                                                  #{r 17390}#
+                                                  #{w 17639}#
+                                                  #{s 17640}#
                                                   'c
                                                   '(load)
-                                                  #{mod 18204}#
-                                                  #{exps 17934}#)
-                                                (values #{exps 17934}#)))
-                                            (if (let ((#{t 18531}#
+                                                  #{mod 17641}#
+                                                  #{exps 17396}#)
+                                                (values #{exps 17396}#)))
+                                            (if (let ((#{t 17968}#
                                                         (memq 'compile
-                                                              #{when-list 
18249}#)))
-                                                  (if #{t 18531}#
-                                                    #{t 18531}#
-                                                    (let ((#{t 18580}#
+                                                              #{when-list 
17686}#)))
+                                                  (if #{t 17968}#
+                                                    #{t 17968}#
+                                                    (let ((#{t 18017}#
                                                             (memq 'expand
-                                                                  #{when-list 
18249}#)))
-                                                      (if #{t 18580}#
-                                                        #{t 18580}#
-                                                        (if (eq? #{m 17931}#
+                                                                  #{when-list 
17686}#)))
+                                                      (if #{t 18017}#
+                                                        #{t 18017}#
+                                                        (if (eq? #{m 17393}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
18249}#)
+                                                                #{when-list 
17686}#)
                                                           #f)))))
                                               (begin
-                                                (let ((#{x 18704}#
-                                                        (#{expand-top-sequence 
4329}#
-                                                          #{body 18250}#
-                                                          #{r 17928}#
-                                                          #{w 18202}#
-                                                          #{s 18203}#
+                                                (let ((#{x 18141}#
+                                                        (#{expand-top-sequence 
4330}#
+                                                          #{body 17687}#
+                                                          #{r 17390}#
+                                                          #{w 17639}#
+                                                          #{s 17640}#
                                                           'e
                                                           '(eval)
-                                                          #{mod 18204}#)))
-                                                  (primitive-eval #{x 18704}#))
-                                                (values #{exps 17934}#))
-                                              (values #{exps 17934}#))))))
-                                    #{tmp 18242}#)
+                                                          #{mod 17641}#)))
+                                                  (primitive-eval #{x 18141}#))
+                                                (values #{exps 17396}#))
+                                              (values #{exps 17396}#))))))
+                                    #{tmp 17679}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{e 18201}#)))
-                              (if (eqv? #{type 18199}# 'define-syntax-form)
-                                (let ((#{n 18745}#
-                                        (#{id-var-name 4320}#
-                                          #{value 18200}#
-                                          #{w 18202}#))
-                                      (#{r 18746}#
-                                        (#{macros-only-env 4297}#
-                                          #{r 17928}#)))
-                                  (if (eqv? #{m 17931}# 'c)
-                                    (if (memq 'compile #{esew 17932}#)
-                                      (let ((#{e 18750}#
-                                              (#{expand-install-global 4330}#
-                                                #{n 18745}#
-                                                (#{expand 4333}#
-                                                  #{e 18201}#
-                                                  #{r 18746}#
-                                                  #{w 18202}#
-                                                  #{mod 18204}#))))
+                                    #{e 17638}#)))
+                              (if (eqv? #{type 17636}# 'define-syntax-form)
+                                (let ((#{n 18182}#
+                                        (#{id-var-name 4321}#
+                                          #{value 17637}#
+                                          #{w 17639}#))
+                                      (#{r 18183}#
+                                        (#{macros-only-env 4298}#
+                                          #{r 17390}#)))
+                                  (if (eqv? #{m 17393}# 'c)
+                                    (if (memq 'compile #{esew 17394}#)
+                                      (let ((#{e 18187}#
+                                              (#{expand-install-global 4331}#
+                                                #{n 18182}#
+                                                (#{expand 4334}#
+                                                  #{e 17638}#
+                                                  #{r 18183}#
+                                                  #{w 17639}#
+                                                  #{mod 17641}#))))
                                         (begin
-                                          (#{top-level-eval-hook 4261}#
-                                            #{e 18750}#
-                                            #{mod 18204}#)
-                                          (if (memq 'load #{esew 17932}#)
+                                          (#{top-level-eval-hook 4262}#
+                                            #{e 18187}#
+                                            #{mod 17641}#)
+                                          (if (memq 'load #{esew 17394}#)
                                             (values
-                                              (cons #{e 18750}#
-                                                    #{exps 17934}#))
-                                            (values #{exps 17934}#))))
-                                      (if (memq 'load #{esew 17932}#)
+                                              (cons #{e 18187}#
+                                                    #{exps 17396}#))
+                                            (values #{exps 17396}#))))
+                                      (if (memq 'load #{esew 17394}#)
                                         (values
-                                          (cons (#{expand-install-global 4330}#
-                                                  #{n 18745}#
-                                                  (#{expand 4333}#
-                                                    #{e 18201}#
-                                                    #{r 18746}#
-                                                    #{w 18202}#
-                                                    #{mod 18204}#))
-                                                #{exps 17934}#))
-                                        (values #{exps 17934}#)))
-                                    (if (eqv? #{m 17931}# 'c&e)
-                                      (let ((#{e 19207}#
-                                              (#{expand-install-global 4330}#
-                                                #{n 18745}#
-                                                (#{expand 4333}#
-                                                  #{e 18201}#
-                                                  #{r 18746}#
-                                                  #{w 18202}#
-                                                  #{mod 18204}#))))
+                                          (cons (#{expand-install-global 4331}#
+                                                  #{n 18182}#
+                                                  (#{expand 4334}#
+                                                    #{e 17638}#
+                                                    #{r 18183}#
+                                                    #{w 17639}#
+                                                    #{mod 17641}#))
+                                                #{exps 17396}#))
+                                        (values #{exps 17396}#)))
+                                    (if (eqv? #{m 17393}# 'c&e)
+                                      (let ((#{e 18634}#
+                                              (#{expand-install-global 4331}#
+                                                #{n 18182}#
+                                                (#{expand 4334}#
+                                                  #{e 17638}#
+                                                  #{r 18183}#
+                                                  #{w 17639}#
+                                                  #{mod 17641}#))))
                                         (begin
-                                          (#{top-level-eval-hook 4261}#
-                                            #{e 19207}#
-                                            #{mod 18204}#)
+                                          (#{top-level-eval-hook 4262}#
+                                            #{e 18634}#
+                                            #{mod 17641}#)
                                           (values
-                                            (cons #{e 19207}#
-                                                  #{exps 17934}#))))
+                                            (cons #{e 18634}#
+                                                  #{exps 17396}#))))
                                       (begin
-                                        (if (memq 'eval #{esew 17932}#)
-                                          (#{top-level-eval-hook 4261}#
-                                            (#{expand-install-global 4330}#
-                                              #{n 18745}#
-                                              (#{expand 4333}#
-                                                #{e 18201}#
-                                                #{r 18746}#
-                                                #{w 18202}#
-                                                #{mod 18204}#))
-                                            #{mod 18204}#))
-                                        (values #{exps 17934}#)))))
-                                (if (eqv? #{type 18199}# 'define-form)
-                                  (let ((#{n 19857}#
-                                          (#{id-var-name 4320}#
-                                            #{value 18200}#
-                                            #{w 18202}#)))
-                                    (let ((#{type 19858}#
-                                            (car (let ((#{t 20627}#
-                                                         (assq #{n 19857}#
-                                                               #{r 17928}#)))
-                                                   (if #{t 20627}#
-                                                     (cdr #{t 20627}#)
-                                                     (if (symbol? #{n 19857}#)
-                                                       (let ((#{t 20632}#
+                                        (if (memq 'eval #{esew 17394}#)
+                                          (#{top-level-eval-hook 4262}#
+                                            (#{expand-install-global 4331}#
+                                              #{n 18182}#
+                                              (#{expand 4334}#
+                                                #{e 17638}#
+                                                #{r 18183}#
+                                                #{w 17639}#
+                                                #{mod 17641}#))
+                                            #{mod 17641}#))
+                                        (values #{exps 17396}#)))))
+                                (if (eqv? #{type 17636}# 'define-form)
+                                  (let ((#{n 19269}#
+                                          (#{id-var-name 4321}#
+                                            #{value 17637}#
+                                            #{w 17639}#)))
+                                    (let ((#{type 19270}#
+                                            (car (let ((#{t 20014}#
+                                                         (assq #{n 19269}#
+                                                               #{r 17390}#)))
+                                                   (if #{t 20014}#
+                                                     (cdr #{t 20014}#)
+                                                     (if (symbol? #{n 19269}#)
+                                                       (let ((#{t 20019}#
                                                                (begin
-                                                                 (if (if (not 
#{mod 18204}#)
+                                                                 (if (if (not 
#{mod 17641}#)
                                                                        
(current-module)
                                                                        #f)
                                                                    (warn 
"module system is booted, we should have a module"
-                                                                         #{n 
19857}#))
-                                                                 (let ((#{v 
20669}#
+                                                                         #{n 
19269}#))
+                                                                 (let ((#{v 
20056}#
                                                                          
(module-variable
-                                                                           (if 
#{mod 18204}#
+                                                                           (if 
#{mod 17641}#
                                                                              
(resolve-module
-                                                                               
(cdr #{mod 18204}#))
+                                                                               
(cdr #{mod 17641}#))
                                                                              
(current-module))
-                                                                           #{n 
19857}#)))
-                                                                   (if #{v 
20669}#
+                                                                           #{n 
19269}#)))
+                                                                   (if #{v 
20056}#
                                                                      (if 
(variable-bound?
-                                                                           #{v 
20669}#)
-                                                                       (let 
((#{val 20678}#
+                                                                           #{v 
20056}#)
+                                                                       (let 
((#{val 20065}#
                                                                                
(variable-ref
-                                                                               
  #{v 20669}#)))
+                                                                               
  #{v 20056}#)))
                                                                          (if 
(macro?
-                                                                               
#{val 20678}#)
+                                                                               
#{val 20065}#)
                                                                            (if 
(macro-type
-                                                                               
  #{val 20678}#)
+                                                                               
  #{val 20065}#)
                                                                              
(cons (macro-type
-                                                                               
      #{val 20678}#)
+                                                                               
      #{val 20065}#)
                                                                                
    (macro-binding
-                                                                               
      #{val 20678}#))
+                                                                               
      #{val 20065}#))
                                                                              
#f)
                                                                            #f))
                                                                        #f)
                                                                      #f)))))
-                                                         (if #{t 20632}#
-                                                           #{t 20632}#
+                                                         (if #{t 20019}#
+                                                           #{t 20019}#
                                                            '(global)))
                                                        
'(displaced-lexical)))))))
-                                      (if (let ((#{t 19892}# #{type 19858}#))
-                                            (if (eqv? #{t 19892}# 'global)
+                                      (if (let ((#{t 19304}# #{type 19270}#))
+                                            (if (eqv? #{t 19304}# 'global)
                                               #t
-                                              (if (eqv? #{t 19892}# 'core)
+                                              (if (eqv? #{t 19304}# 'core)
                                                 #t
-                                                (if (eqv? #{t 19892}# 'macro)
+                                                (if (eqv? #{t 19304}# 'macro)
                                                   #t
-                                                  (eqv? #{t 19892}#
+                                                  (eqv? #{t 19304}#
                                                         'module-ref)))))
                                         (begin
-                                          (if (if (if (eq? #{m 17931}# 'c)
+                                          (if (if (if (eq? #{m 17393}# 'c)
                                                     #t
-                                                    (eq? #{m 17931}# 'c&e))
+                                                    (eq? #{m 17393}# 'c&e))
                                                 (if (not (module-local-variable
                                                            (current-module)
-                                                           #{n 19857}#))
+                                                           #{n 19269}#))
                                                   (current-module)
                                                   #f)
                                                 #f)
-                                            (let ((#{old 20056}#
+                                            (let ((#{old 19468}#
                                                     (module-variable
                                                       (current-module)
-                                                      #{n 19857}#)))
-                                              (if (if (variable? #{old 20056}#)
+                                                      #{n 19269}#)))
+                                              (if (if (variable? #{old 19468}#)
                                                     (variable-bound?
-                                                      #{old 20056}#)
+                                                      #{old 19468}#)
                                                     #f)
                                                 (module-define!
                                                   (current-module)
-                                                  #{n 19857}#
-                                                  (variable-ref #{old 20056}#))
+                                                  #{n 19269}#
+                                                  (variable-ref #{old 19468}#))
                                                 (module-add!
                                                   (current-module)
-                                                  #{n 19857}#
+                                                  #{n 19269}#
                                                   (make-undefined-variable)))))
                                           (values
-                                            (cons (if (eq? #{m 17931}# 'c&e)
-                                                    (let ((#{x 20058}#
-                                                            
(#{build-global-definition 4276}#
-                                                              #{s 18203}#
-                                                              #{n 19857}#
-                                                              (#{expand 4333}#
-                                                                #{e 18201}#
-                                                                #{r 17928}#
-                                                                #{w 18202}#
-                                                                #{mod 
18204}#))))
+                                            (cons (if (eq? #{m 17393}# 'c&e)
+                                                    (let ((#{x 19470}#
+                                                            
(#{build-global-definition 4277}#
+                                                              #{s 17640}#
+                                                              #{n 19269}#
+                                                              (#{expand 4334}#
+                                                                #{e 17638}#
+                                                                #{r 17390}#
+                                                                #{w 17639}#
+                                                                #{mod 
17641}#))))
                                                       (begin
-                                                        (#{top-level-eval-hook 
4261}#
-                                                          #{x 20058}#
-                                                          #{mod 18204}#)
-                                                        #{x 20058}#))
+                                                        (#{top-level-eval-hook 
4262}#
+                                                          #{x 19470}#
+                                                          #{mod 17641}#)
+                                                        #{x 19470}#))
                                                     (lambda ()
-                                                      
(#{build-global-definition 4276}#
-                                                        #{s 18203}#
-                                                        #{n 19857}#
-                                                        (#{expand 4333}#
-                                                          #{e 18201}#
-                                                          #{r 17928}#
-                                                          #{w 18202}#
-                                                          #{mod 18204}#))))
-                                                  #{exps 17934}#)))
-                                        (if (let ((#{t 20554}# #{type 19858}#))
-                                              (eqv? #{t 20554}#
+                                                      
(#{build-global-definition 4277}#
+                                                        #{s 17640}#
+                                                        #{n 19269}#
+                                                        (#{expand 4334}#
+                                                          #{e 17638}#
+                                                          #{r 17390}#
+                                                          #{w 17639}#
+                                                          #{mod 17641}#))))
+                                                  #{exps 17396}#)))
+                                        (if (let ((#{t 19941}# #{type 19270}#))
+                                              (eqv? #{t 19941}#
                                                     'displaced-lexical))
                                           (syntax-violation
                                             #f
                                             "identifier out of context"
-                                            #{e 18201}#
-                                            (#{wrap 4326}#
-                                              #{value 18200}#
-                                              #{w 18202}#
-                                              #{mod 18204}#))
+                                            #{e 17638}#
+                                            (#{wrap 4327}#
+                                              #{value 17637}#
+                                              #{w 17639}#
+                                              #{mod 17641}#))
                                           (syntax-violation
                                             #f
                                             "cannot define keyword at top 
level"
-                                            #{e 18201}#
-                                            (#{wrap 4326}#
-                                              #{value 18200}#
-                                              #{w 18202}#
-                                              #{mod 18204}#))))))
+                                            #{e 17638}#
+                                            (#{wrap 4327}#
+                                              #{value 17637}#
+                                              #{w 17639}#
+                                              #{mod 17641}#))))))
                                   (values
-                                    (cons (if (eq? #{m 17931}# 'c&e)
-                                            (let ((#{x 20689}#
-                                                    (#{expand-expr 4334}#
-                                                      #{type 18199}#
-                                                      #{value 18200}#
-                                                      #{e 18201}#
-                                                      #{r 17928}#
-                                                      #{w 18202}#
-                                                      #{s 18203}#
-                                                      #{mod 18204}#)))
+                                    (cons (if (eq? #{m 17393}# 'c&e)
+                                            (let ((#{x 20076}#
+                                                    (#{expand-expr 4335}#
+                                                      #{type 17636}#
+                                                      #{value 17637}#
+                                                      #{e 17638}#
+                                                      #{r 17390}#
+                                                      #{w 17639}#
+                                                      #{s 17640}#
+                                                      #{mod 17641}#)))
                                               (begin
-                                                (primitive-eval #{x 20689}#)
-                                                #{x 20689}#))
+                                                (primitive-eval #{x 20076}#)
+                                                #{x 20076}#))
                                             (lambda ()
-                                              (#{expand-expr 4334}#
-                                                #{type 18199}#
-                                                #{value 18200}#
-                                                #{e 18201}#
-                                                #{r 17928}#
-                                                #{w 18202}#
-                                                #{s 18203}#
-                                                #{mod 18204}#)))
-                                          #{exps 17934}#))))))))))
-                  (lambda (#{exps 20698}#)
-                    (#{scan 17796}#
-                      (cdr #{body 17927}#)
-                      #{r 17928}#
-                      #{w 17929}#
-                      #{s 17930}#
-                      #{m 17931}#
-                      #{esew 17932}#
-                      #{mod 17933}#
-                      #{exps 20698}#)))))))
+                                              (#{expand-expr 4335}#
+                                                #{type 17636}#
+                                                #{value 17637}#
+                                                #{e 17638}#
+                                                #{r 17390}#
+                                                #{w 17639}#
+                                                #{s 17640}#
+                                                #{mod 17641}#)))
+                                          #{exps 17396}#))))))))))
+                  (lambda (#{exps 20085}#)
+                    (#{scan 17258}#
+                      (cdr #{body 17389}#)
+                      #{r 17390}#
+                      #{w 17391}#
+                      #{s 17392}#
+                      #{m 17393}#
+                      #{esew 17394}#
+                      #{mod 17395}#
+                      #{exps 20085}#)))))))
          (call-with-values
            (lambda ()
-             (#{scan 17796}#
-               #{body 17789}#
-               #{r 17790}#
-               #{w 17791}#
-               #{s 17792}#
-               #{m 17793}#
-               #{esew 17794}#
-               #{mod 17795}#
+             (#{scan 17258}#
+               #{body 17251}#
+               #{r 17252}#
+               #{w 17253}#
+               #{s 17254}#
+               #{m 17255}#
+               #{esew 17256}#
+               #{mod 17257}#
                '()))
-           (lambda (#{exps 17799}#)
-             (if (null? #{exps 17799}#)
+           (lambda (#{exps 17261}#)
+             (if (null? #{exps 17261}#)
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 0)
-                 #{s 17792}#)
-               (#{build-sequence 4282}#
-                 #{s 17792}#
+                 #{s 17254}#)
+               (#{build-sequence 4283}#
+                 #{s 17254}#
                  (letrec*
-                   ((#{lp 17839}#
-                      (lambda (#{in 17923}# #{out 17924}#)
-                        (if (null? #{in 17923}#)
-                          #{out 17924}#
-                          (let ((#{e 17925}# (car #{in 17923}#)))
-                            (#{lp 17839}#
-                              (cdr #{in 17923}#)
-                              (cons (if (procedure? #{e 17925}#)
-                                      (#{e 17925}#)
-                                      #{e 17925}#)
-                                    #{out 17924}#)))))))
-                   (#{lp 17839}# #{exps 17799}# '())))))))))
-   (#{expand-install-global 4330}#
-     (lambda (#{name 20699}# #{e 20700}#)
-       (let ((#{exp 20706}#
-               (let ((#{fun-exp 20716}#
+                   ((#{lp 17301}#
+                      (lambda (#{in 17385}# #{out 17386}#)
+                        (if (null? #{in 17385}#)
+                          #{out 17386}#
+                          (let ((#{e 17387}# (car #{in 17385}#)))
+                            (#{lp 17301}#
+                              (cdr #{in 17385}#)
+                              (cons (if (procedure? #{e 17387}#)
+                                      (#{e 17387}#)
+                                      #{e 17387}#)
+                                    #{out 17386}#)))))))
+                   (#{lp 17301}# #{exps 17261}# '())))))))))
+   (#{expand-install-global 4331}#
+     (lambda (#{name 20086}# #{e 20087}#)
+       (let ((#{exp 20093}#
+               (let ((#{fun-exp 20103}#
                        (if (equal? (module-name (current-module)) '(guile))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 7)
@@ -1218,416 +1238,416 @@
                            '(guile)
                            'make-syntax-transformer
                            #f)))
-                     (#{arg-exps 20717}#
+                     (#{arg-exps 20104}#
                        (list (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
-                               #{name 20699}#)
+                               #{name 20086}#)
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
                                'macro)
-                             #{e 20700}#)))
+                             #{e 20087}#)))
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 11)
                    #f
-                   #{fun-exp 20716}#
-                   #{arg-exps 20717}#))))
+                   #{fun-exp 20103}#
+                   #{arg-exps 20104}#))))
          (begin
-           (if (if (struct? #{exp 20706}#)
-                 (eq? (struct-vtable #{exp 20706}#)
+           (if (if (struct? #{exp 20093}#)
+                 (eq? (struct-vtable #{exp 20093}#)
                       (vector-ref %expanded-vtables 13))
                  #f)
-             (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1)))
-               (if (not (assq 'name #{meta 20758}#))
-                 (let ((#{v 20765}#
-                         (cons (cons 'name #{name 20699}#) #{meta 20758}#)))
-                   (struct-set! #{exp 20706}# 1 #{v 20765}#)))))
+             (let ((#{meta 20145}# (struct-ref #{exp 20093}# 1)))
+               (if (not (assq 'name #{meta 20145}#))
+                 (let ((#{v 20152}#
+                         (cons (cons 'name #{name 20086}#) #{meta 20145}#)))
+                   (struct-set! #{exp 20093}# 1 #{v 20152}#)))))
            (make-struct/no-tail
              (vector-ref %expanded-vtables 9)
              #f
-             #{name 20699}#
-             #{exp 20706}#)))))
-   (#{parse-when-list 4331}#
-     (lambda (#{e 20776}# #{when-list 20777}#)
-       (let ((#{result 20778}#
-               (#{strip 4346}# #{when-list 20777}# '(()))))
+             #{name 20086}#
+             #{exp 20093}#)))))
+   (#{parse-when-list 4332}#
+     (lambda (#{e 20163}# #{when-list 20164}#)
+       (let ((#{result 20165}#
+               (#{strip 4347}# #{when-list 20164}# '(()))))
          (letrec*
-           ((#{lp 20779}#
-              (lambda (#{l 20833}#)
-                (if (null? #{l 20833}#)
-                  #{result 20778}#
-                  (if (let ((#{t 20835}# (car #{l 20833}#)))
-                        (if (eq? #{t 20835}# 'compile)
+           ((#{lp 20166}#
+              (lambda (#{l 20220}#)
+                (if (null? #{l 20220}#)
+                  #{result 20165}#
+                  (if (let ((#{t 20222}# (car #{l 20220}#)))
+                        (if (eq? #{t 20222}# 'compile)
                           #t
-                          (if (eq? #{t 20835}# 'load)
+                          (if (eq? #{t 20222}# 'load)
                             #t
-                            (if (eq? #{t 20835}# 'eval)
+                            (if (eq? #{t 20222}# 'eval)
                               #t
-                              (eq? #{t 20835}# 'expand)))))
-                    (#{lp 20779}# (cdr #{l 20833}#))
+                              (eq? #{t 20222}# 'expand)))))
+                    (#{lp 20166}# (cdr #{l 20220}#))
                     (syntax-violation
                       'eval-when
                       "invalid situation"
-                      #{e 20776}#
-                      (car #{l 20833}#)))))))
-           (#{lp 20779}# #{result 20778}#)))))
-   (#{syntax-type 4332}#
-     (lambda (#{e 20837}#
-              #{r 20838}#
-              #{w 20839}#
-              #{s 20840}#
-              #{rib 20841}#
-              #{mod 20842}#
-              #{for-car? 20843}#)
-       (if (symbol? #{e 20837}#)
-         (let ((#{n 20844}#
-                 (#{id-var-name 4320}# #{e 20837}# #{w 20839}#)))
-           (let ((#{b 20845}#
-                   (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#)))
-                     (if #{t 21420}#
-                       (cdr #{t 21420}#)
-                       (if (symbol? #{n 20844}#)
-                         (let ((#{t 21425}#
+                      #{e 20163}#
+                      (car #{l 20220}#)))))))
+           (#{lp 20166}# #{result 20165}#)))))
+   (#{syntax-type 4333}#
+     (lambda (#{e 20224}#
+              #{r 20225}#
+              #{w 20226}#
+              #{s 20227}#
+              #{rib 20228}#
+              #{mod 20229}#
+              #{for-car? 20230}#)
+       (if (symbol? #{e 20224}#)
+         (let ((#{n 20231}#
+                 (#{id-var-name 4321}# #{e 20224}# #{w 20226}#)))
+           (let ((#{b 20232}#
+                   (let ((#{t 20807}# (assq #{n 20231}# #{r 20225}#)))
+                     (if #{t 20807}#
+                       (cdr #{t 20807}#)
+                       (if (symbol? #{n 20231}#)
+                         (let ((#{t 20812}#
                                  (begin
-                                   (if (if (not #{mod 20842}#)
+                                   (if (if (not #{mod 20229}#)
                                          (current-module)
                                          #f)
                                      (warn "module system is booted, we should 
have a module"
-                                           #{n 20844}#))
-                                   (let ((#{v 21462}#
+                                           #{n 20231}#))
+                                   (let ((#{v 20849}#
                                            (module-variable
-                                             (if #{mod 20842}#
+                                             (if #{mod 20229}#
                                                (resolve-module
-                                                 (cdr #{mod 20842}#))
+                                                 (cdr #{mod 20229}#))
                                                (current-module))
-                                             #{n 20844}#)))
-                                     (if #{v 21462}#
-                                       (if (variable-bound? #{v 21462}#)
-                                         (let ((#{val 21471}#
-                                                 (variable-ref #{v 21462}#)))
-                                           (if (macro? #{val 21471}#)
-                                             (if (macro-type #{val 21471}#)
-                                               (cons (macro-type #{val 21471}#)
+                                             #{n 20231}#)))
+                                     (if #{v 20849}#
+                                       (if (variable-bound? #{v 20849}#)
+                                         (let ((#{val 20858}#
+                                                 (variable-ref #{v 20849}#)))
+                                           (if (macro? #{val 20858}#)
+                                             (if (macro-type #{val 20858}#)
+                                               (cons (macro-type #{val 20858}#)
                                                      (macro-binding
-                                                       #{val 21471}#))
+                                                       #{val 20858}#))
                                                #f)
                                              #f))
                                          #f)
                                        #f)))))
-                           (if #{t 21425}# #{t 21425}# '(global)))
+                           (if #{t 20812}# #{t 20812}# '(global)))
                          '(displaced-lexical))))))
-             (let ((#{type 20846}# (car #{b 20845}#)))
-               (if (let ((#{t 20880}# #{type 20846}#))
-                     (eqv? #{t 20880}# 'lexical))
+             (let ((#{type 20233}# (car #{b 20232}#)))
+               (if (let ((#{t 20267}# #{type 20233}#))
+                     (eqv? #{t 20267}# 'lexical))
                  (values
-                   #{type 20846}#
-                   (cdr #{b 20845}#)
-                   #{e 20837}#
-                   #{w 20839}#
-                   #{s 20840}#
-                   #{mod 20842}#)
-                 (if (let ((#{t 21037}# #{type 20846}#))
-                       (eqv? #{t 21037}# 'global))
+                   #{type 20233}#
+                   (cdr #{b 20232}#)
+                   #{e 20224}#
+                   #{w 20226}#
+                   #{s 20227}#
+                   #{mod 20229}#)
+                 (if (let ((#{t 20424}# #{type 20233}#))
+                       (eqv? #{t 20424}# 'global))
                    (values
-                     #{type 20846}#
-                     #{n 20844}#
-                     #{e 20837}#
-                     #{w 20839}#
-                     #{s 20840}#
-                     #{mod 20842}#)
-                   (if (let ((#{t 21163}# #{type 20846}#))
-                         (eqv? #{t 21163}# 'macro))
-                     (if #{for-car? 20843}#
+                     #{type 20233}#
+                     #{n 20231}#
+                     #{e 20224}#
+                     #{w 20226}#
+                     #{s 20227}#
+                     #{mod 20229}#)
+                   (if (let ((#{t 20550}# #{type 20233}#))
+                         (eqv? #{t 20550}# 'macro))
+                     (if #{for-car? 20230}#
                        (values
-                         #{type 20846}#
-                         (cdr #{b 20845}#)
-                         #{e 20837}#
-                         #{w 20839}#
-                         #{s 20840}#
-                         #{mod 20842}#)
-                       (#{syntax-type 4332}#
-                         (#{expand-macro 4336}#
-                           (cdr #{b 20845}#)
-                           #{e 20837}#
-                           #{r 20838}#
-                           #{w 20839}#
-                           #{s 20840}#
-                           #{rib 20841}#
-                           #{mod 20842}#)
-                         #{r 20838}#
+                         #{type 20233}#
+                         (cdr #{b 20232}#)
+                         #{e 20224}#
+                         #{w 20226}#
+                         #{s 20227}#
+                         #{mod 20229}#)
+                       (#{syntax-type 4333}#
+                         (#{expand-macro 4337}#
+                           (cdr #{b 20232}#)
+                           #{e 20224}#
+                           #{r 20225}#
+                           #{w 20226}#
+                           #{s 20227}#
+                           #{rib 20228}#
+                           #{mod 20229}#)
+                         #{r 20225}#
                          '(())
-                         #{s 20840}#
-                         #{rib 20841}#
-                         #{mod 20842}#
+                         #{s 20227}#
+                         #{rib 20228}#
+                         #{mod 20229}#
                          #f))
                      (values
-                       #{type 20846}#
-                       (cdr #{b 20845}#)
-                       #{e 20837}#
-                       #{w 20839}#
-                       #{s 20840}#
-                       #{mod 20842}#)))))))
-         (if (pair? #{e 20837}#)
-           (let ((#{first 21482}# (car #{e 20837}#)))
+                       #{type 20233}#
+                       (cdr #{b 20232}#)
+                       #{e 20224}#
+                       #{w 20226}#
+                       #{s 20227}#
+                       #{mod 20229}#)))))))
+         (if (pair? #{e 20224}#)
+           (let ((#{first 20869}# (car #{e 20224}#)))
              (call-with-values
                (lambda ()
-                 (#{syntax-type 4332}#
-                   #{first 21482}#
-                   #{r 20838}#
-                   #{w 20839}#
-                   #{s 20840}#
-                   #{rib 20841}#
-                   #{mod 20842}#
+                 (#{syntax-type 4333}#
+                   #{first 20869}#
+                   #{r 20225}#
+                   #{w 20226}#
+                   #{s 20227}#
+                   #{rib 20228}#
+                   #{mod 20229}#
                    #t))
-               (lambda (#{ftype 21484}#
-                        #{fval 21485}#
-                        #{fe 21486}#
-                        #{fw 21487}#
-                        #{fs 21488}#
-                        #{fmod 21489}#)
-                 (if (eqv? #{ftype 21484}# 'lexical)
+               (lambda (#{ftype 20871}#
+                        #{fval 20872}#
+                        #{fe 20873}#
+                        #{fw 20874}#
+                        #{fs 20875}#
+                        #{fmod 20876}#)
+                 (if (eqv? #{ftype 20871}# 'lexical)
                    (values
                      'lexical-call
-                     #{fval 21485}#
-                     #{e 20837}#
-                     #{w 20839}#
-                     #{s 20840}#
-                     #{mod 20842}#)
-                   (if (eqv? #{ftype 21484}# 'global)
+                     #{fval 20872}#
+                     #{e 20224}#
+                     #{w 20226}#
+                     #{s 20227}#
+                     #{mod 20229}#)
+                   (if (eqv? #{ftype 20871}# 'global)
                      (values
                        'global-call
                        (vector
                          'syntax-object
-                         #{fval 21485}#
-                         #{w 20839}#
-                         #{fmod 21489}#)
-                       #{e 20837}#
-                       #{w 20839}#
-                       #{s 20840}#
-                       #{mod 20842}#)
-                     (if (eqv? #{ftype 21484}# 'macro)
-                       (#{syntax-type 4332}#
-                         (#{expand-macro 4336}#
-                           #{fval 21485}#
-                           #{e 20837}#
-                           #{r 20838}#
-                           #{w 20839}#
-                           #{s 20840}#
-                           #{rib 20841}#
-                           #{mod 20842}#)
-                         #{r 20838}#
+                         #{fval 20872}#
+                         #{w 20226}#
+                         #{fmod 20876}#)
+                       #{e 20224}#
+                       #{w 20226}#
+                       #{s 20227}#
+                       #{mod 20229}#)
+                     (if (eqv? #{ftype 20871}# 'macro)
+                       (#{syntax-type 4333}#
+                         (#{expand-macro 4337}#
+                           #{fval 20872}#
+                           #{e 20224}#
+                           #{r 20225}#
+                           #{w 20226}#
+                           #{s 20227}#
+                           #{rib 20228}#
+                           #{mod 20229}#)
+                         #{r 20225}#
                          '(())
-                         #{s 20840}#
-                         #{rib 20841}#
-                         #{mod 20842}#
-                         #{for-car? 20843}#)
-                       (if (eqv? #{ftype 21484}# 'module-ref)
+                         #{s 20227}#
+                         #{rib 20228}#
+                         #{mod 20229}#
+                         #{for-car? 20230}#)
+                       (if (eqv? #{ftype 20871}# 'module-ref)
                          (call-with-values
                            (lambda ()
-                             (#{fval 21485}#
-                               #{e 20837}#
-                               #{r 20838}#
-                               #{w 20839}#))
-                           (lambda (#{e 21510}#
-                                    #{r 21511}#
-                                    #{w 21512}#
-                                    #{s 21513}#
-                                    #{mod 21514}#)
-                             (#{syntax-type 4332}#
-                               #{e 21510}#
-                               #{r 21511}#
-                               #{w 21512}#
-                               #{s 21513}#
-                               #{rib 20841}#
-                               #{mod 21514}#
-                               #{for-car? 20843}#)))
-                         (if (eqv? #{ftype 21484}# 'core)
+                             (#{fval 20872}#
+                               #{e 20224}#
+                               #{r 20225}#
+                               #{w 20226}#))
+                           (lambda (#{e 20897}#
+                                    #{r 20898}#
+                                    #{w 20899}#
+                                    #{s 20900}#
+                                    #{mod 20901}#)
+                             (#{syntax-type 4333}#
+                               #{e 20897}#
+                               #{r 20898}#
+                               #{w 20899}#
+                               #{s 20900}#
+                               #{rib 20228}#
+                               #{mod 20901}#
+                               #{for-car? 20230}#)))
+                         (if (eqv? #{ftype 20871}# 'core)
                            (values
                              'core-form
-                             #{fval 21485}#
-                             #{e 20837}#
-                             #{w 20839}#
-                             #{s 20840}#
-                             #{mod 20842}#)
-                           (if (eqv? #{ftype 21484}# 'local-syntax)
+                             #{fval 20872}#
+                             #{e 20224}#
+                             #{w 20226}#
+                             #{s 20227}#
+                             #{mod 20229}#)
+                           (if (eqv? #{ftype 20871}# 'local-syntax)
                              (values
                                'local-syntax-form
-                               #{fval 21485}#
-                               #{e 20837}#
-                               #{w 20839}#
-                               #{s 20840}#
-                               #{mod 20842}#)
-                             (if (eqv? #{ftype 21484}# 'begin)
+                               #{fval 20872}#
+                               #{e 20224}#
+                               #{w 20226}#
+                               #{s 20227}#
+                               #{mod 20229}#)
+                             (if (eqv? #{ftype 20871}# 'begin)
                                (values
                                  'begin-form
                                  #f
-                                 #{e 20837}#
-                                 #{w 20839}#
-                                 #{s 20840}#
-                                 #{mod 20842}#)
-                               (if (eqv? #{ftype 21484}# 'eval-when)
+                                 #{e 20224}#
+                                 #{w 20226}#
+                                 #{s 20227}#
+                                 #{mod 20229}#)
+                               (if (eqv? #{ftype 20871}# 'eval-when)
                                  (values
                                    'eval-when-form
                                    #f
-                                   #{e 20837}#
-                                   #{w 20839}#
-                                   #{s 20840}#
-                                   #{mod 20842}#)
-                                 (if (eqv? #{ftype 21484}# 'define)
-                                   (let ((#{tmp 21531}#
+                                   #{e 20224}#
+                                   #{w 20226}#
+                                   #{s 20227}#
+                                   #{mod 20229}#)
+                                 (if (eqv? #{ftype 20871}# 'define)
+                                   (let ((#{tmp 20918}#
                                            ($sc-dispatch
-                                             #{e 20837}#
+                                             #{e 20224}#
                                              '(_ any any))))
-                                     (if (if #{tmp 21531}#
+                                     (if (if #{tmp 20918}#
                                            (@apply
-                                             (lambda (#{name 21535}#
-                                                      #{val 21536}#)
-                                               (if (symbol? #{name 21535}#)
+                                             (lambda (#{name 20922}#
+                                                      #{val 20923}#)
+                                               (if (symbol? #{name 20922}#)
                                                  #t
                                                  (if (if (vector?
-                                                           #{name 21535}#)
+                                                           #{name 20922}#)
                                                        (if (= (vector-length
-                                                                #{name 21535}#)
+                                                                #{name 20922}#)
                                                               4)
                                                          (eq? (vector-ref
-                                                                #{name 21535}#
+                                                                #{name 20922}#
                                                                 0)
                                                               'syntax-object)
                                                          #f)
                                                        #f)
                                                    (symbol?
                                                      (vector-ref
-                                                       #{name 21535}#
+                                                       #{name 20922}#
                                                        1))
                                                    #f)))
-                                             #{tmp 21531}#)
+                                             #{tmp 20918}#)
                                            #f)
                                        (@apply
-                                         (lambda (#{name 21563}# #{val 21564}#)
+                                         (lambda (#{name 20950}# #{val 20951}#)
                                            (values
                                              'define-form
-                                             #{name 21563}#
-                                             #{val 21564}#
-                                             #{w 20839}#
-                                             #{s 20840}#
-                                             #{mod 20842}#))
-                                         #{tmp 21531}#)
-                                       (let ((#{tmp 21565}#
+                                             #{name 20950}#
+                                             #{val 20951}#
+                                             #{w 20226}#
+                                             #{s 20227}#
+                                             #{mod 20229}#))
+                                         #{tmp 20918}#)
+                                       (let ((#{tmp 20952}#
                                                ($sc-dispatch
-                                                 #{e 20837}#
+                                                 #{e 20224}#
                                                  '(_ (any . any)
                                                      any
                                                      .
                                                      each-any))))
-                                         (if (if #{tmp 21565}#
+                                         (if (if #{tmp 20952}#
                                                (@apply
-                                                 (lambda (#{name 21569}#
-                                                          #{args 21570}#
-                                                          #{e1 21571}#
-                                                          #{e2 21572}#)
+                                                 (lambda (#{name 20956}#
+                                                          #{args 20957}#
+                                                          #{e1 20958}#
+                                                          #{e2 20959}#)
                                                    (if (if (symbol?
-                                                             #{name 21569}#)
+                                                             #{name 20956}#)
                                                          #t
                                                          (if (if (vector?
-                                                                   #{name 
21569}#)
+                                                                   #{name 
20956}#)
                                                                (if (= 
(vector-length
-                                                                        #{name 
21569}#)
+                                                                        #{name 
20956}#)
                                                                       4)
                                                                  (eq? 
(vector-ref
-                                                                        #{name 
21569}#
+                                                                        #{name 
20956}#
                                                                         0)
                                                                       
'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (symbol?
                                                              (vector-ref
-                                                               #{name 21569}#
+                                                               #{name 20956}#
                                                                1))
                                                            #f))
-                                                     (#{valid-bound-ids? 4323}#
+                                                     (#{valid-bound-ids? 4324}#
                                                        (letrec*
-                                                         ((#{lvl 21721}#
-                                                            (lambda (#{vars 
21723}#
-                                                                     #{ls 
21724}#
-                                                                     #{w 
21725}#)
-                                                              (if (pair? 
#{vars 21723}#)
-                                                                (#{lvl 21721}#
-                                                                  (cdr #{vars 
21723}#)
-                                                                  (cons 
(#{wrap 4326}#
-                                                                          (car 
#{vars 21723}#)
-                                                                          #{w 
21725}#
+                                                         ((#{lvl 21108}#
+                                                            (lambda (#{vars 
21110}#
+                                                                     #{ls 
21111}#
+                                                                     #{w 
21112}#)
+                                                              (if (pair? 
#{vars 21110}#)
+                                                                (#{lvl 21108}#
+                                                                  (cdr #{vars 
21110}#)
+                                                                  (cons 
(#{wrap 4327}#
+                                                                          (car 
#{vars 21110}#)
+                                                                          #{w 
21112}#
                                                                           #f)
-                                                                        #{ls 
21724}#)
-                                                                  #{w 21725}#)
+                                                                        #{ls 
21111}#)
+                                                                  #{w 21112}#)
                                                                 (if (if 
(symbol?
-                                                                          
#{vars 21723}#)
+                                                                          
#{vars 21110}#)
                                                                       #t
                                                                       (if (if 
(vector?
-                                                                               
 #{vars 21723}#)
+                                                                               
 #{vars 21110}#)
                                                                             
(if (= (vector-length
-                                                                               
      #{vars 21723}#)
+                                                                               
      #{vars 21110}#)
                                                                                
    4)
                                                                               
(eq? (vector-ref
-                                                                               
      #{vars 21723}#
+                                                                               
      #{vars 21110}#
                                                                                
      0)
                                                                                
    'syntax-object)
                                                                               
#f)
                                                                             #f)
                                                                         
(symbol?
                                                                           
(vector-ref
-                                                                            
#{vars 21723}#
+                                                                            
#{vars 21110}#
                                                                             1))
                                                                         #f))
-                                                                  (cons 
(#{wrap 4326}#
-                                                                          
#{vars 21723}#
-                                                                          #{w 
21725}#
+                                                                  (cons 
(#{wrap 4327}#
+                                                                          
#{vars 21110}#
+                                                                          #{w 
21112}#
                                                                           #f)
-                                                                        #{ls 
21724}#)
-                                                                  (if (null? 
#{vars 21723}#)
-                                                                    #{ls 
21724}#
+                                                                        #{ls 
21111}#)
+                                                                  (if (null? 
#{vars 21110}#)
+                                                                    #{ls 
21111}#
                                                                     (if (if 
(vector?
-                                                                              
#{vars 21723}#)
+                                                                              
#{vars 21110}#)
                                                                           (if 
(= (vector-length
-                                                                               
    #{vars 21723}#)
+                                                                               
    #{vars 21110}#)
                                                                                
  4)
                                                                             
(eq? (vector-ref
-                                                                               
    #{vars 21723}#
+                                                                               
    #{vars 21110}#
                                                                                
    0)
                                                                                
  'syntax-object)
                                                                             #f)
                                                                           #f)
-                                                                      (#{lvl 
21721}#
+                                                                      (#{lvl 
21108}#
                                                                         
(vector-ref
-                                                                          
#{vars 21723}#
+                                                                          
#{vars 21110}#
                                                                           1)
-                                                                        #{ls 
21724}#
-                                                                        
(#{join-wraps 4317}#
-                                                                          #{w 
21725}#
+                                                                        #{ls 
21111}#
+                                                                        
(#{join-wraps 4318}#
+                                                                          #{w 
21112}#
                                                                           
(vector-ref
-                                                                            
#{vars 21723}#
+                                                                            
#{vars 21110}#
                                                                             
2)))
-                                                                      (cons 
#{vars 21723}#
-                                                                            
#{ls 21724}#))))))))
-                                                         (#{lvl 21721}#
-                                                           #{args 21570}#
+                                                                      (cons 
#{vars 21110}#
+                                                                            
#{ls 21111}#))))))))
+                                                         (#{lvl 21108}#
+                                                           #{args 20957}#
                                                            '()
                                                            '(()))))
                                                      #f))
-                                                 #{tmp 21565}#)
+                                                 #{tmp 20952}#)
                                                #f)
                                            (@apply
-                                             (lambda (#{name 21769}#
-                                                      #{args 21770}#
-                                                      #{e1 21771}#
-                                                      #{e2 21772}#)
+                                             (lambda (#{name 21156}#
+                                                      #{args 21157}#
+                                                      #{e1 21158}#
+                                                      #{e2 21159}#)
                                                (values
                                                  'define-form
-                                                 (#{wrap 4326}#
-                                                   #{name 21769}#
-                                                   #{w 20839}#
-                                                   #{mod 20842}#)
-                                                 (let ((#{e 21778}#
+                                                 (#{wrap 4327}#
+                                                   #{name 21156}#
+                                                   #{w 20226}#
+                                                   #{mod 20229}#)
+                                                 (let ((#{e 21165}#
                                                          (cons '#(syntax-object
                                                                   lambda
                                                                   ((top)
@@ -2134,60 +2154,60 @@
                                                                       "i44")))
                                                                   (hygiene
                                                                     guile))
-                                                               (#{wrap 4326}#
-                                                                 (cons #{args 
21770}#
-                                                                       (cons 
#{e1 21771}#
-                                                                             
#{e2 21772}#))
-                                                                 #{w 20839}#
-                                                                 #{mod 
20842}#))))
+                                                               (#{wrap 4327}#
+                                                                 (cons #{args 
21157}#
+                                                                       (cons 
#{e1 21158}#
+                                                                             
#{e2 21159}#))
+                                                                 #{w 20226}#
+                                                                 #{mod 
20229}#))))
                                                    (begin
-                                                     (if (if (pair? #{e 
21778}#)
-                                                           #{s 20840}#
+                                                     (if (if (pair? #{e 
21165}#)
+                                                           #{s 20227}#
                                                            #f)
                                                        (set-source-properties!
-                                                         #{e 21778}#
-                                                         #{s 20840}#))
-                                                     #{e 21778}#))
+                                                         #{e 21165}#
+                                                         #{s 20227}#))
+                                                     #{e 21165}#))
                                                  '(())
-                                                 #{s 20840}#
-                                                 #{mod 20842}#))
-                                             #{tmp 21565}#)
-                                           (let ((#{tmp 21785}#
+                                                 #{s 20227}#
+                                                 #{mod 20229}#))
+                                             #{tmp 20952}#)
+                                           (let ((#{tmp 21172}#
                                                    ($sc-dispatch
-                                                     #{e 20837}#
+                                                     #{e 20224}#
                                                      '(_ any))))
-                                             (if (if #{tmp 21785}#
+                                             (if (if #{tmp 21172}#
                                                    (@apply
-                                                     (lambda (#{name 21789}#)
+                                                     (lambda (#{name 21176}#)
                                                        (if (symbol?
-                                                             #{name 21789}#)
+                                                             #{name 21176}#)
                                                          #t
                                                          (if (if (vector?
-                                                                   #{name 
21789}#)
+                                                                   #{name 
21176}#)
                                                                (if (= 
(vector-length
-                                                                        #{name 
21789}#)
+                                                                        #{name 
21176}#)
                                                                       4)
                                                                  (eq? 
(vector-ref
-                                                                        #{name 
21789}#
+                                                                        #{name 
21176}#
                                                                         0)
                                                                       
'syntax-object)
                                                                  #f)
                                                                #f)
                                                            (symbol?
                                                              (vector-ref
-                                                               #{name 21789}#
+                                                               #{name 21176}#
                                                                1))
                                                            #f)))
-                                                     #{tmp 21785}#)
+                                                     #{tmp 21172}#)
                                                    #f)
                                                (@apply
-                                                 (lambda (#{name 21816}#)
+                                                 (lambda (#{name 21203}#)
                                                    (values
                                                      'define-form
-                                                     (#{wrap 4326}#
-                                                       #{name 21816}#
-                                                       #{w 20839}#
-                                                       #{mod 20842}#)
+                                                     (#{wrap 4327}#
+                                                       #{name 21203}#
+                                                       #{w 20226}#
+                                                       #{mod 20229}#)
                                                      '(#(syntax-object
                                                          if
                                                          ((top)
@@ -3617,969 +3637,1061 @@
                                                              "i44")))
                                                          (hygiene guile)))
                                                      '(())
-                                                     #{s 20840}#
-                                                     #{mod 20842}#))
-                                                 #{tmp 21785}#)
+                                                     #{s 20227}#
+                                                     #{mod 20229}#))
+                                                 #{tmp 21172}#)
                                                (syntax-violation
                                                  #f
                                                  "source expression failed to 
match any pattern"
-                                                 #{e 20837}#)))))))
-                                   (if (eqv? #{ftype 21484}# 'define-syntax)
-                                     (let ((#{tmp 21835}#
+                                                 #{e 20224}#)))))))
+                                   (if (eqv? #{ftype 20871}# 'define-syntax)
+                                     (let ((#{tmp 21222}#
                                              ($sc-dispatch
-                                               #{e 20837}#
+                                               #{e 20224}#
                                                '(_ any any))))
-                                       (if (if #{tmp 21835}#
+                                       (if (if #{tmp 21222}#
                                              (@apply
-                                               (lambda (#{name 21839}#
-                                                        #{val 21840}#)
-                                                 (if (symbol? #{name 21839}#)
+                                               (lambda (#{name 21226}#
+                                                        #{val 21227}#)
+                                                 (if (symbol? #{name 21226}#)
                                                    #t
                                                    (if (if (vector?
-                                                             #{name 21839}#)
+                                                             #{name 21226}#)
                                                          (if (= (vector-length
-                                                                  #{name 
21839}#)
+                                                                  #{name 
21226}#)
                                                                 4)
                                                            (eq? (vector-ref
-                                                                  #{name 
21839}#
+                                                                  #{name 
21226}#
                                                                   0)
                                                                 'syntax-object)
                                                            #f)
                                                          #f)
                                                      (symbol?
                                                        (vector-ref
-                                                         #{name 21839}#
+                                                         #{name 21226}#
                                                          1))
                                                      #f)))
-                                               #{tmp 21835}#)
+                                               #{tmp 21222}#)
                                              #f)
                                          (@apply
-                                           (lambda (#{name 21867}#
-                                                    #{val 21868}#)
+                                           (lambda (#{name 21254}#
+                                                    #{val 21255}#)
                                              (values
                                                'define-syntax-form
-                                               #{name 21867}#
-                                               #{val 21868}#
-                                               #{w 20839}#
-                                               #{s 20840}#
-                                               #{mod 20842}#))
-                                           #{tmp 21835}#)
+                                               #{name 21254}#
+                                               #{val 21255}#
+                                               #{w 20226}#
+                                               #{s 20227}#
+                                               #{mod 20229}#))
+                                           #{tmp 21222}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{e 20837}#)))
+                                           #{e 20224}#)))
                                      (values
                                        'call
                                        #f
-                                       #{e 20837}#
-                                       #{w 20839}#
-                                       #{s 20840}#
-                                       #{mod 20842}#))))))))))))))
-           (if (if (vector? #{e 20837}#)
-                 (if (= (vector-length #{e 20837}#) 4)
-                   (eq? (vector-ref #{e 20837}# 0) 'syntax-object)
+                                       #{e 20224}#
+                                       #{w 20226}#
+                                       #{s 20227}#
+                                       #{mod 20229}#))))))))))))))
+           (if (if (vector? #{e 20224}#)
+                 (if (= (vector-length #{e 20224}#) 4)
+                   (eq? (vector-ref #{e 20224}# 0) 'syntax-object)
                    #f)
                  #f)
-             (#{syntax-type 4332}#
-               (vector-ref #{e 20837}# 1)
-               #{r 20838}#
-               (#{join-wraps 4317}#
-                 #{w 20839}#
-                 (vector-ref #{e 20837}# 2))
-               (let ((#{t 21895}#
-                       (#{source-annotation 4294}# #{e 20837}#)))
-                 (if #{t 21895}# #{t 21895}# #{s 20840}#))
-               #{rib 20841}#
-               (let ((#{t 22155}# (vector-ref #{e 20837}# 3)))
-                 (if #{t 22155}# #{t 22155}# #{mod 20842}#))
-               #{for-car? 20843}#)
-             (if (self-evaluating? #{e 20837}#)
+             (#{syntax-type 4333}#
+               (vector-ref #{e 20224}# 1)
+               #{r 20225}#
+               (#{join-wraps 4318}#
+                 #{w 20226}#
+                 (vector-ref #{e 20224}# 2))
+               (let ((#{t 21282}#
+                       (#{source-annotation 4295}# #{e 20224}#)))
+                 (if #{t 21282}# #{t 21282}# #{s 20227}#))
+               #{rib 20228}#
+               (let ((#{t 21517}# (vector-ref #{e 20224}# 3)))
+                 (if #{t 21517}# #{t 21517}# #{mod 20229}#))
+               #{for-car? 20230}#)
+             (if (self-evaluating? #{e 20224}#)
                (values
                  'constant
                  #f
-                 #{e 20837}#
-                 #{w 20839}#
-                 #{s 20840}#
-                 #{mod 20842}#)
+                 #{e 20224}#
+                 #{w 20226}#
+                 #{s 20227}#
+                 #{mod 20229}#)
                (values
                  'other
                  #f
-                 #{e 20837}#
-                 #{w 20839}#
-                 #{s 20840}#
-                 #{mod 20842}#)))))))
-   (#{expand 4333}#
-     (lambda (#{e 22164}#
-              #{r 22165}#
-              #{w 22166}#
-              #{mod 22167}#)
+                 #{e 20224}#
+                 #{w 20226}#
+                 #{s 20227}#
+                 #{mod 20229}#)))))))
+   (#{expand 4334}#
+     (lambda (#{e 21526}#
+              #{r 21527}#
+              #{w 21528}#
+              #{mod 21529}#)
        (call-with-values
          (lambda ()
-           (#{syntax-type 4332}#
-             #{e 22164}#
-             #{r 22165}#
-             #{w 22166}#
-             (#{source-annotation 4294}# #{e 22164}#)
+           (#{syntax-type 4333}#
+             #{e 21526}#
+             #{r 21527}#
+             #{w 21528}#
+             (#{source-annotation 4295}# #{e 21526}#)
              #f
-             #{mod 22167}#
+             #{mod 21529}#
              #f))
-         (lambda (#{type 22341}#
-                  #{value 22342}#
-                  #{e 22343}#
-                  #{w 22344}#
-                  #{s 22345}#
-                  #{mod 22346}#)
-           (#{expand-expr 4334}#
-             #{type 22341}#
-             #{value 22342}#
-             #{e 22343}#
-             #{r 22165}#
-             #{w 22344}#
-             #{s 22345}#
-             #{mod 22346}#)))))
-   (#{expand-expr 4334}#
-     (lambda (#{type 22349}#
-              #{value 22350}#
-              #{e 22351}#
-              #{r 22352}#
-              #{w 22353}#
-              #{s 22354}#
-              #{mod 22355}#)
-       (if (eqv? #{type 22349}# 'lexical)
+         (lambda (#{type 21684}#
+                  #{value 21685}#
+                  #{e 21686}#
+                  #{w 21687}#
+                  #{s 21688}#
+                  #{mod 21689}#)
+           (#{expand-expr 4335}#
+             #{type 21684}#
+             #{value 21685}#
+             #{e 21686}#
+             #{r 21527}#
+             #{w 21687}#
+             #{s 21688}#
+             #{mod 21689}#)))))
+   (#{expand-expr 4335}#
+     (lambda (#{type 21692}#
+              #{value 21693}#
+              #{e 21694}#
+              #{r 21695}#
+              #{w 21696}#
+              #{s 21697}#
+              #{mod 21698}#)
+       (if (eqv? #{type 21692}# 'lexical)
          (make-struct/no-tail
            (vector-ref %expanded-vtables 3)
-           #{s 22354}#
-           #{e 22351}#
-           #{value 22350}#)
-         (if (if (eqv? #{type 22349}# 'core)
+           #{s 21697}#
+           #{e 21694}#
+           #{value 21693}#)
+         (if (if (eqv? #{type 21692}# 'core)
                #t
-               (eqv? #{type 22349}# 'core-form))
-           (#{value 22350}#
-             #{e 22351}#
-             #{r 22352}#
-             #{w 22353}#
-             #{s 22354}#
-             #{mod 22355}#)
-           (if (eqv? #{type 22349}# 'module-ref)
+               (eqv? #{type 21692}# 'core-form))
+           (#{value 21693}#
+             #{e 21694}#
+             #{r 21695}#
+             #{w 21696}#
+             #{s 21697}#
+             #{mod 21698}#)
+           (if (eqv? #{type 21692}# 'module-ref)
              (call-with-values
                (lambda ()
-                 (#{value 22350}#
-                   #{e 22351}#
-                   #{r 22352}#
-                   #{w 22353}#))
-               (lambda (#{e 22381}#
-                        #{r 22382}#
-                        #{w 22383}#
-                        #{s 22384}#
-                        #{mod 22385}#)
-                 (#{expand 4333}#
-                   #{e 22381}#
-                   #{r 22382}#
-                   #{w 22383}#
-                   #{mod 22385}#)))
-             (if (eqv? #{type 22349}# 'lexical-call)
-               (#{expand-application 4335}#
-                 (let ((#{id 22465}# (car #{e 22351}#)))
-                   (#{build-lexical-reference 4271}#
+                 (#{value 21693}#
+                   #{e 21694}#
+                   #{r 21695}#
+                   #{w 21696}#))
+               (lambda (#{e 21724}#
+                        #{r 21725}#
+                        #{w 21726}#
+                        #{s 21727}#
+                        #{mod 21728}#)
+                 (#{expand 4334}#
+                   #{e 21724}#
+                   #{r 21725}#
+                   #{w 21726}#
+                   #{mod 21728}#)))
+             (if (eqv? #{type 21692}# 'lexical-call)
+               (#{expand-application 4336}#
+                 (let ((#{id 21803}# (car #{e 21694}#)))
+                   (#{build-lexical-reference 4272}#
                      'fun
-                     (#{source-annotation 4294}# #{id 22465}#)
-                     (if (if (vector? #{id 22465}#)
-                           (if (= (vector-length #{id 22465}#) 4)
-                             (eq? (vector-ref #{id 22465}# 0) 'syntax-object)
+                     (#{source-annotation 4295}# #{id 21803}#)
+                     (if (if (vector? #{id 21803}#)
+                           (if (= (vector-length #{id 21803}#) 4)
+                             (eq? (vector-ref #{id 21803}# 0) 'syntax-object)
                              #f)
                            #f)
-                       (syntax->datum #{id 22465}#)
-                       #{id 22465}#)
-                     #{value 22350}#))
-                 #{e 22351}#
-                 #{r 22352}#
-                 #{w 22353}#
-                 #{s 22354}#
-                 #{mod 22355}#)
-               (if (eqv? #{type 22349}# 'global-call)
-                 (#{expand-application 4335}#
-                   (#{build-global-reference 4274}#
-                     (#{source-annotation 4294}# (car #{e 22351}#))
-                     (if (if (vector? #{value 22350}#)
-                           (if (= (vector-length #{value 22350}#) 4)
-                             (eq? (vector-ref #{value 22350}# 0)
+                       (syntax->datum #{id 21803}#)
+                       #{id 21803}#)
+                     #{value 21693}#))
+                 #{e 21694}#
+                 #{r 21695}#
+                 #{w 21696}#
+                 #{s 21697}#
+                 #{mod 21698}#)
+               (if (eqv? #{type 21692}# 'global-call)
+                 (#{expand-application 4336}#
+                   (#{build-global-reference 4275}#
+                     (#{source-annotation 4295}# (car #{e 21694}#))
+                     (if (if (vector? #{value 21693}#)
+                           (if (= (vector-length #{value 21693}#) 4)
+                             (eq? (vector-ref #{value 21693}# 0)
                                   'syntax-object)
                              #f)
                            #f)
-                       (vector-ref #{value 22350}# 1)
-                       #{value 22350}#)
-                     (if (if (vector? #{value 22350}#)
-                           (if (= (vector-length #{value 22350}#) 4)
-                             (eq? (vector-ref #{value 22350}# 0)
+                       (vector-ref #{value 21693}# 1)
+                       #{value 21693}#)
+                     (if (if (vector? #{value 21693}#)
+                           (if (= (vector-length #{value 21693}#) 4)
+                             (eq? (vector-ref #{value 21693}# 0)
                                   'syntax-object)
                              #f)
                            #f)
-                       (vector-ref #{value 22350}# 3)
-                       #{mod 22355}#))
-                   #{e 22351}#
-                   #{r 22352}#
-                   #{w 22353}#
-                   #{s 22354}#
-                   #{mod 22355}#)
-                 (if (eqv? #{type 22349}# 'constant)
-                   (let ((#{exp 23001}#
-                           (#{strip 4346}#
-                             (#{wrap 4326}#
+                       (vector-ref #{value 21693}# 3)
+                       #{mod 21698}#))
+                   #{e 21694}#
+                   #{r 21695}#
+                   #{w 21696}#
+                   #{s 21697}#
+                   #{mod 21698}#)
+                 (if (eqv? #{type 21692}# 'constant)
+                   (let ((#{exp 22140}#
+                           (#{strip 4347}#
+                             (#{wrap 4327}#
                                (begin
-                                 (if (if (pair? #{e 22351}#) #{s 22354}# #f)
+                                 (if (if (pair? #{e 21694}#) #{s 21697}# #f)
                                    (set-source-properties!
-                                     #{e 22351}#
-                                     #{s 22354}#))
-                                 #{e 22351}#)
-                               #{w 22353}#
-                               #{mod 22355}#)
+                                     #{e 21694}#
+                                     #{s 21697}#))
+                                 #{e 21694}#)
+                               #{w 21696}#
+                               #{mod 21698}#)
                              '(()))))
                      (make-struct/no-tail
                        (vector-ref %expanded-vtables 1)
-                       #{s 22354}#
-                       #{exp 23001}#))
-                   (if (eqv? #{type 22349}# 'global)
-                     (#{analyze-variable 4273}#
-                       #{mod 22355}#
-                       #{value 22350}#
-                       (lambda (#{mod 23037}# #{var 23038}# #{public? 23039}#)
+                       #{s 21697}#
+                       #{exp 22140}#))
+                   (if (eqv? #{type 21692}# 'global)
+                     (#{analyze-variable 4274}#
+                       #{mod 21698}#
+                       #{value 21693}#
+                       (lambda (#{mod 22176}# #{var 22177}# #{public? 22178}#)
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 5)
-                           #{s 22354}#
-                           #{mod 23037}#
-                           #{var 23038}#
-                           #{public? 23039}#))
-                       (lambda (#{var 23048}#)
+                           #{s 21697}#
+                           #{mod 22176}#
+                           #{var 22177}#
+                           #{public? 22178}#))
+                       (lambda (#{var 22187}#)
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 7)
-                           #{s 22354}#
-                           #{var 23048}#)))
-                     (if (eqv? #{type 22349}# 'call)
-                       (#{expand-application 4335}#
-                         (#{expand 4333}#
-                           (car #{e 22351}#)
-                           #{r 22352}#
-                           #{w 22353}#
-                           #{mod 22355}#)
-                         #{e 22351}#
-                         #{r 22352}#
-                         #{w 22353}#
-                         #{s 22354}#
-                         #{mod 22355}#)
-                       (if (eqv? #{type 22349}# 'begin-form)
-                         (let ((#{tmp 23128}#
+                           #{s 21697}#
+                           #{var 22187}#)))
+                     (if (eqv? #{type 21692}# 'call)
+                       (#{expand-application 4336}#
+                         (#{expand 4334}#
+                           (car #{e 21694}#)
+                           #{r 21695}#
+                           #{w 21696}#
+                           #{mod 21698}#)
+                         #{e 21694}#
+                         #{r 21695}#
+                         #{w 21696}#
+                         #{s 21697}#
+                         #{mod 21698}#)
+                       (if (eqv? #{type 21692}# 'begin-form)
+                         (let ((#{tmp 22262}#
                                  ($sc-dispatch
-                                   #{e 22351}#
+                                   #{e 21694}#
                                    '(_ any . each-any))))
-                           (if #{tmp 23128}#
+                           (if #{tmp 22262}#
                              (@apply
-                               (lambda (#{e1 23132}# #{e2 23133}#)
-                                 (#{expand-sequence 4328}#
-                                   (cons #{e1 23132}# #{e2 23133}#)
-                                   #{r 22352}#
-                                   #{w 22353}#
-                                   #{s 22354}#
-                                   #{mod 22355}#))
-                               #{tmp 23128}#)
-                             (syntax-violation
-                               #f
-                               "source expression failed to match any pattern"
-                               #{e 22351}#)))
-                         (if (eqv? #{type 22349}# 'local-syntax-form)
-                           (#{expand-local-syntax 4338}#
-                             #{value 22350}#
-                             #{e 22351}#
-                             #{r 22352}#
-                             #{w 22353}#
-                             #{s 22354}#
-                             #{mod 22355}#
-                             #{expand-sequence 4328}#)
-                           (if (eqv? #{type 22349}# 'eval-when-form)
-                             (let ((#{tmp 23299}#
+                               (lambda (#{e1 22266}# #{e2 22267}#)
+                                 (#{expand-sequence 4329}#
+                                   (cons #{e1 22266}# #{e2 22267}#)
+                                   #{r 21695}#
+                                   #{w 21696}#
+                                   #{s 21697}#
+                                   #{mod 21698}#))
+                               #{tmp 22262}#)
+                             (let ((#{tmp 22354}#
+                                     ($sc-dispatch #{e 21694}# '(_))))
+                               (if #{tmp 22354}#
+                                 (@apply
+                                   (lambda ()
+                                     (begin
+                                       (issue-deprecation-warning
+                                         "Sequences of zero expressions are 
deprecated.  Use *unspecified*.")
+                                       (make-struct/no-tail
+                                         (vector-ref %expanded-vtables 0)
+                                         #f)))
+                                   #{tmp 22354}#)
+                                 (syntax-violation
+                                   #f
+                                   "source expression failed to match any 
pattern"
+                                   #{e 21694}#)))))
+                         (if (eqv? #{type 21692}# 'local-syntax-form)
+                           (#{expand-local-syntax 4339}#
+                             #{value 21693}#
+                             #{e 21694}#
+                             #{r 21695}#
+                             #{w 21696}#
+                             #{s 21697}#
+                             #{mod 21698}#
+                             #{expand-sequence 4329}#)
+                           (if (eqv? #{type 21692}# 'eval-when-form)
+                             (let ((#{tmp 22443}#
                                      ($sc-dispatch
-                                       #{e 22351}#
+                                       #{e 21694}#
                                        '(_ each-any any . each-any))))
-                               (if #{tmp 23299}#
+                               (if #{tmp 22443}#
                                  (@apply
-                                   (lambda (#{x 23303}#
-                                            #{e1 23304}#
-                                            #{e2 23305}#)
-                                     (let ((#{when-list 23306}#
-                                             (#{parse-when-list 4331}#
-                                               #{e 22351}#
-                                               #{x 23303}#)))
-                                       (if (memq 'eval #{when-list 23306}#)
-                                         (#{expand-sequence 4328}#
-                                           (cons #{e1 23304}# #{e2 23305}#)
-                                           #{r 22352}#
-                                           #{w 22353}#
-                                           #{s 22354}#
-                                           #{mod 22355}#)
+                                   (lambda (#{x 22447}#
+                                            #{e1 22448}#
+                                            #{e2 22449}#)
+                                     (let ((#{when-list 22450}#
+                                             (#{parse-when-list 4332}#
+                                               #{e 21694}#
+                                               #{x 22447}#)))
+                                       (if (memq 'eval #{when-list 22450}#)
+                                         (#{expand-sequence 4329}#
+                                           (cons #{e1 22448}# #{e2 22449}#)
+                                           #{r 21695}#
+                                           #{w 21696}#
+                                           #{s 21697}#
+                                           #{mod 21698}#)
                                          (make-struct/no-tail
                                            (vector-ref %expanded-vtables 0)
                                            #f))))
-                                   #{tmp 23299}#)
+                                   #{tmp 22443}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{e 22351}#)))
-                             (if (if (eqv? #{type 22349}# 'define-form)
+                                   #{e 21694}#)))
+                             (if (if (eqv? #{type 21692}# 'define-form)
                                    #t
-                                   (eqv? #{type 22349}# 'define-syntax-form))
+                                   (eqv? #{type 21692}# 'define-syntax-form))
                                (syntax-violation
                                  #f
                                  "definition in expression context"
-                                 #{e 22351}#
-                                 (#{wrap 4326}#
-                                   #{value 22350}#
-                                   #{w 22353}#
-                                   #{mod 22355}#))
-                               (if (eqv? #{type 22349}# 'syntax)
+                                 #{e 21694}#
+                                 (#{wrap 4327}#
+                                   #{value 21693}#
+                                   #{w 21696}#
+                                   #{mod 21698}#))
+                               (if (eqv? #{type 21692}# 'syntax)
                                  (syntax-violation
                                    #f
                                    "reference to pattern variable outside 
syntax form"
-                                   (#{wrap 4326}#
+                                   (#{wrap 4327}#
                                      (begin
-                                       (if (if (pair? #{e 22351}#)
-                                             #{s 22354}#
+                                       (if (if (pair? #{e 21694}#)
+                                             #{s 21697}#
                                              #f)
                                          (set-source-properties!
-                                           #{e 22351}#
-                                           #{s 22354}#))
-                                       #{e 22351}#)
-                                     #{w 22353}#
-                                     #{mod 22355}#))
-                                 (if (eqv? #{type 22349}# 'displaced-lexical)
+                                           #{e 21694}#
+                                           #{s 21697}#))
+                                       #{e 21694}#)
+                                     #{w 21696}#
+                                     #{mod 21698}#))
+                                 (if (eqv? #{type 21692}# 'displaced-lexical)
                                    (syntax-violation
                                      #f
                                      "reference to identifier outside its 
scope"
-                                     (#{wrap 4326}#
+                                     (#{wrap 4327}#
                                        (begin
-                                         (if (if (pair? #{e 22351}#)
-                                               #{s 22354}#
+                                         (if (if (pair? #{e 21694}#)
+                                               #{s 21697}#
                                                #f)
                                            (set-source-properties!
-                                             #{e 22351}#
-                                             #{s 22354}#))
-                                         #{e 22351}#)
-                                       #{w 22353}#
-                                       #{mod 22355}#))
+                                             #{e 21694}#
+                                             #{s 21697}#))
+                                         #{e 21694}#)
+                                       #{w 21696}#
+                                       #{mod 21698}#))
                                    (syntax-violation
                                      #f
                                      "unexpected syntax"
-                                     (#{wrap 4326}#
+                                     (#{wrap 4327}#
                                        (begin
-                                         (if (if (pair? #{e 22351}#)
-                                               #{s 22354}#
+                                         (if (if (pair? #{e 21694}#)
+                                               #{s 21697}#
                                                #f)
                                            (set-source-properties!
-                                             #{e 22351}#
-                                             #{s 22354}#))
-                                         #{e 22351}#)
-                                       #{w 22353}#
-                                       #{mod 22355}#))))))))))))))))))
-   (#{expand-application 4335}#
-     (lambda (#{x 23547}#
-              #{e 23548}#
-              #{r 23549}#
-              #{w 23550}#
-              #{s 23551}#
-              #{mod 23552}#)
-       (let ((#{tmp 23554}#
-               ($sc-dispatch #{e 23548}# '(any . each-any))))
-         (if #{tmp 23554}#
+                                             #{e 21694}#
+                                             #{s 21697}#))
+                                         #{e 21694}#)
+                                       #{w 21696}#
+                                       #{mod 21698}#))))))))))))))))))
+   (#{expand-application 4336}#
+     (lambda (#{x 22687}#
+              #{e 22688}#
+              #{r 22689}#
+              #{w 22690}#
+              #{s 22691}#
+              #{mod 22692}#)
+       (let ((#{tmp 22694}#
+               ($sc-dispatch #{e 22688}# '(any . each-any))))
+         (if #{tmp 22694}#
            (@apply
-             (lambda (#{e0 23558}# #{e1 23559}#)
-               (#{build-application 4268}#
-                 #{s 23551}#
-                 #{x 23547}#
-                 (map (lambda (#{e 23644}#)
-                        (#{expand 4333}#
-                          #{e 23644}#
-                          #{r 23549}#
-                          #{w 23550}#
-                          #{mod 23552}#))
-                      #{e1 23559}#)))
-             #{tmp 23554}#)
+             (lambda (#{e0 22698}# #{e1 22699}#)
+               (#{build-application 4269}#
+                 #{s 22691}#
+                 #{x 22687}#
+                 (map (lambda (#{e 22779}#)
+                        (#{expand 4334}#
+                          #{e 22779}#
+                          #{r 22689}#
+                          #{w 22690}#
+                          #{mod 22692}#))
+                      #{e1 22699}#)))
+             #{tmp 22694}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
-             #{e 23548}#)))))
-   (#{expand-macro 4336}#
-     (lambda (#{p 23725}#
-              #{e 23726}#
-              #{r 23727}#
-              #{w 23728}#
-              #{s 23729}#
-              #{rib 23730}#
-              #{mod 23731}#)
+             #{e 22688}#)))))
+   (#{expand-macro 4337}#
+     (lambda (#{p 22855}#
+              #{e 22856}#
+              #{r 22857}#
+              #{w 22858}#
+              #{s 22859}#
+              #{rib 22860}#
+              #{mod 22861}#)
        (letrec*
-         ((#{rebuild-macro-output 23732}#
-            (lambda (#{x 23763}# #{m 23764}#)
-              (if (pair? #{x 23763}#)
-                (let ((#{e 23768}#
-                        (cons (#{rebuild-macro-output 23732}#
-                                (car #{x 23763}#)
-                                #{m 23764}#)
-                              (#{rebuild-macro-output 23732}#
-                                (cdr #{x 23763}#)
-                                #{m 23764}#))))
+         ((#{rebuild-macro-output 22862}#
+            (lambda (#{x 22893}# #{m 22894}#)
+              (if (pair? #{x 22893}#)
+                (let ((#{e 22898}#
+                        (cons (#{rebuild-macro-output 22862}#
+                                (car #{x 22893}#)
+                                #{m 22894}#)
+                              (#{rebuild-macro-output 22862}#
+                                (cdr #{x 22893}#)
+                                #{m 22894}#))))
                   (begin
-                    (if (if (pair? #{e 23768}#) #{s 23729}# #f)
-                      (set-source-properties! #{e 23768}# #{s 23729}#))
-                    #{e 23768}#))
-                (if (if (vector? #{x 23763}#)
-                      (if (= (vector-length #{x 23763}#) 4)
-                        (eq? (vector-ref #{x 23763}# 0) 'syntax-object)
+                    (if (if (pair? #{e 22898}#) #{s 22859}# #f)
+                      (set-source-properties! #{e 22898}# #{s 22859}#))
+                    #{e 22898}#))
+                (if (if (vector? #{x 22893}#)
+                      (if (= (vector-length #{x 22893}#) 4)
+                        (eq? (vector-ref #{x 22893}# 0) 'syntax-object)
                         #f)
                       #f)
-                  (let ((#{w 23784}# (vector-ref #{x 23763}# 2)))
-                    (let ((#{ms 23785}# (car #{w 23784}#))
-                          (#{s 23786}# (cdr #{w 23784}#)))
-                      (if (if (pair? #{ms 23785}#)
-                            (eq? (car #{ms 23785}#) #f)
+                  (let ((#{w 22914}# (vector-ref #{x 22893}# 2)))
+                    (let ((#{ms 22915}# (car #{w 22914}#))
+                          (#{s 22916}# (cdr #{w 22914}#)))
+                      (if (if (pair? #{ms 22915}#)
+                            (eq? (car #{ms 22915}#) #f)
                             #f)
-                        (let ((#{expression 23794}# (vector-ref #{x 23763}# 1))
-                              (#{wrap 23795}#
-                                (cons (cdr #{ms 23785}#)
-                                      (if #{rib 23730}#
-                                        (cons #{rib 23730}# (cdr #{s 23786}#))
-                                        (cdr #{s 23786}#))))
-                              (#{module 23796}# (vector-ref #{x 23763}# 3)))
+                        (let ((#{expression 22924}# (vector-ref #{x 22893}# 1))
+                              (#{wrap 22925}#
+                                (cons (cdr #{ms 22915}#)
+                                      (if #{rib 22860}#
+                                        (cons #{rib 22860}# (cdr #{s 22916}#))
+                                        (cdr #{s 22916}#))))
+                              (#{module 22926}# (vector-ref #{x 22893}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 23794}#
-                            #{wrap 23795}#
-                            #{module 23796}#))
-                        (let ((#{expression 23806}#
-                                (let ((#{e 23811}# (vector-ref #{x 23763}# 1)))
+                            #{expression 22924}#
+                            #{wrap 22925}#
+                            #{module 22926}#))
+                        (let ((#{expression 22936}#
+                                (let ((#{e 22941}# (vector-ref #{x 22893}# 1)))
                                   (begin
-                                    (if (if (pair? #{e 23811}#) #{s 23786}# #f)
+                                    (if (if (pair? #{e 22941}#) #{s 22916}# #f)
                                       (set-source-properties!
-                                        #{e 23811}#
-                                        #{s 23786}#))
-                                    #{e 23811}#)))
-                              (#{wrap 23807}#
-                                (cons (cons #{m 23764}# #{ms 23785}#)
-                                      (if #{rib 23730}#
-                                        (cons #{rib 23730}#
-                                              (cons 'shift #{s 23786}#))
-                                        (cons 'shift #{s 23786}#))))
-                              (#{module 23808}# (vector-ref #{x 23763}# 3)))
+                                        #{e 22941}#
+                                        #{s 22916}#))
+                                    #{e 22941}#)))
+                              (#{wrap 22937}#
+                                (cons (cons #{m 22894}# #{ms 22915}#)
+                                      (if #{rib 22860}#
+                                        (cons #{rib 22860}#
+                                              (cons 'shift #{s 22916}#))
+                                        (cons 'shift #{s 22916}#))))
+                              (#{module 22938}# (vector-ref #{x 22893}# 3)))
                           (vector
                             'syntax-object
-                            #{expression 23806}#
-                            #{wrap 23807}#
-                            #{module 23808}#)))))
-                  (if (vector? #{x 23763}#)
-                    (let ((#{n 23823}# (vector-length #{x 23763}#)))
-                      (let ((#{v 23824}#
-                              (let ((#{e 23832}# (make-vector #{n 23823}#)))
+                            #{expression 22936}#
+                            #{wrap 22937}#
+                            #{module 22938}#)))))
+                  (if (vector? #{x 22893}#)
+                    (let ((#{n 22953}# (vector-length #{x 22893}#)))
+                      (let ((#{v 22954}#
+                              (let ((#{e 22962}# (make-vector #{n 22953}#)))
                                 (begin
-                                  (if (if (pair? #{e 23832}#) #{x 23763}# #f)
+                                  (if (if (pair? #{e 22962}#) #{x 22893}# #f)
                                     (set-source-properties!
-                                      #{e 23832}#
-                                      #{x 23763}#))
-                                  #{e 23832}#))))
+                                      #{e 22962}#
+                                      #{x 22893}#))
+                                  #{e 22962}#))))
                         (letrec*
-                          ((#{loop 23825}#
-                             (lambda (#{i 23877}#)
-                               (if (= #{i 23877}# #{n 23823}#)
-                                 #{v 23824}#
+                          ((#{loop 22955}#
+                             (lambda (#{i 23007}#)
+                               (if (= #{i 23007}# #{n 22953}#)
+                                 #{v 22954}#
                                  (begin
                                    (vector-set!
-                                     #{v 23824}#
-                                     #{i 23877}#
-                                     (#{rebuild-macro-output 23732}#
-                                       (vector-ref #{x 23763}# #{i 23877}#)
-                                       #{m 23764}#))
-                                   (#{loop 23825}# (#{1+}# #{i 23877}#)))))))
-                          (#{loop 23825}# 0))))
-                    (if (symbol? #{x 23763}#)
+                                     #{v 22954}#
+                                     #{i 23007}#
+                                     (#{rebuild-macro-output 22862}#
+                                       (vector-ref #{x 22893}# #{i 23007}#)
+                                       #{m 22894}#))
+                                   (#{loop 22955}# (#{1+}# #{i 23007}#)))))))
+                          (#{loop 22955}# 0))))
+                    (if (symbol? #{x 22893}#)
                       (syntax-violation
                         #f
                         "encountered raw symbol in macro output"
-                        (let ((#{s 23883}# (cdr #{w 23728}#)))
-                          (#{wrap 4326}#
+                        (let ((#{s 23013}# (cdr #{w 22858}#)))
+                          (#{wrap 4327}#
                             (begin
-                              (if (if (pair? #{e 23726}#) #{s 23883}# #f)
+                              (if (if (pair? #{e 22856}#) #{s 23013}# #f)
                                 (set-source-properties!
-                                  #{e 23726}#
-                                  #{s 23883}#))
-                              #{e 23726}#)
-                            #{w 23728}#
-                            #{mod 23731}#))
-                        #{x 23763}#)
+                                  #{e 22856}#
+                                  #{s 23013}#))
+                              #{e 22856}#)
+                            #{w 22858}#
+                            #{mod 22861}#))
+                        #{x 22893}#)
                       (begin
-                        (if (if (pair? #{x 23763}#) #{s 23729}# #f)
-                          (set-source-properties! #{x 23763}# #{s 23729}#))
-                        #{x 23763}#))))))))
-         (#{rebuild-macro-output 23732}#
-           (#{p 23725}#
-             (let ((#{w 23739}#
-                     (cons (cons #f (car #{w 23728}#))
-                           (cons 'shift (cdr #{w 23728}#)))))
-               (#{wrap 4326}#
+                        (if (if (pair? #{x 22893}#) #{s 22859}# #f)
+                          (set-source-properties! #{x 22893}# #{s 22859}#))
+                        #{x 22893}#))))))))
+         (#{rebuild-macro-output 22862}#
+           (#{p 22855}#
+             (let ((#{w 22869}#
+                     (cons (cons #f (car #{w 22858}#))
+                           (cons 'shift (cdr #{w 22858}#)))))
+               (#{wrap 4327}#
                  (begin
-                   (if (if (pair? #{e 23726}#) #{s 23729}# #f)
-                     (set-source-properties! #{e 23726}# #{s 23729}#))
-                   #{e 23726}#)
-                 #{w 23739}#
-                 #{mod 23731}#)))
+                   (if (if (pair? #{e 22856}#) #{s 22859}# #f)
+                     (set-source-properties! #{e 22856}# #{s 22859}#))
+                   #{e 22856}#)
+                 #{w 22869}#
+                 #{mod 22861}#)))
            (gensym "m")))))
-   (#{expand-body 4337}#
-     (lambda (#{body 23915}#
-              #{outer-form 23916}#
-              #{r 23917}#
-              #{w 23918}#
-              #{mod 23919}#)
-       (let ((#{r 23920}#
-               (cons '("placeholder" placeholder) #{r 23917}#)))
-         (let ((#{ribcage 23921}# (vector 'ribcage '() '() '())))
-           (let ((#{w 23922}#
-                   (cons (car #{w 23918}#)
-                         (cons #{ribcage 23921}# (cdr #{w 23918}#)))))
+   (#{expand-body 4338}#
+     (lambda (#{body 23045}#
+              #{outer-form 23046}#
+              #{r 23047}#
+              #{w 23048}#
+              #{mod 23049}#)
+       (let ((#{r 23050}#
+               (cons '("placeholder" placeholder) #{r 23047}#)))
+         (let ((#{ribcage 23051}# (vector 'ribcage '() '() '())))
+           (let ((#{w 23052}#
+                   (cons (car #{w 23048}#)
+                         (cons #{ribcage 23051}# (cdr #{w 23048}#)))))
              (letrec*
-               ((#{parse 23923}#
-                  (lambda (#{body 23936}#
-                           #{ids 23937}#
-                           #{labels 23938}#
-                           #{var-ids 23939}#
-                           #{vars 23940}#
-                           #{vals 23941}#
-                           #{bindings 23942}#)
-                    (if (null? #{body 23936}#)
+               ((#{parse 23053}#
+                  (lambda (#{body 23066}#
+                           #{ids 23067}#
+                           #{labels 23068}#
+                           #{var-ids 23069}#
+                           #{vars 23070}#
+                           #{vals 23071}#
+                           #{bindings 23072}#)
+                    (if (null? #{body 23066}#)
                       (syntax-violation
                         #f
                         "no expressions in body"
-                        #{outer-form 23916}#)
-                      (let ((#{e 23943}# (cdr (car #{body 23936}#)))
-                            (#{er 23944}# (car (car #{body 23936}#))))
+                        #{outer-form 23046}#)
+                      (let ((#{e 23073}# (cdr (car #{body 23066}#)))
+                            (#{er 23074}# (car (car #{body 23066}#))))
                         (call-with-values
                           (lambda ()
-                            (#{syntax-type 4332}#
-                              #{e 23943}#
-                              #{er 23944}#
+                            (#{syntax-type 4333}#
+                              #{e 23073}#
+                              #{er 23074}#
                               '(())
-                              (#{source-annotation 4294}# #{er 23944}#)
-                              #{ribcage 23921}#
-                              #{mod 23919}#
+                              (#{source-annotation 4295}# #{er 23074}#)
+                              #{ribcage 23051}#
+                              #{mod 23049}#
                               #f))
-                          (lambda (#{type 24120}#
-                                   #{value 24121}#
-                                   #{e 24122}#
-                                   #{w 24123}#
-                                   #{s 24124}#
-                                   #{mod 24125}#)
-                            (if (eqv? #{type 24120}# 'define-form)
-                              (let ((#{id 24129}#
-                                      (#{wrap 4326}#
-                                        #{value 24121}#
-                                        #{w 24123}#
-                                        #{mod 24125}#))
-                                    (#{label 24130}#
+                          (lambda (#{type 23231}#
+                                   #{value 23232}#
+                                   #{e 23233}#
+                                   #{w 23234}#
+                                   #{s 23235}#
+                                   #{mod 23236}#)
+                            (if (eqv? #{type 23231}# 'define-form)
+                              (let ((#{id 23240}#
+                                      (#{wrap 4327}#
+                                        #{value 23232}#
+                                        #{w 23234}#
+                                        #{mod 23236}#))
+                                    (#{label 23241}#
                                       (symbol->string (gensym "i"))))
-                                (let ((#{var 24131}#
-                                        (let ((#{id 24191}#
-                                                (if (if (vector? #{id 24129}#)
+                                (let ((#{var 23242}#
+                                        (let ((#{id 23302}#
+                                                (if (if (vector? #{id 23240}#)
                                                       (if (= (vector-length
-                                                               #{id 24129}#)
+                                                               #{id 23240}#)
                                                              4)
                                                         (eq? (vector-ref
-                                                               #{id 24129}#
+                                                               #{id 23240}#
                                                                0)
                                                              'syntax-object)
                                                         #f)
                                                       #f)
-                                                  (vector-ref #{id 24129}# 1)
-                                                  #{id 24129}#)))
+                                                  (vector-ref #{id 23240}# 1)
+                                                  #{id 23240}#)))
                                           (gensym
                                             (string-append
-                                              (symbol->string #{id 24191}#)
+                                              (symbol->string #{id 23302}#)
                                               " ")))))
                                   (begin
-                                    (let ((#{update 24181}#
-                                            (cons (vector-ref #{id 24129}# 1)
+                                    (let ((#{update 23292}#
+                                            (cons (vector-ref #{id 23240}# 1)
                                                   (vector-ref
-                                                    #{ribcage 23921}#
+                                                    #{ribcage 23051}#
                                                     1))))
                                       (vector-set!
-                                        #{ribcage 23921}#
+                                        #{ribcage 23051}#
                                         1
-                                        #{update 24181}#))
-                                    (let ((#{update 24183}#
+                                        #{update 23292}#))
+                                    (let ((#{update 23294}#
                                             (cons (car (vector-ref
-                                                         #{id 24129}#
+                                                         #{id 23240}#
                                                          2))
                                                   (vector-ref
-                                                    #{ribcage 23921}#
+                                                    #{ribcage 23051}#
                                                     2))))
                                       (vector-set!
-                                        #{ribcage 23921}#
+                                        #{ribcage 23051}#
                                         2
-                                        #{update 24183}#))
-                                    (let ((#{update 24185}#
-                                            (cons #{label 24130}#
+                                        #{update 23294}#))
+                                    (let ((#{update 23296}#
+                                            (cons #{label 23241}#
                                                   (vector-ref
-                                                    #{ribcage 23921}#
+                                                    #{ribcage 23051}#
                                                     3))))
                                       (vector-set!
-                                        #{ribcage 23921}#
+                                        #{ribcage 23051}#
                                         3
-                                        #{update 24185}#))
-                                    (#{parse 23923}#
-                                      (cdr #{body 23936}#)
-                                      (cons #{id 24129}# #{ids 23937}#)
-                                      (cons #{label 24130}# #{labels 23938}#)
-                                      (cons #{id 24129}# #{var-ids 23939}#)
-                                      (cons #{var 24131}# #{vars 23940}#)
-                                      (cons (cons #{er 23944}#
-                                                  (#{wrap 4326}#
-                                                    #{e 24122}#
-                                                    #{w 24123}#
-                                                    #{mod 24125}#))
-                                            #{vals 23941}#)
-                                      (cons (cons 'lexical #{var 24131}#)
-                                            #{bindings 23942}#)))))
-                              (if (eqv? #{type 24120}# 'define-syntax-form)
-                                (let ((#{id 24219}#
-                                        (#{wrap 4326}#
-                                          #{value 24121}#
-                                          #{w 24123}#
-                                          #{mod 24125}#))
-                                      (#{label 24220}#
+                                        #{update 23296}#))
+                                    (#{parse 23053}#
+                                      (cdr #{body 23066}#)
+                                      (cons #{id 23240}# #{ids 23067}#)
+                                      (cons #{label 23241}# #{labels 23068}#)
+                                      (cons #{id 23240}# #{var-ids 23069}#)
+                                      (cons #{var 23242}# #{vars 23070}#)
+                                      (cons (cons #{er 23074}#
+                                                  (#{wrap 4327}#
+                                                    #{e 23233}#
+                                                    #{w 23234}#
+                                                    #{mod 23236}#))
+                                            #{vals 23071}#)
+                                      (cons (cons 'lexical #{var 23242}#)
+                                            #{bindings 23072}#)))))
+                              (if (eqv? #{type 23231}# 'define-syntax-form)
+                                (let ((#{id 23330}#
+                                        (#{wrap 4327}#
+                                          #{value 23232}#
+                                          #{w 23234}#
+                                          #{mod 23236}#))
+                                      (#{label 23331}#
                                         (symbol->string (gensym "i"))))
                                   (begin
-                                    (let ((#{update 24270}#
-                                            (cons (vector-ref #{id 24219}# 1)
+                                    (let ((#{update 23381}#
+                                            (cons (vector-ref #{id 23330}# 1)
                                                   (vector-ref
-                                                    #{ribcage 23921}#
+                                                    #{ribcage 23051}#
                                                     1))))
                                       (vector-set!
-                                        #{ribcage 23921}#
+                                        #{ribcage 23051}#
                                         1
-                                        #{update 24270}#))
-                                    (let ((#{update 24272}#
+                                        #{update 23381}#))
+                                    (let ((#{update 23383}#
                                             (cons (car (vector-ref
-                                                         #{id 24219}#
+                                                         #{id 23330}#
                                                          2))
                                                   (vector-ref
-                                                    #{ribcage 23921}#
+                                                    #{ribcage 23051}#
                                                     2))))
                                       (vector-set!
-                                        #{ribcage 23921}#
+                                        #{ribcage 23051}#
                                         2
-                                        #{update 24272}#))
-                                    (let ((#{update 24274}#
-                                            (cons #{label 24220}#
+                                        #{update 23383}#))
+                                    (let ((#{update 23385}#
+                                            (cons #{label 23331}#
                                                   (vector-ref
-                                                    #{ribcage 23921}#
+                                                    #{ribcage 23051}#
                                                     3))))
                                       (vector-set!
-                                        #{ribcage 23921}#
+                                        #{ribcage 23051}#
                                         3
-                                        #{update 24274}#))
-                                    (#{parse 23923}#
-                                      (cdr #{body 23936}#)
-                                      (cons #{id 24219}# #{ids 23937}#)
-                                      (cons #{label 24220}# #{labels 23938}#)
-                                      #{var-ids 23939}#
-                                      #{vars 23940}#
-                                      #{vals 23941}#
+                                        #{update 23385}#))
+                                    (#{parse 23053}#
+                                      (cdr #{body 23066}#)
+                                      (cons #{id 23330}# #{ids 23067}#)
+                                      (cons #{label 23331}# #{labels 23068}#)
+                                      #{var-ids 23069}#
+                                      #{vars 23070}#
+                                      #{vals 23071}#
                                       (cons (cons 'macro
-                                                  (cons #{er 23944}#
-                                                        (#{wrap 4326}#
-                                                          #{e 24122}#
-                                                          #{w 24123}#
-                                                          #{mod 24125}#)))
-                                            #{bindings 23942}#))))
-                                (if (eqv? #{type 24120}# 'begin-form)
-                                  (let ((#{tmp 24282}#
+                                                  (cons #{er 23074}#
+                                                        (#{wrap 4327}#
+                                                          #{e 23233}#
+                                                          #{w 23234}#
+                                                          #{mod 23236}#)))
+                                            #{bindings 23072}#))))
+                                (if (eqv? #{type 23231}# 'begin-form)
+                                  (let ((#{tmp 23393}#
                                           ($sc-dispatch
-                                            #{e 24122}#
+                                            #{e 23233}#
                                             '(_ . each-any))))
-                                    (if #{tmp 24282}#
+                                    (if #{tmp 23393}#
                                       (@apply
-                                        (lambda (#{e1 24286}#)
-                                          (#{parse 23923}#
+                                        (lambda (#{e1 23397}#)
+                                          (#{parse 23053}#
                                             (letrec*
-                                              ((#{f 24287}#
-                                                 (lambda (#{forms 24350}#)
-                                                   (if (null? #{forms 24350}#)
-                                                     (cdr #{body 23936}#)
-                                                     (cons (cons #{er 23944}#
-                                                                 (#{wrap 4326}#
-                                                                   (car 
#{forms 24350}#)
-                                                                   #{w 24123}#
-                                                                   #{mod 
24125}#))
-                                                           (#{f 24287}#
-                                                             (cdr #{forms 
24350}#)))))))
-                                              (#{f 24287}# #{e1 24286}#))
-                                            #{ids 23937}#
-                                            #{labels 23938}#
-                                            #{var-ids 23939}#
-                                            #{vars 23940}#
-                                            #{vals 23941}#
-                                            #{bindings 23942}#))
-                                        #{tmp 24282}#)
+                                              ((#{f 23398}#
+                                                 (lambda (#{forms 23461}#)
+                                                   (if (null? #{forms 23461}#)
+                                                     (cdr #{body 23066}#)
+                                                     (cons (cons #{er 23074}#
+                                                                 (#{wrap 4327}#
+                                                                   (car 
#{forms 23461}#)
+                                                                   #{w 23234}#
+                                                                   #{mod 
23236}#))
+                                                           (#{f 23398}#
+                                                             (cdr #{forms 
23461}#)))))))
+                                              (#{f 23398}# #{e1 23397}#))
+                                            #{ids 23067}#
+                                            #{labels 23068}#
+                                            #{var-ids 23069}#
+                                            #{vars 23070}#
+                                            #{vals 23071}#
+                                            #{bindings 23072}#))
+                                        #{tmp 23393}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{e 24122}#)))
-                                  (if (eqv? #{type 24120}# 'local-syntax-form)
-                                    (#{expand-local-syntax 4338}#
-                                      #{value 24121}#
-                                      #{e 24122}#
-                                      #{er 23944}#
-                                      #{w 24123}#
-                                      #{s 24124}#
-                                      #{mod 24125}#
-                                      (lambda (#{forms 24364}#
-                                               #{er 24365}#
-                                               #{w 24366}#
-                                               #{s 24367}#
-                                               #{mod 24368}#)
-                                        (#{parse 23923}#
+                                        #{e 23233}#)))
+                                  (if (eqv? #{type 23231}# 'local-syntax-form)
+                                    (#{expand-local-syntax 4339}#
+                                      #{value 23232}#
+                                      #{e 23233}#
+                                      #{er 23074}#
+                                      #{w 23234}#
+                                      #{s 23235}#
+                                      #{mod 23236}#
+                                      (lambda (#{forms 23475}#
+                                               #{er 23476}#
+                                               #{w 23477}#
+                                               #{s 23478}#
+                                               #{mod 23479}#)
+                                        (#{parse 23053}#
                                           (letrec*
-                                            ((#{f 24369}#
-                                               (lambda (#{forms 24432}#)
-                                                 (if (null? #{forms 24432}#)
-                                                   (cdr #{body 23936}#)
-                                                   (cons (cons #{er 24365}#
-                                                               (#{wrap 4326}#
-                                                                 (car #{forms 
24432}#)
-                                                                 #{w 24366}#
-                                                                 #{mod 
24368}#))
-                                                         (#{f 24369}#
-                                                           (cdr #{forms 
24432}#)))))))
-                                            (#{f 24369}# #{forms 24364}#))
-                                          #{ids 23937}#
-                                          #{labels 23938}#
-                                          #{var-ids 23939}#
-                                          #{vars 23940}#
-                                          #{vals 23941}#
-                                          #{bindings 23942}#)))
-                                    (if (null? #{ids 23937}#)
-                                      (#{build-sequence 4282}#
+                                            ((#{f 23480}#
+                                               (lambda (#{forms 23543}#)
+                                                 (if (null? #{forms 23543}#)
+                                                   (cdr #{body 23066}#)
+                                                   (cons (cons #{er 23476}#
+                                                               (#{wrap 4327}#
+                                                                 (car #{forms 
23543}#)
+                                                                 #{w 23477}#
+                                                                 #{mod 
23479}#))
+                                                         (#{f 23480}#
+                                                           (cdr #{forms 
23543}#)))))))
+                                            (#{f 23480}# #{forms 23475}#))
+                                          #{ids 23067}#
+                                          #{labels 23068}#
+                                          #{var-ids 23069}#
+                                          #{vars 23070}#
+                                          #{vals 23071}#
+                                          #{bindings 23072}#)))
+                                    (if (null? #{ids 23067}#)
+                                      (#{build-sequence 4283}#
                                         #f
-                                        (map (lambda (#{x 24502}#)
-                                               (#{expand 4333}#
-                                                 (cdr #{x 24502}#)
-                                                 (car #{x 24502}#)
-                                                 '(())
-                                                 #{mod 24125}#))
-                                             (cons (cons #{er 23944}#
-                                                         (#{wrap 4326}#
+                                        (map (lambda (#{x 23608}#)
+                                               (let ((#{e 23612}#
+                                                       (cdr #{x 23608}#))
+                                                     (#{r 23613}#
+                                                       (car #{x 23608}#)))
+                                                 (call-with-values
+                                                   (lambda ()
+                                                     (#{syntax-type 4333}#
+                                                       #{e 23612}#
+                                                       #{r 23613}#
+                                                       '(())
+                                                       (#{source-annotation 
4295}#
+                                                         #{e 23612}#)
+                                                       #f
+                                                       #{mod 23236}#
+                                                       #f))
+                                                   (lambda (#{type 23617}#
+                                                            #{value 23618}#
+                                                            #{e 23619}#
+                                                            #{w 23620}#
+                                                            #{s 23621}#
+                                                            #{mod 23622}#)
+                                                     (#{expand-expr 4335}#
+                                                       #{type 23617}#
+                                                       #{value 23618}#
+                                                       #{e 23619}#
+                                                       #{r 23613}#
+                                                       #{w 23620}#
+                                                       #{s 23621}#
+                                                       #{mod 23622}#)))))
+                                             (cons (cons #{er 23074}#
+                                                         (#{wrap 4327}#
                                                            (begin
-                                                             (if (if (pair? 
#{e 24122}#)
-                                                                   #{s 24124}#
+                                                             (if (if (pair? 
#{e 23233}#)
+                                                                   #{s 23235}#
                                                                    #f)
                                                                
(set-source-properties!
-                                                                 #{e 24122}#
-                                                                 #{s 24124}#))
-                                                             #{e 24122}#)
-                                                           #{w 24123}#
-                                                           #{mod 24125}#))
-                                                   (cdr #{body 23936}#))))
+                                                                 #{e 23233}#
+                                                                 #{s 23235}#))
+                                                             #{e 23233}#)
+                                                           #{w 23234}#
+                                                           #{mod 23236}#))
+                                                   (cdr #{body 23066}#))))
                                       (begin
-                                        (if (not (#{valid-bound-ids? 4323}#
-                                                   #{ids 23937}#))
+                                        (if (not (#{valid-bound-ids? 4324}#
+                                                   #{ids 23067}#))
                                           (syntax-violation
                                             #f
                                             "invalid or duplicate identifier 
in definition"
-                                            #{outer-form 23916}#))
+                                            #{outer-form 23046}#))
                                         (letrec*
-                                          ((#{loop 24664}#
-                                             (lambda (#{bs 24667}#
-                                                      #{er-cache 24668}#
-                                                      #{r-cache 24669}#)
-                                               (if (not (null? #{bs 24667}#))
-                                                 (let ((#{b 24670}#
-                                                         (car #{bs 24667}#)))
-                                                   (if (eq? (car #{b 24670}#)
+                                          ((#{loop 23723}#
+                                             (lambda (#{bs 23726}#
+                                                      #{er-cache 23727}#
+                                                      #{r-cache 23728}#)
+                                               (if (not (null? #{bs 23726}#))
+                                                 (let ((#{b 23729}#
+                                                         (car #{bs 23726}#)))
+                                                   (if (eq? (car #{b 23729}#)
                                                             'macro)
-                                                     (let ((#{er 24672}#
-                                                             (car (cdr #{b 
24670}#))))
-                                                       (let ((#{r-cache 24673}#
-                                                               (if (eq? #{er 
24672}#
-                                                                        
#{er-cache 24668}#)
-                                                                 #{r-cache 
24669}#
-                                                                 
(#{macros-only-env 4297}#
-                                                                   #{er 
24672}#))))
+                                                     (let ((#{er 23731}#
+                                                             (car (cdr #{b 
23729}#))))
+                                                       (let ((#{r-cache 23732}#
+                                                               (if (eq? #{er 
23731}#
+                                                                        
#{er-cache 23727}#)
+                                                                 #{r-cache 
23728}#
+                                                                 
(#{macros-only-env 4298}#
+                                                                   #{er 
23731}#))))
                                                          (begin
                                                            (set-cdr!
-                                                             #{b 24670}#
-                                                             
(#{eval-local-transformer 4339}#
-                                                               (#{expand 4333}#
-                                                                 (cdr (cdr #{b 
24670}#))
-                                                                 #{r-cache 
24673}#
+                                                             #{b 23729}#
+                                                             
(#{eval-local-transformer 4340}#
+                                                               (#{expand 4334}#
+                                                                 (cdr (cdr #{b 
23729}#))
+                                                                 #{r-cache 
23732}#
                                                                  '(())
-                                                                 #{mod 24125}#)
-                                                               #{mod 24125}#))
-                                                           (#{loop 24664}#
-                                                             (cdr #{bs 24667}#)
-                                                             #{er 24672}#
-                                                             #{r-cache 
24673}#))))
-                                                     (#{loop 24664}#
-                                                       (cdr #{bs 24667}#)
-                                                       #{er-cache 24668}#
-                                                       #{r-cache 24669}#)))))))
-                                          (#{loop 24664}#
-                                            #{bindings 23942}#
+                                                                 #{mod 23236}#)
+                                                               #{mod 23236}#))
+                                                           (#{loop 23723}#
+                                                             (cdr #{bs 23726}#)
+                                                             #{er 23731}#
+                                                             #{r-cache 
23732}#))))
+                                                     (#{loop 23723}#
+                                                       (cdr #{bs 23726}#)
+                                                       #{er-cache 23727}#
+                                                       #{r-cache 23728}#)))))))
+                                          (#{loop 23723}#
+                                            #{bindings 23072}#
                                             #f
                                             #f))
                                         (set-cdr!
-                                          #{r 23920}#
-                                          (#{extend-env 4295}#
-                                            #{labels 23938}#
-                                            #{bindings 23942}#
-                                            (cdr #{r 23920}#)))
-                                        (#{build-letrec 4285}#
+                                          #{r 23050}#
+                                          (#{extend-env 4296}#
+                                            #{labels 23068}#
+                                            #{bindings 23072}#
+                                            (cdr #{r 23050}#)))
+                                        (#{build-letrec 4286}#
                                           #f
                                           #t
                                           (reverse
                                             (map syntax->datum
-                                                 #{var-ids 23939}#))
-                                          (reverse #{vars 23940}#)
-                                          (map (lambda (#{x 25026}#)
-                                                 (#{expand 4333}#
-                                                   (cdr #{x 25026}#)
-                                                   (car #{x 25026}#)
-                                                   '(())
-                                                   #{mod 24125}#))
-                                               (reverse #{vals 23941}#))
-                                          (#{build-sequence 4282}#
-                                            #f
-                                            (map (lambda (#{x 25156}#)
-                                                   (#{expand 4333}#
-                                                     (cdr #{x 25156}#)
-                                                     (car #{x 25156}#)
-                                                     '(())
-                                                     #{mod 24125}#))
-                                                 (cons (cons #{er 23944}#
-                                                             (#{wrap 4326}#
-                                                               (begin
-                                                                 (if (if 
(pair? #{e 24122}#)
-                                                                       #{s 
24124}#
-                                                                       #f)
-                                                                   
(set-source-properties!
-                                                                     #{e 
24122}#
-                                                                     #{s 
24124}#))
-                                                                 #{e 24122}#)
-                                                               #{w 24123}#
-                                                               #{mod 24125}#))
-                                                       (cdr #{body 
23936}#))))))))))))))))))
-               (#{parse 23923}#
-                 (map (lambda (#{x 23926}#)
-                        (cons #{r 23920}#
-                              (#{wrap 4326}#
-                                #{x 23926}#
-                                #{w 23922}#
-                                #{mod 23919}#)))
-                      #{body 23915}#)
+                                                 #{var-ids 23069}#))
+                                          (reverse #{vars 23070}#)
+                                          (map (lambda (#{x 24075}#)
+                                                 (let ((#{e 24079}#
+                                                         (cdr #{x 24075}#))
+                                                       (#{r 24080}#
+                                                         (car #{x 24075}#)))
+                                                   (call-with-values
+                                                     (lambda ()
+                                                       (#{syntax-type 4333}#
+                                                         #{e 24079}#
+                                                         #{r 24080}#
+                                                         '(())
+                                                         (#{source-annotation 
4295}#
+                                                           #{e 24079}#)
+                                                         #f
+                                                         #{mod 23236}#
+                                                         #f))
+                                                     (lambda (#{type 24084}#
+                                                              #{value 24085}#
+                                                              #{e 24086}#
+                                                              #{w 24087}#
+                                                              #{s 24088}#
+                                                              #{mod 24089}#)
+                                                       (#{expand-expr 4335}#
+                                                         #{type 24084}#
+                                                         #{value 24085}#
+                                                         #{e 24086}#
+                                                         #{r 24080}#
+                                                         #{w 24087}#
+                                                         #{s 24088}#
+                                                         #{mod 24089}#)))))
+                                               (reverse #{vals 23071}#))
+                                          (let ((#{exps 24095}#
+                                                  (map (lambda (#{x 24096}#)
+                                                         (let ((#{e 24099}#
+                                                                 (cdr #{x 
24096}#))
+                                                               (#{r 24100}#
+                                                                 (car #{x 
24096}#)))
+                                                           (call-with-values
+                                                             (lambda ()
+                                                               (#{syntax-type 
4333}#
+                                                                 #{e 24099}#
+                                                                 #{r 24100}#
+                                                                 '(())
+                                                                 
(#{source-annotation 4295}#
+                                                                   #{e 24099}#)
+                                                                 #f
+                                                                 #{mod 23236}#
+                                                                 #f))
+                                                             (lambda (#{type 
24104}#
+                                                                      #{value 
24105}#
+                                                                      #{e 
24106}#
+                                                                      #{w 
24107}#
+                                                                      #{s 
24108}#
+                                                                      #{mod 
24109}#)
+                                                               (#{expand-expr 
4335}#
+                                                                 #{type 24104}#
+                                                                 #{value 
24105}#
+                                                                 #{e 24106}#
+                                                                 #{r 24100}#
+                                                                 #{w 24107}#
+                                                                 #{s 24108}#
+                                                                 #{mod 
24109}#)))))
+                                                       (cons (cons #{er 23074}#
+                                                                   (#{wrap 
4327}#
+                                                                     (begin
+                                                                       (if (if 
(pair? #{e 23233}#)
+                                                                             
#{s 23235}#
+                                                                             
#f)
+                                                                         
(set-source-properties!
+                                                                           #{e 
23233}#
+                                                                           #{s 
23235}#))
+                                                                       #{e 
23233}#)
+                                                                     #{w 
23234}#
+                                                                     #{mod 
23236}#))
+                                                             (cdr #{body 
23066}#)))))
+                                            (if (null? (cdr #{exps 24095}#))
+                                              (car #{exps 24095}#)
+                                              (make-struct/no-tail
+                                                (vector-ref
+                                                  %expanded-vtables
+                                                  12)
+                                                #f
+                                                #{exps 24095}#)))))))))))))))))
+               (#{parse 23053}#
+                 (map (lambda (#{x 23056}#)
+                        (cons #{r 23050}#
+                              (#{wrap 4327}#
+                                #{x 23056}#
+                                #{w 23052}#
+                                #{mod 23049}#)))
+                      #{body 23045}#)
                  '()
                  '()
                  '()
                  '()
                  '()
                  '())))))))
-   (#{expand-local-syntax 4338}#
-     (lambda (#{rec? 25241}#
-              #{e 25242}#
-              #{r 25243}#
-              #{w 25244}#
-              #{s 25245}#
-              #{mod 25246}#
-              #{k 25247}#)
-       (let ((#{tmp 25249}#
+   (#{expand-local-syntax 4339}#
+     (lambda (#{rec? 24135}#
+              #{e 24136}#
+              #{r 24137}#
+              #{w 24138}#
+              #{s 24139}#
+              #{mod 24140}#
+              #{k 24141}#)
+       (let ((#{tmp 24143}#
                ($sc-dispatch
-                 #{e 25242}#
+                 #{e 24136}#
                  '(_ #(each (any any)) any . each-any))))
-         (if #{tmp 25249}#
+         (if #{tmp 24143}#
            (@apply
-             (lambda (#{id 25253}#
-                      #{val 25254}#
-                      #{e1 25255}#
-                      #{e2 25256}#)
-               (if (not (#{valid-bound-ids? 4323}# #{id 25253}#))
+             (lambda (#{id 24147}#
+                      #{val 24148}#
+                      #{e1 24149}#
+                      #{e2 24150}#)
+               (if (not (#{valid-bound-ids? 4324}# #{id 24147}#))
                  (syntax-violation
                    #f
                    "duplicate bound keyword"
-                   #{e 25242}#)
-                 (let ((#{labels 25346}#
-                         (#{gen-labels 4304}# #{id 25253}#)))
-                   (let ((#{new-w 25347}#
-                           (#{make-binding-wrap 4315}#
-                             #{id 25253}#
-                             #{labels 25346}#
-                             #{w 25244}#)))
-                     (#{k 25247}#
-                       (cons #{e1 25255}# #{e2 25256}#)
-                       (#{extend-env 4295}#
-                         #{labels 25346}#
-                         (let ((#{trans-r 25385}#
-                                 (#{macros-only-env 4297}# #{r 25243}#)))
+                   #{e 24136}#)
+                 (let ((#{labels 24240}#
+                         (#{gen-labels 4305}# #{id 24147}#)))
+                   (let ((#{new-w 24241}#
+                           (#{make-binding-wrap 4316}#
+                             #{id 24147}#
+                             #{labels 24240}#
+                             #{w 24138}#)))
+                     (#{k 24141}#
+                       (cons #{e1 24149}# #{e2 24150}#)
+                       (#{extend-env 4296}#
+                         #{labels 24240}#
+                         (let ((#{trans-r 24279}#
+                                 (#{macros-only-env 4298}# #{r 24137}#)))
                            (begin
-                             (if #{rec? 25241}# (if #f #f))
-                             (map (lambda (#{x 25386}#)
+                             (if #{rec? 24135}# #{new-w 24241}# #{w 24138}#)
+                             (map (lambda (#{x 24280}#)
                                     (cons 'macro
-                                          (#{eval-local-transformer 4339}#
-                                            (#{expand 4333}#
-                                              #{x 25386}#
-                                              #{trans-r 25385}#
-                                              (if #{rec? 25241}#
-                                                #{new-w 25347}#
-                                                #{w 25244}#)
-                                              #{mod 25246}#)
-                                            #{mod 25246}#)))
-                                  #{val 25254}#)))
-                         #{r 25243}#)
-                       #{new-w 25347}#
-                       #{s 25245}#
-                       #{mod 25246}#)))))
-             #{tmp 25249}#)
+                                          (#{eval-local-transformer 4340}#
+                                            (#{expand 4334}#
+                                              #{x 24280}#
+                                              #{trans-r 24279}#
+                                              (values
+                                                (if #{rec? 24135}#
+                                                  #{new-w 24241}#
+                                                  #{w 24138}#))
+                                              #{mod 24140}#)
+                                            #{mod 24140}#)))
+                                  #{val 24148}#)))
+                         #{r 24137}#)
+                       #{new-w 24241}#
+                       #{s 24139}#
+                       #{mod 24140}#)))))
+             #{tmp 24143}#)
            (syntax-violation
              #f
              "bad local syntax definition"
-             (#{wrap 4326}#
+             (#{wrap 4327}#
                (begin
-                 (if (if (pair? #{e 25242}#) #{s 25245}# #f)
-                   (set-source-properties! #{e 25242}# #{s 25245}#))
-                 #{e 25242}#)
-               #{w 25244}#
-               #{mod 25246}#))))))
-   (#{eval-local-transformer 4339}#
-     (lambda (#{expanded 25687}# #{mod 25688}#)
-       (let ((#{p 25689}# (primitive-eval #{expanded 25687}#)))
-         (if (procedure? #{p 25689}#)
-           #{p 25689}#
+                 (if (if (pair? #{e 24136}#) #{s 24139}# #f)
+                   (set-source-properties! #{e 24136}# #{s 24139}#))
+                 #{e 24136}#)
+               #{w 24138}#
+               #{mod 24140}#))))))
+   (#{eval-local-transformer 4340}#
+     (lambda (#{expanded 24576}# #{mod 24577}#)
+       (let ((#{p 24578}# (primitive-eval #{expanded 24576}#)))
+         (if (procedure? #{p 24578}#)
+           #{p 24578}#
            (syntax-violation
              #f
              "nonprocedure transformer"
-             #{p 25689}#)))))
-   (#{ellipsis? 4341}#
-     (lambda (#{x 5147}#)
-       (if (if (if (vector? #{x 5147}#)
-                 (if (= (vector-length #{x 5147}#) 4)
-                   (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
+             #{p 24578}#)))))
+   (#{ellipsis? 4342}#
+     (lambda (#{x 5143}#)
+       (if (if (if (vector? #{x 5143}#)
+                 (if (= (vector-length #{x 5143}#) 4)
+                   (eq? (vector-ref #{x 5143}# 0) 'syntax-object)
                    #f)
                  #f)
-             (symbol? (vector-ref #{x 5147}# 1))
+             (symbol? (vector-ref #{x 5143}# 1))
              #f)
-         (if (eq? (if (if (vector? #{x 5147}#)
-                        (if (= (vector-length #{x 5147}#) 4)
-                          (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
+         (if (eq? (if (if (vector? #{x 5143}#)
+                        (if (= (vector-length #{x 5143}#) 4)
+                          (eq? (vector-ref #{x 5143}# 0) 'syntax-object)
                           #f)
                         #f)
-                    (vector-ref #{x 5147}# 1)
-                    #{x 5147}#)
+                    (vector-ref #{x 5143}# 1)
+                    #{x 5143}#)
                   (if (if (= (vector-length
                                '#(syntax-object
                                   ...
                                   ((top)
                                    #(ribcage () () ())
                                    #(ribcage () () ())
-                                   #(ribcage #(x) #((top)) #("i2218"))
+                                   #(ribcage #(x) #((top)) #("i2219"))
                                    #(ribcage
                                      (lambda-var-list
                                        gen-var
@@ -5005,7 +5117,7 @@
                        ((top)
                         #(ribcage () () ())
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i2218"))
+                        #(ribcage #(x) #((top)) #("i2219"))
                         #(ribcage
                           (lambda-var-list
                             gen-var
@@ -5422,14 +5534,14 @@
                           ((top) (top) (top))
                           ("i46" "i45" "i44")))
                        (hygiene guile))))
-           (eq? (#{id-var-name 4320}# #{x 5147}# '(()))
-                (#{id-var-name 4320}#
+           (eq? (#{id-var-name 4321}# #{x 5143}# '(()))
+                (#{id-var-name 4321}#
                   '#(syntax-object
                      ...
                      ((top)
                       #(ribcage () () ())
                       #(ribcage () () ())
-                      #(ribcage #(x) #((top)) #("i2218"))
+                      #(ribcage #(x) #((top)) #("i2219"))
                       #(ribcage
                         (lambda-var-list
                           gen-var
@@ -5849,300 +5961,300 @@
                   '(())))
            #f)
          #f)))
-   (#{lambda-formals 4342}#
-     (lambda (#{orig-args 25694}#)
+   (#{lambda-formals 4343}#
+     (lambda (#{orig-args 24583}#)
        (letrec*
-         ((#{req 25695}#
-            (lambda (#{args 25699}# #{rreq 25700}#)
-              (let ((#{tmp 25702}# ($sc-dispatch #{args 25699}# '())))
-                (if #{tmp 25702}#
+         ((#{req 24584}#
+            (lambda (#{args 24588}# #{rreq 24589}#)
+              (let ((#{tmp 24591}# ($sc-dispatch #{args 24588}# '())))
+                (if #{tmp 24591}#
                   (@apply
                     (lambda ()
-                      (#{check 25696}# (reverse #{rreq 25700}#) #f))
-                    #{tmp 25702}#)
-                  (let ((#{tmp 25829}#
-                          ($sc-dispatch #{args 25699}# '(any . any))))
-                    (if (if #{tmp 25829}#
+                      (#{check 24585}# (reverse #{rreq 24589}#) #f))
+                    #{tmp 24591}#)
+                  (let ((#{tmp 24714}#
+                          ($sc-dispatch #{args 24588}# '(any . any))))
+                    (if (if #{tmp 24714}#
                           (@apply
-                            (lambda (#{a 25833}# #{b 25834}#)
-                              (if (symbol? #{a 25833}#)
+                            (lambda (#{a 24718}# #{b 24719}#)
+                              (if (symbol? #{a 24718}#)
                                 #t
-                                (if (if (vector? #{a 25833}#)
-                                      (if (= (vector-length #{a 25833}#) 4)
-                                        (eq? (vector-ref #{a 25833}# 0)
+                                (if (if (vector? #{a 24718}#)
+                                      (if (= (vector-length #{a 24718}#) 4)
+                                        (eq? (vector-ref #{a 24718}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 25833}# 1))
+                                  (symbol? (vector-ref #{a 24718}# 1))
                                   #f)))
-                            #{tmp 25829}#)
+                            #{tmp 24714}#)
                           #f)
                       (@apply
-                        (lambda (#{a 25861}# #{b 25862}#)
-                          (#{req 25695}#
-                            #{b 25862}#
-                            (cons #{a 25861}# #{rreq 25700}#)))
-                        #{tmp 25829}#)
-                      (let ((#{tmp 25863}# (list #{args 25699}#)))
+                        (lambda (#{a 24746}# #{b 24747}#)
+                          (#{req 24584}#
+                            #{b 24747}#
+                            (cons #{a 24746}# #{rreq 24589}#)))
+                        #{tmp 24714}#)
+                      (let ((#{tmp 24748}# (list #{args 24588}#)))
                         (if (@apply
-                              (lambda (#{r 25865}#)
-                                (if (symbol? #{r 25865}#)
+                              (lambda (#{r 24750}#)
+                                (if (symbol? #{r 24750}#)
                                   #t
-                                  (if (if (vector? #{r 25865}#)
-                                        (if (= (vector-length #{r 25865}#) 4)
-                                          (eq? (vector-ref #{r 25865}# 0)
+                                  (if (if (vector? #{r 24750}#)
+                                        (if (= (vector-length #{r 24750}#) 4)
+                                          (eq? (vector-ref #{r 24750}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (symbol? (vector-ref #{r 25865}# 1))
+                                    (symbol? (vector-ref #{r 24750}# 1))
                                     #f)))
-                              #{tmp 25863}#)
+                              #{tmp 24748}#)
                           (@apply
-                            (lambda (#{r 25895}#)
-                              (#{check 25696}#
-                                (reverse #{rreq 25700}#)
-                                #{r 25895}#))
-                            #{tmp 25863}#)
+                            (lambda (#{r 24780}#)
+                              (#{check 24585}#
+                                (reverse #{rreq 24589}#)
+                                #{r 24780}#))
+                            #{tmp 24748}#)
                           (syntax-violation
                             'lambda
                             "invalid argument list"
-                            #{orig-args 25694}#
-                            #{args 25699}#)))))))))
-          (#{check 25696}#
-            (lambda (#{req 26030}# #{rest 26031}#)
-              (if (#{distinct-bound-ids? 4324}#
-                    (if #{rest 26031}#
-                      (cons #{rest 26031}# #{req 26030}#)
-                      #{req 26030}#))
-                (values #{req 26030}# #f #{rest 26031}# #f)
+                            #{orig-args 24583}#
+                            #{args 24588}#)))))))))
+          (#{check 24585}#
+            (lambda (#{req 24911}# #{rest 24912}#)
+              (if (#{distinct-bound-ids? 4325}#
+                    (if #{rest 24912}#
+                      (cons #{rest 24912}# #{req 24911}#)
+                      #{req 24911}#))
+                (values #{req 24911}# #f #{rest 24912}# #f)
                 (syntax-violation
                   'lambda
                   "duplicate identifier in argument list"
-                  #{orig-args 25694}#)))))
-         (#{req 25695}# #{orig-args 25694}# '()))))
-   (#{expand-simple-lambda 4343}#
-     (lambda (#{e 26151}#
-              #{r 26152}#
-              #{w 26153}#
-              #{s 26154}#
-              #{mod 26155}#
-              #{req 26156}#
-              #{rest 26157}#
-              #{meta 26158}#
-              #{body 26159}#)
-       (let ((#{ids 26160}#
-               (if #{rest 26157}#
-                 (append #{req 26156}# (list #{rest 26157}#))
-                 #{req 26156}#)))
-         (let ((#{vars 26161}#
-                 (map #{gen-var 4347}# #{ids 26160}#)))
-           (let ((#{labels 26162}#
-                   (#{gen-labels 4304}# #{ids 26160}#)))
-             (#{build-simple-lambda 4277}#
-               #{s 26154}#
-               (map syntax->datum #{req 26156}#)
-               (if #{rest 26157}#
-                 (syntax->datum #{rest 26157}#)
+                  #{orig-args 24583}#)))))
+         (#{req 24584}# #{orig-args 24583}# '()))))
+   (#{expand-simple-lambda 4344}#
+     (lambda (#{e 25028}#
+              #{r 25029}#
+              #{w 25030}#
+              #{s 25031}#
+              #{mod 25032}#
+              #{req 25033}#
+              #{rest 25034}#
+              #{meta 25035}#
+              #{body 25036}#)
+       (let ((#{ids 25037}#
+               (if #{rest 25034}#
+                 (append #{req 25033}# (list #{rest 25034}#))
+                 #{req 25033}#)))
+         (let ((#{vars 25038}#
+                 (map #{gen-var 4348}# #{ids 25037}#)))
+           (let ((#{labels 25039}#
+                   (#{gen-labels 4305}# #{ids 25037}#)))
+             (#{build-simple-lambda 4278}#
+               #{s 25031}#
+               (map syntax->datum #{req 25033}#)
+               (if #{rest 25034}#
+                 (syntax->datum #{rest 25034}#)
                  #f)
-               #{vars 26161}#
-               #{meta 26158}#
-               (#{expand-body 4337}#
-                 #{body 26159}#
-                 (#{wrap 4326}#
+               #{vars 25038}#
+               #{meta 25035}#
+               (#{expand-body 4338}#
+                 #{body 25036}#
+                 (#{wrap 4327}#
                    (begin
-                     (if (if (pair? #{e 26151}#) #{s 26154}# #f)
-                       (set-source-properties! #{e 26151}# #{s 26154}#))
-                     #{e 26151}#)
-                   #{w 26153}#
-                   #{mod 26155}#)
-                 (#{extend-var-env 4296}#
-                   #{labels 26162}#
-                   #{vars 26161}#
-                   #{r 26152}#)
-                 (#{make-binding-wrap 4315}#
-                   #{ids 26160}#
-                   #{labels 26162}#
-                   #{w 26153}#)
-                 #{mod 26155}#)))))))
-   (#{lambda*-formals 4344}#
-     (lambda (#{orig-args 26462}#)
+                     (if (if (pair? #{e 25028}#) #{s 25031}# #f)
+                       (set-source-properties! #{e 25028}# #{s 25031}#))
+                     #{e 25028}#)
+                   #{w 25030}#
+                   #{mod 25032}#)
+                 (#{extend-var-env 4297}#
+                   #{labels 25039}#
+                   #{vars 25038}#
+                   #{r 25029}#)
+                 (#{make-binding-wrap 4316}#
+                   #{ids 25037}#
+                   #{labels 25039}#
+                   #{w 25030}#)
+                 #{mod 25032}#)))))))
+   (#{lambda*-formals 4345}#
+     (lambda (#{orig-args 25339}#)
        (letrec*
-         ((#{req 26463}#
-            (lambda (#{args 26470}# #{rreq 26471}#)
-              (let ((#{tmp 26473}# ($sc-dispatch #{args 26470}# '())))
-                (if #{tmp 26473}#
+         ((#{req 25340}#
+            (lambda (#{args 25347}# #{rreq 25348}#)
+              (let ((#{tmp 25350}# ($sc-dispatch #{args 25347}# '())))
+                (if #{tmp 25350}#
                   (@apply
                     (lambda ()
-                      (#{check 26467}#
-                        (reverse #{rreq 26471}#)
+                      (#{check 25344}#
+                        (reverse #{rreq 25348}#)
                         '()
                         #f
                         '()))
-                    #{tmp 26473}#)
-                  (let ((#{tmp 26479}#
-                          ($sc-dispatch #{args 26470}# '(any . any))))
-                    (if (if #{tmp 26479}#
+                    #{tmp 25350}#)
+                  (let ((#{tmp 25356}#
+                          ($sc-dispatch #{args 25347}# '(any . any))))
+                    (if (if #{tmp 25356}#
                           (@apply
-                            (lambda (#{a 26483}# #{b 26484}#)
-                              (if (symbol? #{a 26483}#)
+                            (lambda (#{a 25360}# #{b 25361}#)
+                              (if (symbol? #{a 25360}#)
                                 #t
-                                (if (if (vector? #{a 26483}#)
-                                      (if (= (vector-length #{a 26483}#) 4)
-                                        (eq? (vector-ref #{a 26483}# 0)
+                                (if (if (vector? #{a 25360}#)
+                                      (if (= (vector-length #{a 25360}#) 4)
+                                        (eq? (vector-ref #{a 25360}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 26483}# 1))
+                                  (symbol? (vector-ref #{a 25360}# 1))
                                   #f)))
-                            #{tmp 26479}#)
+                            #{tmp 25356}#)
                           #f)
                       (@apply
-                        (lambda (#{a 26511}# #{b 26512}#)
-                          (#{req 26463}#
-                            #{b 26512}#
-                            (cons #{a 26511}# #{rreq 26471}#)))
-                        #{tmp 26479}#)
-                      (let ((#{tmp 26513}#
-                              ($sc-dispatch #{args 26470}# '(any . any))))
-                        (if (if #{tmp 26513}#
+                        (lambda (#{a 25388}# #{b 25389}#)
+                          (#{req 25340}#
+                            #{b 25389}#
+                            (cons #{a 25388}# #{rreq 25348}#)))
+                        #{tmp 25356}#)
+                      (let ((#{tmp 25390}#
+                              ($sc-dispatch #{args 25347}# '(any . any))))
+                        (if (if #{tmp 25390}#
                               (@apply
-                                (lambda (#{a 26517}# #{b 26518}#)
-                                  (eq? (syntax->datum #{a 26517}#) #:optional))
-                                #{tmp 26513}#)
+                                (lambda (#{a 25394}# #{b 25395}#)
+                                  (eq? (syntax->datum #{a 25394}#) #:optional))
+                                #{tmp 25390}#)
                               #f)
                           (@apply
-                            (lambda (#{a 26519}# #{b 26520}#)
-                              (#{opt 26464}#
-                                #{b 26520}#
-                                (reverse #{rreq 26471}#)
+                            (lambda (#{a 25396}# #{b 25397}#)
+                              (#{opt 25341}#
+                                #{b 25397}#
+                                (reverse #{rreq 25348}#)
                                 '()))
-                            #{tmp 26513}#)
-                          (let ((#{tmp 26523}#
-                                  ($sc-dispatch #{args 26470}# '(any . any))))
-                            (if (if #{tmp 26523}#
+                            #{tmp 25390}#)
+                          (let ((#{tmp 25400}#
+                                  ($sc-dispatch #{args 25347}# '(any . any))))
+                            (if (if #{tmp 25400}#
                                   (@apply
-                                    (lambda (#{a 26527}# #{b 26528}#)
-                                      (eq? (syntax->datum #{a 26527}#) #:key))
-                                    #{tmp 26523}#)
+                                    (lambda (#{a 25404}# #{b 25405}#)
+                                      (eq? (syntax->datum #{a 25404}#) #:key))
+                                    #{tmp 25400}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 26529}# #{b 26530}#)
-                                  (#{key 26465}#
-                                    #{b 26530}#
-                                    (reverse #{rreq 26471}#)
+                                (lambda (#{a 25406}# #{b 25407}#)
+                                  (#{key 25342}#
+                                    #{b 25407}#
+                                    (reverse #{rreq 25348}#)
                                     '()
                                     '()))
-                                #{tmp 26523}#)
-                              (let ((#{tmp 26533}#
+                                #{tmp 25400}#)
+                              (let ((#{tmp 25410}#
                                       ($sc-dispatch
-                                        #{args 26470}#
+                                        #{args 25347}#
                                         '(any any))))
-                                (if (if #{tmp 26533}#
+                                (if (if #{tmp 25410}#
                                       (@apply
-                                        (lambda (#{a 26537}# #{b 26538}#)
-                                          (eq? (syntax->datum #{a 26537}#)
+                                        (lambda (#{a 25414}# #{b 25415}#)
+                                          (eq? (syntax->datum #{a 25414}#)
                                                #:rest))
-                                        #{tmp 26533}#)
+                                        #{tmp 25410}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a 26539}# #{b 26540}#)
-                                      (#{rest 26466}#
-                                        #{b 26540}#
-                                        (reverse #{rreq 26471}#)
+                                    (lambda (#{a 25416}# #{b 25417}#)
+                                      (#{rest 25343}#
+                                        #{b 25417}#
+                                        (reverse #{rreq 25348}#)
                                         '()
                                         '()))
-                                    #{tmp 26533}#)
-                                  (let ((#{tmp 26543}# (list #{args 26470}#)))
+                                    #{tmp 25410}#)
+                                  (let ((#{tmp 25420}# (list #{args 25347}#)))
                                     (if (@apply
-                                          (lambda (#{r 26545}#)
-                                            (if (symbol? #{r 26545}#)
+                                          (lambda (#{r 25422}#)
+                                            (if (symbol? #{r 25422}#)
                                               #t
-                                              (if (if (vector? #{r 26545}#)
+                                              (if (if (vector? #{r 25422}#)
                                                     (if (= (vector-length
-                                                             #{r 26545}#)
+                                                             #{r 25422}#)
                                                            4)
                                                       (eq? (vector-ref
-                                                             #{r 26545}#
+                                                             #{r 25422}#
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
                                                 (symbol?
-                                                  (vector-ref #{r 26545}# 1))
+                                                  (vector-ref #{r 25422}# 1))
                                                 #f)))
-                                          #{tmp 26543}#)
+                                          #{tmp 25420}#)
                                       (@apply
-                                        (lambda (#{r 26575}#)
-                                          (#{rest 26466}#
-                                            #{r 26575}#
-                                            (reverse #{rreq 26471}#)
+                                        (lambda (#{r 25452}#)
+                                          (#{rest 25343}#
+                                            #{r 25452}#
+                                            (reverse #{rreq 25348}#)
                                             '()
                                             '()))
-                                        #{tmp 26543}#)
+                                        #{tmp 25420}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid argument list"
-                                        #{orig-args 26462}#
-                                        #{args 26470}#)))))))))))))))
-          (#{opt 26464}#
-            (lambda (#{args 26594}# #{req 26595}# #{ropt 26596}#)
-              (let ((#{tmp 26598}# ($sc-dispatch #{args 26594}# '())))
-                (if #{tmp 26598}#
+                                        #{orig-args 25339}#
+                                        #{args 25347}#)))))))))))))))
+          (#{opt 25341}#
+            (lambda (#{args 25471}# #{req 25472}# #{ropt 25473}#)
+              (let ((#{tmp 25475}# ($sc-dispatch #{args 25471}# '())))
+                (if #{tmp 25475}#
                   (@apply
                     (lambda ()
-                      (#{check 26467}#
-                        #{req 26595}#
-                        (reverse #{ropt 26596}#)
+                      (#{check 25344}#
+                        #{req 25472}#
+                        (reverse #{ropt 25473}#)
                         #f
                         '()))
-                    #{tmp 26598}#)
-                  (let ((#{tmp 26604}#
-                          ($sc-dispatch #{args 26594}# '(any . any))))
-                    (if (if #{tmp 26604}#
+                    #{tmp 25475}#)
+                  (let ((#{tmp 25481}#
+                          ($sc-dispatch #{args 25471}# '(any . any))))
+                    (if (if #{tmp 25481}#
                           (@apply
-                            (lambda (#{a 26608}# #{b 26609}#)
-                              (if (symbol? #{a 26608}#)
+                            (lambda (#{a 25485}# #{b 25486}#)
+                              (if (symbol? #{a 25485}#)
                                 #t
-                                (if (if (vector? #{a 26608}#)
-                                      (if (= (vector-length #{a 26608}#) 4)
-                                        (eq? (vector-ref #{a 26608}# 0)
+                                (if (if (vector? #{a 25485}#)
+                                      (if (= (vector-length #{a 25485}#) 4)
+                                        (eq? (vector-ref #{a 25485}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 26608}# 1))
+                                  (symbol? (vector-ref #{a 25485}# 1))
                                   #f)))
-                            #{tmp 26604}#)
+                            #{tmp 25481}#)
                           #f)
                       (@apply
-                        (lambda (#{a 26636}# #{b 26637}#)
-                          (#{opt 26464}#
-                            #{b 26637}#
-                            #{req 26595}#
-                            (cons (cons #{a 26636}#
+                        (lambda (#{a 25513}# #{b 25514}#)
+                          (#{opt 25341}#
+                            #{b 25514}#
+                            #{req 25472}#
+                            (cons (cons #{a 25513}#
                                         '(#(syntax-object
                                             #f
                                             ((top)
                                              #(ribcage
                                                #(a b)
                                                #((top) (top))
-                                               #("i2357" "i2358"))
+                                               #("i2358" "i2359"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(args req ropt)
                                                #((top) (top) (top))
-                                               #("i2347" "i2348" "i2349"))
+                                               #("i2348" "i2349" "i2350"))
                                              #(ribcage
                                                (check rest key opt req)
                                                ((top) (top) (top) (top) (top))
-                                               ("i2293"
-                                                "i2291"
-                                                "i2289"
-                                                "i2287"
-                                                "i2285"))
+                                               ("i2294"
+                                                "i2292"
+                                                "i2290"
+                                                "i2288"
+                                                "i2286"))
                                              #(ribcage
                                                #(orig-args)
                                                #((top))
-                                               #("i2284"))
+                                               #("i2285"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -6559,147 +6671,147 @@
                                                ((top) (top) (top))
                                                ("i46" "i45" "i44")))
                                             (hygiene guile))))
-                                  #{ropt 26596}#)))
-                        #{tmp 26604}#)
-                      (let ((#{tmp 26638}#
+                                  #{ropt 25473}#)))
+                        #{tmp 25481}#)
+                      (let ((#{tmp 25515}#
                               ($sc-dispatch
-                                #{args 26594}#
+                                #{args 25471}#
                                 '((any any) . any))))
-                        (if (if #{tmp 26638}#
+                        (if (if #{tmp 25515}#
                               (@apply
-                                (lambda (#{a 26642}#
-                                         #{init 26643}#
-                                         #{b 26644}#)
-                                  (if (symbol? #{a 26642}#)
+                                (lambda (#{a 25519}#
+                                         #{init 25520}#
+                                         #{b 25521}#)
+                                  (if (symbol? #{a 25519}#)
                                     #t
-                                    (if (if (vector? #{a 26642}#)
-                                          (if (= (vector-length #{a 26642}#) 4)
-                                            (eq? (vector-ref #{a 26642}# 0)
+                                    (if (if (vector? #{a 25519}#)
+                                          (if (= (vector-length #{a 25519}#) 4)
+                                            (eq? (vector-ref #{a 25519}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (symbol? (vector-ref #{a 26642}# 1))
+                                      (symbol? (vector-ref #{a 25519}# 1))
                                       #f)))
-                                #{tmp 26638}#)
+                                #{tmp 25515}#)
                               #f)
                           (@apply
-                            (lambda (#{a 26671}# #{init 26672}# #{b 26673}#)
-                              (#{opt 26464}#
-                                #{b 26673}#
-                                #{req 26595}#
-                                (cons (list #{a 26671}# #{init 26672}#)
-                                      #{ropt 26596}#)))
-                            #{tmp 26638}#)
-                          (let ((#{tmp 26674}#
-                                  ($sc-dispatch #{args 26594}# '(any . any))))
-                            (if (if #{tmp 26674}#
+                            (lambda (#{a 25548}# #{init 25549}# #{b 25550}#)
+                              (#{opt 25341}#
+                                #{b 25550}#
+                                #{req 25472}#
+                                (cons (list #{a 25548}# #{init 25549}#)
+                                      #{ropt 25473}#)))
+                            #{tmp 25515}#)
+                          (let ((#{tmp 25551}#
+                                  ($sc-dispatch #{args 25471}# '(any . any))))
+                            (if (if #{tmp 25551}#
                                   (@apply
-                                    (lambda (#{a 26678}# #{b 26679}#)
-                                      (eq? (syntax->datum #{a 26678}#) #:key))
-                                    #{tmp 26674}#)
+                                    (lambda (#{a 25555}# #{b 25556}#)
+                                      (eq? (syntax->datum #{a 25555}#) #:key))
+                                    #{tmp 25551}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 26680}# #{b 26681}#)
-                                  (#{key 26465}#
-                                    #{b 26681}#
-                                    #{req 26595}#
-                                    (reverse #{ropt 26596}#)
+                                (lambda (#{a 25557}# #{b 25558}#)
+                                  (#{key 25342}#
+                                    #{b 25558}#
+                                    #{req 25472}#
+                                    (reverse #{ropt 25473}#)
                                     '()))
-                                #{tmp 26674}#)
-                              (let ((#{tmp 26684}#
+                                #{tmp 25551}#)
+                              (let ((#{tmp 25561}#
                                       ($sc-dispatch
-                                        #{args 26594}#
+                                        #{args 25471}#
                                         '(any any))))
-                                (if (if #{tmp 26684}#
+                                (if (if #{tmp 25561}#
                                       (@apply
-                                        (lambda (#{a 26688}# #{b 26689}#)
-                                          (eq? (syntax->datum #{a 26688}#)
+                                        (lambda (#{a 25565}# #{b 25566}#)
+                                          (eq? (syntax->datum #{a 25565}#)
                                                #:rest))
-                                        #{tmp 26684}#)
+                                        #{tmp 25561}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a 26690}# #{b 26691}#)
-                                      (#{rest 26466}#
-                                        #{b 26691}#
-                                        #{req 26595}#
-                                        (reverse #{ropt 26596}#)
+                                    (lambda (#{a 25567}# #{b 25568}#)
+                                      (#{rest 25343}#
+                                        #{b 25568}#
+                                        #{req 25472}#
+                                        (reverse #{ropt 25473}#)
                                         '()))
-                                    #{tmp 26684}#)
-                                  (let ((#{tmp 26694}# (list #{args 26594}#)))
+                                    #{tmp 25561}#)
+                                  (let ((#{tmp 25571}# (list #{args 25471}#)))
                                     (if (@apply
-                                          (lambda (#{r 26696}#)
-                                            (if (symbol? #{r 26696}#)
+                                          (lambda (#{r 25573}#)
+                                            (if (symbol? #{r 25573}#)
                                               #t
-                                              (if (if (vector? #{r 26696}#)
+                                              (if (if (vector? #{r 25573}#)
                                                     (if (= (vector-length
-                                                             #{r 26696}#)
+                                                             #{r 25573}#)
                                                            4)
                                                       (eq? (vector-ref
-                                                             #{r 26696}#
+                                                             #{r 25573}#
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
                                                 (symbol?
-                                                  (vector-ref #{r 26696}# 1))
+                                                  (vector-ref #{r 25573}# 1))
                                                 #f)))
-                                          #{tmp 26694}#)
+                                          #{tmp 25571}#)
                                       (@apply
-                                        (lambda (#{r 26726}#)
-                                          (#{rest 26466}#
-                                            #{r 26726}#
-                                            #{req 26595}#
-                                            (reverse #{ropt 26596}#)
+                                        (lambda (#{r 25603}#)
+                                          (#{rest 25343}#
+                                            #{r 25603}#
+                                            #{req 25472}#
+                                            (reverse #{ropt 25473}#)
                                             '()))
-                                        #{tmp 26694}#)
+                                        #{tmp 25571}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid optional argument list"
-                                        #{orig-args 26462}#
-                                        #{args 26594}#)))))))))))))))
-          (#{key 26465}#
-            (lambda (#{args 26745}#
-                     #{req 26746}#
-                     #{opt 26747}#
-                     #{rkey 26748}#)
-              (let ((#{tmp 26750}# ($sc-dispatch #{args 26745}# '())))
-                (if #{tmp 26750}#
+                                        #{orig-args 25339}#
+                                        #{args 25471}#)))))))))))))))
+          (#{key 25342}#
+            (lambda (#{args 25622}#
+                     #{req 25623}#
+                     #{opt 25624}#
+                     #{rkey 25625}#)
+              (let ((#{tmp 25627}# ($sc-dispatch #{args 25622}# '())))
+                (if #{tmp 25627}#
                   (@apply
                     (lambda ()
-                      (#{check 26467}#
-                        #{req 26746}#
-                        #{opt 26747}#
+                      (#{check 25344}#
+                        #{req 25623}#
+                        #{opt 25624}#
                         #f
-                        (cons #f (reverse #{rkey 26748}#))))
-                    #{tmp 26750}#)
-                  (let ((#{tmp 26756}#
-                          ($sc-dispatch #{args 26745}# '(any . any))))
-                    (if (if #{tmp 26756}#
+                        (cons #f (reverse #{rkey 25625}#))))
+                    #{tmp 25627}#)
+                  (let ((#{tmp 25633}#
+                          ($sc-dispatch #{args 25622}# '(any . any))))
+                    (if (if #{tmp 25633}#
                           (@apply
-                            (lambda (#{a 26760}# #{b 26761}#)
-                              (if (symbol? #{a 26760}#)
+                            (lambda (#{a 25637}# #{b 25638}#)
+                              (if (symbol? #{a 25637}#)
                                 #t
-                                (if (if (vector? #{a 26760}#)
-                                      (if (= (vector-length #{a 26760}#) 4)
-                                        (eq? (vector-ref #{a 26760}# 0)
+                                (if (if (vector? #{a 25637}#)
+                                      (if (= (vector-length #{a 25637}#) 4)
+                                        (eq? (vector-ref #{a 25637}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{a 26760}# 1))
+                                  (symbol? (vector-ref #{a 25637}# 1))
                                   #f)))
-                            #{tmp 26756}#)
+                            #{tmp 25633}#)
                           #f)
                       (@apply
-                        (lambda (#{a 26788}# #{b 26789}#)
-                          (let ((#{tmp 26790}#
+                        (lambda (#{a 25665}# #{b 25666}#)
+                          (let ((#{tmp 25667}#
                                   (symbol->keyword
-                                    (syntax->datum #{a 26788}#))))
-                            (#{key 26465}#
-                              #{b 26789}#
-                              #{req 26746}#
-                              #{opt 26747}#
-                              (cons (cons #{tmp 26790}#
-                                          (cons #{a 26788}#
+                                    (syntax->datum #{a 25665}#))))
+                            (#{key 25342}#
+                              #{b 25666}#
+                              #{req 25623}#
+                              #{opt 25624}#
+                              (cons (cons #{tmp 25667}#
+                                          (cons #{a 25665}#
                                                 '(#(syntax-object
                                                     #f
                                                     ((top)
@@ -6707,11 +6819,11 @@
                                                      #(ribcage
                                                        #(k)
                                                        #((top))
-                                                       #("i2420"))
+                                                       #("i2421"))
                                                      #(ribcage
                                                        #(a b)
                                                        #((top) (top))
-                                                       #("i2414" "i2415"))
+                                                       #("i2415" "i2416"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(args req opt rkey)
@@ -6719,10 +6831,10 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                       #("i2403"
-                                                         "i2404"
+                                                       #("i2404"
                                                          "i2405"
-                                                         "i2406"))
+                                                         "i2406"
+                                                         "i2407"))
                                                      #(ribcage
                                                        (check rest key opt req)
                                                        ((top)
@@ -6730,15 +6842,15 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i2293"
-                                                        "i2291"
-                                                        "i2289"
-                                                        "i2287"
-                                                        "i2285"))
+                                                       ("i2294"
+                                                        "i2292"
+                                                        "i2290"
+                                                        "i2288"
+                                                        "i2286"))
                                                      #(ribcage
                                                        #(orig-args)
                                                        #((top))
-                                                       #("i2284"))
+                                                       #("i2285"))
                                                      #(ribcage
                                                        (lambda-var-list
                                                          gen-var
@@ -7155,780 +7267,780 @@
                                                        ((top) (top) (top))
                                                        ("i46" "i45" "i44")))
                                                     (hygiene guile)))))
-                                    #{rkey 26748}#))))
-                        #{tmp 26756}#)
-                      (let ((#{tmp 26793}#
+                                    #{rkey 25625}#))))
+                        #{tmp 25633}#)
+                      (let ((#{tmp 25670}#
                               ($sc-dispatch
-                                #{args 26745}#
+                                #{args 25622}#
                                 '((any any) . any))))
-                        (if (if #{tmp 26793}#
+                        (if (if #{tmp 25670}#
                               (@apply
-                                (lambda (#{a 26797}#
-                                         #{init 26798}#
-                                         #{b 26799}#)
-                                  (if (symbol? #{a 26797}#)
+                                (lambda (#{a 25674}#
+                                         #{init 25675}#
+                                         #{b 25676}#)
+                                  (if (symbol? #{a 25674}#)
                                     #t
-                                    (if (if (vector? #{a 26797}#)
-                                          (if (= (vector-length #{a 26797}#) 4)
-                                            (eq? (vector-ref #{a 26797}# 0)
+                                    (if (if (vector? #{a 25674}#)
+                                          (if (= (vector-length #{a 25674}#) 4)
+                                            (eq? (vector-ref #{a 25674}# 0)
                                                  'syntax-object)
                                             #f)
                                           #f)
-                                      (symbol? (vector-ref #{a 26797}# 1))
+                                      (symbol? (vector-ref #{a 25674}# 1))
                                       #f)))
-                                #{tmp 26793}#)
+                                #{tmp 25670}#)
                               #f)
                           (@apply
-                            (lambda (#{a 26826}# #{init 26827}# #{b 26828}#)
-                              (let ((#{tmp 26829}#
+                            (lambda (#{a 25703}# #{init 25704}# #{b 25705}#)
+                              (let ((#{tmp 25706}#
                                       (symbol->keyword
-                                        (syntax->datum #{a 26826}#))))
-                                (#{key 26465}#
-                                  #{b 26828}#
-                                  #{req 26746}#
-                                  #{opt 26747}#
-                                  (cons (list #{tmp 26829}#
-                                              #{a 26826}#
-                                              #{init 26827}#)
-                                        #{rkey 26748}#))))
-                            #{tmp 26793}#)
-                          (let ((#{tmp 26832}#
+                                        (syntax->datum #{a 25703}#))))
+                                (#{key 25342}#
+                                  #{b 25705}#
+                                  #{req 25623}#
+                                  #{opt 25624}#
+                                  (cons (list #{tmp 25706}#
+                                              #{a 25703}#
+                                              #{init 25704}#)
+                                        #{rkey 25625}#))))
+                            #{tmp 25670}#)
+                          (let ((#{tmp 25709}#
                                   ($sc-dispatch
-                                    #{args 26745}#
+                                    #{args 25622}#
                                     '((any any any) . any))))
-                            (if (if #{tmp 26832}#
+                            (if (if #{tmp 25709}#
                                   (@apply
-                                    (lambda (#{a 26836}#
-                                             #{init 26837}#
-                                             #{k 26838}#
-                                             #{b 26839}#)
-                                      (if (if (symbol? #{a 26836}#)
+                                    (lambda (#{a 25713}#
+                                             #{init 25714}#
+                                             #{k 25715}#
+                                             #{b 25716}#)
+                                      (if (if (symbol? #{a 25713}#)
                                             #t
-                                            (if (if (vector? #{a 26836}#)
+                                            (if (if (vector? #{a 25713}#)
                                                   (if (= (vector-length
-                                                           #{a 26836}#)
+                                                           #{a 25713}#)
                                                          4)
                                                     (eq? (vector-ref
-                                                           #{a 26836}#
+                                                           #{a 25713}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (symbol?
-                                                (vector-ref #{a 26836}# 1))
+                                                (vector-ref #{a 25713}# 1))
                                               #f))
-                                        (keyword? (syntax->datum #{k 26838}#))
+                                        (keyword? (syntax->datum #{k 25715}#))
                                         #f))
-                                    #{tmp 26832}#)
+                                    #{tmp 25709}#)
                                   #f)
                               (@apply
-                                (lambda (#{a 26866}#
-                                         #{init 26867}#
-                                         #{k 26868}#
-                                         #{b 26869}#)
-                                  (#{key 26465}#
-                                    #{b 26869}#
-                                    #{req 26746}#
-                                    #{opt 26747}#
-                                    (cons (list #{k 26868}#
-                                                #{a 26866}#
-                                                #{init 26867}#)
-                                          #{rkey 26748}#)))
-                                #{tmp 26832}#)
-                              (let ((#{tmp 26870}#
-                                      ($sc-dispatch #{args 26745}# '(any))))
-                                (if (if #{tmp 26870}#
+                                (lambda (#{a 25743}#
+                                         #{init 25744}#
+                                         #{k 25745}#
+                                         #{b 25746}#)
+                                  (#{key 25342}#
+                                    #{b 25746}#
+                                    #{req 25623}#
+                                    #{opt 25624}#
+                                    (cons (list #{k 25745}#
+                                                #{a 25743}#
+                                                #{init 25744}#)
+                                          #{rkey 25625}#)))
+                                #{tmp 25709}#)
+                              (let ((#{tmp 25747}#
+                                      ($sc-dispatch #{args 25622}# '(any))))
+                                (if (if #{tmp 25747}#
                                       (@apply
-                                        (lambda (#{aok 26874}#)
-                                          (eq? (syntax->datum #{aok 26874}#)
+                                        (lambda (#{aok 25751}#)
+                                          (eq? (syntax->datum #{aok 25751}#)
                                                #:allow-other-keys))
-                                        #{tmp 26870}#)
+                                        #{tmp 25747}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{aok 26875}#)
-                                      (#{check 26467}#
-                                        #{req 26746}#
-                                        #{opt 26747}#
+                                    (lambda (#{aok 25752}#)
+                                      (#{check 25344}#
+                                        #{req 25623}#
+                                        #{opt 25624}#
                                         #f
-                                        (cons #t (reverse #{rkey 26748}#))))
-                                    #{tmp 26870}#)
-                                  (let ((#{tmp 26878}#
+                                        (cons #t (reverse #{rkey 25625}#))))
+                                    #{tmp 25747}#)
+                                  (let ((#{tmp 25755}#
                                           ($sc-dispatch
-                                            #{args 26745}#
+                                            #{args 25622}#
                                             '(any any any))))
-                                    (if (if #{tmp 26878}#
+                                    (if (if #{tmp 25755}#
                                           (@apply
-                                            (lambda (#{aok 26882}#
-                                                     #{a 26883}#
-                                                     #{b 26884}#)
+                                            (lambda (#{aok 25759}#
+                                                     #{a 25760}#
+                                                     #{b 25761}#)
                                               (if (eq? (syntax->datum
-                                                         #{aok 26882}#)
+                                                         #{aok 25759}#)
                                                        #:allow-other-keys)
                                                 (eq? (syntax->datum
-                                                       #{a 26883}#)
+                                                       #{a 25760}#)
                                                      #:rest)
                                                 #f))
-                                            #{tmp 26878}#)
+                                            #{tmp 25755}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{aok 26885}#
-                                                 #{a 26886}#
-                                                 #{b 26887}#)
-                                          (#{rest 26466}#
-                                            #{b 26887}#
-                                            #{req 26746}#
-                                            #{opt 26747}#
+                                        (lambda (#{aok 25762}#
+                                                 #{a 25763}#
+                                                 #{b 25764}#)
+                                          (#{rest 25343}#
+                                            #{b 25764}#
+                                            #{req 25623}#
+                                            #{opt 25624}#
                                             (cons #t
-                                                  (reverse #{rkey 26748}#))))
-                                        #{tmp 26878}#)
-                                      (let ((#{tmp 26890}#
+                                                  (reverse #{rkey 25625}#))))
+                                        #{tmp 25755}#)
+                                      (let ((#{tmp 25767}#
                                               ($sc-dispatch
-                                                #{args 26745}#
+                                                #{args 25622}#
                                                 '(any . any))))
-                                        (if (if #{tmp 26890}#
+                                        (if (if #{tmp 25767}#
                                               (@apply
-                                                (lambda (#{aok 26894}#
-                                                         #{r 26895}#)
+                                                (lambda (#{aok 25771}#
+                                                         #{r 25772}#)
                                                   (if (eq? (syntax->datum
-                                                             #{aok 26894}#)
+                                                             #{aok 25771}#)
                                                            #:allow-other-keys)
-                                                    (if (symbol? #{r 26895}#)
+                                                    (if (symbol? #{r 25772}#)
                                                       #t
                                                       (if (if (vector?
-                                                                #{r 26895}#)
+                                                                #{r 25772}#)
                                                             (if (= 
(vector-length
-                                                                     #{r 
26895}#)
+                                                                     #{r 
25772}#)
                                                                    4)
                                                               (eq? (vector-ref
-                                                                     #{r 
26895}#
+                                                                     #{r 
25772}#
                                                                      0)
                                                                    
'syntax-object)
                                                               #f)
                                                             #f)
                                                         (symbol?
                                                           (vector-ref
-                                                            #{r 26895}#
+                                                            #{r 25772}#
                                                             1))
                                                         #f))
                                                     #f))
-                                                #{tmp 26890}#)
+                                                #{tmp 25767}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{aok 26922}# #{r 26923}#)
-                                              (#{rest 26466}#
-                                                #{r 26923}#
-                                                #{req 26746}#
-                                                #{opt 26747}#
+                                            (lambda (#{aok 25799}# #{r 25800}#)
+                                              (#{rest 25343}#
+                                                #{r 25800}#
+                                                #{req 25623}#
+                                                #{opt 25624}#
                                                 (cons #t
                                                       (reverse
-                                                        #{rkey 26748}#))))
-                                            #{tmp 26890}#)
-                                          (let ((#{tmp 26926}#
+                                                        #{rkey 25625}#))))
+                                            #{tmp 25767}#)
+                                          (let ((#{tmp 25803}#
                                                   ($sc-dispatch
-                                                    #{args 26745}#
+                                                    #{args 25622}#
                                                     '(any any))))
-                                            (if (if #{tmp 26926}#
+                                            (if (if #{tmp 25803}#
                                                   (@apply
-                                                    (lambda (#{a 26930}#
-                                                             #{b 26931}#)
+                                                    (lambda (#{a 25807}#
+                                                             #{b 25808}#)
                                                       (eq? (syntax->datum
-                                                             #{a 26930}#)
+                                                             #{a 25807}#)
                                                            #:rest))
-                                                    #{tmp 26926}#)
+                                                    #{tmp 25803}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{a 26932}#
-                                                         #{b 26933}#)
-                                                  (#{rest 26466}#
-                                                    #{b 26933}#
-                                                    #{req 26746}#
-                                                    #{opt 26747}#
+                                                (lambda (#{a 25809}#
+                                                         #{b 25810}#)
+                                                  (#{rest 25343}#
+                                                    #{b 25810}#
+                                                    #{req 25623}#
+                                                    #{opt 25624}#
                                                     (cons #f
                                                           (reverse
-                                                            #{rkey 26748}#))))
-                                                #{tmp 26926}#)
-                                              (let ((#{tmp 26936}#
-                                                      (list #{args 26745}#)))
+                                                            #{rkey 25625}#))))
+                                                #{tmp 25803}#)
+                                              (let ((#{tmp 25813}#
+                                                      (list #{args 25622}#)))
                                                 (if (@apply
-                                                      (lambda (#{r 26938}#)
+                                                      (lambda (#{r 25815}#)
                                                         (if (symbol?
-                                                              #{r 26938}#)
+                                                              #{r 25815}#)
                                                           #t
                                                           (if (if (vector?
-                                                                    #{r 
26938}#)
+                                                                    #{r 
25815}#)
                                                                 (if (= 
(vector-length
-                                                                         #{r 
26938}#)
+                                                                         #{r 
25815}#)
                                                                        4)
                                                                   (eq? 
(vector-ref
-                                                                         #{r 
26938}#
+                                                                         #{r 
25815}#
                                                                          0)
                                                                        
'syntax-object)
                                                                   #f)
                                                                 #f)
                                                             (symbol?
                                                               (vector-ref
-                                                                #{r 26938}#
+                                                                #{r 25815}#
                                                                 1))
                                                             #f)))
-                                                      #{tmp 26936}#)
+                                                      #{tmp 25813}#)
                                                   (@apply
-                                                    (lambda (#{r 26968}#)
-                                                      (#{rest 26466}#
-                                                        #{r 26968}#
-                                                        #{req 26746}#
-                                                        #{opt 26747}#
+                                                    (lambda (#{r 25845}#)
+                                                      (#{rest 25343}#
+                                                        #{r 25845}#
+                                                        #{req 25623}#
+                                                        #{opt 25624}#
                                                         (cons #f
                                                               (reverse
-                                                                #{rkey 
26748}#))))
-                                                    #{tmp 26936}#)
+                                                                #{rkey 
25625}#))))
+                                                    #{tmp 25813}#)
                                                   (syntax-violation
                                                     'lambda*
                                                     "invalid keyword argument 
list"
-                                                    #{orig-args 26462}#
-                                                    #{args 
26745}#)))))))))))))))))))))
-          (#{rest 26466}#
-            (lambda (#{args 26996}#
-                     #{req 26997}#
-                     #{opt 26998}#
-                     #{kw 26999}#)
-              (let ((#{tmp 27001}# (list #{args 26996}#)))
+                                                    #{orig-args 25339}#
+                                                    #{args 
25622}#)))))))))))))))))))))
+          (#{rest 25343}#
+            (lambda (#{args 25873}#
+                     #{req 25874}#
+                     #{opt 25875}#
+                     #{kw 25876}#)
+              (let ((#{tmp 25878}# (list #{args 25873}#)))
                 (if (@apply
-                      (lambda (#{r 27003}#)
-                        (if (symbol? #{r 27003}#)
+                      (lambda (#{r 25880}#)
+                        (if (symbol? #{r 25880}#)
                           #t
-                          (if (if (vector? #{r 27003}#)
-                                (if (= (vector-length #{r 27003}#) 4)
-                                  (eq? (vector-ref #{r 27003}# 0)
+                          (if (if (vector? #{r 25880}#)
+                                (if (= (vector-length #{r 25880}#) 4)
+                                  (eq? (vector-ref #{r 25880}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{r 27003}# 1))
+                            (symbol? (vector-ref #{r 25880}# 1))
                             #f)))
-                      #{tmp 27001}#)
+                      #{tmp 25878}#)
                   (@apply
-                    (lambda (#{r 27033}#)
-                      (#{check 26467}#
-                        #{req 26997}#
-                        #{opt 26998}#
-                        #{r 27033}#
-                        #{kw 26999}#))
-                    #{tmp 27001}#)
+                    (lambda (#{r 25910}#)
+                      (#{check 25344}#
+                        #{req 25874}#
+                        #{opt 25875}#
+                        #{r 25910}#
+                        #{kw 25876}#))
+                    #{tmp 25878}#)
                   (syntax-violation
                     'lambda*
                     "invalid rest argument"
-                    #{orig-args 26462}#
-                    #{args 26996}#)))))
-          (#{check 26467}#
-            (lambda (#{req 27037}#
-                     #{opt 27038}#
-                     #{rest 27039}#
-                     #{kw 27040}#)
-              (if (#{distinct-bound-ids? 4324}#
+                    #{orig-args 25339}#
+                    #{args 25873}#)))))
+          (#{check 25344}#
+            (lambda (#{req 25914}#
+                     #{opt 25915}#
+                     #{rest 25916}#
+                     #{kw 25917}#)
+              (if (#{distinct-bound-ids? 4325}#
                     (append
-                      #{req 27037}#
-                      (map car #{opt 27038}#)
-                      (if #{rest 27039}# (list #{rest 27039}#) '())
-                      (if (pair? #{kw 27040}#)
-                        (map cadr (cdr #{kw 27040}#))
+                      #{req 25914}#
+                      (map car #{opt 25915}#)
+                      (if #{rest 25916}# (list #{rest 25916}#) '())
+                      (if (pair? #{kw 25917}#)
+                        (map cadr (cdr #{kw 25917}#))
                         '())))
                 (values
-                  #{req 27037}#
-                  #{opt 27038}#
-                  #{rest 27039}#
-                  #{kw 27040}#)
+                  #{req 25914}#
+                  #{opt 25915}#
+                  #{rest 25916}#
+                  #{kw 25917}#)
                 (syntax-violation
                   'lambda*
                   "duplicate identifier in argument list"
-                  #{orig-args 26462}#)))))
-         (#{req 26463}# #{orig-args 26462}# '()))))
-   (#{expand-lambda-case 4345}#
-     (lambda (#{e 27160}#
-              #{r 27161}#
-              #{w 27162}#
-              #{s 27163}#
-              #{mod 27164}#
-              #{get-formals 27165}#
-              #{clauses 27166}#)
+                  #{orig-args 25339}#)))))
+         (#{req 25340}# #{orig-args 25339}# '()))))
+   (#{expand-lambda-case 4346}#
+     (lambda (#{e 26033}#
+              #{r 26034}#
+              #{w 26035}#
+              #{s 26036}#
+              #{mod 26037}#
+              #{get-formals 26038}#
+              #{clauses 26039}#)
        (letrec*
-         ((#{parse-req 27167}#
-            (lambda (#{req 27301}#
-                     #{opt 27302}#
-                     #{rest 27303}#
-                     #{kw 27304}#
-                     #{body 27305}#)
-              (let ((#{vars 27306}#
-                      (map #{gen-var 4347}# #{req 27301}#))
-                    (#{labels 27307}#
-                      (#{gen-labels 4304}# #{req 27301}#)))
-                (let ((#{r* 27308}#
-                        (#{extend-var-env 4296}#
-                          #{labels 27307}#
-                          #{vars 27306}#
-                          #{r 27161}#))
-                      (#{w* 27309}#
-                        (#{make-binding-wrap 4315}#
-                          #{req 27301}#
-                          #{labels 27307}#
-                          #{w 27162}#)))
-                  (#{parse-opt 27168}#
-                    (map syntax->datum #{req 27301}#)
-                    #{opt 27302}#
-                    #{rest 27303}#
-                    #{kw 27304}#
-                    #{body 27305}#
-                    (reverse #{vars 27306}#)
-                    #{r* 27308}#
-                    #{w* 27309}#
+         ((#{parse-req 26040}#
+            (lambda (#{req 26173}#
+                     #{opt 26174}#
+                     #{rest 26175}#
+                     #{kw 26176}#
+                     #{body 26177}#)
+              (let ((#{vars 26178}#
+                      (map #{gen-var 4348}# #{req 26173}#))
+                    (#{labels 26179}#
+                      (#{gen-labels 4305}# #{req 26173}#)))
+                (let ((#{r* 26180}#
+                        (#{extend-var-env 4297}#
+                          #{labels 26179}#
+                          #{vars 26178}#
+                          #{r 26034}#))
+                      (#{w* 26181}#
+                        (#{make-binding-wrap 4316}#
+                          #{req 26173}#
+                          #{labels 26179}#
+                          #{w 26035}#)))
+                  (#{parse-opt 26041}#
+                    (map syntax->datum #{req 26173}#)
+                    #{opt 26174}#
+                    #{rest 26175}#
+                    #{kw 26176}#
+                    #{body 26177}#
+                    (reverse #{vars 26178}#)
+                    #{r* 26180}#
+                    #{w* 26181}#
                     '()
                     '())))))
-          (#{parse-opt 27168}#
-            (lambda (#{req 27525}#
-                     #{opt 27526}#
-                     #{rest 27527}#
-                     #{kw 27528}#
-                     #{body 27529}#
-                     #{vars 27530}#
-                     #{r* 27531}#
-                     #{w* 27532}#
-                     #{out 27533}#
-                     #{inits 27534}#)
-              (if (pair? #{opt 27526}#)
-                (let ((#{tmp 27535}# (car #{opt 27526}#)))
-                  (let ((#{tmp 27536}#
-                          ($sc-dispatch #{tmp 27535}# '(any any))))
-                    (if #{tmp 27536}#
+          (#{parse-opt 26041}#
+            (lambda (#{req 26395}#
+                     #{opt 26396}#
+                     #{rest 26397}#
+                     #{kw 26398}#
+                     #{body 26399}#
+                     #{vars 26400}#
+                     #{r* 26401}#
+                     #{w* 26402}#
+                     #{out 26403}#
+                     #{inits 26404}#)
+              (if (pair? #{opt 26396}#)
+                (let ((#{tmp 26405}# (car #{opt 26396}#)))
+                  (let ((#{tmp 26406}#
+                          ($sc-dispatch #{tmp 26405}# '(any any))))
+                    (if #{tmp 26406}#
                       (@apply
-                        (lambda (#{id 27538}# #{i 27539}#)
-                          (let ((#{v 27540}#
-                                  (let ((#{id 27548}#
-                                          (if (if (vector? #{id 27538}#)
+                        (lambda (#{id 26408}# #{i 26409}#)
+                          (let ((#{v 26410}#
+                                  (let ((#{id 26418}#
+                                          (if (if (vector? #{id 26408}#)
                                                 (if (= (vector-length
-                                                         #{id 27538}#)
+                                                         #{id 26408}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{id 27538}#
+                                                         #{id 26408}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (vector-ref #{id 27538}# 1)
-                                            #{id 27538}#)))
+                                            (vector-ref #{id 26408}# 1)
+                                            #{id 26408}#)))
                                     (gensym
                                       (string-append
-                                        (symbol->string #{id 27548}#)
+                                        (symbol->string #{id 26418}#)
                                         " ")))))
-                            (let ((#{l 27541}#
-                                    (#{gen-labels 4304}# (list #{v 27540}#))))
-                              (let ((#{r** 27542}#
-                                      (#{extend-var-env 4296}#
-                                        #{l 27541}#
-                                        (list #{v 27540}#)
-                                        #{r* 27531}#)))
-                                (let ((#{w** 27543}#
-                                        (#{make-binding-wrap 4315}#
-                                          (list #{id 27538}#)
-                                          #{l 27541}#
-                                          #{w* 27532}#)))
-                                  (#{parse-opt 27168}#
-                                    #{req 27525}#
-                                    (cdr #{opt 27526}#)
-                                    #{rest 27527}#
-                                    #{kw 27528}#
-                                    #{body 27529}#
-                                    (cons #{v 27540}# #{vars 27530}#)
-                                    #{r** 27542}#
-                                    #{w** 27543}#
-                                    (cons (syntax->datum #{id 27538}#)
-                                          #{out 27533}#)
-                                    (cons (#{expand 4333}#
-                                            #{i 27539}#
-                                            #{r* 27531}#
-                                            #{w* 27532}#
-                                            #{mod 27164}#)
-                                          #{inits 27534}#)))))))
-                        #{tmp 27536}#)
+                            (let ((#{l 26411}#
+                                    (#{gen-labels 4305}# (list #{v 26410}#))))
+                              (let ((#{r** 26412}#
+                                      (#{extend-var-env 4297}#
+                                        #{l 26411}#
+                                        (list #{v 26410}#)
+                                        #{r* 26401}#)))
+                                (let ((#{w** 26413}#
+                                        (#{make-binding-wrap 4316}#
+                                          (list #{id 26408}#)
+                                          #{l 26411}#
+                                          #{w* 26402}#)))
+                                  (#{parse-opt 26041}#
+                                    #{req 26395}#
+                                    (cdr #{opt 26396}#)
+                                    #{rest 26397}#
+                                    #{kw 26398}#
+                                    #{body 26399}#
+                                    (cons #{v 26410}# #{vars 26400}#)
+                                    #{r** 26412}#
+                                    #{w** 26413}#
+                                    (cons (syntax->datum #{id 26408}#)
+                                          #{out 26403}#)
+                                    (cons (#{expand 4334}#
+                                            #{i 26409}#
+                                            #{r* 26401}#
+                                            #{w* 26402}#
+                                            #{mod 26037}#)
+                                          #{inits 26404}#)))))))
+                        #{tmp 26406}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 27535}#))))
-                (if #{rest 27527}#
-                  (let ((#{v 27820}#
-                          (let ((#{id 27830}#
-                                  (if (if (vector? #{rest 27527}#)
-                                        (if (= (vector-length #{rest 27527}#)
+                        #{tmp 26405}#))))
+                (if #{rest 26397}#
+                  (let ((#{v 26683}#
+                          (let ((#{id 26693}#
+                                  (if (if (vector? #{rest 26397}#)
+                                        (if (= (vector-length #{rest 26397}#)
                                                4)
-                                          (eq? (vector-ref #{rest 27527}# 0)
+                                          (eq? (vector-ref #{rest 26397}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (vector-ref #{rest 27527}# 1)
-                                    #{rest 27527}#)))
+                                    (vector-ref #{rest 26397}# 1)
+                                    #{rest 26397}#)))
                             (gensym
                               (string-append
-                                (symbol->string #{id 27830}#)
+                                (symbol->string #{id 26693}#)
                                 " ")))))
-                    (let ((#{l 27821}#
-                            (#{gen-labels 4304}# (list #{v 27820}#))))
-                      (let ((#{r* 27822}#
-                              (#{extend-var-env 4296}#
-                                #{l 27821}#
-                                (list #{v 27820}#)
-                                #{r* 27531}#)))
-                        (let ((#{w* 27823}#
-                                (#{make-binding-wrap 4315}#
-                                  (list #{rest 27527}#)
-                                  #{l 27821}#
-                                  #{w* 27532}#)))
-                          (#{parse-kw 27169}#
-                            #{req 27525}#
-                            (if (pair? #{out 27533}#)
-                              (reverse #{out 27533}#)
+                    (let ((#{l 26684}#
+                            (#{gen-labels 4305}# (list #{v 26683}#))))
+                      (let ((#{r* 26685}#
+                              (#{extend-var-env 4297}#
+                                #{l 26684}#
+                                (list #{v 26683}#)
+                                #{r* 26401}#)))
+                        (let ((#{w* 26686}#
+                                (#{make-binding-wrap 4316}#
+                                  (list #{rest 26397}#)
+                                  #{l 26684}#
+                                  #{w* 26402}#)))
+                          (#{parse-kw 26042}#
+                            #{req 26395}#
+                            (if (pair? #{out 26403}#)
+                              (reverse #{out 26403}#)
                               #f)
-                            (syntax->datum #{rest 27527}#)
-                            (if (pair? #{kw 27528}#)
-                              (cdr #{kw 27528}#)
-                              #{kw 27528}#)
-                            #{body 27529}#
-                            (cons #{v 27820}# #{vars 27530}#)
-                            #{r* 27822}#
-                            #{w* 27823}#
-                            (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
+                            (syntax->datum #{rest 26397}#)
+                            (if (pair? #{kw 26398}#)
+                              (cdr #{kw 26398}#)
+                              #{kw 26398}#)
+                            #{body 26399}#
+                            (cons #{v 26683}# #{vars 26400}#)
+                            #{r* 26685}#
+                            #{w* 26686}#
+                            (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f)
                             '()
-                            #{inits 27534}#)))))
-                  (#{parse-kw 27169}#
-                    #{req 27525}#
-                    (if (pair? #{out 27533}#)
-                      (reverse #{out 27533}#)
+                            #{inits 26404}#)))))
+                  (#{parse-kw 26042}#
+                    #{req 26395}#
+                    (if (pair? #{out 26403}#)
+                      (reverse #{out 26403}#)
                       #f)
                     #f
-                    (if (pair? #{kw 27528}#)
-                      (cdr #{kw 27528}#)
-                      #{kw 27528}#)
-                    #{body 27529}#
-                    #{vars 27530}#
-                    #{r* 27531}#
-                    #{w* 27532}#
-                    (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
+                    (if (pair? #{kw 26398}#)
+                      (cdr #{kw 26398}#)
+                      #{kw 26398}#)
+                    #{body 26399}#
+                    #{vars 26400}#
+                    #{r* 26401}#
+                    #{w* 26402}#
+                    (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f)
                     '()
-                    #{inits 27534}#)))))
-          (#{parse-kw 27169}#
-            (lambda (#{req 28030}#
-                     #{opt 28031}#
-                     #{rest 28032}#
-                     #{kw 28033}#
-                     #{body 28034}#
-                     #{vars 28035}#
-                     #{r* 28036}#
-                     #{w* 28037}#
-                     #{aok 28038}#
-                     #{out 28039}#
-                     #{inits 28040}#)
-              (if (pair? #{kw 28033}#)
-                (let ((#{tmp 28041}# (car #{kw 28033}#)))
-                  (let ((#{tmp 28042}#
-                          ($sc-dispatch #{tmp 28041}# '(any any any))))
-                    (if #{tmp 28042}#
+                    #{inits 26404}#)))))
+          (#{parse-kw 26042}#
+            (lambda (#{req 26891}#
+                     #{opt 26892}#
+                     #{rest 26893}#
+                     #{kw 26894}#
+                     #{body 26895}#
+                     #{vars 26896}#
+                     #{r* 26897}#
+                     #{w* 26898}#
+                     #{aok 26899}#
+                     #{out 26900}#
+                     #{inits 26901}#)
+              (if (pair? #{kw 26894}#)
+                (let ((#{tmp 26902}# (car #{kw 26894}#)))
+                  (let ((#{tmp 26903}#
+                          ($sc-dispatch #{tmp 26902}# '(any any any))))
+                    (if #{tmp 26903}#
                       (@apply
-                        (lambda (#{k 28044}# #{id 28045}# #{i 28046}#)
-                          (let ((#{v 28047}#
-                                  (let ((#{id 28055}#
-                                          (if (if (vector? #{id 28045}#)
+                        (lambda (#{k 26905}# #{id 26906}# #{i 26907}#)
+                          (let ((#{v 26908}#
+                                  (let ((#{id 26916}#
+                                          (if (if (vector? #{id 26906}#)
                                                 (if (= (vector-length
-                                                         #{id 28045}#)
+                                                         #{id 26906}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{id 28045}#
+                                                         #{id 26906}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (vector-ref #{id 28045}# 1)
-                                            #{id 28045}#)))
+                                            (vector-ref #{id 26906}# 1)
+                                            #{id 26906}#)))
                                     (gensym
                                       (string-append
-                                        (symbol->string #{id 28055}#)
+                                        (symbol->string #{id 26916}#)
                                         " ")))))
-                            (let ((#{l 28048}#
-                                    (#{gen-labels 4304}# (list #{v 28047}#))))
-                              (let ((#{r** 28049}#
-                                      (#{extend-var-env 4296}#
-                                        #{l 28048}#
-                                        (list #{v 28047}#)
-                                        #{r* 28036}#)))
-                                (let ((#{w** 28050}#
-                                        (#{make-binding-wrap 4315}#
-                                          (list #{id 28045}#)
-                                          #{l 28048}#
-                                          #{w* 28037}#)))
-                                  (#{parse-kw 27169}#
-                                    #{req 28030}#
-                                    #{opt 28031}#
-                                    #{rest 28032}#
-                                    (cdr #{kw 28033}#)
-                                    #{body 28034}#
-                                    (cons #{v 28047}# #{vars 28035}#)
-                                    #{r** 28049}#
-                                    #{w** 28050}#
-                                    #{aok 28038}#
-                                    (cons (list (syntax->datum #{k 28044}#)
-                                                (syntax->datum #{id 28045}#)
-                                                #{v 28047}#)
-                                          #{out 28039}#)
-                                    (cons (#{expand 4333}#
-                                            #{i 28046}#
-                                            #{r* 28036}#
-                                            #{w* 28037}#
-                                            #{mod 27164}#)
-                                          #{inits 28040}#)))))))
-                        #{tmp 28042}#)
+                            (let ((#{l 26909}#
+                                    (#{gen-labels 4305}# (list #{v 26908}#))))
+                              (let ((#{r** 26910}#
+                                      (#{extend-var-env 4297}#
+                                        #{l 26909}#
+                                        (list #{v 26908}#)
+                                        #{r* 26897}#)))
+                                (let ((#{w** 26911}#
+                                        (#{make-binding-wrap 4316}#
+                                          (list #{id 26906}#)
+                                          #{l 26909}#
+                                          #{w* 26898}#)))
+                                  (#{parse-kw 26042}#
+                                    #{req 26891}#
+                                    #{opt 26892}#
+                                    #{rest 26893}#
+                                    (cdr #{kw 26894}#)
+                                    #{body 26895}#
+                                    (cons #{v 26908}# #{vars 26896}#)
+                                    #{r** 26910}#
+                                    #{w** 26911}#
+                                    #{aok 26899}#
+                                    (cons (list (syntax->datum #{k 26905}#)
+                                                (syntax->datum #{id 26906}#)
+                                                #{v 26908}#)
+                                          #{out 26900}#)
+                                    (cons (#{expand 4334}#
+                                            #{i 26907}#
+                                            #{r* 26897}#
+                                            #{w* 26898}#
+                                            #{mod 26037}#)
+                                          #{inits 26901}#)))))))
+                        #{tmp 26903}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 28041}#))))
-                (#{parse-body 27170}#
-                  #{req 28030}#
-                  #{opt 28031}#
-                  #{rest 28032}#
-                  (if (if #{aok 28038}#
-                        #{aok 28038}#
-                        (pair? #{out 28039}#))
-                    (cons #{aok 28038}# (reverse #{out 28039}#))
+                        #{tmp 26902}#))))
+                (#{parse-body 26043}#
+                  #{req 26891}#
+                  #{opt 26892}#
+                  #{rest 26893}#
+                  (if (if #{aok 26899}#
+                        #{aok 26899}#
+                        (pair? #{out 26900}#))
+                    (cons #{aok 26899}# (reverse #{out 26900}#))
                     #f)
-                  #{body 28034}#
-                  (reverse #{vars 28035}#)
-                  #{r* 28036}#
-                  #{w* 28037}#
-                  (reverse #{inits 28040}#)
+                  #{body 26895}#
+                  (reverse #{vars 26896}#)
+                  #{r* 26897}#
+                  #{w* 26898}#
+                  (reverse #{inits 26901}#)
                   '()))))
-          (#{parse-body 27170}#
-            (lambda (#{req 28336}#
-                     #{opt 28337}#
-                     #{rest 28338}#
-                     #{kw 28339}#
-                     #{body 28340}#
-                     #{vars 28341}#
-                     #{r* 28342}#
-                     #{w* 28343}#
-                     #{inits 28344}#
-                     #{meta 28345}#)
-              (let ((#{tmp 28347}#
+          (#{parse-body 26043}#
+            (lambda (#{req 27190}#
+                     #{opt 27191}#
+                     #{rest 27192}#
+                     #{kw 27193}#
+                     #{body 27194}#
+                     #{vars 27195}#
+                     #{r* 27196}#
+                     #{w* 27197}#
+                     #{inits 27198}#
+                     #{meta 27199}#)
+              (let ((#{tmp 27201}#
                       ($sc-dispatch
-                        #{body 28340}#
+                        #{body 27194}#
                         '(any any . each-any))))
-                (if (if #{tmp 28347}#
+                (if (if #{tmp 27201}#
                       (@apply
-                        (lambda (#{docstring 28351}# #{e1 28352}# #{e2 28353}#)
-                          (string? (syntax->datum #{docstring 28351}#)))
-                        #{tmp 28347}#)
+                        (lambda (#{docstring 27205}# #{e1 27206}# #{e2 27207}#)
+                          (string? (syntax->datum #{docstring 27205}#)))
+                        #{tmp 27201}#)
                       #f)
                   (@apply
-                    (lambda (#{docstring 28354}# #{e1 28355}# #{e2 28356}#)
-                      (#{parse-body 27170}#
-                        #{req 28336}#
-                        #{opt 28337}#
-                        #{rest 28338}#
-                        #{kw 28339}#
-                        (cons #{e1 28355}# #{e2 28356}#)
-                        #{vars 28341}#
-                        #{r* 28342}#
-                        #{w* 28343}#
-                        #{inits 28344}#
+                    (lambda (#{docstring 27208}# #{e1 27209}# #{e2 27210}#)
+                      (#{parse-body 26043}#
+                        #{req 27190}#
+                        #{opt 27191}#
+                        #{rest 27192}#
+                        #{kw 27193}#
+                        (cons #{e1 27209}# #{e2 27210}#)
+                        #{vars 27195}#
+                        #{r* 27196}#
+                        #{w* 27197}#
+                        #{inits 27198}#
                         (append
-                          #{meta 28345}#
+                          #{meta 27199}#
                           (list (cons 'documentation
-                                      (syntax->datum #{docstring 28354}#))))))
-                    #{tmp 28347}#)
-                  (let ((#{tmp 28357}#
+                                      (syntax->datum #{docstring 27208}#))))))
+                    #{tmp 27201}#)
+                  (let ((#{tmp 27211}#
                           ($sc-dispatch
-                            #{body 28340}#
+                            #{body 27194}#
                             '(#(vector #(each (any . any))) any . each-any))))
-                    (if #{tmp 28357}#
+                    (if #{tmp 27211}#
                       (@apply
-                        (lambda (#{k 28361}#
-                                 #{v 28362}#
-                                 #{e1 28363}#
-                                 #{e2 28364}#)
-                          (#{parse-body 27170}#
-                            #{req 28336}#
-                            #{opt 28337}#
-                            #{rest 28338}#
-                            #{kw 28339}#
-                            (cons #{e1 28363}# #{e2 28364}#)
-                            #{vars 28341}#
-                            #{r* 28342}#
-                            #{w* 28343}#
-                            #{inits 28344}#
+                        (lambda (#{k 27215}#
+                                 #{v 27216}#
+                                 #{e1 27217}#
+                                 #{e2 27218}#)
+                          (#{parse-body 26043}#
+                            #{req 27190}#
+                            #{opt 27191}#
+                            #{rest 27192}#
+                            #{kw 27193}#
+                            (cons #{e1 27217}# #{e2 27218}#)
+                            #{vars 27195}#
+                            #{r* 27196}#
+                            #{w* 27197}#
+                            #{inits 27198}#
                             (append
-                              #{meta 28345}#
+                              #{meta 27199}#
                               (syntax->datum
-                                (map cons #{k 28361}# #{v 28362}#)))))
-                        #{tmp 28357}#)
-                      (let ((#{tmp 28365}#
-                              ($sc-dispatch #{body 28340}# '(any . each-any))))
-                        (if #{tmp 28365}#
+                                (map cons #{k 27215}# #{v 27216}#)))))
+                        #{tmp 27211}#)
+                      (let ((#{tmp 27219}#
+                              ($sc-dispatch #{body 27194}# '(any . each-any))))
+                        (if #{tmp 27219}#
                           (@apply
-                            (lambda (#{e1 28369}# #{e2 28370}#)
+                            (lambda (#{e1 27223}# #{e2 27224}#)
                               (values
-                                #{meta 28345}#
-                                #{req 28336}#
-                                #{opt 28337}#
-                                #{rest 28338}#
-                                #{kw 28339}#
-                                #{inits 28344}#
-                                #{vars 28341}#
-                                (#{expand-body 4337}#
-                                  (cons #{e1 28369}# #{e2 28370}#)
-                                  (#{wrap 4326}#
+                                #{meta 27199}#
+                                #{req 27190}#
+                                #{opt 27191}#
+                                #{rest 27192}#
+                                #{kw 27193}#
+                                #{inits 27198}#
+                                #{vars 27195}#
+                                (#{expand-body 4338}#
+                                  (cons #{e1 27223}# #{e2 27224}#)
+                                  (#{wrap 4327}#
                                     (begin
-                                      (if (if (pair? #{e 27160}#)
-                                            #{s 27163}#
+                                      (if (if (pair? #{e 26033}#)
+                                            #{s 26036}#
                                             #f)
                                         (set-source-properties!
-                                          #{e 27160}#
-                                          #{s 27163}#))
-                                      #{e 27160}#)
-                                    #{w 27162}#
-                                    #{mod 27164}#)
-                                  #{r* 28342}#
-                                  #{w* 28343}#
-                                  #{mod 27164}#)))
-                            #{tmp 28365}#)
+                                          #{e 26033}#
+                                          #{s 26036}#))
+                                      #{e 26033}#)
+                                    #{w 26035}#
+                                    #{mod 26037}#)
+                                  #{r* 27196}#
+                                  #{w* 27197}#
+                                  #{mod 26037}#)))
+                            #{tmp 27219}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{body 28340}#))))))))))
-         (let ((#{tmp 27172}#
-                 ($sc-dispatch #{clauses 27166}# '())))
-           (if #{tmp 27172}#
+                            #{body 27194}#))))))))))
+         (let ((#{tmp 26045}#
+                 ($sc-dispatch #{clauses 26039}# '())))
+           (if #{tmp 26045}#
              (@apply
                (lambda () (values '() #f))
-               #{tmp 27172}#)
-             (let ((#{tmp 27177}#
+               #{tmp 26045}#)
+             (let ((#{tmp 26049}#
                      ($sc-dispatch
-                       #{clauses 27166}#
+                       #{clauses 26039}#
                        '((any any . each-any)
                          .
                          #(each (any any . each-any))))))
-               (if #{tmp 27177}#
+               (if #{tmp 26049}#
                  (@apply
-                   (lambda (#{args 27181}#
-                            #{e1 27182}#
-                            #{e2 27183}#
-                            #{args* 27184}#
-                            #{e1* 27185}#
-                            #{e2* 27186}#)
+                   (lambda (#{args 26053}#
+                            #{e1 26054}#
+                            #{e2 26055}#
+                            #{args* 26056}#
+                            #{e1* 26057}#
+                            #{e2* 26058}#)
                      (call-with-values
                        (lambda ()
-                         (#{get-formals 27165}# #{args 27181}#))
-                       (lambda (#{req 27187}#
-                                #{opt 27188}#
-                                #{rest 27189}#
-                                #{kw 27190}#)
+                         (#{get-formals 26038}# #{args 26053}#))
+                       (lambda (#{req 26059}#
+                                #{opt 26060}#
+                                #{rest 26061}#
+                                #{kw 26062}#)
                          (call-with-values
                            (lambda ()
-                             (#{parse-req 27167}#
-                               #{req 27187}#
-                               #{opt 27188}#
-                               #{rest 27189}#
-                               #{kw 27190}#
-                               (cons #{e1 27182}# #{e2 27183}#)))
-                           (lambda (#{meta 27257}#
-                                    #{req 27258}#
-                                    #{opt 27259}#
-                                    #{rest 27260}#
-                                    #{kw 27261}#
-                                    #{inits 27262}#
-                                    #{vars 27263}#
-                                    #{body 27264}#)
+                             (#{parse-req 26040}#
+                               #{req 26059}#
+                               #{opt 26060}#
+                               #{rest 26061}#
+                               #{kw 26062}#
+                               (cons #{e1 26054}# #{e2 26055}#)))
+                           (lambda (#{meta 26129}#
+                                    #{req 26130}#
+                                    #{opt 26131}#
+                                    #{rest 26132}#
+                                    #{kw 26133}#
+                                    #{inits 26134}#
+                                    #{vars 26135}#
+                                    #{body 26136}#)
                              (call-with-values
                                (lambda ()
-                                 (#{expand-lambda-case 4345}#
-                                   #{e 27160}#
-                                   #{r 27161}#
-                                   #{w 27162}#
-                                   #{s 27163}#
-                                   #{mod 27164}#
-                                   #{get-formals 27165}#
-                                   (map (lambda (#{tmp 2763 27265}#
-                                                 #{tmp 2762 27266}#
-                                                 #{tmp 2761 27267}#)
-                                          (cons #{tmp 2761 27267}#
-                                                (cons #{tmp 2762 27266}#
-                                                      #{tmp 2763 27265}#)))
-                                        #{e2* 27186}#
-                                        #{e1* 27185}#
-                                        #{args* 27184}#)))
-                               (lambda (#{meta* 27268}# #{else* 27269}#)
+                                 (#{expand-lambda-case 4346}#
+                                   #{e 26033}#
+                                   #{r 26034}#
+                                   #{w 26035}#
+                                   #{s 26036}#
+                                   #{mod 26037}#
+                                   #{get-formals 26038}#
+                                   (map (lambda (#{tmp 2764 26137}#
+                                                 #{tmp 2763 26138}#
+                                                 #{tmp 2762 26139}#)
+                                          (cons #{tmp 2762 26139}#
+                                                (cons #{tmp 2763 26138}#
+                                                      #{tmp 2764 26137}#)))
+                                        #{e2* 26058}#
+                                        #{e1* 26057}#
+                                        #{args* 26056}#)))
+                               (lambda (#{meta* 26140}# #{else* 26141}#)
                                  (values
-                                   (append #{meta 27257}# #{meta* 27268}#)
+                                   (append #{meta 26129}# #{meta* 26140}#)
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 14)
-                                     #{s 27163}#
-                                     #{req 27258}#
-                                     #{opt 27259}#
-                                     #{rest 27260}#
-                                     #{kw 27261}#
-                                     #{inits 27262}#
-                                     #{vars 27263}#
-                                     #{body 27264}#
-                                     #{else* 27269}#)))))))))
-                   #{tmp 27177}#)
+                                     #{s 26036}#
+                                     #{req 26130}#
+                                     #{opt 26131}#
+                                     #{rest 26132}#
+                                     #{kw 26133}#
+                                     #{inits 26134}#
+                                     #{vars 26135}#
+                                     #{body 26136}#
+                                     #{else* 26141}#)))))))))
+                   #{tmp 26049}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
-                   #{clauses 27166}#))))))))
-   (#{strip 4346}#
-     (lambda (#{x 28407}# #{w 28408}#)
-       (if (memq 'top (car #{w 28408}#))
-         #{x 28407}#
+                   #{clauses 26039}#))))))))
+   (#{strip 4347}#
+     (lambda (#{x 27261}# #{w 27262}#)
+       (if (memq 'top (car #{w 27262}#))
+         #{x 27261}#
          (letrec*
-           ((#{f 28409}#
-              (lambda (#{x 28412}#)
-                (if (if (vector? #{x 28412}#)
-                      (if (= (vector-length #{x 28412}#) 4)
-                        (eq? (vector-ref #{x 28412}# 0) 'syntax-object)
+           ((#{f 27263}#
+              (lambda (#{x 27266}#)
+                (if (if (vector? #{x 27266}#)
+                      (if (= (vector-length #{x 27266}#) 4)
+                        (eq? (vector-ref #{x 27266}# 0) 'syntax-object)
                         #f)
                       #f)
-                  (#{strip 4346}#
-                    (vector-ref #{x 28412}# 1)
-                    (vector-ref #{x 28412}# 2))
-                  (if (pair? #{x 28412}#)
-                    (let ((#{a 28431}# (#{f 28409}# (car #{x 28412}#)))
-                          (#{d 28432}# (#{f 28409}# (cdr #{x 28412}#))))
-                      (if (if (eq? #{a 28431}# (car #{x 28412}#))
-                            (eq? #{d 28432}# (cdr #{x 28412}#))
+                  (#{strip 4347}#
+                    (vector-ref #{x 27266}# 1)
+                    (vector-ref #{x 27266}# 2))
+                  (if (pair? #{x 27266}#)
+                    (let ((#{a 27285}# (#{f 27263}# (car #{x 27266}#)))
+                          (#{d 27286}# (#{f 27263}# (cdr #{x 27266}#))))
+                      (if (if (eq? #{a 27285}# (car #{x 27266}#))
+                            (eq? #{d 27286}# (cdr #{x 27266}#))
                             #f)
-                        #{x 28412}#
-                        (cons #{a 28431}# #{d 28432}#)))
-                    (if (vector? #{x 28412}#)
-                      (let ((#{old 28435}# (vector->list #{x 28412}#)))
-                        (let ((#{new 28436}# (map #{f 28409}# #{old 28435}#)))
+                        #{x 27266}#
+                        (cons #{a 27285}# #{d 27286}#)))
+                    (if (vector? #{x 27266}#)
+                      (let ((#{old 27289}# (vector->list #{x 27266}#)))
+                        (let ((#{new 27290}# (map #{f 27263}# #{old 27289}#)))
                           (letrec*
-                            ((#{lp 28437}#
-                               (lambda (#{l1 28513}# #{l2 28514}#)
-                                 (if (null? #{l1 28513}#)
-                                   #{x 28412}#
-                                   (if (eq? (car #{l1 28513}#)
-                                            (car #{l2 28514}#))
-                                     (#{lp 28437}#
-                                       (cdr #{l1 28513}#)
-                                       (cdr #{l2 28514}#))
-                                     (list->vector #{new 28436}#))))))
-                            (#{lp 28437}# #{old 28435}# #{new 28436}#))))
-                      #{x 28412}#))))))
-           (#{f 28409}# #{x 28407}#)))))
-   (#{gen-var 4347}#
-     (lambda (#{id 27313}#)
-       (let ((#{id 27314}#
-               (if (if (vector? #{id 27313}#)
-                     (if (= (vector-length #{id 27313}#) 4)
-                       (eq? (vector-ref #{id 27313}# 0) 'syntax-object)
+                            ((#{lp 27291}#
+                               (lambda (#{l1 27367}# #{l2 27368}#)
+                                 (if (null? #{l1 27367}#)
+                                   #{x 27266}#
+                                   (if (eq? (car #{l1 27367}#)
+                                            (car #{l2 27368}#))
+                                     (#{lp 27291}#
+                                       (cdr #{l1 27367}#)
+                                       (cdr #{l2 27368}#))
+                                     (list->vector #{new 27290}#))))))
+                            (#{lp 27291}# #{old 27289}# #{new 27290}#))))
+                      #{x 27266}#))))))
+           (#{f 27263}# #{x 27261}#)))))
+   (#{gen-var 4348}#
+     (lambda (#{id 26185}#)
+       (let ((#{id 26186}#
+               (if (if (vector? #{id 26185}#)
+                     (if (= (vector-length #{id 26185}#) 4)
+                       (eq? (vector-ref #{id 26185}# 0) 'syntax-object)
                        #f)
                      #f)
-                 (vector-ref #{id 27313}# 1)
-                 #{id 27313}#)))
+                 (vector-ref #{id 26185}# 1)
+                 #{id 26185}#)))
          (gensym
-           (string-append (symbol->string #{id 27314}#) " "))))))
+           (string-append (symbol->string #{id 26186}#) " "))))))
   (begin
     (module-define!
       (current-module)
@@ -7944,1858 +8056,1903 @@
         'let-syntax
         'local-syntax
         #f))
-    (#{global-extend 4299}#
+    (#{global-extend 4300}#
       'core
       'fluid-let-syntax
-      (lambda (#{e 4468}#
-               #{r 4469}#
-               #{w 4470}#
-               #{s 4471}#
-               #{mod 4472}#)
-        (let ((#{tmp 4474}#
+      (lambda (#{e 4469}#
+               #{r 4470}#
+               #{w 4471}#
+               #{s 4472}#
+               #{mod 4473}#)
+        (let ((#{tmp 4475}#
                 ($sc-dispatch
-                  #{e 4468}#
+                  #{e 4469}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 4474}#
+          (if (if #{tmp 4475}#
                 (@apply
-                  (lambda (#{var 4478}#
-                           #{val 4479}#
-                           #{e1 4480}#
-                           #{e2 4481}#)
-                    (#{valid-bound-ids? 4323}# #{var 4478}#))
-                  #{tmp 4474}#)
+                  (lambda (#{var 4479}#
+                           #{val 4480}#
+                           #{e1 4481}#
+                           #{e2 4482}#)
+                    (#{valid-bound-ids? 4324}# #{var 4479}#))
+                  #{tmp 4475}#)
                 #f)
             (@apply
-              (lambda (#{var 4559}#
-                       #{val 4560}#
-                       #{e1 4561}#
-                       #{e2 4562}#)
-                (let ((#{names 4563}#
-                        (map (lambda (#{x 4753}#)
-                               (#{id-var-name 4320}# #{x 4753}# #{w 4470}#))
-                             #{var 4559}#)))
+              (lambda (#{var 4560}#
+                       #{val 4561}#
+                       #{e1 4562}#
+                       #{e2 4563}#)
+                (let ((#{names 4564}#
+                        (map (lambda (#{x 4754}#)
+                               (#{id-var-name 4321}# #{x 4754}# #{w 4471}#))
+                             #{var 4560}#)))
                   (begin
                     (for-each
-                      (lambda (#{id 4564}# #{n 4565}#)
-                        (let ((#{atom-key 4566}#
-                                (car (let ((#{t 4690}#
-                                             (assq #{n 4565}# #{r 4469}#)))
-                                       (if #{t 4690}#
-                                         (cdr #{t 4690}#)
-                                         (if (symbol? #{n 4565}#)
-                                           (let ((#{t 4695}#
+                      (lambda (#{id 4565}# #{n 4566}#)
+                        (let ((#{atom-key 4567}#
+                                (car (let ((#{t 4691}#
+                                             (assq #{n 4566}# #{r 4470}#)))
+                                       (if #{t 4691}#
+                                         (cdr #{t 4691}#)
+                                         (if (symbol? #{n 4566}#)
+                                           (let ((#{t 4696}#
                                                    (begin
-                                                     (if (if (not #{mod 4472}#)
+                                                     (if (if (not #{mod 4473}#)
                                                            (current-module)
                                                            #f)
                                                        (warn "module system is 
booted, we should have a module"
-                                                             #{n 4565}#))
-                                                     (let ((#{v 4732}#
+                                                             #{n 4566}#))
+                                                     (let ((#{v 4733}#
                                                              (module-variable
-                                                               (if #{mod 4472}#
+                                                               (if #{mod 4473}#
                                                                  
(resolve-module
-                                                                   (cdr #{mod 
4472}#))
+                                                                   (cdr #{mod 
4473}#))
                                                                  
(current-module))
-                                                               #{n 4565}#)))
-                                                       (if #{v 4732}#
+                                                               #{n 4566}#)))
+                                                       (if #{v 4733}#
                                                          (if (variable-bound?
-                                                               #{v 4732}#)
-                                                           (let ((#{val 4741}#
+                                                               #{v 4733}#)
+                                                           (let ((#{val 4742}#
                                                                    
(variable-ref
-                                                                     #{v 
4732}#)))
+                                                                     #{v 
4733}#)))
                                                              (if (macro?
-                                                                   #{val 
4741}#)
+                                                                   #{val 
4742}#)
                                                                (if (macro-type
-                                                                     #{val 
4741}#)
+                                                                     #{val 
4742}#)
                                                                  (cons 
(macro-type
-                                                                         #{val 
4741}#)
+                                                                         #{val 
4742}#)
                                                                        
(macro-binding
-                                                                         #{val 
4741}#))
+                                                                         #{val 
4742}#))
                                                                  #f)
                                                                #f))
                                                            #f)
                                                          #f)))))
-                                             (if #{t 4695}#
-                                               #{t 4695}#
+                                             (if #{t 4696}#
+                                               #{t 4696}#
                                                '(global)))
                                            '(displaced-lexical)))))))
-                          (if (let ((#{t 4599}# #{atom-key 4566}#))
-                                (eqv? #{t 4599}# 'displaced-lexical))
+                          (if (let ((#{t 4600}# #{atom-key 4567}#))
+                                (eqv? #{t 4600}# 'displaced-lexical))
                             (syntax-violation
                               'fluid-let-syntax
                               "identifier out of context"
-                              #{e 4468}#
-                              (#{wrap 4326}#
+                              #{e 4469}#
+                              (#{wrap 4327}#
                                 (begin
-                                  (if (if (pair? #{id 4564}#) #{s 4471}# #f)
+                                  (if (if (pair? #{id 4565}#) #{s 4472}# #f)
                                     (set-source-properties!
-                                      #{id 4564}#
-                                      #{s 4471}#))
-                                  #{id 4564}#)
-                                #{w 4470}#
-                                #{mod 4472}#)))))
-                      #{var 4559}#
-                      #{names 4563}#)
-                    (#{expand-body 4337}#
-                      (cons #{e1 4561}# #{e2 4562}#)
-                      (#{wrap 4326}#
+                                      #{id 4565}#
+                                      #{s 4472}#))
+                                  #{id 4565}#)
+                                #{w 4471}#
+                                #{mod 4473}#)))))
+                      #{var 4560}#
+                      #{names 4564}#)
+                    (#{expand-body 4338}#
+                      (cons #{e1 4562}# #{e2 4563}#)
+                      (#{wrap 4327}#
                         (begin
-                          (if (if (pair? #{e 4468}#) #{s 4471}# #f)
-                            (set-source-properties! #{e 4468}# #{s 4471}#))
-                          #{e 4468}#)
-                        #{w 4470}#
-                        #{mod 4472}#)
-                      (#{extend-env 4295}#
-                        #{names 4563}#
-                        (let ((#{trans-r 4839}#
-                                (#{macros-only-env 4297}# #{r 4469}#)))
-                          (map (lambda (#{x 4840}#)
+                          (if (if (pair? #{e 4469}#) #{s 4472}# #f)
+                            (set-source-properties! #{e 4469}# #{s 4472}#))
+                          #{e 4469}#)
+                        #{w 4471}#
+                        #{mod 4473}#)
+                      (#{extend-env 4296}#
+                        #{names 4564}#
+                        (let ((#{trans-r 4840}#
+                                (#{macros-only-env 4298}# #{r 4470}#)))
+                          (map (lambda (#{x 4841}#)
                                  (cons 'macro
-                                       (#{eval-local-transformer 4339}#
-                                         (#{expand 4333}#
-                                           #{x 4840}#
-                                           #{trans-r 4839}#
-                                           #{w 4470}#
-                                           #{mod 4472}#)
-                                         #{mod 4472}#)))
-                               #{val 4560}#))
-                        #{r 4469}#)
-                      #{w 4470}#
-                      #{mod 4472}#))))
-              #{tmp 4474}#)
+                                       (#{eval-local-transformer 4340}#
+                                         (#{expand 4334}#
+                                           #{x 4841}#
+                                           #{trans-r 4840}#
+                                           #{w 4471}#
+                                           #{mod 4473}#)
+                                         #{mod 4473}#)))
+                               #{val 4561}#))
+                        #{r 4470}#)
+                      #{w 4471}#
+                      #{mod 4473}#))))
+              #{tmp 4475}#)
             (syntax-violation
               'fluid-let-syntax
               "bad syntax"
-              (#{wrap 4326}#
+              (#{wrap 4327}#
                 (begin
-                  (if (if (pair? #{e 4468}#) #{s 4471}# #f)
-                    (set-source-properties! #{e 4468}# #{s 4471}#))
-                  #{e 4468}#)
-                #{w 4470}#
-                #{mod 4472}#))))))
+                  (if (if (pair? #{e 4469}#) #{s 4472}# #f)
+                    (set-source-properties! #{e 4469}# #{s 4472}#))
+                  #{e 4469}#)
+                #{w 4471}#
+                #{mod 4473}#))))))
     (module-define!
       (current-module)
       'quote
       (make-syntax-transformer
         'quote
         'core
-        (lambda (#{e 5054}#
-                 #{r 5055}#
-                 #{w 5056}#
-                 #{s 5057}#
-                 #{mod 5058}#)
-          (let ((#{tmp 5060}# ($sc-dispatch #{e 5054}# '(_ any))))
-            (if #{tmp 5060}#
+        (lambda (#{e 5050}#
+                 #{r 5051}#
+                 #{w 5052}#
+                 #{s 5053}#
+                 #{mod 5054}#)
+          (let ((#{tmp 5056}# ($sc-dispatch #{e 5050}# '(_ any))))
+            (if #{tmp 5056}#
               (@apply
-                (lambda (#{e 5063}#)
-                  (let ((#{exp 5067}#
-                          (#{strip 4346}# #{e 5063}# #{w 5056}#)))
+                (lambda (#{e 5059}#)
+                  (let ((#{exp 5063}#
+                          (#{strip 4347}# #{e 5059}# #{w 5052}#)))
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 1)
-                      #{s 5057}#
-                      #{exp 5067}#)))
-                #{tmp 5060}#)
+                      #{s 5053}#
+                      #{exp 5063}#)))
+                #{tmp 5056}#)
               (syntax-violation
                 'quote
                 "bad syntax"
-                (#{wrap 4326}#
+                (#{wrap 4327}#
                   (begin
-                    (if (if (pair? #{e 5054}#) #{s 5057}# #f)
-                      (set-source-properties! #{e 5054}# #{s 5057}#))
-                    #{e 5054}#)
-                  #{w 5056}#
-                  #{mod 5058}#)))))))
-    (#{global-extend 4299}#
+                    (if (if (pair? #{e 5050}#) #{s 5053}# #f)
+                      (set-source-properties! #{e 5050}# #{s 5053}#))
+                    #{e 5050}#)
+                  #{w 5052}#
+                  #{mod 5054}#)))))))
+    (#{global-extend 4300}#
       'core
       'syntax
       (letrec*
-        ((#{gen-syntax 5294}#
-           (lambda (#{src 5396}#
-                    #{e 5397}#
-                    #{r 5398}#
-                    #{maps 5399}#
-                    #{ellipsis? 5400}#
-                    #{mod 5401}#)
-             (if (if (symbol? #{e 5397}#)
+        ((#{gen-syntax 5290}#
+           (lambda (#{src 5392}#
+                    #{e 5393}#
+                    #{r 5394}#
+                    #{maps 5395}#
+                    #{ellipsis? 5396}#
+                    #{mod 5397}#)
+             (if (if (symbol? #{e 5393}#)
                    #t
-                   (if (if (vector? #{e 5397}#)
-                         (if (= (vector-length #{e 5397}#) 4)
-                           (eq? (vector-ref #{e 5397}# 0) 'syntax-object)
+                   (if (if (vector? #{e 5393}#)
+                         (if (= (vector-length #{e 5393}#) 4)
+                           (eq? (vector-ref #{e 5393}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{e 5397}# 1))
+                     (symbol? (vector-ref #{e 5393}# 1))
                      #f))
-               (let ((#{label 5428}#
-                       (#{id-var-name 4320}# #{e 5397}# '(()))))
-                 (let ((#{b 5429}#
-                         (let ((#{t 5566}# (assq #{label 5428}# #{r 5398}#)))
-                           (if #{t 5566}#
-                             (cdr #{t 5566}#)
-                             (if (symbol? #{label 5428}#)
-                               (let ((#{t 5571}#
+               (let ((#{label 5424}#
+                       (#{id-var-name 4321}# #{e 5393}# '(()))))
+                 (let ((#{b 5425}#
+                         (let ((#{t 5562}# (assq #{label 5424}# #{r 5394}#)))
+                           (if #{t 5562}#
+                             (cdr #{t 5562}#)
+                             (if (symbol? #{label 5424}#)
+                               (let ((#{t 5567}#
                                        (begin
-                                         (if (if (not #{mod 5401}#)
+                                         (if (if (not #{mod 5397}#)
                                                (current-module)
                                                #f)
                                            (warn "module system is booted, we 
should have a module"
-                                                 #{label 5428}#))
-                                         (let ((#{v 5608}#
+                                                 #{label 5424}#))
+                                         (let ((#{v 5604}#
                                                  (module-variable
-                                                   (if #{mod 5401}#
+                                                   (if #{mod 5397}#
                                                      (resolve-module
-                                                       (cdr #{mod 5401}#))
+                                                       (cdr #{mod 5397}#))
                                                      (current-module))
-                                                   #{label 5428}#)))
-                                           (if #{v 5608}#
-                                             (if (variable-bound? #{v 5608}#)
-                                               (let ((#{val 5617}#
+                                                   #{label 5424}#)))
+                                           (if #{v 5604}#
+                                             (if (variable-bound? #{v 5604}#)
+                                               (let ((#{val 5613}#
                                                        (variable-ref
-                                                         #{v 5608}#)))
-                                                 (if (macro? #{val 5617}#)
+                                                         #{v 5604}#)))
+                                                 (if (macro? #{val 5613}#)
                                                    (if (macro-type
-                                                         #{val 5617}#)
+                                                         #{val 5613}#)
                                                      (cons (macro-type
-                                                             #{val 5617}#)
+                                                             #{val 5613}#)
                                                            (macro-binding
-                                                             #{val 5617}#))
+                                                             #{val 5613}#))
                                                      #f)
                                                    #f))
                                                #f)
                                              #f)))))
-                                 (if #{t 5571}# #{t 5571}# '(global)))
+                                 (if #{t 5567}# #{t 5567}# '(global)))
                                '(displaced-lexical))))))
-                   (if (eq? (car #{b 5429}#) 'syntax)
+                   (if (eq? (car #{b 5425}#) 'syntax)
                      (call-with-values
                        (lambda ()
-                         (let ((#{var.lev 5462}# (cdr #{b 5429}#)))
-                           (#{gen-ref 5295}#
-                             #{src 5396}#
-                             (car #{var.lev 5462}#)
-                             (cdr #{var.lev 5462}#)
-                             #{maps 5399}#)))
-                       (lambda (#{var 5558}# #{maps 5559}#)
-                         (values (list 'ref #{var 5558}#) #{maps 5559}#)))
-                     (if (#{ellipsis? 5400}# #{e 5397}#)
+                         (let ((#{var.lev 5458}# (cdr #{b 5425}#)))
+                           (#{gen-ref 5291}#
+                             #{src 5392}#
+                             (car #{var.lev 5458}#)
+                             (cdr #{var.lev 5458}#)
+                             #{maps 5395}#)))
+                       (lambda (#{var 5554}# #{maps 5555}#)
+                         (values (list 'ref #{var 5554}#) #{maps 5555}#)))
+                     (if (#{ellipsis? 5396}# #{e 5393}#)
                        (syntax-violation
                          'syntax
                          "misplaced ellipsis"
-                         #{src 5396}#)
-                       (values (list 'quote #{e 5397}#) #{maps 5399}#)))))
-               (let ((#{tmp 5629}#
-                       ($sc-dispatch #{e 5397}# '(any any))))
-                 (if (if #{tmp 5629}#
+                         #{src 5392}#)
+                       (values (list 'quote #{e 5393}#) #{maps 5395}#)))))
+               (let ((#{tmp 5625}#
+                       ($sc-dispatch #{e 5393}# '(any any))))
+                 (if (if #{tmp 5625}#
                        (@apply
-                         (lambda (#{dots 5633}# #{e 5634}#)
-                           (#{ellipsis? 5400}# #{dots 5633}#))
-                         #{tmp 5629}#)
+                         (lambda (#{dots 5629}# #{e 5630}#)
+                           (#{ellipsis? 5396}# #{dots 5629}#))
+                         #{tmp 5625}#)
                        #f)
                    (@apply
-                     (lambda (#{dots 5635}# #{e 5636}#)
-                       (#{gen-syntax 5294}#
-                         #{src 5396}#
-                         #{e 5636}#
-                         #{r 5398}#
-                         #{maps 5399}#
-                         (lambda (#{x 5637}#) #f)
-                         #{mod 5401}#))
-                     #{tmp 5629}#)
-                   (let ((#{tmp 5638}#
-                           ($sc-dispatch #{e 5397}# '(any any . any))))
-                     (if (if #{tmp 5638}#
+                     (lambda (#{dots 5631}# #{e 5632}#)
+                       (#{gen-syntax 5290}#
+                         #{src 5392}#
+                         #{e 5632}#
+                         #{r 5394}#
+                         #{maps 5395}#
+                         (lambda (#{x 5633}#) #f)
+                         #{mod 5397}#))
+                     #{tmp 5625}#)
+                   (let ((#{tmp 5634}#
+                           ($sc-dispatch #{e 5393}# '(any any . any))))
+                     (if (if #{tmp 5634}#
                            (@apply
-                             (lambda (#{x 5642}# #{dots 5643}# #{y 5644}#)
-                               (#{ellipsis? 5400}# #{dots 5643}#))
-                             #{tmp 5638}#)
+                             (lambda (#{x 5638}# #{dots 5639}# #{y 5640}#)
+                               (#{ellipsis? 5396}# #{dots 5639}#))
+                             #{tmp 5634}#)
                            #f)
                        (@apply
-                         (lambda (#{x 5645}# #{dots 5646}# #{y 5647}#)
+                         (lambda (#{x 5641}# #{dots 5642}# #{y 5643}#)
                            (letrec*
-                             ((#{f 5648}#
-                                (lambda (#{y 5656}# #{k 5657}#)
-                                  (let ((#{tmp 5659}#
+                             ((#{f 5644}#
+                                (lambda (#{y 5652}# #{k 5653}#)
+                                  (let ((#{tmp 5655}#
                                           ($sc-dispatch
-                                            #{y 5656}#
+                                            #{y 5652}#
                                             '(any . any))))
-                                    (if (if #{tmp 5659}#
+                                    (if (if #{tmp 5655}#
                                           (@apply
-                                            (lambda (#{dots 5663}# #{y 5664}#)
-                                              (#{ellipsis? 5400}#
-                                                #{dots 5663}#))
-                                            #{tmp 5659}#)
+                                            (lambda (#{dots 5659}# #{y 5660}#)
+                                              (#{ellipsis? 5396}#
+                                                #{dots 5659}#))
+                                            #{tmp 5655}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{dots 5665}# #{y 5666}#)
-                                          (#{f 5648}#
-                                            #{y 5666}#
-                                            (lambda (#{maps 5667}#)
+                                        (lambda (#{dots 5661}# #{y 5662}#)
+                                          (#{f 5644}#
+                                            #{y 5662}#
+                                            (lambda (#{maps 5663}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{k 5657}#
-                                                    (cons '() #{maps 5667}#)))
-                                                (lambda (#{x 5668}#
-                                                         #{maps 5669}#)
-                                                  (if (null? (car #{maps 
5669}#))
+                                                  (#{k 5653}#
+                                                    (cons '() #{maps 5663}#)))
+                                                (lambda (#{x 5664}#
+                                                         #{maps 5665}#)
+                                                  (if (null? (car #{maps 
5665}#))
                                                     (syntax-violation
                                                       'syntax
                                                       "extra ellipsis"
-                                                      #{src 5396}#)
+                                                      #{src 5392}#)
                                                     (values
-                                                      (let ((#{map-env 5673}#
-                                                              (car #{maps 
5669}#)))
+                                                      (let ((#{map-env 5669}#
+                                                              (car #{maps 
5665}#)))
                                                         (list 'apply
                                                               '(primitive
                                                                  append)
-                                                              (#{gen-map 5297}#
-                                                                #{x 5668}#
-                                                                #{map-env 
5673}#)))
-                                                      (cdr #{maps 
5669}#))))))))
-                                        #{tmp 5659}#)
+                                                              (#{gen-map 5293}#
+                                                                #{x 5664}#
+                                                                #{map-env 
5669}#)))
+                                                      (cdr #{maps 
5665}#))))))))
+                                        #{tmp 5655}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{gen-syntax 5294}#
-                                            #{src 5396}#
-                                            #{y 5656}#
-                                            #{r 5398}#
-                                            #{maps 5399}#
-                                            #{ellipsis? 5400}#
-                                            #{mod 5401}#))
-                                        (lambda (#{y 5676}# #{maps 5677}#)
+                                          (#{gen-syntax 5290}#
+                                            #{src 5392}#
+                                            #{y 5652}#
+                                            #{r 5394}#
+                                            #{maps 5395}#
+                                            #{ellipsis? 5396}#
+                                            #{mod 5397}#))
+                                        (lambda (#{y 5672}# #{maps 5673}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{k 5657}# #{maps 5677}#))
-                                            (lambda (#{x 5678}# #{maps 5679}#)
+                                              (#{k 5653}# #{maps 5673}#))
+                                            (lambda (#{x 5674}# #{maps 5675}#)
                                               (values
-                                                (if (equal? #{y 5676}# ''())
-                                                  #{x 5678}#
+                                                (if (equal? #{y 5672}# ''())
+                                                  #{x 5674}#
                                                   (list 'append
-                                                        #{x 5678}#
-                                                        #{y 5676}#))
-                                                #{maps 5679}#))))))))))
-                             (#{f 5648}#
-                               #{y 5647}#
-                               (lambda (#{maps 5651}#)
+                                                        #{x 5674}#
+                                                        #{y 5672}#))
+                                                #{maps 5675}#))))))))))
+                             (#{f 5644}#
+                               #{y 5643}#
+                               (lambda (#{maps 5647}#)
                                  (call-with-values
                                    (lambda ()
-                                     (#{gen-syntax 5294}#
-                                       #{src 5396}#
-                                       #{x 5645}#
-                                       #{r 5398}#
-                                       (cons '() #{maps 5651}#)
-                                       #{ellipsis? 5400}#
-                                       #{mod 5401}#))
-                                   (lambda (#{x 5652}# #{maps 5653}#)
-                                     (if (null? (car #{maps 5653}#))
+                                     (#{gen-syntax 5290}#
+                                       #{src 5392}#
+                                       #{x 5641}#
+                                       #{r 5394}#
+                                       (cons '() #{maps 5647}#)
+                                       #{ellipsis? 5396}#
+                                       #{mod 5397}#))
+                                   (lambda (#{x 5648}# #{maps 5649}#)
+                                     (if (null? (car #{maps 5649}#))
                                        (syntax-violation
                                          'syntax
                                          "extra ellipsis"
-                                         #{src 5396}#)
+                                         #{src 5392}#)
                                        (values
-                                         (#{gen-map 5297}#
-                                           #{x 5652}#
-                                           (car #{maps 5653}#))
-                                         (cdr #{maps 5653}#)))))))))
-                         #{tmp 5638}#)
-                       (let ((#{tmp 5695}#
-                               ($sc-dispatch #{e 5397}# '(any . any))))
-                         (if #{tmp 5695}#
+                                         (#{gen-map 5293}#
+                                           #{x 5648}#
+                                           (car #{maps 5649}#))
+                                         (cdr #{maps 5649}#)))))))))
+                         #{tmp 5634}#)
+                       (let ((#{tmp 5691}#
+                               ($sc-dispatch #{e 5393}# '(any . any))))
+                         (if #{tmp 5691}#
                            (@apply
-                             (lambda (#{x 5699}# #{y 5700}#)
+                             (lambda (#{x 5695}# #{y 5696}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax 5294}#
-                                     #{src 5396}#
-                                     #{x 5699}#
-                                     #{r 5398}#
-                                     #{maps 5399}#
-                                     #{ellipsis? 5400}#
-                                     #{mod 5401}#))
-                                 (lambda (#{x 5701}# #{maps 5702}#)
+                                   (#{gen-syntax 5290}#
+                                     #{src 5392}#
+                                     #{x 5695}#
+                                     #{r 5394}#
+                                     #{maps 5395}#
+                                     #{ellipsis? 5396}#
+                                     #{mod 5397}#))
+                                 (lambda (#{x 5697}# #{maps 5698}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 5294}#
-                                         #{src 5396}#
-                                         #{y 5700}#
-                                         #{r 5398}#
-                                         #{maps 5702}#
-                                         #{ellipsis? 5400}#
-                                         #{mod 5401}#))
-                                     (lambda (#{y 5703}# #{maps 5704}#)
+                                       (#{gen-syntax 5290}#
+                                         #{src 5392}#
+                                         #{y 5696}#
+                                         #{r 5394}#
+                                         #{maps 5698}#
+                                         #{ellipsis? 5396}#
+                                         #{mod 5397}#))
+                                     (lambda (#{y 5699}# #{maps 5700}#)
                                        (values
-                                         (let ((#{atom-key 5709}#
-                                                 (car #{y 5703}#)))
-                                           (if (eqv? #{atom-key 5709}# 'quote)
-                                             (if (eq? (car #{x 5701}#) 'quote)
+                                         (let ((#{atom-key 5705}#
+                                                 (car #{y 5699}#)))
+                                           (if (eqv? #{atom-key 5705}# 'quote)
+                                             (if (eq? (car #{x 5697}#) 'quote)
                                                (list 'quote
-                                                     (cons (car (cdr #{x 
5701}#))
-                                                           (car (cdr #{y 
5703}#))))
-                                               (if (eq? (car (cdr #{y 5703}#))
+                                                     (cons (car (cdr #{x 
5697}#))
+                                                           (car (cdr #{y 
5699}#))))
+                                               (if (eq? (car (cdr #{y 5699}#))
                                                         '())
-                                                 (list 'list #{x 5701}#)
+                                                 (list 'list #{x 5697}#)
                                                  (list 'cons
-                                                       #{x 5701}#
-                                                       #{y 5703}#)))
-                                             (if (eqv? #{atom-key 5709}# 'list)
+                                                       #{x 5697}#
+                                                       #{y 5699}#)))
+                                             (if (eqv? #{atom-key 5705}# 'list)
                                                (cons 'list
-                                                     (cons #{x 5701}#
-                                                           (cdr #{y 5703}#)))
+                                                     (cons #{x 5697}#
+                                                           (cdr #{y 5699}#)))
                                                (list 'cons
-                                                     #{x 5701}#
-                                                     #{y 5703}#))))
-                                         #{maps 5704}#))))))
-                             #{tmp 5695}#)
-                           (let ((#{tmp 5738}#
+                                                     #{x 5697}#
+                                                     #{y 5699}#))))
+                                         #{maps 5700}#))))))
+                             #{tmp 5691}#)
+                           (let ((#{tmp 5734}#
                                    ($sc-dispatch
-                                     #{e 5397}#
+                                     #{e 5393}#
                                      '#(vector (any . each-any)))))
-                             (if #{tmp 5738}#
+                             (if #{tmp 5734}#
                                (@apply
-                                 (lambda (#{e1 5742}# #{e2 5743}#)
+                                 (lambda (#{e1 5738}# #{e2 5739}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 5294}#
-                                         #{src 5396}#
-                                         (cons #{e1 5742}# #{e2 5743}#)
-                                         #{r 5398}#
-                                         #{maps 5399}#
-                                         #{ellipsis? 5400}#
-                                         #{mod 5401}#))
-                                     (lambda (#{e 5744}# #{maps 5745}#)
+                                       (#{gen-syntax 5290}#
+                                         #{src 5392}#
+                                         (cons #{e1 5738}# #{e2 5739}#)
+                                         #{r 5394}#
+                                         #{maps 5395}#
+                                         #{ellipsis? 5396}#
+                                         #{mod 5397}#))
+                                     (lambda (#{e 5740}# #{maps 5741}#)
                                        (values
-                                         (if (eq? (car #{e 5744}#) 'list)
-                                           (cons 'vector (cdr #{e 5744}#))
-                                           (if (eq? (car #{e 5744}#) 'quote)
+                                         (if (eq? (car #{e 5740}#) 'list)
+                                           (cons 'vector (cdr #{e 5740}#))
+                                           (if (eq? (car #{e 5740}#) 'quote)
                                              (list 'quote
                                                    (list->vector
-                                                     (car (cdr #{e 5744}#))))
-                                             (list 'list->vector #{e 5744}#)))
-                                         #{maps 5745}#))))
-                                 #{tmp 5738}#)
+                                                     (car (cdr #{e 5740}#))))
+                                             (list 'list->vector #{e 5740}#)))
+                                         #{maps 5741}#))))
+                                 #{tmp 5734}#)
                                (values
-                                 (list 'quote #{e 5397}#)
-                                 #{maps 5399}#))))))))))))
-         (#{gen-ref 5295}#
-           (lambda (#{src 5772}#
-                    #{var 5773}#
-                    #{level 5774}#
-                    #{maps 5775}#)
-             (if (= #{level 5774}# 0)
-               (values #{var 5773}# #{maps 5775}#)
-               (if (null? #{maps 5775}#)
+                                 (list 'quote #{e 5393}#)
+                                 #{maps 5395}#))))))))))))
+         (#{gen-ref 5291}#
+           (lambda (#{src 5768}#
+                    #{var 5769}#
+                    #{level 5770}#
+                    #{maps 5771}#)
+             (if (= #{level 5770}# 0)
+               (values #{var 5769}# #{maps 5771}#)
+               (if (null? #{maps 5771}#)
                  (syntax-violation
                    'syntax
                    "missing ellipsis"
-                   #{src 5772}#)
+                   #{src 5768}#)
                  (call-with-values
                    (lambda ()
-                     (#{gen-ref 5295}#
-                       #{src 5772}#
-                       #{var 5773}#
-                       (#{1-}# #{level 5774}#)
-                       (cdr #{maps 5775}#)))
-                   (lambda (#{outer-var 5776}# #{outer-maps 5777}#)
-                     (let ((#{b 5778}#
-                             (assq #{outer-var 5776}# (car #{maps 5775}#))))
-                       (if #{b 5778}#
-                         (values (cdr #{b 5778}#) #{maps 5775}#)
-                         (let ((#{inner-var 5780}#
+                     (#{gen-ref 5291}#
+                       #{src 5768}#
+                       #{var 5769}#
+                       (#{1-}# #{level 5770}#)
+                       (cdr #{maps 5771}#)))
+                   (lambda (#{outer-var 5772}# #{outer-maps 5773}#)
+                     (let ((#{b 5774}#
+                             (assq #{outer-var 5772}# (car #{maps 5771}#))))
+                       (if #{b 5774}#
+                         (values (cdr #{b 5774}#) #{maps 5771}#)
+                         (let ((#{inner-var 5776}#
                                  (gensym
                                    (string-append (symbol->string 'tmp) " "))))
                            (values
-                             #{inner-var 5780}#
-                             (cons (cons (cons #{outer-var 5776}#
-                                               #{inner-var 5780}#)
-                                         (car #{maps 5775}#))
-                                   #{outer-maps 5777}#)))))))))))
-         (#{gen-map 5297}#
-           (lambda (#{e 5794}# #{map-env 5795}#)
-             (let ((#{formals 5796}# (map cdr #{map-env 5795}#))
-                   (#{actuals 5797}#
-                     (map (lambda (#{x 5799}#)
-                            (list 'ref (car #{x 5799}#)))
-                          #{map-env 5795}#)))
-               (if (eq? (car #{e 5794}#) 'ref)
-                 (car #{actuals 5797}#)
+                             #{inner-var 5776}#
+                             (cons (cons (cons #{outer-var 5772}#
+                                               #{inner-var 5776}#)
+                                         (car #{maps 5771}#))
+                                   #{outer-maps 5773}#)))))))))))
+         (#{gen-map 5293}#
+           (lambda (#{e 5790}# #{map-env 5791}#)
+             (let ((#{formals 5792}# (map cdr #{map-env 5791}#))
+                   (#{actuals 5793}#
+                     (map (lambda (#{x 5795}#)
+                            (list 'ref (car #{x 5795}#)))
+                          #{map-env 5791}#)))
+               (if (eq? (car #{e 5790}#) 'ref)
+                 (car #{actuals 5793}#)
                  (if (and-map
-                       (lambda (#{x 5800}#)
-                         (if (eq? (car #{x 5800}#) 'ref)
-                           (memq (car (cdr #{x 5800}#)) #{formals 5796}#)
+                       (lambda (#{x 5796}#)
+                         (if (eq? (car #{x 5796}#) 'ref)
+                           (memq (car (cdr #{x 5796}#)) #{formals 5792}#)
                            #f))
-                       (cdr #{e 5794}#))
+                       (cdr #{e 5790}#))
                    (cons 'map
-                         (cons (list 'primitive (car #{e 5794}#))
-                               (map (let ((#{r 5802}#
+                         (cons (list 'primitive (car #{e 5790}#))
+                               (map (let ((#{r 5798}#
                                             (map cons
-                                                 #{formals 5796}#
-                                                 #{actuals 5797}#)))
-                                      (lambda (#{x 5803}#)
-                                        (cdr (assq (car (cdr #{x 5803}#))
-                                                   #{r 5802}#))))
-                                    (cdr #{e 5794}#))))
+                                                 #{formals 5792}#
+                                                 #{actuals 5793}#)))
+                                      (lambda (#{x 5799}#)
+                                        (cdr (assq (car (cdr #{x 5799}#))
+                                                   #{r 5798}#))))
+                                    (cdr #{e 5790}#))))
                    (cons 'map
-                         (cons (list 'lambda #{formals 5796}# #{e 5794}#)
-                               #{actuals 5797}#)))))))
-         (#{regen 5301}#
-           (lambda (#{x 5805}#)
-             (let ((#{atom-key 5806}# (car #{x 5805}#)))
-               (if (eqv? #{atom-key 5806}# 'ref)
-                 (let ((#{name 5816}# (car (cdr #{x 5805}#)))
-                       (#{var 5817}# (car (cdr #{x 5805}#))))
+                         (cons (list 'lambda #{formals 5792}# #{e 5790}#)
+                               #{actuals 5793}#)))))))
+         (#{regen 5297}#
+           (lambda (#{x 5801}#)
+             (let ((#{atom-key 5802}# (car #{x 5801}#)))
+               (if (eqv? #{atom-key 5802}# 'ref)
+                 (let ((#{name 5812}# (car (cdr #{x 5801}#)))
+                       (#{var 5813}# (car (cdr #{x 5801}#))))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 3)
                      #f
-                     #{name 5816}#
-                     #{var 5817}#))
-                 (if (eqv? #{atom-key 5806}# 'primitive)
-                   (let ((#{name 5829}# (car (cdr #{x 5805}#))))
+                     #{name 5812}#
+                     #{var 5813}#))
+                 (if (eqv? #{atom-key 5802}# 'primitive)
+                   (let ((#{name 5825}# (car (cdr #{x 5801}#))))
                      (if (equal? (module-name (current-module)) '(guile))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 7)
                          #f
-                         #{name 5829}#)
+                         #{name 5825}#)
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 5)
                          #f
                          '(guile)
-                         #{name 5829}#
+                         #{name 5825}#
                          #f)))
-                   (if (eqv? #{atom-key 5806}# 'quote)
-                     (let ((#{exp 5847}# (car (cdr #{x 5805}#))))
+                   (if (eqv? #{atom-key 5802}# 'quote)
+                     (let ((#{exp 5843}# (car (cdr #{x 5801}#))))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 1)
                          #f
-                         #{exp 5847}#))
-                     (if (eqv? #{atom-key 5806}# 'lambda)
-                       (if (list? (car (cdr #{x 5805}#)))
-                         (let ((#{req 5858}# (car (cdr #{x 5805}#)))
-                               (#{vars 5860}# (car (cdr #{x 5805}#)))
-                               (#{exp 5862}#
-                                 (#{regen 5301}#
-                                   (car (cdr (cdr #{x 5805}#))))))
-                           (let ((#{body 5867}#
+                         #{exp 5843}#))
+                     (if (eqv? #{atom-key 5802}# 'lambda)
+                       (if (list? (car (cdr #{x 5801}#)))
+                         (let ((#{req 5854}# (car (cdr #{x 5801}#)))
+                               (#{vars 5856}# (car (cdr #{x 5801}#)))
+                               (#{exp 5858}#
+                                 (#{regen 5297}#
+                                   (car (cdr (cdr #{x 5801}#))))))
+                           (let ((#{body 5863}#
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 14)
                                      #f
-                                     #{req 5858}#
+                                     #{req 5854}#
                                      #f
                                      #f
                                      #f
                                      '()
-                                     #{vars 5860}#
-                                     #{exp 5862}#
+                                     #{vars 5856}#
+                                     #{exp 5858}#
                                      #f)))
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 13)
                                #f
                                '()
-                               #{body 5867}#)))
-                         (error "how did we get here" #{x 5805}#))
-                       (let ((#{fun-exp 5883}#
-                               (let ((#{name 5892}# (car #{x 5805}#)))
+                               #{body 5863}#)))
+                         (error "how did we get here" #{x 5801}#))
+                       (let ((#{fun-exp 5879}#
+                               (let ((#{name 5888}# (car #{x 5801}#)))
                                  (if (equal?
                                        (module-name (current-module))
                                        '(guile))
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 7)
                                      #f
-                                     #{name 5892}#)
+                                     #{name 5888}#)
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 5)
                                      #f
                                      '(guile)
-                                     #{name 5892}#
+                                     #{name 5888}#
                                      #f))))
-                             (#{arg-exps 5884}#
-                               (map #{regen 5301}# (cdr #{x 5805}#))))
+                             (#{arg-exps 5880}#
+                               (map #{regen 5297}# (cdr #{x 5801}#))))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 11)
                            #f
-                           #{fun-exp 5883}#
-                           #{arg-exps 5884}#))))))))))
-        (lambda (#{e 5302}#
-                 #{r 5303}#
-                 #{w 5304}#
-                 #{s 5305}#
-                 #{mod 5306}#)
-          (let ((#{e 5307}#
-                  (#{wrap 4326}#
+                           #{fun-exp 5879}#
+                           #{arg-exps 5880}#))))))))))
+        (lambda (#{e 5298}#
+                 #{r 5299}#
+                 #{w 5300}#
+                 #{s 5301}#
+                 #{mod 5302}#)
+          (let ((#{e 5303}#
+                  (#{wrap 4327}#
                     (begin
-                      (if (if (pair? #{e 5302}#) #{s 5305}# #f)
-                        (set-source-properties! #{e 5302}# #{s 5305}#))
-                      #{e 5302}#)
-                    #{w 5304}#
-                    #{mod 5306}#)))
-            (let ((#{tmp 5309}# ($sc-dispatch #{e 5307}# '(_ any))))
-              (if #{tmp 5309}#
+                      (if (if (pair? #{e 5298}#) #{s 5301}# #f)
+                        (set-source-properties! #{e 5298}# #{s 5301}#))
+                      #{e 5298}#)
+                    #{w 5300}#
+                    #{mod 5302}#)))
+            (let ((#{tmp 5305}# ($sc-dispatch #{e 5303}# '(_ any))))
+              (if #{tmp 5305}#
                 (@apply
-                  (lambda (#{x 5334}#)
+                  (lambda (#{x 5330}#)
                     (call-with-values
                       (lambda ()
-                        (#{gen-syntax 5294}#
-                          #{e 5307}#
-                          #{x 5334}#
-                          #{r 5303}#
+                        (#{gen-syntax 5290}#
+                          #{e 5303}#
+                          #{x 5330}#
+                          #{r 5299}#
                           '()
-                          #{ellipsis? 4341}#
-                          #{mod 5306}#))
-                      (lambda (#{e 5388}# #{maps 5389}#)
-                        (#{regen 5301}# #{e 5388}#))))
-                  #{tmp 5309}#)
+                          #{ellipsis? 4342}#
+                          #{mod 5302}#))
+                      (lambda (#{e 5384}# #{maps 5385}#)
+                        (#{regen 5297}# #{e 5384}#))))
+                  #{tmp 5305}#)
                 (syntax-violation
                   'syntax
                   "bad `syntax' form"
-                  #{e 5307}#)))))))
-    (#{global-extend 4299}#
+                  #{e 5303}#)))))))
+    (#{global-extend 4300}#
       'core
       'lambda
-      (lambda (#{e 6087}#
-               #{r 6088}#
-               #{w 6089}#
-               #{s 6090}#
-               #{mod 6091}#)
-        (let ((#{tmp 6093}#
-                ($sc-dispatch #{e 6087}# '(_ any any . each-any))))
-          (if #{tmp 6093}#
+      (lambda (#{e 6081}#
+               #{r 6082}#
+               #{w 6083}#
+               #{s 6084}#
+               #{mod 6085}#)
+        (let ((#{tmp 6087}#
+                ($sc-dispatch #{e 6081}# '(_ any any . each-any))))
+          (if #{tmp 6087}#
             (@apply
-              (lambda (#{args 6097}# #{e1 6098}# #{e2 6099}#)
+              (lambda (#{args 6091}# #{e1 6092}# #{e2 6093}#)
                 (call-with-values
                   (lambda ()
-                    (#{lambda-formals 4342}# #{args 6097}#))
-                  (lambda (#{req 6102}#
-                           #{opt 6103}#
-                           #{rest 6104}#
-                           #{kw 6105}#)
+                    (#{lambda-formals 4343}# #{args 6091}#))
+                  (lambda (#{req 6096}#
+                           #{opt 6097}#
+                           #{rest 6098}#
+                           #{kw 6099}#)
                     (letrec*
-                      ((#{lp 6106}#
-                         (lambda (#{body 6109}# #{meta 6110}#)
-                           (let ((#{tmp 6112}#
+                      ((#{lp 6100}#
+                         (lambda (#{body 6103}# #{meta 6104}#)
+                           (let ((#{tmp 6106}#
                                    ($sc-dispatch
-                                     #{body 6109}#
+                                     #{body 6103}#
                                      '(any any . each-any))))
-                             (if (if #{tmp 6112}#
+                             (if (if #{tmp 6106}#
                                    (@apply
-                                     (lambda (#{docstring 6116}#
-                                              #{e1 6117}#
-                                              #{e2 6118}#)
+                                     (lambda (#{docstring 6110}#
+                                              #{e1 6111}#
+                                              #{e2 6112}#)
                                        (string?
-                                         (syntax->datum #{docstring 6116}#)))
-                                     #{tmp 6112}#)
+                                         (syntax->datum #{docstring 6110}#)))
+                                     #{tmp 6106}#)
                                    #f)
                                (@apply
-                                 (lambda (#{docstring 6119}#
-                                          #{e1 6120}#
-                                          #{e2 6121}#)
-                                   (#{lp 6106}#
-                                     (cons #{e1 6120}# #{e2 6121}#)
+                                 (lambda (#{docstring 6113}#
+                                          #{e1 6114}#
+                                          #{e2 6115}#)
+                                   (#{lp 6100}#
+                                     (cons #{e1 6114}# #{e2 6115}#)
                                      (append
-                                       #{meta 6110}#
+                                       #{meta 6104}#
                                        (list (cons 'documentation
                                                    (syntax->datum
-                                                     #{docstring 6119}#))))))
-                                 #{tmp 6112}#)
-                               (let ((#{tmp 6122}#
+                                                     #{docstring 6113}#))))))
+                                 #{tmp 6106}#)
+                               (let ((#{tmp 6116}#
                                        ($sc-dispatch
-                                         #{body 6109}#
+                                         #{body 6103}#
                                          '(#(vector #(each (any . any)))
                                            any
                                            .
                                            each-any))))
-                                 (if #{tmp 6122}#
+                                 (if #{tmp 6116}#
                                    (@apply
-                                     (lambda (#{k 6126}#
-                                              #{v 6127}#
-                                              #{e1 6128}#
-                                              #{e2 6129}#)
-                                       (#{lp 6106}#
-                                         (cons #{e1 6128}# #{e2 6129}#)
+                                     (lambda (#{k 6120}#
+                                              #{v 6121}#
+                                              #{e1 6122}#
+                                              #{e2 6123}#)
+                                       (#{lp 6100}#
+                                         (cons #{e1 6122}# #{e2 6123}#)
                                          (append
-                                           #{meta 6110}#
+                                           #{meta 6104}#
                                            (syntax->datum
                                              (map cons
-                                                  #{k 6126}#
-                                                  #{v 6127}#)))))
-                                     #{tmp 6122}#)
-                                   (#{expand-simple-lambda 4343}#
-                                     #{e 6087}#
-                                     #{r 6088}#
-                                     #{w 6089}#
-                                     #{s 6090}#
-                                     #{mod 6091}#
-                                     #{req 6102}#
-                                     #{rest 6104}#
-                                     #{meta 6110}#
-                                     #{body 6109}#))))))))
-                      (#{lp 6106}# (cons #{e1 6098}# #{e2 6099}#) '())))))
-              #{tmp 6093}#)
+                                                  #{k 6120}#
+                                                  #{v 6121}#)))))
+                                     #{tmp 6116}#)
+                                   (#{expand-simple-lambda 4344}#
+                                     #{e 6081}#
+                                     #{r 6082}#
+                                     #{w 6083}#
+                                     #{s 6084}#
+                                     #{mod 6085}#
+                                     #{req 6096}#
+                                     #{rest 6098}#
+                                     #{meta 6104}#
+                                     #{body 6103}#))))))))
+                      (#{lp 6100}# (cons #{e1 6092}# #{e2 6093}#) '())))))
+              #{tmp 6087}#)
             (syntax-violation
               'lambda
               "bad lambda"
-              #{e 6087}#)))))
-    (#{global-extend 4299}#
+              #{e 6081}#)))))
+    (#{global-extend 4300}#
       'core
       'lambda*
-      (lambda (#{e 6421}#
-               #{r 6422}#
-               #{w 6423}#
-               #{s 6424}#
-               #{mod 6425}#)
-        (let ((#{tmp 6427}#
-                ($sc-dispatch #{e 6421}# '(_ any any . each-any))))
-          (if #{tmp 6427}#
+      (lambda (#{e 6414}#
+               #{r 6415}#
+               #{w 6416}#
+               #{s 6417}#
+               #{mod 6418}#)
+        (let ((#{tmp 6420}#
+                ($sc-dispatch #{e 6414}# '(_ any any . each-any))))
+          (if #{tmp 6420}#
             (@apply
-              (lambda (#{args 6431}# #{e1 6432}# #{e2 6433}#)
+              (lambda (#{args 6424}# #{e1 6425}# #{e2 6426}#)
                 (call-with-values
                   (lambda ()
-                    (#{expand-lambda-case 4345}#
-                      #{e 6421}#
-                      #{r 6422}#
-                      #{w 6423}#
-                      #{s 6424}#
-                      #{mod 6425}#
-                      #{lambda*-formals 4344}#
-                      (list (cons #{args 6431}#
-                                  (cons #{e1 6432}# #{e2 6433}#)))))
-                  (lambda (#{meta 6436}# #{lcase 6437}#)
+                    (#{expand-lambda-case 4346}#
+                      #{e 6414}#
+                      #{r 6415}#
+                      #{w 6416}#
+                      #{s 6417}#
+                      #{mod 6418}#
+                      #{lambda*-formals 4345}#
+                      (list (cons #{args 6424}#
+                                  (cons #{e1 6425}# #{e2 6426}#)))))
+                  (lambda (#{meta 6429}# #{lcase 6430}#)
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 13)
-                      #{s 6424}#
-                      #{meta 6436}#
-                      #{lcase 6437}#))))
-              #{tmp 6427}#)
+                      #{s 6417}#
+                      #{meta 6429}#
+                      #{lcase 6430}#))))
+              #{tmp 6420}#)
             (syntax-violation
               'lambda
               "bad lambda*"
-              #{e 6421}#)))))
-    (#{global-extend 4299}#
+              #{e 6414}#)))))
+    (#{global-extend 4300}#
       'core
       'case-lambda
-      (lambda (#{e 6611}#
-               #{r 6612}#
-               #{w 6613}#
-               #{s 6614}#
-               #{mod 6615}#)
-        (let ((#{tmp 6617}#
+      (lambda (#{e 6600}#
+               #{r 6601}#
+               #{w 6602}#
+               #{s 6603}#
+               #{mod 6604}#)
+        (let ((#{tmp 6606}#
                 ($sc-dispatch
-                  #{e 6611}#
+                  #{e 6600}#
                   '(_ (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-          (if #{tmp 6617}#
+          (if #{tmp 6606}#
             (@apply
-              (lambda (#{args 6621}#
-                       #{e1 6622}#
-                       #{e2 6623}#
-                       #{args* 6624}#
-                       #{e1* 6625}#
-                       #{e2* 6626}#)
+              (lambda (#{args 6610}#
+                       #{e1 6611}#
+                       #{e2 6612}#
+                       #{args* 6613}#
+                       #{e1* 6614}#
+                       #{e2* 6615}#)
                 (call-with-values
                   (lambda ()
-                    (#{expand-lambda-case 4345}#
-                      #{e 6611}#
-                      #{r 6612}#
-                      #{w 6613}#
-                      #{s 6614}#
-                      #{mod 6615}#
-                      #{lambda-formals 4342}#
-                      (cons (cons #{args 6621}#
-                                  (cons #{e1 6622}# #{e2 6623}#))
-                            (map (lambda (#{tmp 3262 6629}#
-                                          #{tmp 3261 6630}#
-                                          #{tmp 3260 6631}#)
-                                   (cons #{tmp 3260 6631}#
-                                         (cons #{tmp 3261 6630}#
-                                               #{tmp 3262 6629}#)))
-                                 #{e2* 6626}#
-                                 #{e1* 6625}#
-                                 #{args* 6624}#))))
-                  (lambda (#{meta 6632}# #{lcase 6633}#)
+                    (#{expand-lambda-case 4346}#
+                      #{e 6600}#
+                      #{r 6601}#
+                      #{w 6602}#
+                      #{s 6603}#
+                      #{mod 6604}#
+                      #{lambda-formals 4343}#
+                      (cons (cons #{args 6610}#
+                                  (cons #{e1 6611}# #{e2 6612}#))
+                            (map (lambda (#{tmp 3263 6618}#
+                                          #{tmp 3262 6619}#
+                                          #{tmp 3261 6620}#)
+                                   (cons #{tmp 3261 6620}#
+                                         (cons #{tmp 3262 6619}#
+                                               #{tmp 3263 6618}#)))
+                                 #{e2* 6615}#
+                                 #{e1* 6614}#
+                                 #{args* 6613}#))))
+                  (lambda (#{meta 6621}# #{lcase 6622}#)
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 13)
-                      #{s 6614}#
-                      #{meta 6632}#
-                      #{lcase 6633}#))))
-              #{tmp 6617}#)
+                      #{s 6603}#
+                      #{meta 6621}#
+                      #{lcase 6622}#))))
+              #{tmp 6606}#)
             (syntax-violation
               'case-lambda
               "bad case-lambda"
-              #{e 6611}#)))))
-    (#{global-extend 4299}#
+              #{e 6600}#)))))
+    (#{global-extend 4300}#
       'core
       'case-lambda*
-      (lambda (#{e 6796}#
-               #{r 6797}#
-               #{w 6798}#
-               #{s 6799}#
-               #{mod 6800}#)
-        (let ((#{tmp 6802}#
+      (lambda (#{e 6784}#
+               #{r 6785}#
+               #{w 6786}#
+               #{s 6787}#
+               #{mod 6788}#)
+        (let ((#{tmp 6790}#
                 ($sc-dispatch
-                  #{e 6796}#
+                  #{e 6784}#
                   '(_ (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-          (if #{tmp 6802}#
+          (if #{tmp 6790}#
             (@apply
-              (lambda (#{args 6806}#
-                       #{e1 6807}#
-                       #{e2 6808}#
-                       #{args* 6809}#
-                       #{e1* 6810}#
-                       #{e2* 6811}#)
+              (lambda (#{args 6794}#
+                       #{e1 6795}#
+                       #{e2 6796}#
+                       #{args* 6797}#
+                       #{e1* 6798}#
+                       #{e2* 6799}#)
                 (call-with-values
                   (lambda ()
-                    (#{expand-lambda-case 4345}#
-                      #{e 6796}#
-                      #{r 6797}#
-                      #{w 6798}#
-                      #{s 6799}#
-                      #{mod 6800}#
-                      #{lambda*-formals 4344}#
-                      (cons (cons #{args 6806}#
-                                  (cons #{e1 6807}# #{e2 6808}#))
-                            (map (lambda (#{tmp 3297 6814}#
-                                          #{tmp 3296 6815}#
-                                          #{tmp 3295 6816}#)
-                                   (cons #{tmp 3295 6816}#
-                                         (cons #{tmp 3296 6815}#
-                                               #{tmp 3297 6814}#)))
-                                 #{e2* 6811}#
-                                 #{e1* 6810}#
-                                 #{args* 6809}#))))
-                  (lambda (#{meta 6817}# #{lcase 6818}#)
+                    (#{expand-lambda-case 4346}#
+                      #{e 6784}#
+                      #{r 6785}#
+                      #{w 6786}#
+                      #{s 6787}#
+                      #{mod 6788}#
+                      #{lambda*-formals 4345}#
+                      (cons (cons #{args 6794}#
+                                  (cons #{e1 6795}# #{e2 6796}#))
+                            (map (lambda (#{tmp 3298 6802}#
+                                          #{tmp 3297 6803}#
+                                          #{tmp 3296 6804}#)
+                                   (cons #{tmp 3296 6804}#
+                                         (cons #{tmp 3297 6803}#
+                                               #{tmp 3298 6802}#)))
+                                 #{e2* 6799}#
+                                 #{e1* 6798}#
+                                 #{args* 6797}#))))
+                  (lambda (#{meta 6805}# #{lcase 6806}#)
                     (make-struct/no-tail
                       (vector-ref %expanded-vtables 13)
-                      #{s 6799}#
-                      #{meta 6817}#
-                      #{lcase 6818}#))))
-              #{tmp 6802}#)
+                      #{s 6787}#
+                      #{meta 6805}#
+                      #{lcase 6806}#))))
+              #{tmp 6790}#)
             (syntax-violation
               'case-lambda
               "bad case-lambda*"
-              #{e 6796}#)))))
-    (#{global-extend 4299}#
+              #{e 6784}#)))))
+    (#{global-extend 4300}#
       'core
       'let
       (letrec*
-        ((#{expand-let 7010}#
-           (lambda (#{e 7159}#
-                    #{r 7160}#
-                    #{w 7161}#
-                    #{s 7162}#
-                    #{mod 7163}#
-                    #{constructor 7164}#
-                    #{ids 7165}#
-                    #{vals 7166}#
-                    #{exps 7167}#)
-             (if (not (#{valid-bound-ids? 4323}# #{ids 7165}#))
+        ((#{expand-let 6997}#
+           (lambda (#{e 7146}#
+                    #{r 7147}#
+                    #{w 7148}#
+                    #{s 7149}#
+                    #{mod 7150}#
+                    #{constructor 7151}#
+                    #{ids 7152}#
+                    #{vals 7153}#
+                    #{exps 7154}#)
+             (if (not (#{valid-bound-ids? 4324}# #{ids 7152}#))
                (syntax-violation
                  'let
                  "duplicate bound variable"
-                 #{e 7159}#)
-               (let ((#{labels 7245}#
-                       (#{gen-labels 4304}# #{ids 7165}#))
-                     (#{new-vars 7246}#
-                       (map #{gen-var 4347}# #{ids 7165}#)))
-                 (let ((#{nw 7247}#
-                         (#{make-binding-wrap 4315}#
-                           #{ids 7165}#
-                           #{labels 7245}#
-                           #{w 7161}#))
-                       (#{nr 7248}#
-                         (#{extend-var-env 4296}#
-                           #{labels 7245}#
-                           #{new-vars 7246}#
-                           #{r 7160}#)))
-                   (#{constructor 7164}#
-                     #{s 7162}#
-                     (map syntax->datum #{ids 7165}#)
-                     #{new-vars 7246}#
-                     (map (lambda (#{x 7265}#)
-                            (#{expand 4333}#
-                              #{x 7265}#
-                              #{r 7160}#
-                              #{w 7161}#
-                              #{mod 7163}#))
-                          #{vals 7166}#)
-                     (#{expand-body 4337}#
-                       #{exps 7167}#
-                       (#{source-wrap 4327}#
-                         #{e 7159}#
-                         #{nw 7247}#
-                         #{s 7162}#
-                         #{mod 7163}#)
-                       #{nr 7248}#
-                       #{nw 7247}#
-                       #{mod 7163}#))))))))
-        (lambda (#{e 7011}#
-                 #{r 7012}#
-                 #{w 7013}#
-                 #{s 7014}#
-                 #{mod 7015}#)
-          (let ((#{tmp 7017}#
+                 #{e 7146}#)
+               (let ((#{labels 7232}#
+                       (#{gen-labels 4305}# #{ids 7152}#))
+                     (#{new-vars 7233}#
+                       (map #{gen-var 4348}# #{ids 7152}#)))
+                 (let ((#{nw 7234}#
+                         (#{make-binding-wrap 4316}#
+                           #{ids 7152}#
+                           #{labels 7232}#
+                           #{w 7148}#))
+                       (#{nr 7235}#
+                         (#{extend-var-env 4297}#
+                           #{labels 7232}#
+                           #{new-vars 7233}#
+                           #{r 7147}#)))
+                   (#{constructor 7151}#
+                     #{s 7149}#
+                     (map syntax->datum #{ids 7152}#)
+                     #{new-vars 7233}#
+                     (map (lambda (#{x 7252}#)
+                            (#{expand 4334}#
+                              #{x 7252}#
+                              #{r 7147}#
+                              #{w 7148}#
+                              #{mod 7150}#))
+                          #{vals 7153}#)
+                     (#{expand-body 4338}#
+                       #{exps 7154}#
+                       (#{source-wrap 4328}#
+                         #{e 7146}#
+                         #{nw 7234}#
+                         #{s 7149}#
+                         #{mod 7150}#)
+                       #{nr 7235}#
+                       #{nw 7234}#
+                       #{mod 7150}#))))))))
+        (lambda (#{e 6998}#
+                 #{r 6999}#
+                 #{w 7000}#
+                 #{s 7001}#
+                 #{mod 7002}#)
+          (let ((#{tmp 7004}#
                   ($sc-dispatch
-                    #{e 7011}#
+                    #{e 6998}#
                     '(_ #(each (any any)) any . each-any))))
-            (if (if #{tmp 7017}#
+            (if (if #{tmp 7004}#
                   (@apply
-                    (lambda (#{id 7021}#
-                             #{val 7022}#
-                             #{e1 7023}#
-                             #{e2 7024}#)
-                      (and-map #{id? 4301}# #{id 7021}#))
-                    #{tmp 7017}#)
+                    (lambda (#{id 7008}#
+                             #{val 7009}#
+                             #{e1 7010}#
+                             #{e2 7011}#)
+                      (and-map #{id? 4302}# #{id 7008}#))
+                    #{tmp 7004}#)
                   #f)
               (@apply
-                (lambda (#{id 7040}#
-                         #{val 7041}#
-                         #{e1 7042}#
-                         #{e2 7043}#)
-                  (#{expand-let 7010}#
-                    #{e 7011}#
-                    #{r 7012}#
-                    #{w 7013}#
-                    #{s 7014}#
-                    #{mod 7015}#
-                    #{build-let 4283}#
-                    #{id 7040}#
-                    #{val 7041}#
-                    (cons #{e1 7042}# #{e2 7043}#)))
-                #{tmp 7017}#)
-              (let ((#{tmp 7073}#
+                (lambda (#{id 7027}#
+                         #{val 7028}#
+                         #{e1 7029}#
+                         #{e2 7030}#)
+                  (#{expand-let 6997}#
+                    #{e 6998}#
+                    #{r 6999}#
+                    #{w 7000}#
+                    #{s 7001}#
+                    #{mod 7002}#
+                    #{build-let 4284}#
+                    #{id 7027}#
+                    #{val 7028}#
+                    (cons #{e1 7029}# #{e2 7030}#)))
+                #{tmp 7004}#)
+              (let ((#{tmp 7060}#
                       ($sc-dispatch
-                        #{e 7011}#
+                        #{e 6998}#
                         '(_ any #(each (any any)) any . each-any))))
-                (if (if #{tmp 7073}#
+                (if (if #{tmp 7060}#
                       (@apply
-                        (lambda (#{f 7077}#
-                                 #{id 7078}#
-                                 #{val 7079}#
-                                 #{e1 7080}#
-                                 #{e2 7081}#)
-                          (if (if (symbol? #{f 7077}#)
+                        (lambda (#{f 7064}#
+                                 #{id 7065}#
+                                 #{val 7066}#
+                                 #{e1 7067}#
+                                 #{e2 7068}#)
+                          (if (if (symbol? #{f 7064}#)
                                 #t
-                                (if (if (vector? #{f 7077}#)
-                                      (if (= (vector-length #{f 7077}#) 4)
-                                        (eq? (vector-ref #{f 7077}# 0)
+                                (if (if (vector? #{f 7064}#)
+                                      (if (= (vector-length #{f 7064}#) 4)
+                                        (eq? (vector-ref #{f 7064}# 0)
                                              'syntax-object)
                                         #f)
                                       #f)
-                                  (symbol? (vector-ref #{f 7077}# 1))
+                                  (symbol? (vector-ref #{f 7064}# 1))
                                   #f))
-                            (and-map #{id? 4301}# #{id 7078}#)
+                            (and-map #{id? 4302}# #{id 7065}#)
                             #f))
-                        #{tmp 7073}#)
+                        #{tmp 7060}#)
                       #f)
                   (@apply
-                    (lambda (#{f 7123}#
-                             #{id 7124}#
-                             #{val 7125}#
-                             #{e1 7126}#
-                             #{e2 7127}#)
-                      (#{expand-let 7010}#
-                        #{e 7011}#
-                        #{r 7012}#
-                        #{w 7013}#
-                        #{s 7014}#
-                        #{mod 7015}#
-                        #{build-named-let 4284}#
-                        (cons #{f 7123}# #{id 7124}#)
-                        #{val 7125}#
-                        (cons #{e1 7126}# #{e2 7127}#)))
-                    #{tmp 7073}#)
+                    (lambda (#{f 7110}#
+                             #{id 7111}#
+                             #{val 7112}#
+                             #{e1 7113}#
+                             #{e2 7114}#)
+                      (#{expand-let 6997}#
+                        #{e 6998}#
+                        #{r 6999}#
+                        #{w 7000}#
+                        #{s 7001}#
+                        #{mod 7002}#
+                        #{build-named-let 4285}#
+                        (cons #{f 7110}# #{id 7111}#)
+                        #{val 7112}#
+                        (cons #{e1 7113}# #{e2 7114}#)))
+                    #{tmp 7060}#)
                   (syntax-violation
                     'let
                     "bad let"
-                    (#{wrap 4326}#
+                    (#{wrap 4327}#
                       (begin
-                        (if (if (pair? #{e 7011}#) #{s 7014}# #f)
-                          (set-source-properties! #{e 7011}# #{s 7014}#))
-                        #{e 7011}#)
-                      #{w 7013}#
-                      #{mod 7015}#)))))))))
-    (#{global-extend 4299}#
+                        (if (if (pair? #{e 6998}#) #{s 7001}# #f)
+                          (set-source-properties! #{e 6998}# #{s 7001}#))
+                        #{e 6998}#)
+                      #{w 7000}#
+                      #{mod 7002}#)))))))))
+    (#{global-extend 4300}#
       'core
       'letrec
-      (lambda (#{e 7714}#
-               #{r 7715}#
-               #{w 7716}#
-               #{s 7717}#
-               #{mod 7718}#)
-        (let ((#{tmp 7720}#
+      (lambda (#{e 7694}#
+               #{r 7695}#
+               #{w 7696}#
+               #{s 7697}#
+               #{mod 7698}#)
+        (let ((#{tmp 7700}#
                 ($sc-dispatch
-                  #{e 7714}#
+                  #{e 7694}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 7720}#
+          (if (if #{tmp 7700}#
                 (@apply
-                  (lambda (#{id 7724}#
-                           #{val 7725}#
-                           #{e1 7726}#
-                           #{e2 7727}#)
-                    (and-map #{id? 4301}# #{id 7724}#))
-                  #{tmp 7720}#)
+                  (lambda (#{id 7704}#
+                           #{val 7705}#
+                           #{e1 7706}#
+                           #{e2 7707}#)
+                    (and-map #{id? 4302}# #{id 7704}#))
+                  #{tmp 7700}#)
                 #f)
             (@apply
-              (lambda (#{id 7743}#
-                       #{val 7744}#
-                       #{e1 7745}#
-                       #{e2 7746}#)
-                (if (not (#{valid-bound-ids? 4323}# #{id 7743}#))
+              (lambda (#{id 7723}#
+                       #{val 7724}#
+                       #{e1 7725}#
+                       #{e2 7726}#)
+                (if (not (#{valid-bound-ids? 4324}# #{id 7723}#))
                   (syntax-violation
                     'letrec
                     "duplicate bound variable"
-                    #{e 7714}#)
-                  (let ((#{labels 7836}#
-                          (#{gen-labels 4304}# #{id 7743}#))
-                        (#{new-vars 7837}#
-                          (map #{gen-var 4347}# #{id 7743}#)))
-                    (let ((#{w 7838}#
-                            (#{make-binding-wrap 4315}#
-                              #{id 7743}#
-                              #{labels 7836}#
-                              #{w 7716}#))
-                          (#{r 7839}#
-                            (#{extend-var-env 4296}#
-                              #{labels 7836}#
-                              #{new-vars 7837}#
-                              #{r 7715}#)))
-                      (#{build-letrec 4285}#
-                        #{s 7717}#
+                    #{e 7694}#)
+                  (let ((#{labels 7816}#
+                          (#{gen-labels 4305}# #{id 7723}#))
+                        (#{new-vars 7817}#
+                          (map #{gen-var 4348}# #{id 7723}#)))
+                    (let ((#{w 7818}#
+                            (#{make-binding-wrap 4316}#
+                              #{id 7723}#
+                              #{labels 7816}#
+                              #{w 7696}#))
+                          (#{r 7819}#
+                            (#{extend-var-env 4297}#
+                              #{labels 7816}#
+                              #{new-vars 7817}#
+                              #{r 7695}#)))
+                      (#{build-letrec 4286}#
+                        #{s 7697}#
                         #f
-                        (map syntax->datum #{id 7743}#)
-                        #{new-vars 7837}#
-                        (map (lambda (#{x 7926}#)
-                               (#{expand 4333}#
-                                 #{x 7926}#
-                                 #{r 7839}#
-                                 #{w 7838}#
-                                 #{mod 7718}#))
-                             #{val 7744}#)
-                        (#{expand-body 4337}#
-                          (cons #{e1 7745}# #{e2 7746}#)
-                          (#{wrap 4326}#
+                        (map syntax->datum #{id 7723}#)
+                        #{new-vars 7817}#
+                        (map (lambda (#{x 7906}#)
+                               (#{expand 4334}#
+                                 #{x 7906}#
+                                 #{r 7819}#
+                                 #{w 7818}#
+                                 #{mod 7698}#))
+                             #{val 7724}#)
+                        (#{expand-body 4338}#
+                          (cons #{e1 7725}# #{e2 7726}#)
+                          (#{wrap 4327}#
                             (begin
-                              (if (if (pair? #{e 7714}#) #{s 7717}# #f)
-                                (set-source-properties! #{e 7714}# #{s 7717}#))
-                              #{e 7714}#)
-                            #{w 7838}#
-                            #{mod 7718}#)
-                          #{r 7839}#
-                          #{w 7838}#
-                          #{mod 7718}#))))))
-              #{tmp 7720}#)
+                              (if (if (pair? #{e 7694}#) #{s 7697}# #f)
+                                (set-source-properties! #{e 7694}# #{s 7697}#))
+                              #{e 7694}#)
+                            #{w 7818}#
+                            #{mod 7698}#)
+                          #{r 7819}#
+                          #{w 7818}#
+                          #{mod 7698}#))))))
+              #{tmp 7700}#)
             (syntax-violation
               'letrec
               "bad letrec"
-              (#{wrap 4326}#
+              (#{wrap 4327}#
                 (begin
-                  (if (if (pair? #{e 7714}#) #{s 7717}# #f)
-                    (set-source-properties! #{e 7714}# #{s 7717}#))
-                  #{e 7714}#)
-                #{w 7716}#
-                #{mod 7718}#))))))
-    (#{global-extend 4299}#
+                  (if (if (pair? #{e 7694}#) #{s 7697}# #f)
+                    (set-source-properties! #{e 7694}# #{s 7697}#))
+                  #{e 7694}#)
+                #{w 7696}#
+                #{mod 7698}#))))))
+    (#{global-extend 4300}#
       'core
       'letrec*
-      (lambda (#{e 8343}#
-               #{r 8344}#
-               #{w 8345}#
-               #{s 8346}#
-               #{mod 8347}#)
-        (let ((#{tmp 8349}#
+      (lambda (#{e 8323}#
+               #{r 8324}#
+               #{w 8325}#
+               #{s 8326}#
+               #{mod 8327}#)
+        (let ((#{tmp 8329}#
                 ($sc-dispatch
-                  #{e 8343}#
+                  #{e 8323}#
                   '(_ #(each (any any)) any . each-any))))
-          (if (if #{tmp 8349}#
+          (if (if #{tmp 8329}#
                 (@apply
-                  (lambda (#{id 8353}#
-                           #{val 8354}#
-                           #{e1 8355}#
-                           #{e2 8356}#)
-                    (and-map #{id? 4301}# #{id 8353}#))
-                  #{tmp 8349}#)
+                  (lambda (#{id 8333}#
+                           #{val 8334}#
+                           #{e1 8335}#
+                           #{e2 8336}#)
+                    (and-map #{id? 4302}# #{id 8333}#))
+                  #{tmp 8329}#)
                 #f)
             (@apply
-              (lambda (#{id 8372}#
-                       #{val 8373}#
-                       #{e1 8374}#
-                       #{e2 8375}#)
-                (if (not (#{valid-bound-ids? 4323}# #{id 8372}#))
+              (lambda (#{id 8352}#
+                       #{val 8353}#
+                       #{e1 8354}#
+                       #{e2 8355}#)
+                (if (not (#{valid-bound-ids? 4324}# #{id 8352}#))
                   (syntax-violation
                     'letrec*
                     "duplicate bound variable"
-                    #{e 8343}#)
-                  (let ((#{labels 8465}#
-                          (#{gen-labels 4304}# #{id 8372}#))
-                        (#{new-vars 8466}#
-                          (map #{gen-var 4347}# #{id 8372}#)))
-                    (let ((#{w 8467}#
-                            (#{make-binding-wrap 4315}#
-                              #{id 8372}#
-                              #{labels 8465}#
-                              #{w 8345}#))
-                          (#{r 8468}#
-                            (#{extend-var-env 4296}#
-                              #{labels 8465}#
-                              #{new-vars 8466}#
-                              #{r 8344}#)))
-                      (#{build-letrec 4285}#
-                        #{s 8346}#
+                    #{e 8323}#)
+                  (let ((#{labels 8445}#
+                          (#{gen-labels 4305}# #{id 8352}#))
+                        (#{new-vars 8446}#
+                          (map #{gen-var 4348}# #{id 8352}#)))
+                    (let ((#{w 8447}#
+                            (#{make-binding-wrap 4316}#
+                              #{id 8352}#
+                              #{labels 8445}#
+                              #{w 8325}#))
+                          (#{r 8448}#
+                            (#{extend-var-env 4297}#
+                              #{labels 8445}#
+                              #{new-vars 8446}#
+                              #{r 8324}#)))
+                      (#{build-letrec 4286}#
+                        #{s 8326}#
                         #t
-                        (map syntax->datum #{id 8372}#)
-                        #{new-vars 8466}#
-                        (map (lambda (#{x 8555}#)
-                               (#{expand 4333}#
-                                 #{x 8555}#
-                                 #{r 8468}#
-                                 #{w 8467}#
-                                 #{mod 8347}#))
-                             #{val 8373}#)
-                        (#{expand-body 4337}#
-                          (cons #{e1 8374}# #{e2 8375}#)
-                          (#{wrap 4326}#
+                        (map syntax->datum #{id 8352}#)
+                        #{new-vars 8446}#
+                        (map (lambda (#{x 8535}#)
+                               (#{expand 4334}#
+                                 #{x 8535}#
+                                 #{r 8448}#
+                                 #{w 8447}#
+                                 #{mod 8327}#))
+                             #{val 8353}#)
+                        (#{expand-body 4338}#
+                          (cons #{e1 8354}# #{e2 8355}#)
+                          (#{wrap 4327}#
                             (begin
-                              (if (if (pair? #{e 8343}#) #{s 8346}# #f)
-                                (set-source-properties! #{e 8343}# #{s 8346}#))
-                              #{e 8343}#)
-                            #{w 8467}#
-                            #{mod 8347}#)
-                          #{r 8468}#
-                          #{w 8467}#
-                          #{mod 8347}#))))))
-              #{tmp 8349}#)
+                              (if (if (pair? #{e 8323}#) #{s 8326}# #f)
+                                (set-source-properties! #{e 8323}# #{s 8326}#))
+                              #{e 8323}#)
+                            #{w 8447}#
+                            #{mod 8327}#)
+                          #{r 8448}#
+                          #{w 8447}#
+                          #{mod 8327}#))))))
+              #{tmp 8329}#)
             (syntax-violation
               'letrec*
               "bad letrec*"
-              (#{wrap 4326}#
+              (#{wrap 4327}#
                 (begin
-                  (if (if (pair? #{e 8343}#) #{s 8346}# #f)
-                    (set-source-properties! #{e 8343}# #{s 8346}#))
-                  #{e 8343}#)
-                #{w 8345}#
-                #{mod 8347}#))))))
-    (#{global-extend 4299}#
+                  (if (if (pair? #{e 8323}#) #{s 8326}# #f)
+                    (set-source-properties! #{e 8323}# #{s 8326}#))
+                  #{e 8323}#)
+                #{w 8325}#
+                #{mod 8327}#))))))
+    (#{global-extend 4300}#
       'core
       'set!
-      (lambda (#{e 9026}#
-               #{r 9027}#
-               #{w 9028}#
-               #{s 9029}#
-               #{mod 9030}#)
-        (let ((#{tmp 9032}#
-                ($sc-dispatch #{e 9026}# '(_ any any))))
-          (if (if #{tmp 9032}#
+      (lambda (#{e 8994}#
+               #{r 8995}#
+               #{w 8996}#
+               #{s 8997}#
+               #{mod 8998}#)
+        (let ((#{tmp 9000}#
+                ($sc-dispatch #{e 8994}# '(_ any any))))
+          (if (if #{tmp 9000}#
                 (@apply
-                  (lambda (#{id 9036}# #{val 9037}#)
-                    (if (symbol? #{id 9036}#)
+                  (lambda (#{id 9004}# #{val 9005}#)
+                    (if (symbol? #{id 9004}#)
                       #t
-                      (if (if (vector? #{id 9036}#)
-                            (if (= (vector-length #{id 9036}#) 4)
-                              (eq? (vector-ref #{id 9036}# 0) 'syntax-object)
+                      (if (if (vector? #{id 9004}#)
+                            (if (= (vector-length #{id 9004}#) 4)
+                              (eq? (vector-ref #{id 9004}# 0) 'syntax-object)
                               #f)
                             #f)
-                        (symbol? (vector-ref #{id 9036}# 1))
+                        (symbol? (vector-ref #{id 9004}# 1))
                         #f)))
-                  #{tmp 9032}#)
+                  #{tmp 9000}#)
                 #f)
             (@apply
-              (lambda (#{id 9064}# #{val 9065}#)
-                (let ((#{n 9066}#
-                        (#{id-var-name 4320}# #{id 9064}# #{w 9028}#))
-                      (#{id-mod 9067}#
-                        (if (if (vector? #{id 9064}#)
-                              (if (= (vector-length #{id 9064}#) 4)
-                                (eq? (vector-ref #{id 9064}# 0) 'syntax-object)
+              (lambda (#{id 9032}# #{val 9033}#)
+                (let ((#{n 9034}#
+                        (#{id-var-name 4321}# #{id 9032}# #{w 8996}#))
+                      (#{id-mod 9035}#
+                        (if (if (vector? #{id 9032}#)
+                              (if (= (vector-length #{id 9032}#) 4)
+                                (eq? (vector-ref #{id 9032}# 0) 'syntax-object)
                                 #f)
                               #f)
-                          (vector-ref #{id 9064}# 3)
-                          #{mod 9030}#)))
-                  (let ((#{b 9068}#
-                          (let ((#{t 9755}# (assq #{n 9066}# #{r 9027}#)))
-                            (if #{t 9755}#
-                              (cdr #{t 9755}#)
-                              (if (symbol? #{n 9066}#)
-                                (let ((#{t 9760}#
+                          (vector-ref #{id 9032}# 3)
+                          #{mod 8998}#)))
+                  (let ((#{b 9036}#
+                          (let ((#{t 9698}# (assq #{n 9034}# #{r 8995}#)))
+                            (if #{t 9698}#
+                              (cdr #{t 9698}#)
+                              (if (symbol? #{n 9034}#)
+                                (let ((#{t 9703}#
                                         (begin
-                                          (if (if (not #{id-mod 9067}#)
+                                          (if (if (not #{id-mod 9035}#)
                                                 (current-module)
                                                 #f)
                                             (warn "module system is booted, we 
should have a module"
-                                                  #{n 9066}#))
-                                          (let ((#{v 9797}#
+                                                  #{n 9034}#))
+                                          (let ((#{v 9740}#
                                                   (module-variable
-                                                    (if #{id-mod 9067}#
+                                                    (if #{id-mod 9035}#
                                                       (resolve-module
-                                                        (cdr #{id-mod 9067}#))
+                                                        (cdr #{id-mod 9035}#))
                                                       (current-module))
-                                                    #{n 9066}#)))
-                                            (if #{v 9797}#
-                                              (if (variable-bound? #{v 9797}#)
-                                                (let ((#{val 9806}#
+                                                    #{n 9034}#)))
+                                            (if #{v 9740}#
+                                              (if (variable-bound? #{v 9740}#)
+                                                (let ((#{val 9749}#
                                                         (variable-ref
-                                                          #{v 9797}#)))
-                                                  (if (macro? #{val 9806}#)
+                                                          #{v 9740}#)))
+                                                  (if (macro? #{val 9749}#)
                                                     (if (macro-type
-                                                          #{val 9806}#)
+                                                          #{val 9749}#)
                                                       (cons (macro-type
-                                                              #{val 9806}#)
+                                                              #{val 9749}#)
                                                             (macro-binding
-                                                              #{val 9806}#))
+                                                              #{val 9749}#))
                                                       #f)
                                                     #f))
                                                 #f)
                                               #f)))))
-                                  (if #{t 9760}# #{t 9760}# '(global)))
+                                  (if #{t 9703}# #{t 9703}# '(global)))
                                 '(displaced-lexical))))))
-                    (let ((#{atom-key 9069}# (car #{b 9068}#)))
-                      (if (let ((#{t 9106}# #{atom-key 9069}#))
-                            (eqv? #{t 9106}# 'lexical))
-                        (#{build-lexical-assignment 4272}#
-                          #{s 9029}#
-                          (syntax->datum #{id 9064}#)
-                          (cdr #{b 9068}#)
-                          (#{expand 4333}#
-                            #{val 9065}#
-                            #{r 9027}#
-                            #{w 9028}#
-                            #{mod 9030}#))
-                        (if (let ((#{t 9391}# #{atom-key 9069}#))
-                              (eqv? #{t 9391}# 'global))
-                          (#{build-global-assignment 4275}#
-                            #{s 9029}#
-                            #{n 9066}#
-                            (#{expand 4333}#
-                              #{val 9065}#
-                              #{r 9027}#
-                              #{w 9028}#
-                              #{mod 9030}#)
-                            #{id-mod 9067}#)
-                          (if (let ((#{t 9646}# #{atom-key 9069}#))
-                                (eqv? #{t 9646}# 'macro))
-                            (let ((#{p 9709}# (cdr #{b 9068}#)))
+                    (let ((#{atom-key 9037}# (car #{b 9036}#)))
+                      (if (let ((#{t 9069}# #{atom-key 9037}#))
+                            (eqv? #{t 9069}# 'lexical))
+                        (#{build-lexical-assignment 4273}#
+                          #{s 8997}#
+                          (syntax->datum #{id 9032}#)
+                          (cdr #{b 9036}#)
+                          (#{expand 4334}#
+                            #{val 9033}#
+                            #{r 8995}#
+                            #{w 8996}#
+                            #{mod 8998}#))
+                        (if (let ((#{t 9344}# #{atom-key 9037}#))
+                              (eqv? #{t 9344}# 'global))
+                          (#{build-global-assignment 4276}#
+                            #{s 8997}#
+                            #{n 9034}#
+                            (#{expand 4334}#
+                              #{val 9033}#
+                              #{r 8995}#
+                              #{w 8996}#
+                              #{mod 8998}#)
+                            #{id-mod 9035}#)
+                          (if (let ((#{t 9589}# #{atom-key 9037}#))
+                                (eqv? #{t 9589}# 'macro))
+                            (let ((#{p 9652}# (cdr #{b 9036}#)))
                               (if (procedure-property
-                                    #{p 9709}#
+                                    #{p 9652}#
                                     'variable-transformer)
-                                (#{expand 4333}#
-                                  (#{expand-macro 4336}#
-                                    #{p 9709}#
-                                    #{e 9026}#
-                                    #{r 9027}#
-                                    #{w 9028}#
-                                    #{s 9029}#
+                                (#{expand 4334}#
+                                  (#{expand-macro 4337}#
+                                    #{p 9652}#
+                                    #{e 8994}#
+                                    #{r 8995}#
+                                    #{w 8996}#
+                                    #{s 8997}#
+                                    #f
+                                    #{mod 8998}#)
+                                  #{r 8995}#
+                                  '(())
+                                  #{mod 8998}#)
+                                (syntax-violation
+                                  'set!
+                                  "not a variable transformer"
+                                  (#{wrap 4327}#
+                                    #{e 8994}#
+                                    #{w 8996}#
+                                    #{mod 8998}#)
+                                  (#{wrap 4327}#
+                                    #{id 9032}#
+                                    #{w 8996}#
+                                    #{id-mod 9035}#))))
+                            (if (eqv? #{atom-key 9037}# 'displaced-lexical)
+                              (syntax-violation
+                                'set!
+                                "identifier out of context"
+                                (#{wrap 4327}#
+                                  #{id 9032}#
+                                  #{w 8996}#
+                                  #{mod 8998}#))
+                              (syntax-violation
+                                'set!
+                                "bad set!"
+                                (#{wrap 4327}#
+                                  (begin
+                                    (if (if (pair? #{e 8994}#) #{s 8997}# #f)
+                                      (set-source-properties!
+                                        #{e 8994}#
+                                        #{s 8997}#))
+                                    #{e 8994}#)
+                                  #{w 8996}#
+                                  #{mod 8998}#))))))))))
+              #{tmp 9000}#)
+            (let ((#{tmp 9845}#
+                    ($sc-dispatch
+                      #{e 8994}#
+                      '(_ (any . each-any) any))))
+              (if #{tmp 9845}#
+                (@apply
+                  (lambda (#{head 9849}# #{tail 9850}# #{val 9851}#)
+                    (call-with-values
+                      (lambda ()
+                        (#{syntax-type 4333}#
+                          #{head 9849}#
+                          #{r 8995}#
+                          '(())
+                          #f
+                          #f
+                          #{mod 8998}#
+                          #t))
+                      (lambda (#{type 9854}#
+                               #{value 9855}#
+                               #{ee 9856}#
+                               #{ww 9857}#
+                               #{ss 9858}#
+                               #{modmod 9859}#)
+                        (if (eqv? #{type 9854}# 'module-ref)
+                          (let ((#{val 9863}#
+                                  (#{expand 4334}#
+                                    #{val 9851}#
+                                    #{r 8995}#
+                                    #{w 8996}#
+                                    #{mod 8998}#)))
+                            (call-with-values
+                              (lambda ()
+                                (#{value 9855}#
+                                  (cons #{head 9849}# #{tail 9850}#)
+                                  #{r 8995}#
+                                  #{w 8996}#))
+                              (lambda (#{e 9864}#
+                                       #{r 9865}#
+                                       #{w 9866}#
+                                       #{s* 9867}#
+                                       #{mod 9868}#)
+                                (let ((#{tmp 9870}# (list #{e 9864}#)))
+                                  (if (@apply
+                                        (lambda (#{e 9872}#)
+                                          (if (symbol? #{e 9872}#)
+                                            #t
+                                            (if (if (vector? #{e 9872}#)
+                                                  (if (= (vector-length
+                                                           #{e 9872}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{e 9872}#
+                                                           0)
+                                                         'syntax-object)
+                                                    #f)
+                                                  #f)
+                                              (symbol?
+                                                (vector-ref #{e 9872}# 1))
+                                              #f)))
+                                        #{tmp 9870}#)
+                                    (@apply
+                                      (lambda (#{e 9902}#)
+                                        (#{build-global-assignment 4276}#
+                                          #{s 8997}#
+                                          (syntax->datum #{e 9902}#)
+                                          #{val 9863}#
+                                          #{mod 9868}#))
+                                      #{tmp 9870}#)
+                                    (syntax-violation
+                                      #f
+                                      "source expression failed to match any 
pattern"
+                                      #{e 9864}#))))))
+                          (#{build-application 4269}#
+                            #{s 8997}#
+                            (let ((#{e 10127}#
+                                    (list '#(syntax-object
+                                             setter
+                                             ((top)
+                                              #(ribcage () () ())
+                                              #(ribcage () () ())
+                                              #(ribcage
+                                                #(type value ee ww ss modmod)
+                                                #((top)
+                                                  (top)
+                                                  (top)
+                                                  (top)
+                                                  (top)
+                                                  (top))
+                                                #("i3544"
+                                                  "i3545"
+                                                  "i3546"
+                                                  "i3547"
+                                                  "i3548"
+                                                  "i3549"))
+                                              #(ribcage
+                                                #(head tail val)
+                                                #((top) (top) (top))
+                                                #("i3530" "i3531" "i3532"))
+                                              #(ribcage () () ())
+                                              #(ribcage
+                                                #(e r w s mod)
+                                                #((top)
+                                                  (top)
+                                                  (top)
+                                                  (top)
+                                                  (top))
+                                                #("i3494"
+                                                  "i3495"
+                                                  "i3496"
+                                                  "i3497"
+                                                  "i3498"))
+                                              #(ribcage
+                                                (lambda-var-list
+                                                  gen-var
+                                                  strip
+                                                  expand-lambda-case
+                                                  lambda*-formals
+                                                  expand-simple-lambda
+                                                  lambda-formals
+                                                  ellipsis?
+                                                  expand-void
+                                                  eval-local-transformer
+                                                  expand-local-syntax
+                                                  expand-body
+                                                  expand-macro
+                                                  expand-application
+                                                  expand-expr
+                                                  expand
+                                                  syntax-type
+                                                  parse-when-list
+                                                  expand-install-global
+                                                  expand-top-sequence
+                                                  expand-sequence
+                                                  source-wrap
+                                                  wrap
+                                                  bound-id-member?
+                                                  distinct-bound-ids?
+                                                  valid-bound-ids?
+                                                  bound-id=?
+                                                  free-id=?
+                                                  id-var-name
+                                                  same-marks?
+                                                  join-marks
+                                                  join-wraps
+                                                  smart-append
+                                                  make-binding-wrap
+                                                  extend-ribcage!
+                                                  make-empty-ribcage
+                                                  new-mark
+                                                  anti-mark
+                                                  the-anti-mark
+                                                  top-marked?
+                                                  top-wrap
+                                                  empty-wrap
+                                                  set-ribcage-labels!
+                                                  set-ribcage-marks!
+                                                  set-ribcage-symnames!
+                                                  ribcage-labels
+                                                  ribcage-marks
+                                                  ribcage-symnames
+                                                  ribcage?
+                                                  make-ribcage
+                                                  gen-labels
+                                                  gen-label
+                                                  make-rename
+                                                  rename-marks
+                                                  rename-new
+                                                  rename-old
+                                                  subst-rename?
+                                                  wrap-subst
+                                                  wrap-marks
+                                                  make-wrap
+                                                  id-sym-name&marks
+                                                  id-sym-name
+                                                  id?
+                                                  nonsymbol-id?
+                                                  global-extend
+                                                  lookup
+                                                  macros-only-env
+                                                  extend-var-env
+                                                  extend-env
+                                                  null-env
+                                                  binding-value
+                                                  binding-type
+                                                  make-binding
+                                                  arg-check
+                                                  source-annotation
+                                                  no-source
+                                                  set-syntax-object-module!
+                                                  set-syntax-object-wrap!
+                                                  set-syntax-object-expression!
+                                                  syntax-object-module
+                                                  syntax-object-wrap
+                                                  syntax-object-expression
+                                                  syntax-object?
+                                                  make-syntax-object
+                                                  build-lexical-var
+                                                  build-letrec
+                                                  build-named-let
+                                                  build-let
+                                                  build-sequence
+                                                  build-data
+                                                  build-primref
+                                                  build-lambda-case
+                                                  build-case-lambda
+                                                  build-simple-lambda
+                                                  build-global-definition
+                                                  build-global-assignment
+                                                  build-global-reference
+                                                  analyze-variable
+                                                  build-lexical-assignment
+                                                  build-lexical-reference
+                                                  build-dynlet
+                                                  build-conditional
+                                                  build-application
+                                                  build-void
+                                                  maybe-name-value!
+                                                  decorate-source
+                                                  get-global-definition-hook
+                                                  put-global-definition-hook
+                                                  gensym-hook
+                                                  local-eval-hook
+                                                  top-level-eval-hook
+                                                  fx<
+                                                  fx=
+                                                  fx-
+                                                  fx+
+                                                  set-lambda-meta!
+                                                  lambda-meta
+                                                  lambda?
+                                                  make-dynlet
+                                                  make-letrec
+                                                  make-let
+                                                  make-lambda-case
+                                                  make-lambda
+                                                  make-sequence
+                                                  make-application
+                                                  make-conditional
+                                                  make-toplevel-define
+                                                  make-toplevel-set
+                                                  make-toplevel-ref
+                                                  make-module-set
+                                                  make-module-ref
+                                                  make-lexical-set
+                                                  make-lexical-ref
+                                                  make-primitive-ref
+                                                  make-const
+                                                  make-void)
+                                                ((top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top)
+                                                 (top))
+                                                ("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"
+                                                 "i401"
+                                                 "i399"
+                                                 "i398"
+                                                 "i396"
+                                                 "i393"
+                                                 "i392"
+                                                 "i391"
+                                                 "i389"
+                                                 "i388"
+                                                 "i386"
+                                                 "i384"
+                                                 "i382"
+                                                 "i380"
+                                                 "i378"
+                                                 "i376"
+                                                 "i374"
+                                                 "i372"
+                                                 "i369"
+                                                 "i367"
+                                                 "i366"
+                                                 "i364"
+                                                 "i362"
+                                                 "i360"
+                                                 "i358"
+                                                 "i357"
+                                                 "i356"
+                                                 "i355"
+                                                 "i353"
+                                                 "i352"
+                                                 "i349"
+                                                 "i347"
+                                                 "i345"
+                                                 "i343"
+                                                 "i341"
+                                                 "i339"
+                                                 "i337"
+                                                 "i336"
+                                                 "i335"
+                                                 "i333"
+                                                 "i331"
+                                                 "i330"
+                                                 "i327"
+                                                 "i326"
+                                                 "i324"
+                                                 "i322"
+                                                 "i320"
+                                                 "i318"
+                                                 "i316"
+                                                 "i314"
+                                                 "i312"
+                                                 "i310"
+                                                 "i308"
+                                                 "i305"
+                                                 "i303"
+                                                 "i301"
+                                                 "i299"
+                                                 "i297"
+                                                 "i295"
+                                                 "i293"
+                                                 "i291"
+                                                 "i289"
+                                                 "i287"
+                                                 "i285"
+                                                 "i283"
+                                                 "i281"
+                                                 "i279"
+                                                 "i277"
+                                                 "i275"
+                                                 "i273"
+                                                 "i271"
+                                                 "i269"
+                                                 "i267"
+                                                 "i265"
+                                                 "i263"
+                                                 "i261"
+                                                 "i260"
+                                                 "i257"
+                                                 "i255"
+                                                 "i254"
+                                                 "i253"
+                                                 "i252"
+                                                 "i251"
+                                                 "i249"
+                                                 "i247"
+                                                 "i245"
+                                                 "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))
+                                          #{head 9849}#)))
+                              (call-with-values
+                                (lambda ()
+                                  (#{syntax-type 4333}#
+                                    #{e 10127}#
+                                    #{r 8995}#
+                                    #{w 8996}#
+                                    (#{source-annotation 4295}# #{e 10127}#)
                                     #f
-                                    #{mod 9030}#)
-                                  #{r 9027}#
-                                  '(())
-                                  #{mod 9030}#)
-                                (syntax-violation
-                                  'set!
-                                  "not a variable transformer"
-                                  (#{wrap 4326}#
-                                    #{e 9026}#
-                                    #{w 9028}#
-                                    #{mod 9030}#)
-                                  (#{wrap 4326}#
-                                    #{id 9064}#
-                                    #{w 9028}#
-                                    #{id-mod 9067}#))))
-                            (if (eqv? #{atom-key 9069}# 'displaced-lexical)
-                              (syntax-violation
-                                'set!
-                                "identifier out of context"
-                                (#{wrap 4326}#
-                                  #{id 9064}#
-                                  #{w 9028}#
-                                  #{mod 9030}#))
-                              (syntax-violation
-                                'set!
-                                "bad set!"
-                                (#{wrap 4326}#
-                                  (begin
-                                    (if (if (pair? #{e 9026}#) #{s 9029}# #f)
-                                      (set-source-properties!
-                                        #{e 9026}#
-                                        #{s 9029}#))
-                                    #{e 9026}#)
-                                  #{w 9028}#
-                                  #{mod 9030}#))))))))))
-              #{tmp 9032}#)
-            (let ((#{tmp 9907}#
-                    ($sc-dispatch
-                      #{e 9026}#
-                      '(_ (any . each-any) any))))
-              (if #{tmp 9907}#
-                (@apply
-                  (lambda (#{head 9911}# #{tail 9912}# #{val 9913}#)
-                    (call-with-values
-                      (lambda ()
-                        (#{syntax-type 4332}#
-                          #{head 9911}#
-                          #{r 9027}#
-                          '(())
-                          #f
-                          #f
-                          #{mod 9030}#
-                          #t))
-                      (lambda (#{type 9916}#
-                               #{value 9917}#
-                               #{ee 9918}#
-                               #{ww 9919}#
-                               #{ss 9920}#
-                               #{modmod 9921}#)
-                        (if (eqv? #{type 9916}# 'module-ref)
-                          (let ((#{val 9925}#
-                                  (#{expand 4333}#
-                                    #{val 9913}#
-                                    #{r 9027}#
-                                    #{w 9028}#
-                                    #{mod 9030}#)))
-                            (call-with-values
-                              (lambda ()
-                                (#{value 9917}#
-                                  (cons #{head 9911}# #{tail 9912}#)
-                                  #{r 9027}#
-                                  #{w 9028}#))
-                              (lambda (#{e 9926}#
-                                       #{r 9927}#
-                                       #{w 9928}#
-                                       #{s* 9929}#
-                                       #{mod 9930}#)
-                                (let ((#{tmp 9932}# (list #{e 9926}#)))
-                                  (if (@apply
-                                        (lambda (#{e 9934}#)
-                                          (if (symbol? #{e 9934}#)
-                                            #t
-                                            (if (if (vector? #{e 9934}#)
-                                                  (if (= (vector-length
-                                                           #{e 9934}#)
-                                                         4)
-                                                    (eq? (vector-ref
-                                                           #{e 9934}#
-                                                           0)
-                                                         'syntax-object)
-                                                    #f)
-                                                  #f)
-                                              (symbol?
-                                                (vector-ref #{e 9934}# 1))
-                                              #f)))
-                                        #{tmp 9932}#)
-                                    (@apply
-                                      (lambda (#{e 9964}#)
-                                        (#{build-global-assignment 4275}#
-                                          #{s 9029}#
-                                          (syntax->datum #{e 9964}#)
-                                          #{val 9925}#
-                                          #{mod 9930}#))
-                                      #{tmp 9932}#)
-                                    (syntax-violation
-                                      #f
-                                      "source expression failed to match any 
pattern"
-                                      #{e 9926}#))))))
-                          (#{build-application 4268}#
-                            #{s 9029}#
-                            (#{expand 4333}#
-                              (list '#(syntax-object
-                                       setter
-                                       ((top)
-                                        #(ribcage () () ())
-                                        #(ribcage () () ())
-                                        #(ribcage
-                                          #(type value ee ww ss modmod)
-                                          #((top)
-                                            (top)
-                                            (top)
-                                            (top)
-                                            (top)
-                                            (top))
-                                          #("i3543"
-                                            "i3544"
-                                            "i3545"
-                                            "i3546"
-                                            "i3547"
-                                            "i3548"))
-                                        #(ribcage
-                                          #(head tail val)
-                                          #((top) (top) (top))
-                                          #("i3529" "i3530" "i3531"))
-                                        #(ribcage () () ())
-                                        #(ribcage
-                                          #(e r w s mod)
-                                          #((top) (top) (top) (top) (top))
-                                          #("i3493"
-                                            "i3494"
-                                            "i3495"
-                                            "i3496"
-                                            "i3497"))
-                                        #(ribcage
-                                          (lambda-var-list
-                                            gen-var
-                                            strip
-                                            expand-lambda-case
-                                            lambda*-formals
-                                            expand-simple-lambda
-                                            lambda-formals
-                                            ellipsis?
-                                            expand-void
-                                            eval-local-transformer
-                                            expand-local-syntax
-                                            expand-body
-                                            expand-macro
-                                            expand-application
-                                            expand-expr
-                                            expand
-                                            syntax-type
-                                            parse-when-list
-                                            expand-install-global
-                                            expand-top-sequence
-                                            expand-sequence
-                                            source-wrap
-                                            wrap
-                                            bound-id-member?
-                                            distinct-bound-ids?
-                                            valid-bound-ids?
-                                            bound-id=?
-                                            free-id=?
-                                            id-var-name
-                                            same-marks?
-                                            join-marks
-                                            join-wraps
-                                            smart-append
-                                            make-binding-wrap
-                                            extend-ribcage!
-                                            make-empty-ribcage
-                                            new-mark
-                                            anti-mark
-                                            the-anti-mark
-                                            top-marked?
-                                            top-wrap
-                                            empty-wrap
-                                            set-ribcage-labels!
-                                            set-ribcage-marks!
-                                            set-ribcage-symnames!
-                                            ribcage-labels
-                                            ribcage-marks
-                                            ribcage-symnames
-                                            ribcage?
-                                            make-ribcage
-                                            gen-labels
-                                            gen-label
-                                            make-rename
-                                            rename-marks
-                                            rename-new
-                                            rename-old
-                                            subst-rename?
-                                            wrap-subst
-                                            wrap-marks
-                                            make-wrap
-                                            id-sym-name&marks
-                                            id-sym-name
-                                            id?
-                                            nonsymbol-id?
-                                            global-extend
-                                            lookup
-                                            macros-only-env
-                                            extend-var-env
-                                            extend-env
-                                            null-env
-                                            binding-value
-                                            binding-type
-                                            make-binding
-                                            arg-check
-                                            source-annotation
-                                            no-source
-                                            set-syntax-object-module!
-                                            set-syntax-object-wrap!
-                                            set-syntax-object-expression!
-                                            syntax-object-module
-                                            syntax-object-wrap
-                                            syntax-object-expression
-                                            syntax-object?
-                                            make-syntax-object
-                                            build-lexical-var
-                                            build-letrec
-                                            build-named-let
-                                            build-let
-                                            build-sequence
-                                            build-data
-                                            build-primref
-                                            build-lambda-case
-                                            build-case-lambda
-                                            build-simple-lambda
-                                            build-global-definition
-                                            build-global-assignment
-                                            build-global-reference
-                                            analyze-variable
-                                            build-lexical-assignment
-                                            build-lexical-reference
-                                            build-dynlet
-                                            build-conditional
-                                            build-application
-                                            build-void
-                                            maybe-name-value!
-                                            decorate-source
-                                            get-global-definition-hook
-                                            put-global-definition-hook
-                                            gensym-hook
-                                            local-eval-hook
-                                            top-level-eval-hook
-                                            fx<
-                                            fx=
-                                            fx-
-                                            fx+
-                                            set-lambda-meta!
-                                            lambda-meta
-                                            lambda?
-                                            make-dynlet
-                                            make-letrec
-                                            make-let
-                                            make-lambda-case
-                                            make-lambda
-                                            make-sequence
-                                            make-application
-                                            make-conditional
-                                            make-toplevel-define
-                                            make-toplevel-set
-                                            make-toplevel-ref
-                                            make-module-set
-                                            make-module-ref
-                                            make-lexical-set
-                                            make-lexical-ref
-                                            make-primitive-ref
-                                            make-const
-                                            make-void)
-                                          ((top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top)
-                                           (top))
-                                          ("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"
-                                           "i401"
-                                           "i399"
-                                           "i398"
-                                           "i396"
-                                           "i393"
-                                           "i392"
-                                           "i391"
-                                           "i389"
-                                           "i388"
-                                           "i386"
-                                           "i384"
-                                           "i382"
-                                           "i380"
-                                           "i378"
-                                           "i376"
-                                           "i374"
-                                           "i372"
-                                           "i369"
-                                           "i367"
-                                           "i366"
-                                           "i364"
-                                           "i362"
-                                           "i360"
-                                           "i358"
-                                           "i357"
-                                           "i356"
-                                           "i355"
-                                           "i353"
-                                           "i352"
-                                           "i349"
-                                           "i347"
-                                           "i345"
-                                           "i343"
-                                           "i341"
-                                           "i339"
-                                           "i337"
-                                           "i336"
-                                           "i335"
-                                           "i333"
-                                           "i331"
-                                           "i330"
-                                           "i327"
-                                           "i326"
-                                           "i324"
-                                           "i322"
-                                           "i320"
-                                           "i318"
-                                           "i316"
-                                           "i314"
-                                           "i312"
-                                           "i310"
-                                           "i308"
-                                           "i305"
-                                           "i303"
-                                           "i301"
-                                           "i299"
-                                           "i297"
-                                           "i295"
-                                           "i293"
-                                           "i291"
-                                           "i289"
-                                           "i287"
-                                           "i285"
-                                           "i283"
-                                           "i281"
-                                           "i279"
-                                           "i277"
-                                           "i275"
-                                           "i273"
-                                           "i271"
-                                           "i269"
-                                           "i267"
-                                           "i265"
-                                           "i263"
-                                           "i261"
-                                           "i260"
-                                           "i257"
-                                           "i255"
-                                           "i254"
-                                           "i253"
-                                           "i252"
-                                           "i251"
-                                           "i249"
-                                           "i247"
-                                           "i245"
-                                           "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))
-                                    #{head 9911}#)
-                              #{r 9027}#
-                              #{w 9028}#
-                              #{mod 9030}#)
-                            (map (lambda (#{e 10265}#)
-                                   (#{expand 4333}#
-                                     #{e 10265}#
-                                     #{r 9027}#
-                                     #{w 9028}#
-                                     #{mod 9030}#))
+                                    #{mod 8998}#
+                                    #f))
+                                (lambda (#{type 10134}#
+                                         #{value 10135}#
+                                         #{e 10136}#
+                                         #{w 10137}#
+                                         #{s 10138}#
+                                         #{mod 10139}#)
+                                  (#{expand-expr 4335}#
+                                    #{type 10134}#
+                                    #{value 10135}#
+                                    #{e 10136}#
+                                    #{r 8995}#
+                                    #{w 10137}#
+                                    #{s 10138}#
+                                    #{mod 10139}#))))
+                            (map (lambda (#{e 10143}#)
+                                   (call-with-values
+                                     (lambda ()
+                                       (#{syntax-type 4333}#
+                                         #{e 10143}#
+                                         #{r 8995}#
+                                         #{w 8996}#
+                                         (#{source-annotation 4295}#
+                                           #{e 10143}#)
+                                         #f
+                                         #{mod 8998}#
+                                         #f))
+                                     (lambda (#{type 10158}#
+                                              #{value 10159}#
+                                              #{e 10160}#
+                                              #{w 10161}#
+                                              #{s 10162}#
+                                              #{mod 10163}#)
+                                       (#{expand-expr 4335}#
+                                         #{type 10158}#
+                                         #{value 10159}#
+                                         #{e 10160}#
+                                         #{r 8995}#
+                                         #{w 10161}#
+                                         #{s 10162}#
+                                         #{mod 10163}#))))
                                  (append
-                                   #{tail 9912}#
-                                   (list #{val 9913}#))))))))
-                  #{tmp 9907}#)
+                                   #{tail 9850}#
+                                   (list #{val 9851}#))))))))
+                  #{tmp 9845}#)
                 (syntax-violation
                   'set!
                   "bad set!"
-                  (#{wrap 4326}#
+                  (#{wrap 4327}#
                     (begin
-                      (if (if (pair? #{e 9026}#) #{s 9029}# #f)
-                        (set-source-properties! #{e 9026}# #{s 9029}#))
-                      #{e 9026}#)
-                    #{w 9028}#
-                    #{mod 9030}#))))))))
+                      (if (if (pair? #{e 8994}#) #{s 8997}# #f)
+                        (set-source-properties! #{e 8994}# #{s 8997}#))
+                      #{e 8994}#)
+                    #{w 8996}#
+                    #{mod 8998}#))))))))
     (module-define!
       (current-module)
       '@
       (make-syntax-transformer
         '@
         'module-ref
-        (lambda (#{e 10379}# #{r 10380}# #{w 10381}#)
-          (let ((#{tmp 10383}#
-                  ($sc-dispatch #{e 10379}# '(_ each-any any))))
-            (if (if #{tmp 10383}#
+        (lambda (#{e 10206}# #{r 10207}# #{w 10208}#)
+          (let ((#{tmp 10210}#
+                  ($sc-dispatch #{e 10206}# '(_ each-any any))))
+            (if (if #{tmp 10210}#
                   (@apply
-                    (lambda (#{mod 10386}# #{id 10387}#)
-                      (if (and-map #{id? 4301}# #{mod 10386}#)
-                        (if (symbol? #{id 10387}#)
+                    (lambda (#{mod 10213}# #{id 10214}#)
+                      (if (and-map #{id? 4302}# #{mod 10213}#)
+                        (if (symbol? #{id 10214}#)
                           #t
-                          (if (if (vector? #{id 10387}#)
-                                (if (= (vector-length #{id 10387}#) 4)
-                                  (eq? (vector-ref #{id 10387}# 0)
+                          (if (if (vector? #{id 10214}#)
+                                (if (= (vector-length #{id 10214}#) 4)
+                                  (eq? (vector-ref #{id 10214}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{id 10387}# 1))
+                            (symbol? (vector-ref #{id 10214}# 1))
                             #f))
                         #f))
-                    #{tmp 10383}#)
+                    #{tmp 10210}#)
                   #f)
               (@apply
-                (lambda (#{mod 10427}# #{id 10428}#)
+                (lambda (#{mod 10254}# #{id 10255}#)
                   (values
-                    (syntax->datum #{id 10428}#)
-                    #{r 10380}#
-                    #{w 10381}#
+                    (syntax->datum #{id 10255}#)
+                    #{r 10207}#
+                    #{w 10208}#
                     #f
                     (syntax->datum
                       (cons '#(syntax-object
@@ -9804,12 +9961,12 @@
                                 #(ribcage
                                   #(mod id)
                                   #((top) (top))
-                                  #("i3590" "i3591"))
+                                  #("i3591" "i3592"))
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(e r w)
                                   #((top) (top) (top))
-                                  #("i3578" "i3579" "i3580"))
+                                  #("i3579" "i3580" "i3581"))
                                 #(ribcage
                                   (lambda-var-list
                                     gen-var
@@ -10226,70 +10383,70 @@
                                   ((top) (top) (top))
                                   ("i46" "i45" "i44")))
                                (hygiene guile))
-                            #{mod 10427}#))))
-                #{tmp 10383}#)
+                            #{mod 10254}#))))
+                #{tmp 10210}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{e 10379}#))))))
-    (#{global-extend 4299}#
+                #{e 10206}#))))))
+    (#{global-extend 4300}#
       'module-ref
       '@@
-      (lambda (#{e 10525}# #{r 10526}# #{w 10527}#)
+      (lambda (#{e 10347}# #{r 10348}# #{w 10349}#)
         (letrec*
-          ((#{remodulate 10528}#
-             (lambda (#{x 10734}# #{mod 10735}#)
-               (if (pair? #{x 10734}#)
-                 (cons (#{remodulate 10528}#
-                         (car #{x 10734}#)
-                         #{mod 10735}#)
-                       (#{remodulate 10528}#
-                         (cdr #{x 10734}#)
-                         #{mod 10735}#))
-                 (if (if (vector? #{x 10734}#)
-                       (if (= (vector-length #{x 10734}#) 4)
-                         (eq? (vector-ref #{x 10734}# 0) 'syntax-object)
+          ((#{remodulate 10350}#
+             (lambda (#{x 10385}# #{mod 10386}#)
+               (if (pair? #{x 10385}#)
+                 (cons (#{remodulate 10350}#
+                         (car #{x 10385}#)
+                         #{mod 10386}#)
+                       (#{remodulate 10350}#
+                         (cdr #{x 10385}#)
+                         #{mod 10386}#))
+                 (if (if (vector? #{x 10385}#)
+                       (if (= (vector-length #{x 10385}#) 4)
+                         (eq? (vector-ref #{x 10385}# 0) 'syntax-object)
                          #f)
                        #f)
-                   (let ((#{expression 10749}#
-                           (#{remodulate 10528}#
-                             (vector-ref #{x 10734}# 1)
-                             #{mod 10735}#))
-                         (#{wrap 10750}# (vector-ref #{x 10734}# 2)))
+                   (let ((#{expression 10400}#
+                           (#{remodulate 10350}#
+                             (vector-ref #{x 10385}# 1)
+                             #{mod 10386}#))
+                         (#{wrap 10401}# (vector-ref #{x 10385}# 2)))
                      (vector
                        'syntax-object
-                       #{expression 10749}#
-                       #{wrap 10750}#
-                       #{mod 10735}#))
-                   (if (vector? #{x 10734}#)
-                     (let ((#{n 10758}# (vector-length #{x 10734}#)))
-                       (let ((#{v 10759}# (make-vector #{n 10758}#)))
+                       #{expression 10400}#
+                       #{wrap 10401}#
+                       #{mod 10386}#))
+                   (if (vector? #{x 10385}#)
+                     (let ((#{n 10409}# (vector-length #{x 10385}#)))
+                       (let ((#{v 10410}# (make-vector #{n 10409}#)))
                          (letrec*
-                           ((#{loop 10760}#
-                              (lambda (#{i 10807}#)
-                                (if (= #{i 10807}# #{n 10758}#)
-                                  #{v 10759}#
+                           ((#{loop 10411}#
+                              (lambda (#{i 10458}#)
+                                (if (= #{i 10458}# #{n 10409}#)
+                                  #{v 10410}#
                                   (begin
                                     (vector-set!
-                                      #{v 10759}#
-                                      #{i 10807}#
-                                      (#{remodulate 10528}#
-                                        (vector-ref #{x 10734}# #{i 10807}#)
-                                        #{mod 10735}#))
-                                    (#{loop 10760}# (#{1+}# #{i 10807}#)))))))
-                           (#{loop 10760}# 0))))
-                     #{x 10734}#))))))
-          (let ((#{tmp 10530}#
-                  ($sc-dispatch #{e 10525}# '(_ each-any any))))
-            (if (if #{tmp 10530}#
+                                      #{v 10410}#
+                                      #{i 10458}#
+                                      (#{remodulate 10350}#
+                                        (vector-ref #{x 10385}# #{i 10458}#)
+                                        #{mod 10386}#))
+                                    (#{loop 10411}# (#{1+}# #{i 10458}#)))))))
+                           (#{loop 10411}# 0))))
+                     #{x 10385}#))))))
+          (let ((#{tmp 10352}#
+                  ($sc-dispatch #{e 10347}# '(_ each-any any))))
+            (if (if #{tmp 10352}#
                   (@apply
-                    (lambda (#{mod 10534}# #{exp 10535}#)
-                      (and-map #{id? 4301}# #{mod 10534}#))
-                    #{tmp 10530}#)
+                    (lambda (#{mod 10356}# #{exp 10357}#)
+                      (and-map #{id? 4302}# #{mod 10356}#))
+                    #{tmp 10352}#)
                   #f)
               (@apply
-                (lambda (#{mod 10551}# #{exp 10552}#)
-                  (let ((#{mod 10553}#
+                (lambda (#{mod 10373}# #{exp 10374}#)
+                  (let ((#{mod 10375}#
                           (syntax->datum
                             (cons '#(syntax-object
                                      private
@@ -10297,12 +10454,12 @@
                                       #(ribcage
                                         #(mod exp)
                                         #((top) (top))
-                                        #("i3634" "i3635"))
-                                      #(ribcage (remodulate) ((top)) ("i3601"))
+                                        #("i3635" "i3636"))
+                                      #(ribcage (remodulate) ((top)) ("i3602"))
                                       #(ribcage
                                         #(e r w)
                                         #((top) (top) (top))
-                                        #("i3598" "i3599" "i3600"))
+                                        #("i3599" "i3600" "i3601"))
                                       #(ribcage
                                         (lambda-var-list
                                           gen-var
@@ -10719,127 +10876,127 @@
                                         ((top) (top) (top))
                                         ("i46" "i45" "i44")))
                                      (hygiene guile))
-                                  #{mod 10551}#))))
+                                  #{mod 10373}#))))
                     (values
-                      (#{remodulate 10528}#
-                        #{exp 10552}#
-                        #{mod 10553}#)
-                      #{r 10526}#
-                      #{w 10527}#
-                      (#{source-annotation 4294}# #{exp 10552}#)
-                      #{mod 10553}#)))
-                #{tmp 10530}#)
+                      (#{remodulate 10350}#
+                        #{exp 10374}#
+                        #{mod 10375}#)
+                      #{r 10348}#
+                      #{w 10349}#
+                      (#{source-annotation 4295}# #{exp 10374}#)
+                      #{mod 10375}#)))
+                #{tmp 10352}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{e 10525}#))))))
-    (#{global-extend 4299}#
+                #{e 10347}#))))))
+    (#{global-extend 4300}#
       'core
       'if
-      (lambda (#{e 10913}#
-               #{r 10914}#
-               #{w 10915}#
-               #{s 10916}#
-               #{mod 10917}#)
-        (let ((#{tmp 10919}#
-                ($sc-dispatch #{e 10913}# '(_ any any))))
-          (if #{tmp 10919}#
+      (lambda (#{e 10559}#
+               #{r 10560}#
+               #{w 10561}#
+               #{s 10562}#
+               #{mod 10563}#)
+        (let ((#{tmp 10565}#
+                ($sc-dispatch #{e 10559}# '(_ any any))))
+          (if #{tmp 10565}#
             (@apply
-              (lambda (#{test 10923}# #{then 10924}#)
-                (#{build-conditional 4269}#
-                  #{s 10916}#
-                  (#{expand 4333}#
-                    #{test 10923}#
-                    #{r 10914}#
-                    #{w 10915}#
-                    #{mod 10917}#)
-                  (#{expand 4333}#
-                    #{then 10924}#
-                    #{r 10914}#
-                    #{w 10915}#
-                    #{mod 10917}#)
+              (lambda (#{test 10569}# #{then 10570}#)
+                (#{build-conditional 4270}#
+                  #{s 10562}#
+                  (#{expand 4334}#
+                    #{test 10569}#
+                    #{r 10560}#
+                    #{w 10561}#
+                    #{mod 10563}#)
+                  (#{expand 4334}#
+                    #{then 10570}#
+                    #{r 10560}#
+                    #{w 10561}#
+                    #{mod 10563}#)
                   (make-struct/no-tail
                     (vector-ref %expanded-vtables 0)
                     #f)))
-              #{tmp 10919}#)
-            (let ((#{tmp 11164}#
-                    ($sc-dispatch #{e 10913}# '(_ any any any))))
-              (if #{tmp 11164}#
+              #{tmp 10565}#)
+            (let ((#{tmp 10795}#
+                    ($sc-dispatch #{e 10559}# '(_ any any any))))
+              (if #{tmp 10795}#
                 (@apply
-                  (lambda (#{test 11168}# #{then 11169}# #{else 11170}#)
-                    (#{build-conditional 4269}#
-                      #{s 10916}#
-                      (#{expand 4333}#
-                        #{test 11168}#
-                        #{r 10914}#
-                        #{w 10915}#
-                        #{mod 10917}#)
-                      (#{expand 4333}#
-                        #{then 11169}#
-                        #{r 10914}#
-                        #{w 10915}#
-                        #{mod 10917}#)
-                      (#{expand 4333}#
-                        #{else 11170}#
-                        #{r 10914}#
-                        #{w 10915}#
-                        #{mod 10917}#)))
-                  #{tmp 11164}#)
+                  (lambda (#{test 10799}# #{then 10800}# #{else 10801}#)
+                    (#{build-conditional 4270}#
+                      #{s 10562}#
+                      (#{expand 4334}#
+                        #{test 10799}#
+                        #{r 10560}#
+                        #{w 10561}#
+                        #{mod 10563}#)
+                      (#{expand 4334}#
+                        #{then 10800}#
+                        #{r 10560}#
+                        #{w 10561}#
+                        #{mod 10563}#)
+                      (#{expand 4334}#
+                        #{else 10801}#
+                        #{r 10560}#
+                        #{w 10561}#
+                        #{mod 10563}#)))
+                  #{tmp 10795}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{e 10913}#)))))))
-    (#{global-extend 4299}#
+                  #{e 10559}#)))))))
+    (#{global-extend 4300}#
       'core
       'with-fluids
-      (lambda (#{e 11594}#
-               #{r 11595}#
-               #{w 11596}#
-               #{s 11597}#
-               #{mod 11598}#)
-        (let ((#{tmp 11600}#
+      (lambda (#{e 11200}#
+               #{r 11201}#
+               #{w 11202}#
+               #{s 11203}#
+               #{mod 11204}#)
+        (let ((#{tmp 11206}#
                 ($sc-dispatch
-                  #{e 11594}#
+                  #{e 11200}#
                   '(_ #(each (any any)) any . each-any))))
-          (if #{tmp 11600}#
+          (if #{tmp 11206}#
             (@apply
-              (lambda (#{fluid 11604}#
-                       #{val 11605}#
-                       #{b 11606}#
-                       #{b* 11607}#)
-                (#{build-dynlet 4270}#
-                  #{s 11597}#
-                  (map (lambda (#{x 11693}#)
-                         (#{expand 4333}#
-                           #{x 11693}#
-                           #{r 11595}#
-                           #{w 11596}#
-                           #{mod 11598}#))
-                       #{fluid 11604}#)
-                  (map (lambda (#{x 11768}#)
-                         (#{expand 4333}#
-                           #{x 11768}#
-                           #{r 11595}#
-                           #{w 11596}#
-                           #{mod 11598}#))
-                       #{val 11605}#)
-                  (#{expand-body 4337}#
-                    (cons #{b 11606}# #{b* 11607}#)
-                    (#{wrap 4326}#
+              (lambda (#{fluid 11210}#
+                       #{val 11211}#
+                       #{b 11212}#
+                       #{b* 11213}#)
+                (#{build-dynlet 4271}#
+                  #{s 11203}#
+                  (map (lambda (#{x 11294}#)
+                         (#{expand 4334}#
+                           #{x 11294}#
+                           #{r 11201}#
+                           #{w 11202}#
+                           #{mod 11204}#))
+                       #{fluid 11210}#)
+                  (map (lambda (#{x 11364}#)
+                         (#{expand 4334}#
+                           #{x 11364}#
+                           #{r 11201}#
+                           #{w 11202}#
+                           #{mod 11204}#))
+                       #{val 11211}#)
+                  (#{expand-body 4338}#
+                    (cons #{b 11212}# #{b* 11213}#)
+                    (#{wrap 4327}#
                       (begin
-                        (if (if (pair? #{e 11594}#) #{s 11597}# #f)
-                          (set-source-properties! #{e 11594}# #{s 11597}#))
-                        #{e 11594}#)
-                      #{w 11596}#
-                      #{mod 11598}#)
-                    #{r 11595}#
-                    #{w 11596}#
-                    #{mod 11598}#)))
-              #{tmp 11600}#)
+                        (if (if (pair? #{e 11200}#) #{s 11203}# #f)
+                          (set-source-properties! #{e 11200}# #{s 11203}#))
+                        #{e 11200}#)
+                      #{w 11202}#
+                      #{mod 11204}#)
+                    #{r 11201}#
+                    #{w 11202}#
+                    #{mod 11204}#)))
+              #{tmp 11206}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{e 11594}#)))))
+              #{e 11200}#)))))
     (module-define!
       (current-module)
       'begin
@@ -10862,75 +11019,75 @@
         'eval-when
         'eval-when
         '()))
-    (#{global-extend 4299}#
+    (#{global-extend 4300}#
       'core
       'syntax-case
       (letrec*
-        ((#{convert-pattern 12142}#
-           (lambda (#{pattern 13765}# #{keys 13766}#)
+        ((#{convert-pattern 11722}#
+           (lambda (#{pattern 13319}# #{keys 13320}#)
              (letrec*
-               ((#{cvt* 13767}#
-                  (lambda (#{p* 14393}# #{n 14394}# #{ids 14395}#)
-                    (if (not (pair? #{p* 14393}#))
-                      (#{cvt 13769}#
-                        #{p* 14393}#
-                        #{n 14394}#
-                        #{ids 14395}#)
+               ((#{cvt* 13321}#
+                  (lambda (#{p* 13945}# #{n 13946}# #{ids 13947}#)
+                    (if (not (pair? #{p* 13945}#))
+                      (#{cvt 13323}#
+                        #{p* 13945}#
+                        #{n 13946}#
+                        #{ids 13947}#)
                       (call-with-values
                         (lambda ()
-                          (#{cvt* 13767}#
-                            (cdr #{p* 14393}#)
-                            #{n 14394}#
-                            #{ids 14395}#))
-                        (lambda (#{y 14398}# #{ids 14399}#)
+                          (#{cvt* 13321}#
+                            (cdr #{p* 13945}#)
+                            #{n 13946}#
+                            #{ids 13947}#))
+                        (lambda (#{y 13950}# #{ids 13951}#)
                           (call-with-values
                             (lambda ()
-                              (#{cvt 13769}#
-                                (car #{p* 14393}#)
-                                #{n 14394}#
-                                #{ids 14399}#))
-                            (lambda (#{x 14402}# #{ids 14403}#)
+                              (#{cvt 13323}#
+                                (car #{p* 13945}#)
+                                #{n 13946}#
+                                #{ids 13951}#))
+                            (lambda (#{x 13954}# #{ids 13955}#)
                               (values
-                                (cons #{x 14402}# #{y 14398}#)
-                                #{ids 14403}#))))))))
-                (#{v-reverse 13768}#
-                  (lambda (#{x 14404}#)
+                                (cons #{x 13954}# #{y 13950}#)
+                                #{ids 13955}#))))))))
+                (#{v-reverse 13322}#
+                  (lambda (#{x 13956}#)
                     (letrec*
-                      ((#{loop 14405}#
-                         (lambda (#{r 14482}# #{x 14483}#)
-                           (if (not (pair? #{x 14483}#))
-                             (values #{r 14482}# #{x 14483}#)
-                             (#{loop 14405}#
-                               (cons (car #{x 14483}#) #{r 14482}#)
-                               (cdr #{x 14483}#))))))
-                      (#{loop 14405}# '() #{x 14404}#))))
-                (#{cvt 13769}#
-                  (lambda (#{p 13772}# #{n 13773}# #{ids 13774}#)
-                    (if (if (symbol? #{p 13772}#)
+                      ((#{loop 13957}#
+                         (lambda (#{r 14037}# #{x 14038}#)
+                           (if (not (pair? #{x 14038}#))
+                             (values #{r 14037}# #{x 14038}#)
+                             (#{loop 13957}#
+                               (cons (car #{x 14038}#) #{r 14037}#)
+                               (cdr #{x 14038}#))))))
+                      (#{loop 13957}# '() #{x 13956}#))))
+                (#{cvt 13323}#
+                  (lambda (#{p 13326}# #{n 13327}# #{ids 13328}#)
+                    (if (if (symbol? #{p 13326}#)
                           #t
-                          (if (if (vector? #{p 13772}#)
-                                (if (= (vector-length #{p 13772}#) 4)
-                                  (eq? (vector-ref #{p 13772}# 0)
+                          (if (if (vector? #{p 13326}#)
+                                (if (= (vector-length #{p 13326}#) 4)
+                                  (eq? (vector-ref #{p 13326}# 0)
                                        'syntax-object)
                                   #f)
                                 #f)
-                            (symbol? (vector-ref #{p 13772}# 1))
+                            (symbol? (vector-ref #{p 13326}# 1))
                             #f))
-                      (if (#{bound-id-member? 4325}#
-                            #{p 13772}#
-                            #{keys 13766}#)
+                      (if (#{bound-id-member? 4326}#
+                            #{p 13326}#
+                            #{keys 13320}#)
                         (values
-                          (vector 'free-id #{p 13772}#)
-                          #{ids 13774}#)
-                        (if (if (eq? (if (if (vector? #{p 13772}#)
-                                           (if (= (vector-length #{p 13772}#)
+                          (vector 'free-id #{p 13326}#)
+                          #{ids 13328}#)
+                        (if (if (eq? (if (if (vector? #{p 13326}#)
+                                           (if (= (vector-length #{p 13326}#)
                                                   4)
-                                             (eq? (vector-ref #{p 13772}# 0)
+                                             (eq? (vector-ref #{p 13326}# 0)
                                                   'syntax-object)
                                              #f)
                                            #f)
-                                       (vector-ref #{p 13772}# 1)
-                                       #{p 13772}#)
+                                       (vector-ref #{p 13326}# 1)
+                                       #{p 13326}#)
                                      (if (if (= (vector-length
                                                   '#(syntax-object
                                                      _
@@ -10939,19 +11096,19 @@
                                                       #(ribcage
                                                         #(p n ids)
                                                         #((top) (top) (top))
-                                                        #("i3735"
-                                                          "i3736"
-                                                          "i3737"))
+                                                        #("i3736"
+                                                          "i3737"
+                                                          "i3738"))
                                                       #(ribcage
                                                         (cvt v-reverse cvt*)
                                                         ((top) (top) (top))
-                                                        ("i3708"
-                                                         "i3706"
-                                                         "i3704"))
+                                                        ("i3709"
+                                                         "i3707"
+                                                         "i3705"))
                                                       #(ribcage
                                                         #(pattern keys)
                                                         #((top) (top))
-                                                        #("i3702" "i3703"))
+                                                        #("i3703" "i3704"))
                                                       #(ribcage
                                                         (gen-syntax-case
                                                           gen-clause
@@ -10961,10 +11118,10 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                        ("i3698"
-                                                         "i3696"
-                                                         "i3694"
-                                                         "i3692"))
+                                                        ("i3699"
+                                                         "i3697"
+                                                         "i3695"
+                                                         "i3693"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -11392,22 +11549,22 @@
                                            #(ribcage
                                              #(p n ids)
                                              #((top) (top) (top))
-                                             #("i3735" "i3736" "i3737"))
+                                             #("i3736" "i3737" "i3738"))
                                            #(ribcage
                                              (cvt v-reverse cvt*)
                                              ((top) (top) (top))
-                                             ("i3708" "i3706" "i3704"))
+                                             ("i3709" "i3707" "i3705"))
                                            #(ribcage
                                              #(pattern keys)
                                              #((top) (top))
-                                             #("i3702" "i3703"))
+                                             #("i3703" "i3704"))
                                            #(ribcage
                                              (gen-syntax-case
                                                gen-clause
                                                build-dispatch-call
                                                convert-pattern)
                                              ((top) (top) (top) (top))
-                                             ("i3698" "i3696" "i3694" "i3692"))
+                                             ("i3699" "i3697" "i3695" "i3693"))
                                            #(ribcage
                                              (lambda-var-list
                                                gen-var
@@ -11824,8 +11981,8 @@
                                              ((top) (top) (top))
                                              ("i46" "i45" "i44")))
                                           (hygiene guile))))
-                              (eq? (#{id-var-name 4320}# #{p 13772}# '(()))
-                                   (#{id-var-name 4320}#
+                              (eq? (#{id-var-name 4321}# #{p 13326}# '(()))
+                                   (#{id-var-name 4321}#
                                      '#(syntax-object
                                         _
                                         ((top)
@@ -11833,22 +11990,22 @@
                                          #(ribcage
                                            #(p n ids)
                                            #((top) (top) (top))
-                                           #("i3735" "i3736" "i3737"))
+                                           #("i3736" "i3737" "i3738"))
                                          #(ribcage
                                            (cvt v-reverse cvt*)
                                            ((top) (top) (top))
-                                           ("i3708" "i3706" "i3704"))
+                                           ("i3709" "i3707" "i3705"))
                                          #(ribcage
                                            #(pattern keys)
                                            #((top) (top))
-                                           #("i3702" "i3703"))
+                                           #("i3703" "i3704"))
                                          #(ribcage
                                            (gen-syntax-case
                                              gen-clause
                                              build-dispatch-call
                                              convert-pattern)
                                            ((top) (top) (top) (top))
-                                           ("i3698" "i3696" "i3694" "i3692"))
+                                           ("i3699" "i3697" "i3695" "i3693"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -12267,40 +12424,40 @@
                                         (hygiene guile))
                                      '(())))
                               #f)
-                          (values '_ #{ids 13774}#)
+                          (values '_ #{ids 13328}#)
                           (values
                             'any
-                            (cons (cons #{p 13772}# #{n 13773}#)
-                                  #{ids 13774}#))))
-                      (let ((#{tmp 14096}#
-                              ($sc-dispatch #{p 13772}# '(any any))))
-                        (if (if #{tmp 14096}#
+                            (cons (cons #{p 13326}# #{n 13327}#)
+                                  #{ids 13328}#))))
+                      (let ((#{tmp 13648}#
+                              ($sc-dispatch #{p 13326}# '(any any))))
+                        (if (if #{tmp 13648}#
                               (@apply
-                                (lambda (#{x 14100}# #{dots 14101}#)
-                                  (if (if (if (vector? #{dots 14101}#)
+                                (lambda (#{x 13652}# #{dots 13653}#)
+                                  (if (if (if (vector? #{dots 13653}#)
                                             (if (= (vector-length
-                                                     #{dots 14101}#)
+                                                     #{dots 13653}#)
                                                    4)
                                               (eq? (vector-ref
-                                                     #{dots 14101}#
+                                                     #{dots 13653}#
                                                      0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (symbol? (vector-ref #{dots 14101}# 1))
+                                        (symbol? (vector-ref #{dots 13653}# 1))
                                         #f)
-                                    (if (eq? (if (if (vector? #{dots 14101}#)
+                                    (if (eq? (if (if (vector? #{dots 13653}#)
                                                    (if (= (vector-length
-                                                            #{dots 14101}#)
+                                                            #{dots 13653}#)
                                                           4)
                                                      (eq? (vector-ref
-                                                            #{dots 14101}#
+                                                            #{dots 13653}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
-                                               (vector-ref #{dots 14101}# 1)
-                                               #{dots 14101}#)
+                                               (vector-ref #{dots 13653}# 1)
+                                               #{dots 13653}#)
                                              (if (if (= (vector-length
                                                           '#(syntax-object
                                                              ...
@@ -12316,7 +12473,7 @@
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
-                                                                #("i2218"))
+                                                                #("i2219"))
                                                               #(ribcage
                                                                 
(lambda-var-list
                                                                   gen-var
@@ -12749,7 +12906,7 @@
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i2218"))
+                                                     #("i2219"))
                                                    #(ribcage
                                                      (lambda-var-list
                                                        gen-var
@@ -13166,10 +13323,10 @@
                                                      ((top) (top) (top))
                                                      ("i46" "i45" "i44")))
                                                   (hygiene guile))))
-                                      (eq? (#{id-var-name 4320}#
-                                             #{dots 14101}#
+                                      (eq? (#{id-var-name 4321}#
+                                             #{dots 13653}#
                                              '(()))
-                                           (#{id-var-name 4320}#
+                                           (#{id-var-name 4321}#
                                              '#(syntax-object
                                                 ...
                                                 ((top)
@@ -13178,7 +13335,7 @@
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
-                                                   #("i2218"))
+                                                   #("i2219"))
                                                  #(ribcage
                                                    (lambda-var-list
                                                      gen-var
@@ -13598,58 +13755,58 @@
                                              '(())))
                                       #f)
                                     #f))
-                                #{tmp 14096}#)
+                                #{tmp 13648}#)
                               #f)
                           (@apply
-                            (lambda (#{x 14201}# #{dots 14202}#)
+                            (lambda (#{x 13753}# #{dots 13754}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{cvt 13769}#
-                                    #{x 14201}#
-                                    (#{1+}# #{n 13773}#)
-                                    #{ids 13774}#))
-                                (lambda (#{p 14203}# #{ids 14204}#)
+                                  (#{cvt 13323}#
+                                    #{x 13753}#
+                                    (#{1+}# #{n 13327}#)
+                                    #{ids 13328}#))
+                                (lambda (#{p 13755}# #{ids 13756}#)
                                   (values
-                                    (if (eq? #{p 14203}# 'any)
+                                    (if (eq? #{p 13755}# 'any)
                                       'each-any
-                                      (vector 'each #{p 14203}#))
-                                    #{ids 14204}#))))
-                            #{tmp 14096}#)
-                          (let ((#{tmp 14205}#
-                                  ($sc-dispatch #{p 13772}# '(any any . any))))
-                            (if (if #{tmp 14205}#
+                                      (vector 'each #{p 13755}#))
+                                    #{ids 13756}#))))
+                            #{tmp 13648}#)
+                          (let ((#{tmp 13757}#
+                                  ($sc-dispatch #{p 13326}# '(any any . any))))
+                            (if (if #{tmp 13757}#
                                   (@apply
-                                    (lambda (#{x 14209}#
-                                             #{dots 14210}#
-                                             #{ys 14211}#)
-                                      (if (if (if (vector? #{dots 14210}#)
+                                    (lambda (#{x 13761}#
+                                             #{dots 13762}#
+                                             #{ys 13763}#)
+                                      (if (if (if (vector? #{dots 13762}#)
                                                 (if (= (vector-length
-                                                         #{dots 14210}#)
+                                                         #{dots 13762}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{dots 14210}#
+                                                         #{dots 13762}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
                                             (symbol?
-                                              (vector-ref #{dots 14210}# 1))
+                                              (vector-ref #{dots 13762}# 1))
                                             #f)
                                         (if (eq? (if (if (vector?
-                                                           #{dots 14210}#)
+                                                           #{dots 13762}#)
                                                        (if (= (vector-length
-                                                                #{dots 14210}#)
+                                                                #{dots 13762}#)
                                                               4)
                                                          (eq? (vector-ref
-                                                                #{dots 14210}#
+                                                                #{dots 13762}#
                                                                 0)
                                                               'syntax-object)
                                                          #f)
                                                        #f)
                                                    (vector-ref
-                                                     #{dots 14210}#
+                                                     #{dots 13762}#
                                                      1)
-                                                   #{dots 14210}#)
+                                                   #{dots 13762}#)
                                                  (if (if (= (vector-length
                                                               '#(syntax-object
                                                                  ...
@@ -13665,7 +13822,7 @@
                                                                   #(ribcage
                                                                     #(x)
                                                                     #((top))
-                                                                    #("i2218"))
+                                                                    #("i2219"))
                                                                   #(ribcage
                                                                     
(lambda-var-list
                                                                       gen-var
@@ -14099,7 +14256,7 @@
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
-                                                         #("i2218"))
+                                                         #("i2219"))
                                                        #(ribcage
                                                          (lambda-var-list
                                                            gen-var
@@ -14516,10 +14673,10 @@
                                                          ((top) (top) (top))
                                                          ("i46" "i45" "i44")))
                                                       (hygiene guile))))
-                                          (eq? (#{id-var-name 4320}#
-                                                 #{dots 14210}#
+                                          (eq? (#{id-var-name 4321}#
+                                                 #{dots 13762}#
                                                  '(()))
-                                               (#{id-var-name 4320}#
+                                               (#{id-var-name 4321}#
                                                  '#(syntax-object
                                                     ...
                                                     ((top)
@@ -14528,7 +14685,7 @@
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
-                                                       #("i2218"))
+                                                       #("i2219"))
                                                      #(ribcage
                                                        (lambda-var-list
                                                          gen-var
@@ -14948,111 +15105,111 @@
                                                  '(())))
                                           #f)
                                         #f))
-                                    #{tmp 14205}#)
+                                    #{tmp 13757}#)
                                   #f)
                               (@apply
-                                (lambda (#{x 14311}#
-                                         #{dots 14312}#
-                                         #{ys 14313}#)
+                                (lambda (#{x 13863}#
+                                         #{dots 13864}#
+                                         #{ys 13865}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{cvt* 13767}#
-                                        #{ys 14313}#
-                                        #{n 13773}#
-                                        #{ids 13774}#))
-                                    (lambda (#{ys 14316}# #{ids 14317}#)
+                                      (#{cvt* 13321}#
+                                        #{ys 13865}#
+                                        #{n 13327}#
+                                        #{ids 13328}#))
+                                    (lambda (#{ys 13868}# #{ids 13869}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{cvt 13769}#
-                                            #{x 14311}#
-                                            (#{1+}# #{n 13773}#)
-                                            #{ids 14317}#))
-                                        (lambda (#{x 14318}# #{ids 14319}#)
+                                          (#{cvt 13323}#
+                                            #{x 13863}#
+                                            (#{1+}# #{n 13327}#)
+                                            #{ids 13869}#))
+                                        (lambda (#{x 13870}# #{ids 13871}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{v-reverse 13768}#
-                                                #{ys 14316}#))
-                                            (lambda (#{ys 14352}# #{e 14353}#)
+                                              (#{v-reverse 13322}#
+                                                #{ys 13868}#))
+                                            (lambda (#{ys 13904}# #{e 13905}#)
                                               (values
                                                 (vector
                                                   'each+
-                                                  #{x 14318}#
-                                                  #{ys 14352}#
-                                                  #{e 14353}#)
-                                                #{ids 14319}#))))))))
-                                #{tmp 14205}#)
-                              (let ((#{tmp 14354}#
-                                      ($sc-dispatch #{p 13772}# '(any . any))))
-                                (if #{tmp 14354}#
+                                                  #{x 13870}#
+                                                  #{ys 13904}#
+                                                  #{e 13905}#)
+                                                #{ids 13871}#))))))))
+                                #{tmp 13757}#)
+                              (let ((#{tmp 13906}#
+                                      ($sc-dispatch #{p 13326}# '(any . any))))
+                                (if #{tmp 13906}#
                                   (@apply
-                                    (lambda (#{x 14358}# #{y 14359}#)
+                                    (lambda (#{x 13910}# #{y 13911}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{cvt 13769}#
-                                            #{y 14359}#
-                                            #{n 13773}#
-                                            #{ids 13774}#))
-                                        (lambda (#{y 14360}# #{ids 14361}#)
+                                          (#{cvt 13323}#
+                                            #{y 13911}#
+                                            #{n 13327}#
+                                            #{ids 13328}#))
+                                        (lambda (#{y 13912}# #{ids 13913}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{cvt 13769}#
-                                                #{x 14358}#
-                                                #{n 13773}#
-                                                #{ids 14361}#))
-                                            (lambda (#{x 14362}# #{ids 14363}#)
+                                              (#{cvt 13323}#
+                                                #{x 13910}#
+                                                #{n 13327}#
+                                                #{ids 13913}#))
+                                            (lambda (#{x 13914}# #{ids 13915}#)
                                               (values
-                                                (cons #{x 14362}# #{y 14360}#)
-                                                #{ids 14363}#))))))
-                                    #{tmp 14354}#)
-                                  (let ((#{tmp 14364}#
-                                          ($sc-dispatch #{p 13772}# '())))
-                                    (if #{tmp 14364}#
+                                                (cons #{x 13914}# #{y 13912}#)
+                                                #{ids 13915}#))))))
+                                    #{tmp 13906}#)
+                                  (let ((#{tmp 13916}#
+                                          ($sc-dispatch #{p 13326}# '())))
+                                    (if #{tmp 13916}#
                                       (@apply
-                                        (lambda () (values '() #{ids 13774}#))
-                                        #{tmp 14364}#)
-                                      (let ((#{tmp 14368}#
+                                        (lambda () (values '() #{ids 13328}#))
+                                        #{tmp 13916}#)
+                                      (let ((#{tmp 13920}#
                                               ($sc-dispatch
-                                                #{p 13772}#
+                                                #{p 13326}#
                                                 '#(vector each-any))))
-                                        (if #{tmp 14368}#
+                                        (if #{tmp 13920}#
                                           (@apply
-                                            (lambda (#{x 14372}#)
+                                            (lambda (#{x 13924}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{cvt 13769}#
-                                                    #{x 14372}#
-                                                    #{n 13773}#
-                                                    #{ids 13774}#))
-                                                (lambda (#{p 14373}#
-                                                         #{ids 14374}#)
+                                                  (#{cvt 13323}#
+                                                    #{x 13924}#
+                                                    #{n 13327}#
+                                                    #{ids 13328}#))
+                                                (lambda (#{p 13925}#
+                                                         #{ids 13926}#)
                                                   (values
                                                     (vector
                                                       'vector
-                                                      #{p 14373}#)
-                                                    #{ids 14374}#))))
-                                            #{tmp 14368}#)
+                                                      #{p 13925}#)
+                                                    #{ids 13926}#))))
+                                            #{tmp 13920}#)
                                           (values
                                             (vector
                                               'atom
-                                              (#{strip 4346}#
-                                                #{p 13772}#
+                                              (#{strip 4347}#
+                                                #{p 13326}#
                                                 '(())))
-                                            #{ids 13774}#)))))))))))))))
-               (#{cvt 13769}# #{pattern 13765}# 0 '()))))
-         (#{build-dispatch-call 12143}#
-           (lambda (#{pvars 14484}#
-                    #{exp 14485}#
-                    #{y 14486}#
-                    #{r 14487}#
-                    #{mod 14488}#)
-             (let ((#{ids 14489}# (map car #{pvars 14484}#)))
+                                            #{ids 13328}#)))))))))))))))
+               (#{cvt 13323}# #{pattern 13319}# 0 '()))))
+         (#{build-dispatch-call 11723}#
+           (lambda (#{pvars 14039}#
+                    #{exp 14040}#
+                    #{y 14041}#
+                    #{r 14042}#
+                    #{mod 14043}#)
+             (let ((#{ids 14044}# (map car #{pvars 14039}#)))
                (begin
-                 (map cdr #{pvars 14484}#)
-                 (let ((#{labels 14491}#
-                         (#{gen-labels 4304}# #{ids 14489}#))
-                       (#{new-vars 14492}#
-                         (map #{gen-var 4347}# #{ids 14489}#)))
-                   (#{build-application 4268}#
+                 (map cdr #{pvars 14039}#)
+                 (let ((#{labels 14046}#
+                         (#{gen-labels 4305}# #{ids 14044}#))
+                       (#{new-vars 14047}#
+                         (map #{gen-var 4348}# #{ids 14044}#)))
+                   (#{build-application 4269}#
                      #f
                      (if (equal? (module-name (current-module)) '(guile))
                        (make-struct/no-tail
@@ -15065,78 +15222,78 @@
                          '(guile)
                          'apply
                          #f))
-                     (list (#{build-simple-lambda 4277}#
+                     (list (#{build-simple-lambda 4278}#
                              #f
-                             (map syntax->datum #{ids 14489}#)
+                             (map syntax->datum #{ids 14044}#)
                              #f
-                             #{new-vars 14492}#
+                             #{new-vars 14047}#
                              '()
-                             (#{expand 4333}#
-                               #{exp 14485}#
-                               (#{extend-env 4295}#
-                                 #{labels 14491}#
-                                 (map (lambda (#{var 14817}# #{level 14818}#)
+                             (#{expand 4334}#
+                               #{exp 14040}#
+                               (#{extend-env 4296}#
+                                 #{labels 14046}#
+                                 (map (lambda (#{var 14372}# #{level 14373}#)
                                         (cons 'syntax
-                                              (cons #{var 14817}#
-                                                    #{level 14818}#)))
-                                      #{new-vars 14492}#
-                                      (map cdr #{pvars 14484}#))
-                                 #{r 14487}#)
-                               (#{make-binding-wrap 4315}#
-                                 #{ids 14489}#
-                                 #{labels 14491}#
+                                              (cons #{var 14372}#
+                                                    #{level 14373}#)))
+                                      #{new-vars 14047}#
+                                      (map cdr #{pvars 14039}#))
+                                 #{r 14042}#)
+                               (#{make-binding-wrap 4316}#
+                                 #{ids 14044}#
+                                 #{labels 14046}#
                                  '(()))
-                               #{mod 14488}#))
-                           #{y 14486}#)))))))
-         (#{gen-clause 12144}#
-           (lambda (#{x 13126}#
-                    #{keys 13127}#
-                    #{clauses 13128}#
-                    #{r 13129}#
-                    #{pat 13130}#
-                    #{fender 13131}#
-                    #{exp 13132}#
-                    #{mod 13133}#)
+                               #{mod 14043}#))
+                           #{y 14041}#)))))))
+         (#{gen-clause 11724}#
+           (lambda (#{x 12691}#
+                    #{keys 12692}#
+                    #{clauses 12693}#
+                    #{r 12694}#
+                    #{pat 12695}#
+                    #{fender 12696}#
+                    #{exp 12697}#
+                    #{mod 12698}#)
              (call-with-values
                (lambda ()
-                 (#{convert-pattern 12142}#
-                   #{pat 13130}#
-                   #{keys 13127}#))
-               (lambda (#{p 13288}# #{pvars 13289}#)
-                 (if (not (#{distinct-bound-ids? 4324}#
-                            (map car #{pvars 13289}#)))
+                 (#{convert-pattern 11722}#
+                   #{pat 12695}#
+                   #{keys 12692}#))
+               (lambda (#{p 12853}# #{pvars 12854}#)
+                 (if (not (#{distinct-bound-ids? 4325}#
+                            (map car #{pvars 12854}#)))
                    (syntax-violation
                      'syntax-case
                      "duplicate pattern variable"
-                     #{pat 13130}#)
+                     #{pat 12695}#)
                    (if (not (and-map
-                              (lambda (#{x 13409}#)
-                                (not (let ((#{x 13413}# (car #{x 13409}#)))
-                                       (if (if (if (vector? #{x 13413}#)
+                              (lambda (#{x 12970}#)
+                                (not (let ((#{x 12974}# (car #{x 12970}#)))
+                                       (if (if (if (vector? #{x 12974}#)
                                                  (if (= (vector-length
-                                                          #{x 13413}#)
+                                                          #{x 12974}#)
                                                         4)
                                                    (eq? (vector-ref
-                                                          #{x 13413}#
+                                                          #{x 12974}#
                                                           0)
                                                         'syntax-object)
                                                    #f)
                                                  #f)
                                              (symbol?
-                                               (vector-ref #{x 13413}# 1))
+                                               (vector-ref #{x 12974}# 1))
                                              #f)
-                                         (if (eq? (if (if (vector? #{x 13413}#)
+                                         (if (eq? (if (if (vector? #{x 12974}#)
                                                         (if (= (vector-length
-                                                                 #{x 13413}#)
+                                                                 #{x 12974}#)
                                                                4)
                                                           (eq? (vector-ref
-                                                                 #{x 13413}#
+                                                                 #{x 12974}#
                                                                  0)
                                                                'syntax-object)
                                                           #f)
                                                         #f)
-                                                    (vector-ref #{x 13413}# 1)
-                                                    #{x 13413}#)
+                                                    (vector-ref #{x 12974}# 1)
+                                                    #{x 12974}#)
                                                   (if (if (= (vector-length
                                                                '#(syntax-object
                                                                   ...
@@ -15152,7 +15309,7 @@
                                                                    #(ribcage
                                                                      #(x)
                                                                      #((top))
-                                                                     
#("i2218"))
+                                                                     
#("i2219"))
                                                                    #(ribcage
                                                                      
(lambda-var-list
                                                                        gen-var
@@ -15586,7 +15743,7 @@
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i2218"))
+                                                          #("i2219"))
                                                         #(ribcage
                                                           (lambda-var-list
                                                             gen-var
@@ -16003,10 +16160,10 @@
                                                           ((top) (top) (top))
                                                           ("i46" "i45" "i44")))
                                                        (hygiene guile))))
-                                           (eq? (#{id-var-name 4320}#
-                                                  #{x 13413}#
+                                           (eq? (#{id-var-name 4321}#
+                                                  #{x 12974}#
                                                   '(()))
-                                                (#{id-var-name 4320}#
+                                                (#{id-var-name 4321}#
                                                   '#(syntax-object
                                                      ...
                                                      ((top)
@@ -16015,7 +16172,7 @@
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i2218"))
+                                                        #("i2219"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -16435,42 +16592,42 @@
                                                   '(())))
                                            #f)
                                          #f))))
-                              #{pvars 13289}#))
+                              #{pvars 12854}#))
                      (syntax-violation
                        'syntax-case
                        "misplaced ellipsis"
-                       #{pat 13130}#)
-                     (let ((#{y 13489}#
+                       #{pat 12695}#)
+                     (let ((#{y 13050}#
                              (gensym
                                (string-append (symbol->string 'tmp) " "))))
-                       (#{build-application 4268}#
+                       (#{build-application 4269}#
                          #f
-                         (let ((#{req 13639}# (list 'tmp))
-                               (#{vars 13641}# (list #{y 13489}#))
-                               (#{exp 13643}#
-                                 (let ((#{y 13660}#
+                         (let ((#{req 13193}# (list 'tmp))
+                               (#{vars 13195}# (list #{y 13050}#))
+                               (#{exp 13197}#
+                                 (let ((#{y 13214}#
                                          (make-struct/no-tail
                                            (vector-ref %expanded-vtables 3)
                                            #f
                                            'tmp
-                                           #{y 13489}#)))
-                                   (let ((#{test-exp 13664}#
-                                           (let ((#{tmp 13673}#
+                                           #{y 13050}#)))
+                                   (let ((#{test-exp 13218}#
+                                           (let ((#{tmp 13227}#
                                                    ($sc-dispatch
-                                                     #{fender 13131}#
+                                                     #{fender 12696}#
                                                      '#(atom #t))))
-                                             (if #{tmp 13673}#
+                                             (if #{tmp 13227}#
                                                (@apply
-                                                 (lambda () #{y 13660}#)
-                                                 #{tmp 13673}#)
-                                               (let ((#{then-exp 13691}#
-                                                       (#{build-dispatch-call 
12143}#
-                                                         #{pvars 13289}#
-                                                         #{fender 13131}#
-                                                         #{y 13660}#
-                                                         #{r 13129}#
-                                                         #{mod 13133}#))
-                                                     (#{else-exp 13692}#
+                                                 (lambda () #{y 13214}#)
+                                                 #{tmp 13227}#)
+                                               (let ((#{then-exp 13245}#
+                                                       (#{build-dispatch-call 
11723}#
+                                                         #{pvars 12854}#
+                                                         #{fender 12696}#
+                                                         #{y 13214}#
+                                                         #{r 12694}#
+                                                         #{mod 12698}#))
+                                                     (#{else-exp 13246}#
                                                        (make-struct/no-tail
                                                          (vector-ref
                                                            %expanded-vtables
@@ -16482,48 +16639,48 @@
                                                      %expanded-vtables
                                                      10)
                                                    #f
-                                                   #{y 13660}#
-                                                   #{then-exp 13691}#
-                                                   #{else-exp 13692}#)))))
-                                         (#{then-exp 13665}#
-                                           (#{build-dispatch-call 12143}#
-                                             #{pvars 13289}#
-                                             #{exp 13132}#
-                                             #{y 13660}#
-                                             #{r 13129}#
-                                             #{mod 13133}#))
-                                         (#{else-exp 13666}#
-                                           (#{gen-syntax-case 12145}#
-                                             #{x 13126}#
-                                             #{keys 13127}#
-                                             #{clauses 13128}#
-                                             #{r 13129}#
-                                             #{mod 13133}#)))
+                                                   #{y 13214}#
+                                                   #{then-exp 13245}#
+                                                   #{else-exp 13246}#)))))
+                                         (#{then-exp 13219}#
+                                           (#{build-dispatch-call 11723}#
+                                             #{pvars 12854}#
+                                             #{exp 12697}#
+                                             #{y 13214}#
+                                             #{r 12694}#
+                                             #{mod 12698}#))
+                                         (#{else-exp 13220}#
+                                           (#{gen-syntax-case 11725}#
+                                             #{x 12691}#
+                                             #{keys 12692}#
+                                             #{clauses 12693}#
+                                             #{r 12694}#
+                                             #{mod 12698}#)))
                                      (make-struct/no-tail
                                        (vector-ref %expanded-vtables 10)
                                        #f
-                                       #{test-exp 13664}#
-                                       #{then-exp 13665}#
-                                       #{else-exp 13666}#)))))
-                           (let ((#{body 13648}#
+                                       #{test-exp 13218}#
+                                       #{then-exp 13219}#
+                                       #{else-exp 13220}#)))))
+                           (let ((#{body 13202}#
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 14)
                                      #f
-                                     #{req 13639}#
+                                     #{req 13193}#
                                      #f
                                      #f
                                      #f
                                      '()
-                                     #{vars 13641}#
-                                     #{exp 13643}#
+                                     #{vars 13195}#
+                                     #{exp 13197}#
                                      #f)))
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 13)
                                #f
                                '()
-                               #{body 13648}#)))
-                         (list (if (eq? #{p 13288}# 'any)
-                                 (let ((#{fun-exp 13714}#
+                               #{body 13202}#)))
+                         (list (if (eq? #{p 12853}# 'any)
+                                 (let ((#{fun-exp 13268}#
                                          (if (equal?
                                                (module-name (current-module))
                                                '(guile))
@@ -16537,13 +16694,13 @@
                                              '(guile)
                                              'list
                                              #f)))
-                                       (#{arg-exps 13715}# (list #{x 13126}#)))
+                                       (#{arg-exps 13269}# (list #{x 12691}#)))
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 11)
                                      #f
-                                     #{fun-exp 13714}#
-                                     #{arg-exps 13715}#))
-                                 (let ((#{fun-exp 13738}#
+                                     #{fun-exp 13268}#
+                                     #{arg-exps 13269}#))
+                                 (let ((#{fun-exp 13292}#
                                          (if (equal?
                                                (module-name (current-module))
                                                '(guile))
@@ -16557,27 +16714,27 @@
                                              '(guile)
                                              '$sc-dispatch
                                              #f)))
-                                       (#{arg-exps 13739}#
-                                         (list #{x 13126}#
+                                       (#{arg-exps 13293}#
+                                         (list #{x 12691}#
                                                (make-struct/no-tail
                                                  (vector-ref
                                                    %expanded-vtables
                                                    1)
                                                  #f
-                                                 #{p 13288}#))))
+                                                 #{p 12853}#))))
                                    (make-struct/no-tail
                                      (vector-ref %expanded-vtables 11)
                                      #f
-                                     #{fun-exp 13738}#
-                                     #{arg-exps 13739}#))))))))))))
-         (#{gen-syntax-case 12145}#
-           (lambda (#{x 12554}#
-                    #{keys 12555}#
-                    #{clauses 12556}#
-                    #{r 12557}#
-                    #{mod 12558}#)
-             (if (null? #{clauses 12556}#)
-               (let ((#{fun-exp 12563}#
+                                     #{fun-exp 13292}#
+                                     #{arg-exps 13293}#))))))))))))
+         (#{gen-syntax-case 11725}#
+           (lambda (#{x 12124}#
+                    #{keys 12125}#
+                    #{clauses 12126}#
+                    #{r 12127}#
+                    #{mod 12128}#)
+             (if (null? #{clauses 12126}#)
+               (let ((#{fun-exp 12133}#
                        (if (equal? (module-name (current-module)) '(guile))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 7)
@@ -16589,7 +16746,7 @@
                            '(guile)
                            'syntax-violation
                            #f)))
-                     (#{arg-exps 12564}#
+                     (#{arg-exps 12134}#
                        (list (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
@@ -16598,61 +16755,61 @@
                                (vector-ref %expanded-vtables 1)
                                #f
                                "source expression failed to match any pattern")
-                             #{x 12554}#)))
+                             #{x 12124}#)))
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 11)
                    #f
-                   #{fun-exp 12563}#
-                   #{arg-exps 12564}#))
-               (let ((#{tmp 12597}# (car #{clauses 12556}#)))
-                 (let ((#{tmp 12598}#
-                         ($sc-dispatch #{tmp 12597}# '(any any))))
-                   (if #{tmp 12598}#
+                   #{fun-exp 12133}#
+                   #{arg-exps 12134}#))
+               (let ((#{tmp 12167}# (car #{clauses 12126}#)))
+                 (let ((#{tmp 12168}#
+                         ($sc-dispatch #{tmp 12167}# '(any any))))
+                   (if #{tmp 12168}#
                      (@apply
-                       (lambda (#{pat 12600}# #{exp 12601}#)
-                         (if (if (if (symbol? #{pat 12600}#)
+                       (lambda (#{pat 12170}# #{exp 12171}#)
+                         (if (if (if (symbol? #{pat 12170}#)
                                    #t
-                                   (if (if (vector? #{pat 12600}#)
-                                         (if (= (vector-length #{pat 12600}#)
+                                   (if (if (vector? #{pat 12170}#)
+                                         (if (= (vector-length #{pat 12170}#)
                                                 4)
-                                           (eq? (vector-ref #{pat 12600}# 0)
+                                           (eq? (vector-ref #{pat 12170}# 0)
                                                 'syntax-object)
                                            #f)
                                          #f)
-                                     (symbol? (vector-ref #{pat 12600}# 1))
+                                     (symbol? (vector-ref #{pat 12170}# 1))
                                      #f))
                                (and-map
-                                 (lambda (#{x 12628}#)
+                                 (lambda (#{x 12198}#)
                                    (not (if (eq? (if (if (vector?
-                                                           #{pat 12600}#)
+                                                           #{pat 12170}#)
                                                        (if (= (vector-length
-                                                                #{pat 12600}#)
+                                                                #{pat 12170}#)
                                                               4)
                                                          (eq? (vector-ref
-                                                                #{pat 12600}#
+                                                                #{pat 12170}#
                                                                 0)
                                                               'syntax-object)
                                                          #f)
                                                        #f)
-                                                   (vector-ref #{pat 12600}# 1)
-                                                   #{pat 12600}#)
-                                                 (if (if (vector? #{x 12628}#)
+                                                   (vector-ref #{pat 12170}# 1)
+                                                   #{pat 12170}#)
+                                                 (if (if (vector? #{x 12198}#)
                                                        (if (= (vector-length
-                                                                #{x 12628}#)
+                                                                #{x 12198}#)
                                                               4)
                                                          (eq? (vector-ref
-                                                                #{x 12628}#
+                                                                #{x 12198}#
                                                                 0)
                                                               'syntax-object)
                                                          #f)
                                                        #f)
-                                                   (vector-ref #{x 12628}# 1)
-                                                   #{x 12628}#))
-                                          (eq? (#{id-var-name 4320}#
-                                                 #{pat 12600}#
+                                                   (vector-ref #{x 12198}# 1)
+                                                   #{x 12198}#))
+                                          (eq? (#{id-var-name 4321}#
+                                                 #{pat 12170}#
                                                  '(()))
-                                               (#{id-var-name 4320}#
-                                                 #{x 12628}#
+                                               (#{id-var-name 4321}#
+                                                 #{x 12198}#
                                                  '(())))
                                           #f)))
                                  (cons '#(syntax-object
@@ -16661,23 +16818,23 @@
                                            #(ribcage
                                              #(pat exp)
                                              #((top) (top))
-                                             #("i3899" "i3900"))
+                                             #("i3900" "i3901"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x keys clauses r mod)
                                              #((top) (top) (top) (top) (top))
-                                             #("i3888"
-                                               "i3889"
+                                             #("i3889"
                                                "i3890"
                                                "i3891"
-                                               "i3892"))
+                                               "i3892"
+                                               "i3893"))
                                            #(ribcage
                                              (gen-syntax-case
                                                gen-clause
                                                build-dispatch-call
                                                convert-pattern)
                                              ((top) (top) (top) (top))
-                                             ("i3698" "i3696" "i3694" "i3692"))
+                                             ("i3699" "i3697" "i3695" "i3693"))
                                            #(ribcage
                                              (lambda-var-list
                                                gen-var
@@ -17094,7 +17251,7 @@
                                              ((top) (top) (top))
                                              ("i46" "i45" "i44")))
                                           (hygiene guile))
-                                       #{keys 12555}#))
+                                       #{keys 12125}#))
                                #f)
                            (if (if (eq? (if (if (= (vector-length
                                                      '#(syntax-object
@@ -17103,7 +17260,7 @@
                                                          #(ribcage
                                                            #(pat exp)
                                                            #((top) (top))
-                                                           #("i3899" "i3900"))
+                                                           #("i3900" "i3901"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x
@@ -17116,11 +17273,11 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                           #("i3888"
-                                                             "i3889"
+                                                           #("i3889"
                                                              "i3890"
                                                              "i3891"
-                                                             "i3892"))
+                                                             "i3892"
+                                                             "i3893"))
                                                          #(ribcage
                                                            (gen-syntax-case
                                                              gen-clause
@@ -17130,10 +17287,10 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                           ("i3698"
-                                                            "i3696"
-                                                            "i3694"
-                                                            "i3692"))
+                                                           ("i3699"
+                                                            "i3697"
+                                                            "i3695"
+                                                            "i3693"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
@@ -17562,7 +17719,7 @@
                                               #(ribcage
                                                 #(pat exp)
                                                 #((top) (top))
-                                                #("i3899" "i3900"))
+                                                #("i3900" "i3901"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x keys clauses r mod)
@@ -17571,21 +17728,21 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                #("i3888"
-                                                  "i3889"
+                                                #("i3889"
                                                   "i3890"
                                                   "i3891"
-                                                  "i3892"))
+                                                  "i3892"
+                                                  "i3893"))
                                               #(ribcage
                                                 (gen-syntax-case
                                                   gen-clause
                                                   build-dispatch-call
                                                   convert-pattern)
                                                 ((top) (top) (top) (top))
-                                                ("i3698"
-                                                 "i3696"
-                                                 "i3694"
-                                                 "i3692"))
+                                                ("i3699"
+                                                 "i3697"
+                                                 "i3695"
+                                                 "i3693"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -18009,7 +18166,7 @@
                                                          #(ribcage
                                                            #(pat exp)
                                                            #((top) (top))
-                                                           #("i3899" "i3900"))
+                                                           #("i3900" "i3901"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x
@@ -18022,11 +18179,11 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                           #("i3888"
-                                                             "i3889"
+                                                           #("i3889"
                                                              "i3890"
                                                              "i3891"
-                                                             "i3892"))
+                                                             "i3892"
+                                                             "i3893"))
                                                          #(ribcage
                                                            (gen-syntax-case
                                                              gen-clause
@@ -18036,10 +18193,10 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                           ("i3698"
-                                                            "i3696"
-                                                            "i3694"
-                                                            "i3692"))
+                                                           ("i3699"
+                                                            "i3697"
+                                                            "i3695"
+                                                            "i3693"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
@@ -18468,7 +18625,7 @@
                                               #(ribcage
                                                 #(pat exp)
                                                 #((top) (top))
-                                                #("i3899" "i3900"))
+                                                #("i3900" "i3901"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x keys clauses r mod)
@@ -18477,21 +18634,21 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                #("i3888"
-                                                  "i3889"
+                                                #("i3889"
                                                   "i3890"
                                                   "i3891"
-                                                  "i3892"))
+                                                  "i3892"
+                                                  "i3893"))
                                               #(ribcage
                                                 (gen-syntax-case
                                                   gen-clause
                                                   build-dispatch-call
                                                   convert-pattern)
                                                 ((top) (top) (top) (top))
-                                                ("i3698"
-                                                 "i3696"
-                                                 "i3694"
-                                                 "i3692"))
+                                                ("i3699"
+                                                 "i3697"
+                                                 "i3695"
+                                                 "i3693"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -18908,33 +19065,33 @@
                                                 ((top) (top) (top))
                                                 ("i46" "i45" "i44")))
                                              (hygiene guile))))
-                                 (eq? (#{id-var-name 4320}#
+                                 (eq? (#{id-var-name 4321}#
                                         '#(syntax-object
                                            pad
                                            ((top)
                                             #(ribcage
                                               #(pat exp)
                                               #((top) (top))
-                                              #("i3899" "i3900"))
+                                              #("i3900" "i3901"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x keys clauses r mod)
                                               #((top) (top) (top) (top) (top))
-                                              #("i3888"
-                                                "i3889"
+                                              #("i3889"
                                                 "i3890"
                                                 "i3891"
-                                                "i3892"))
+                                                "i3892"
+                                                "i3893"))
                                             #(ribcage
                                               (gen-syntax-case
                                                 gen-clause
                                                 build-dispatch-call
                                                 convert-pattern)
                                               ((top) (top) (top) (top))
-                                              ("i3698"
-                                               "i3696"
-                                               "i3694"
-                                               "i3692"))
+                                              ("i3699"
+                                               "i3697"
+                                               "i3695"
+                                               "i3693"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
@@ -19352,33 +19509,33 @@
                                               ("i46" "i45" "i44")))
                                            (hygiene guile))
                                         '(()))
-                                      (#{id-var-name 4320}#
+                                      (#{id-var-name 4321}#
                                         '#(syntax-object
                                            _
                                            ((top)
                                             #(ribcage
                                               #(pat exp)
                                               #((top) (top))
-                                              #("i3899" "i3900"))
+                                              #("i3900" "i3901"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x keys clauses r mod)
                                               #((top) (top) (top) (top) (top))
-                                              #("i3888"
-                                                "i3889"
+                                              #("i3889"
                                                 "i3890"
                                                 "i3891"
-                                                "i3892"))
+                                                "i3892"
+                                                "i3893"))
                                             #(ribcage
                                               (gen-syntax-case
                                                 gen-clause
                                                 build-dispatch-call
                                                 convert-pattern)
                                               ((top) (top) (top) (top))
-                                              ("i3698"
-                                               "i3696"
-                                               "i3694"
-                                               "i3692"))
+                                              ("i3699"
+                                               "i3697"
+                                               "i3695"
+                                               "i3693"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
@@ -19797,136 +19954,136 @@
                                            (hygiene guile))
                                         '(())))
                                  #f)
-                             (#{expand 4333}#
-                               #{exp 12601}#
-                               #{r 12557}#
+                             (#{expand 4334}#
+                               #{exp 12171}#
+                               #{r 12127}#
                                '(())
-                               #{mod 12558}#)
-                             (let ((#{labels 12809}#
+                               #{mod 12128}#)
+                             (let ((#{labels 12374}#
                                      (list (symbol->string (gensym "i"))))
-                                   (#{var 12810}#
-                                     (let ((#{id 12848}#
-                                             (if (if (vector? #{pat 12600}#)
+                                   (#{var 12375}#
+                                     (let ((#{id 12413}#
+                                             (if (if (vector? #{pat 12170}#)
                                                    (if (= (vector-length
-                                                            #{pat 12600}#)
+                                                            #{pat 12170}#)
                                                           4)
                                                      (eq? (vector-ref
-                                                            #{pat 12600}#
+                                                            #{pat 12170}#
                                                             0)
                                                           'syntax-object)
                                                      #f)
                                                    #f)
-                                               (vector-ref #{pat 12600}# 1)
-                                               #{pat 12600}#)))
+                                               (vector-ref #{pat 12170}# 1)
+                                               #{pat 12170}#)))
                                        (gensym
                                          (string-append
-                                           (symbol->string #{id 12848}#)
+                                           (symbol->string #{id 12413}#)
                                            " ")))))
-                               (#{build-application 4268}#
+                               (#{build-application 4269}#
                                  #f
-                                 (#{build-simple-lambda 4277}#
+                                 (#{build-simple-lambda 4278}#
                                    #f
-                                   (list (syntax->datum #{pat 12600}#))
+                                   (list (syntax->datum #{pat 12170}#))
                                    #f
-                                   (list #{var 12810}#)
+                                   (list #{var 12375}#)
                                    '()
-                                   (#{expand 4333}#
-                                     #{exp 12601}#
-                                     (#{extend-env 4295}#
-                                       #{labels 12809}#
+                                   (#{expand 4334}#
+                                     #{exp 12171}#
+                                     (#{extend-env 4296}#
+                                       #{labels 12374}#
                                        (list (cons 'syntax
-                                                   (cons #{var 12810}# 0)))
-                                       #{r 12557}#)
-                                     (#{make-binding-wrap 4315}#
-                                       (list #{pat 12600}#)
-                                       #{labels 12809}#
+                                                   (cons #{var 12375}# 0)))
+                                       #{r 12127}#)
+                                     (#{make-binding-wrap 4316}#
+                                       (list #{pat 12170}#)
+                                       #{labels 12374}#
                                        '(()))
-                                     #{mod 12558}#))
-                                 (list #{x 12554}#))))
-                           (#{gen-clause 12144}#
-                             #{x 12554}#
-                             #{keys 12555}#
-                             (cdr #{clauses 12556}#)
-                             #{r 12557}#
-                             #{pat 12600}#
+                                     #{mod 12128}#))
+                                 (list #{x 12124}#))))
+                           (#{gen-clause 11724}#
+                             #{x 12124}#
+                             #{keys 12125}#
+                             (cdr #{clauses 12126}#)
+                             #{r 12127}#
+                             #{pat 12170}#
                              #t
-                             #{exp 12601}#
-                             #{mod 12558}#)))
-                       #{tmp 12598}#)
-                     (let ((#{tmp 13118}#
-                             ($sc-dispatch #{tmp 12597}# '(any any any))))
-                       (if #{tmp 13118}#
+                             #{exp 12171}#
+                             #{mod 12128}#)))
+                       #{tmp 12168}#)
+                     (let ((#{tmp 12683}#
+                             ($sc-dispatch #{tmp 12167}# '(any any any))))
+                       (if #{tmp 12683}#
                          (@apply
-                           (lambda (#{pat 13120}#
-                                    #{fender 13121}#
-                                    #{exp 13122}#)
-                             (#{gen-clause 12144}#
-                               #{x 12554}#
-                               #{keys 12555}#
-                               (cdr #{clauses 12556}#)
-                               #{r 12557}#
-                               #{pat 13120}#
-                               #{fender 13121}#
-                               #{exp 13122}#
-                               #{mod 12558}#))
-                           #{tmp 13118}#)
+                           (lambda (#{pat 12685}#
+                                    #{fender 12686}#
+                                    #{exp 12687}#)
+                             (#{gen-clause 11724}#
+                               #{x 12124}#
+                               #{keys 12125}#
+                               (cdr #{clauses 12126}#)
+                               #{r 12127}#
+                               #{pat 12685}#
+                               #{fender 12686}#
+                               #{exp 12687}#
+                               #{mod 12128}#))
+                           #{tmp 12683}#)
                          (syntax-violation
                            'syntax-case
                            "invalid clause"
-                           (car #{clauses 12556}#)))))))))))
-        (lambda (#{e 12146}#
-                 #{r 12147}#
-                 #{w 12148}#
-                 #{s 12149}#
-                 #{mod 12150}#)
-          (let ((#{e 12151}#
-                  (#{wrap 4326}#
+                           (car #{clauses 12126}#)))))))))))
+        (lambda (#{e 11726}#
+                 #{r 11727}#
+                 #{w 11728}#
+                 #{s 11729}#
+                 #{mod 11730}#)
+          (let ((#{e 11731}#
+                  (#{wrap 4327}#
                     (begin
-                      (if (if (pair? #{e 12146}#) #{s 12149}# #f)
-                        (set-source-properties! #{e 12146}# #{s 12149}#))
-                      #{e 12146}#)
-                    #{w 12148}#
-                    #{mod 12150}#)))
-            (let ((#{tmp 12153}#
+                      (if (if (pair? #{e 11726}#) #{s 11729}# #f)
+                        (set-source-properties! #{e 11726}# #{s 11729}#))
+                      #{e 11726}#)
+                    #{w 11728}#
+                    #{mod 11730}#)))
+            (let ((#{tmp 11733}#
                     ($sc-dispatch
-                      #{e 12151}#
+                      #{e 11731}#
                       '(_ any each-any . each-any))))
-              (if #{tmp 12153}#
+              (if #{tmp 11733}#
                 (@apply
-                  (lambda (#{val 12178}# #{key 12179}# #{m 12180}#)
+                  (lambda (#{val 11758}# #{key 11759}# #{m 11760}#)
                     (if (and-map
-                          (lambda (#{x 12181}#)
-                            (if (if (symbol? #{x 12181}#)
+                          (lambda (#{x 11761}#)
+                            (if (if (symbol? #{x 11761}#)
                                   #t
-                                  (if (if (vector? #{x 12181}#)
-                                        (if (= (vector-length #{x 12181}#) 4)
-                                          (eq? (vector-ref #{x 12181}# 0)
+                                  (if (if (vector? #{x 11761}#)
+                                        (if (= (vector-length #{x 11761}#) 4)
+                                          (eq? (vector-ref #{x 11761}# 0)
                                                'syntax-object)
                                           #f)
                                         #f)
-                                    (symbol? (vector-ref #{x 12181}# 1))
+                                    (symbol? (vector-ref #{x 11761}# 1))
                                     #f))
-                              (not (if (if (if (vector? #{x 12181}#)
-                                             (if (= (vector-length #{x 12181}#)
+                              (not (if (if (if (vector? #{x 11761}#)
+                                             (if (= (vector-length #{x 11761}#)
                                                     4)
-                                               (eq? (vector-ref #{x 12181}# 0)
+                                               (eq? (vector-ref #{x 11761}# 0)
                                                     'syntax-object)
                                                #f)
                                              #f)
-                                         (symbol? (vector-ref #{x 12181}# 1))
+                                         (symbol? (vector-ref #{x 11761}# 1))
                                          #f)
-                                     (if (eq? (if (if (vector? #{x 12181}#)
+                                     (if (eq? (if (if (vector? #{x 11761}#)
                                                     (if (= (vector-length
-                                                             #{x 12181}#)
+                                                             #{x 11761}#)
                                                            4)
                                                       (eq? (vector-ref
-                                                             #{x 12181}#
+                                                             #{x 11761}#
                                                              0)
                                                            'syntax-object)
                                                       #f)
                                                     #f)
-                                                (vector-ref #{x 12181}# 1)
-                                                #{x 12181}#)
+                                                (vector-ref #{x 11761}# 1)
+                                                #{x 11761}#)
                                               (if (if (= (vector-length
                                                            '#(syntax-object
                                                               ...
@@ -19942,7 +20099,7 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i2218"))
+                                                                 #("i2219"))
                                                                #(ribcage
                                                                  
(lambda-var-list
                                                                    gen-var
@@ -20375,7 +20532,7 @@
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i2218"))
+                                                      #("i2219"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -20792,10 +20949,10 @@
                                                       ((top) (top) (top))
                                                       ("i46" "i45" "i44")))
                                                    (hygiene guile))))
-                                       (eq? (#{id-var-name 4320}#
-                                              #{x 12181}#
+                                       (eq? (#{id-var-name 4321}#
+                                              #{x 11761}#
                                               '(()))
-                                            (#{id-var-name 4320}#
+                                            (#{id-var-name 4321}#
                                               '#(syntax-object
                                                  ...
                                                  ((top)
@@ -20804,7 +20961,7 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i2218"))
+                                                    #("i2219"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -21225,591 +21382,591 @@
                                        #f)
                                      #f))
                               #f))
-                          #{key 12179}#)
-                      (let ((#{x 12307}#
+                          #{key 11759}#)
+                      (let ((#{x 11887}#
                               (gensym
                                 (string-append (symbol->string 'tmp) " "))))
-                        (#{build-application 4268}#
-                          #{s 12149}#
-                          (let ((#{req 12442}# (list 'tmp))
-                                (#{vars 12444}# (list #{x 12307}#))
-                                (#{exp 12446}#
-                                  (#{gen-syntax-case 12145}#
+                        (#{build-application 4269}#
+                          #{s 11729}#
+                          (let ((#{req 12017}# (list 'tmp))
+                                (#{vars 12019}# (list #{x 11887}#))
+                                (#{exp 12021}#
+                                  (#{gen-syntax-case 11725}#
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 3)
                                       #f
                                       'tmp
-                                      #{x 12307}#)
-                                    #{key 12179}#
-                                    #{m 12180}#
-                                    #{r 12147}#
-                                    #{mod 12150}#)))
-                            (let ((#{body 12451}#
+                                      #{x 11887}#)
+                                    #{key 11759}#
+                                    #{m 11760}#
+                                    #{r 11727}#
+                                    #{mod 11730}#)))
+                            (let ((#{body 12026}#
                                     (make-struct/no-tail
                                       (vector-ref %expanded-vtables 14)
                                       #f
-                                      #{req 12442}#
+                                      #{req 12017}#
                                       #f
                                       #f
                                       #f
                                       '()
-                                      #{vars 12444}#
-                                      #{exp 12446}#
+                                      #{vars 12019}#
+                                      #{exp 12021}#
                                       #f)))
                               (make-struct/no-tail
                                 (vector-ref %expanded-vtables 13)
                                 #f
                                 '()
-                                #{body 12451}#)))
-                          (list (#{expand 4333}#
-                                  #{val 12178}#
-                                  #{r 12147}#
+                                #{body 12026}#)))
+                          (list (#{expand 4334}#
+                                  #{val 11758}#
+                                  #{r 11727}#
                                   '(())
-                                  #{mod 12150}#))))
+                                  #{mod 11730}#))))
                       (syntax-violation
                         'syntax-case
                         "invalid literals list"
-                        #{e 12151}#)))
-                  #{tmp 12153}#)
+                        #{e 11731}#)))
+                  #{tmp 11733}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{e 12151}#)))))))
+                  #{e 11731}#)))))))
     (set! macroexpand
       (lambda*
-        (#{x 14909}#
+        (#{x 14464}#
           #:optional
-          (#{m 14910}# 'e)
-          (#{esew 14911}# '(eval)))
-        (#{expand-top-sequence 4329}#
-          (list #{x 14909}#)
+          (#{m 14465}# 'e)
+          (#{esew 14466}# '(eval)))
+        (#{expand-top-sequence 4330}#
+          (list #{x 14464}#)
           '()
           '((top))
           #f
-          #{m 14910}#
-          #{esew 14911}#
+          #{m 14465}#
+          #{esew 14466}#
           (cons 'hygiene (module-name (current-module))))))
     (set! identifier?
-      (lambda (#{x 14914}#)
-        (if (if (vector? #{x 14914}#)
-              (if (= (vector-length #{x 14914}#) 4)
-                (eq? (vector-ref #{x 14914}# 0) 'syntax-object)
+      (lambda (#{x 14469}#)
+        (if (if (vector? #{x 14469}#)
+              (if (= (vector-length #{x 14469}#) 4)
+                (eq? (vector-ref #{x 14469}# 0) 'syntax-object)
                 #f)
               #f)
-          (symbol? (vector-ref #{x 14914}# 1))
+          (symbol? (vector-ref #{x 14469}# 1))
           #f)))
     (set! datum->syntax
-      (lambda (#{id 14939}# #{datum 14940}#)
-        (let ((#{wrap 14945}# (vector-ref #{id 14939}# 2))
-              (#{module 14946}# (vector-ref #{id 14939}# 3)))
+      (lambda (#{id 14494}# #{datum 14495}#)
+        (let ((#{wrap 14500}# (vector-ref #{id 14494}# 2))
+              (#{module 14501}# (vector-ref #{id 14494}# 3)))
           (vector
             'syntax-object
-            #{datum 14940}#
-            #{wrap 14945}#
-            #{module 14946}#))))
+            #{datum 14495}#
+            #{wrap 14500}#
+            #{module 14501}#))))
     (set! syntax->datum
-      (lambda (#{x 14953}#)
-        (#{strip 4346}# #{x 14953}# '(()))))
+      (lambda (#{x 14508}#)
+        (#{strip 4347}# #{x 14508}# '(()))))
     (set! syntax-source
-      (lambda (#{x 14956}#)
-        (#{source-annotation 4294}# #{x 14956}#)))
+      (lambda (#{x 14511}#)
+        (#{source-annotation 4295}# #{x 14511}#)))
     (set! generate-temporaries
-      (lambda (#{ls 15128}#)
+      (lambda (#{ls 14664}#)
         (begin
-          (if (not (list? #{ls 15128}#))
+          (if (not (list? #{ls 14664}#))
             (syntax-violation
               'generate-temporaries
               "invalid argument"
-              #{ls 15128}#))
-          (let ((#{mod 15136}#
+              #{ls 14664}#))
+          (let ((#{mod 14672}#
                   (cons 'hygiene (module-name (current-module)))))
-            (map (lambda (#{x 15137}#)
-                   (#{wrap 4326}# (gensym) '((top)) #{mod 15136}#))
-                 #{ls 15128}#)))))
+            (map (lambda (#{x 14673}#)
+                   (#{wrap 4327}# (gensym) '((top)) #{mod 14672}#))
+                 #{ls 14664}#)))))
     (set! free-identifier=?
-      (lambda (#{x 15141}# #{y 15142}#)
+      (lambda (#{x 14677}# #{y 14678}#)
         (begin
-          (if (not (if (if (vector? #{x 15141}#)
-                         (if (= (vector-length #{x 15141}#) 4)
-                           (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
+          (if (not (if (if (vector? #{x 14677}#)
+                         (if (= (vector-length #{x 14677}#) 4)
+                           (eq? (vector-ref #{x 14677}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{x 15141}# 1))
+                     (symbol? (vector-ref #{x 14677}# 1))
                      #f))
             (syntax-violation
               'free-identifier=?
               "invalid argument"
-              #{x 15141}#))
-          (if (not (if (if (vector? #{y 15142}#)
-                         (if (= (vector-length #{y 15142}#) 4)
-                           (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
+              #{x 14677}#))
+          (if (not (if (if (vector? #{y 14678}#)
+                         (if (= (vector-length #{y 14678}#) 4)
+                           (eq? (vector-ref #{y 14678}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{y 15142}# 1))
+                     (symbol? (vector-ref #{y 14678}# 1))
                      #f))
             (syntax-violation
               'free-identifier=?
               "invalid argument"
-              #{y 15142}#))
-          (if (eq? (if (if (vector? #{x 15141}#)
-                         (if (= (vector-length #{x 15141}#) 4)
-                           (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
+              #{y 14678}#))
+          (if (eq? (if (if (vector? #{x 14677}#)
+                         (if (= (vector-length #{x 14677}#) 4)
+                           (eq? (vector-ref #{x 14677}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (vector-ref #{x 15141}# 1)
-                     #{x 15141}#)
-                   (if (if (vector? #{y 15142}#)
-                         (if (= (vector-length #{y 15142}#) 4)
-                           (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
+                     (vector-ref #{x 14677}# 1)
+                     #{x 14677}#)
+                   (if (if (vector? #{y 14678}#)
+                         (if (= (vector-length #{y 14678}#) 4)
+                           (eq? (vector-ref #{y 14678}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (vector-ref #{y 15142}# 1)
-                     #{y 15142}#))
-            (eq? (#{id-var-name 4320}# #{x 15141}# '(()))
-                 (#{id-var-name 4320}# #{y 15142}# '(())))
+                     (vector-ref #{y 14678}# 1)
+                     #{y 14678}#))
+            (eq? (#{id-var-name 4321}# #{x 14677}# '(()))
+                 (#{id-var-name 4321}# #{y 14678}# '(())))
             #f))))
     (set! bound-identifier=?
-      (lambda (#{x 15292}# #{y 15293}#)
+      (lambda (#{x 14828}# #{y 14829}#)
         (begin
-          (if (not (if (if (vector? #{x 15292}#)
-                         (if (= (vector-length #{x 15292}#) 4)
-                           (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
+          (if (not (if (if (vector? #{x 14828}#)
+                         (if (= (vector-length #{x 14828}#) 4)
+                           (eq? (vector-ref #{x 14828}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{x 15292}# 1))
+                     (symbol? (vector-ref #{x 14828}# 1))
                      #f))
             (syntax-violation
               'bound-identifier=?
               "invalid argument"
-              #{x 15292}#))
-          (if (not (if (if (vector? #{y 15293}#)
-                         (if (= (vector-length #{y 15293}#) 4)
-                           (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
+              #{x 14828}#))
+          (if (not (if (if (vector? #{y 14829}#)
+                         (if (= (vector-length #{y 14829}#) 4)
+                           (eq? (vector-ref #{y 14829}# 0) 'syntax-object)
                            #f)
                          #f)
-                     (symbol? (vector-ref #{y 15293}# 1))
+                     (symbol? (vector-ref #{y 14829}# 1))
                      #f))
             (syntax-violation
               'bound-identifier=?
               "invalid argument"
-              #{y 15293}#))
-          (if (if (if (vector? #{x 15292}#)
-                    (if (= (vector-length #{x 15292}#) 4)
-                      (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
+              #{y 14829}#))
+          (if (if (if (vector? #{x 14828}#)
+                    (if (= (vector-length #{x 14828}#) 4)
+                      (eq? (vector-ref #{x 14828}# 0) 'syntax-object)
                       #f)
                     #f)
-                (if (vector? #{y 15293}#)
-                  (if (= (vector-length #{y 15293}#) 4)
-                    (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
+                (if (vector? #{y 14829}#)
+                  (if (= (vector-length #{y 14829}#) 4)
+                    (eq? (vector-ref #{y 14829}# 0) 'syntax-object)
                     #f)
                   #f)
                 #f)
-            (if (eq? (vector-ref #{x 15292}# 1)
-                     (vector-ref #{y 15293}# 1))
-              (#{same-marks? 4319}#
-                (car (vector-ref #{x 15292}# 2))
-                (car (vector-ref #{y 15293}# 2)))
+            (if (eq? (vector-ref #{x 14828}# 1)
+                     (vector-ref #{y 14829}# 1))
+              (#{same-marks? 4320}#
+                (car (vector-ref #{x 14828}# 2))
+                (car (vector-ref #{y 14829}# 2)))
               #f)
-            (eq? #{x 15292}# #{y 15293}#)))))
+            (eq? #{x 14828}# #{y 14829}#)))))
     (set! syntax-violation
       (lambda*
-        (#{who 15426}#
-          #{message 15427}#
-          #{form 15428}#
+        (#{who 14962}#
+          #{message 14963}#
+          #{form 14964}#
           #:optional
-          (#{subform 15429}# #f))
+          (#{subform 14965}# #f))
         (begin
-          (if (not (if (not #{who 15426}#)
-                     (not #{who 15426}#)
-                     (let ((#{t 15447}# (string? #{who 15426}#)))
-                       (if #{t 15447}#
-                         #{t 15447}#
-                         (symbol? #{who 15426}#)))))
+          (if (not (if (not #{who 14962}#)
+                     (not #{who 14962}#)
+                     (let ((#{t 14983}# (string? #{who 14962}#)))
+                       (if #{t 14983}#
+                         #{t 14983}#
+                         (symbol? #{who 14962}#)))))
             (syntax-violation
               'syntax-violation
               "invalid argument"
-              #{who 15426}#))
-          (if (not (string? #{message 15427}#))
+              #{who 14962}#))
+          (if (not (string? #{message 14963}#))
             (syntax-violation
               'syntax-violation
               "invalid argument"
-              #{message 15427}#))
+              #{message 14963}#))
           (throw 'syntax-error
-                 #{who 15426}#
-                 #{message 15427}#
-                 (#{source-annotation 4294}#
-                   (if #{form 15428}#
-                     #{form 15428}#
-                     #{subform 15429}#))
-                 (#{strip 4346}# #{form 15428}# '(()))
-                 (if #{subform 15429}#
-                   (#{strip 4346}# #{subform 15429}# '(()))
+                 #{who 14962}#
+                 #{message 14963}#
+                 (#{source-annotation 4295}#
+                   (if #{form 14964}#
+                     #{form 14964}#
+                     #{subform 14965}#))
+                 (#{strip 4347}# #{form 14964}# '(()))
+                 (if #{subform 14965}#
+                   (#{strip 4347}# #{subform 14965}# '(()))
                    #f)))))
     (letrec*
-      ((#{match-each 15670}#
-         (lambda (#{e 16293}#
-                  #{p 16294}#
-                  #{w 16295}#
-                  #{mod 16296}#)
-           (if (pair? #{e 16293}#)
-             (let ((#{first 16297}#
-                     (#{match 15676}#
-                       (car #{e 16293}#)
-                       #{p 16294}#
-                       #{w 16295}#
+      ((#{match-each 15186}#
+         (lambda (#{e 15773}#
+                  #{p 15774}#
+                  #{w 15775}#
+                  #{mod 15776}#)
+           (if (pair? #{e 15773}#)
+             (let ((#{first 15777}#
+                     (#{match 15192}#
+                       (car #{e 15773}#)
+                       #{p 15774}#
+                       #{w 15775}#
                        '()
-                       #{mod 16296}#)))
-               (if #{first 16297}#
-                 (let ((#{rest 16300}#
-                         (#{match-each 15670}#
-                           (cdr #{e 16293}#)
-                           #{p 16294}#
-                           #{w 16295}#
-                           #{mod 16296}#)))
-                   (if #{rest 16300}#
-                     (cons #{first 16297}# #{rest 16300}#)
+                       #{mod 15776}#)))
+               (if #{first 15777}#
+                 (let ((#{rest 15780}#
+                         (#{match-each 15186}#
+                           (cdr #{e 15773}#)
+                           #{p 15774}#
+                           #{w 15775}#
+                           #{mod 15776}#)))
+                   (if #{rest 15780}#
+                     (cons #{first 15777}# #{rest 15780}#)
                      #f))
                  #f))
-             (if (null? #{e 16293}#)
+             (if (null? #{e 15773}#)
                '()
-               (if (if (vector? #{e 16293}#)
-                     (if (= (vector-length #{e 16293}#) 4)
-                       (eq? (vector-ref #{e 16293}# 0) 'syntax-object)
+               (if (if (vector? #{e 15773}#)
+                     (if (= (vector-length #{e 15773}#) 4)
+                       (eq? (vector-ref #{e 15773}# 0) 'syntax-object)
                        #f)
                      #f)
-                 (#{match-each 15670}#
-                   (vector-ref #{e 16293}# 1)
-                   #{p 16294}#
-                   (#{join-wraps 4317}#
-                     #{w 16295}#
-                     (vector-ref #{e 16293}# 2))
-                   (vector-ref #{e 16293}# 3))
+                 (#{match-each 15186}#
+                   (vector-ref #{e 15773}# 1)
+                   #{p 15774}#
+                   (#{join-wraps 4318}#
+                     #{w 15775}#
+                     (vector-ref #{e 15773}# 2))
+                   (vector-ref #{e 15773}# 3))
                  #f)))))
-       (#{match-each-any 15672}#
-         (lambda (#{e 16328}# #{w 16329}# #{mod 16330}#)
-           (if (pair? #{e 16328}#)
-             (let ((#{l 16331}#
-                     (#{match-each-any 15672}#
-                       (cdr #{e 16328}#)
-                       #{w 16329}#
-                       #{mod 16330}#)))
-               (if #{l 16331}#
-                 (cons (#{wrap 4326}#
-                         (car #{e 16328}#)
-                         #{w 16329}#
-                         #{mod 16330}#)
-                       #{l 16331}#)
+       (#{match-each-any 15188}#
+         (lambda (#{e 15808}# #{w 15809}# #{mod 15810}#)
+           (if (pair? #{e 15808}#)
+             (let ((#{l 15811}#
+                     (#{match-each-any 15188}#
+                       (cdr #{e 15808}#)
+                       #{w 15809}#
+                       #{mod 15810}#)))
+               (if #{l 15811}#
+                 (cons (#{wrap 4327}#
+                         (car #{e 15808}#)
+                         #{w 15809}#
+                         #{mod 15810}#)
+                       #{l 15811}#)
                  #f))
-             (if (null? #{e 16328}#)
+             (if (null? #{e 15808}#)
                '()
-               (if (if (vector? #{e 16328}#)
-                     (if (= (vector-length #{e 16328}#) 4)
-                       (eq? (vector-ref #{e 16328}# 0) 'syntax-object)
+               (if (if (vector? #{e 15808}#)
+                     (if (= (vector-length #{e 15808}#) 4)
+                       (eq? (vector-ref #{e 15808}# 0) 'syntax-object)
                        #f)
                      #f)
-                 (#{match-each-any 15672}#
-                   (vector-ref #{e 16328}# 1)
-                   (#{join-wraps 4317}#
-                     #{w 16329}#
-                     (vector-ref #{e 16328}# 2))
-                   #{mod 16330}#)
+                 (#{match-each-any 15188}#
+                   (vector-ref #{e 15808}# 1)
+                   (#{join-wraps 4318}#
+                     #{w 15809}#
+                     (vector-ref #{e 15808}# 2))
+                   #{mod 15810}#)
                  #f)))))
-       (#{match-empty 15673}#
-         (lambda (#{p 16355}# #{r 16356}#)
-           (if (null? #{p 16355}#)
-             #{r 16356}#
-             (if (eq? #{p 16355}# '_)
-               #{r 16356}#
-               (if (eq? #{p 16355}# 'any)
-                 (cons '() #{r 16356}#)
-                 (if (pair? #{p 16355}#)
-                   (#{match-empty 15673}#
-                     (car #{p 16355}#)
-                     (#{match-empty 15673}#
-                       (cdr #{p 16355}#)
-                       #{r 16356}#))
-                   (if (eq? #{p 16355}# 'each-any)
-                     (cons '() #{r 16356}#)
-                     (let ((#{atom-key 16357}# (vector-ref #{p 16355}# 0)))
-                       (if (eqv? #{atom-key 16357}# 'each)
-                         (#{match-empty 15673}#
-                           (vector-ref #{p 16355}# 1)
-                           #{r 16356}#)
-                         (if (eqv? #{atom-key 16357}# 'each+)
-                           (#{match-empty 15673}#
-                             (vector-ref #{p 16355}# 1)
-                             (#{match-empty 15673}#
-                               (reverse (vector-ref #{p 16355}# 2))
-                               (#{match-empty 15673}#
-                                 (vector-ref #{p 16355}# 3)
-                                 #{r 16356}#)))
-                           (if (if (eqv? #{atom-key 16357}# 'free-id)
+       (#{match-empty 15189}#
+         (lambda (#{p 15835}# #{r 15836}#)
+           (if (null? #{p 15835}#)
+             #{r 15836}#
+             (if (eq? #{p 15835}# '_)
+               #{r 15836}#
+               (if (eq? #{p 15835}# 'any)
+                 (cons '() #{r 15836}#)
+                 (if (pair? #{p 15835}#)
+                   (#{match-empty 15189}#
+                     (car #{p 15835}#)
+                     (#{match-empty 15189}#
+                       (cdr #{p 15835}#)
+                       #{r 15836}#))
+                   (if (eq? #{p 15835}# 'each-any)
+                     (cons '() #{r 15836}#)
+                     (let ((#{atom-key 15837}# (vector-ref #{p 15835}# 0)))
+                       (if (eqv? #{atom-key 15837}# 'each)
+                         (#{match-empty 15189}#
+                           (vector-ref #{p 15835}# 1)
+                           #{r 15836}#)
+                         (if (eqv? #{atom-key 15837}# 'each+)
+                           (#{match-empty 15189}#
+                             (vector-ref #{p 15835}# 1)
+                             (#{match-empty 15189}#
+                               (reverse (vector-ref #{p 15835}# 2))
+                               (#{match-empty 15189}#
+                                 (vector-ref #{p 15835}# 3)
+                                 #{r 15836}#)))
+                           (if (if (eqv? #{atom-key 15837}# 'free-id)
                                  #t
-                                 (eqv? #{atom-key 16357}# 'atom))
-                             #{r 16356}#
-                             (if (eqv? #{atom-key 16357}# 'vector)
-                               (#{match-empty 15673}#
-                                 (vector-ref #{p 16355}# 1)
-                                 #{r 16356}#)))))))))))))
-       (#{combine 15674}#
-         (lambda (#{r* 16376}# #{r 16377}#)
-           (if (null? (car #{r* 16376}#))
-             #{r 16377}#
-             (cons (map car #{r* 16376}#)
-                   (#{combine 15674}#
-                     (map cdr #{r* 16376}#)
-                     #{r 16377}#)))))
-       (#{match* 15675}#
-         (lambda (#{e 15705}#
-                  #{p 15706}#
-                  #{w 15707}#
-                  #{r 15708}#
-                  #{mod 15709}#)
-           (if (null? #{p 15706}#)
-             (if (null? #{e 15705}#) #{r 15708}# #f)
-             (if (pair? #{p 15706}#)
-               (if (pair? #{e 15705}#)
-                 (#{match 15676}#
-                   (car #{e 15705}#)
-                   (car #{p 15706}#)
-                   #{w 15707}#
-                   (#{match 15676}#
-                     (cdr #{e 15705}#)
-                     (cdr #{p 15706}#)
-                     #{w 15707}#
-                     #{r 15708}#
-                     #{mod 15709}#)
-                   #{mod 15709}#)
+                                 (eqv? #{atom-key 15837}# 'atom))
+                             #{r 15836}#
+                             (if (eqv? #{atom-key 15837}# 'vector)
+                               (#{match-empty 15189}#
+                                 (vector-ref #{p 15835}# 1)
+                                 #{r 15836}#)))))))))))))
+       (#{combine 15190}#
+         (lambda (#{r* 15856}# #{r 15857}#)
+           (if (null? (car #{r* 15856}#))
+             #{r 15857}#
+             (cons (map car #{r* 15856}#)
+                   (#{combine 15190}#
+                     (map cdr #{r* 15856}#)
+                     #{r 15857}#)))))
+       (#{match* 15191}#
+         (lambda (#{e 15221}#
+                  #{p 15222}#
+                  #{w 15223}#
+                  #{r 15224}#
+                  #{mod 15225}#)
+           (if (null? #{p 15222}#)
+             (if (null? #{e 15221}#) #{r 15224}# #f)
+             (if (pair? #{p 15222}#)
+               (if (pair? #{e 15221}#)
+                 (#{match 15192}#
+                   (car #{e 15221}#)
+                   (car #{p 15222}#)
+                   #{w 15223}#
+                   (#{match 15192}#
+                     (cdr #{e 15221}#)
+                     (cdr #{p 15222}#)
+                     #{w 15223}#
+                     #{r 15224}#
+                     #{mod 15225}#)
+                   #{mod 15225}#)
                  #f)
-               (if (eq? #{p 15706}# 'each-any)
-                 (let ((#{l 15714}#
-                         (#{match-each-any 15672}#
-                           #{e 15705}#
-                           #{w 15707}#
-                           #{mod 15709}#)))
-                   (if #{l 15714}#
-                     (cons #{l 15714}# #{r 15708}#)
+               (if (eq? #{p 15222}# 'each-any)
+                 (let ((#{l 15230}#
+                         (#{match-each-any 15188}#
+                           #{e 15221}#
+                           #{w 15223}#
+                           #{mod 15225}#)))
+                   (if #{l 15230}#
+                     (cons #{l 15230}# #{r 15224}#)
                      #f))
-                 (let ((#{atom-key 15719}# (vector-ref #{p 15706}# 0)))
-                   (if (eqv? #{atom-key 15719}# 'each)
-                     (if (null? #{e 15705}#)
-                       (#{match-empty 15673}#
-                         (vector-ref #{p 15706}# 1)
-                         #{r 15708}#)
-                       (let ((#{l 15726}#
-                               (#{match-each 15670}#
-                                 #{e 15705}#
-                                 (vector-ref #{p 15706}# 1)
-                                 #{w 15707}#
-                                 #{mod 15709}#)))
-                         (if #{l 15726}#
+                 (let ((#{atom-key 15235}# (vector-ref #{p 15222}# 0)))
+                   (if (eqv? #{atom-key 15235}# 'each)
+                     (if (null? #{e 15221}#)
+                       (#{match-empty 15189}#
+                         (vector-ref #{p 15222}# 1)
+                         #{r 15224}#)
+                       (let ((#{l 15242}#
+                               (#{match-each 15186}#
+                                 #{e 15221}#
+                                 (vector-ref #{p 15222}# 1)
+                                 #{w 15223}#
+                                 #{mod 15225}#)))
+                         (if #{l 15242}#
                            (letrec*
-                             ((#{collect 15729}#
-                                (lambda (#{l 15782}#)
-                                  (if (null? (car #{l 15782}#))
-                                    #{r 15708}#
-                                    (cons (map car #{l 15782}#)
-                                          (#{collect 15729}#
-                                            (map cdr #{l 15782}#)))))))
-                             (#{collect 15729}# #{l 15726}#))
+                             ((#{collect 15245}#
+                                (lambda (#{l 15296}#)
+                                  (if (null? (car #{l 15296}#))
+                                    #{r 15224}#
+                                    (cons (map car #{l 15296}#)
+                                          (#{collect 15245}#
+                                            (map cdr #{l 15296}#)))))))
+                             (#{collect 15245}# #{l 15242}#))
                            #f)))
-                     (if (eqv? #{atom-key 15719}# 'each+)
+                     (if (eqv? #{atom-key 15235}# 'each+)
                        (call-with-values
                          (lambda ()
-                           (let ((#{x-pat 15791}# (vector-ref #{p 15706}# 1))
-                                 (#{y-pat 15792}# (vector-ref #{p 15706}# 2))
-                                 (#{z-pat 15793}# (vector-ref #{p 15706}# 3)))
+                           (let ((#{x-pat 15305}# (vector-ref #{p 15222}# 1))
+                                 (#{y-pat 15306}# (vector-ref #{p 15222}# 2))
+                                 (#{z-pat 15307}# (vector-ref #{p 15222}# 3)))
                              (letrec*
-                               ((#{f 15797}#
-                                  (lambda (#{e 15799}# #{w 15800}#)
-                                    (if (pair? #{e 15799}#)
+                               ((#{f 15311}#
+                                  (lambda (#{e 15313}# #{w 15314}#)
+                                    (if (pair? #{e 15313}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{f 15797}#
-                                            (cdr #{e 15799}#)
-                                            #{w 15800}#))
-                                        (lambda (#{xr* 15801}#
-                                                 #{y-pat 15802}#
-                                                 #{r 15803}#)
-                                          (if #{r 15803}#
-                                            (if (null? #{y-pat 15802}#)
-                                              (let ((#{xr 15804}#
-                                                      (#{match 15676}#
-                                                        (car #{e 15799}#)
-                                                        #{x-pat 15791}#
-                                                        #{w 15800}#
+                                          (#{f 15311}#
+                                            (cdr #{e 15313}#)
+                                            #{w 15314}#))
+                                        (lambda (#{xr* 15315}#
+                                                 #{y-pat 15316}#
+                                                 #{r 15317}#)
+                                          (if #{r 15317}#
+                                            (if (null? #{y-pat 15316}#)
+                                              (let ((#{xr 15318}#
+                                                      (#{match 15192}#
+                                                        (car #{e 15313}#)
+                                                        #{x-pat 15305}#
+                                                        #{w 15314}#
                                                         '()
-                                                        #{mod 15709}#)))
-                                                (if #{xr 15804}#
+                                                        #{mod 15225}#)))
+                                                (if #{xr 15318}#
                                                   (values
-                                                    (cons #{xr 15804}#
-                                                          #{xr* 15801}#)
-                                                    #{y-pat 15802}#
-                                                    #{r 15803}#)
+                                                    (cons #{xr 15318}#
+                                                          #{xr* 15315}#)
+                                                    #{y-pat 15316}#
+                                                    #{r 15317}#)
                                                   (values #f #f #f)))
                                               (values
                                                 '()
-                                                (cdr #{y-pat 15802}#)
-                                                (#{match 15676}#
-                                                  (car #{e 15799}#)
-                                                  (car #{y-pat 15802}#)
-                                                  #{w 15800}#
-                                                  #{r 15803}#
-                                                  #{mod 15709}#)))
+                                                (cdr #{y-pat 15316}#)
+                                                (#{match 15192}#
+                                                  (car #{e 15313}#)
+                                                  (car #{y-pat 15316}#)
+                                                  #{w 15314}#
+                                                  #{r 15317}#
+                                                  #{mod 15225}#)))
                                             (values #f #f #f))))
-                                      (if (if (vector? #{e 15799}#)
-                                            (if (= (vector-length #{e 15799}#)
+                                      (if (if (vector? #{e 15313}#)
+                                            (if (= (vector-length #{e 15313}#)
                                                    4)
-                                              (eq? (vector-ref #{e 15799}# 0)
+                                              (eq? (vector-ref #{e 15313}# 0)
                                                    'syntax-object)
                                               #f)
                                             #f)
-                                        (#{f 15797}#
-                                          (vector-ref #{e 15799}# 1)
-                                          (#{join-wraps 4317}#
-                                            #{w 15800}#
-                                            #{e 15799}#))
+                                        (#{f 15311}#
+                                          (vector-ref #{e 15313}# 1)
+                                          (#{join-wraps 4318}#
+                                            #{w 15314}#
+                                            #{e 15313}#))
                                         (values
                                           '()
-                                          #{y-pat 15792}#
-                                          (#{match 15676}#
-                                            #{e 15799}#
-                                            #{z-pat 15793}#
-                                            #{w 15800}#
-                                            #{r 15708}#
-                                            #{mod 15709}#)))))))
-                               (#{f 15797}# #{e 15705}# #{w 15707}#))))
-                         (lambda (#{xr* 15832}# #{y-pat 15833}# #{r 15834}#)
-                           (if #{r 15834}#
-                             (if (null? #{y-pat 15833}#)
-                               (if (null? #{xr* 15832}#)
-                                 (#{match-empty 15673}#
-                                   (vector-ref #{p 15706}# 1)
-                                   #{r 15834}#)
-                                 (#{combine 15674}# #{xr* 15832}# #{r 15834}#))
+                                          #{y-pat 15306}#
+                                          (#{match 15192}#
+                                            #{e 15313}#
+                                            #{z-pat 15307}#
+                                            #{w 15314}#
+                                            #{r 15224}#
+                                            #{mod 15225}#)))))))
+                               (#{f 15311}# #{e 15221}# #{w 15223}#))))
+                         (lambda (#{xr* 15344}# #{y-pat 15345}# #{r 15346}#)
+                           (if #{r 15346}#
+                             (if (null? #{y-pat 15345}#)
+                               (if (null? #{xr* 15344}#)
+                                 (#{match-empty 15189}#
+                                   (vector-ref #{p 15222}# 1)
+                                   #{r 15346}#)
+                                 (#{combine 15190}# #{xr* 15344}# #{r 15346}#))
                                #f)
                              #f)))
-                       (if (eqv? #{atom-key 15719}# 'free-id)
-                         (if (if (symbol? #{e 15705}#)
+                       (if (eqv? #{atom-key 15235}# 'free-id)
+                         (if (if (symbol? #{e 15221}#)
                                #t
-                               (if (if (vector? #{e 15705}#)
-                                     (if (= (vector-length #{e 15705}#) 4)
-                                       (eq? (vector-ref #{e 15705}# 0)
+                               (if (if (vector? #{e 15221}#)
+                                     (if (= (vector-length #{e 15221}#) 4)
+                                       (eq? (vector-ref #{e 15221}# 0)
                                             'syntax-object)
                                        #f)
                                      #f)
-                                 (symbol? (vector-ref #{e 15705}# 1))
+                                 (symbol? (vector-ref #{e 15221}# 1))
                                  #f))
-                           (if (let ((#{i 16197}#
-                                       (#{wrap 4326}#
-                                         #{e 15705}#
-                                         #{w 15707}#
-                                         #{mod 15709}#))
-                                     (#{j 16198}# (vector-ref #{p 15706}# 1)))
-                                 (if (eq? (if (if (vector? #{i 16197}#)
+                           (if (let ((#{i 15677}#
+                                       (#{wrap 4327}#
+                                         #{e 15221}#
+                                         #{w 15223}#
+                                         #{mod 15225}#))
+                                     (#{j 15678}# (vector-ref #{p 15222}# 1)))
+                                 (if (eq? (if (if (vector? #{i 15677}#)
                                                 (if (= (vector-length
-                                                         #{i 16197}#)
+                                                         #{i 15677}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{i 16197}#
+                                                         #{i 15677}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (vector-ref #{i 16197}# 1)
-                                            #{i 16197}#)
-                                          (if (if (vector? #{j 16198}#)
+                                            (vector-ref #{i 15677}# 1)
+                                            #{i 15677}#)
+                                          (if (if (vector? #{j 15678}#)
                                                 (if (= (vector-length
-                                                         #{j 16198}#)
+                                                         #{j 15678}#)
                                                        4)
                                                   (eq? (vector-ref
-                                                         #{j 16198}#
+                                                         #{j 15678}#
                                                          0)
                                                        'syntax-object)
                                                   #f)
                                                 #f)
-                                            (vector-ref #{j 16198}# 1)
-                                            #{j 16198}#))
-                                   (eq? (#{id-var-name 4320}#
-                                          #{i 16197}#
+                                            (vector-ref #{j 15678}# 1)
+                                            #{j 15678}#))
+                                   (eq? (#{id-var-name 4321}#
+                                          #{i 15677}#
                                           '(()))
-                                        (#{id-var-name 4320}#
-                                          #{j 16198}#
+                                        (#{id-var-name 4321}#
+                                          #{j 15678}#
                                           '(())))
                                    #f))
-                             #{r 15708}#
+                             #{r 15224}#
                              #f)
                            #f)
-                         (if (eqv? #{atom-key 15719}# 'atom)
+                         (if (eqv? #{atom-key 15235}# 'atom)
                            (if (equal?
-                                 (vector-ref #{p 15706}# 1)
-                                 (#{strip 4346}# #{e 15705}# #{w 15707}#))
-                             #{r 15708}#
+                                 (vector-ref #{p 15222}# 1)
+                                 (#{strip 4347}# #{e 15221}# #{w 15223}#))
+                             #{r 15224}#
                              #f)
-                           (if (eqv? #{atom-key 15719}# 'vector)
-                             (if (vector? #{e 15705}#)
-                               (#{match 15676}#
-                                 (vector->list #{e 15705}#)
-                                 (vector-ref #{p 15706}# 1)
-                                 #{w 15707}#
-                                 #{r 15708}#
-                                 #{mod 15709}#)
+                           (if (eqv? #{atom-key 15235}# 'vector)
+                             (if (vector? #{e 15221}#)
+                               (#{match 15192}#
+                                 (vector->list #{e 15221}#)
+                                 (vector-ref #{p 15222}# 1)
+                                 #{w 15223}#
+                                 #{r 15224}#
+                                 #{mod 15225}#)
                                #f))))))))))))
-       (#{match 15676}#
-         (lambda (#{e 16258}#
-                  #{p 16259}#
-                  #{w 16260}#
-                  #{r 16261}#
-                  #{mod 16262}#)
-           (if (not #{r 16261}#)
+       (#{match 15192}#
+         (lambda (#{e 15738}#
+                  #{p 15739}#
+                  #{w 15740}#
+                  #{r 15741}#
+                  #{mod 15742}#)
+           (if (not #{r 15741}#)
              #f
-             (if (eq? #{p 16259}# '_)
-               #{r 16261}#
-               (if (eq? #{p 16259}# 'any)
-                 (cons (#{wrap 4326}#
-                         #{e 16258}#
-                         #{w 16260}#
-                         #{mod 16262}#)
-                       #{r 16261}#)
-                 (if (if (vector? #{e 16258}#)
-                       (if (= (vector-length #{e 16258}#) 4)
-                         (eq? (vector-ref #{e 16258}# 0) 'syntax-object)
+             (if (eq? #{p 15739}# '_)
+               #{r 15741}#
+               (if (eq? #{p 15739}# 'any)
+                 (cons (#{wrap 4327}#
+                         #{e 15738}#
+                         #{w 15740}#
+                         #{mod 15742}#)
+                       #{r 15741}#)
+                 (if (if (vector? #{e 15738}#)
+                       (if (= (vector-length #{e 15738}#) 4)
+                         (eq? (vector-ref #{e 15738}# 0) 'syntax-object)
                          #f)
                        #f)
-                   (#{match* 15675}#
-                     (vector-ref #{e 16258}# 1)
-                     #{p 16259}#
-                     (#{join-wraps 4317}#
-                       #{w 16260}#
-                       (vector-ref #{e 16258}# 2))
-                     #{r 16261}#
-                     (vector-ref #{e 16258}# 3))
-                   (#{match* 15675}#
-                     #{e 16258}#
-                     #{p 16259}#
-                     #{w 16260}#
-                     #{r 16261}#
-                     #{mod 16262}#))))))))
+                   (#{match* 15191}#
+                     (vector-ref #{e 15738}# 1)
+                     #{p 15739}#
+                     (#{join-wraps 4318}#
+                       #{w 15740}#
+                       (vector-ref #{e 15738}# 2))
+                     #{r 15741}#
+                     (vector-ref #{e 15738}# 3))
+                   (#{match* 15191}#
+                     #{e 15738}#
+                     #{p 15739}#
+                     #{w 15740}#
+                     #{r 15741}#
+                     #{mod 15742}#))))))))
       (set! $sc-dispatch
-        (lambda (#{e 15677}# #{p 15678}#)
-          (if (eq? #{p 15678}# 'any)
-            (list #{e 15677}#)
-            (if (eq? #{p 15678}# '_)
+        (lambda (#{e 15193}# #{p 15194}#)
+          (if (eq? #{p 15194}# 'any)
+            (list #{e 15193}#)
+            (if (eq? #{p 15194}# '_)
               '()
-              (if (if (vector? #{e 15677}#)
-                    (if (= (vector-length #{e 15677}#) 4)
-                      (eq? (vector-ref #{e 15677}# 0) 'syntax-object)
+              (if (if (vector? #{e 15193}#)
+                    (if (= (vector-length #{e 15193}#) 4)
+                      (eq? (vector-ref #{e 15193}# 0) 'syntax-object)
                       #f)
                     #f)
-                (#{match* 15675}#
-                  (vector-ref #{e 15677}# 1)
-                  #{p 15678}#
-                  (vector-ref #{e 15677}# 2)
+                (#{match* 15191}#
+                  (vector-ref #{e 15193}# 1)
+                  #{p 15194}#
+                  (vector-ref #{e 15193}# 2)
                   '()
-                  (vector-ref #{e 15677}# 3))
-                (#{match* 15675}#
-                  #{e 15677}#
-                  #{p 15678}#
+                  (vector-ref #{e 15193}# 3))
+                (#{match* 15191}#
+                  #{e 15193}#
+                  #{p 15194}#
                   '(())
                   '()
                   #f)))))))))
@@ -21818,82 +21975,82 @@
   (make-syntax-transformer
     'with-syntax
     'macro
-    (lambda (#{x 28920}#)
-      (let ((#{tmp 28922}#
-              ($sc-dispatch #{x 28920}# '(_ () any . each-any))))
-        (if #{tmp 28922}#
+    (lambda (#{x 27949}#)
+      (let ((#{tmp 27951}#
+              ($sc-dispatch #{x 27949}# '(_ () any . each-any))))
+        (if #{tmp 27951}#
           (@apply
-            (lambda (#{e1 28926}# #{e2 28927}#)
+            (lambda (#{e1 27955}# #{e2 27956}#)
               (cons '#(syntax-object
                        let
                        ((top)
                         #(ribcage
                           #(e1 e2)
                           #((top) (top))
-                          #("i28893" "i28894"))
+                          #("i27922" "i27923"))
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i28890")))
+                        #(ribcage #(x) #((top)) #("i27919")))
                        (hygiene guile))
-                    (cons '() (cons #{e1 28926}# #{e2 28927}#))))
-            #{tmp 28922}#)
-          (let ((#{tmp 28928}#
+                    (cons '() (cons #{e1 27955}# #{e2 27956}#))))
+            #{tmp 27951}#)
+          (let ((#{tmp 27957}#
                   ($sc-dispatch
-                    #{x 28920}#
+                    #{x 27949}#
                     '(_ ((any any)) any . each-any))))
-            (if #{tmp 28928}#
+            (if #{tmp 27957}#
               (@apply
-                (lambda (#{out 28932}#
-                         #{in 28933}#
-                         #{e1 28934}#
-                         #{e2 28935}#)
+                (lambda (#{out 27961}#
+                         #{in 27962}#
+                         #{e1 27963}#
+                         #{e2 27964}#)
                   (list '#(syntax-object
                            syntax-case
                            ((top)
                             #(ribcage
                               #(out in e1 e2)
                               #((top) (top) (top) (top))
-                              #("i28899" "i28900" "i28901" "i28902"))
+                              #("i27928" "i27929" "i27930" "i27931"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i28890")))
+                            #(ribcage #(x) #((top)) #("i27919")))
                            (hygiene guile))
-                        #{in 28933}#
+                        #{in 27962}#
                         '()
-                        (list #{out 28932}#
+                        (list #{out 27961}#
                               (cons '#(syntax-object
                                        let
                                        ((top)
                                         #(ribcage
                                           #(out in e1 e2)
                                           #((top) (top) (top) (top))
-                                          #("i28899"
-                                            "i28900"
-                                            "i28901"
-                                            "i28902"))
+                                          #("i27928"
+                                            "i27929"
+                                            "i27930"
+                                            "i27931"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i28890")))
+                                        #(ribcage #(x) #((top)) #("i27919")))
                                        (hygiene guile))
                                     (cons '()
-                                          (cons #{e1 28934}# #{e2 28935}#))))))
-                #{tmp 28928}#)
-              (let ((#{tmp 28936}#
+                                          (cons #{e1 27963}# #{e2 27964}#))))))
+                #{tmp 27957}#)
+              (let ((#{tmp 27965}#
                       ($sc-dispatch
-                        #{x 28920}#
+                        #{x 27949}#
                         '(_ #(each (any any)) any . each-any))))
-                (if #{tmp 28936}#
+                (if #{tmp 27965}#
                   (@apply
-                    (lambda (#{out 28940}#
-                             #{in 28941}#
-                             #{e1 28942}#
-                             #{e2 28943}#)
+                    (lambda (#{out 27969}#
+                             #{in 27970}#
+                             #{e1 27971}#
+                             #{e2 27972}#)
                       (list '#(syntax-object
                                syntax-case
                                ((top)
                                 #(ribcage
                                   #(out in e1 e2)
                                   #((top) (top) (top) (top))
-                                  #("i28909" "i28910" "i28911" "i28912"))
+                                  #("i27938" "i27939" "i27940" "i27941"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i28890")))
+                                #(ribcage #(x) #((top)) #("i27919")))
                                (hygiene guile))
                             (cons '#(syntax-object
                                      list
@@ -21901,62 +22058,62 @@
                                       #(ribcage
                                         #(out in e1 e2)
                                         #((top) (top) (top) (top))
-                                        #("i28909" "i28910" "i28911" "i28912"))
+                                        #("i27938" "i27939" "i27940" "i27941"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i28890")))
+                                      #(ribcage #(x) #((top)) #("i27919")))
                                      (hygiene guile))
-                                  #{in 28941}#)
+                                  #{in 27970}#)
                             '()
-                            (list #{out 28940}#
+                            (list #{out 27969}#
                                   (cons '#(syntax-object
                                            let
                                            ((top)
                                             #(ribcage
                                               #(out in e1 e2)
                                               #((top) (top) (top) (top))
-                                              #("i28909"
-                                                "i28910"
-                                                "i28911"
-                                                "i28912"))
+                                              #("i27938"
+                                                "i27939"
+                                                "i27940"
+                                                "i27941"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
-                                              #("i28890")))
+                                              #("i27919")))
                                            (hygiene guile))
                                         (cons '()
-                                              (cons #{e1 28942}#
-                                                    #{e2 28943}#))))))
-                    #{tmp 28936}#)
+                                              (cons #{e1 27971}#
+                                                    #{e2 27972}#))))))
+                    #{tmp 27965}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{x 28920}#))))))))))
+                    #{x 27949}#))))))))))
 
 (define syntax-rules
   (make-syntax-transformer
     'syntax-rules
     'macro
-    (lambda (#{x 28997}#)
-      (let ((#{tmp 28999}#
+    (lambda (#{x 28026}#)
+      (let ((#{tmp 28028}#
               ($sc-dispatch
-                #{x 28997}#
+                #{x 28026}#
                 '(_ each-any . #(each ((any . any) any))))))
-        (if #{tmp 28999}#
+        (if #{tmp 28028}#
           (@apply
-            (lambda (#{k 29003}#
-                     #{keyword 29004}#
-                     #{pattern 29005}#
-                     #{template 29006}#)
+            (lambda (#{k 28032}#
+                     #{keyword 28033}#
+                     #{pattern 28034}#
+                     #{template 28035}#)
               (list '#(syntax-object
                        lambda
                        ((top)
                         #(ribcage
                           #(k keyword pattern template)
                           #((top) (top) (top) (top))
-                          #("i28960" "i28961" "i28962" "i28963"))
+                          #("i27989" "i27990" "i27991" "i27992"))
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i28957")))
+                        #(ribcage #(x) #((top)) #("i27986")))
                        (hygiene guile))
                     '(#(syntax-object
                         x
@@ -21964,9 +22121,9 @@
                          #(ribcage
                            #(k keyword pattern template)
                            #((top) (top) (top) (top))
-                           #("i28960" "i28961" "i28962" "i28963"))
+                           #("i27989" "i27990" "i27991" "i27992"))
                          #(ribcage () () ())
-                         #(ribcage #(x) #((top)) #("i28957")))
+                         #(ribcage #(x) #((top)) #("i27986")))
                         (hygiene guile)))
                     (vector
                       '(#(syntax-object
@@ -21975,9 +22132,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i28960" "i28961" "i28962" "i28963"))
+                             #("i27989" "i27990" "i27991" "i27992"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i28957")))
+                           #(ribcage #(x) #((top)) #("i27986")))
                           (hygiene guile))
                         .
                         #(syntax-object
@@ -21986,9 +22143,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i28960" "i28961" "i28962" "i28963"))
+                             #("i27989" "i27990" "i27991" "i27992"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i28957")))
+                           #(ribcage #(x) #((top)) #("i27986")))
                           (hygiene guile)))
                       (cons '#(syntax-object
                                patterns
@@ -21996,20 +22153,20 @@
                                 #(ribcage
                                   #(k keyword pattern template)
                                   #((top) (top) (top) (top))
-                                  #("i28960" "i28961" "i28962" "i28963"))
+                                  #("i27989" "i27990" "i27991" "i27992"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i28957")))
+                                #(ribcage #(x) #((top)) #("i27986")))
                                (hygiene guile))
-                            #{pattern 29005}#))
+                            #{pattern 28034}#))
                     (cons '#(syntax-object
                              syntax-case
                              ((top)
                               #(ribcage
                                 #(k keyword pattern template)
                                 #((top) (top) (top) (top))
-                                #("i28960" "i28961" "i28962" "i28963"))
+                                #("i27989" "i27990" "i27991" "i27992"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i28957")))
+                              #(ribcage #(x) #((top)) #("i27986")))
                              (hygiene guile))
                           (cons '#(syntax-object
                                    x
@@ -22017,13 +22174,13 @@
                                     #(ribcage
                                       #(k keyword pattern template)
                                       #((top) (top) (top) (top))
-                                      #("i28960" "i28961" "i28962" "i28963"))
+                                      #("i27989" "i27990" "i27991" "i27992"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i28957")))
+                                    #(ribcage #(x) #((top)) #("i27986")))
                                    (hygiene guile))
-                                (cons #{k 29003}#
-                                      (map (lambda (#{tmp 28971 29007}#
-                                                    #{tmp 28970 29008}#)
+                                (cons #{k 28032}#
+                                      (map (lambda (#{tmp 28000 28036}#
+                                                    #{tmp 27999 28037}#)
                                              (list (cons '#(syntax-object
                                                             dummy
                                                             ((top)
@@ -22036,10 +22193,10 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                               #("i28960"
-                                                                 "i28961"
-                                                                 "i28962"
-                                                                 "i28963"))
+                                                               #("i27989"
+                                                                 "i27990"
+                                                                 "i27991"
+                                                                 "i27992"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -22047,9 +22204,9 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i28957")))
+                                                               #("i27986")))
                                                             (hygiene guile))
-                                                         #{tmp 28970 29008}#)
+                                                         #{tmp 27999 28037}#)
                                                    (list '#(syntax-object
                                                             syntax
                                                             ((top)
@@ -22062,10 +22219,10 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                               #("i28960"
-                                                                 "i28961"
-                                                                 "i28962"
-                                                                 "i28963"))
+                                                               #("i27989"
+                                                                 "i27990"
+                                                                 "i27991"
+                                                                 "i27992"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -22073,41 +22230,41 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i28957")))
+                                                               #("i27986")))
                                                             (hygiene guile))
-                                                         #{tmp 28971 29007}#)))
-                                           #{template 29006}#
-                                           #{pattern 29005}#))))))
-            #{tmp 28999}#)
-          (let ((#{tmp 29009}#
+                                                         #{tmp 28000 28036}#)))
+                                           #{template 28035}#
+                                           #{pattern 28034}#))))))
+            #{tmp 28028}#)
+          (let ((#{tmp 28038}#
                   ($sc-dispatch
-                    #{x 28997}#
+                    #{x 28026}#
                     '(_ each-any any . #(each ((any . any) any))))))
-            (if (if #{tmp 29009}#
+            (if (if #{tmp 28038}#
                   (@apply
-                    (lambda (#{k 29013}#
-                             #{docstring 29014}#
-                             #{keyword 29015}#
-                             #{pattern 29016}#
-                             #{template 29017}#)
-                      (string? (syntax->datum #{docstring 29014}#)))
-                    #{tmp 29009}#)
+                    (lambda (#{k 28042}#
+                             #{docstring 28043}#
+                             #{keyword 28044}#
+                             #{pattern 28045}#
+                             #{template 28046}#)
+                      (string? (syntax->datum #{docstring 28043}#)))
+                    #{tmp 28038}#)
                   #f)
               (@apply
-                (lambda (#{k 29018}#
-                         #{docstring 29019}#
-                         #{keyword 29020}#
-                         #{pattern 29021}#
-                         #{template 29022}#)
+                (lambda (#{k 28047}#
+                         #{docstring 28048}#
+                         #{keyword 28049}#
+                         #{pattern 28050}#
+                         #{template 28051}#)
                   (list '#(syntax-object
                            lambda
                            ((top)
                             #(ribcage
                               #(k docstring keyword pattern template)
                               #((top) (top) (top) (top) (top))
-                              #("i28983" "i28984" "i28985" "i28986" "i28987"))
+                              #("i28012" "i28013" "i28014" "i28015" "i28016"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i28957")))
+                            #(ribcage #(x) #((top)) #("i27986")))
                            (hygiene guile))
                         '(#(syntax-object
                             x
@@ -22115,11 +22272,11 @@
                              #(ribcage
                                #(k docstring keyword pattern template)
                                #((top) (top) (top) (top) (top))
-                               #("i28983" "i28984" "i28985" "i28986" "i28987"))
+                               #("i28012" "i28013" "i28014" "i28015" "i28016"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i28957")))
+                             #(ribcage #(x) #((top)) #("i27986")))
                             (hygiene guile)))
-                        #{docstring 29019}#
+                        #{docstring 28048}#
                         (vector
                           '(#(syntax-object
                               macro-type
@@ -22127,13 +22284,13 @@
                                #(ribcage
                                  #(k docstring keyword pattern template)
                                  #((top) (top) (top) (top) (top))
-                                 #("i28983"
-                                   "i28984"
-                                   "i28985"
-                                   "i28986"
-                                   "i28987"))
+                                 #("i28012"
+                                   "i28013"
+                                   "i28014"
+                                   "i28015"
+                                   "i28016"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i28957")))
+                               #(ribcage #(x) #((top)) #("i27986")))
                               (hygiene guile))
                             .
                             #(syntax-object
@@ -22142,13 +22299,13 @@
                                #(ribcage
                                  #(k docstring keyword pattern template)
                                  #((top) (top) (top) (top) (top))
-                                 #("i28983"
-                                   "i28984"
-                                   "i28985"
-                                   "i28986"
-                                   "i28987"))
+                                 #("i28012"
+                                   "i28013"
+                                   "i28014"
+                                   "i28015"
+                                   "i28016"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i28957")))
+                               #(ribcage #(x) #((top)) #("i27986")))
                               (hygiene guile)))
                           (cons '#(syntax-object
                                    patterns
@@ -22156,28 +22313,28 @@
                                     #(ribcage
                                       #(k docstring keyword pattern template)
                                       #((top) (top) (top) (top) (top))
-                                      #("i28983"
-                                        "i28984"
-                                        "i28985"
-                                        "i28986"
-                                        "i28987"))
+                                      #("i28012"
+                                        "i28013"
+                                        "i28014"
+                                        "i28015"
+                                        "i28016"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i28957")))
+                                    #(ribcage #(x) #((top)) #("i27986")))
                                    (hygiene guile))
-                                #{pattern 29021}#))
+                                #{pattern 28050}#))
                         (cons '#(syntax-object
                                  syntax-case
                                  ((top)
                                   #(ribcage
                                     #(k docstring keyword pattern template)
                                     #((top) (top) (top) (top) (top))
-                                    #("i28983"
-                                      "i28984"
-                                      "i28985"
-                                      "i28986"
-                                      "i28987"))
+                                    #("i28012"
+                                      "i28013"
+                                      "i28014"
+                                      "i28015"
+                                      "i28016"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i28957")))
+                                  #(ribcage #(x) #((top)) #("i27986")))
                                  (hygiene guile))
                               (cons '#(syntax-object
                                        x
@@ -22189,17 +22346,17 @@
                                             pattern
                                             template)
                                           #((top) (top) (top) (top) (top))
-                                          #("i28983"
-                                            "i28984"
-                                            "i28985"
-                                            "i28986"
-                                            "i28987"))
+                                          #("i28012"
+                                            "i28013"
+                                            "i28014"
+                                            "i28015"
+                                            "i28016"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i28957")))
+                                        #(ribcage #(x) #((top)) #("i27986")))
                                        (hygiene guile))
-                                    (cons #{k 29018}#
-                                          (map (lambda (#{tmp 28996 29023}#
-                                                        #{tmp 28995 29024}#)
+                                    (cons #{k 28047}#
+                                          (map (lambda (#{tmp 28025 28052}#
+                                                        #{tmp 28024 28053}#)
                                                  (list (cons '#(syntax-object
                                                                 dummy
                                                                 ((top)
@@ -22214,11 +22371,11 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i28983"
-                                                                     "i28984"
-                                                                     "i28985"
-                                                                     "i28986"
-                                                                     "i28987"))
+                                                                   #("i28012"
+                                                                     "i28013"
+                                                                     "i28014"
+                                                                     "i28015"
+                                                                     "i28016"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -22226,10 +22383,10 @@
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
-                                                                   
#("i28957")))
+                                                                   
#("i27986")))
                                                                 (hygiene
                                                                   guile))
-                                                             #{tmp 28995 
29024}#)
+                                                             #{tmp 28024 
28053}#)
                                                        (list '#(syntax-object
                                                                 syntax
                                                                 ((top)
@@ -22244,11 +22401,11 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i28983"
-                                                                     "i28984"
-                                                                     "i28985"
-                                                                     "i28986"
-                                                                     "i28987"))
+                                                                   #("i28012"
+                                                                     "i28013"
+                                                                     "i28014"
+                                                                     "i28015"
+                                                                     "i28016"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -22256,50 +22413,50 @@
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
-                                                                   
#("i28957")))
+                                                                   
#("i27986")))
                                                                 (hygiene
                                                                   guile))
-                                                             #{tmp 28996 
29023}#)))
-                                               #{template 29022}#
-                                               #{pattern 29021}#))))))
-                #{tmp 29009}#)
+                                                             #{tmp 28025 
28052}#)))
+                                               #{template 28051}#
+                                               #{pattern 28050}#))))))
+                #{tmp 28038}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{x 28997}#))))))))
+                #{x 28026}#))))))))
 
 (define define-syntax-rule
   (make-syntax-transformer
     'define-syntax-rule
     'macro
-    (lambda (#{x 29061}#)
-      (let ((#{tmp 29063}#
-              ($sc-dispatch #{x 29061}# '(_ (any . any) any))))
-        (if #{tmp 29063}#
+    (lambda (#{x 28090}#)
+      (let ((#{tmp 28092}#
+              ($sc-dispatch #{x 28090}# '(_ (any . any) any))))
+        (if #{tmp 28092}#
           (@apply
-            (lambda (#{name 29067}#
-                     #{pattern 29068}#
-                     #{template 29069}#)
+            (lambda (#{name 28096}#
+                     #{pattern 28097}#
+                     #{template 28098}#)
               (list '#(syntax-object
                        define-syntax
                        ((top)
                         #(ribcage
                           #(name pattern template)
                           #((top) (top) (top))
-                          #("i29038" "i29039" "i29040"))
+                          #("i28067" "i28068" "i28069"))
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i29035")))
+                        #(ribcage #(x) #((top)) #("i28064")))
                        (hygiene guile))
-                    #{name 29067}#
+                    #{name 28096}#
                     (list '#(syntax-object
                              syntax-rules
                              ((top)
                               #(ribcage
                                 #(name pattern template)
                                 #((top) (top) (top))
-                                #("i29038" "i29039" "i29040"))
+                                #("i28067" "i28068" "i28069"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i29035")))
+                              #(ribcage #(x) #((top)) #("i28064")))
                              (hygiene guile))
                           '()
                           (list (cons '#(syntax-object
@@ -22308,54 +22465,54 @@
                                           #(ribcage
                                             #(name pattern template)
                                             #((top) (top) (top))
-                                            #("i29038" "i29039" "i29040"))
+                                            #("i28067" "i28068" "i28069"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i29035")))
+                                          #(ribcage #(x) #((top)) #("i28064")))
                                          (hygiene guile))
-                                      #{pattern 29068}#)
-                                #{template 29069}#))))
-            #{tmp 29063}#)
-          (let ((#{tmp 29070}#
+                                      #{pattern 28097}#)
+                                #{template 28098}#))))
+            #{tmp 28092}#)
+          (let ((#{tmp 28099}#
                   ($sc-dispatch
-                    #{x 29061}#
+                    #{x 28090}#
                     '(_ (any . any) any any))))
-            (if (if #{tmp 29070}#
+            (if (if #{tmp 28099}#
                   (@apply
-                    (lambda (#{name 29074}#
-                             #{pattern 29075}#
-                             #{docstring 29076}#
-                             #{template 29077}#)
-                      (string? (syntax->datum #{docstring 29076}#)))
-                    #{tmp 29070}#)
+                    (lambda (#{name 28103}#
+                             #{pattern 28104}#
+                             #{docstring 28105}#
+                             #{template 28106}#)
+                      (string? (syntax->datum #{docstring 28105}#)))
+                    #{tmp 28099}#)
                   #f)
               (@apply
-                (lambda (#{name 29078}#
-                         #{pattern 29079}#
-                         #{docstring 29080}#
-                         #{template 29081}#)
+                (lambda (#{name 28107}#
+                         #{pattern 28108}#
+                         #{docstring 28109}#
+                         #{template 28110}#)
                   (list '#(syntax-object
                            define-syntax
                            ((top)
                             #(ribcage
                               #(name pattern docstring template)
                               #((top) (top) (top) (top))
-                              #("i29053" "i29054" "i29055" "i29056"))
+                              #("i28082" "i28083" "i28084" "i28085"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i29035")))
+                            #(ribcage #(x) #((top)) #("i28064")))
                            (hygiene guile))
-                        #{name 29078}#
+                        #{name 28107}#
                         (list '#(syntax-object
                                  syntax-rules
                                  ((top)
                                   #(ribcage
                                     #(name pattern docstring template)
                                     #((top) (top) (top) (top))
-                                    #("i29053" "i29054" "i29055" "i29056"))
+                                    #("i28082" "i28083" "i28084" "i28085"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i29035")))
+                                  #(ribcage #(x) #((top)) #("i28064")))
                                  (hygiene guile))
                               '()
-                              #{docstring 29080}#
+                              #{docstring 28109}#
                               (list (cons '#(syntax-object
                                              _
                                              ((top)
@@ -22365,53 +22522,53 @@
                                                   docstring
                                                   template)
                                                 #((top) (top) (top) (top))
-                                                #("i29053"
-                                                  "i29054"
-                                                  "i29055"
-                                                  "i29056"))
+                                                #("i28082"
+                                                  "i28083"
+                                                  "i28084"
+                                                  "i28085"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i29035")))
+                                                #("i28064")))
                                              (hygiene guile))
-                                          #{pattern 29079}#)
-                                    #{template 29081}#))))
-                #{tmp 29070}#)
+                                          #{pattern 28108}#)
+                                    #{template 28110}#))))
+                #{tmp 28099}#)
               (syntax-violation
                 #f
                 "source expression failed to match any pattern"
-                #{x 29061}#))))))))
+                #{x 28090}#))))))))
 
 (define let*
   (make-syntax-transformer
     'let*
     'macro
-    (lambda (#{x 29130}#)
-      (let ((#{tmp 29132}#
+    (lambda (#{x 28159}#)
+      (let ((#{tmp 28161}#
               ($sc-dispatch
-                #{x 29130}#
+                #{x 28159}#
                 '(any #(each (any any)) any . each-any))))
-        (if (if #{tmp 29132}#
+        (if (if #{tmp 28161}#
               (@apply
-                (lambda (#{let* 29136}#
-                         #{x 29137}#
-                         #{v 29138}#
-                         #{e1 29139}#
-                         #{e2 29140}#)
-                  (and-map identifier? #{x 29137}#))
-                #{tmp 29132}#)
+                (lambda (#{let* 28165}#
+                         #{x 28166}#
+                         #{v 28167}#
+                         #{e1 28168}#
+                         #{e2 28169}#)
+                  (and-map identifier? #{x 28166}#))
+                #{tmp 28161}#)
               #f)
           (@apply
-            (lambda (#{let* 29141}#
-                     #{x 29142}#
-                     #{v 29143}#
-                     #{e1 29144}#
-                     #{e2 29145}#)
+            (lambda (#{let* 28170}#
+                     #{x 28171}#
+                     #{v 28172}#
+                     #{e1 28173}#
+                     #{e2 28174}#)
               (letrec*
-                ((#{f 29146}#
-                   (lambda (#{bindings 29149}#)
-                     (if (null? #{bindings 29149}#)
+                ((#{f 28175}#
+                   (lambda (#{bindings 28178}#)
+                     (if (null? #{bindings 28178}#)
                        (cons '#(syntax-object
                                 let
                                 ((top)
@@ -22419,27 +22576,27 @@
                                  #(ribcage
                                    #(f bindings)
                                    #((top) (top))
-                                   #("i29116" "i29117"))
+                                   #("i28145" "i28146"))
                                  #(ribcage
                                    #(let* x v e1 e2)
                                    #((top) (top) (top) (top) (top))
-                                   #("i29106"
-                                     "i29107"
-                                     "i29108"
-                                     "i29109"
-                                     "i29110"))
+                                   #("i28135"
+                                     "i28136"
+                                     "i28137"
+                                     "i28138"
+                                     "i28139"))
                                  #(ribcage () () ())
-                                 #(ribcage #(x) #((top)) #("i29092")))
+                                 #(ribcage #(x) #((top)) #("i28121")))
                                 (hygiene guile))
-                             (cons '() (cons #{e1 29144}# #{e2 29145}#)))
-                       (let ((#{tmp 29150}#
-                               (list (#{f 29146}# (cdr #{bindings 29149}#))
-                                     (car #{bindings 29149}#))))
-                         (let ((#{tmp 29151}#
-                                 ($sc-dispatch #{tmp 29150}# '(any any))))
-                           (if #{tmp 29151}#
+                             (cons '() (cons #{e1 28173}# #{e2 28174}#)))
+                       (let ((#{tmp 28179}#
+                               (list (#{f 28175}# (cdr #{bindings 28178}#))
+                                     (car #{bindings 28178}#))))
+                         (let ((#{tmp 28180}#
+                                 ($sc-dispatch #{tmp 28179}# '(any any))))
+                           (if #{tmp 28180}#
                              (@apply
-                               (lambda (#{body 29153}# #{binding 29154}#)
+                               (lambda (#{body 28182}# #{binding 28183}#)
                                  (list '#(syntax-object
                                           let
                                           ((top)
@@ -22447,86 +22604,86 @@
                                            #(ribcage
                                              #(body binding)
                                              #((top) (top))
-                                             #("i29126" "i29127"))
+                                             #("i28155" "i28156"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(f bindings)
                                              #((top) (top))
-                                             #("i29116" "i29117"))
+                                             #("i28145" "i28146"))
                                            #(ribcage
                                              #(let* x v e1 e2)
                                              #((top) (top) (top) (top) (top))
-                                             #("i29106"
-                                               "i29107"
-                                               "i29108"
-                                               "i29109"
-                                               "i29110"))
+                                             #("i28135"
+                                               "i28136"
+                                               "i28137"
+                                               "i28138"
+                                               "i28139"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x)
                                              #((top))
-                                             #("i29092")))
+                                             #("i28121")))
                                           (hygiene guile))
-                                       (list #{binding 29154}#)
-                                       #{body 29153}#))
-                               #{tmp 29151}#)
+                                       (list #{binding 28183}#)
+                                       #{body 28182}#))
+                               #{tmp 28180}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{tmp 29150}#))))))))
-                (#{f 29146}# (map list #{x 29142}# #{v 29143}#))))
-            #{tmp 29132}#)
+                               #{tmp 28179}#))))))))
+                (#{f 28175}# (map list #{x 28171}# #{v 28172}#))))
+            #{tmp 28161}#)
           (syntax-violation
             #f
             "source expression failed to match any pattern"
-            #{x 29130}#))))))
+            #{x 28159}#))))))
 
 (define do
   (make-syntax-transformer
     'do
     'macro
-    (lambda (#{orig-x 29212}#)
-      (let ((#{tmp 29214}#
+    (lambda (#{orig-x 28241}#)
+      (let ((#{tmp 28243}#
               ($sc-dispatch
-                #{orig-x 29212}#
+                #{orig-x 28241}#
                 '(_ #(each (any any . any))
                     (any . each-any)
                     .
                     each-any))))
-        (if #{tmp 29214}#
+        (if #{tmp 28243}#
           (@apply
-            (lambda (#{var 29218}#
-                     #{init 29219}#
-                     #{step 29220}#
-                     #{e0 29221}#
-                     #{e1 29222}#
-                     #{c 29223}#)
-              (let ((#{tmp 29224}#
-                      (map (lambda (#{v 29227}# #{s 29228}#)
-                             (let ((#{tmp 29230}#
-                                     ($sc-dispatch #{s 29228}# '())))
-                               (if #{tmp 29230}#
-                                 (@apply (lambda () #{v 29227}#) #{tmp 29230}#)
-                                 (let ((#{tmp 29233}#
-                                         ($sc-dispatch #{s 29228}# '(any))))
-                                   (if #{tmp 29233}#
+            (lambda (#{var 28247}#
+                     #{init 28248}#
+                     #{step 28249}#
+                     #{e0 28250}#
+                     #{e1 28251}#
+                     #{c 28252}#)
+              (let ((#{tmp 28253}#
+                      (map (lambda (#{v 28256}# #{s 28257}#)
+                             (let ((#{tmp 28259}#
+                                     ($sc-dispatch #{s 28257}# '())))
+                               (if #{tmp 28259}#
+                                 (@apply (lambda () #{v 28256}#) #{tmp 28259}#)
+                                 (let ((#{tmp 28262}#
+                                         ($sc-dispatch #{s 28257}# '(any))))
+                                   (if #{tmp 28262}#
                                      (@apply
-                                       (lambda (#{e 29236}#) #{e 29236}#)
-                                       #{tmp 29233}#)
+                                       (lambda (#{e 28265}#) #{e 28265}#)
+                                       #{tmp 28262}#)
                                      (syntax-violation
                                        'do
                                        "bad step expression"
-                                       #{orig-x 29212}#
-                                       #{s 29228}#))))))
-                           #{var 29218}#
-                           #{step 29220}#)))
-                (let ((#{tmp 29225}#
-                        ($sc-dispatch #{tmp 29224}# 'each-any)))
-                  (if #{tmp 29225}#
+                                       #{orig-x 28241}#
+                                       #{s 28257}#))))))
+                           #{var 28247}#
+                           #{step 28249}#)))
+                (let ((#{tmp 28254}#
+                        ($sc-dispatch #{tmp 28253}# 'each-any)))
+                  (if #{tmp 28254}#
                     (@apply
-                      (lambda (#{step 29242}#)
-                        (let ((#{tmp 29244}# ($sc-dispatch #{e1 29222}# '())))
-                          (if #{tmp 29244}#
+                      (lambda (#{step 28271}#)
+                        (let ((#{tmp 28273}# ($sc-dispatch #{e1 28251}# '())))
+                          (if #{tmp 28273}#
                             (@apply
                               (lambda ()
                                 (list '#(syntax-object
@@ -22536,7 +22693,7 @@
                                           #(ribcage
                                             #(step)
                                             #((top))
-                                            #("i29180"))
+                                            #("i28209"))
                                           #(ribcage
                                             #(var init step e0 e1 c)
                                             #((top)
@@ -22545,17 +22702,17 @@
                                               (top)
                                               (top)
                                               (top))
-                                            #("i29165"
-                                              "i29166"
-                                              "i29167"
-                                              "i29168"
-                                              "i29169"
-                                              "i29170"))
+                                            #("i28194"
+                                              "i28195"
+                                              "i28196"
+                                              "i28197"
+                                              "i28198"
+                                              "i28199"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(orig-x)
                                             #((top))
-                                            #("i29162")))
+                                            #("i28191")))
                                          (hygiene guile))
                                       '#(syntax-object
                                          doloop
@@ -22564,7 +22721,7 @@
                                           #(ribcage
                                             #(step)
                                             #((top))
-                                            #("i29180"))
+                                            #("i28209"))
                                           #(ribcage
                                             #(var init step e0 e1 c)
                                             #((top)
@@ -22573,19 +22730,19 @@
                                               (top)
                                               (top)
                                               (top))
-                                            #("i29165"
-                                              "i29166"
-                                              "i29167"
-                                              "i29168"
-                                              "i29169"
-                                              "i29170"))
+                                            #("i28194"
+                                              "i28195"
+                                              "i28196"
+                                              "i28197"
+                                              "i28198"
+                                              "i28199"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(orig-x)
                                             #((top))
-                                            #("i29162")))
+                                            #("i28191")))
                                          (hygiene guile))
-                                      (map list #{var 29218}# #{init 29219}#)
+                                      (map list #{var 28247}# #{init 28248}#)
                                       (list '#(syntax-object
                                                if
                                                ((top)
@@ -22593,7 +22750,7 @@
                                                 #(ribcage
                                                   #(step)
                                                   #((top))
-                                                  #("i29180"))
+                                                  #("i28209"))
                                                 #(ribcage
                                                   #(var init step e0 e1 c)
                                                   #((top)
@@ -22602,17 +22759,17 @@
                                                     (top)
                                                     (top)
                                                     (top))
-                                                  #("i29165"
-                                                    "i29166"
-                                                    "i29167"
-                                                    "i29168"
-                                                    "i29169"
-                                                    "i29170"))
+                                                  #("i28194"
+                                                    "i28195"
+                                                    "i28196"
+                                                    "i28197"
+                                                    "i28198"
+                                                    "i28199"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(orig-x)
                                                   #((top))
-                                                  #("i29162")))
+                                                  #("i28191")))
                                                (hygiene guile))
                                             (list '#(syntax-object
                                                      not
@@ -22621,7 +22778,7 @@
                                                       #(ribcage
                                                         #(step)
                                                         #((top))
-                                                        #("i29180"))
+                                                        #("i28209"))
                                                       #(ribcage
                                                         #(var
                                                           init
@@ -22635,19 +22792,19 @@
                                                           (top)
                                                           (top)
                                                           (top))
-                                                        #("i29165"
-                                                          "i29166"
-                                                          "i29167"
-                                                          "i29168"
-                                                          "i29169"
-                                                          "i29170"))
+                                                        #("i28194"
+                                                          "i28195"
+                                                          "i28196"
+                                                          "i28197"
+                                                          "i28198"
+                                                          "i28199"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(orig-x)
                                                         #((top))
-                                                        #("i29162")))
+                                                        #("i28191")))
                                                      (hygiene guile))
-                                                  #{e0 29221}#)
+                                                  #{e0 28250}#)
                                             (cons '#(syntax-object
                                                      begin
                                                      ((top)
@@ -22655,7 +22812,7 @@
                                                       #(ribcage
                                                         #(step)
                                                         #((top))
-                                                        #("i29180"))
+                                                        #("i28209"))
                                                       #(ribcage
                                                         #(var
                                                           init
@@ -22669,20 +22826,20 @@
                                                           (top)
                                                           (top)
                                                           (top))
-                                                        #("i29165"
-                                                          "i29166"
-                                                          "i29167"
-                                                          "i29168"
-                                                          "i29169"
-                                                          "i29170"))
+                                                        #("i28194"
+                                                          "i28195"
+                                                          "i28196"
+                                                          "i28197"
+                                                          "i28198"
+                                                          "i28199"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(orig-x)
                                                         #((top))
-                                                        #("i29162")))
+                                                        #("i28191")))
                                                      (hygiene guile))
                                                   (append
-                                                    #{c 29223}#
+                                                    #{c 28252}#
                                                     (list (cons 
'#(syntax-object
                                                                    doloop
                                                                    ((top)
@@ -22693,7 +22850,7 @@
                                                                     #(ribcage
                                                                       #(step)
                                                                       #((top))
-                                                                      
#("i29180"))
+                                                                      
#("i28209"))
                                                                     #(ribcage
                                                                       #(var
                                                                         init
@@ -22707,12 +22864,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      
#("i29165"
-                                                                        
"i29166"
-                                                                        
"i29167"
-                                                                        
"i29168"
-                                                                        
"i29169"
-                                                                        
"i29170"))
+                                                                      
#("i28194"
+                                                                        
"i28195"
+                                                                        
"i28196"
+                                                                        
"i28197"
+                                                                        
"i28198"
+                                                                        
"i28199"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -22720,30 +22877,30 @@
                                                                     #(ribcage
                                                                       #(orig-x)
                                                                       #((top))
-                                                                      
#("i29162")))
+                                                                      
#("i28191")))
                                                                    (hygiene
                                                                      guile))
-                                                                #{step 
29242}#)))))))
-                              #{tmp 29244}#)
-                            (let ((#{tmp 29248}#
+                                                                #{step 
28271}#)))))))
+                              #{tmp 28273}#)
+                            (let ((#{tmp 28277}#
                                     ($sc-dispatch
-                                      #{e1 29222}#
+                                      #{e1 28251}#
                                       '(any . each-any))))
-                              (if #{tmp 29248}#
+                              (if #{tmp 28277}#
                                 (@apply
-                                  (lambda (#{e1 29252}# #{e2 29253}#)
+                                  (lambda (#{e1 28281}# #{e2 28282}#)
                                     (list '#(syntax-object
                                              let
                                              ((top)
                                               #(ribcage
                                                 #(e1 e2)
                                                 #((top) (top))
-                                                #("i29189" "i29190"))
+                                                #("i28218" "i28219"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(step)
                                                 #((top))
-                                                #("i29180"))
+                                                #("i28209"))
                                               #(ribcage
                                                 #(var init step e0 e1 c)
                                                 #((top)
@@ -22752,17 +22909,17 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                #("i29165"
-                                                  "i29166"
-                                                  "i29167"
-                                                  "i29168"
-                                                  "i29169"
-                                                  "i29170"))
+                                                #("i28194"
+                                                  "i28195"
+                                                  "i28196"
+                                                  "i28197"
+                                                  "i28198"
+                                                  "i28199"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(orig-x)
                                                 #((top))
-                                                #("i29162")))
+                                                #("i28191")))
                                              (hygiene guile))
                                           '#(syntax-object
                                              doloop
@@ -22770,12 +22927,12 @@
                                               #(ribcage
                                                 #(e1 e2)
                                                 #((top) (top))
-                                                #("i29189" "i29190"))
+                                                #("i28218" "i28219"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(step)
                                                 #((top))
-                                                #("i29180"))
+                                                #("i28209"))
                                               #(ribcage
                                                 #(var init step e0 e1 c)
                                                 #((top)
@@ -22784,33 +22941,33 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                #("i29165"
-                                                  "i29166"
-                                                  "i29167"
-                                                  "i29168"
-                                                  "i29169"
-                                                  "i29170"))
+                                                #("i28194"
+                                                  "i28195"
+                                                  "i28196"
+                                                  "i28197"
+                                                  "i28198"
+                                                  "i28199"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(orig-x)
                                                 #((top))
-                                                #("i29162")))
+                                                #("i28191")))
                                              (hygiene guile))
                                           (map list
-                                               #{var 29218}#
-                                               #{init 29219}#)
+                                               #{var 28247}#
+                                               #{init 28248}#)
                                           (list '#(syntax-object
                                                    if
                                                    ((top)
                                                     #(ribcage
                                                       #(e1 e2)
                                                       #((top) (top))
-                                                      #("i29189" "i29190"))
+                                                      #("i28218" "i28219"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(step)
                                                       #((top))
-                                                      #("i29180"))
+                                                      #("i28209"))
                                                     #(ribcage
                                                       #(var init step e0 e1 c)
                                                       #((top)
@@ -22819,32 +22976,32 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i29165"
-                                                        "i29166"
-                                                        "i29167"
-                                                        "i29168"
-                                                        "i29169"
-                                                        "i29170"))
+                                                      #("i28194"
+                                                        "i28195"
+                                                        "i28196"
+                                                        "i28197"
+                                                        "i28198"
+                                                        "i28199"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(orig-x)
                                                       #((top))
-                                                      #("i29162")))
+                                                      #("i28191")))
                                                    (hygiene guile))
-                                                #{e0 29221}#
+                                                #{e0 28250}#
                                                 (cons '#(syntax-object
                                                          begin
                                                          ((top)
                                                           #(ribcage
                                                             #(e1 e2)
                                                             #((top) (top))
-                                                            #("i29189"
-                                                              "i29190"))
+                                                            #("i28218"
+                                                              "i28219"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(step)
                                                             #((top))
-                                                            #("i29180"))
+                                                            #("i28209"))
                                                           #(ribcage
                                                             #(var
                                                               init
@@ -22858,33 +23015,33 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i29165"
-                                                              "i29166"
-                                                              "i29167"
-                                                              "i29168"
-                                                              "i29169"
-                                                              "i29170"))
+                                                            #("i28194"
+                                                              "i28195"
+                                                              "i28196"
+                                                              "i28197"
+                                                              "i28198"
+                                                              "i28199"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(orig-x)
                                                             #((top))
-                                                            #("i29162")))
+                                                            #("i28191")))
                                                          (hygiene guile))
-                                                      (cons #{e1 29252}#
-                                                            #{e2 29253}#))
+                                                      (cons #{e1 28281}#
+                                                            #{e2 28282}#))
                                                 (cons '#(syntax-object
                                                          begin
                                                          ((top)
                                                           #(ribcage
                                                             #(e1 e2)
                                                             #((top) (top))
-                                                            #("i29189"
-                                                              "i29190"))
+                                                            #("i28218"
+                                                              "i28219"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(step)
                                                             #((top))
-                                                            #("i29180"))
+                                                            #("i28209"))
                                                           #(ribcage
                                                             #(var
                                                               init
@@ -22898,20 +23055,20 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i29165"
-                                                              "i29166"
-                                                              "i29167"
-                                                              "i29168"
-                                                              "i29169"
-                                                              "i29170"))
+                                                            #("i28194"
+                                                              "i28195"
+                                                              "i28196"
+                                                              "i28197"
+                                                              "i28198"
+                                                              "i28199"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(orig-x)
                                                             #((top))
-                                                            #("i29162")))
+                                                            #("i28191")))
                                                          (hygiene guile))
                                                       (append
-                                                        #{c 29223}#
+                                                        #{c 28252}#
                                                         (list (cons 
'#(syntax-object
                                                                        doloop
                                                                        ((top)
@@ -22920,8 +23077,8 @@
                                                                             e2)
                                                                           
#((top)
                                                                             
(top))
-                                                                          
#("i29189"
-                                                                            
"i29190"))
+                                                                          
#("i28218"
+                                                                            
"i28219"))
                                                                         
#(ribcage
                                                                           ()
                                                                           ()
@@ -22929,7 +23086,7 @@
                                                                         
#(ribcage
                                                                           
#(step)
                                                                           
#((top))
-                                                                          
#("i29180"))
+                                                                          
#("i28209"))
                                                                         
#(ribcage
                                                                           #(var
                                                                             
init
@@ -22943,12 +23100,12 @@
                                                                             
(top)
                                                                             
(top)
                                                                             
(top))
-                                                                          
#("i29165"
-                                                                            
"i29166"
-                                                                            
"i29167"
-                                                                            
"i29168"
-                                                                            
"i29169"
-                                                                            
"i29170"))
+                                                                          
#("i28194"
+                                                                            
"i28195"
+                                                                            
"i28196"
+                                                                            
"i28197"
+                                                                            
"i28198"
+                                                                            
"i28199"))
                                                                         
#(ribcage
                                                                           ()
                                                                           ()
@@ -22956,36 +23113,36 @@
                                                                         
#(ribcage
                                                                           
#(orig-x)
                                                                           
#((top))
-                                                                          
#("i29162")))
+                                                                          
#("i28191")))
                                                                        (hygiene
                                                                          
guile))
-                                                                    #{step 
29242}#)))))))
-                                  #{tmp 29248}#)
+                                                                    #{step 
28271}#)))))))
+                                  #{tmp 28277}#)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any 
pattern"
-                                  #{e1 29222}#))))))
-                      #{tmp 29225}#)
+                                  #{e1 28251}#))))))
+                      #{tmp 28254}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp 29224}#)))))
-            #{tmp 29214}#)
+                      #{tmp 28253}#)))))
+            #{tmp 28243}#)
           (syntax-violation
             #f
             "source expression failed to match any pattern"
-            #{orig-x 29212}#))))))
+            #{orig-x 28241}#))))))
 
 (define quasiquote
   (make-syntax-transformer
     'quasiquote
     'macro
     (letrec*
-      ((#{quasi 29539}#
-         (lambda (#{p 29563}# #{lev 29564}#)
-           (let ((#{tmp 29566}#
+      ((#{quasi 28568}#
+         (lambda (#{p 28592}# #{lev 28593}#)
+           (let ((#{tmp 28595}#
                    ($sc-dispatch
-                     #{p 29563}#
+                     #{p 28592}#
                      '(#(free-id
                          #(syntax-object
                            unquote
@@ -22994,7 +23151,7 @@
                             #(ribcage
                               #(p lev)
                               #((top) (top))
-                              #("i29285" "i29286"))
+                              #("i28314" "i28315"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
@@ -23003,28 +23160,28 @@
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
-                              ("i29281"
-                               "i29279"
-                               "i29277"
-                               "i29275"
-                               "i29273"
-                               "i29271"
-                               "i29269")))
+                              ("i28310"
+                               "i28308"
+                               "i28306"
+                               "i28304"
+                               "i28302"
+                               "i28300"
+                               "i28298")))
                            (hygiene guile)))
                        any))))
-             (if #{tmp 29566}#
+             (if #{tmp 28595}#
                (@apply
-                 (lambda (#{p 29570}#)
-                   (if (= #{lev 29564}# 0)
+                 (lambda (#{p 28599}#)
+                   (if (= #{lev 28593}# 0)
                      (list '#(syntax-object
                               "value"
                               ((top)
-                               #(ribcage #(p) #((top)) #("i29289"))
+                               #(ribcage #(p) #((top)) #("i28318"))
                                #(ribcage () () ())
                                #(ribcage
                                  #(p lev)
                                  #((top) (top))
-                                 #("i29285" "i29286"))
+                                 #("i28314" "i28315"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
@@ -23033,25 +23190,25 @@
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
-                                 ("i29281"
-                                  "i29279"
-                                  "i29277"
-                                  "i29275"
-                                  "i29273"
-                                  "i29271"
-                                  "i29269")))
+                                 ("i28310"
+                                  "i28308"
+                                  "i28306"
+                                  "i28304"
+                                  "i28302"
+                                  "i28300"
+                                  "i28298")))
                               (hygiene guile))
-                           #{p 29570}#)
-                     (#{quasicons 29541}#
+                           #{p 28599}#)
+                     (#{quasicons 28570}#
                        '(#(syntax-object
                            "quote"
                            ((top)
-                            #(ribcage #(p) #((top)) #("i29289"))
+                            #(ribcage #(p) #((top)) #("i28318"))
                             #(ribcage () () ())
                             #(ribcage
                               #(p lev)
                               #((top) (top))
-                              #("i29285" "i29286"))
+                              #("i28314" "i28315"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
@@ -23060,23 +23217,23 @@
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
-                              ("i29281"
-                               "i29279"
-                               "i29277"
-                               "i29275"
-                               "i29273"
-                               "i29271"
-                               "i29269")))
+                              ("i28310"
+                               "i28308"
+                               "i28306"
+                               "i28304"
+                               "i28302"
+                               "i28300"
+                               "i28298")))
                            (hygiene guile))
                          #(syntax-object
                            unquote
                            ((top)
-                            #(ribcage #(p) #((top)) #("i29289"))
+                            #(ribcage #(p) #((top)) #("i28318"))
                             #(ribcage () () ())
                             #(ribcage
                               #(p lev)
                               #((top) (top))
-                              #("i29285" "i29286"))
+                              #("i28314" "i28315"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
@@ -23085,21 +23242,21 @@
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
-                              ("i29281"
-                               "i29279"
-                               "i29277"
-                               "i29275"
-                               "i29273"
-                               "i29271"
-                               "i29269")))
+                              ("i28310"
+                               "i28308"
+                               "i28306"
+                               "i28304"
+                               "i28302"
+                               "i28300"
+                               "i28298")))
                            (hygiene guile)))
-                       (#{quasi 29539}#
-                         (list #{p 29570}#)
-                         (#{1-}# #{lev 29564}#)))))
-                 #{tmp 29566}#)
-               (let ((#{tmp 29573}#
+                       (#{quasi 28568}#
+                         (list #{p 28599}#)
+                         (#{1-}# #{lev 28593}#)))))
+                 #{tmp 28595}#)
+               (let ((#{tmp 28602}#
                        ($sc-dispatch
-                         #{p 29563}#
+                         #{p 28592}#
                          '(#(free-id
                              #(syntax-object
                                quasiquote
@@ -23108,7 +23265,7 @@
                                 #(ribcage
                                   #(p lev)
                                   #((top) (top))
-                                  #("i29285" "i29286"))
+                                  #("i28314" "i28315"))
                                 #(ribcage
                                   (emit quasivector
                                         quasilist*
@@ -23117,28 +23274,28 @@
                                         vquasi
                                         quasi)
                                   ((top) (top) (top) (top) (top) (top) (top))
-                                  ("i29281"
-                                   "i29279"
-                                   "i29277"
-                                   "i29275"
-                                   "i29273"
-                                   "i29271"
-                                   "i29269")))
+                                  ("i28310"
+                                   "i28308"
+                                   "i28306"
+                                   "i28304"
+                                   "i28302"
+                                   "i28300"
+                                   "i28298")))
                                (hygiene guile)))
                            any))))
-                 (if #{tmp 29573}#
+                 (if #{tmp 28602}#
                    (@apply
-                     (lambda (#{p 29577}#)
-                       (#{quasicons 29541}#
+                     (lambda (#{p 28606}#)
+                       (#{quasicons 28570}#
                          '(#(syntax-object
                              "quote"
                              ((top)
-                              #(ribcage #(p) #((top)) #("i29292"))
+                              #(ribcage #(p) #((top)) #("i28321"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
-                                #("i29285" "i29286"))
+                                #("i28314" "i28315"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
@@ -23147,23 +23304,23 @@
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
-                                ("i29281"
-                                 "i29279"
-                                 "i29277"
-                                 "i29275"
-                                 "i29273"
-                                 "i29271"
-                                 "i29269")))
+                                ("i28310"
+                                 "i28308"
+                                 "i28306"
+                                 "i28304"
+                                 "i28302"
+                                 "i28300"
+                                 "i28298")))
                              (hygiene guile))
                            #(syntax-object
                              quasiquote
                              ((top)
-                              #(ribcage #(p) #((top)) #("i29292"))
+                              #(ribcage #(p) #((top)) #("i28321"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
-                                #("i29285" "i29286"))
+                                #("i28314" "i28315"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
@@ -23172,26 +23329,26 @@
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
-                                ("i29281"
-                                 "i29279"
-                                 "i29277"
-                                 "i29275"
-                                 "i29273"
-                                 "i29271"
-                                 "i29269")))
+                                ("i28310"
+                                 "i28308"
+                                 "i28306"
+                                 "i28304"
+                                 "i28302"
+                                 "i28300"
+                                 "i28298")))
                              (hygiene guile)))
-                         (#{quasi 29539}#
-                           (list #{p 29577}#)
-                           (#{1+}# #{lev 29564}#))))
-                     #{tmp 29573}#)
-                   (let ((#{tmp 29580}#
-                           ($sc-dispatch #{p 29563}# '(any . any))))
-                     (if #{tmp 29580}#
+                         (#{quasi 28568}#
+                           (list #{p 28606}#)
+                           (#{1+}# #{lev 28593}#))))
+                     #{tmp 28602}#)
+                   (let ((#{tmp 28609}#
+                           ($sc-dispatch #{p 28592}# '(any . any))))
+                     (if #{tmp 28609}#
                        (@apply
-                         (lambda (#{p 29584}# #{q 29585}#)
-                           (let ((#{tmp 29587}#
+                         (lambda (#{p 28613}# #{q 28614}#)
+                           (let ((#{tmp 28616}#
                                    ($sc-dispatch
-                                     #{p 29584}#
+                                     #{p 28613}#
                                      '(#(free-id
                                          #(syntax-object
                                            unquote
@@ -23199,12 +23356,12 @@
                                             #(ribcage
                                               #(p q)
                                               #((top) (top))
-                                              #("i29295" "i29296"))
+                                              #("i28324" "i28325"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(p lev)
                                               #((top) (top))
-                                              #("i29285" "i29286"))
+                                              #("i28314" "i28315"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
@@ -23219,38 +23376,38 @@
                                                (top)
                                                (top)
                                                (top))
-                                              ("i29281"
-                                               "i29279"
-                                               "i29277"
-                                               "i29275"
-                                               "i29273"
-                                               "i29271"
-                                               "i29269")))
+                                              ("i28310"
+                                               "i28308"
+                                               "i28306"
+                                               "i28304"
+                                               "i28302"
+                                               "i28300"
+                                               "i28298")))
                                            (hygiene guile)))
                                        .
                                        each-any))))
-                             (if #{tmp 29587}#
+                             (if #{tmp 28616}#
                                (@apply
-                                 (lambda (#{p 29591}#)
-                                   (if (= #{lev 29564}# 0)
-                                     (#{quasilist* 29543}#
-                                       (map (lambda (#{tmp 29303 29627}#)
+                                 (lambda (#{p 28620}#)
+                                   (if (= #{lev 28593}# 0)
+                                     (#{quasilist* 28572}#
+                                       (map (lambda (#{tmp 28332 28656}#)
                                               (list '#(syntax-object
                                                        "value"
                                                        ((top)
                                                         #(ribcage
                                                           #(p)
                                                           #((top))
-                                                          #("i29301"))
+                                                          #("i28330"))
                                                         #(ribcage
                                                           #(p q)
                                                           #((top) (top))
-                                                          #("i29295" "i29296"))
+                                                          #("i28324" "i28325"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(p lev)
                                                           #((top) (top))
-                                                          #("i29285" "i29286"))
+                                                          #("i28314" "i28315"))
                                                         #(ribcage
                                                           (emit quasivector
                                                                 quasilist*
@@ -23265,37 +23422,37 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                          ("i29281"
-                                                           "i29279"
-                                                           "i29277"
-                                                           "i29275"
-                                                           "i29273"
-                                                           "i29271"
-                                                           "i29269")))
+                                                          ("i28310"
+                                                           "i28308"
+                                                           "i28306"
+                                                           "i28304"
+                                                           "i28302"
+                                                           "i28300"
+                                                           "i28298")))
                                                        (hygiene guile))
-                                                    #{tmp 29303 29627}#))
-                                            #{p 29591}#)
-                                       (#{quasi 29539}#
-                                         #{q 29585}#
-                                         #{lev 29564}#))
-                                     (#{quasicons 29541}#
-                                       (#{quasicons 29541}#
+                                                    #{tmp 28332 28656}#))
+                                            #{p 28620}#)
+                                       (#{quasi 28568}#
+                                         #{q 28614}#
+                                         #{lev 28593}#))
+                                     (#{quasicons 28570}#
+                                       (#{quasicons 28570}#
                                          '(#(syntax-object
                                              "quote"
                                              ((top)
                                               #(ribcage
                                                 #(p)
                                                 #((top))
-                                                #("i29301"))
+                                                #("i28330"))
                                               #(ribcage
                                                 #(p q)
                                                 #((top) (top))
-                                                #("i29295" "i29296"))
+                                                #("i28324" "i28325"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(p lev)
                                                 #((top) (top))
-                                                #("i29285" "i29286"))
+                                                #("i28314" "i28315"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
@@ -23310,13 +23467,13 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i29281"
-                                                 "i29279"
-                                                 "i29277"
-                                                 "i29275"
-                                                 "i29273"
-                                                 "i29271"
-                                                 "i29269")))
+                                                ("i28310"
+                                                 "i28308"
+                                                 "i28306"
+                                                 "i28304"
+                                                 "i28302"
+                                                 "i28300"
+                                                 "i28298")))
                                              (hygiene guile))
                                            #(syntax-object
                                              unquote
@@ -23324,16 +23481,16 @@
                                               #(ribcage
                                                 #(p)
                                                 #((top))
-                                                #("i29301"))
+                                                #("i28330"))
                                               #(ribcage
                                                 #(p q)
                                                 #((top) (top))
-                                                #("i29295" "i29296"))
+                                                #("i28324" "i28325"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(p lev)
                                                 #((top) (top))
-                                                #("i29285" "i29286"))
+                                                #("i28314" "i28315"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
@@ -23348,24 +23505,24 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i29281"
-                                                 "i29279"
-                                                 "i29277"
-                                                 "i29275"
-                                                 "i29273"
-                                                 "i29271"
-                                                 "i29269")))
+                                                ("i28310"
+                                                 "i28308"
+                                                 "i28306"
+                                                 "i28304"
+                                                 "i28302"
+                                                 "i28300"
+                                                 "i28298")))
                                              (hygiene guile)))
-                                         (#{quasi 29539}#
-                                           #{p 29591}#
-                                           (#{1-}# #{lev 29564}#)))
-                                       (#{quasi 29539}#
-                                         #{q 29585}#
-                                         #{lev 29564}#))))
-                                 #{tmp 29587}#)
-                               (let ((#{tmp 29632}#
+                                         (#{quasi 28568}#
+                                           #{p 28620}#
+                                           (#{1-}# #{lev 28593}#)))
+                                       (#{quasi 28568}#
+                                         #{q 28614}#
+                                         #{lev 28593}#))))
+                                 #{tmp 28616}#)
+                               (let ((#{tmp 28661}#
                                        ($sc-dispatch
-                                         #{p 29584}#
+                                         #{p 28613}#
                                          '(#(free-id
                                              #(syntax-object
                                                unquote-splicing
@@ -23373,12 +23530,12 @@
                                                 #(ribcage
                                                   #(p q)
                                                   #((top) (top))
-                                                  #("i29295" "i29296"))
+                                                  #("i28324" "i28325"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(p lev)
                                                   #((top) (top))
-                                                  #("i29285" "i29286"))
+                                                  #("i28314" "i28315"))
                                                 #(ribcage
                                                   (emit quasivector
                                                         quasilist*
@@ -23393,40 +23550,40 @@
                                                    (top)
                                                    (top)
                                                    (top))
-                                                  ("i29281"
-                                                   "i29279"
-                                                   "i29277"
-                                                   "i29275"
-                                                   "i29273"
-                                                   "i29271"
-                                                   "i29269")))
+                                                  ("i28310"
+                                                   "i28308"
+                                                   "i28306"
+                                                   "i28304"
+                                                   "i28302"
+                                                   "i28300"
+                                                   "i28298")))
                                                (hygiene guile)))
                                            .
                                            each-any))))
-                                 (if #{tmp 29632}#
+                                 (if #{tmp 28661}#
                                    (@apply
-                                     (lambda (#{p 29636}#)
-                                       (if (= #{lev 29564}# 0)
-                                         (#{quasiappend 29542}#
-                                           (map (lambda (#{tmp 29308 29639}#)
+                                     (lambda (#{p 28665}#)
+                                       (if (= #{lev 28593}# 0)
+                                         (#{quasiappend 28571}#
+                                           (map (lambda (#{tmp 28337 28668}#)
                                                   (list '#(syntax-object
                                                            "value"
                                                            ((top)
                                                             #(ribcage
                                                               #(p)
                                                               #((top))
-                                                              #("i29306"))
+                                                              #("i28335"))
                                                             #(ribcage
                                                               #(p q)
                                                               #((top) (top))
-                                                              #("i29295"
-                                                                "i29296"))
+                                                              #("i28324"
+                                                                "i28325"))
                                                             #(ribcage () () ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
-                                                              #("i29285"
-                                                                "i29286"))
+                                                              #("i28314"
+                                                                "i28315"))
                                                             #(ribcage
                                                               (emit quasivector
                                                                     quasilist*
@@ -23441,37 +23598,37 @@
                                                                (top)
                                                                (top)
                                                                (top))
-                                                              ("i29281"
-                                                               "i29279"
-                                                               "i29277"
-                                                               "i29275"
-                                                               "i29273"
-                                                               "i29271"
-                                                               "i29269")))
+                                                              ("i28310"
+                                                               "i28308"
+                                                               "i28306"
+                                                               "i28304"
+                                                               "i28302"
+                                                               "i28300"
+                                                               "i28298")))
                                                            (hygiene guile))
-                                                        #{tmp 29308 29639}#))
-                                                #{p 29636}#)
-                                           (#{quasi 29539}#
-                                             #{q 29585}#
-                                             #{lev 29564}#))
-                                         (#{quasicons 29541}#
-                                           (#{quasicons 29541}#
+                                                        #{tmp 28337 28668}#))
+                                                #{p 28665}#)
+                                           (#{quasi 28568}#
+                                             #{q 28614}#
+                                             #{lev 28593}#))
+                                         (#{quasicons 28570}#
+                                           (#{quasicons 28570}#
                                              '(#(syntax-object
                                                  "quote"
                                                  ((top)
                                                   #(ribcage
                                                     #(p)
                                                     #((top))
-                                                    #("i29306"))
+                                                    #("i28335"))
                                                   #(ribcage
                                                     #(p q)
                                                     #((top) (top))
-                                                    #("i29295" "i29296"))
+                                                    #("i28324" "i28325"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(p lev)
                                                     #((top) (top))
-                                                    #("i29285" "i29286"))
+                                                    #("i28314" "i28315"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
@@ -23486,13 +23643,13 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i29281"
-                                                     "i29279"
-                                                     "i29277"
-                                                     "i29275"
-                                                     "i29273"
-                                                     "i29271"
-                                                     "i29269")))
+                                                    ("i28310"
+                                                     "i28308"
+                                                     "i28306"
+                                                     "i28304"
+                                                     "i28302"
+                                                     "i28300"
+                                                     "i28298")))
                                                  (hygiene guile))
                                                #(syntax-object
                                                  unquote-splicing
@@ -23500,16 +23657,16 @@
                                                   #(ribcage
                                                     #(p)
                                                     #((top))
-                                                    #("i29306"))
+                                                    #("i28335"))
                                                   #(ribcage
                                                     #(p q)
                                                     #((top) (top))
-                                                    #("i29295" "i29296"))
+                                                    #("i28324" "i28325"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(p lev)
                                                     #((top) (top))
-                                                    #("i29285" "i29286"))
+                                                    #("i28314" "i28315"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
@@ -23524,57 +23681,57 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i29281"
-                                                     "i29279"
-                                                     "i29277"
-                                                     "i29275"
-                                                     "i29273"
-                                                     "i29271"
-                                                     "i29269")))
+                                                    ("i28310"
+                                                     "i28308"
+                                                     "i28306"
+                                                     "i28304"
+                                                     "i28302"
+                                                     "i28300"
+                                                     "i28298")))
                                                  (hygiene guile)))
-                                             (#{quasi 29539}#
-                                               #{p 29636}#
-                                               (#{1-}# #{lev 29564}#)))
-                                           (#{quasi 29539}#
-                                             #{q 29585}#
-                                             #{lev 29564}#))))
-                                     #{tmp 29632}#)
-                                   (#{quasicons 29541}#
-                                     (#{quasi 29539}#
-                                       #{p 29584}#
-                                       #{lev 29564}#)
-                                     (#{quasi 29539}#
-                                       #{q 29585}#
-                                       #{lev 29564}#)))))))
-                         #{tmp 29580}#)
-                       (let ((#{tmp 29653}#
-                               ($sc-dispatch #{p 29563}# '#(vector each-any))))
-                         (if #{tmp 29653}#
+                                             (#{quasi 28568}#
+                                               #{p 28665}#
+                                               (#{1-}# #{lev 28593}#)))
+                                           (#{quasi 28568}#
+                                             #{q 28614}#
+                                             #{lev 28593}#))))
+                                     #{tmp 28661}#)
+                                   (#{quasicons 28570}#
+                                     (#{quasi 28568}#
+                                       #{p 28613}#
+                                       #{lev 28593}#)
+                                     (#{quasi 28568}#
+                                       #{q 28614}#
+                                       #{lev 28593}#)))))))
+                         #{tmp 28609}#)
+                       (let ((#{tmp 28682}#
+                               ($sc-dispatch #{p 28592}# '#(vector each-any))))
+                         (if #{tmp 28682}#
                            (@apply
-                             (lambda (#{x 29657}#)
-                               (let ((#{x 29660}#
-                                       (#{vquasi 29540}#
-                                         #{x 29657}#
-                                         #{lev 29564}#)))
-                                 (let ((#{tmp 29662}#
+                             (lambda (#{x 28686}#)
+                               (let ((#{x 28689}#
+                                       (#{vquasi 28569}#
+                                         #{x 28686}#
+                                         #{lev 28593}#)))
+                                 (let ((#{tmp 28691}#
                                          ($sc-dispatch
-                                           #{x 29660}#
+                                           #{x 28689}#
                                            '(#(atom "quote") each-any))))
-                                   (if #{tmp 29662}#
+                                   (if #{tmp 28691}#
                                      (@apply
-                                       (lambda (#{x 29666}#)
+                                       (lambda (#{x 28695}#)
                                          (list '#(syntax-object
                                                   "quote"
                                                   ((top)
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i29413"))
+                                                     #("i28442"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i29410"))
+                                                     #("i28439"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
@@ -23589,36 +23746,36 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i29281"
-                                                      "i29279"
-                                                      "i29277"
-                                                      "i29275"
-                                                      "i29273"
-                                                      "i29271"
-                                                      "i29269")))
+                                                     ("i28310"
+                                                      "i28308"
+                                                      "i28306"
+                                                      "i28304"
+                                                      "i28302"
+                                                      "i28300"
+                                                      "i28298")))
                                                   (hygiene guile))
-                                               (list->vector #{x 29666}#)))
-                                       #{tmp 29662}#)
+                                               (list->vector #{x 28695}#)))
+                                       #{tmp 28691}#)
                                      (letrec*
-                                       ((#{f 29668}#
-                                          (lambda (#{y 29680}# #{k 29681}#)
-                                            (let ((#{tmp 29683}#
+                                       ((#{f 28697}#
+                                          (lambda (#{y 28709}# #{k 28710}#)
+                                            (let ((#{tmp 28712}#
                                                     ($sc-dispatch
-                                                      #{y 29680}#
+                                                      #{y 28709}#
                                                       '(#(atom "quote")
                                                         each-any))))
-                                              (if #{tmp 29683}#
+                                              (if #{tmp 28712}#
                                                 (@apply
-                                                  (lambda (#{y 29686}#)
-                                                    (#{k 29681}#
-                                                      (map (lambda (#{tmp 
29438 29687}#)
+                                                  (lambda (#{y 28715}#)
+                                                    (#{k 28710}#
+                                                      (map (lambda (#{tmp 
28467 28716}#)
                                                              (list 
'#(syntax-object
                                                                       "quote"
                                                                       ((top)
                                                                        
#(ribcage
                                                                          #(y)
                                                                          
#((top))
-                                                                         
#("i29436"))
+                                                                         
#("i28465"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -23630,13 +23787,13 @@
                                                                          
#((top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i29418"
-                                                                           
"i29419"
-                                                                           
"i29420"))
+                                                                         
#("i28447"
+                                                                           
"i28448"
+                                                                           
"i28449"))
                                                                        
#(ribcage
                                                                          #(_)
                                                                          
#((top))
-                                                                         
#("i29416"))
+                                                                         
#("i28445"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -23644,7 +23801,7 @@
                                                                        
#(ribcage
                                                                          #(x)
                                                                          
#((top))
-                                                                         
#("i29410"))
+                                                                         
#("i28439"))
                                                                        
#(ribcage
                                                                          (emit 
quasivector
                                                                                
quasilist*
@@ -23659,51 +23816,51 @@
                                                                           (top)
                                                                           (top)
                                                                           
(top))
-                                                                         
("i29281"
-                                                                          
"i29279"
-                                                                          
"i29277"
-                                                                          
"i29275"
-                                                                          
"i29273"
-                                                                          
"i29271"
-                                                                          
"i29269")))
+                                                                         
("i28310"
+                                                                          
"i28308"
+                                                                          
"i28306"
+                                                                          
"i28304"
+                                                                          
"i28302"
+                                                                          
"i28300"
+                                                                          
"i28298")))
                                                                       (hygiene
                                                                         guile))
-                                                                   #{tmp 29438 
29687}#))
-                                                           #{y 29686}#)))
-                                                  #{tmp 29683}#)
-                                                (let ((#{tmp 29688}#
+                                                                   #{tmp 28467 
28716}#))
+                                                           #{y 28715}#)))
+                                                  #{tmp 28712}#)
+                                                (let ((#{tmp 28717}#
                                                         ($sc-dispatch
-                                                          #{y 29680}#
+                                                          #{y 28709}#
                                                           '(#(atom "list")
                                                             .
                                                             each-any))))
-                                                  (if #{tmp 29688}#
+                                                  (if #{tmp 28717}#
                                                     (@apply
-                                                      (lambda (#{y 29691}#)
-                                                        (#{k 29681}#
-                                                          #{y 29691}#))
-                                                      #{tmp 29688}#)
-                                                    (let ((#{tmp 29692}#
+                                                      (lambda (#{y 28720}#)
+                                                        (#{k 28710}#
+                                                          #{y 28720}#))
+                                                      #{tmp 28717}#)
+                                                    (let ((#{tmp 28721}#
                                                             ($sc-dispatch
-                                                              #{y 29680}#
+                                                              #{y 28709}#
                                                               '(#(atom "list*")
                                                                 .
                                                                 #(each+
                                                                   any
                                                                   (any)
                                                                   ())))))
-                                                      (if #{tmp 29692}#
+                                                      (if #{tmp 28721}#
                                                         (@apply
-                                                          (lambda (#{y 29695}#
-                                                                   #{z 29696}#)
-                                                            (#{f 29668}#
-                                                              #{z 29696}#
-                                                              (lambda (#{ls 
29697}#)
-                                                                (#{k 29681}#
+                                                          (lambda (#{y 28724}#
+                                                                   #{z 28725}#)
+                                                            (#{f 28697}#
+                                                              #{z 28725}#
+                                                              (lambda (#{ls 
28726}#)
+                                                                (#{k 28710}#
                                                                   (append
-                                                                    #{y 29695}#
-                                                                    #{ls 
29697}#)))))
-                                                          #{tmp 29692}#)
+                                                                    #{y 28724}#
+                                                                    #{ls 
28726}#)))))
+                                                          #{tmp 28721}#)
                                                         (list '#(syntax-object
                                                                  "list->vector"
                                                                  ((top)
@@ -23712,14 +23869,14 @@
                                                                     ()
                                                                     ())
                                                                   #(ribcage
-                                                                    #(#{ 
g29453}#)
-                                                                    #((m29454
+                                                                    #(#{ 
g28482}#)
+                                                                    #((m28483
                                                                         top))
-                                                                    
#("i29457"))
+                                                                    
#("i28486"))
                                                                   #(ribcage
                                                                     #(else)
                                                                     #((top))
-                                                                    
#("i29451"))
+                                                                    
#("i28480"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
@@ -23729,13 +23886,13 @@
                                                                     #((top)
                                                                       (top)
                                                                       (top))
-                                                                    #("i29418"
-                                                                      "i29419"
-                                                                      
"i29420"))
+                                                                    #("i28447"
+                                                                      "i28448"
+                                                                      
"i28449"))
                                                                   #(ribcage
                                                                     #(_)
                                                                     #((top))
-                                                                    
#("i29416"))
+                                                                    
#("i28445"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
@@ -23743,7 +23900,7 @@
                                                                   #(ribcage
                                                                     #(x)
                                                                     #((top))
-                                                                    
#("i29410"))
+                                                                    
#("i28439"))
                                                                   #(ribcage
                                                                     (emit 
quasivector
                                                                           
quasilist*
@@ -23758,26 +23915,26 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                    ("i29281"
-                                                                     "i29279"
-                                                                     "i29277"
-                                                                     "i29275"
-                                                                     "i29273"
-                                                                     "i29271"
-                                                                     
"i29269")))
+                                                                    ("i28310"
+                                                                     "i28308"
+                                                                     "i28306"
+                                                                     "i28304"
+                                                                     "i28302"
+                                                                     "i28300"
+                                                                     
"i28298")))
                                                                  (hygiene
                                                                    guile))
-                                                              #{x 
29660}#))))))))))
-                                       (#{f 29668}#
-                                         #{x 29660}#
-                                         (lambda (#{ls 29670}#)
-                                           (let ((#{tmp 29672}#
+                                                              #{x 
28689}#))))))))))
+                                       (#{f 28697}#
+                                         #{x 28689}#
+                                         (lambda (#{ls 28699}#)
+                                           (let ((#{tmp 28701}#
                                                    ($sc-dispatch
-                                                     #{ls 29670}#
+                                                     #{ls 28699}#
                                                      'each-any)))
-                                             (if #{tmp 29672}#
+                                             (if #{tmp 28701}#
                                                (@apply
-                                                 (lambda (#{ g29426 29675}#)
+                                                 (lambda (#{ g28455 28704}#)
                                                    (cons '#(syntax-object
                                                             "vector"
                                                             ((top)
@@ -23786,9 +23943,9 @@
                                                                ()
                                                                ())
                                                              #(ribcage
-                                                               #(#{ g29426}#)
-                                                               #((m29427 top))
-                                                               #("i29431"))
+                                                               #(#{ g28455}#)
+                                                               #((m28456 top))
+                                                               #("i28460"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -23804,11 +23961,11 @@
                                                              #(ribcage
                                                                #(ls)
                                                                #((top))
-                                                               #("i29425"))
+                                                               #("i28454"))
                                                              #(ribcage
                                                                #(_)
                                                                #((top))
-                                                               #("i29416"))
+                                                               #("i28445"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -23816,7 +23973,7 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i29410"))
+                                                               #("i28439"))
                                                              #(ribcage
                                                                (emit 
quasivector
                                                                      quasilist*
@@ -23831,30 +23988,30 @@
                                                                 (top)
                                                                 (top)
                                                                 (top))
-                                                               ("i29281"
-                                                                "i29279"
-                                                                "i29277"
-                                                                "i29275"
-                                                                "i29273"
-                                                                "i29271"
-                                                                "i29269")))
+                                                               ("i28310"
+                                                                "i28308"
+                                                                "i28306"
+                                                                "i28304"
+                                                                "i28302"
+                                                                "i28300"
+                                                                "i28298")))
                                                             (hygiene guile))
-                                                         #{ g29426 29675}#))
-                                                 #{tmp 29672}#)
+                                                         #{ g28455 28704}#))
+                                                 #{tmp 28701}#)
                                                (syntax-violation
                                                  #f
                                                  "source expression failed to 
match any pattern"
-                                                 #{ls 29670}#))))))))))
-                             #{tmp 29653}#)
+                                                 #{ls 28699}#))))))))))
+                             #{tmp 28682}#)
                            (list '#(syntax-object
                                     "quote"
                                     ((top)
-                                     #(ribcage #(p) #((top)) #("i29316"))
+                                     #(ribcage #(p) #((top)) #("i28345"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(p lev)
                                        #((top) (top))
-                                       #("i29285" "i29286"))
+                                       #("i28314" "i28315"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
@@ -23869,25 +24026,25 @@
                                         (top)
                                         (top)
                                         (top))
-                                       ("i29281"
-                                        "i29279"
-                                        "i29277"
-                                        "i29275"
-                                        "i29273"
-                                        "i29271"
-                                        "i29269")))
+                                       ("i28310"
+                                        "i28308"
+                                        "i28306"
+                                        "i28304"
+                                        "i28302"
+                                        "i28300"
+                                        "i28298")))
                                     (hygiene guile))
-                                 #{p 29563}#)))))))))))
-       (#{vquasi 29540}#
-         (lambda (#{p 29725}# #{lev 29726}#)
-           (let ((#{tmp 29728}#
-                   ($sc-dispatch #{p 29725}# '(any . any))))
-             (if #{tmp 29728}#
+                                 #{p 28592}#)))))))))))
+       (#{vquasi 28569}#
+         (lambda (#{p 28754}# #{lev 28755}#)
+           (let ((#{tmp 28757}#
+                   ($sc-dispatch #{p 28754}# '(any . any))))
+             (if #{tmp 28757}#
                (@apply
-                 (lambda (#{p 29732}# #{q 29733}#)
-                   (let ((#{tmp 29735}#
+                 (lambda (#{p 28761}# #{q 28762}#)
+                   (let ((#{tmp 28764}#
                            ($sc-dispatch
-                             #{p 29732}#
+                             #{p 28761}#
                              '(#(free-id
                                  #(syntax-object
                                    unquote
@@ -23895,12 +24052,12 @@
                                     #(ribcage
                                       #(p q)
                                       #((top) (top))
-                                      #("i29324" "i29325"))
+                                      #("i28353" "i28354"))
                                     #(ribcage () () ())
                                     #(ribcage
                                       #(p lev)
                                       #((top) (top))
-                                      #("i29320" "i29321"))
+                                      #("i28349" "i28350"))
                                     #(ribcage
                                       (emit quasivector
                                             quasilist*
@@ -23915,38 +24072,38 @@
                                        (top)
                                        (top)
                                        (top))
-                                      ("i29281"
-                                       "i29279"
-                                       "i29277"
-                                       "i29275"
-                                       "i29273"
-                                       "i29271"
-                                       "i29269")))
+                                      ("i28310"
+                                       "i28308"
+                                       "i28306"
+                                       "i28304"
+                                       "i28302"
+                                       "i28300"
+                                       "i28298")))
                                    (hygiene guile)))
                                .
                                each-any))))
-                     (if #{tmp 29735}#
+                     (if #{tmp 28764}#
                        (@apply
-                         (lambda (#{p 29739}#)
-                           (if (= #{lev 29726}# 0)
-                             (#{quasilist* 29543}#
-                               (map (lambda (#{tmp 29332 29775}#)
+                         (lambda (#{p 28768}#)
+                           (if (= #{lev 28755}# 0)
+                             (#{quasilist* 28572}#
+                               (map (lambda (#{tmp 28361 28804}#)
                                       (list '#(syntax-object
                                                "value"
                                                ((top)
                                                 #(ribcage
                                                   #(p)
                                                   #((top))
-                                                  #("i29330"))
+                                                  #("i28359"))
                                                 #(ribcage
                                                   #(p q)
                                                   #((top) (top))
-                                                  #("i29324" "i29325"))
+                                                  #("i28353" "i28354"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(p lev)
                                                   #((top) (top))
-                                                  #("i29320" "i29321"))
+                                                  #("i28349" "i28350"))
                                                 #(ribcage
                                                   (emit quasivector
                                                         quasilist*
@@ -23961,32 +24118,32 @@
                                                    (top)
                                                    (top)
                                                    (top))
-                                                  ("i29281"
-                                                   "i29279"
-                                                   "i29277"
-                                                   "i29275"
-                                                   "i29273"
-                                                   "i29271"
-                                                   "i29269")))
+                                                  ("i28310"
+                                                   "i28308"
+                                                   "i28306"
+                                                   "i28304"
+                                                   "i28302"
+                                                   "i28300"
+                                                   "i28298")))
                                                (hygiene guile))
-                                            #{tmp 29332 29775}#))
-                                    #{p 29739}#)
-                               (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))
-                             (#{quasicons 29541}#
-                               (#{quasicons 29541}#
+                                            #{tmp 28361 28804}#))
+                                    #{p 28768}#)
+                               (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))
+                             (#{quasicons 28570}#
+                               (#{quasicons 28570}#
                                  '(#(syntax-object
                                      "quote"
                                      ((top)
-                                      #(ribcage #(p) #((top)) #("i29330"))
+                                      #(ribcage #(p) #((top)) #("i28359"))
                                       #(ribcage
                                         #(p q)
                                         #((top) (top))
-                                        #("i29324" "i29325"))
+                                        #("i28353" "i28354"))
                                       #(ribcage () () ())
                                       #(ribcage
                                         #(p lev)
                                         #((top) (top))
-                                        #("i29320" "i29321"))
+                                        #("i28349" "i28350"))
                                       #(ribcage
                                         (emit quasivector
                                               quasilist*
@@ -24001,27 +24158,27 @@
                                          (top)
                                          (top)
                                          (top))
-                                        ("i29281"
-                                         "i29279"
-                                         "i29277"
-                                         "i29275"
-                                         "i29273"
-                                         "i29271"
-                                         "i29269")))
+                                        ("i28310"
+                                         "i28308"
+                                         "i28306"
+                                         "i28304"
+                                         "i28302"
+                                         "i28300"
+                                         "i28298")))
                                      (hygiene guile))
                                    #(syntax-object
                                      unquote
                                      ((top)
-                                      #(ribcage #(p) #((top)) #("i29330"))
+                                      #(ribcage #(p) #((top)) #("i28359"))
                                       #(ribcage
                                         #(p q)
                                         #((top) (top))
-                                        #("i29324" "i29325"))
+                                        #("i28353" "i28354"))
                                       #(ribcage () () ())
                                       #(ribcage
                                         #(p lev)
                                         #((top) (top))
-                                        #("i29320" "i29321"))
+                                        #("i28349" "i28350"))
                                       #(ribcage
                                         (emit quasivector
                                               quasilist*
@@ -24036,22 +24193,22 @@
                                          (top)
                                          (top)
                                          (top))
-                                        ("i29281"
-                                         "i29279"
-                                         "i29277"
-                                         "i29275"
-                                         "i29273"
-                                         "i29271"
-                                         "i29269")))
+                                        ("i28310"
+                                         "i28308"
+                                         "i28306"
+                                         "i28304"
+                                         "i28302"
+                                         "i28300"
+                                         "i28298")))
                                      (hygiene guile)))
-                                 (#{quasi 29539}#
-                                   #{p 29739}#
-                                   (#{1-}# #{lev 29726}#)))
-                               (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))))
-                         #{tmp 29735}#)
-                       (let ((#{tmp 29782}#
+                                 (#{quasi 28568}#
+                                   #{p 28768}#
+                                   (#{1-}# #{lev 28755}#)))
+                               (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))))
+                         #{tmp 28764}#)
+                       (let ((#{tmp 28811}#
                                ($sc-dispatch
-                                 #{p 29732}#
+                                 #{p 28761}#
                                  '(#(free-id
                                      #(syntax-object
                                        unquote-splicing
@@ -24059,12 +24216,12 @@
                                         #(ribcage
                                           #(p q)
                                           #((top) (top))
-                                          #("i29324" "i29325"))
+                                          #("i28353" "i28354"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p lev)
                                           #((top) (top))
-                                          #("i29320" "i29321"))
+                                          #("i28349" "i28350"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
@@ -24079,38 +24236,38 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("i29281"
-                                           "i29279"
-                                           "i29277"
-                                           "i29275"
-                                           "i29273"
-                                           "i29271"
-                                           "i29269")))
+                                          ("i28310"
+                                           "i28308"
+                                           "i28306"
+                                           "i28304"
+                                           "i28302"
+                                           "i28300"
+                                           "i28298")))
                                        (hygiene guile)))
                                    .
                                    each-any))))
-                         (if #{tmp 29782}#
+                         (if #{tmp 28811}#
                            (@apply
-                             (lambda (#{p 29786}#)
-                               (if (= #{lev 29726}# 0)
-                                 (#{quasiappend 29542}#
-                                   (map (lambda (#{tmp 29337 29789}#)
+                             (lambda (#{p 28815}#)
+                               (if (= #{lev 28755}# 0)
+                                 (#{quasiappend 28571}#
+                                   (map (lambda (#{tmp 28366 28818}#)
                                           (list '#(syntax-object
                                                    "value"
                                                    ((top)
                                                     #(ribcage
                                                       #(p)
                                                       #((top))
-                                                      #("i29335"))
+                                                      #("i28364"))
                                                     #(ribcage
                                                       #(p q)
                                                       #((top) (top))
-                                                      #("i29324" "i29325"))
+                                                      #("i28353" "i28354"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(p lev)
                                                       #((top) (top))
-                                                      #("i29320" "i29321"))
+                                                      #("i28349" "i28350"))
                                                     #(ribcage
                                                       (emit quasivector
                                                             quasilist*
@@ -24125,34 +24282,34 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i29281"
-                                                       "i29279"
-                                                       "i29277"
-                                                       "i29275"
-                                                       "i29273"
-                                                       "i29271"
-                                                       "i29269")))
+                                                      ("i28310"
+                                                       "i28308"
+                                                       "i28306"
+                                                       "i28304"
+                                                       "i28302"
+                                                       "i28300"
+                                                       "i28298")))
                                                    (hygiene guile))
-                                                #{tmp 29337 29789}#))
-                                        #{p 29786}#)
-                                   (#{vquasi 29540}#
-                                     #{q 29733}#
-                                     #{lev 29726}#))
-                                 (#{quasicons 29541}#
-                                   (#{quasicons 29541}#
+                                                #{tmp 28366 28818}#))
+                                        #{p 28815}#)
+                                   (#{vquasi 28569}#
+                                     #{q 28762}#
+                                     #{lev 28755}#))
+                                 (#{quasicons 28570}#
+                                   (#{quasicons 28570}#
                                      '(#(syntax-object
                                          "quote"
                                          ((top)
-                                          #(ribcage #(p) #((top)) #("i29335"))
+                                          #(ribcage #(p) #((top)) #("i28364"))
                                           #(ribcage
                                             #(p q)
                                             #((top) (top))
-                                            #("i29324" "i29325"))
+                                            #("i28353" "i28354"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
-                                            #("i29320" "i29321"))
+                                            #("i28349" "i28350"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
@@ -24167,27 +24324,27 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i29281"
-                                             "i29279"
-                                             "i29277"
-                                             "i29275"
-                                             "i29273"
-                                             "i29271"
-                                             "i29269")))
+                                            ("i28310"
+                                             "i28308"
+                                             "i28306"
+                                             "i28304"
+                                             "i28302"
+                                             "i28300"
+                                             "i28298")))
                                          (hygiene guile))
                                        #(syntax-object
                                          unquote-splicing
                                          ((top)
-                                          #(ribcage #(p) #((top)) #("i29335"))
+                                          #(ribcage #(p) #((top)) #("i28364"))
                                           #(ribcage
                                             #(p q)
                                             #((top) (top))
-                                            #("i29324" "i29325"))
+                                            #("i28353" "i28354"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
-                                            #("i29320" "i29321"))
+                                            #("i28349" "i28350"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
@@ -24202,27 +24359,27 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i29281"
-                                             "i29279"
-                                             "i29277"
-                                             "i29275"
-                                             "i29273"
-                                             "i29271"
-                                             "i29269")))
+                                            ("i28310"
+                                             "i28308"
+                                             "i28306"
+                                             "i28304"
+                                             "i28302"
+                                             "i28300"
+                                             "i28298")))
                                          (hygiene guile)))
-                                     (#{quasi 29539}#
-                                       #{p 29786}#
-                                       (#{1-}# #{lev 29726}#)))
-                                   (#{vquasi 29540}#
-                                     #{q 29733}#
-                                     #{lev 29726}#))))
-                             #{tmp 29782}#)
-                           (#{quasicons 29541}#
-                             (#{quasi 29539}# #{p 29732}# #{lev 29726}#)
-                             (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)))))))
-                 #{tmp 29728}#)
-               (let ((#{tmp 29807}# ($sc-dispatch #{p 29725}# '())))
-                 (if #{tmp 29807}#
+                                     (#{quasi 28568}#
+                                       #{p 28815}#
+                                       (#{1-}# #{lev 28755}#)))
+                                   (#{vquasi 28569}#
+                                     #{q 28762}#
+                                     #{lev 28755}#))))
+                             #{tmp 28811}#)
+                           (#{quasicons 28570}#
+                             (#{quasi 28568}# #{p 28761}# #{lev 28755}#)
+                             (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)))))))
+                 #{tmp 28757}#)
+               (let ((#{tmp 28836}# ($sc-dispatch #{p 28754}# '())))
+                 (if #{tmp 28836}#
                    (@apply
                      (lambda ()
                        '(#(syntax-object
@@ -24232,7 +24389,7 @@
                             #(ribcage
                               #(p lev)
                               #((top) (top))
-                              #("i29320" "i29321"))
+                              #("i28349" "i28350"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
@@ -24241,64 +24398,64 @@
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
-                              ("i29281"
-                               "i29279"
-                               "i29277"
-                               "i29275"
-                               "i29273"
-                               "i29271"
-                               "i29269")))
+                              ("i28310"
+                               "i28308"
+                               "i28306"
+                               "i28304"
+                               "i28302"
+                               "i28300"
+                               "i28298")))
                            (hygiene guile))
                          ()))
-                     #{tmp 29807}#)
+                     #{tmp 28836}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
-                     #{p 29725}#)))))))
-       (#{quasicons 29541}#
-         (lambda (#{x 29820}# #{y 29821}#)
-           (let ((#{tmp 29822}# (list #{x 29820}# #{y 29821}#)))
-             (let ((#{tmp 29823}#
-                     ($sc-dispatch #{tmp 29822}# '(any any))))
-               (if #{tmp 29823}#
+                     #{p 28754}#)))))))
+       (#{quasicons 28570}#
+         (lambda (#{x 28849}# #{y 28850}#)
+           (let ((#{tmp 28851}# (list #{x 28849}# #{y 28850}#)))
+             (let ((#{tmp 28852}#
+                     ($sc-dispatch #{tmp 28851}# '(any any))))
+               (if #{tmp 28852}#
                  (@apply
-                   (lambda (#{x 29825}# #{y 29826}#)
-                     (let ((#{tmp 29828}#
+                   (lambda (#{x 28854}# #{y 28855}#)
+                     (let ((#{tmp 28857}#
                              ($sc-dispatch
-                               #{y 29826}#
+                               #{y 28855}#
                                '(#(atom "quote") any))))
-                       (if #{tmp 29828}#
+                       (if #{tmp 28857}#
                          (@apply
-                           (lambda (#{dy 29832}#)
-                             (let ((#{tmp 29834}#
+                           (lambda (#{dy 28861}#)
+                             (let ((#{tmp 28863}#
                                      ($sc-dispatch
-                                       #{x 29825}#
+                                       #{x 28854}#
                                        '(#(atom "quote") any))))
-                               (if #{tmp 29834}#
+                               (if #{tmp 28863}#
                                  (@apply
-                                   (lambda (#{dx 29838}#)
+                                   (lambda (#{dx 28867}#)
                                      (list '#(syntax-object
                                               "quote"
                                               ((top)
                                                #(ribcage
                                                  #(dx)
                                                  #((top))
-                                                 #("i29359"))
+                                                 #("i28388"))
                                                #(ribcage
                                                  #(dy)
                                                  #((top))
-                                                 #("i29355"))
+                                                 #("i28384"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x y)
                                                  #((top) (top))
-                                                 #("i29349" "i29350"))
+                                                 #("i28378" "i28379"))
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x y)
                                                  #((top) (top))
-                                                 #("i29344" "i29345"))
+                                                 #("i28373" "i28374"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
@@ -24313,39 +24470,39 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                 ("i29281"
-                                                  "i29279"
-                                                  "i29277"
-                                                  "i29275"
-                                                  "i29273"
-                                                  "i29271"
-                                                  "i29269")))
+                                                 ("i28310"
+                                                  "i28308"
+                                                  "i28306"
+                                                  "i28304"
+                                                  "i28302"
+                                                  "i28300"
+                                                  "i28298")))
                                               (hygiene guile))
-                                           (cons #{dx 29838}# #{dy 29832}#)))
-                                   #{tmp 29834}#)
-                                 (if (null? #{dy 29832}#)
+                                           (cons #{dx 28867}# #{dy 28861}#)))
+                                   #{tmp 28863}#)
+                                 (if (null? #{dy 28861}#)
                                    (list '#(syntax-object
                                             "list"
                                             ((top)
                                              #(ribcage
                                                #(_)
                                                #((top))
-                                               #("i29361"))
+                                               #("i28390"))
                                              #(ribcage
                                                #(dy)
                                                #((top))
-                                               #("i29355"))
+                                               #("i28384"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i29349" "i29350"))
+                                               #("i28378" "i28379"))
                                              #(ribcage () () ())
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i29344" "i29345"))
+                                               #("i28373" "i28374"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
@@ -24360,37 +24517,37 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i29281"
-                                                "i29279"
-                                                "i29277"
-                                                "i29275"
-                                                "i29273"
-                                                "i29271"
-                                                "i29269")))
+                                               ("i28310"
+                                                "i28308"
+                                                "i28306"
+                                                "i28304"
+                                                "i28302"
+                                                "i28300"
+                                                "i28298")))
                                             (hygiene guile))
-                                         #{x 29825}#)
+                                         #{x 28854}#)
                                    (list '#(syntax-object
                                             "list*"
                                             ((top)
                                              #(ribcage
                                                #(_)
                                                #((top))
-                                               #("i29361"))
+                                               #("i28390"))
                                              #(ribcage
                                                #(dy)
                                                #((top))
-                                               #("i29355"))
+                                               #("i28384"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i29349" "i29350"))
+                                               #("i28378" "i28379"))
                                              #(ribcage () () ())
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i29344" "i29345"))
+                                               #("i28373" "i28374"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
@@ -24405,42 +24562,42 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i29281"
-                                                "i29279"
-                                                "i29277"
-                                                "i29275"
-                                                "i29273"
-                                                "i29271"
-                                                "i29269")))
+                                               ("i28310"
+                                                "i28308"
+                                                "i28306"
+                                                "i28304"
+                                                "i28302"
+                                                "i28300"
+                                                "i28298")))
                                             (hygiene guile))
-                                         #{x 29825}#
-                                         #{y 29826}#)))))
-                           #{tmp 29828}#)
-                         (let ((#{tmp 29843}#
+                                         #{x 28854}#
+                                         #{y 28855}#)))))
+                           #{tmp 28857}#)
+                         (let ((#{tmp 28872}#
                                  ($sc-dispatch
-                                   #{y 29826}#
+                                   #{y 28855}#
                                    '(#(atom "list") . any))))
-                           (if #{tmp 29843}#
+                           (if #{tmp 28872}#
                              (@apply
-                               (lambda (#{stuff 29847}#)
+                               (lambda (#{stuff 28876}#)
                                  (cons '#(syntax-object
                                           "list"
                                           ((top)
                                            #(ribcage
                                              #(stuff)
                                              #((top))
-                                             #("i29364"))
+                                             #("i28393"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x y)
                                              #((top) (top))
-                                             #("i29349" "i29350"))
+                                             #("i28378" "i28379"))
                                            #(ribcage () () ())
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x y)
                                              #((top) (top))
-                                             #("i29344" "i29345"))
+                                             #("i28373" "i28374"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
@@ -24455,41 +24612,41 @@
                                               (top)
                                               (top)
                                               (top))
-                                             ("i29281"
-                                              "i29279"
-                                              "i29277"
-                                              "i29275"
-                                              "i29273"
-                                              "i29271"
-                                              "i29269")))
+                                             ("i28310"
+                                              "i28308"
+                                              "i28306"
+                                              "i28304"
+                                              "i28302"
+                                              "i28300"
+                                              "i28298")))
                                           (hygiene guile))
-                                       (cons #{x 29825}# #{stuff 29847}#)))
-                               #{tmp 29843}#)
-                             (let ((#{tmp 29848}#
+                                       (cons #{x 28854}# #{stuff 28876}#)))
+                               #{tmp 28872}#)
+                             (let ((#{tmp 28877}#
                                      ($sc-dispatch
-                                       #{y 29826}#
+                                       #{y 28855}#
                                        '(#(atom "list*") . any))))
-                               (if #{tmp 29848}#
+                               (if #{tmp 28877}#
                                  (@apply
-                                   (lambda (#{stuff 29852}#)
+                                   (lambda (#{stuff 28881}#)
                                      (cons '#(syntax-object
                                               "list*"
                                               ((top)
                                                #(ribcage
                                                  #(stuff)
                                                  #((top))
-                                                 #("i29367"))
+                                                 #("i28396"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x y)
                                                  #((top) (top))
-                                                 #("i29349" "i29350"))
+                                                 #("i28378" "i28379"))
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x y)
                                                  #((top) (top))
-                                                 #("i29344" "i29345"))
+                                                 #("i28373" "i28374"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
@@ -24504,31 +24661,31 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                 ("i29281"
-                                                  "i29279"
-                                                  "i29277"
-                                                  "i29275"
-                                                  "i29273"
-                                                  "i29271"
-                                                  "i29269")))
+                                                 ("i28310"
+                                                  "i28308"
+                                                  "i28306"
+                                                  "i28304"
+                                                  "i28302"
+                                                  "i28300"
+                                                  "i28298")))
                                               (hygiene guile))
-                                           (cons #{x 29825}# #{stuff 29852}#)))
-                                   #{tmp 29848}#)
+                                           (cons #{x 28854}# #{stuff 28881}#)))
+                                   #{tmp 28877}#)
                                  (list '#(syntax-object
                                           "list*"
                                           ((top)
-                                           #(ribcage #(_) #((top)) #("i29369"))
+                                           #(ribcage #(_) #((top)) #("i28398"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x y)
                                              #((top) (top))
-                                             #("i29349" "i29350"))
+                                             #("i28378" "i28379"))
                                            #(ribcage () () ())
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x y)
                                              #((top) (top))
-                                             #("i29344" "i29345"))
+                                             #("i28373" "i28374"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
@@ -24543,29 +24700,29 @@
                                               (top)
                                               (top)
                                               (top))
-                                             ("i29281"
-                                              "i29279"
-                                              "i29277"
-                                              "i29275"
-                                              "i29273"
-                                              "i29271"
-                                              "i29269")))
+                                             ("i28310"
+                                              "i28308"
+                                              "i28306"
+                                              "i28304"
+                                              "i28302"
+                                              "i28300"
+                                              "i28298")))
                                           (hygiene guile))
-                                       #{x 29825}#
-                                       #{y 29826}#))))))))
-                   #{tmp 29823}#)
+                                       #{x 28854}#
+                                       #{y 28855}#))))))))
+                   #{tmp 28852}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
-                   #{tmp 29822}#))))))
-       (#{quasiappend 29542}#
-         (lambda (#{x 29863}# #{y 29864}#)
-           (let ((#{tmp 29866}#
-                   ($sc-dispatch #{y 29864}# '(#(atom "quote") ()))))
-             (if #{tmp 29866}#
+                   #{tmp 28851}#))))))
+       (#{quasiappend 28571}#
+         (lambda (#{x 28892}# #{y 28893}#)
+           (let ((#{tmp 28895}#
+                   ($sc-dispatch #{y 28893}# '(#(atom "quote") ()))))
+             (if #{tmp 28895}#
                (@apply
                  (lambda ()
-                   (if (null? #{x 29863}#)
+                   (if (null? #{x 28892}#)
                      '(#(syntax-object
                          "quote"
                          ((top)
@@ -24573,7 +24730,7 @@
                           #(ribcage
                             #(x y)
                             #((top) (top))
-                            #("i29373" "i29374"))
+                            #("i28402" "i28403"))
                           #(ribcage
                             (emit quasivector
                                   quasilist*
@@ -24582,32 +24739,32 @@
                                   vquasi
                                   quasi)
                             ((top) (top) (top) (top) (top) (top) (top))
-                            ("i29281"
-                             "i29279"
-                             "i29277"
-                             "i29275"
-                             "i29273"
-                             "i29271"
-                             "i29269")))
+                            ("i28310"
+                             "i28308"
+                             "i28306"
+                             "i28304"
+                             "i28302"
+                             "i28300"
+                             "i28298")))
                          (hygiene guile))
                        ())
-                     (if (null? (cdr #{x 29863}#))
-                       (car #{x 29863}#)
-                       (let ((#{tmp 29871}#
-                               ($sc-dispatch #{x 29863}# 'each-any)))
-                         (if #{tmp 29871}#
+                     (if (null? (cdr #{x 28892}#))
+                       (car #{x 28892}#)
+                       (let ((#{tmp 28900}#
+                               ($sc-dispatch #{x 28892}# 'each-any)))
+                         (if #{tmp 28900}#
                            (@apply
-                             (lambda (#{p 29875}#)
+                             (lambda (#{p 28904}#)
                                (cons '#(syntax-object
                                         "append"
                                         ((top)
                                          #(ribcage () () ())
-                                         #(ribcage #(p) #((top)) #("i29385"))
+                                         #(ribcage #(p) #((top)) #("i28414"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(x y)
                                            #((top) (top))
-                                           #("i29373" "i29374"))
+                                           #("i28402" "i28403"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
@@ -24622,29 +24779,29 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i29281"
-                                            "i29279"
-                                            "i29277"
-                                            "i29275"
-                                            "i29273"
-                                            "i29271"
-                                            "i29269")))
+                                           ("i28310"
+                                            "i28308"
+                                            "i28306"
+                                            "i28304"
+                                            "i28302"
+                                            "i28300"
+                                            "i28298")))
                                         (hygiene guile))
-                                     #{p 29875}#))
-                             #{tmp 29871}#)
+                                     #{p 28904}#))
+                             #{tmp 28900}#)
                            (syntax-violation
                              #f
                              "source expression failed to match any pattern"
-                             #{x 29863}#))))))
-                 #{tmp 29866}#)
-               (if (null? #{x 29863}#)
-                 #{y 29864}#
-                 (let ((#{tmp 29883}# (list #{x 29863}# #{y 29864}#)))
-                   (let ((#{tmp 29884}#
-                           ($sc-dispatch #{tmp 29883}# '(each-any any))))
-                     (if #{tmp 29884}#
+                             #{x 28892}#))))))
+                 #{tmp 28895}#)
+               (if (null? #{x 28892}#)
+                 #{y 28893}#
+                 (let ((#{tmp 28912}# (list #{x 28892}# #{y 28893}#)))
+                   (let ((#{tmp 28913}#
+                           ($sc-dispatch #{tmp 28912}# '(each-any any))))
+                     (if #{tmp 28913}#
                        (@apply
-                         (lambda (#{p 29886}# #{y 29887}#)
+                         (lambda (#{p 28915}# #{y 28916}#)
                            (cons '#(syntax-object
                                     "append"
                                     ((top)
@@ -24652,13 +24809,13 @@
                                      #(ribcage
                                        #(p y)
                                        #((top) (top))
-                                       #("i29396" "i29397"))
-                                     #(ribcage #(_) #((top)) #("i29388"))
+                                       #("i28425" "i28426"))
+                                     #(ribcage #(_) #((top)) #("i28417"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(x y)
                                        #((top) (top))
-                                       #("i29373" "i29374"))
+                                       #("i28402" "i28403"))
                                      #(ribcage
                                        (emit quasivector
                                              quasilist*
@@ -24673,44 +24830,44 @@
                                         (top)
                                         (top)
                                         (top))
-                                       ("i29281"
-                                        "i29279"
-                                        "i29277"
-                                        "i29275"
-                                        "i29273"
-                                        "i29271"
-                                        "i29269")))
+                                       ("i28310"
+                                        "i28308"
+                                        "i28306"
+                                        "i28304"
+                                        "i28302"
+                                        "i28300"
+                                        "i28298")))
                                     (hygiene guile))
-                                 (append #{p 29886}# (list #{y 29887}#))))
-                         #{tmp 29884}#)
+                                 (append #{p 28915}# (list #{y 28916}#))))
+                         #{tmp 28913}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp 29883}#)))))))))
-       (#{quasilist* 29543}#
-         (lambda (#{x 29891}# #{y 29892}#)
+                         #{tmp 28912}#)))))))))
+       (#{quasilist* 28572}#
+         (lambda (#{x 28920}# #{y 28921}#)
            (letrec*
-             ((#{f 29893}#
-                (lambda (#{x 29982}#)
-                  (if (null? #{x 29982}#)
-                    #{y 29892}#
-                    (#{quasicons 29541}#
-                      (car #{x 29982}#)
-                      (#{f 29893}# (cdr #{x 29982}#)))))))
-             (#{f 29893}# #{x 29891}#))))
-       (#{emit 29545}#
-         (lambda (#{x 29985}#)
-           (let ((#{tmp 29987}#
-                   ($sc-dispatch #{x 29985}# '(#(atom "quote") any))))
-             (if #{tmp 29987}#
+             ((#{f 28922}#
+                (lambda (#{x 29011}#)
+                  (if (null? #{x 29011}#)
+                    #{y 28921}#
+                    (#{quasicons 28570}#
+                      (car #{x 29011}#)
+                      (#{f 28922}# (cdr #{x 29011}#)))))))
+             (#{f 28922}# #{x 28920}#))))
+       (#{emit 28574}#
+         (lambda (#{x 29014}#)
+           (let ((#{tmp 29016}#
+                   ($sc-dispatch #{x 29014}# '(#(atom "quote") any))))
+             (if #{tmp 29016}#
                (@apply
-                 (lambda (#{x 29991}#)
+                 (lambda (#{x 29020}#)
                    (list '#(syntax-object
                             quote
                             ((top)
-                             #(ribcage #(x) #((top)) #("i29463"))
+                             #(ribcage #(x) #((top)) #("i28492"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i29460"))
+                             #(ribcage #(x) #((top)) #("i28489"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
@@ -24719,40 +24876,40 @@
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
-                               ("i29281"
-                                "i29279"
-                                "i29277"
-                                "i29275"
-                                "i29273"
-                                "i29271"
-                                "i29269")))
+                               ("i28310"
+                                "i28308"
+                                "i28306"
+                                "i28304"
+                                "i28302"
+                                "i28300"
+                                "i28298")))
                             (hygiene guile))
-                         #{x 29991}#))
-                 #{tmp 29987}#)
-               (let ((#{tmp 29992}#
+                         #{x 29020}#))
+                 #{tmp 29016}#)
+               (let ((#{tmp 29021}#
                        ($sc-dispatch
-                         #{x 29985}#
+                         #{x 29014}#
                          '(#(atom "list") . each-any))))
-                 (if #{tmp 29992}#
+                 (if #{tmp 29021}#
                    (@apply
-                     (lambda (#{x 29996}#)
-                       (let ((#{tmp 29997}# (map #{emit 29545}# #{x 29996}#)))
-                         (let ((#{tmp 29998}#
-                                 ($sc-dispatch #{tmp 29997}# 'each-any)))
-                           (if #{tmp 29998}#
+                     (lambda (#{x 29025}#)
+                       (let ((#{tmp 29026}# (map #{emit 28574}# #{x 29025}#)))
+                         (let ((#{tmp 29027}#
+                                 ($sc-dispatch #{tmp 29026}# 'each-any)))
+                           (if #{tmp 29027}#
                              (@apply
-                               (lambda (#{ g29468 30000}#)
+                               (lambda (#{ g28497 29029}#)
                                  (cons '#(syntax-object
                                           list
                                           ((top)
                                            #(ribcage () () ())
                                            #(ribcage
-                                             #(#{ g29468}#)
-                                             #((m29469 top))
-                                             #("i29473"))
-                                           #(ribcage #(x) #((top)) #("i29466"))
+                                             #(#{ g28497}#)
+                                             #((m28498 top))
+                                             #("i28502"))
+                                           #(ribcage #(x) #((top)) #("i28495"))
                                            #(ribcage () () ())
-                                           #(ribcage #(x) #((top)) #("i29460"))
+                                           #(ribcage #(x) #((top)) #("i28489"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
@@ -24767,70 +24924,70 @@
                                               (top)
                                               (top)
                                               (top))
-                                             ("i29281"
-                                              "i29279"
-                                              "i29277"
-                                              "i29275"
-                                              "i29273"
-                                              "i29271"
-                                              "i29269")))
+                                             ("i28310"
+                                              "i28308"
+                                              "i28306"
+                                              "i28304"
+                                              "i28302"
+                                              "i28300"
+                                              "i28298")))
                                           (hygiene guile))
-                                       #{ g29468 30000}#))
-                               #{tmp 29998}#)
+                                       #{ g28497 29029}#))
+                               #{tmp 29027}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{tmp 29997}#)))))
-                     #{tmp 29992}#)
-                   (let ((#{tmp 30001}#
+                               #{tmp 29026}#)))))
+                     #{tmp 29021}#)
+                   (let ((#{tmp 29030}#
                            ($sc-dispatch
-                             #{x 29985}#
+                             #{x 29014}#
                              '(#(atom "list*") . #(each+ any (any) ())))))
-                     (if #{tmp 30001}#
+                     (if #{tmp 29030}#
                        (@apply
-                         (lambda (#{x 30005}# #{y 30006}#)
+                         (lambda (#{x 29034}# #{y 29035}#)
                            (letrec*
-                             ((#{f 30007}#
-                                (lambda (#{x* 30010}#)
-                                  (if (null? #{x* 30010}#)
-                                    (#{emit 29545}# #{y 30006}#)
-                                    (let ((#{tmp 30011}#
-                                            (list (#{emit 29545}#
-                                                    (car #{x* 30010}#))
-                                                  (#{f 30007}#
-                                                    (cdr #{x* 30010}#)))))
-                                      (let ((#{tmp 30012}#
+                             ((#{f 29036}#
+                                (lambda (#{x* 29039}#)
+                                  (if (null? #{x* 29039}#)
+                                    (#{emit 28574}# #{y 29035}#)
+                                    (let ((#{tmp 29040}#
+                                            (list (#{emit 28574}#
+                                                    (car #{x* 29039}#))
+                                                  (#{f 29036}#
+                                                    (cdr #{x* 29039}#)))))
+                                      (let ((#{tmp 29041}#
                                               ($sc-dispatch
-                                                #{tmp 30011}#
+                                                #{tmp 29040}#
                                                 '(any any))))
-                                        (if #{tmp 30012}#
+                                        (if #{tmp 29041}#
                                           (@apply
-                                            (lambda (#{ g29488 30014}#
-                                                     #{ g29487 30015}#)
+                                            (lambda (#{ g28517 29043}#
+                                                     #{ g28516 29044}#)
                                               (list '#(syntax-object
                                                        cons
                                                        ((top)
                                                         #(ribcage () () ())
                                                         #(ribcage
-                                                          #(#{ g29488}#
-                                                            #{ g29487}#)
-                                                          #((m29489 top)
-                                                            (m29489 top))
-                                                          #("i29493" "i29494"))
+                                                          #(#{ g28517}#
+                                                            #{ g28516}#)
+                                                          #((m28518 top)
+                                                            (m28518 top))
+                                                          #("i28522" "i28523"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f x*)
                                                           #((top) (top))
-                                                          #("i29482" "i29483"))
+                                                          #("i28511" "i28512"))
                                                         #(ribcage
                                                           #(x y)
                                                           #((top) (top))
-                                                          #("i29478" "i29479"))
+                                                          #("i28507" "i28508"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i29460"))
+                                                          #("i28489"))
                                                         #(ribcage
                                                           (emit quasivector
                                                                 quasilist*
@@ -24845,56 +25002,56 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                          ("i29281"
-                                                           "i29279"
-                                                           "i29277"
-                                                           "i29275"
-                                                           "i29273"
-                                                           "i29271"
-                                                           "i29269")))
+                                                          ("i28310"
+                                                           "i28308"
+                                                           "i28306"
+                                                           "i28304"
+                                                           "i28302"
+                                                           "i28300"
+                                                           "i28298")))
                                                        (hygiene guile))
-                                                    #{ g29488 30014}#
-                                                    #{ g29487 30015}#))
-                                            #{tmp 30012}#)
+                                                    #{ g28517 29043}#
+                                                    #{ g28516 29044}#))
+                                            #{tmp 29041}#)
                                           (syntax-violation
                                             #f
                                             "source expression failed to match 
any pattern"
-                                            #{tmp 30011}#))))))))
-                             (#{f 30007}# #{x 30005}#)))
-                         #{tmp 30001}#)
-                       (let ((#{tmp 30016}#
+                                            #{tmp 29040}#))))))))
+                             (#{f 29036}# #{x 29034}#)))
+                         #{tmp 29030}#)
+                       (let ((#{tmp 29045}#
                                ($sc-dispatch
-                                 #{x 29985}#
+                                 #{x 29014}#
                                  '(#(atom "append") . each-any))))
-                         (if #{tmp 30016}#
+                         (if #{tmp 29045}#
                            (@apply
-                             (lambda (#{x 30020}#)
-                               (let ((#{tmp 30021}#
-                                       (map #{emit 29545}# #{x 30020}#)))
-                                 (let ((#{tmp 30022}#
+                             (lambda (#{x 29049}#)
+                               (let ((#{tmp 29050}#
+                                       (map #{emit 28574}# #{x 29049}#)))
+                                 (let ((#{tmp 29051}#
                                          ($sc-dispatch
-                                           #{tmp 30021}#
+                                           #{tmp 29050}#
                                            'each-any)))
-                                   (if #{tmp 30022}#
+                                   (if #{tmp 29051}#
                                      (@apply
-                                       (lambda (#{ g29500 30024}#)
+                                       (lambda (#{ g28529 29053}#)
                                          (cons '#(syntax-object
                                                   append
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage
-                                                     #(#{ g29500}#)
-                                                     #((m29501 top))
-                                                     #("i29505"))
+                                                     #(#{ g28529}#)
+                                                     #((m28530 top))
+                                                     #("i28534"))
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i29498"))
+                                                     #("i28527"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i29460"))
+                                                     #("i28489"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
@@ -24909,54 +25066,54 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i29281"
-                                                      "i29279"
-                                                      "i29277"
-                                                      "i29275"
-                                                      "i29273"
-                                                      "i29271"
-                                                      "i29269")))
+                                                     ("i28310"
+                                                      "i28308"
+                                                      "i28306"
+                                                      "i28304"
+                                                      "i28302"
+                                                      "i28300"
+                                                      "i28298")))
                                                   (hygiene guile))
-                                               #{ g29500 30024}#))
-                                       #{tmp 30022}#)
+                                               #{ g28529 29053}#))
+                                       #{tmp 29051}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any 
pattern"
-                                       #{tmp 30021}#)))))
-                             #{tmp 30016}#)
-                           (let ((#{tmp 30025}#
+                                       #{tmp 29050}#)))))
+                             #{tmp 29045}#)
+                           (let ((#{tmp 29054}#
                                    ($sc-dispatch
-                                     #{x 29985}#
+                                     #{x 29014}#
                                      '(#(atom "vector") . each-any))))
-                             (if #{tmp 30025}#
+                             (if #{tmp 29054}#
                                (@apply
-                                 (lambda (#{x 30029}#)
-                                   (let ((#{tmp 30030}#
-                                           (map #{emit 29545}# #{x 30029}#)))
-                                     (let ((#{tmp 30031}#
+                                 (lambda (#{x 29058}#)
+                                   (let ((#{tmp 29059}#
+                                           (map #{emit 28574}# #{x 29058}#)))
+                                     (let ((#{tmp 29060}#
                                              ($sc-dispatch
-                                               #{tmp 30030}#
+                                               #{tmp 29059}#
                                                'each-any)))
-                                       (if #{tmp 30031}#
+                                       (if #{tmp 29060}#
                                          (@apply
-                                           (lambda (#{ g29512 30033}#)
+                                           (lambda (#{ g28541 29062}#)
                                              (cons '#(syntax-object
                                                       vector
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage
-                                                         #(#{ g29512}#)
-                                                         #((m29513 top))
-                                                         #("i29517"))
+                                                         #(#{ g28541}#)
+                                                         #((m28542 top))
+                                                         #("i28546"))
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
-                                                         #("i29510"))
+                                                         #("i28539"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
-                                                         #("i29460"))
+                                                         #("i28489"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
@@ -24971,47 +25128,47 @@
                                                           (top)
                                                           (top)
                                                           (top))
-                                                         ("i29281"
-                                                          "i29279"
-                                                          "i29277"
-                                                          "i29275"
-                                                          "i29273"
-                                                          "i29271"
-                                                          "i29269")))
+                                                         ("i28310"
+                                                          "i28308"
+                                                          "i28306"
+                                                          "i28304"
+                                                          "i28302"
+                                                          "i28300"
+                                                          "i28298")))
                                                       (hygiene guile))
-                                                   #{ g29512 30033}#))
-                                           #{tmp 30031}#)
+                                                   #{ g28541 29062}#))
+                                           #{tmp 29060}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp 30030}#)))))
-                                 #{tmp 30025}#)
-                               (let ((#{tmp 30034}#
+                                           #{tmp 29059}#)))))
+                                 #{tmp 29054}#)
+                               (let ((#{tmp 29063}#
                                        ($sc-dispatch
-                                         #{x 29985}#
+                                         #{x 29014}#
                                          '(#(atom "list->vector") any))))
-                                 (if #{tmp 30034}#
+                                 (if #{tmp 29063}#
                                    (@apply
-                                     (lambda (#{x 30038}#)
-                                       (let ((#{tmp 30039}#
-                                               (#{emit 29545}# #{x 30038}#)))
+                                     (lambda (#{x 29067}#)
+                                       (let ((#{tmp 29068}#
+                                               (#{emit 28574}# #{x 29067}#)))
                                          (list '#(syntax-object
                                                   list->vector
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage
-                                                     #(#{ g29524}#)
-                                                     #((m29525 top))
-                                                     #("i29528"))
+                                                     #(#{ g28553}#)
+                                                     #((m28554 top))
+                                                     #("i28557"))
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i29522"))
+                                                     #("i28551"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i29460"))
+                                                     #("i28489"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
@@ -25026,188 +25183,188 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i29281"
-                                                      "i29279"
-                                                      "i29277"
-                                                      "i29275"
-                                                      "i29273"
-                                                      "i29271"
-                                                      "i29269")))
+                                                     ("i28310"
+                                                      "i28308"
+                                                      "i28306"
+                                                      "i28304"
+                                                      "i28302"
+                                                      "i28300"
+                                                      "i28298")))
                                                   (hygiene guile))
-                                               #{tmp 30039}#)))
-                                     #{tmp 30034}#)
-                                   (let ((#{tmp 30042}#
+                                               #{tmp 29068}#)))
+                                     #{tmp 29063}#)
+                                   (let ((#{tmp 29071}#
                                            ($sc-dispatch
-                                             #{x 29985}#
+                                             #{x 29014}#
                                              '(#(atom "value") any))))
-                                     (if #{tmp 30042}#
+                                     (if #{tmp 29071}#
                                        (@apply
-                                         (lambda (#{x 30046}#) #{x 30046}#)
-                                         #{tmp 30042}#)
+                                         (lambda (#{x 29075}#) #{x 29075}#)
+                                         #{tmp 29071}#)
                                        (syntax-violation
                                          #f
                                          "source expression failed to match 
any pattern"
-                                         #{x 29985}#))))))))))))))))))
-      (lambda (#{x 29546}#)
-        (let ((#{tmp 29548}#
-                ($sc-dispatch #{x 29546}# '(_ any))))
-          (if #{tmp 29548}#
+                                         #{x 29014}#))))))))))))))))))
+      (lambda (#{x 28575}#)
+        (let ((#{tmp 28577}#
+                ($sc-dispatch #{x 28575}# '(_ any))))
+          (if #{tmp 28577}#
             (@apply
-              (lambda (#{e 29552}#)
-                (#{emit 29545}# (#{quasi 29539}# #{e 29552}# 0)))
-              #{tmp 29548}#)
+              (lambda (#{e 28581}#)
+                (#{emit 28574}# (#{quasi 28568}# #{e 28581}# 0)))
+              #{tmp 28577}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{x 29546}#)))))))
+              #{x 28575}#)))))))
 
 (define include
   (make-syntax-transformer
     'include
     'macro
-    (lambda (#{x 30101}#)
+    (lambda (#{x 29130}#)
       (letrec*
-        ((#{read-file 30102}#
-           (lambda (#{fn 30213}# #{k 30214}#)
-             (let ((#{p 30215}# (open-input-file #{fn 30213}#)))
+        ((#{read-file 29131}#
+           (lambda (#{fn 29240}# #{k 29241}#)
+             (let ((#{p 29242}# (open-input-file #{fn 29240}#)))
                (letrec*
-                 ((#{f 30216}#
-                    (lambda (#{x 30270}# #{result 30271}#)
-                      (if (eof-object? #{x 30270}#)
+                 ((#{f 29243}#
+                    (lambda (#{x 29297}# #{result 29298}#)
+                      (if (eof-object? #{x 29297}#)
                         (begin
-                          (close-input-port #{p 30215}#)
-                          (reverse #{result 30271}#))
-                        (#{f 30216}#
-                          (read #{p 30215}#)
-                          (cons (datum->syntax #{k 30214}# #{x 30270}#)
-                                #{result 30271}#))))))
-                 (#{f 30216}# (read #{p 30215}#) '()))))))
-        (let ((#{tmp 30104}#
-                ($sc-dispatch #{x 30101}# '(any any))))
-          (if #{tmp 30104}#
+                          (close-input-port #{p 29242}#)
+                          (reverse #{result 29298}#))
+                        (#{f 29243}#
+                          (read #{p 29242}#)
+                          (cons (datum->syntax #{k 29241}# #{x 29297}#)
+                                #{result 29298}#))))))
+                 (#{f 29243}# (read #{p 29242}#) '()))))))
+        (let ((#{tmp 29133}#
+                ($sc-dispatch #{x 29130}# '(any any))))
+          (if #{tmp 29133}#
             (@apply
-              (lambda (#{k 30108}# #{filename 30109}#)
-                (let ((#{fn 30110}# (syntax->datum #{filename 30109}#)))
-                  (let ((#{tmp 30111}#
-                          (#{read-file 30102}#
-                            #{fn 30110}#
-                            #{filename 30109}#)))
-                    (let ((#{tmp 30112}#
-                            ($sc-dispatch #{tmp 30111}# 'each-any)))
-                      (if #{tmp 30112}#
+              (lambda (#{k 29137}# #{filename 29138}#)
+                (let ((#{fn 29139}# (syntax->datum #{filename 29138}#)))
+                  (let ((#{tmp 29140}#
+                          (#{read-file 29131}#
+                            #{fn 29139}#
+                            #{filename 29138}#)))
+                    (let ((#{tmp 29141}#
+                            ($sc-dispatch #{tmp 29140}# 'each-any)))
+                      (if #{tmp 29141}#
                         (@apply
-                          (lambda (#{exp 30130}#)
+                          (lambda (#{exp 29159}#)
                             (cons '#(syntax-object
                                      begin
                                      ((top)
                                       #(ribcage () () ())
-                                      #(ribcage #(exp) #((top)) #("i30098"))
+                                      #(ribcage #(exp) #((top)) #("i29127"))
                                       #(ribcage () () ())
                                       #(ribcage () () ())
-                                      #(ribcage #(fn) #((top)) #("i30093"))
+                                      #(ribcage #(fn) #((top)) #("i29122"))
                                       #(ribcage
                                         #(k filename)
                                         #((top) (top))
-                                        #("i30089" "i30090"))
-                                      #(ribcage (read-file) ((top)) ("i30073"))
-                                      #(ribcage #(x) #((top)) #("i30072")))
+                                        #("i29118" "i29119"))
+                                      #(ribcage (read-file) ((top)) ("i29102"))
+                                      #(ribcage #(x) #((top)) #("i29101")))
                                      (hygiene guile))
-                                  #{exp 30130}#))
-                          #{tmp 30112}#)
+                                  #{exp 29159}#))
+                          #{tmp 29141}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
-                          #{tmp 30111}#))))))
-              #{tmp 30104}#)
+                          #{tmp 29140}#))))))
+              #{tmp 29133}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{x 30101}#)))))))
+              #{x 29130}#)))))))
 
 (define include-from-path
   (make-syntax-transformer
     'include-from-path
     'macro
-    (lambda (#{x 30290}#)
-      (let ((#{tmp 30292}#
-              ($sc-dispatch #{x 30290}# '(any any))))
-        (if #{tmp 30292}#
+    (lambda (#{x 29317}#)
+      (let ((#{tmp 29319}#
+              ($sc-dispatch #{x 29317}# '(any any))))
+        (if #{tmp 29319}#
           (@apply
-            (lambda (#{k 30296}# #{filename 30297}#)
-              (let ((#{fn 30298}# (syntax->datum #{filename 30297}#)))
-                (let ((#{tmp 30299}#
+            (lambda (#{k 29323}# #{filename 29324}#)
+              (let ((#{fn 29325}# (syntax->datum #{filename 29324}#)))
+                (let ((#{tmp 29326}#
                         (datum->syntax
-                          #{filename 30297}#
-                          (let ((#{t 30302}# (%search-load-path #{fn 30298}#)))
-                            (if #{t 30302}#
-                              #{t 30302}#
+                          #{filename 29324}#
+                          (let ((#{t 29329}# (%search-load-path #{fn 29325}#)))
+                            (if #{t 29329}#
+                              #{t 29329}#
                               (syntax-violation
                                 'include-from-path
                                 "file not found in path"
-                                #{x 30290}#
-                                #{filename 30297}#))))))
+                                #{x 29317}#
+                                #{filename 29324}#))))))
                   (list '#(syntax-object
                            include
                            ((top)
                             #(ribcage () () ())
-                            #(ribcage #(fn) #((top)) #("i30284"))
+                            #(ribcage #(fn) #((top)) #("i29311"))
                             #(ribcage () () ())
                             #(ribcage () () ())
-                            #(ribcage #(fn) #((top)) #("i30280"))
+                            #(ribcage #(fn) #((top)) #("i29307"))
                             #(ribcage
                               #(k filename)
                               #((top) (top))
-                              #("i30276" "i30277"))
+                              #("i29303" "i29304"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i30273")))
+                            #(ribcage #(x) #((top)) #("i29300")))
                            (hygiene guile))
-                        #{tmp 30299}#))))
-            #{tmp 30292}#)
+                        #{tmp 29326}#))))
+            #{tmp 29319}#)
           (syntax-violation
             #f
             "source expression failed to match any pattern"
-            #{x 30290}#))))))
+            #{x 29317}#))))))
 
 (define unquote
   (make-syntax-transformer
     'unquote
     'macro
-    (lambda (#{x 30311}#)
+    (lambda (#{x 29338}#)
       (syntax-violation
         'unquote
         "expression not valid outside of quasiquote"
-        #{x 30311}#))))
+        #{x 29338}#))))
 
 (define unquote-splicing
   (make-syntax-transformer
     'unquote-splicing
     'macro
-    (lambda (#{x 30314}#)
+    (lambda (#{x 29341}#)
       (syntax-violation
         'unquote-splicing
         "expression not valid outside of quasiquote"
-        #{x 30314}#))))
+        #{x 29341}#))))
 
 (define case
   (make-syntax-transformer
     'case
     'macro
-    (lambda (#{x 30370}#)
-      (let ((#{tmp 30372}#
+    (lambda (#{x 29397}#)
+      (let ((#{tmp 29399}#
               ($sc-dispatch
-                #{x 30370}#
+                #{x 29397}#
                 '(_ any any . each-any))))
-        (if #{tmp 30372}#
+        (if #{tmp 29399}#
           (@apply
-            (lambda (#{e 30376}# #{m1 30377}# #{m2 30378}#)
-              (let ((#{tmp 30379}#
+            (lambda (#{e 29403}# #{m1 29404}# #{m2 29405}#)
+              (let ((#{tmp 29406}#
                       (letrec*
-                        ((#{f 30425}#
-                           (lambda (#{clause 30428}# #{clauses 30429}#)
-                             (if (null? #{clauses 30429}#)
-                               (let ((#{tmp 30431}#
+                        ((#{f 29448}#
+                           (lambda (#{clause 29451}# #{clauses 29452}#)
+                             (if (null? #{clauses 29452}#)
+                               (let ((#{tmp 29454}#
                                        ($sc-dispatch
-                                         #{clause 30428}#
+                                         #{clause 29451}#
                                          '(#(free-id
                                              #(syntax-object
                                                else
@@ -25216,91 +25373,91 @@
                                                 #(ribcage
                                                   #(f clause clauses)
                                                   #((top) (top) (top))
-                                                  #("i30329"
-                                                    "i30330"
-                                                    "i30331"))
+                                                  #("i29356"
+                                                    "i29357"
+                                                    "i29358"))
                                                 #(ribcage
                                                   #(e m1 m2)
                                                   #((top) (top) (top))
-                                                  #("i30319"
-                                                    "i30320"
-                                                    "i30321"))
+                                                  #("i29346"
+                                                    "i29347"
+                                                    "i29348"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
-                                                  #("i30316")))
+                                                  #("i29343")))
                                                (hygiene guile)))
                                            any
                                            .
                                            each-any))))
-                                 (if #{tmp 30431}#
+                                 (if #{tmp 29454}#
                                    (@apply
-                                     (lambda (#{e1 30435}# #{e2 30436}#)
+                                     (lambda (#{e1 29458}# #{e2 29459}#)
                                        (cons '#(syntax-object
                                                 begin
                                                 ((top)
                                                  #(ribcage
                                                    #(e1 e2)
                                                    #((top) (top))
-                                                   #("i30338" "i30339"))
+                                                   #("i29365" "i29366"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(f clause clauses)
                                                    #((top) (top) (top))
-                                                   #("i30329"
-                                                     "i30330"
-                                                     "i30331"))
+                                                   #("i29356"
+                                                     "i29357"
+                                                     "i29358"))
                                                  #(ribcage
                                                    #(e m1 m2)
                                                    #((top) (top) (top))
-                                                   #("i30319"
-                                                     "i30320"
-                                                     "i30321"))
+                                                   #("i29346"
+                                                     "i29347"
+                                                     "i29348"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
-                                                   #("i30316")))
+                                                   #("i29343")))
                                                 (hygiene guile))
-                                             (cons #{e1 30435}# #{e2 30436}#)))
-                                     #{tmp 30431}#)
-                                   (let ((#{tmp 30437}#
+                                             (cons #{e1 29458}# #{e2 29459}#)))
+                                     #{tmp 29454}#)
+                                   (let ((#{tmp 29460}#
                                            ($sc-dispatch
-                                             #{clause 30428}#
+                                             #{clause 29451}#
                                              '(each-any any . each-any))))
-                                     (if #{tmp 30437}#
+                                     (if #{tmp 29460}#
                                        (@apply
-                                         (lambda (#{k 30441}#
-                                                  #{e1 30442}#
-                                                  #{e2 30443}#)
+                                         (lambda (#{k 29464}#
+                                                  #{e1 29465}#
+                                                  #{e2 29466}#)
                                            (list '#(syntax-object
                                                     if
                                                     ((top)
                                                      #(ribcage
                                                        #(k e1 e2)
                                                        #((top) (top) (top))
-                                                       #("i30344"
-                                                         "i30345"
-                                                         "i30346"))
+                                                       #("i29371"
+                                                         "i29372"
+                                                         "i29373"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(f clause clauses)
                                                        #((top) (top) (top))
-                                                       #("i30329"
-                                                         "i30330"
-                                                         "i30331"))
+                                                       #("i29356"
+                                                         "i29357"
+                                                         "i29358"))
                                                      #(ribcage
                                                        #(e m1 m2)
                                                        #((top) (top) (top))
-                                                       #("i30319"
-                                                         "i30320"
-                                                         "i30321"))
+                                                       #("i29346"
+                                                         "i29347"
+                                                         "i29348"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
-                                                       #("i30316")))
+                                                       #("i29343")))
                                                     (hygiene guile))
                                                  (list '#(syntax-object
                                                           memv
@@ -25310,9 +25467,9 @@
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30344"
-                                                               "i30345"
-                                                               "i30346"))
+                                                             #("i29371"
+                                                               "i29372"
+                                                               "i29373"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(f
@@ -25321,22 +25478,22 @@
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30329"
-                                                               "i30330"
-                                                               "i30331"))
+                                                             #("i29356"
+                                                               "i29357"
+                                                               "i29358"))
                                                            #(ribcage
                                                              #(e m1 m2)
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30319"
-                                                               "i30320"
-                                                               "i30321"))
+                                                             #("i29346"
+                                                               "i29347"
+                                                               "i29348"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x)
                                                              #((top))
-                                                             #("i30316")))
+                                                             #("i29343")))
                                                           (hygiene guile))
                                                        '#(syntax-object
                                                           t
@@ -25346,9 +25503,9 @@
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30344"
-                                                               "i30345"
-                                                               "i30346"))
+                                                             #("i29371"
+                                                               "i29372"
+                                                               "i29373"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(f
@@ -25357,22 +25514,22 @@
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30329"
-                                                               "i30330"
-                                                               "i30331"))
+                                                             #("i29356"
+                                                               "i29357"
+                                                               "i29358"))
                                                            #(ribcage
                                                              #(e m1 m2)
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30319"
-                                                               "i30320"
-                                                               "i30321"))
+                                                             #("i29346"
+                                                               "i29347"
+                                                               "i29348"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x)
                                                              #((top))
-                                                             #("i30316")))
+                                                             #("i29343")))
                                                           (hygiene guile))
                                                        (list '#(syntax-object
                                                                 quote
@@ -25382,9 +25539,9 @@
                                                                    #((top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i30344"
-                                                                     "i30345"
-                                                                     "i30346"))
+                                                                   #("i29371"
+                                                                     "i29372"
+                                                                     "i29373"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -25396,17 +25553,17 @@
                                                                    #((top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i30329"
-                                                                     "i30330"
-                                                                     "i30331"))
+                                                                   #("i29356"
+                                                                     "i29357"
+                                                                     "i29358"))
                                                                  #(ribcage
                                                                    #(e m1 m2)
                                                                    #((top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i30319"
-                                                                     "i30320"
-                                                                     "i30321"))
+                                                                   #("i29346"
+                                                                     "i29347"
+                                                                     "i29348"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -25414,10 +25571,10 @@
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
-                                                                   
#("i30316")))
+                                                                   
#("i29343")))
                                                                 (hygiene
                                                                   guile))
-                                                             #{k 30441}#))
+                                                             #{k 29464}#))
                                                  (cons '#(syntax-object
                                                           begin
                                                           ((top)
@@ -25426,9 +25583,9 @@
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30344"
-                                                               "i30345"
-                                                               "i30346"))
+                                                             #("i29371"
+                                                               "i29372"
+                                                               "i29373"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(f
@@ -25437,76 +25594,76 @@
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30329"
-                                                               "i30330"
-                                                               "i30331"))
+                                                             #("i29356"
+                                                               "i29357"
+                                                               "i29358"))
                                                            #(ribcage
                                                              #(e m1 m2)
                                                              #((top)
                                                                (top)
                                                                (top))
-                                                             #("i30319"
-                                                               "i30320"
-                                                               "i30321"))
+                                                             #("i29346"
+                                                               "i29347"
+                                                               "i29348"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x)
                                                              #((top))
-                                                             #("i30316")))
+                                                             #("i29343")))
                                                           (hygiene guile))
-                                                       (cons #{e1 30442}#
-                                                             #{e2 30443}#))))
-                                         #{tmp 30437}#)
+                                                       (cons #{e1 29465}#
+                                                             #{e2 29466}#))))
+                                         #{tmp 29460}#)
                                        (syntax-violation
                                          'case
                                          "bad clause"
-                                         #{x 30370}#
-                                         #{clause 30428}#)))))
-                               (let ((#{tmp 30451}#
-                                       (#{f 30425}#
-                                         (car #{clauses 30429}#)
-                                         (cdr #{clauses 30429}#))))
-                                 (let ((#{tmp 30454}#
+                                         #{x 29397}#
+                                         #{clause 29451}#)))))
+                               (let ((#{tmp 29474}#
+                                       (#{f 29448}#
+                                         (car #{clauses 29452}#)
+                                         (cdr #{clauses 29452}#))))
+                                 (let ((#{tmp 29477}#
                                          ($sc-dispatch
-                                           #{clause 30428}#
+                                           #{clause 29451}#
                                            '(each-any any . each-any))))
-                                   (if #{tmp 30454}#
+                                   (if #{tmp 29477}#
                                      (@apply
-                                       (lambda (#{k 30458}#
-                                                #{e1 30459}#
-                                                #{e2 30460}#)
+                                       (lambda (#{k 29481}#
+                                                #{e1 29482}#
+                                                #{e2 29483}#)
                                          (list '#(syntax-object
                                                   if
                                                   ((top)
                                                    #(ribcage
                                                      #(k e1 e2)
                                                      #((top) (top) (top))
-                                                     #("i30360"
-                                                       "i30361"
-                                                       "i30362"))
+                                                     #("i29387"
+                                                       "i29388"
+                                                       "i29389"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(rest)
                                                      #((top))
-                                                     #("i30356"))
+                                                     #("i29383"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(f clause clauses)
                                                      #((top) (top) (top))
-                                                     #("i30329"
-                                                       "i30330"
-                                                       "i30331"))
+                                                     #("i29356"
+                                                       "i29357"
+                                                       "i29358"))
                                                    #(ribcage
                                                      #(e m1 m2)
                                                      #((top) (top) (top))
-                                                     #("i30319"
-                                                       "i30320"
-                                                       "i30321"))
+                                                     #("i29346"
+                                                       "i29347"
+                                                       "i29348"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i30316")))
+                                                     #("i29343")))
                                                   (hygiene guile))
                                                (list '#(syntax-object
                                                         memv
@@ -25514,32 +25671,32 @@
                                                          #(ribcage
                                                            #(k e1 e2)
                                                            #((top) (top) (top))
-                                                           #("i30360"
-                                                             "i30361"
-                                                             "i30362"))
+                                                           #("i29387"
+                                                             "i29388"
+                                                             "i29389"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(rest)
                                                            #((top))
-                                                           #("i30356"))
+                                                           #("i29383"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(f clause clauses)
                                                            #((top) (top) (top))
-                                                           #("i30329"
-                                                             "i30330"
-                                                             "i30331"))
+                                                           #("i29356"
+                                                             "i29357"
+                                                             "i29358"))
                                                          #(ribcage
                                                            #(e m1 m2)
                                                            #((top) (top) (top))
-                                                           #("i30319"
-                                                             "i30320"
-                                                             "i30321"))
+                                                           #("i29346"
+                                                             "i29347"
+                                                             "i29348"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
-                                                           #("i30316")))
+                                                           #("i29343")))
                                                         (hygiene guile))
                                                      '#(syntax-object
                                                         t
@@ -25547,32 +25704,32 @@
                                                          #(ribcage
                                                            #(k e1 e2)
                                                            #((top) (top) (top))
-                                                           #("i30360"
-                                                             "i30361"
-                                                             "i30362"))
+                                                           #("i29387"
+                                                             "i29388"
+                                                             "i29389"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(rest)
                                                            #((top))
-                                                           #("i30356"))
+                                                           #("i29383"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(f clause clauses)
                                                            #((top) (top) (top))
-                                                           #("i30329"
-                                                             "i30330"
-                                                             "i30331"))
+                                                           #("i29356"
+                                                             "i29357"
+                                                             "i29358"))
                                                          #(ribcage
                                                            #(e m1 m2)
                                                            #((top) (top) (top))
-                                                           #("i30319"
-                                                             "i30320"
-                                                             "i30321"))
+                                                           #("i29346"
+                                                             "i29347"
+                                                             "i29348"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
-                                                           #("i30316")))
+                                                           #("i29343")))
                                                         (hygiene guile))
                                                      (list '#(syntax-object
                                                               quote
@@ -25582,9 +25739,9 @@
                                                                  #((top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i30360"
-                                                                   "i30361"
-                                                                   "i30362"))
+                                                                 #("i29387"
+                                                                   "i29388"
+                                                                   "i29389"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -25592,7 +25749,7 @@
                                                                #(ribcage
                                                                  #(rest)
                                                                  #((top))
-                                                                 #("i30356"))
+                                                                 #("i29383"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -25604,17 +25761,17 @@
                                                                  #((top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i30329"
-                                                                   "i30330"
-                                                                   "i30331"))
+                                                                 #("i29356"
+                                                                   "i29357"
+                                                                   "i29358"))
                                                                #(ribcage
                                                                  #(e m1 m2)
                                                                  #((top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i30319"
-                                                                   "i30320"
-                                                                   "i30321"))
+                                                                 #("i29346"
+                                                                   "i29347"
+                                                                   "i29348"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -25622,232 +25779,232 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i30316")))
+                                                                 #("i29343")))
                                                               (hygiene guile))
-                                                           #{k 30458}#))
+                                                           #{k 29481}#))
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage
                                                            #(k e1 e2)
                                                            #((top) (top) (top))
-                                                           #("i30360"
-                                                             "i30361"
-                                                             "i30362"))
+                                                           #("i29387"
+                                                             "i29388"
+                                                             "i29389"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(rest)
                                                            #((top))
-                                                           #("i30356"))
+                                                           #("i29383"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(f clause clauses)
                                                            #((top) (top) (top))
-                                                           #("i30329"
-                                                             "i30330"
-                                                             "i30331"))
+                                                           #("i29356"
+                                                             "i29357"
+                                                             "i29358"))
                                                          #(ribcage
                                                            #(e m1 m2)
                                                            #((top) (top) (top))
-                                                           #("i30319"
-                                                             "i30320"
-                                                             "i30321"))
+                                                           #("i29346"
+                                                             "i29347"
+                                                             "i29348"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
-                                                           #("i30316")))
+                                                           #("i29343")))
                                                         (hygiene guile))
-                                                     (cons #{e1 30459}#
-                                                           #{e2 30460}#))
-                                               #{tmp 30451}#))
-                                       #{tmp 30454}#)
+                                                     (cons #{e1 29482}#
+                                                           #{e2 29483}#))
+                                               #{tmp 29474}#))
+                                       #{tmp 29477}#)
                                      (syntax-violation
                                        'case
                                        "bad clause"
-                                       #{x 30370}#
-                                       #{clause 30428}#))))))))
-                        (#{f 30425}# #{m1 30377}# #{m2 30378}#))))
-                (let ((#{body 30380}# #{tmp 30379}#))
+                                       #{x 29397}#
+                                       #{clause 29451}#))))))))
+                        (#{f 29448}# #{m1 29404}# #{m2 29405}#))))
+                (let ((#{body 29407}# #{tmp 29406}#))
                   (list '#(syntax-object
                            let
                            ((top)
                             #(ribcage () () ())
-                            #(ribcage #(body) #((top)) #("i30327"))
+                            #(ribcage #(body) #((top)) #("i29354"))
                             #(ribcage
                               #(e m1 m2)
                               #((top) (top) (top))
-                              #("i30319" "i30320" "i30321"))
+                              #("i29346" "i29347" "i29348"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i30316")))
+                            #(ribcage #(x) #((top)) #("i29343")))
                            (hygiene guile))
                         (list (list '#(syntax-object
                                        t
                                        ((top)
                                         #(ribcage () () ())
-                                        #(ribcage #(body) #((top)) #("i30327"))
+                                        #(ribcage #(body) #((top)) #("i29354"))
                                         #(ribcage
                                           #(e m1 m2)
                                           #((top) (top) (top))
-                                          #("i30319" "i30320" "i30321"))
+                                          #("i29346" "i29347" "i29348"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i30316")))
+                                        #(ribcage #(x) #((top)) #("i29343")))
                                        (hygiene guile))
-                                    #{e 30376}#))
-                        #{body 30380}#))))
-            #{tmp 30372}#)
+                                    #{e 29403}#))
+                        #{body 29407}#))))
+            #{tmp 29399}#)
           (syntax-violation
             #f
             "source expression failed to match any pattern"
-            #{x 30370}#))))))
+            #{x 29397}#))))))
 
 (define make-variable-transformer
-  (lambda (#{proc 30478}#)
-    (if (procedure? #{proc 30478}#)
+  (lambda (#{proc 29501}#)
+    (if (procedure? #{proc 29501}#)
       (letrec*
-        ((#{trans 30479}#
-           (lambda (#{x 30485}#)
-             (#{proc 30478}# #{x 30485}#))))
+        ((#{trans 29502}#
+           (lambda (#{x 29508}#)
+             (#{proc 29501}# #{x 29508}#))))
         (begin
           (set-procedure-property!
-            #{trans 30479}#
+            #{trans 29502}#
             'variable-transformer
             #t)
-          #{trans 30479}#))
+          #{trans 29502}#))
       (error "variable transformer not a procedure"
-             #{proc 30478}#))))
+             #{proc 29501}#))))
 
 (define identifier-syntax
   (make-syntax-transformer
     'identifier-syntax
     'macro
-    (lambda (#{x 30517}#)
-      (let ((#{tmp 30519}#
-              ($sc-dispatch #{x 30517}# '(_ any))))
-        (if #{tmp 30519}#
+    (lambda (#{x 29540}#)
+      (let ((#{tmp 29542}#
+              ($sc-dispatch #{x 29540}# '(_ any))))
+        (if #{tmp 29542}#
           (@apply
-            (lambda (#{e 30523}#)
+            (lambda (#{e 29546}#)
               (list '#(syntax-object
                        lambda
                        ((top)
-                        #(ribcage #(e) #((top)) #("i30492"))
+                        #(ribcage #(e) #((top)) #("i29515"))
                         #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i30489")))
+                        #(ribcage #(x) #((top)) #("i29512")))
                        (hygiene guile))
                     '(#(syntax-object
                         x
                         ((top)
-                         #(ribcage #(e) #((top)) #("i30492"))
+                         #(ribcage #(e) #((top)) #("i29515"))
                          #(ribcage () () ())
-                         #(ribcage #(x) #((top)) #("i30489")))
+                         #(ribcage #(x) #((top)) #("i29512")))
                         (hygiene guile)))
                     '#((#(syntax-object
                           macro-type
                           ((top)
-                           #(ribcage #(e) #((top)) #("i30492"))
+                           #(ribcage #(e) #((top)) #("i29515"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i30489")))
+                           #(ribcage #(x) #((top)) #("i29512")))
                           (hygiene guile))
                         .
                         #(syntax-object
                           identifier-syntax
                           ((top)
-                           #(ribcage #(e) #((top)) #("i30492"))
+                           #(ribcage #(e) #((top)) #("i29515"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i30489")))
+                           #(ribcage #(x) #((top)) #("i29512")))
                           (hygiene guile))))
                     (list '#(syntax-object
                              syntax-case
                              ((top)
-                              #(ribcage #(e) #((top)) #("i30492"))
+                              #(ribcage #(e) #((top)) #("i29515"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i30489")))
+                              #(ribcage #(x) #((top)) #("i29512")))
                              (hygiene guile))
                           '#(syntax-object
                              x
                              ((top)
-                              #(ribcage #(e) #((top)) #("i30492"))
+                              #(ribcage #(e) #((top)) #("i29515"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i30489")))
+                              #(ribcage #(x) #((top)) #("i29512")))
                              (hygiene guile))
                           '()
                           (list '#(syntax-object
                                    id
                                    ((top)
-                                    #(ribcage #(e) #((top)) #("i30492"))
+                                    #(ribcage #(e) #((top)) #("i29515"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i30489")))
+                                    #(ribcage #(x) #((top)) #("i29512")))
                                    (hygiene guile))
                                 '(#(syntax-object
                                     identifier?
                                     ((top)
-                                     #(ribcage #(e) #((top)) #("i30492"))
+                                     #(ribcage #(e) #((top)) #("i29515"))
                                      #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i30489")))
+                                     #(ribcage #(x) #((top)) #("i29512")))
                                     (hygiene guile))
                                   (#(syntax-object
                                      syntax
                                      ((top)
-                                      #(ribcage #(e) #((top)) #("i30492"))
+                                      #(ribcage #(e) #((top)) #("i29515"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i30489")))
+                                      #(ribcage #(x) #((top)) #("i29512")))
                                      (hygiene guile))
                                    #(syntax-object
                                      id
                                      ((top)
-                                      #(ribcage #(e) #((top)) #("i30492"))
+                                      #(ribcage #(e) #((top)) #("i29515"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i30489")))
+                                      #(ribcage #(x) #((top)) #("i29512")))
                                      (hygiene guile))))
                                 (list '#(syntax-object
                                          syntax
                                          ((top)
-                                          #(ribcage #(e) #((top)) #("i30492"))
+                                          #(ribcage #(e) #((top)) #("i29515"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i30489")))
+                                          #(ribcage #(x) #((top)) #("i29512")))
                                          (hygiene guile))
-                                      #{e 30523}#))
+                                      #{e 29546}#))
                           (list '(#(syntax-object
                                     _
                                     ((top)
-                                     #(ribcage #(e) #((top)) #("i30492"))
+                                     #(ribcage #(e) #((top)) #("i29515"))
                                      #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i30489")))
+                                     #(ribcage #(x) #((top)) #("i29512")))
                                     (hygiene guile))
                                   #(syntax-object
                                     x
                                     ((top)
-                                     #(ribcage #(e) #((top)) #("i30492"))
+                                     #(ribcage #(e) #((top)) #("i29515"))
                                      #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i30489")))
+                                     #(ribcage #(x) #((top)) #("i29512")))
                                     (hygiene guile))
                                   #(syntax-object
                                     ...
                                     ((top)
-                                     #(ribcage #(e) #((top)) #("i30492"))
+                                     #(ribcage #(e) #((top)) #("i29515"))
                                      #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i30489")))
+                                     #(ribcage #(x) #((top)) #("i29512")))
                                     (hygiene guile)))
                                 (list '#(syntax-object
                                          syntax
                                          ((top)
-                                          #(ribcage #(e) #((top)) #("i30492"))
+                                          #(ribcage #(e) #((top)) #("i29515"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i30489")))
+                                          #(ribcage #(x) #((top)) #("i29512")))
                                          (hygiene guile))
-                                      (cons #{e 30523}#
+                                      (cons #{e 29546}#
                                             '(#(syntax-object
                                                 x
                                                 ((top)
                                                  #(ribcage
                                                    #(e)
                                                    #((top))
-                                                   #("i30492"))
+                                                   #("i29515"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
-                                                   #("i30489")))
+                                                   #("i29512")))
                                                 (hygiene guile))
                                               #(syntax-object
                                                 ...
@@ -25855,55 +26012,55 @@
                                                  #(ribcage
                                                    #(e)
                                                    #((top))
-                                                   #("i30492"))
+                                                   #("i29515"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
-                                                   #("i30489")))
+                                                   #("i29512")))
                                                 (hygiene guile)))))))))
-            #{tmp 30519}#)
-          (let ((#{tmp 30524}#
+            #{tmp 29542}#)
+          (let ((#{tmp 29547}#
                   ($sc-dispatch
-                    #{x 30517}#
+                    #{x 29540}#
                     '(_ (any any)
                         ((#(free-id
                             #(syntax-object
                               set!
                               ((top)
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i30489")))
+                               #(ribcage #(x) #((top)) #("i29512")))
                               (hygiene guile)))
                           any
                           any)
                          any)))))
-            (if (if #{tmp 30524}#
+            (if (if #{tmp 29547}#
                   (@apply
-                    (lambda (#{id 30528}#
-                             #{exp1 30529}#
-                             #{var 30530}#
-                             #{val 30531}#
-                             #{exp2 30532}#)
-                      (if (identifier? #{id 30528}#)
-                        (identifier? #{var 30530}#)
+                    (lambda (#{id 29551}#
+                             #{exp1 29552}#
+                             #{var 29553}#
+                             #{val 29554}#
+                             #{exp2 29555}#)
+                      (if (identifier? #{id 29551}#)
+                        (identifier? #{var 29553}#)
                         #f))
-                    #{tmp 30524}#)
+                    #{tmp 29547}#)
                   #f)
               (@apply
-                (lambda (#{id 30533}#
-                         #{exp1 30534}#
-                         #{var 30535}#
-                         #{val 30536}#
-                         #{exp2 30537}#)
+                (lambda (#{id 29556}#
+                         #{exp1 29557}#
+                         #{var 29558}#
+                         #{val 29559}#
+                         #{exp2 29560}#)
                   (list '#(syntax-object
                            make-variable-transformer
                            ((top)
                             #(ribcage
                               #(id exp1 var val exp2)
                               #((top) (top) (top) (top) (top))
-                              #("i30507" "i30508" "i30509" "i30510" "i30511"))
+                              #("i29530" "i29531" "i29532" "i29533" "i29534"))
                             #(ribcage () () ())
-                            #(ribcage #(x) #((top)) #("i30489")))
+                            #(ribcage #(x) #((top)) #("i29512")))
                            (hygiene guile))
                         (list '#(syntax-object
                                  lambda
@@ -25911,13 +26068,13 @@
                                   #(ribcage
                                     #(id exp1 var val exp2)
                                     #((top) (top) (top) (top) (top))
-                                    #("i30507"
-                                      "i30508"
-                                      "i30509"
-                                      "i30510"
-                                      "i30511"))
+                                    #("i29530"
+                                      "i29531"
+                                      "i29532"
+                                      "i29533"
+                                      "i29534"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i30489")))
+                                  #(ribcage #(x) #((top)) #("i29512")))
                                  (hygiene guile))
                               '(#(syntax-object
                                   x
@@ -25925,13 +26082,13 @@
                                    #(ribcage
                                      #(id exp1 var val exp2)
                                      #((top) (top) (top) (top) (top))
-                                     #("i30507"
-                                       "i30508"
-                                       "i30509"
-                                       "i30510"
-                                       "i30511"))
+                                     #("i29530"
+                                       "i29531"
+                                       "i29532"
+                                       "i29533"
+                                       "i29534"))
                                    #(ribcage () () ())
-                                   #(ribcage #(x) #((top)) #("i30489")))
+                                   #(ribcage #(x) #((top)) #("i29512")))
                                   (hygiene guile)))
                               '#((#(syntax-object
                                     macro-type
@@ -25939,13 +26096,13 @@
                                      #(ribcage
                                        #(id exp1 var val exp2)
                                        #((top) (top) (top) (top) (top))
-                                       #("i30507"
-                                         "i30508"
-                                         "i30509"
-                                         "i30510"
-                                         "i30511"))
+                                       #("i29530"
+                                         "i29531"
+                                         "i29532"
+                                         "i29533"
+                                         "i29534"))
                                      #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i30489")))
+                                     #(ribcage #(x) #((top)) #("i29512")))
                                     (hygiene guile))
                                   .
                                   #(syntax-object
@@ -25954,13 +26111,13 @@
                                      #(ribcage
                                        #(id exp1 var val exp2)
                                        #((top) (top) (top) (top) (top))
-                                       #("i30507"
-                                         "i30508"
-                                         "i30509"
-                                         "i30510"
-                                         "i30511"))
+                                       #("i29530"
+                                         "i29531"
+                                         "i29532"
+                                         "i29533"
+                                         "i29534"))
                                      #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i30489")))
+                                     #(ribcage #(x) #((top)) #("i29512")))
                                     (hygiene guile))))
                               (list '#(syntax-object
                                        syntax-case
@@ -25968,13 +26125,13 @@
                                         #(ribcage
                                           #(id exp1 var val exp2)
                                           #((top) (top) (top) (top) (top))
-                                          #("i30507"
-                                            "i30508"
-                                            "i30509"
-                                            "i30510"
-                                            "i30511"))
+                                          #("i29530"
+                                            "i29531"
+                                            "i29532"
+                                            "i29533"
+                                            "i29534"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i30489")))
+                                        #(ribcage #(x) #((top)) #("i29512")))
                                        (hygiene guile))
                                     '#(syntax-object
                                        x
@@ -25982,13 +26139,13 @@
                                         #(ribcage
                                           #(id exp1 var val exp2)
                                           #((top) (top) (top) (top) (top))
-                                          #("i30507"
-                                            "i30508"
-                                            "i30509"
-                                            "i30510"
-                                            "i30511"))
+                                          #("i29530"
+                                            "i29531"
+                                            "i29532"
+                                            "i29533"
+                                            "i29534"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i30489")))
+                                        #(ribcage #(x) #((top)) #("i29512")))
                                        (hygiene guile))
                                     '(#(syntax-object
                                         set!
@@ -25996,13 +26153,13 @@
                                          #(ribcage
                                            #(id exp1 var val exp2)
                                            #((top) (top) (top) (top) (top))
-                                           #("i30507"
-                                             "i30508"
-                                             "i30509"
-                                             "i30510"
-                                             "i30511"))
+                                           #("i29530"
+                                             "i29531"
+                                             "i29532"
+                                             "i29533"
+                                             "i29534"))
                                          #(ribcage () () ())
-                                         #(ribcage #(x) #((top)) #("i30489")))
+                                         #(ribcage #(x) #((top)) #("i29512")))
                                         (hygiene guile)))
                                     (list (list '#(syntax-object
                                                    set!
@@ -26014,19 +26171,19 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i30507"
-                                                        "i30508"
-                                                        "i30509"
-                                                        "i30510"
-                                                        "i30511"))
+                                                      #("i29530"
+                                                        "i29531"
+                                                        "i29532"
+                                                        "i29533"
+                                                        "i29534"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i30489")))
+                                                      #("i29512")))
                                                    (hygiene guile))
-                                                #{var 30535}#
-                                                #{val 30536}#)
+                                                #{var 29558}#
+                                                #{val 29559}#)
                                           (list '#(syntax-object
                                                    syntax
                                                    ((top)
@@ -26037,19 +26194,19 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i30507"
-                                                        "i30508"
-                                                        "i30509"
-                                                        "i30510"
-                                                        "i30511"))
+                                                      #("i29530"
+                                                        "i29531"
+                                                        "i29532"
+                                                        "i29533"
+                                                        "i29534"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i30489")))
+                                                      #("i29512")))
                                                    (hygiene guile))
-                                                #{exp2 30537}#))
-                                    (list (cons #{id 30533}#
+