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.2-59-geddd81


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-59-geddd81f
Date: Fri, 02 Sep 2011 11:38:47 +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=eddd81f4652db72a085f7c8dfe2ca04b7c4de829

The branch, stable-2.0 has been updated
       via  eddd81f4652db72a085f7c8dfe2ca04b7c4de829 (commit)
       via  cd4171d012f0ef2291274b5a9b26854c0223921b (commit)
       via  0c65f52c6d45f60e197fad7162d05c0fce89e817 (commit)
       via  1bbe0a631c4e72fffc033cb4f83eba7252ce3c9c (commit)
       via  dea14eb99bfb70f970db24f72340dfc9b98e0640 (commit)
      from  0b4f77192da214690aa811d13bb6a7f6dd576445 (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 eddd81f4652db72a085f7c8dfe2ca04b7c4de829
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 2 13:17:19 2011 +0200

    fix some cache consistency issues with goops and extended generics
    
    * module/oop/goops.scm (extended-by!, not-extended-by!)
      (upgrade-accessor, merge-generics): Invalidate the method cache after
      munging "extends" or "methods" fields.
      (invalidate-method-cache!): A new wrapper around
      %invalidate-method-cache!, that will also invalidate the caches of
      "extended-by" generics.
      (internal-add-method!, remove-class-accessors!): Use the new
      invalidate-method-cache!.

commit cd4171d012f0ef2291274b5a9b26854c0223921b
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 2 11:42:44 2011 +0200

    document define-syntax-rule
    
    * doc/ref/api-macros.texi (Syntax Rules): Add define-syntax-rule.

commit 0c65f52c6d45f60e197fad7162d05c0fce89e817
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 2 11:36:14 2011 +0200

    more define-syntax-rule usage
    
    * module/ice-9/boot-9.scm:
    * module/ice-9/control.scm:
    * module/ice-9/futures.scm:
    * module/ice-9/optargs.scm:
    * module/ice-9/poll.scm:
    * module/ice-9/receive.scm:
    * module/ice-9/threads.scm:
    * module/ice-9/vlist.scm:
    * module/language/assembly/compile-bytecode.scm:
    * module/language/ecmascript/compile-tree-il.scm:
    * module/language/tree-il.scm:
    * module/oop/goops.scm:
    * module/oop/goops/simple.scm:
    * module/oop/goops/stklos.scm:
    * module/srfi/srfi-1.scm:
    * module/srfi/srfi-35.scm:
    * module/srfi/srfi-39.scm:
    * module/srfi/srfi-45.scm:
    * module/srfi/srfi-67/compare.scm:
    * module/sxml/match.scm:
    * module/system/repl/error-handling.scm:
    * module/system/repl/repl.scm:
    * module/system/vm/inspect.scm:
    * module/texinfo.scm:
    * module/web/server.scm: Use define-syntax-rule, where it makes sense.

commit 1bbe0a631c4e72fffc033cb4f83eba7252ce3c9c
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 2 11:34:00 2011 +0200

    psyntax uses define-syntax-rule
    
    * module/ice-9/psyntax.scm: Use define-syntax-rule.
    
    * module/ice-9/psyntax-pp.scm: Regenerate.

commit dea14eb99bfb70f970db24f72340dfc9b98e0640
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 2 11:28:11 2011 +0200

    add define-syntax-rule
    
    * module/ice-9/psyntax.scm (define-syntax-rule): Add this new helper
      macro, to define a syntax-rules macro with one clause.
    
    * module/ice-9/psyntax-pp.scm: Regenerate.

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

Summary of changes:
 doc/ref/api-macros.texi                        |   19 +-
 module/ice-9/boot-9.scm                        |  132 +-
 module/ice-9/control.scm                       |   22 +-
 module/ice-9/futures.scm                       |    8 +-
 module/ice-9/optargs.scm                       |   12 +-
 module/ice-9/poll.scm                          |    7 +-
 module/ice-9/psyntax-pp.scm                    |15611 ++++++++++++------------
 module/ice-9/psyntax.scm                       |   87 +-
 module/ice-9/receive.scm                       |   14 +-
 module/ice-9/threads.scm                       |   56 +-
 module/ice-9/vlist.scm                         |   20 +-
 module/language/assembly/compile-bytecode.scm  |   18 +-
 module/language/ecmascript/compile-tree-il.scm |   36 +-
 module/language/tree-il.scm                    |  148 +-
 module/oop/goops.scm                           |   67 +-
 module/oop/goops/simple.scm                    |    8 +-
 module/oop/goops/stklos.scm                    |    8 +-
 module/srfi/srfi-1.scm                         |    8 +-
 module/srfi/srfi-35.scm                        |   32 +-
 module/srfi/srfi-39.scm                        |   12 +-
 module/srfi/srfi-45.scm                        |   13 +-
 module/srfi/srfi-67/compare.scm                |  189 +-
 module/sxml/match.scm                          |   37 +-
 module/system/repl/error-handling.scm          |    6 +-
 module/system/repl/repl.scm                    |   16 +-
 module/system/vm/inspect.scm                   |   21 +-
 module/texinfo.scm                             |   20 +-
 module/web/server.scm                          |    8 +-
 28 files changed, 8323 insertions(+), 8312 deletions(-)

diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index f0eeb6e..1167650 100644
--- a/doc/ref/api-macros.texi
+++ b/doc/ref/api-macros.texi
@@ -1,6 +1,6 @@
 @c -*-texinfo-*-
 @c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C)  1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009, 
2010
address@hidden Copyright (C)  1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009, 
2010, 2011
 @c   Free Software Foundation, Inc.
 @c See the file guile.texi for copying conditions.
 
@@ -336,6 +336,23 @@ This discussion is mostly relevant in the context of 
traditional Lisp macros
 (@pxref{Defmacros}), which do not preserve referential transparency. Hygiene
 adds to the expressive power of Scheme.
 
address@hidden Shorthands
+
+One often ends up writing simple one-clause @code{syntax-rules} macros.
+There is a convenient shorthand for this idiom, in the form of
address@hidden
+
address@hidden {Syntax} define-syntax-rule (keyword . pattern) [docstring] 
template
+Define @var{keyword} as a new @code{syntax-rules} macro with one clause.
address@hidden deffn
+
+Cast into this form, our @code{when} example is significantly shorter:
+
address@hidden
+(define-syntax-rule (when c e ...)
+  (if c (begin e ...)))
address@hidden example
+
 @subsubsection Further Information
 
 For a formal definition of @code{syntax-rules} and its pattern language, see
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index b7e9f7f..a1ec5cc 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -504,9 +504,8 @@ If there is no handler at all, Guile prints an error and 
then exits."
     ((do "step" x y)
      y)))
 
-(define-syntax delay
-  (syntax-rules ()
-    ((_ exp) (make-promise (lambda () exp)))))
+(define-syntax-rule (delay exp)
+  (make-promise (lambda () exp)))
 
 (include-from-path "ice-9/quasisyntax")
 
@@ -517,11 +516,9 @@ If there is no handler at all, Guile prints an error and 
then exits."
        (with-syntax ((s (datum->syntax x (syntax-source x))))
          #''s)))))
 
-(define-syntax define-once
-  (syntax-rules ()
-    ((_ sym val)
-     (define sym
-       (if (module-locally-bound? (current-module) 'sym) sym val)))))
+(define-syntax-rule (define-once sym val)
+  (define sym
+    (if (module-locally-bound? (current-module) 'sym) sym val)))
 
 ;;; The real versions of `map' and `for-each', with cycle detection, and
 ;;; that use reverse! instead of recursion in the case of `map'.
@@ -853,12 +850,10 @@ VALUE."
 (define (and=> value procedure) (and value (procedure value)))
 (define call/cc call-with-current-continuation)
 
-(define-syntax false-if-exception
-  (syntax-rules ()
-    ((_ expr)
-     (catch #t
-       (lambda () expr)
-       (lambda (k . args) #f)))))
+(define-syntax-rule (false-if-exception expr)
+  (catch #t
+    (lambda () expr)
+    (lambda (k . args) #f)))
 
 
 
@@ -877,12 +872,10 @@ VALUE."
 ;; properties within the object itself.
 
 (define (make-object-property)
-  (define-syntax with-mutex
-    (syntax-rules ()
-      ((_ lock exp)
-       (dynamic-wind (lambda () (lock-mutex lock))
-                     (lambda () exp)
-                     (lambda () (unlock-mutex lock))))))
+  (define-syntax-rule (with-mutex lock exp)
+    (dynamic-wind (lambda () (lock-mutex lock))
+                  (lambda () exp)
+                  (lambda () (unlock-mutex lock))))
   (let ((prop (make-weak-key-hash-table))
         (lock (make-mutex)))
     (make-procedure-with-setter
@@ -1380,10 +1373,9 @@ VALUE."
          (thunk)))
      (lambda (k . args)
        (%start-stack tag (lambda () (apply k args)))))))
-(define-syntax start-stack
-  (syntax-rules ()
-    ((_ tag exp)
-     (%start-stack tag (lambda () exp)))))
+
+(define-syntax-rule (start-stack tag exp)
+  (%start-stack tag (lambda () exp)))
 
 
 
@@ -2846,11 +2838,9 @@ module '(ice-9 q) '(make-q q-length))}."
                      flags)
            (interface options)
            (interface)))
-       (define-syntax option-set!
-         (syntax-rules ()
-           ((_ opt val)
-            (eval-when (eval load compile expand)
-              (options (append (options) (list 'opt val)))))))))))
+       (define-syntax-rule (option-set! opt val)
+         (eval-when (eval load compile expand)
+           (options (append (options) (list 'opt val)))))))))
 
 (define-option-interface
   (debug-options-interface
@@ -3175,21 +3165,17 @@ module '(ice-9 q) '(make-q q-length))}."
              (process-use-modules (list quoted-args ...))
              *unspecified*))))))
 
-(define-syntax use-syntax
-  (syntax-rules ()
-    ((_ spec ...)
-     (begin
-       (eval-when (eval load compile expand)
-         (issue-deprecation-warning
-          "`use-syntax' is deprecated. Please contact guile-devel for more 
info."))
-       (use-modules spec ...)))))
+(define-syntax-rule (use-syntax spec ...)
+  (begin
+    (eval-when (eval load compile expand)
+      (issue-deprecation-warning
+       "`use-syntax' is deprecated. Please contact guile-devel for more 
info."))
+    (use-modules spec ...)))
 
 (include-from-path "ice-9/r6rs-libraries")
 
-(define-syntax define-private
-  (syntax-rules ()
-    ((_ foo bar)
-     (define foo bar))))
+(define-syntax-rule (define-private foo bar)
+  (define foo bar))
 
 (define-syntax define-public
   (syntax-rules ()
@@ -3200,18 +3186,14 @@ module '(ice-9 q) '(make-q q-length))}."
        (define name val)
        (export name)))))
 
-(define-syntax defmacro-public
-  (syntax-rules ()
-    ((_ name args . body)
-     (begin
-       (defmacro name args . body)
-       (export-syntax name)))))
+(define-syntax-rule (defmacro-public name args body ...)
+  (begin
+    (defmacro name args body ...)
+    (export-syntax name)))
 
 ;; And now for the most important macro.
-(define-syntax λ
-  (syntax-rules ()
-    ((_ formals body ...)
-     (lambda formals body ...))))
+(define-syntax-rule (λ formals body ...)
+  (lambda formals body ...))
 
 
 ;; Export a local variable
@@ -3270,39 +3252,29 @@ module '(ice-9 q) '(make-q q-length))}."
                          (module-add! public-i external-name var)))))
               names)))
 
-(define-syntax export
-  (syntax-rules ()
-    ((_ name ...)
-     (eval-when (eval load compile expand)
-       (call-with-deferred-observers
-        (lambda ()
-          (module-export! (current-module) '(name ...))))))))
+(define-syntax-rule (export name ...)
+  (eval-when (eval load compile expand)
+    (call-with-deferred-observers
+     (lambda ()
+       (module-export! (current-module) '(name ...))))))
 
-(define-syntax re-export
-  (syntax-rules ()
-    ((_ name ...)
-     (eval-when (eval load compile expand)
-       (call-with-deferred-observers
-        (lambda ()
-          (module-re-export! (current-module) '(name ...))))))))
+(define-syntax-rule (re-export name ...)
+  (eval-when (eval load compile expand)
+    (call-with-deferred-observers
+     (lambda ()
+       (module-re-export! (current-module) '(name ...))))))
 
-(define-syntax export!
-  (syntax-rules ()
-    ((_ name ...)
-     (eval-when (eval load compile expand)
-       (call-with-deferred-observers
-        (lambda ()
-          (module-replace! (current-module) '(name ...))))))))
+(define-syntax-rule (export! name ...)
+  (eval-when (eval load compile expand)
+    (call-with-deferred-observers
+     (lambda ()
+       (module-replace! (current-module) '(name ...))))))
 
-(define-syntax export-syntax
-  (syntax-rules ()
-    ((_ name ...)
-     (export name ...))))
+(define-syntax-rule (export-syntax name ...)
+  (export name ...))
 
-(define-syntax re-export-syntax
-  (syntax-rules ()
-    ((_ name ...)
-     (re-export name ...))))
+(define-syntax-rule (re-export-syntax name ...)
+  (re-export name ...))
 
 
 
diff --git a/module/ice-9/control.scm b/module/ice-9/control.scm
index 908e0e9..5f25738 100644
--- a/module/ice-9/control.scm
+++ b/module/ice-9/control.scm
@@ -60,20 +60,16 @@
 ;; http://okmij.org/ftp/Scheme/delim-control-n.scm, which are in the
 ;; public domain, as noted at the top of http://okmij.org/ftp/.
 ;; 
-(define-syntax reset
-  (syntax-rules ()
-    ((_ . body)
-     (call-with-prompt (default-prompt-tag)
-                       (lambda () . body)
-                       (lambda (cont f) (f cont))))))
+(define-syntax-rule (reset . body)
+  (call-with-prompt (default-prompt-tag)
+                    (lambda () . body)
+                    (lambda (cont f) (f cont))))
 
-(define-syntax shift
-  (syntax-rules ()
-    ((_ var . body)
-     (abort-to-prompt (default-prompt-tag)
-                      (lambda (cont)
-                        ((lambda (var) (reset . body))
-                         (lambda vals (reset (apply cont vals)))))))))
+(define-syntax-rule (shift var . body)
+  (abort-to-prompt (default-prompt-tag)
+                   (lambda (cont)
+                     ((lambda (var) (reset . body))
+                      (lambda vals (reset (apply cont vals)))))))
 
 (define (reset* thunk)
   (reset (thunk)))
diff --git a/module/ice-9/futures.scm b/module/ice-9/futures.scm
index 012ebbf..3c4cd7d 100644
--- a/module/ice-9/futures.scm
+++ b/module/ice-9/futures.scm
@@ -173,8 +173,6 @@ touched."
 ;;; Syntax.
 ;;;
 
-(define-syntax future
-  (syntax-rules ()
-    "Return a new future for BODY."
-    ((_ body)
-     (make-future (lambda () body)))))
+(define-syntax-rule (future body)
+  "Return a new future for BODY."
+  (make-future (lambda () body)))
diff --git a/module/ice-9/optargs.scm b/module/ice-9/optargs.scm
index 50a8299..dc4ec95 100644
--- a/module/ice-9/optargs.scm
+++ b/module/ice-9/optargs.scm
@@ -1,6 +1,6 @@
 ;;;; optargs.scm -- support for optional arguments
 ;;;;
-;;;;   Copyright (C) 1997, 1998, 1999, 2001, 2002, 2004, 2006, 2009, 2010 Free 
Software Foundation, Inc.
+;;;;   Copyright (C) 1997, 1998, 1999, 2001, 2002, 2004, 2006, 2009, 2010, 
2011 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -278,12 +278,10 @@
        #'(define-macro id doc (lambda* args b0 b1 ...)))
       ((_ id args b0 b1 ...) 
        #'(define-macro id #f (lambda* args b0 b1 ...))))))
-(define-syntax defmacro*-public
-  (syntax-rules ()
-    ((_ id args b0 b1 ...)
-     (begin
-       (defmacro* id args b0 b1 ...)
-       (export-syntax id)))))
+(define-syntax-rule (defmacro*-public id args b0 b1 ...)
+  (begin
+    (defmacro* id args b0 b1 ...)
+    (export-syntax id)))
 
 ;;; Support for optional & keyword args with the interpreter.
 (define *uninitialized* (list 'uninitialized))
diff --git a/module/ice-9/poll.scm b/module/ice-9/poll.scm
index 26b264b..cf61294 100644
--- a/module/ice-9/poll.scm
+++ b/module/ice-9/poll.scm
@@ -1,6 +1,6 @@
 ;; poll
 
-;;;; Copyright (C) 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -68,9 +68,8 @@
   (ports pset-ports set-pset-ports!)
   )
 
-(define-syntax pollfd-offset
-  (syntax-rules ()
-    ((_ n) (* n 8))))
+(define-syntax-rule (pollfd-offset n)
+  (* n 8))
 
 (define* (make-empty-poll-set #:optional (pre-allocated 4))
   (make-poll-set (make-bytevector (pollfd-offset pre-allocated) 0)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 065214a..d499b73 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -3,1526 +3,1526 @@
 
 (letrec*
   ((#{make-void 203}#
-     (lambda (#{src 761}#)
+     (lambda (#{src 774}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 0)
-         #{src 761}#)))
+         #{src 774}#)))
    (#{make-const 205}#
-     (lambda (#{src 763}# #{exp 764}#)
+     (lambda (#{src 776}# #{exp 777}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 1)
-         #{src 763}#
-         #{exp 764}#)))
+         #{src 776}#
+         #{exp 777}#)))
    (#{make-lexical-ref 209}#
-     (lambda (#{src 771}# #{name 772}# #{gensym 773}#)
+     (lambda (#{src 784}# #{name 785}# #{gensym 786}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 3)
-         #{src 771}#
-         #{name 772}#
-         #{gensym 773}#)))
+         #{src 784}#
+         #{name 785}#
+         #{gensym 786}#)))
    (#{make-lexical-set 211}#
-     (lambda (#{src 777}#
-              #{name 778}#
-              #{gensym 779}#
-              #{exp 780}#)
+     (lambda (#{src 790}#
+              #{name 791}#
+              #{gensym 792}#
+              #{exp 793}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 4)
-         #{src 777}#
-         #{name 778}#
-         #{gensym 779}#
-         #{exp 780}#)))
+         #{src 790}#
+         #{name 791}#
+         #{gensym 792}#
+         #{exp 793}#)))
    (#{make-module-ref 213}#
-     (lambda (#{src 785}#
-              #{mod 786}#
-              #{name 787}#
-              #{public? 788}#)
+     (lambda (#{src 798}#
+              #{mod 799}#
+              #{name 800}#
+              #{public? 801}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 5)
-         #{src 785}#
-         #{mod 786}#
-         #{name 787}#
-         #{public? 788}#)))
+         #{src 798}#
+         #{mod 799}#
+         #{name 800}#
+         #{public? 801}#)))
    (#{make-module-set 215}#
-     (lambda (#{src 793}#
-              #{mod 794}#
-              #{name 795}#
-              #{public? 796}#
-              #{exp 797}#)
+     (lambda (#{src 806}#
+              #{mod 807}#
+              #{name 808}#
+              #{public? 809}#
+              #{exp 810}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 6)
-         #{src 793}#
-         #{mod 794}#
-         #{name 795}#
-         #{public? 796}#
-         #{exp 797}#)))
+         #{src 806}#
+         #{mod 807}#
+         #{name 808}#
+         #{public? 809}#
+         #{exp 810}#)))
    (#{make-toplevel-ref 217}#
-     (lambda (#{src 803}# #{name 804}#)
+     (lambda (#{src 816}# #{name 817}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 7)
-         #{src 803}#
-         #{name 804}#)))
+         #{src 816}#
+         #{name 817}#)))
    (#{make-toplevel-set 219}#
-     (lambda (#{src 807}# #{name 808}# #{exp 809}#)
+     (lambda (#{src 820}# #{name 821}# #{exp 822}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 8)
-         #{src 807}#
-         #{name 808}#
-         #{exp 809}#)))
+         #{src 820}#
+         #{name 821}#
+         #{exp 822}#)))
    (#{make-toplevel-define 221}#
-     (lambda (#{src 813}# #{name 814}# #{exp 815}#)
+     (lambda (#{src 826}# #{name 827}# #{exp 828}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 9)
-         #{src 813}#
-         #{name 814}#
-         #{exp 815}#)))
+         #{src 826}#
+         #{name 827}#
+         #{exp 828}#)))
    (#{make-conditional 223}#
-     (lambda (#{src 819}#
-              #{test 820}#
-              #{consequent 821}#
-              #{alternate 822}#)
+     (lambda (#{src 832}#
+              #{test 833}#
+              #{consequent 834}#
+              #{alternate 835}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 10)
-         #{src 819}#
-         #{test 820}#
-         #{consequent 821}#
-         #{alternate 822}#)))
+         #{src 832}#
+         #{test 833}#
+         #{consequent 834}#
+         #{alternate 835}#)))
    (#{make-application 225}#
-     (lambda (#{src 827}# #{proc 828}# #{args 829}#)
+     (lambda (#{src 840}# #{proc 841}# #{args 842}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 11)
-         #{src 827}#
-         #{proc 828}#
-         #{args 829}#)))
+         #{src 840}#
+         #{proc 841}#
+         #{args 842}#)))
    (#{make-sequence 227}#
-     (lambda (#{src 833}# #{exps 834}#)
+     (lambda (#{src 846}# #{exps 847}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 12)
-         #{src 833}#
-         #{exps 834}#)))
+         #{src 846}#
+         #{exps 847}#)))
    (#{make-lambda 229}#
-     (lambda (#{src 837}# #{meta 838}# #{body 839}#)
+     (lambda (#{src 850}# #{meta 851}# #{body 852}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 13)
-         #{src 837}#
-         #{meta 838}#
-         #{body 839}#)))
+         #{src 850}#
+         #{meta 851}#
+         #{body 852}#)))
    (#{make-lambda-case 231}#
-     (lambda (#{src 843}#
-              #{req 844}#
-              #{opt 845}#
-              #{rest 846}#
-              #{kw 847}#
-              #{inits 848}#
-              #{gensyms 849}#
-              #{body 850}#
-              #{alternate 851}#)
+     (lambda (#{src 856}#
+              #{req 857}#
+              #{opt 858}#
+              #{rest 859}#
+              #{kw 860}#
+              #{inits 861}#
+              #{gensyms 862}#
+              #{body 863}#
+              #{alternate 864}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 14)
-         #{src 843}#
-         #{req 844}#
-         #{opt 845}#
-         #{rest 846}#
-         #{kw 847}#
-         #{inits 848}#
-         #{gensyms 849}#
-         #{body 850}#
-         #{alternate 851}#)))
+         #{src 856}#
+         #{req 857}#
+         #{opt 858}#
+         #{rest 859}#
+         #{kw 860}#
+         #{inits 861}#
+         #{gensyms 862}#
+         #{body 863}#
+         #{alternate 864}#)))
    (#{make-let 233}#
-     (lambda (#{src 861}#
-              #{names 862}#
-              #{gensyms 863}#
-              #{vals 864}#
-              #{body 865}#)
+     (lambda (#{src 874}#
+              #{names 875}#
+              #{gensyms 876}#
+              #{vals 877}#
+              #{body 878}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 15)
-         #{src 861}#
-         #{names 862}#
-         #{gensyms 863}#
-         #{vals 864}#
-         #{body 865}#)))
+         #{src 874}#
+         #{names 875}#
+         #{gensyms 876}#
+         #{vals 877}#
+         #{body 878}#)))
    (#{make-letrec 235}#
-     (lambda (#{src 871}#
-              #{in-order? 872}#
-              #{names 873}#
-              #{gensyms 874}#
-              #{vals 875}#
-              #{body 876}#)
+     (lambda (#{src 884}#
+              #{in-order? 885}#
+              #{names 886}#
+              #{gensyms 887}#
+              #{vals 888}#
+              #{body 889}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 16)
-         #{src 871}#
-         #{in-order? 872}#
-         #{names 873}#
-         #{gensyms 874}#
-         #{vals 875}#
-         #{body 876}#)))
+         #{src 884}#
+         #{in-order? 885}#
+         #{names 886}#
+         #{gensyms 887}#
+         #{vals 888}#
+         #{body 889}#)))
    (#{make-dynlet 237}#
-     (lambda (#{src 883}#
-              #{fluids 884}#
-              #{vals 885}#
-              #{body 886}#)
+     (lambda (#{src 896}#
+              #{fluids 897}#
+              #{vals 898}#
+              #{body 899}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 17)
-         #{src 883}#
-         #{fluids 884}#
-         #{vals 885}#
-         #{body 886}#)))
+         #{src 896}#
+         #{fluids 897}#
+         #{vals 898}#
+         #{body 899}#)))
    (#{lambda? 240}#
-     (lambda (#{x 891}#)
-       (if (struct? #{x 891}#)
-         (eq? (struct-vtable #{x 891}#)
+     (lambda (#{x 904}#)
+       (if (struct? #{x 904}#)
+         (eq? (struct-vtable #{x 904}#)
               (vector-ref %expanded-vtables 13))
          #f)))
    (#{lambda-meta 242}#
-     (lambda (#{x 895}#) (struct-ref #{x 895}# 1)))
+     (lambda (#{x 908}#) (struct-ref #{x 908}# 1)))
    (#{set-lambda-meta! 244}#
-     (lambda (#{x 897}# #{v 898}#)
-       (struct-set! #{x 897}# 1 #{v 898}#)))
+     (lambda (#{x 910}# #{v 911}#)
+       (struct-set! #{x 910}# 1 #{v 911}#)))
    (#{top-level-eval-hook 250}#
-     (lambda (#{x 901}# #{mod 902}#)
-       (primitive-eval #{x 901}#)))
+     (lambda (#{x 914}# #{mod 915}#)
+       (primitive-eval #{x 914}#)))
    (#{local-eval-hook 252}#
-     (lambda (#{x 905}# #{mod 906}#)
-       (primitive-eval #{x 905}#)))
-   (#{put-global-definition-hook 255}#
-     (lambda (#{symbol 909}# #{type 910}# #{val 911}#)
+     (lambda (#{x 918}# #{mod 919}#)
+       (primitive-eval #{x 918}#)))
+   (#{put-global-definition-hook 256}#
+     (lambda (#{symbol 922}# #{type 923}# #{val 924}#)
        (module-define!
          (current-module)
-         #{symbol 909}#
+         #{symbol 922}#
          (make-syntax-transformer
-           #{symbol 909}#
-           #{type 910}#
-           #{val 911}#))))
-   (#{get-global-definition-hook 257}#
-     (lambda (#{symbol 915}# #{module 916}#)
+           #{symbol 922}#
+           #{type 923}#
+           #{val 924}#))))
+   (#{get-global-definition-hook 258}#
+     (lambda (#{symbol 928}# #{module 929}#)
        (begin
-         (if (if (not #{module 916}#) (current-module) #f)
+         (if (if (not #{module 929}#) (current-module) #f)
            (warn "module system is booted, we should have a module"
-                 #{symbol 915}#))
+                 #{symbol 928}#))
          (begin
-           (let ((#{v 922}# (module-variable
-                              (if #{module 916}#
-                                (resolve-module (cdr #{module 916}#))
+           (let ((#{v 935}# (module-variable
+                              (if #{module 929}#
+                                (resolve-module (cdr #{module 929}#))
                                 (current-module))
-                              #{symbol 915}#)))
-             (if #{v 922}#
-               (if (variable-bound? #{v 922}#)
+                              #{symbol 928}#)))
+             (if #{v 935}#
+               (if (variable-bound? #{v 935}#)
                  (begin
-                   (let ((#{val 927}# (variable-ref #{v 922}#)))
-                     (if (macro? #{val 927}#)
-                       (if (macro-type #{val 927}#)
-                         (cons (macro-type #{val 927}#)
-                               (macro-binding #{val 927}#))
+                   (let ((#{val 940}# (variable-ref #{v 935}#)))
+                     (if (macro? #{val 940}#)
+                       (if (macro-type #{val 940}#)
+                         (cons (macro-type #{val 940}#)
+                               (macro-binding #{val 940}#))
                          #f)
                        #f)))
                  #f)
                #f))))))
-   (#{decorate-source 259}#
-     (lambda (#{e 931}# #{s 932}#)
+   (#{decorate-source 260}#
+     (lambda (#{e 944}# #{s 945}#)
        (begin
-         (if (if (pair? #{e 931}#) #{s 932}# #f)
-           (set-source-properties! #{e 931}# #{s 932}#))
-         #{e 931}#)))
-   (#{maybe-name-value! 261}#
-     (lambda (#{name 937}# #{val 938}#)
-       (if (#{lambda? 240}# #{val 938}#)
+         (if (if (pair? #{e 944}#) #{s 945}# #f)
+           (set-source-properties! #{e 944}# #{s 945}#))
+         #{e 944}#)))
+   (#{maybe-name-value! 262}#
+     (lambda (#{name 950}# #{val 951}#)
+       (if (#{lambda? 240}# #{val 951}#)
          (begin
-           (let ((#{meta 942}# (#{lambda-meta 242}# #{val 938}#)))
-             (if (not (assq 'name #{meta 942}#))
+           (let ((#{meta 955}# (#{lambda-meta 242}# #{val 951}#)))
+             (if (not (assq 'name #{meta 955}#))
                (#{set-lambda-meta! 244}#
-                 #{val 938}#
-                 (cons (cons 'name #{name 937}#) #{meta 942}#))))))))
-   (#{build-void 263}#
-     (lambda (#{source 943}#)
-       (#{make-void 203}# #{source 943}#)))
-   (#{build-application 265}#
-     (lambda (#{source 945}# #{fun-exp 946}# #{arg-exps 947}#)
+                 #{val 951}#
+                 (cons (cons 'name #{name 950}#) #{meta 955}#))))))))
+   (#{build-void 264}#
+     (lambda (#{source 956}#)
+       (#{make-void 203}# #{source 956}#)))
+   (#{build-application 266}#
+     (lambda (#{source 958}# #{fun-exp 959}# #{arg-exps 960}#)
        (#{make-application 225}#
-         #{source 945}#
-         #{fun-exp 946}#
-         #{arg-exps 947}#)))
-   (#{build-conditional 267}#
-     (lambda (#{source 951}#
-              #{test-exp 952}#
-              #{then-exp 953}#
-              #{else-exp 954}#)
+         #{source 958}#
+         #{fun-exp 959}#
+         #{arg-exps 960}#)))
+   (#{build-conditional 268}#
+     (lambda (#{source 964}#
+              #{test-exp 965}#
+              #{then-exp 966}#
+              #{else-exp 967}#)
        (#{make-conditional 223}#
-         #{source 951}#
-         #{test-exp 952}#
-         #{then-exp 953}#
-         #{else-exp 954}#)))
-   (#{build-dynlet 269}#
-     (lambda (#{source 959}#
-              #{fluids 960}#
-              #{vals 961}#
-              #{body 962}#)
+         #{source 964}#
+         #{test-exp 965}#
+         #{then-exp 966}#
+         #{else-exp 967}#)))
+   (#{build-dynlet 270}#
+     (lambda (#{source 972}#
+              #{fluids 973}#
+              #{vals 974}#
+              #{body 975}#)
        (#{make-dynlet 237}#
-         #{source 959}#
-         #{fluids 960}#
-         #{vals 961}#
-         #{body 962}#)))
-   (#{build-lexical-reference 271}#
-     (lambda (#{type 967}#
-              #{source 968}#
-              #{name 969}#
-              #{var 970}#)
+         #{source 972}#
+         #{fluids 973}#
+         #{vals 974}#
+         #{body 975}#)))
+   (#{build-lexical-reference 272}#
+     (lambda (#{type 980}#
+              #{source 981}#
+              #{name 982}#
+              #{var 983}#)
        (#{make-lexical-ref 209}#
-         #{source 968}#
-         #{name 969}#
-         #{var 970}#)))
-   (#{build-lexical-assignment 273}#
-     (lambda (#{source 975}#
-              #{name 976}#
-              #{var 977}#
-              #{exp 978}#)
+         #{source 981}#
+         #{name 982}#
+         #{var 983}#)))
+   (#{build-lexical-assignment 274}#
+     (lambda (#{source 988}#
+              #{name 989}#
+              #{var 990}#
+              #{exp 991}#)
        (begin
-         (#{maybe-name-value! 261}#
-           #{name 976}#
-           #{exp 978}#)
+         (#{maybe-name-value! 262}#
+           #{name 989}#
+           #{exp 991}#)
          (#{make-lexical-set 211}#
-           #{source 975}#
-           #{name 976}#
-           #{var 977}#
-           #{exp 978}#))))
-   (#{analyze-variable 275}#
-     (lambda (#{mod 983}#
-              #{var 984}#
-              #{modref-cont 985}#
-              #{bare-cont 986}#)
-       (if (not #{mod 983}#)
-         (#{bare-cont 986}# #{var 984}#)
+           #{source 988}#
+           #{name 989}#
+           #{var 990}#
+           #{exp 991}#))))
+   (#{analyze-variable 276}#
+     (lambda (#{mod 996}#
+              #{var 997}#
+              #{modref-cont 998}#
+              #{bare-cont 999}#)
+       (if (not #{mod 996}#)
+         (#{bare-cont 999}# #{var 997}#)
          (begin
-           (let ((#{kind 993}# (car #{mod 983}#))
-                 (#{mod 994}# (cdr #{mod 983}#)))
-             (if (eqv? #{kind 993}# 'public)
-               (#{modref-cont 985}# #{mod 994}# #{var 984}# #t)
-               (if (eqv? #{kind 993}# 'private)
+           (let ((#{kind 1006}# (car #{mod 996}#))
+                 (#{mod 1007}# (cdr #{mod 996}#)))
+             (if (eqv? #{kind 1006}# 'public)
+               (#{modref-cont 998}# #{mod 1007}# #{var 997}# #t)
+               (if (eqv? #{kind 1006}# 'private)
                  (if (not (equal?
-                            #{mod 994}#
+                            #{mod 1007}#
                             (module-name (current-module))))
-                   (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
-                   (#{bare-cont 986}# #{var 984}#))
-                 (if (eqv? #{kind 993}# 'bare)
-                   (#{bare-cont 986}# #{var 984}#)
-                   (if (eqv? #{kind 993}# 'hygiene)
+                   (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f)
+                   (#{bare-cont 999}# #{var 997}#))
+                 (if (eqv? #{kind 1006}# 'bare)
+                   (#{bare-cont 999}# #{var 997}#)
+                   (if (eqv? #{kind 1006}# 'hygiene)
                      (if (if (not (equal?
-                                    #{mod 994}#
+                                    #{mod 1007}#
                                     (module-name (current-module))))
                            (module-variable
-                             (resolve-module #{mod 994}#)
-                             #{var 984}#)
+                             (resolve-module #{mod 1007}#)
+                             #{var 997}#)
                            #f)
-                       (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
-                       (#{bare-cont 986}# #{var 984}#))
+                       (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f)
+                       (#{bare-cont 999}# #{var 997}#))
                      (syntax-violation
                        #f
                        "bad module kind"
-                       #{var 984}#
-                       #{mod 994}#))))))))))
-   (#{build-global-reference 277}#
-     (lambda (#{source 1002}# #{var 1003}# #{mod 1004}#)
-       (#{analyze-variable 275}#
-         #{mod 1004}#
-         #{var 1003}#
-         (lambda (#{mod 1008}# #{var 1009}# #{public? 1010}#)
+                       #{var 997}#
+                       #{mod 1007}#))))))))))
+   (#{build-global-reference 278}#
+     (lambda (#{source 1015}# #{var 1016}# #{mod 1017}#)
+       (#{analyze-variable 276}#
+         #{mod 1017}#
+         #{var 1016}#
+         (lambda (#{mod 1021}# #{var 1022}# #{public? 1023}#)
            (#{make-module-ref 213}#
-             #{source 1002}#
-             #{mod 1008}#
-             #{var 1009}#
-             #{public? 1010}#))
-         (lambda (#{var 1014}#)
+             #{source 1015}#
+             #{mod 1021}#
+             #{var 1022}#
+             #{public? 1023}#))
+         (lambda (#{var 1027}#)
            (#{make-toplevel-ref 217}#
-             #{source 1002}#
-             #{var 1014}#)))))
-   (#{build-global-assignment 279}#
-     (lambda (#{source 1016}#
-              #{var 1017}#
-              #{exp 1018}#
-              #{mod 1019}#)
+             #{source 1015}#
+             #{var 1027}#)))))
+   (#{build-global-assignment 280}#
+     (lambda (#{source 1029}#
+              #{var 1030}#
+              #{exp 1031}#
+              #{mod 1032}#)
        (begin
-         (#{maybe-name-value! 261}#
-           #{var 1017}#
-           #{exp 1018}#)
-         (#{analyze-variable 275}#
-           #{mod 1019}#
-           #{var 1017}#
-           (lambda (#{mod 1024}# #{var 1025}# #{public? 1026}#)
+         (#{maybe-name-value! 262}#
+           #{var 1030}#
+           #{exp 1031}#)
+         (#{analyze-variable 276}#
+           #{mod 1032}#
+           #{var 1030}#
+           (lambda (#{mod 1037}# #{var 1038}# #{public? 1039}#)
              (#{make-module-set 215}#
-               #{source 1016}#
-               #{mod 1024}#
-               #{var 1025}#
-               #{public? 1026}#
-               #{exp 1018}#))
-           (lambda (#{var 1030}#)
+               #{source 1029}#
+               #{mod 1037}#
+               #{var 1038}#
+               #{public? 1039}#
+               #{exp 1031}#))
+           (lambda (#{var 1043}#)
              (#{make-toplevel-set 219}#
-               #{source 1016}#
-               #{var 1030}#
-               #{exp 1018}#))))))
-   (#{build-global-definition 281}#
-     (lambda (#{source 1032}# #{var 1033}# #{exp 1034}#)
+               #{source 1029}#
+               #{var 1043}#
+               #{exp 1031}#))))))
+   (#{build-global-definition 282}#
+     (lambda (#{source 1045}# #{var 1046}# #{exp 1047}#)
        (begin
-         (#{maybe-name-value! 261}#
-           #{var 1033}#
-           #{exp 1034}#)
+         (#{maybe-name-value! 262}#
+           #{var 1046}#
+           #{exp 1047}#)
          (#{make-toplevel-define 221}#
-           #{source 1032}#
-           #{var 1033}#
-           #{exp 1034}#))))
-   (#{build-simple-lambda 283}#
-     (lambda (#{src 1038}#
-              #{req 1039}#
-              #{rest 1040}#
-              #{vars 1041}#
-              #{meta 1042}#
-              #{exp 1043}#)
+           #{source 1045}#
+           #{var 1046}#
+           #{exp 1047}#))))
+   (#{build-simple-lambda 284}#
+     (lambda (#{src 1051}#
+              #{req 1052}#
+              #{rest 1053}#
+              #{vars 1054}#
+              #{meta 1055}#
+              #{exp 1056}#)
        (#{make-lambda 229}#
-         #{src 1038}#
-         #{meta 1042}#
+         #{src 1051}#
+         #{meta 1055}#
          (#{make-lambda-case 231}#
-           #{src 1038}#
-           #{req 1039}#
+           #{src 1051}#
+           #{req 1052}#
            #f
-           #{rest 1040}#
+           #{rest 1053}#
            #f
            '()
-           #{vars 1041}#
-           #{exp 1043}#
+           #{vars 1054}#
+           #{exp 1056}#
            #f))))
-   (#{build-case-lambda 285}#
-     (lambda (#{src 1050}# #{meta 1051}# #{body 1052}#)
+   (#{build-case-lambda 286}#
+     (lambda (#{src 1063}# #{meta 1064}# #{body 1065}#)
        (#{make-lambda 229}#
-         #{src 1050}#
-         #{meta 1051}#
-         #{body 1052}#)))
-   (#{build-lambda-case 287}#
-     (lambda (#{src 1056}#
-              #{req 1057}#
-              #{opt 1058}#
-              #{rest 1059}#
-              #{kw 1060}#
-              #{inits 1061}#
-              #{vars 1062}#
-              #{body 1063}#
-              #{else-case 1064}#)
+         #{src 1063}#
+         #{meta 1064}#
+         #{body 1065}#)))
+   (#{build-lambda-case 288}#
+     (lambda (#{src 1069}#
+              #{req 1070}#
+              #{opt 1071}#
+              #{rest 1072}#
+              #{kw 1073}#
+              #{inits 1074}#
+              #{vars 1075}#
+              #{body 1076}#
+              #{else-case 1077}#)
        (#{make-lambda-case 231}#
-         #{src 1056}#
-         #{req 1057}#
-         #{opt 1058}#
-         #{rest 1059}#
-         #{kw 1060}#
-         #{inits 1061}#
-         #{vars 1062}#
-         #{body 1063}#
-         #{else-case 1064}#)))
-   (#{build-primref 289}#
-     (lambda (#{src 1074}# #{name 1075}#)
+         #{src 1069}#
+         #{req 1070}#
+         #{opt 1071}#
+         #{rest 1072}#
+         #{kw 1073}#
+         #{inits 1074}#
+         #{vars 1075}#
+         #{body 1076}#
+         #{else-case 1077}#)))
+   (#{build-primref 290}#
+     (lambda (#{src 1087}# #{name 1088}#)
        (if (equal? (module-name (current-module)) '(guile))
          (#{make-toplevel-ref 217}#
-           #{src 1074}#
-           #{name 1075}#)
+           #{src 1087}#
+           #{name 1088}#)
          (#{make-module-ref 213}#
-           #{src 1074}#
+           #{src 1087}#
            '(guile)
-           #{name 1075}#
+           #{name 1088}#
            #f))))
-   (#{build-data 291}#
-     (lambda (#{src 1078}# #{exp 1079}#)
-       (#{make-const 205}# #{src 1078}# #{exp 1079}#)))
-   (#{build-sequence 293}#
-     (lambda (#{src 1082}# #{exps 1083}#)
-       (if (null? (cdr #{exps 1083}#))
-         (car #{exps 1083}#)
+   (#{build-data 292}#
+     (lambda (#{src 1091}# #{exp 1092}#)
+       (#{make-const 205}# #{src 1091}# #{exp 1092}#)))
+   (#{build-sequence 294}#
+     (lambda (#{src 1095}# #{exps 1096}#)
+       (if (null? (cdr #{exps 1096}#))
+         (car #{exps 1096}#)
          (#{make-sequence 227}#
-           #{src 1082}#
-           #{exps 1083}#))))
-   (#{build-let 295}#
-     (lambda (#{src 1086}#
-              #{ids 1087}#
-              #{vars 1088}#
-              #{val-exps 1089}#
-              #{body-exp 1090}#)
+           #{src 1095}#
+           #{exps 1096}#))))
+   (#{build-let 296}#
+     (lambda (#{src 1099}#
+              #{ids 1100}#
+              #{vars 1101}#
+              #{val-exps 1102}#
+              #{body-exp 1103}#)
        (begin
          (for-each
-           #{maybe-name-value! 261}#
-           #{ids 1087}#
-           #{val-exps 1089}#)
-         (if (null? #{vars 1088}#)
-           #{body-exp 1090}#
+           #{maybe-name-value! 262}#
+           #{ids 1100}#
+           #{val-exps 1102}#)
+         (if (null? #{vars 1101}#)
+           #{body-exp 1103}#
            (#{make-let 233}#
-             #{src 1086}#
-             #{ids 1087}#
-             #{vars 1088}#
-             #{val-exps 1089}#
-             #{body-exp 1090}#)))))
-   (#{build-named-let 297}#
-     (lambda (#{src 1096}#
-              #{ids 1097}#
-              #{vars 1098}#
-              #{val-exps 1099}#
-              #{body-exp 1100}#)
+             #{src 1099}#
+             #{ids 1100}#
+             #{vars 1101}#
+             #{val-exps 1102}#
+             #{body-exp 1103}#)))))
+   (#{build-named-let 298}#
+     (lambda (#{src 1109}#
+              #{ids 1110}#
+              #{vars 1111}#
+              #{val-exps 1112}#
+              #{body-exp 1113}#)
        (begin
-         (let ((#{f 1110}# (car #{vars 1098}#))
-               (#{f-name 1111}# (car #{ids 1097}#))
-               (#{vars 1112}# (cdr #{vars 1098}#))
-               (#{ids 1113}# (cdr #{ids 1097}#)))
+         (let ((#{f 1123}# (car #{vars 1111}#))
+               (#{f-name 1124}# (car #{ids 1110}#))
+               (#{vars 1125}# (cdr #{vars 1111}#))
+               (#{ids 1126}# (cdr #{ids 1110}#)))
            (begin
-             (let ((#{proc 1115}#
-                     (#{build-simple-lambda 283}#
-                       #{src 1096}#
-                       #{ids 1113}#
+             (let ((#{proc 1128}#
+                     (#{build-simple-lambda 284}#
+                       #{src 1109}#
+                       #{ids 1126}#
                        #f
-                       #{vars 1112}#
+                       #{vars 1125}#
                        '()
-                       #{body-exp 1100}#)))
+                       #{body-exp 1113}#)))
                (begin
-                 (#{maybe-name-value! 261}#
-                   #{f-name 1111}#
-                   #{proc 1115}#)
+                 (#{maybe-name-value! 262}#
+                   #{f-name 1124}#
+                   #{proc 1128}#)
                  (for-each
-                   #{maybe-name-value! 261}#
-                   #{ids 1113}#
-                   #{val-exps 1099}#)
+                   #{maybe-name-value! 262}#
+                   #{ids 1126}#
+                   #{val-exps 1112}#)
                  (#{make-letrec 235}#
-                   #{src 1096}#
+                   #{src 1109}#
                    #f
-                   (list #{f-name 1111}#)
-                   (list #{f 1110}#)
-                   (list #{proc 1115}#)
-                   (#{build-application 265}#
-                     #{src 1096}#
-                     (#{build-lexical-reference 271}#
+                   (list #{f-name 1124}#)
+                   (list #{f 1123}#)
+                   (list #{proc 1128}#)
+                   (#{build-application 266}#
+                     #{src 1109}#
+                     (#{build-lexical-reference 272}#
                        'fun
-                       #{src 1096}#
-                       #{f-name 1111}#
-                       #{f 1110}#)
-                     #{val-exps 1099}#)))))))))
-   (#{build-letrec 299}#
-     (lambda (#{src 1116}#
-              #{in-order? 1117}#
-              #{ids 1118}#
-              #{vars 1119}#
-              #{val-exps 1120}#
-              #{body-exp 1121}#)
-       (if (null? #{vars 1119}#)
-         #{body-exp 1121}#
+                       #{src 1109}#
+                       #{f-name 1124}#
+                       #{f 1123}#)
+                     #{val-exps 1112}#)))))))))
+   (#{build-letrec 300}#
+     (lambda (#{src 1129}#
+              #{in-order? 1130}#
+              #{ids 1131}#
+              #{vars 1132}#
+              #{val-exps 1133}#
+              #{body-exp 1134}#)
+       (if (null? #{vars 1132}#)
+         #{body-exp 1134}#
          (begin
            (for-each
-             #{maybe-name-value! 261}#
-             #{ids 1118}#
-             #{val-exps 1120}#)
+             #{maybe-name-value! 262}#
+             #{ids 1131}#
+             #{val-exps 1133}#)
            (#{make-letrec 235}#
-             #{src 1116}#
-             #{in-order? 1117}#
-             #{ids 1118}#
-             #{vars 1119}#
-             #{val-exps 1120}#
-             #{body-exp 1121}#)))))
-   (#{make-syntax-object 303}#
-     (lambda (#{expression 1128}#
-              #{wrap 1129}#
-              #{module 1130}#)
+             #{src 1129}#
+             #{in-order? 1130}#
+             #{ids 1131}#
+             #{vars 1132}#
+             #{val-exps 1133}#
+             #{body-exp 1134}#)))))
+   (#{make-syntax-object 305}#
+     (lambda (#{expression 1141}#
+              #{wrap 1142}#
+              #{module 1143}#)
        (vector
          'syntax-object
-         #{expression 1128}#
-         #{wrap 1129}#
-         #{module 1130}#)))
-   (#{syntax-object? 305}#
-     (lambda (#{x 1134}#)
-       (if (vector? #{x 1134}#)
-         (if (= (vector-length #{x 1134}#) 4)
-           (eq? (vector-ref #{x 1134}# 0) 'syntax-object)
+         #{expression 1141}#
+         #{wrap 1142}#
+         #{module 1143}#)))
+   (#{syntax-object? 307}#
+     (lambda (#{x 1147}#)
+       (if (vector? #{x 1147}#)
+         (if (= (vector-length #{x 1147}#) 4)
+           (eq? (vector-ref #{x 1147}# 0) 'syntax-object)
            #f)
          #f)))
-   (#{syntax-object-expression 307}#
-     (lambda (#{x 1139}#) (vector-ref #{x 1139}# 1)))
-   (#{syntax-object-wrap 309}#
-     (lambda (#{x 1141}#) (vector-ref #{x 1141}# 2)))
-   (#{syntax-object-module 311}#
-     (lambda (#{x 1143}#) (vector-ref #{x 1143}# 3)))
-   (#{source-annotation 320}#
-     (lambda (#{x 1157}#)
-       (if (#{syntax-object? 305}# #{x 1157}#)
-         (#{source-annotation 320}#
-           (#{syntax-object-expression 307}# #{x 1157}#))
-         (if (pair? #{x 1157}#)
+   (#{syntax-object-expression 309}#
+     (lambda (#{x 1152}#) (vector-ref #{x 1152}# 1)))
+   (#{syntax-object-wrap 311}#
+     (lambda (#{x 1154}#) (vector-ref #{x 1154}# 2)))
+   (#{syntax-object-module 313}#
+     (lambda (#{x 1156}#) (vector-ref #{x 1156}# 3)))
+   (#{source-annotation 322}#
+     (lambda (#{x 1170}#)
+       (if (#{syntax-object? 307}# #{x 1170}#)
+         (#{source-annotation 322}#
+           (#{syntax-object-expression 309}# #{x 1170}#))
+         (if (pair? #{x 1170}#)
            (begin
-             (let ((#{props 1164}# (source-properties #{x 1157}#)))
-               (if (pair? #{props 1164}#) #{props 1164}# #f)))
+             (let ((#{props 1177}# (source-properties #{x 1170}#)))
+               (if (pair? #{props 1177}#) #{props 1177}# #f)))
            #f))))
-   (#{extend-env 327}#
-     (lambda (#{labels 1166}# #{bindings 1167}# #{r 1168}#)
-       (if (null? #{labels 1166}#)
-         #{r 1168}#
-         (#{extend-env 327}#
-           (cdr #{labels 1166}#)
-           (cdr #{bindings 1167}#)
-           (cons (cons (car #{labels 1166}#)
-                       (car #{bindings 1167}#))
-                 #{r 1168}#)))))
-   (#{extend-var-env 329}#
-     (lambda (#{labels 1172}# #{vars 1173}# #{r 1174}#)
-       (if (null? #{labels 1172}#)
-         #{r 1174}#
-         (#{extend-var-env 329}#
-           (cdr #{labels 1172}#)
-           (cdr #{vars 1173}#)
-           (cons (cons (car #{labels 1172}#)
-                       (cons 'lexical (car #{vars 1173}#)))
-                 #{r 1174}#)))))
-   (#{macros-only-env 331}#
-     (lambda (#{r 1179}#)
-       (if (null? #{r 1179}#)
+   (#{extend-env 332}#
+     (lambda (#{labels 1179}# #{bindings 1180}# #{r 1181}#)
+       (if (null? #{labels 1179}#)
+         #{r 1181}#
+         (#{extend-env 332}#
+           (cdr #{labels 1179}#)
+           (cdr #{bindings 1180}#)
+           (cons (cons (car #{labels 1179}#)
+                       (car #{bindings 1180}#))
+                 #{r 1181}#)))))
+   (#{extend-var-env 334}#
+     (lambda (#{labels 1185}# #{vars 1186}# #{r 1187}#)
+       (if (null? #{labels 1185}#)
+         #{r 1187}#
+         (#{extend-var-env 334}#
+           (cdr #{labels 1185}#)
+           (cdr #{vars 1186}#)
+           (cons (cons (car #{labels 1185}#)
+                       (cons 'lexical (car #{vars 1186}#)))
+                 #{r 1187}#)))))
+   (#{macros-only-env 336}#
+     (lambda (#{r 1192}#)
+       (if (null? #{r 1192}#)
          '()
          (begin
-           (let ((#{a 1182}# (car #{r 1179}#)))
-             (if (eq? (car (cdr #{a 1182}#)) 'macro)
-               (cons #{a 1182}#
-                     (#{macros-only-env 331}# (cdr #{r 1179}#)))
-               (#{macros-only-env 331}# (cdr #{r 1179}#))))))))
-   (#{lookup 333}#
-     (lambda (#{x 1183}# #{r 1184}# #{mod 1185}#)
+           (let ((#{a 1195}# (car #{r 1192}#)))
+             (if (eq? (car (cdr #{a 1195}#)) 'macro)
+               (cons #{a 1195}#
+                     (#{macros-only-env 336}# (cdr #{r 1192}#)))
+               (#{macros-only-env 336}# (cdr #{r 1192}#))))))))
+   (#{lookup 338}#
+     (lambda (#{x 1196}# #{r 1197}# #{mod 1198}#)
        (begin
-         (let ((#{t 1191}# (assq #{x 1183}# #{r 1184}#)))
-           (if #{t 1191}#
-             (cdr #{t 1191}#)
-             (if (symbol? #{x 1183}#)
+         (let ((#{t 1204}# (assq #{x 1196}# #{r 1197}#)))
+           (if #{t 1204}#
+             (cdr #{t 1204}#)
+             (if (symbol? #{x 1196}#)
                (begin
-                 (let ((#{t 1197}#
-                         (#{get-global-definition-hook 257}#
-                           #{x 1183}#
-                           #{mod 1185}#)))
-                   (if #{t 1197}# #{t 1197}# '(global))))
+                 (let ((#{t 1210}#
+                         (#{get-global-definition-hook 258}#
+                           #{x 1196}#
+                           #{mod 1198}#)))
+                   (if #{t 1210}# #{t 1210}# '(global))))
                '(displaced-lexical)))))))
-   (#{global-extend 335}#
-     (lambda (#{type 1202}# #{sym 1203}# #{val 1204}#)
-       (#{put-global-definition-hook 255}#
-         #{sym 1203}#
-         #{type 1202}#
-         #{val 1204}#)))
-   (#{nonsymbol-id? 337}#
-     (lambda (#{x 1208}#)
-       (if (#{syntax-object? 305}# #{x 1208}#)
+   (#{global-extend 340}#
+     (lambda (#{type 1215}# #{sym 1216}# #{val 1217}#)
+       (#{put-global-definition-hook 256}#
+         #{sym 1216}#
+         #{type 1215}#
+         #{val 1217}#)))
+   (#{nonsymbol-id? 342}#
+     (lambda (#{x 1221}#)
+       (if (#{syntax-object? 307}# #{x 1221}#)
          (symbol?
-           (#{syntax-object-expression 307}# #{x 1208}#))
+           (#{syntax-object-expression 309}# #{x 1221}#))
          #f)))
-   (#{id? 339}#
-     (lambda (#{x 1212}#)
-       (if (symbol? #{x 1212}#)
+   (#{id? 344}#
+     (lambda (#{x 1225}#)
+       (if (symbol? #{x 1225}#)
          #t
-         (if (#{syntax-object? 305}# #{x 1212}#)
+         (if (#{syntax-object? 307}# #{x 1225}#)
            (symbol?
-             (#{syntax-object-expression 307}# #{x 1212}#))
+             (#{syntax-object-expression 309}# #{x 1225}#))
            #f))))
-   (#{id-sym-name&marks 342}#
-     (lambda (#{x 1219}# #{w 1220}#)
-       (if (#{syntax-object? 305}# #{x 1219}#)
+   (#{id-sym-name&marks 348}#
+     (lambda (#{x 1232}# #{w 1233}#)
+       (if (#{syntax-object? 307}# #{x 1232}#)
          (values
-           (#{syntax-object-expression 307}# #{x 1219}#)
-           (#{join-marks 389}#
-             (car #{w 1220}#)
-             (car (#{syntax-object-wrap 309}# #{x 1219}#))))
-         (values #{x 1219}# (car #{w 1220}#)))))
-   (#{gen-label 352}#
+           (#{syntax-object-expression 309}# #{x 1232}#)
+           (#{join-marks 402}#
+             (car #{w 1233}#)
+             (car (#{syntax-object-wrap 311}# #{x 1232}#))))
+         (values #{x 1232}# (car #{w 1233}#)))))
+   (#{gen-label 362}#
      (lambda () (symbol->string (gensym "i"))))
-   (#{gen-labels 354}#
-     (lambda (#{ls 1226}#)
-       (if (null? #{ls 1226}#)
+   (#{gen-labels 364}#
+     (lambda (#{ls 1239}#)
+       (if (null? #{ls 1239}#)
          '()
-         (cons (#{gen-label 352}#)
-               (#{gen-labels 354}# (cdr #{ls 1226}#))))))
-   (#{make-ribcage 357}#
-     (lambda (#{symnames 1228}#
-              #{marks 1229}#
-              #{labels 1230}#)
+         (cons (#{gen-label 362}#)
+               (#{gen-labels 364}# (cdr #{ls 1239}#))))))
+   (#{make-ribcage 367}#
+     (lambda (#{symnames 1241}#
+              #{marks 1242}#
+              #{labels 1243}#)
        (vector
          'ribcage
-         #{symnames 1228}#
-         #{marks 1229}#
-         #{labels 1230}#)))
-   (#{ribcage-symnames 361}#
-     (lambda (#{x 1239}#) (vector-ref #{x 1239}# 1)))
-   (#{ribcage-marks 363}#
-     (lambda (#{x 1241}#) (vector-ref #{x 1241}# 2)))
-   (#{ribcage-labels 365}#
-     (lambda (#{x 1243}#) (vector-ref #{x 1243}# 3)))
-   (#{set-ribcage-symnames! 367}#
-     (lambda (#{x 1245}# #{update 1246}#)
-       (vector-set! #{x 1245}# 1 #{update 1246}#)))
-   (#{set-ribcage-marks! 369}#
-     (lambda (#{x 1249}# #{update 1250}#)
-       (vector-set! #{x 1249}# 2 #{update 1250}#)))
-   (#{set-ribcage-labels! 371}#
-     (lambda (#{x 1253}# #{update 1254}#)
-       (vector-set! #{x 1253}# 3 #{update 1254}#)))
-   (#{anti-mark 377}#
-     (lambda (#{w 1257}#)
-       (cons (cons #f (car #{w 1257}#))
-             (cons 'shift (cdr #{w 1257}#)))))
-   (#{extend-ribcage! 381}#
-     (lambda (#{ribcage 1263}# #{id 1264}# #{label 1265}#)
+         #{symnames 1241}#
+         #{marks 1242}#
+         #{labels 1243}#)))
+   (#{ribcage-symnames 371}#
+     (lambda (#{x 1252}#) (vector-ref #{x 1252}# 1)))
+   (#{ribcage-marks 373}#
+     (lambda (#{x 1254}#) (vector-ref #{x 1254}# 2)))
+   (#{ribcage-labels 375}#
+     (lambda (#{x 1256}#) (vector-ref #{x 1256}# 3)))
+   (#{set-ribcage-symnames! 377}#
+     (lambda (#{x 1258}# #{update 1259}#)
+       (vector-set! #{x 1258}# 1 #{update 1259}#)))
+   (#{set-ribcage-marks! 379}#
+     (lambda (#{x 1262}# #{update 1263}#)
+       (vector-set! #{x 1262}# 2 #{update 1263}#)))
+   (#{set-ribcage-labels! 381}#
+     (lambda (#{x 1266}# #{update 1267}#)
+       (vector-set! #{x 1266}# 3 #{update 1267}#)))
+   (#{anti-mark 388}#
+     (lambda (#{w 1270}#)
+       (cons (cons #f (car #{w 1270}#))
+             (cons 'shift (cdr #{w 1270}#)))))
+   (#{extend-ribcage! 394}#
+     (lambda (#{ribcage 1276}# #{id 1277}# #{label 1278}#)
        (begin
-         (#{set-ribcage-symnames! 367}#
-           #{ribcage 1263}#
-           (cons (#{syntax-object-expression 307}# #{id 1264}#)
-                 (#{ribcage-symnames 361}# #{ribcage 1263}#)))
-         (#{set-ribcage-marks! 369}#
-           #{ribcage 1263}#
-           (cons (car (#{syntax-object-wrap 309}# #{id 1264}#))
-                 (#{ribcage-marks 363}# #{ribcage 1263}#)))
-         (#{set-ribcage-labels! 371}#
-           #{ribcage 1263}#
-           (cons #{label 1265}#
-                 (#{ribcage-labels 365}# #{ribcage 1263}#))))))
-   (#{make-binding-wrap 383}#
-     (lambda (#{ids 1270}# #{labels 1271}# #{w 1272}#)
-       (if (null? #{ids 1270}#)
-         #{w 1272}#
-         (cons (car #{w 1272}#)
+         (#{set-ribcage-symnames! 377}#
+           #{ribcage 1276}#
+           (cons (#{syntax-object-expression 309}# #{id 1277}#)
+                 (#{ribcage-symnames 371}# #{ribcage 1276}#)))
+         (#{set-ribcage-marks! 379}#
+           #{ribcage 1276}#
+           (cons (car (#{syntax-object-wrap 311}# #{id 1277}#))
+                 (#{ribcage-marks 373}# #{ribcage 1276}#)))
+         (#{set-ribcage-labels! 381}#
+           #{ribcage 1276}#
+           (cons #{label 1278}#
+                 (#{ribcage-labels 375}# #{ribcage 1276}#))))))
+   (#{make-binding-wrap 396}#
+     (lambda (#{ids 1283}# #{labels 1284}# #{w 1285}#)
+       (if (null? #{ids 1283}#)
+         #{w 1285}#
+         (cons (car #{w 1285}#)
                (cons (begin
-                       (let ((#{labelvec 1279}#
-                               (list->vector #{labels 1271}#)))
+                       (let ((#{labelvec 1292}#
+                               (list->vector #{labels 1284}#)))
                          (begin
-                           (let ((#{n 1281}#
-                                   (vector-length #{labelvec 1279}#)))
+                           (let ((#{n 1294}#
+                                   (vector-length #{labelvec 1292}#)))
                              (begin
-                               (let ((#{symnamevec 1284}#
-                                       (make-vector #{n 1281}#))
-                                     (#{marksvec 1285}#
-                                       (make-vector #{n 1281}#)))
+                               (let ((#{symnamevec 1297}#
+                                       (make-vector #{n 1294}#))
+                                     (#{marksvec 1298}#
+                                       (make-vector #{n 1294}#)))
                                  (begin
                                    (letrec*
-                                     ((#{f 1289}#
-                                        (lambda (#{ids 1290}# #{i 1291}#)
-                                          (if (not (null? #{ids 1290}#))
+                                     ((#{f 1302}#
+                                        (lambda (#{ids 1303}# #{i 1304}#)
+                                          (if (not (null? #{ids 1303}#))
                                             (call-with-values
                                               (lambda ()
-                                                (#{id-sym-name&marks 342}#
-                                                  (car #{ids 1290}#)
-                                                  #{w 1272}#))
-                                              (lambda (#{symname 1292}#
-                                                       #{marks 1293}#)
+                                                (#{id-sym-name&marks 348}#
+                                                  (car #{ids 1303}#)
+                                                  #{w 1285}#))
+                                              (lambda (#{symname 1305}#
+                                                       #{marks 1306}#)
                                                 (begin
                                                   (vector-set!
-                                                    #{symnamevec 1284}#
-                                                    #{i 1291}#
-                                                    #{symname 1292}#)
+                                                    #{symnamevec 1297}#
+                                                    #{i 1304}#
+                                                    #{symname 1305}#)
                                                   (vector-set!
-                                                    #{marksvec 1285}#
-                                                    #{i 1291}#
-                                                    #{marks 1293}#)
-                                                  (#{f 1289}#
-                                                    (cdr #{ids 1290}#)
-                                                    (#{1+}# #{i 1291}#)))))))))
-                                     (begin (#{f 1289}# #{ids 1270}# 0)))
-                                   (#{make-ribcage 357}#
-                                     #{symnamevec 1284}#
-                                     #{marksvec 1285}#
-                                     #{labelvec 1279}#))))))))
-                     (cdr #{w 1272}#))))))
-   (#{smart-append 385}#
-     (lambda (#{m1 1298}# #{m2 1299}#)
-       (if (null? #{m2 1299}#)
-         #{m1 1298}#
-         (append #{m1 1298}# #{m2 1299}#))))
-   (#{join-wraps 387}#
-     (lambda (#{w1 1302}# #{w2 1303}#)
+                                                    #{marksvec 1298}#
+                                                    #{i 1304}#
+                                                    #{marks 1306}#)
+                                                  (#{f 1302}#
+                                                    (cdr #{ids 1303}#)
+                                                    (#{1+}# #{i 1304}#)))))))))
+                                     (begin (#{f 1302}# #{ids 1283}# 0)))
+                                   (#{make-ribcage 367}#
+                                     #{symnamevec 1297}#
+                                     #{marksvec 1298}#
+                                     #{labelvec 1292}#))))))))
+                     (cdr #{w 1285}#))))))
+   (#{smart-append 398}#
+     (lambda (#{m1 1311}# #{m2 1312}#)
+       (if (null? #{m2 1312}#)
+         #{m1 1311}#
+         (append #{m1 1311}# #{m2 1312}#))))
+   (#{join-wraps 400}#
+     (lambda (#{w1 1315}# #{w2 1316}#)
        (begin
-         (let ((#{m1 1308}# (car #{w1 1302}#))
-               (#{s1 1309}# (cdr #{w1 1302}#)))
-           (if (null? #{m1 1308}#)
-             (if (null? #{s1 1309}#)
-               #{w2 1303}#
-               (cons (car #{w2 1303}#)
-                     (#{smart-append 385}#
-                       #{s1 1309}#
-                       (cdr #{w2 1303}#))))
-             (cons (#{smart-append 385}#
-                     #{m1 1308}#
-                     (car #{w2 1303}#))
-                   (#{smart-append 385}#
-                     #{s1 1309}#
-                     (cdr #{w2 1303}#))))))))
-   (#{join-marks 389}#
-     (lambda (#{m1 1318}# #{m2 1319}#)
-       (#{smart-append 385}# #{m1 1318}# #{m2 1319}#)))
-   (#{same-marks? 391}#
-     (lambda (#{x 1322}# #{y 1323}#)
+         (let ((#{m1 1321}# (car #{w1 1315}#))
+               (#{s1 1322}# (cdr #{w1 1315}#)))
+           (if (null? #{m1 1321}#)
+             (if (null? #{s1 1322}#)
+               #{w2 1316}#
+               (cons (car #{w2 1316}#)
+                     (#{smart-append 398}#
+                       #{s1 1322}#
+                       (cdr #{w2 1316}#))))
+             (cons (#{smart-append 398}#
+                     #{m1 1321}#
+                     (car #{w2 1316}#))
+                   (#{smart-append 398}#
+                     #{s1 1322}#
+                     (cdr #{w2 1316}#))))))))
+   (#{join-marks 402}#
+     (lambda (#{m1 1331}# #{m2 1332}#)
+       (#{smart-append 398}# #{m1 1331}# #{m2 1332}#)))
+   (#{same-marks? 404}#
+     (lambda (#{x 1335}# #{y 1336}#)
        (begin
-         (let ((#{t 1328}# (eq? #{x 1322}# #{y 1323}#)))
-           (if #{t 1328}#
-             #{t 1328}#
-             (if (not (null? #{x 1322}#))
-               (if (not (null? #{y 1323}#))
-                 (if (eq? (car #{x 1322}#) (car #{y 1323}#))
-                   (#{same-marks? 391}#
-                     (cdr #{x 1322}#)
-                     (cdr #{y 1323}#))
+         (let ((#{t 1341}# (eq? #{x 1335}# #{y 1336}#)))
+           (if #{t 1341}#
+             #{t 1341}#
+             (if (not (null? #{x 1335}#))
+               (if (not (null? #{y 1336}#))
+                 (if (eq? (car #{x 1335}#) (car #{y 1336}#))
+                   (#{same-marks? 404}#
+                     (cdr #{x 1335}#)
+                     (cdr #{y 1336}#))
                    #f)
                  #f)
                #f))))))
-   (#{id-var-name 393}#
-     (lambda (#{id 1334}# #{w 1335}#)
+   (#{id-var-name 406}#
+     (lambda (#{id 1347}# #{w 1348}#)
        (letrec*
-         ((#{search 1340}#
-            (lambda (#{sym 1356}# #{subst 1357}# #{marks 1358}#)
-              (if (null? #{subst 1357}#)
-                (values #f #{marks 1358}#)
+         ((#{search 1354}#
+            (lambda (#{sym 1370}# #{subst 1371}# #{marks 1372}#)
+              (if (null? #{subst 1371}#)
+                (values #f #{marks 1372}#)
                 (begin
-                  (let ((#{fst 1363}# (car #{subst 1357}#)))
-                    (if (eq? #{fst 1363}# 'shift)
-                      (#{search 1340}#
-                        #{sym 1356}#
-                        (cdr #{subst 1357}#)
-                        (cdr #{marks 1358}#))
+                  (let ((#{fst 1377}# (car #{subst 1371}#)))
+                    (if (eq? #{fst 1377}# 'shift)
+                      (#{search 1354}#
+                        #{sym 1370}#
+                        (cdr #{subst 1371}#)
+                        (cdr #{marks 1372}#))
                       (begin
-                        (let ((#{symnames 1365}#
-                                (#{ribcage-symnames 361}# #{fst 1363}#)))
-                          (if (vector? #{symnames 1365}#)
-                            (#{search-vector-rib 1344}#
-                              #{sym 1356}#
-                              #{subst 1357}#
-                              #{marks 1358}#
-                              #{symnames 1365}#
-                              #{fst 1363}#)
-                            (#{search-list-rib 1342}#
-                              #{sym 1356}#
-                              #{subst 1357}#
-                              #{marks 1358}#
-                              #{symnames 1365}#
-                              #{fst 1363}#))))))))))
-          (#{search-list-rib 1342}#
-            (lambda (#{sym 1366}#
-                     #{subst 1367}#
-                     #{marks 1368}#
-                     #{symnames 1369}#
-                     #{ribcage 1370}#)
+                        (let ((#{symnames 1379}#
+                                (#{ribcage-symnames 371}# #{fst 1377}#)))
+                          (if (vector? #{symnames 1379}#)
+                            (#{search-vector-rib 1358}#
+                              #{sym 1370}#
+                              #{subst 1371}#
+                              #{marks 1372}#
+                              #{symnames 1379}#
+                              #{fst 1377}#)
+                            (#{search-list-rib 1356}#
+                              #{sym 1370}#
+                              #{subst 1371}#
+                              #{marks 1372}#
+                              #{symnames 1379}#
+                              #{fst 1377}#))))))))))
+          (#{search-list-rib 1356}#
+            (lambda (#{sym 1380}#
+                     #{subst 1381}#
+                     #{marks 1382}#
+                     #{symnames 1383}#
+                     #{ribcage 1384}#)
               (letrec*
-                ((#{f 1379}#
-                   (lambda (#{symnames 1380}# #{i 1381}#)
-                     (if (null? #{symnames 1380}#)
-                       (#{search 1340}#
-                         #{sym 1366}#
-                         (cdr #{subst 1367}#)
-                         #{marks 1368}#)
-                       (if (if (eq? (car #{symnames 1380}#) #{sym 1366}#)
-                             (#{same-marks? 391}#
-                               #{marks 1368}#
+                ((#{f 1393}#
+                   (lambda (#{symnames 1394}# #{i 1395}#)
+                     (if (null? #{symnames 1394}#)
+                       (#{search 1354}#
+                         #{sym 1380}#
+                         (cdr #{subst 1381}#)
+                         #{marks 1382}#)
+                       (if (if (eq? (car #{symnames 1394}#) #{sym 1380}#)
+                             (#{same-marks? 404}#
+                               #{marks 1382}#
                                (list-ref
-                                 (#{ribcage-marks 363}# #{ribcage 1370}#)
-                                 #{i 1381}#))
+                                 (#{ribcage-marks 373}# #{ribcage 1384}#)
+                                 #{i 1395}#))
                              #f)
                          (values
                            (list-ref
-                             (#{ribcage-labels 365}# #{ribcage 1370}#)
-                             #{i 1381}#)
-                           #{marks 1368}#)
-                         (#{f 1379}#
-                           (cdr #{symnames 1380}#)
-                           (#{1+}# #{i 1381}#)))))))
-                (begin (#{f 1379}# #{symnames 1369}# 0)))))
-          (#{search-vector-rib 1344}#
-            (lambda (#{sym 1390}#
-                     #{subst 1391}#
-                     #{marks 1392}#
-                     #{symnames 1393}#
-                     #{ribcage 1394}#)
+                             (#{ribcage-labels 375}# #{ribcage 1384}#)
+                             #{i 1395}#)
+                           #{marks 1382}#)
+                         (#{f 1393}#
+                           (cdr #{symnames 1394}#)
+                           (#{1+}# #{i 1395}#)))))))
+                (begin (#{f 1393}# #{symnames 1383}# 0)))))
+          (#{search-vector-rib 1358}#
+            (lambda (#{sym 1404}#
+                     #{subst 1405}#
+                     #{marks 1406}#
+                     #{symnames 1407}#
+                     #{ribcage 1408}#)
               (begin
-                (let ((#{n 1401}# (vector-length #{symnames 1393}#)))
+                (let ((#{n 1415}# (vector-length #{symnames 1407}#)))
                   (letrec*
-                    ((#{f 1404}#
-                       (lambda (#{i 1405}#)
-                         (if (= #{i 1405}# #{n 1401}#)
-                           (#{search 1340}#
-                             #{sym 1390}#
-                             (cdr #{subst 1391}#)
-                             #{marks 1392}#)
+                    ((#{f 1418}#
+                       (lambda (#{i 1419}#)
+                         (if (= #{i 1419}# #{n 1415}#)
+                           (#{search 1354}#
+                             #{sym 1404}#
+                             (cdr #{subst 1405}#)
+                             #{marks 1406}#)
                            (if (if (eq? (vector-ref
-                                          #{symnames 1393}#
-                                          #{i 1405}#)
-                                        #{sym 1390}#)
-                                 (#{same-marks? 391}#
-                                   #{marks 1392}#
+                                          #{symnames 1407}#
+                                          #{i 1419}#)
+                                        #{sym 1404}#)
+                                 (#{same-marks? 404}#
+                                   #{marks 1406}#
                                    (vector-ref
-                                     (#{ribcage-marks 363}# #{ribcage 1394}#)
-                                     #{i 1405}#))
+                                     (#{ribcage-marks 373}# #{ribcage 1408}#)
+                                     #{i 1419}#))
                                  #f)
                              (values
                                (vector-ref
-                                 (#{ribcage-labels 365}# #{ribcage 1394}#)
-                                 #{i 1405}#)
-                               #{marks 1392}#)
-                             (#{f 1404}# (#{1+}# #{i 1405}#)))))))
-                    (begin (#{f 1404}# 0))))))))
+                                 (#{ribcage-labels 375}# #{ribcage 1408}#)
+                                 #{i 1419}#)
+                               #{marks 1406}#)
+                             (#{f 1418}# (#{1+}# #{i 1419}#)))))))
+                    (begin (#{f 1418}# 0))))))))
          (begin
-           (if (symbol? #{id 1334}#)
+           (if (symbol? #{id 1347}#)
              (begin
-               (let ((#{t 1417}#
-                       (#{search 1340}#
-                         #{id 1334}#
-                         (cdr #{w 1335}#)
-                         (car #{w 1335}#))))
-                 (if #{t 1417}# #{t 1417}# #{id 1334}#)))
-             (if (#{syntax-object? 305}# #{id 1334}#)
+               (let ((#{t 1431}#
+                       (#{search 1354}#
+                         #{id 1347}#
+                         (cdr #{w 1348}#)
+                         (car #{w 1348}#))))
+                 (if #{t 1431}# #{t 1431}# #{id 1347}#)))
+             (if (#{syntax-object? 307}# #{id 1347}#)
                (begin
-                 (let ((#{id 1426}#
-                         (#{syntax-object-expression 307}# #{id 1334}#))
-                       (#{w1 1427}#
-                         (#{syntax-object-wrap 309}# #{id 1334}#)))
+                 (let ((#{id 1440}#
+                         (#{syntax-object-expression 309}# #{id 1347}#))
+                       (#{w1 1441}#
+                         (#{syntax-object-wrap 311}# #{id 1347}#)))
                    (begin
-                     (let ((#{marks 1429}#
-                             (#{join-marks 389}#
-                               (car #{w 1335}#)
-                               (car #{w1 1427}#))))
+                     (let ((#{marks 1443}#
+                             (#{join-marks 402}#
+                               (car #{w 1348}#)
+                               (car #{w1 1441}#))))
                        (call-with-values
                          (lambda ()
-                           (#{search 1340}#
-                             #{id 1426}#
-                             (cdr #{w 1335}#)
-                             #{marks 1429}#))
-                         (lambda (#{new-id 1433}# #{marks 1434}#)
+                           (#{search 1354}#
+                             #{id 1440}#
+                             (cdr #{w 1348}#)
+                             #{marks 1443}#))
+                         (lambda (#{new-id 1447}# #{marks 1448}#)
                            (begin
-                             (let ((#{t 1439}# #{new-id 1433}#))
-                               (if #{t 1439}#
-                                 #{t 1439}#
+                             (let ((#{t 1453}# #{new-id 1447}#))
+                               (if #{t 1453}#
+                                 #{t 1453}#
                                  (begin
-                                   (let ((#{t 1442}#
-                                           (#{search 1340}#
-                                             #{id 1426}#
-                                             (cdr #{w1 1427}#)
-                                             #{marks 1434}#)))
-                                     (if #{t 1442}#
-                                       #{t 1442}#
-                                       #{id 1426}#))))))))))))
+                                   (let ((#{t 1456}#
+                                           (#{search 1354}#
+                                             #{id 1440}#
+                                             (cdr #{w1 1441}#)
+                                             #{marks 1448}#)))
+                                     (if #{t 1456}#
+                                       #{t 1456}#
+                                       #{id 1440}#))))))))))))
                (syntax-violation
                  'id-var-name
                  "invalid id"
-                 #{id 1334}#)))))))
-   (#{free-id=? 395}#
-     (lambda (#{i 1447}# #{j 1448}#)
+                 #{id 1347}#)))))))
+   (#{free-id=? 408}#
+     (lambda (#{i 1461}# #{j 1462}#)
        (if (eq? (begin
-                  (let ((#{x 1454}# #{i 1447}#))
-                    (if (#{syntax-object? 305}# #{x 1454}#)
-                      (#{syntax-object-expression 307}# #{x 1454}#)
-                      #{x 1454}#)))
+                  (let ((#{x 1468}# #{i 1461}#))
+                    (if (#{syntax-object? 307}# #{x 1468}#)
+                      (#{syntax-object-expression 309}# #{x 1468}#)
+                      #{x 1468}#)))
                 (begin
-                  (let ((#{x 1457}# #{j 1448}#))
-                    (if (#{syntax-object? 305}# #{x 1457}#)
-                      (#{syntax-object-expression 307}# #{x 1457}#)
-                      #{x 1457}#))))
-         (eq? (#{id-var-name 393}# #{i 1447}# '(()))
-              (#{id-var-name 393}# #{j 1448}# '(())))
+                  (let ((#{x 1471}# #{j 1462}#))
+                    (if (#{syntax-object? 307}# #{x 1471}#)
+                      (#{syntax-object-expression 309}# #{x 1471}#)
+                      #{x 1471}#))))
+         (eq? (#{id-var-name 406}# #{i 1461}# '(()))
+              (#{id-var-name 406}# #{j 1462}# '(())))
          #f)))
-   (#{bound-id=? 397}#
-     (lambda (#{i 1461}# #{j 1462}#)
-       (if (if (#{syntax-object? 305}# #{i 1461}#)
-             (#{syntax-object? 305}# #{j 1462}#)
+   (#{bound-id=? 410}#
+     (lambda (#{i 1475}# #{j 1476}#)
+       (if (if (#{syntax-object? 307}# #{i 1475}#)
+             (#{syntax-object? 307}# #{j 1476}#)
              #f)
-         (if (eq? (#{syntax-object-expression 307}# #{i 1461}#)
-                  (#{syntax-object-expression 307}# #{j 1462}#))
-           (#{same-marks? 391}#
-             (car (#{syntax-object-wrap 309}# #{i 1461}#))
-             (car (#{syntax-object-wrap 309}# #{j 1462}#)))
+         (if (eq? (#{syntax-object-expression 309}# #{i 1475}#)
+                  (#{syntax-object-expression 309}# #{j 1476}#))
+           (#{same-marks? 404}#
+             (car (#{syntax-object-wrap 311}# #{i 1475}#))
+             (car (#{syntax-object-wrap 311}# #{j 1476}#)))
            #f)
-         (eq? #{i 1461}# #{j 1462}#))))
-   (#{valid-bound-ids? 399}#
-     (lambda (#{ids 1471}#)
+         (eq? #{i 1475}# #{j 1476}#))))
+   (#{valid-bound-ids? 412}#
+     (lambda (#{ids 1485}#)
        (if (letrec*
-             ((#{all-ids? 1476}#
-                (lambda (#{ids 1477}#)
+             ((#{all-ids? 1490}#
+                (lambda (#{ids 1491}#)
                   (begin
-                    (let ((#{t 1480}# (null? #{ids 1477}#)))
-                      (if #{t 1480}#
-                        #{t 1480}#
-                        (if (#{id? 339}# (car #{ids 1477}#))
-                          (#{all-ids? 1476}# (cdr #{ids 1477}#))
+                    (let ((#{t 1494}# (null? #{ids 1491}#)))
+                      (if #{t 1494}#
+                        #{t 1494}#
+                        (if (#{id? 344}# (car #{ids 1491}#))
+                          (#{all-ids? 1490}# (cdr #{ids 1491}#))
                           #f)))))))
-             (begin (#{all-ids? 1476}# #{ids 1471}#)))
-         (#{distinct-bound-ids? 401}# #{ids 1471}#)
+             (begin (#{all-ids? 1490}# #{ids 1485}#)))
+         (#{distinct-bound-ids? 414}# #{ids 1485}#)
          #f)))
-   (#{distinct-bound-ids? 401}#
-     (lambda (#{ids 1485}#)
+   (#{distinct-bound-ids? 414}#
+     (lambda (#{ids 1499}#)
        (letrec*
-         ((#{distinct? 1489}#
-            (lambda (#{ids 1490}#)
+         ((#{distinct? 1503}#
+            (lambda (#{ids 1504}#)
               (begin
-                (let ((#{t 1493}# (null? #{ids 1490}#)))
-                  (if #{t 1493}#
-                    #{t 1493}#
-                    (if (not (#{bound-id-member? 403}#
-                               (car #{ids 1490}#)
-                               (cdr #{ids 1490}#)))
-                      (#{distinct? 1489}# (cdr #{ids 1490}#))
+                (let ((#{t 1507}# (null? #{ids 1504}#)))
+                  (if #{t 1507}#
+                    #{t 1507}#
+                    (if (not (#{bound-id-member? 416}#
+                               (car #{ids 1504}#)
+                               (cdr #{ids 1504}#)))
+                      (#{distinct? 1503}# (cdr #{ids 1504}#))
                       #f)))))))
-         (begin (#{distinct? 1489}# #{ids 1485}#)))))
-   (#{bound-id-member? 403}#
-     (lambda (#{x 1497}# #{list 1498}#)
-       (if (not (null? #{list 1498}#))
+         (begin (#{distinct? 1503}# #{ids 1499}#)))))
+   (#{bound-id-member? 416}#
+     (lambda (#{x 1511}# #{list 1512}#)
+       (if (not (null? #{list 1512}#))
          (begin
-           (let ((#{t 1505}#
-                   (#{bound-id=? 397}#
-                     #{x 1497}#
-                     (car #{list 1498}#))))
-             (if #{t 1505}#
-               #{t 1505}#
-               (#{bound-id-member? 403}#
-                 #{x 1497}#
-                 (cdr #{list 1498}#)))))
+           (let ((#{t 1519}#
+                   (#{bound-id=? 410}#
+                     #{x 1511}#
+                     (car #{list 1512}#))))
+             (if #{t 1519}#
+               #{t 1519}#
+               (#{bound-id-member? 416}#
+                 #{x 1511}#
+                 (cdr #{list 1512}#)))))
          #f)))
-   (#{wrap 405}#
-     (lambda (#{x 1507}# #{w 1508}# #{defmod 1509}#)
-       (if (if (null? (car #{w 1508}#))
-             (null? (cdr #{w 1508}#))
+   (#{wrap 418}#
+     (lambda (#{x 1521}# #{w 1522}# #{defmod 1523}#)
+       (if (if (null? (car #{w 1522}#))
+             (null? (cdr #{w 1522}#))
              #f)
-         #{x 1507}#
-         (if (#{syntax-object? 305}# #{x 1507}#)
-           (#{make-syntax-object 303}#
-             (#{syntax-object-expression 307}# #{x 1507}#)
-             (#{join-wraps 387}#
-               #{w 1508}#
-               (#{syntax-object-wrap 309}# #{x 1507}#))
-             (#{syntax-object-module 311}# #{x 1507}#))
-           (if (null? #{x 1507}#)
-             #{x 1507}#
-             (#{make-syntax-object 303}#
-               #{x 1507}#
-               #{w 1508}#
-               #{defmod 1509}#))))))
-   (#{source-wrap 407}#
-     (lambda (#{x 1524}#
-              #{w 1525}#
-              #{s 1526}#
-              #{defmod 1527}#)
-       (#{wrap 405}#
-         (#{decorate-source 259}# #{x 1524}# #{s 1526}#)
-         #{w 1525}#
-         #{defmod 1527}#)))
-   (#{chi-sequence 409}#
-     (lambda (#{body 1532}#
-              #{r 1533}#
-              #{w 1534}#
-              #{s 1535}#
-              #{mod 1536}#)
-       (#{build-sequence 293}#
-         #{s 1535}#
+         #{x 1521}#
+         (if (#{syntax-object? 307}# #{x 1521}#)
+           (#{make-syntax-object 305}#
+             (#{syntax-object-expression 309}# #{x 1521}#)
+             (#{join-wraps 400}#
+               #{w 1522}#
+               (#{syntax-object-wrap 311}# #{x 1521}#))
+             (#{syntax-object-module 313}# #{x 1521}#))
+           (if (null? #{x 1521}#)
+             #{x 1521}#
+             (#{make-syntax-object 305}#
+               #{x 1521}#
+               #{w 1522}#
+               #{defmod 1523}#))))))
+   (#{source-wrap 420}#
+     (lambda (#{x 1538}#
+              #{w 1539}#
+              #{s 1540}#
+              #{defmod 1541}#)
+       (#{wrap 418}#
+         (#{decorate-source 260}# #{x 1538}# #{s 1540}#)
+         #{w 1539}#
+         #{defmod 1541}#)))
+   (#{chi-sequence 422}#
+     (lambda (#{body 1546}#
+              #{r 1547}#
+              #{w 1548}#
+              #{s 1549}#
+              #{mod 1550}#)
+       (#{build-sequence 294}#
+         #{s 1549}#
          (letrec*
-           ((#{dobody 1547}#
-              (lambda (#{body 1548}#
-                       #{r 1549}#
-                       #{w 1550}#
-                       #{mod 1551}#)
-                (if (null? #{body 1548}#)
+           ((#{dobody 1561}#
+              (lambda (#{body 1562}#
+                       #{r 1563}#
+                       #{w 1564}#
+                       #{mod 1565}#)
+                (if (null? #{body 1562}#)
                   '()
                   (begin
-                    (let ((#{first 1553}#
-                            (#{chi 419}#
-                              (car #{body 1548}#)
-                              #{r 1549}#
-                              #{w 1550}#
-                              #{mod 1551}#)))
-                      (cons #{first 1553}#
-                            (#{dobody 1547}#
-                              (cdr #{body 1548}#)
-                              #{r 1549}#
-                              #{w 1550}#
-                              #{mod 1551}#))))))))
+                    (let ((#{first 1567}#
+                            (#{chi 432}#
+                              (car #{body 1562}#)
+                              #{r 1563}#
+                              #{w 1564}#
+                              #{mod 1565}#)))
+                      (cons #{first 1567}#
+                            (#{dobody 1561}#
+                              (cdr #{body 1562}#)
+                              #{r 1563}#
+                              #{w 1564}#
+                              #{mod 1565}#))))))))
            (begin
-             (#{dobody 1547}#
-               #{body 1532}#
-               #{r 1533}#
-               #{w 1534}#
-               #{mod 1536}#))))))
-   (#{chi-top-sequence 411}#
-     (lambda (#{body 1554}#
-              #{r 1555}#
-              #{w 1556}#
-              #{s 1557}#
-              #{m 1558}#
-              #{esew 1559}#
-              #{mod 1560}#)
+             (#{dobody 1561}#
+               #{body 1546}#
+               #{r 1547}#
+               #{w 1548}#
+               #{mod 1550}#))))))
+   (#{chi-top-sequence 424}#
+     (lambda (#{body 1568}#
+              #{r 1569}#
+              #{w 1570}#
+              #{s 1571}#
+              #{m 1572}#
+              #{esew 1573}#
+              #{mod 1574}#)
        (letrec*
-         ((#{scan 1569}#
-            (lambda (#{body 1570}#
-                     #{r 1571}#
-                     #{w 1572}#
-                     #{s 1573}#
-                     #{m 1574}#
-                     #{esew 1575}#
-                     #{mod 1576}#
-                     #{exps 1577}#)
-              (if (null? #{body 1570}#)
-                #{exps 1577}#
+         ((#{scan 1583}#
+            (lambda (#{body 1584}#
+                     #{r 1585}#
+                     #{w 1586}#
+                     #{s 1587}#
+                     #{m 1588}#
+                     #{esew 1589}#
+                     #{mod 1590}#
+                     #{exps 1591}#)
+              (if (null? #{body 1584}#)
+                #{exps 1591}#
                 (call-with-values
                   (lambda ()
                     (call-with-values
                       (lambda ()
                         (begin
-                          (let ((#{e 1590}# (car #{body 1570}#)))
-                            (#{syntax-type 417}#
-                              #{e 1590}#
-                              #{r 1571}#
-                              #{w 1572}#
+                          (let ((#{e 1604}# (car #{body 1584}#)))
+                            (#{syntax-type 430}#
+                              #{e 1604}#
+                              #{r 1585}#
+                              #{w 1586}#
                               (begin
-                                (let ((#{t 1593}#
-                                        (#{source-annotation 320}#
-                                          #{e 1590}#)))
-                                  (if #{t 1593}# #{t 1593}# #{s 1573}#)))
+                                (let ((#{t 1607}#
+                                        (#{source-annotation 322}#
+                                          #{e 1604}#)))
+                                  (if #{t 1607}# #{t 1607}# #{s 1587}#)))
                               #f
-                              #{mod 1576}#
+                              #{mod 1590}#
                               #f))))
-                      (lambda (#{type 1595}#
-                               #{value 1596}#
-                               #{e 1597}#
-                               #{w 1598}#
-                               #{s 1599}#
-                               #{mod 1600}#)
-                        (if (eqv? #{type 1595}# 'begin-form)
-                          (let ((#{tmp 1608}# #{e 1597}#))
-                            (let ((#{tmp 1609}#
-                                    ($sc-dispatch #{tmp 1608}# '(_))))
-                              (if #{tmp 1609}#
-                                (@apply (lambda () #{exps 1577}#) #{tmp 1609}#)
-                                (let ((#{tmp 1610}#
+                      (lambda (#{type 1609}#
+                               #{value 1610}#
+                               #{e 1611}#
+                               #{w 1612}#
+                               #{s 1613}#
+                               #{mod 1614}#)
+                        (if (eqv? #{type 1609}# 'begin-form)
+                          (let ((#{tmp 1622}# #{e 1611}#))
+                            (let ((#{tmp 1623}#
+                                    ($sc-dispatch #{tmp 1622}# '(_))))
+                              (if #{tmp 1623}#
+                                (@apply (lambda () #{exps 1591}#) #{tmp 1623}#)
+                                (let ((#{tmp 1624}#
                                         ($sc-dispatch
-                                          #{tmp 1608}#
+                                          #{tmp 1622}#
                                           '(_ any . each-any))))
-                                  (if #{tmp 1610}#
+                                  (if #{tmp 1624}#
                                     (@apply
-                                      (lambda (#{e1 1613}# #{e2 1614}#)
-                                        (#{scan 1569}#
-                                          (cons #{e1 1613}# #{e2 1614}#)
-                                          #{r 1571}#
-                                          #{w 1598}#
-                                          #{s 1599}#
-                                          #{m 1574}#
-                                          #{esew 1575}#
-                                          #{mod 1600}#
-                                          #{exps 1577}#))
-                                      #{tmp 1610}#)
+                                      (lambda (#{e1 1627}# #{e2 1628}#)
+                                        (#{scan 1583}#
+                                          (cons #{e1 1627}# #{e2 1628}#)
+                                          #{r 1585}#
+                                          #{w 1612}#
+                                          #{s 1613}#
+                                          #{m 1588}#
+                                          #{esew 1589}#
+                                          #{mod 1614}#
+                                          #{exps 1591}#))
+                                      #{tmp 1624}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any 
pattern"
-                                      #{tmp 1608}#))))))
-                          (if (eqv? #{type 1595}# 'local-syntax-form)
-                            (#{chi-local-syntax 429}#
-                              #{value 1596}#
-                              #{e 1597}#
-                              #{r 1571}#
-                              #{w 1598}#
-                              #{s 1599}#
-                              #{mod 1600}#
-                              (lambda (#{body 1617}#
-                                       #{r 1618}#
-                                       #{w 1619}#
-                                       #{s 1620}#
-                                       #{mod 1621}#)
-                                (#{scan 1569}#
-                                  #{body 1617}#
-                                  #{r 1618}#
-                                  #{w 1619}#
-                                  #{s 1620}#
-                                  #{m 1574}#
-                                  #{esew 1575}#
-                                  #{mod 1621}#
-                                  #{exps 1577}#)))
-                            (if (eqv? #{type 1595}# 'eval-when-form)
-                              (let ((#{tmp 1628}# #{e 1597}#))
-                                (let ((#{tmp 1629}#
+                                      #{tmp 1622}#))))))
+                          (if (eqv? #{type 1609}# 'local-syntax-form)
+                            (#{chi-local-syntax 442}#
+                              #{value 1610}#
+                              #{e 1611}#
+                              #{r 1585}#
+                              #{w 1612}#
+                              #{s 1613}#
+                              #{mod 1614}#
+                              (lambda (#{body 1631}#
+                                       #{r 1632}#
+                                       #{w 1633}#
+                                       #{s 1634}#
+                                       #{mod 1635}#)
+                                (#{scan 1583}#
+                                  #{body 1631}#
+                                  #{r 1632}#
+                                  #{w 1633}#
+                                  #{s 1634}#
+                                  #{m 1588}#
+                                  #{esew 1589}#
+                                  #{mod 1635}#
+                                  #{exps 1591}#)))
+                            (if (eqv? #{type 1609}# 'eval-when-form)
+                              (let ((#{tmp 1642}# #{e 1611}#))
+                                (let ((#{tmp 1643}#
                                         ($sc-dispatch
-                                          #{tmp 1628}#
+                                          #{tmp 1642}#
                                           '(_ each-any any . each-any))))
-                                  (if #{tmp 1629}#
+                                  (if #{tmp 1643}#
                                     (@apply
-                                      (lambda (#{x 1633}#
-                                               #{e1 1634}#
-                                               #{e2 1635}#)
+                                      (lambda (#{x 1647}#
+                                               #{e1 1648}#
+                                               #{e2 1649}#)
                                         (begin
-                                          (let ((#{when-list 1638}#
-                                                  (#{chi-when-list 415}#
-                                                    #{e 1597}#
-                                                    #{x 1633}#
-                                                    #{w 1598}#))
-                                                (#{body 1639}#
-                                                  (cons #{e1 1634}#
-                                                        #{e2 1635}#)))
-                                            (if (eq? #{m 1574}# 'e)
+                                          (let ((#{when-list 1652}#
+                                                  (#{chi-when-list 428}#
+                                                    #{e 1611}#
+                                                    #{x 1647}#
+                                                    #{w 1612}#))
+                                                (#{body 1653}#
+                                                  (cons #{e1 1648}#
+                                                        #{e2 1649}#)))
+                                            (if (eq? #{m 1588}# 'e)
                                               (if (memq 'eval
-                                                        #{when-list 1638}#)
-                                                (#{scan 1569}#
-                                                  #{body 1639}#
-                                                  #{r 1571}#
-                                                  #{w 1598}#
-                                                  #{s 1599}#
+                                                        #{when-list 1652}#)
+                                                (#{scan 1583}#
+                                                  #{body 1653}#
+                                                  #{r 1585}#
+                                                  #{w 1612}#
+                                                  #{s 1613}#
                                                   (if (memq 'expand
-                                                            #{when-list 1638}#)
+                                                            #{when-list 1652}#)
                                                     'c&e
                                                     'e)
                                                   '(eval)
-                                                  #{mod 1600}#
-                                                  #{exps 1577}#)
+                                                  #{mod 1614}#
+                                                  #{exps 1591}#)
                                                 (begin
                                                   (if (memq 'expand
-                                                            #{when-list 1638}#)
+                                                            #{when-list 1652}#)
                                                     (#{top-level-eval-hook 
250}#
-                                                      (#{chi-top-sequence 411}#
-                                                        #{body 1639}#
-                                                        #{r 1571}#
-                                                        #{w 1598}#
-                                                        #{s 1599}#
+                                                      (#{chi-top-sequence 424}#
+                                                        #{body 1653}#
+                                                        #{r 1585}#
+                                                        #{w 1612}#
+                                                        #{s 1613}#
                                                         'e
                                                         '(eval)
-                                                        #{mod 1600}#)
-                                                      #{mod 1600}#))
-                                                  (values #{exps 1577}#)))
+                                                        #{mod 1614}#)
+                                                      #{mod 1614}#))
+                                                  (values #{exps 1591}#)))
                                               (if (memq 'load
-                                                        #{when-list 1638}#)
+                                                        #{when-list 1652}#)
                                                 (if (begin
-                                                      (let ((#{t 1648}#
+                                                      (let ((#{t 1662}#
                                                               (memq 'compile
-                                                                    
#{when-list 1638}#)))
-                                                        (if #{t 1648}#
-                                                          #{t 1648}#
+                                                                    
#{when-list 1652}#)))
+                                                        (if #{t 1662}#
+                                                          #{t 1662}#
                                                           (begin
-                                                            (let ((#{t 1651}#
+                                                            (let ((#{t 1665}#
                                                                     (memq 
'expand
-                                                                          
#{when-list 1638}#)))
-                                                              (if #{t 1651}#
-                                                                #{t 1651}#
-                                                                (if (eq? #{m 
1574}#
+                                                                          
#{when-list 1652}#)))
+                                                              (if #{t 1665}#
+                                                                #{t 1665}#
+                                                                (if (eq? #{m 
1588}#
                                                                          'c&e)
                                                                   (memq 'eval
-                                                                        
#{when-list 1638}#)
+                                                                        
#{when-list 1652}#)
                                                                   #f)))))))
-                                                  (#{scan 1569}#
-                                                    #{body 1639}#
-                                                    #{r 1571}#
-                                                    #{w 1598}#
-                                                    #{s 1599}#
+                                                  (#{scan 1583}#
+                                                    #{body 1653}#
+                                                    #{r 1585}#
+                                                    #{w 1612}#
+                                                    #{s 1613}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod 1600}#
-                                                    #{exps 1577}#)
-                                                  (if (if (eq? #{m 1574}# 'c)
+                                                    #{mod 1614}#
+                                                    #{exps 1591}#)
+                                                  (if (if (eq? #{m 1588}# 'c)
                                                         #t
-                                                        (eq? #{m 1574}# 'c&e))
-                                                    (#{scan 1569}#
-                                                      #{body 1639}#
-                                                      #{r 1571}#
-                                                      #{w 1598}#
-                                                      #{s 1599}#
+                                                        (eq? #{m 1588}# 'c&e))
+                                                    (#{scan 1583}#
+                                                      #{body 1653}#
+                                                      #{r 1585}#
+                                                      #{w 1612}#
+                                                      #{s 1613}#
                                                       'c
                                                       '(load)
-                                                      #{mod 1600}#
-                                                      #{exps 1577}#)
-                                                    (values #{exps 1577}#)))
+                                                      #{mod 1614}#
+                                                      #{exps 1591}#)
+                                                    (values #{exps 1591}#)))
                                                 (if (begin
-                                                      (let ((#{t 1659}#
+                                                      (let ((#{t 1673}#
                                                               (memq 'compile
-                                                                    
#{when-list 1638}#)))
-                                                        (if #{t 1659}#
-                                                          #{t 1659}#
+                                                                    
#{when-list 1652}#)))
+                                                        (if #{t 1673}#
+                                                          #{t 1673}#
                                                           (begin
-                                                            (let ((#{t 1662}#
+                                                            (let ((#{t 1676}#
                                                                     (memq 
'expand
-                                                                          
#{when-list 1638}#)))
-                                                              (if #{t 1662}#
-                                                                #{t 1662}#
-                                                                (if (eq? #{m 
1574}#
+                                                                          
#{when-list 1652}#)))
+                                                              (if #{t 1676}#
+                                                                #{t 1676}#
+                                                                (if (eq? #{m 
1588}#
                                                                          'c&e)
                                                                   (memq 'eval
-                                                                        
#{when-list 1638}#)
+                                                                        
#{when-list 1652}#)
                                                                   #f)))))))
                                                   (begin
                                                     (#{top-level-eval-hook 
250}#
-                                                      (#{chi-top-sequence 411}#
-                                                        #{body 1639}#
-                                                        #{r 1571}#
-                                                        #{w 1598}#
-                                                        #{s 1599}#
+                                                      (#{chi-top-sequence 424}#
+                                                        #{body 1653}#
+                                                        #{r 1585}#
+                                                        #{w 1612}#
+                                                        #{s 1613}#
                                                         'e
                                                         '(eval)
-                                                        #{mod 1600}#)
-                                                      #{mod 1600}#)
-                                                    (values #{exps 1577}#))
-                                                  (values #{exps 1577}#)))))))
-                                      #{tmp 1629}#)
+                                                        #{mod 1614}#)
+                                                      #{mod 1614}#)
+                                                    (values #{exps 1591}#))
+                                                  (values #{exps 1591}#)))))))
+                                      #{tmp 1643}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any 
pattern"
-                                      #{tmp 1628}#))))
-                              (if (eqv? #{type 1595}# 'define-syntax-form)
+                                      #{tmp 1642}#))))
+                              (if (eqv? #{type 1609}# 'define-syntax-form)
                                 (begin
-                                  (let ((#{n 1670}#
-                                          (#{id-var-name 393}#
-                                            #{value 1596}#
-                                            #{w 1598}#))
-                                        (#{r 1671}#
-                                          (#{macros-only-env 331}#
-                                            #{r 1571}#)))
-                                    (if (eqv? #{m 1574}# 'c)
-                                      (if (memq 'compile #{esew 1575}#)
+                                  (let ((#{n 1684}#
+                                          (#{id-var-name 406}#
+                                            #{value 1610}#
+                                            #{w 1612}#))
+                                        (#{r 1685}#
+                                          (#{macros-only-env 336}#
+                                            #{r 1585}#)))
+                                    (if (eqv? #{m 1588}# 'c)
+                                      (if (memq 'compile #{esew 1589}#)
                                         (begin
-                                          (let ((#{e 1674}#
-                                                  (#{chi-install-global 413}#
-                                                    #{n 1670}#
-                                                    (#{chi 419}#
-                                                      #{e 1597}#
-                                                      #{r 1671}#
-                                                      #{w 1598}#
-                                                      #{mod 1600}#))))
+                                          (let ((#{e 1688}#
+                                                  (#{chi-install-global 426}#
+                                                    #{n 1684}#
+                                                    (#{chi 432}#
+                                                      #{e 1611}#
+                                                      #{r 1685}#
+                                                      #{w 1612}#
+                                                      #{mod 1614}#))))
                                             (begin
                                               (#{top-level-eval-hook 250}#
-                                                #{e 1674}#
-                                                #{mod 1600}#)
-                                              (if (memq 'load #{esew 1575}#)
+                                                #{e 1688}#
+                                                #{mod 1614}#)
+                                              (if (memq 'load #{esew 1589}#)
                                                 (values
-                                                  (cons #{e 1674}#
-                                                        #{exps 1577}#))
-                                                (values #{exps 1577}#)))))
-                                        (if (memq 'load #{esew 1575}#)
+                                                  (cons #{e 1688}#
+                                                        #{exps 1591}#))
+                                                (values #{exps 1591}#)))))
+                                        (if (memq 'load #{esew 1589}#)
                                           (values
-                                            (cons (#{chi-install-global 413}#
-                                                    #{n 1670}#
-                                                    (#{chi 419}#
-                                                      #{e 1597}#
-                                                      #{r 1671}#
-                                                      #{w 1598}#
-                                                      #{mod 1600}#))
-                                                  #{exps 1577}#))
-                                          (values #{exps 1577}#)))
-                                      (if (eqv? #{m 1574}# 'c&e)
+                                            (cons (#{chi-install-global 426}#
+                                                    #{n 1684}#
+                                                    (#{chi 432}#
+                                                      #{e 1611}#
+                                                      #{r 1685}#
+                                                      #{w 1612}#
+                                                      #{mod 1614}#))
+                                                  #{exps 1591}#))
+                                          (values #{exps 1591}#)))
+                                      (if (eqv? #{m 1588}# 'c&e)
                                         (begin
-                                          (let ((#{e 1677}#
-                                                  (#{chi-install-global 413}#
-                                                    #{n 1670}#
-                                                    (#{chi 419}#
-                                                      #{e 1597}#
-                                                      #{r 1671}#
-                                                      #{w 1598}#
-                                                      #{mod 1600}#))))
+                                          (let ((#{e 1691}#
+                                                  (#{chi-install-global 426}#
+                                                    #{n 1684}#
+                                                    (#{chi 432}#
+                                                      #{e 1611}#
+                                                      #{r 1685}#
+                                                      #{w 1612}#
+                                                      #{mod 1614}#))))
                                             (begin
                                               (#{top-level-eval-hook 250}#
-                                                #{e 1677}#
-                                                #{mod 1600}#)
+                                                #{e 1691}#
+                                                #{mod 1614}#)
                                               (values
-                                                (cons #{e 1677}#
-                                                      #{exps 1577}#)))))
+                                                (cons #{e 1691}#
+                                                      #{exps 1591}#)))))
                                         (begin
-                                          (if (memq 'eval #{esew 1575}#)
+                                          (if (memq 'eval #{esew 1589}#)
                                             (#{top-level-eval-hook 250}#
-                                              (#{chi-install-global 413}#
-                                                #{n 1670}#
-                                                (#{chi 419}#
-                                                  #{e 1597}#
-                                                  #{r 1671}#
-                                                  #{w 1598}#
-                                                  #{mod 1600}#))
-                                              #{mod 1600}#))
-                                          (values #{exps 1577}#))))))
-                                (if (eqv? #{type 1595}# 'define-form)
+                                              (#{chi-install-global 426}#
+                                                #{n 1684}#
+                                                (#{chi 432}#
+                                                  #{e 1611}#
+                                                  #{r 1685}#
+                                                  #{w 1612}#
+                                                  #{mod 1614}#))
+                                              #{mod 1614}#))
+                                          (values #{exps 1591}#))))))
+                                (if (eqv? #{type 1609}# 'define-form)
                                   (begin
-                                    (let ((#{n 1682}#
-                                            (#{id-var-name 393}#
-                                              #{value 1596}#
-                                              #{w 1598}#)))
+                                    (let ((#{n 1696}#
+                                            (#{id-var-name 406}#
+                                              #{value 1610}#
+                                              #{w 1612}#)))
                                       (begin
-                                        (let ((#{type 1684}#
-                                                (car (#{lookup 333}#
-                                                       #{n 1682}#
-                                                       #{r 1571}#
-                                                       #{mod 1600}#))))
-                                          (if (if (eqv? #{type 1684}# 'global)
+                                        (let ((#{type 1698}#
+                                                (car (#{lookup 338}#
+                                                       #{n 1696}#
+                                                       #{r 1585}#
+                                                       #{mod 1614}#))))
+                                          (if (if (eqv? #{type 1698}# 'global)
                                                 #t
-                                                (if (eqv? #{type 1684}# 'core)
+                                                (if (eqv? #{type 1698}# 'core)
                                                   #t
-                                                  (if (eqv? #{type 1684}#
+                                                  (if (eqv? #{type 1698}#
                                                             'macro)
                                                     #t
-                                                    (eqv? #{type 1684}#
+                                                    (eqv? #{type 1698}#
                                                           'module-ref))))
                                             (begin
-                                              (if (if (if (eq? #{m 1574}# 'c)
+                                              (if (if (if (eq? #{m 1588}# 'c)
                                                         #t
-                                                        (eq? #{m 1574}# 'c&e))
+                                                        (eq? #{m 1588}# 'c&e))
                                                     (if (not 
(module-local-variable
                                                                (current-module)
-                                                               #{n 1682}#))
+                                                               #{n 1696}#))
                                                       (current-module)
                                                       #f)
                                                     #f)
                                                 (begin
-                                                  (let ((#{old 1691}#
+                                                  (let ((#{old 1705}#
                                                           (module-variable
                                                             (current-module)
-                                                            #{n 1682}#)))
+                                                            #{n 1696}#)))
                                                     (if (if (variable?
-                                                              #{old 1691}#)
+                                                              #{old 1705}#)
                                                           (variable-bound?
-                                                            #{old 1691}#)
+                                                            #{old 1705}#)
                                                           #f)
                                                       (module-define!
                                                         (current-module)
-                                                        #{n 1682}#
+                                                        #{n 1696}#
                                                         (variable-ref
-                                                          #{old 1691}#))
+                                                          #{old 1705}#))
                                                       (module-add!
                                                         (current-module)
-                                                        #{n 1682}#
+                                                        #{n 1696}#
                                                         
(make-undefined-variable))))))
                                               (values
-                                                (cons (if (eq? #{m 1574}# 'c&e)
+                                                (cons (if (eq? #{m 1588}# 'c&e)
                                                         (begin
-                                                          (let ((#{x 1695}#
-                                                                  
(#{build-global-definition 281}#
-                                                                    #{s 1599}#
-                                                                    #{n 1682}#
-                                                                    (#{chi 
419}#
-                                                                      #{e 
1597}#
-                                                                      #{r 
1571}#
-                                                                      #{w 
1598}#
-                                                                      #{mod 
1600}#))))
+                                                          (let ((#{x 1709}#
+                                                                  
(#{build-global-definition 282}#
+                                                                    #{s 1613}#
+                                                                    #{n 1696}#
+                                                                    (#{chi 
432}#
+                                                                      #{e 
1611}#
+                                                                      #{r 
1585}#
+                                                                      #{w 
1612}#
+                                                                      #{mod 
1614}#))))
                                                             (begin
                                                               
(#{top-level-eval-hook 250}#
-                                                                #{x 1695}#
-                                                                #{mod 1600}#)
-                                                              #{x 1695}#)))
+                                                                #{x 1709}#
+                                                                #{mod 1614}#)
+                                                              #{x 1709}#)))
                                                         (lambda ()
-                                                          
(#{build-global-definition 281}#
-                                                            #{s 1599}#
-                                                            #{n 1682}#
-                                                            (#{chi 419}#
-                                                              #{e 1597}#
-                                                              #{r 1571}#
-                                                              #{w 1598}#
-                                                              #{mod 1600}#))))
-                                                      #{exps 1577}#)))
-                                            (if (eqv? #{type 1684}#
+                                                          
(#{build-global-definition 282}#
+                                                            #{s 1613}#
+                                                            #{n 1696}#
+                                                            (#{chi 432}#
+                                                              #{e 1611}#
+                                                              #{r 1585}#
+                                                              #{w 1612}#
+                                                              #{mod 1614}#))))
+                                                      #{exps 1591}#)))
+                                            (if (eqv? #{type 1698}#
                                                       'displaced-lexical)
                                               (syntax-violation
                                                 #f
                                                 "identifier out of context"
-                                                #{e 1597}#
-                                                (#{wrap 405}#
-                                                  #{value 1596}#
-                                                  #{w 1598}#
-                                                  #{mod 1600}#))
+                                                #{e 1611}#
+                                                (#{wrap 418}#
+                                                  #{value 1610}#
+                                                  #{w 1612}#
+                                                  #{mod 1614}#))
                                               (syntax-violation
                                                 #f
                                                 "cannot define keyword at top 
level"
-                                                #{e 1597}#
-                                                (#{wrap 405}#
-                                                  #{value 1596}#
-                                                  #{w 1598}#
-                                                  #{mod 1600}#))))))))
+                                                #{e 1611}#
+                                                (#{wrap 418}#
+                                                  #{value 1610}#
+                                                  #{w 1612}#
+                                                  #{mod 1614}#))))))))
                                   (values
-                                    (cons (if (eq? #{m 1574}# 'c&e)
+                                    (cons (if (eq? #{m 1588}# 'c&e)
                                             (begin
-                                              (let ((#{x 1700}#
-                                                      (#{chi-expr 421}#
-                                                        #{type 1595}#
-                                                        #{value 1596}#
-                                                        #{e 1597}#
-                                                        #{r 1571}#
-                                                        #{w 1598}#
-                                                        #{s 1599}#
-                                                        #{mod 1600}#)))
+                                              (let ((#{x 1714}#
+                                                      (#{chi-expr 434}#
+                                                        #{type 1609}#
+                                                        #{value 1610}#
+                                                        #{e 1611}#
+                                                        #{r 1585}#
+                                                        #{w 1612}#
+                                                        #{s 1613}#
+                                                        #{mod 1614}#)))
                                                 (begin
                                                   (#{top-level-eval-hook 250}#
-                                                    #{x 1700}#
-                                                    #{mod 1600}#)
-                                                  #{x 1700}#)))
+                                                    #{x 1714}#
+                                                    #{mod 1614}#)
+                                                  #{x 1714}#)))
                                             (lambda ()
-                                              (#{chi-expr 421}#
-                                                #{type 1595}#
-                                                #{value 1596}#
-                                                #{e 1597}#
-                                                #{r 1571}#
-                                                #{w 1598}#
-                                                #{s 1599}#
-                                                #{mod 1600}#)))
-                                          #{exps 1577}#))))))))))
-                  (lambda (#{exps 1701}#)
-                    (#{scan 1569}#
-                      (cdr #{body 1570}#)
-                      #{r 1571}#
-                      #{w 1572}#
-                      #{s 1573}#
-                      #{m 1574}#
-                      #{esew 1575}#
-                      #{mod 1576}#
-                      #{exps 1701}#)))))))
+                                              (#{chi-expr 434}#
+                                                #{type 1609}#
+                                                #{value 1610}#
+                                                #{e 1611}#
+                                                #{r 1585}#
+                                                #{w 1612}#
+                                                #{s 1613}#
+                                                #{mod 1614}#)))
+                                          #{exps 1591}#))))))))))
+                  (lambda (#{exps 1715}#)
+                    (#{scan 1583}#
+                      (cdr #{body 1584}#)
+                      #{r 1585}#
+                      #{w 1586}#
+                      #{s 1587}#
+                      #{m 1588}#
+                      #{esew 1589}#
+                      #{mod 1590}#
+                      #{exps 1715}#)))))))
          (begin
            (call-with-values
              (lambda ()
-               (#{scan 1569}#
-                 #{body 1554}#
-                 #{r 1555}#
-                 #{w 1556}#
-                 #{s 1557}#
-                 #{m 1558}#
-                 #{esew 1559}#
-                 #{mod 1560}#
+               (#{scan 1583}#
+                 #{body 1568}#
+                 #{r 1569}#
+                 #{w 1570}#
+                 #{s 1571}#
+                 #{m 1572}#
+                 #{esew 1573}#
+                 #{mod 1574}#
                  '()))
-             (lambda (#{exps 1703}#)
-               (if (null? #{exps 1703}#)
-                 (#{build-void 263}# #{s 1557}#)
-                 (#{build-sequence 293}#
-                   #{s 1557}#
+             (lambda (#{exps 1717}#)
+               (if (null? #{exps 1717}#)
+                 (#{build-void 264}# #{s 1571}#)
+                 (#{build-sequence 294}#
+                   #{s 1571}#
                    (letrec*
-                     ((#{lp 1708}#
-                        (lambda (#{in 1709}# #{out 1710}#)
-                          (if (null? #{in 1709}#)
-                            #{out 1710}#
+                     ((#{lp 1722}#
+                        (lambda (#{in 1723}# #{out 1724}#)
+                          (if (null? #{in 1723}#)
+                            #{out 1724}#
                             (begin
-                              (let ((#{e 1712}# (car #{in 1709}#)))
-                                (#{lp 1708}#
-                                  (cdr #{in 1709}#)
-                                  (cons (if (procedure? #{e 1712}#)
-                                          (#{e 1712}#)
-                                          #{e 1712}#)
-                                        #{out 1710}#))))))))
-                     (begin (#{lp 1708}# #{exps 1703}# '())))))))))))
-   (#{chi-install-global 413}#
-     (lambda (#{name 1713}# #{e 1714}#)
-       (#{build-global-definition 281}#
+                              (let ((#{e 1726}# (car #{in 1723}#)))
+                                (#{lp 1722}#
+                                  (cdr #{in 1723}#)
+                                  (cons (if (procedure? #{e 1726}#)
+                                          (#{e 1726}#)
+                                          #{e 1726}#)
+                                        #{out 1724}#))))))))
+                     (begin (#{lp 1722}# #{exps 1717}# '())))))))))))
+   (#{chi-install-global 426}#
+     (lambda (#{name 1727}# #{e 1728}#)
+       (#{build-global-definition 282}#
          #f
-         #{name 1713}#
-         (#{build-application 265}#
+         #{name 1727}#
+         (#{build-application 266}#
            #f
-           (#{build-primref 289}#
+           (#{build-primref 290}#
              #f
              'make-syntax-transformer)
-           (list (#{build-data 291}# #f #{name 1713}#)
-                 (#{build-data 291}# #f 'macro)
-                 #{e 1714}#)))))
-   (#{chi-when-list 415}#
-     (lambda (#{e 1722}# #{when-list 1723}# #{w 1724}#)
+           (list (#{build-data 292}# #f #{name 1727}#)
+                 (#{build-data 292}# #f 'macro)
+                 #{e 1728}#)))))
+   (#{chi-when-list 428}#
+     (lambda (#{e 1736}# #{when-list 1737}# #{w 1738}#)
        (letrec*
-         ((#{f 1731}#
-            (lambda (#{when-list 1732}# #{situations 1733}#)
-              (if (null? #{when-list 1732}#)
-                #{situations 1733}#
-                (#{f 1731}#
-                  (cdr #{when-list 1732}#)
+         ((#{f 1745}#
+            (lambda (#{when-list 1746}# #{situations 1747}#)
+              (if (null? #{when-list 1746}#)
+                #{situations 1747}#
+                (#{f 1745}#
+                  (cdr #{when-list 1746}#)
                   (cons (begin
-                          (let ((#{x 1735}# (car #{when-list 1732}#)))
-                            (if (#{free-id=? 395}#
-                                  #{x 1735}#
+                          (let ((#{x 1749}# (car #{when-list 1746}#)))
+                            (if (#{free-id=? 408}#
+                                  #{x 1749}#
                                   '#(syntax-object
                                      compile
                                      ((top)
                                       #(ribcage () () ())
                                       #(ribcage () () ())
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i1734"))
+                                      #(ribcage #(x) #((top)) #("i1748"))
                                       #(ribcage () () ())
                                       #(ribcage
                                         #(f when-list situations)
                                         #((top) (top) (top))
-                                        #("i1728" "i1729" "i1730"))
+                                        #("i1742" "i1743" "i1744"))
                                       #(ribcage () () ())
                                       #(ribcage
                                         #(e when-list w)
                                         #((top) (top) (top))
-                                        #("i1725" "i1726" "i1727"))
+                                        #("i1739" "i1740" "i1741"))
                                       #(ribcage
                                         (lambda-var-list
                                           gen-var
@@ -1796,81 +1796,82 @@
                                          (top)
                                          (top)
                                          (top))
-                                        ("i448"
-                                         "i446"
-                                         "i444"
-                                         "i442"
-                                         "i440"
-                                         "i438"
-                                         "i436"
-                                         "i434"
-                                         "i432"
-                                         "i430"
-                                         "i428"
-                                         "i426"
-                                         "i424"
-                                         "i422"
-                                         "i420"
-                                         "i418"
-                                         "i416"
-                                         "i414"
-                                         "i412"
-                                         "i410"
-                                         "i408"
-                                         "i406"
-                                         "i404"
-                                         "i402"
-                                         "i400"
-                                         "i398"
-                                         "i396"
-                                         "i394"
+                                        ("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"
+                                         "i397"
+                                         "i395"
+                                         "i393"
                                          "i392"
                                          "i390"
-                                         "i388"
+                                         "i387"
                                          "i386"
-                                         "i384"
+                                         "i385"
+                                         "i383"
                                          "i382"
                                          "i380"
-                                         "i379"
                                          "i378"
                                          "i376"
-                                         "i375"
                                          "i374"
-                                         "i373"
                                          "i372"
                                          "i370"
                                          "i368"
                                          "i366"
-                                         "i364"
-                                         "i362"
+                                         "i363"
+                                         "i361"
                                          "i360"
                                          "i358"
                                          "i356"
-                                         "i353"
+                                         "i354"
+                                         "i352"
                                          "i351"
                                          "i350"
                                          "i349"
-                                         "i348"
                                          "i347"
                                          "i346"
-                                         "i345"
-                                         "i344"
                                          "i343"
                                          "i341"
-                                         "i340"
-                                         "i338"
-                                         "i336"
-                                         "i334"
-                                         "i332"
+                                         "i339"
+                                         "i337"
+                                         "i335"
+                                         "i333"
+                                         "i331"
                                          "i330"
-                                         "i328"
-                                         "i326"
+                                         "i329"
+                                         "i327"
                                          "i325"
                                          "i324"
-                                         "i323"
-                                         "i322"
                                          "i321"
-                                         "i319"
+                                         "i320"
                                          "i318"
                                          "i316"
                                          "i314"
@@ -1880,31 +1881,30 @@
                                          "i306"
                                          "i304"
                                          "i302"
-                                         "i300"
-                                         "i298"
-                                         "i296"
-                                         "i294"
-                                         "i292"
-                                         "i290"
-                                         "i288"
-                                         "i286"
-                                         "i284"
-                                         "i282"
-                                         "i280"
-                                         "i278"
-                                         "i276"
-                                         "i274"
-                                         "i272"
-                                         "i270"
-                                         "i268"
-                                         "i266"
-                                         "i264"
-                                         "i262"
-                                         "i260"
-                                         "i258"
-                                         "i256"
+                                         "i299"
+                                         "i297"
+                                         "i295"
+                                         "i293"
+                                         "i291"
+                                         "i289"
+                                         "i287"
+                                         "i285"
+                                         "i283"
+                                         "i281"
+                                         "i279"
+                                         "i277"
+                                         "i275"
+                                         "i273"
+                                         "i271"
+                                         "i269"
+                                         "i267"
+                                         "i265"
+                                         "i263"
+                                         "i261"
+                                         "i259"
+                                         "i257"
+                                         "i255"
                                          "i254"
-                                         "i253"
                                          "i251"
                                          "i249"
                                          "i248"
@@ -1940,25 +1940,25 @@
                                         ("i40" "i39" "i38")))
                                      (hygiene guile)))
                               'compile
-                              (if (#{free-id=? 395}#
-                                    #{x 1735}#
+                              (if (#{free-id=? 408}#
+                                    #{x 1749}#
                                     '#(syntax-object
                                        load
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage () () ())
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i1734"))
+                                        #(ribcage #(x) #((top)) #("i1748"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(f when-list situations)
                                           #((top) (top) (top))
-                                          #("i1728" "i1729" "i1730"))
+                                          #("i1742" "i1743" "i1744"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(e when-list w)
                                           #((top) (top) (top))
-                                          #("i1725" "i1726" "i1727"))
+                                          #("i1739" "i1740" "i1741"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
@@ -2232,81 +2232,82 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("i448"
-                                           "i446"
-                                           "i444"
-                                           "i442"
-                                           "i440"
-                                           "i438"
-                                           "i436"
-                                           "i434"
-                                           "i432"
-                                           "i430"
-                                           "i428"
-                                           "i426"
-                                           "i424"
-                                           "i422"
-                                           "i420"
-                                           "i418"
-                                           "i416"
-                                           "i414"
-                                           "i412"
-                                           "i410"
-                                           "i408"
-                                           "i406"
-                                           "i404"
-                                           "i402"
-                                           "i400"
-                                           "i398"
-                                           "i396"
-                                           "i394"
+                                          ("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"
+                                           "i397"
+                                           "i395"
+                                           "i393"
                                            "i392"
                                            "i390"
-                                           "i388"
+                                           "i387"
                                            "i386"
-                                           "i384"
+                                           "i385"
+                                           "i383"
                                            "i382"
                                            "i380"
-                                           "i379"
                                            "i378"
                                            "i376"
-                                           "i375"
                                            "i374"
-                                           "i373"
                                            "i372"
                                            "i370"
                                            "i368"
                                            "i366"
-                                           "i364"
-                                           "i362"
+                                           "i363"
+                                           "i361"
                                            "i360"
                                            "i358"
                                            "i356"
-                                           "i353"
+                                           "i354"
+                                           "i352"
                                            "i351"
                                            "i350"
                                            "i349"
-                                           "i348"
                                            "i347"
                                            "i346"
-                                           "i345"
-                                           "i344"
                                            "i343"
                                            "i341"
-                                           "i340"
-                                           "i338"
-                                           "i336"
-                                           "i334"
-                                           "i332"
+                                           "i339"
+                                           "i337"
+                                           "i335"
+                                           "i333"
+                                           "i331"
                                            "i330"
-                                           "i328"
-                                           "i326"
+                                           "i329"
+                                           "i327"
                                            "i325"
                                            "i324"
-                                           "i323"
-                                           "i322"
                                            "i321"
-                                           "i319"
+                                           "i320"
                                            "i318"
                                            "i316"
                                            "i314"
@@ -2316,31 +2317,30 @@
                                            "i306"
                                            "i304"
                                            "i302"
-                                           "i300"
-                                           "i298"
-                                           "i296"
-                                           "i294"
-                                           "i292"
-                                           "i290"
-                                           "i288"
-                                           "i286"
-                                           "i284"
-                                           "i282"
-                                           "i280"
-                                           "i278"
-                                           "i276"
-                                           "i274"
-                                           "i272"
-                                           "i270"
-                                           "i268"
-                                           "i266"
-                                           "i264"
-                                           "i262"
-                                           "i260"
-                                           "i258"
-                                           "i256"
+                                           "i299"
+                                           "i297"
+                                           "i295"
+                                           "i293"
+                                           "i291"
+                                           "i289"
+                                           "i287"
+                                           "i285"
+                                           "i283"
+                                           "i281"
+                                           "i279"
+                                           "i277"
+                                           "i275"
+                                           "i273"
+                                           "i271"
+                                           "i269"
+                                           "i267"
+                                           "i265"
+                                           "i263"
+                                           "i261"
+                                           "i259"
+                                           "i257"
+                                           "i255"
                                            "i254"
-                                           "i253"
                                            "i251"
                                            "i249"
                                            "i248"
@@ -2376,25 +2376,25 @@
                                           ("i40" "i39" "i38")))
                                        (hygiene guile)))
                                 'load
-                                (if (#{free-id=? 395}#
-                                      #{x 1735}#
+                                (if (#{free-id=? 408}#
+                                      #{x 1749}#
                                       '#(syntax-object
                                          eval
                                          ((top)
                                           #(ribcage () () ())
                                           #(ribcage () () ())
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i1734"))
+                                          #(ribcage #(x) #((top)) #("i1748"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(f when-list situations)
                                             #((top) (top) (top))
-                                            #("i1728" "i1729" "i1730"))
+                                            #("i1742" "i1743" "i1744"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(e when-list w)
                                             #((top) (top) (top))
-                                            #("i1725" "i1726" "i1727"))
+                                            #("i1739" "i1740" "i1741"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
@@ -2668,81 +2668,82 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i448"
-                                             "i446"
-                                             "i444"
-                                             "i442"
-                                             "i440"
-                                             "i438"
-                                             "i436"
-                                             "i434"
-                                             "i432"
-                                             "i430"
-                                             "i428"
-                                             "i426"
-                                             "i424"
-                                             "i422"
-                                             "i420"
-                                             "i418"
-                                             "i416"
-                                             "i414"
-                                             "i412"
-                                             "i410"
-                                             "i408"
-                                             "i406"
-                                             "i404"
-                                             "i402"
-                                             "i400"
-                                             "i398"
-                                             "i396"
-                                             "i394"
+                                            ("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"
+                                             "i397"
+                                             "i395"
+                                             "i393"
                                              "i392"
                                              "i390"
-                                             "i388"
+                                             "i387"
                                              "i386"
-                                             "i384"
+                                             "i385"
+                                             "i383"
                                              "i382"
                                              "i380"
-                                             "i379"
                                              "i378"
                                              "i376"
-                                             "i375"
                                              "i374"
-                                             "i373"
                                              "i372"
                                              "i370"
                                              "i368"
                                              "i366"
-                                             "i364"
-                                             "i362"
+                                             "i363"
+                                             "i361"
                                              "i360"
                                              "i358"
                                              "i356"
-                                             "i353"
+                                             "i354"
+                                             "i352"
                                              "i351"
                                              "i350"
                                              "i349"
-                                             "i348"
                                              "i347"
                                              "i346"
-                                             "i345"
-                                             "i344"
                                              "i343"
                                              "i341"
-                                             "i340"
-                                             "i338"
-                                             "i336"
-                                             "i334"
-                                             "i332"
+                                             "i339"
+                                             "i337"
+                                             "i335"
+                                             "i333"
+                                             "i331"
                                              "i330"
-                                             "i328"
-                                             "i326"
+                                             "i329"
+                                             "i327"
                                              "i325"
                                              "i324"
-                                             "i323"
-                                             "i322"
                                              "i321"
-                                             "i319"
+                                             "i320"
                                              "i318"
                                              "i316"
                                              "i314"
@@ -2752,31 +2753,30 @@
                                              "i306"
                                              "i304"
                                              "i302"
-                                             "i300"
-                                             "i298"
-                                             "i296"
-                                             "i294"
-                                             "i292"
-                                             "i290"
-                                             "i288"
-                                             "i286"
-                                             "i284"
-                                             "i282"
-                                             "i280"
-                                             "i278"
-                                             "i276"
-                                             "i274"
-                                             "i272"
-                                             "i270"
-                                             "i268"
-                                             "i266"
-                                             "i264"
-                                             "i262"
-                                             "i260"
-                                             "i258"
-                                             "i256"
+                                             "i299"
+                                             "i297"
+                                             "i295"
+                                             "i293"
+                                             "i291"
+                                             "i289"
+                                             "i287"
+                                             "i285"
+                                             "i283"
+                                             "i281"
+                                             "i279"
+                                             "i277"
+                                             "i275"
+                                             "i273"
+                                             "i271"
+                                             "i269"
+                                             "i267"
+                                             "i265"
+                                             "i263"
+                                             "i261"
+                                             "i259"
+                                             "i257"
+                                             "i255"
                                              "i254"
-                                             "i253"
                                              "i251"
                                              "i249"
                                              "i248"
@@ -2812,25 +2812,25 @@
                                             ("i40" "i39" "i38")))
                                          (hygiene guile)))
                                   'eval
-                                  (if (#{free-id=? 395}#
-                                        #{x 1735}#
+                                  (if (#{free-id=? 408}#
+                                        #{x 1749}#
                                         '#(syntax-object
                                            expand
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage () () ())
-                                            #(ribcage #(x) #((top)) #("i1734"))
+                                            #(ribcage #(x) #((top)) #("i1748"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(f when-list situations)
                                               #((top) (top) (top))
-                                              #("i1728" "i1729" "i1730"))
+                                              #("i1742" "i1743" "i1744"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(e when-list w)
                                               #((top) (top) (top))
-                                              #("i1725" "i1726" "i1727"))
+                                              #("i1739" "i1740" "i1741"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
@@ -3104,81 +3104,82 @@
                                                (top)
                                                (top)
                                                (top))
-                                              ("i448"
-                                               "i446"
-                                               "i444"
-                                               "i442"
-                                               "i440"
-                                               "i438"
-                                               "i436"
-                                               "i434"
-                                               "i432"
-                                               "i430"
-                                               "i428"
-                                               "i426"
-                                               "i424"
-                                               "i422"
-                                               "i420"
-                                               "i418"
-                                               "i416"
-                                               "i414"
-                                               "i412"
-                                               "i410"
-                                               "i408"
-                                               "i406"
-                                               "i404"
-                                               "i402"
-                                               "i400"
-                                               "i398"
-                                               "i396"
-                                               "i394"
+                                              ("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"
+                                               "i397"
+                                               "i395"
+                                               "i393"
                                                "i392"
                                                "i390"
-                                               "i388"
+                                               "i387"
                                                "i386"
-                                               "i384"
+                                               "i385"
+                                               "i383"
                                                "i382"
                                                "i380"
-                                               "i379"
                                                "i378"
                                                "i376"
-                                               "i375"
                                                "i374"
-                                               "i373"
                                                "i372"
                                                "i370"
                                                "i368"
                                                "i366"
-                                               "i364"
-                                               "i362"
+                                               "i363"
+                                               "i361"
                                                "i360"
                                                "i358"
                                                "i356"
-                                               "i353"
+                                               "i354"
+                                               "i352"
                                                "i351"
                                                "i350"
                                                "i349"
-                                               "i348"
                                                "i347"
                                                "i346"
-                                               "i345"
-                                               "i344"
                                                "i343"
                                                "i341"
-                                               "i340"
-                                               "i338"
-                                               "i336"
-                                               "i334"
-                                               "i332"
+                                               "i339"
+                                               "i337"
+                                               "i335"
+                                               "i333"
+                                               "i331"
                                                "i330"
-                                               "i328"
-                                               "i326"
+                                               "i329"
+                                               "i327"
                                                "i325"
                                                "i324"
-                                               "i323"
-                                               "i322"
                                                "i321"
-                                               "i319"
+                                               "i320"
                                                "i318"
                                                "i316"
                                                "i314"
@@ -3188,31 +3189,30 @@
                                                "i306"
                                                "i304"
                                                "i302"
-                                               "i300"
-                                               "i298"
-                                               "i296"
-                                               "i294"
-                                               "i292"
-                                               "i290"
-                                               "i288"
-                                               "i286"
-                                               "i284"
-                                               "i282"
-                                               "i280"
-                                               "i278"
-                                               "i276"
-                                               "i274"
-                                               "i272"
-                                               "i270"
-                                               "i268"
-                                               "i266"
-                                               "i264"
-                                               "i262"
-                                               "i260"
-                                               "i258"
-                                               "i256"
+                                               "i299"
+                                               "i297"
+                                               "i295"
+                                               "i293"
+                                               "i291"
+                                               "i289"
+                                               "i287"
+                                               "i285"
+                                               "i283"
+                                               "i281"
+                                               "i279"
+                                               "i277"
+                                               "i275"
+                                               "i273"
+                                               "i271"
+                                               "i269"
+                                               "i267"
+                                               "i265"
+                                               "i263"
+                                               "i261"
+                                               "i259"
+                                               "i257"
+                                               "i255"
                                                "i254"
-                                               "i253"
                                                "i251"
                                                "i249"
                                                "i248"
@@ -3251,243 +3251,243 @@
                                     (syntax-violation
                                       'eval-when
                                       "invalid situation"
-                                      #{e 1722}#
-                                      (#{wrap 405}#
-                                        #{x 1735}#
-                                        #{w 1724}#
+                                      #{e 1736}#
+                                      (#{wrap 418}#
+                                        #{x 1749}#
+                                        #{w 1738}#
                                         #f))))))))
-                        #{situations 1733}#))))))
-         (begin (#{f 1731}# #{when-list 1723}# '())))))
-   (#{syntax-type 417}#
-     (lambda (#{e 1745}#
-              #{r 1746}#
-              #{w 1747}#
-              #{s 1748}#
-              #{rib 1749}#
-              #{mod 1750}#
-              #{for-car? 1751}#)
-       (if (symbol? #{e 1745}#)
+                        #{situations 1747}#))))))
+         (begin (#{f 1745}# #{when-list 1737}# '())))))
+   (#{syntax-type 430}#
+     (lambda (#{e 1759}#
+              #{r 1760}#
+              #{w 1761}#
+              #{s 1762}#
+              #{rib 1763}#
+              #{mod 1764}#
+              #{for-car? 1765}#)
+       (if (symbol? #{e 1759}#)
          (begin
-           (let ((#{n 1763}#
-                   (#{id-var-name 393}# #{e 1745}# #{w 1747}#)))
+           (let ((#{n 1777}#
+                   (#{id-var-name 406}# #{e 1759}# #{w 1761}#)))
              (begin
-               (let ((#{b 1765}#
-                       (#{lookup 333}#
-                         #{n 1763}#
-                         #{r 1746}#
-                         #{mod 1750}#)))
+               (let ((#{b 1779}#
+                       (#{lookup 338}#
+                         #{n 1777}#
+                         #{r 1760}#
+                         #{mod 1764}#)))
                  (begin
-                   (let ((#{type 1767}# (car #{b 1765}#)))
-                     (if (eqv? #{type 1767}# 'lexical)
+                   (let ((#{type 1781}# (car #{b 1779}#)))
+                     (if (eqv? #{type 1781}# 'lexical)
                        (values
-                         #{type 1767}#
-                         (cdr #{b 1765}#)
-                         #{e 1745}#
-                         #{w 1747}#
-                         #{s 1748}#
-                         #{mod 1750}#)
-                       (if (eqv? #{type 1767}# 'global)
+                         #{type 1781}#
+                         (cdr #{b 1779}#)
+                         #{e 1759}#
+                         #{w 1761}#
+                         #{s 1762}#
+                         #{mod 1764}#)
+                       (if (eqv? #{type 1781}# 'global)
                          (values
-                           #{type 1767}#
-                           #{n 1763}#
-                           #{e 1745}#
-                           #{w 1747}#
-                           #{s 1748}#
-                           #{mod 1750}#)
-                         (if (eqv? #{type 1767}# 'macro)
-                           (if #{for-car? 1751}#
+                           #{type 1781}#
+                           #{n 1777}#
+                           #{e 1759}#
+                           #{w 1761}#
+                           #{s 1762}#
+                           #{mod 1764}#)
+                         (if (eqv? #{type 1781}# 'macro)
+                           (if #{for-car? 1765}#
                              (values
-                               #{type 1767}#
-                               (cdr #{b 1765}#)
-                               #{e 1745}#
-                               #{w 1747}#
-                               #{s 1748}#
-                               #{mod 1750}#)
-                             (#{syntax-type 417}#
-                               (#{chi-macro 425}#
-                                 (cdr #{b 1765}#)
-                                 #{e 1745}#
-                                 #{r 1746}#
-                                 #{w 1747}#
-                                 #{s 1748}#
-                                 #{rib 1749}#
-                                 #{mod 1750}#)
-                               #{r 1746}#
+                               #{type 1781}#
+                               (cdr #{b 1779}#)
+                               #{e 1759}#
+                               #{w 1761}#
+                               #{s 1762}#
+                               #{mod 1764}#)
+                             (#{syntax-type 430}#
+                               (#{chi-macro 438}#
+                                 (cdr #{b 1779}#)
+                                 #{e 1759}#
+                                 #{r 1760}#
+                                 #{w 1761}#
+                                 #{s 1762}#
+                                 #{rib 1763}#
+                                 #{mod 1764}#)
+                               #{r 1760}#
                                '(())
-                               #{s 1748}#
-                               #{rib 1749}#
-                               #{mod 1750}#
+                               #{s 1762}#
+                               #{rib 1763}#
+                               #{mod 1764}#
                                #f))
                            (values
-                             #{type 1767}#
-                             (cdr #{b 1765}#)
-                             #{e 1745}#
-                             #{w 1747}#
-                             #{s 1748}#
-                             #{mod 1750}#))))))))))
-         (if (pair? #{e 1745}#)
+                             #{type 1781}#
+                             (cdr #{b 1779}#)
+                             #{e 1759}#
+                             #{w 1761}#
+                             #{s 1762}#
+                             #{mod 1764}#))))))))))
+         (if (pair? #{e 1759}#)
            (begin
-             (let ((#{first 1781}# (car #{e 1745}#)))
+             (let ((#{first 1795}# (car #{e 1759}#)))
                (call-with-values
                  (lambda ()
-                   (#{syntax-type 417}#
-                     #{first 1781}#
-                     #{r 1746}#
-                     #{w 1747}#
-                     #{s 1748}#
-                     #{rib 1749}#
-                     #{mod 1750}#
+                   (#{syntax-type 430}#
+                     #{first 1795}#
+                     #{r 1760}#
+                     #{w 1761}#
+                     #{s 1762}#
+                     #{rib 1763}#
+                     #{mod 1764}#
                      #t))
-                 (lambda (#{ftype 1782}#
-                          #{fval 1783}#
-                          #{fe 1784}#
-                          #{fw 1785}#
-                          #{fs 1786}#
-                          #{fmod 1787}#)
-                   (if (eqv? #{ftype 1782}# 'lexical)
+                 (lambda (#{ftype 1796}#
+                          #{fval 1797}#
+                          #{fe 1798}#
+                          #{fw 1799}#
+                          #{fs 1800}#
+                          #{fmod 1801}#)
+                   (if (eqv? #{ftype 1796}# 'lexical)
                      (values
                        'lexical-call
-                       #{fval 1783}#
-                       #{e 1745}#
-                       #{w 1747}#
-                       #{s 1748}#
-                       #{mod 1750}#)
-                     (if (eqv? #{ftype 1782}# 'global)
+                       #{fval 1797}#
+                       #{e 1759}#
+                       #{w 1761}#
+                       #{s 1762}#
+                       #{mod 1764}#)
+                     (if (eqv? #{ftype 1796}# 'global)
                        (values
                          'global-call
-                         (#{make-syntax-object 303}#
-                           #{fval 1783}#
-                           #{w 1747}#
-                           #{fmod 1787}#)
-                         #{e 1745}#
-                         #{w 1747}#
-                         #{s 1748}#
-                         #{mod 1750}#)
-                       (if (eqv? #{ftype 1782}# 'macro)
-                         (#{syntax-type 417}#
-                           (#{chi-macro 425}#
-                             #{fval 1783}#
-                             #{e 1745}#
-                             #{r 1746}#
-                             #{w 1747}#
-                             #{s 1748}#
-                             #{rib 1749}#
-                             #{mod 1750}#)
-                           #{r 1746}#
+                         (#{make-syntax-object 305}#
+                           #{fval 1797}#
+                           #{w 1761}#
+                           #{fmod 1801}#)
+                         #{e 1759}#
+                         #{w 1761}#
+                         #{s 1762}#
+                         #{mod 1764}#)
+                       (if (eqv? #{ftype 1796}# 'macro)
+                         (#{syntax-type 430}#
+                           (#{chi-macro 438}#
+                             #{fval 1797}#
+                             #{e 1759}#
+                             #{r 1760}#
+                             #{w 1761}#
+                             #{s 1762}#
+                             #{rib 1763}#
+                             #{mod 1764}#)
+                           #{r 1760}#
                            '(())
-                           #{s 1748}#
-                           #{rib 1749}#
-                           #{mod 1750}#
-                           #{for-car? 1751}#)
-                         (if (eqv? #{ftype 1782}# 'module-ref)
+                           #{s 1762}#
+                           #{rib 1763}#
+                           #{mod 1764}#
+                           #{for-car? 1765}#)
+                         (if (eqv? #{ftype 1796}# 'module-ref)
                            (call-with-values
                              (lambda ()
-                               (#{fval 1783}#
-                                 #{e 1745}#
-                                 #{r 1746}#
-                                 #{w 1747}#))
-                             (lambda (#{e 1799}#
-                                      #{r 1800}#
-                                      #{w 1801}#
-                                      #{s 1802}#
-                                      #{mod 1803}#)
-                               (#{syntax-type 417}#
-                                 #{e 1799}#
-                                 #{r 1800}#
-                                 #{w 1801}#
-                                 #{s 1802}#
-                                 #{rib 1749}#
-                                 #{mod 1803}#
-                                 #{for-car? 1751}#)))
-                           (if (eqv? #{ftype 1782}# 'core)
+                               (#{fval 1797}#
+                                 #{e 1759}#
+                                 #{r 1760}#
+                                 #{w 1761}#))
+                             (lambda (#{e 1813}#
+                                      #{r 1814}#
+                                      #{w 1815}#
+                                      #{s 1816}#
+                                      #{mod 1817}#)
+                               (#{syntax-type 430}#
+                                 #{e 1813}#
+                                 #{r 1814}#
+                                 #{w 1815}#
+                                 #{s 1816}#
+                                 #{rib 1763}#
+                                 #{mod 1817}#
+                                 #{for-car? 1765}#)))
+                           (if (eqv? #{ftype 1796}# 'core)
                              (values
                                'core-form
-                               #{fval 1783}#
-                               #{e 1745}#
-                               #{w 1747}#
-                               #{s 1748}#
-                               #{mod 1750}#)
-                             (if (eqv? #{ftype 1782}# 'local-syntax)
+                               #{fval 1797}#
+                               #{e 1759}#
+                               #{w 1761}#
+                               #{s 1762}#
+                               #{mod 1764}#)
+                             (if (eqv? #{ftype 1796}# 'local-syntax)
                                (values
                                  'local-syntax-form
-                                 #{fval 1783}#
-                                 #{e 1745}#
-                                 #{w 1747}#
-                                 #{s 1748}#
-                                 #{mod 1750}#)
-                               (if (eqv? #{ftype 1782}# 'begin)
+                                 #{fval 1797}#
+                                 #{e 1759}#
+                                 #{w 1761}#
+                                 #{s 1762}#
+                                 #{mod 1764}#)
+                               (if (eqv? #{ftype 1796}# 'begin)
                                  (values
                                    'begin-form
                                    #f
-                                   #{e 1745}#
-                                   #{w 1747}#
-                                   #{s 1748}#
-                                   #{mod 1750}#)
-                                 (if (eqv? #{ftype 1782}# 'eval-when)
+                                   #{e 1759}#
+                                   #{w 1761}#
+                                   #{s 1762}#
+                                   #{mod 1764}#)
+                                 (if (eqv? #{ftype 1796}# 'eval-when)
                                    (values
                                      'eval-when-form
                                      #f
-                                     #{e 1745}#
-                                     #{w 1747}#
-                                     #{s 1748}#
-                                     #{mod 1750}#)
-                                   (if (eqv? #{ftype 1782}# 'define)
-                                     (let ((#{tmp 1814}# #{e 1745}#))
-                                       (let ((#{tmp 1815}#
+                                     #{e 1759}#
+                                     #{w 1761}#
+                                     #{s 1762}#
+                                     #{mod 1764}#)
+                                   (if (eqv? #{ftype 1796}# 'define)
+                                     (let ((#{tmp 1828}# #{e 1759}#))
+                                       (let ((#{tmp 1829}#
                                                ($sc-dispatch
-                                                 #{tmp 1814}#
+                                                 #{tmp 1828}#
                                                  '(_ any any))))
-                                         (if (if #{tmp 1815}#
+                                         (if (if #{tmp 1829}#
                                                (@apply
-                                                 (lambda (#{name 1818}#
-                                                          #{val 1819}#)
-                                                   (#{id? 339}# #{name 1818}#))
-                                                 #{tmp 1815}#)
+                                                 (lambda (#{name 1832}#
+                                                          #{val 1833}#)
+                                                   (#{id? 344}# #{name 1832}#))
+                                                 #{tmp 1829}#)
                                                #f)
                                            (@apply
-                                             (lambda (#{name 1822}#
-                                                      #{val 1823}#)
+                                             (lambda (#{name 1836}#
+                                                      #{val 1837}#)
                                                (values
                                                  'define-form
-                                                 #{name 1822}#
-                                                 #{val 1823}#
-                                                 #{w 1747}#
-                                                 #{s 1748}#
-                                                 #{mod 1750}#))
-                                             #{tmp 1815}#)
-                                           (let ((#{tmp 1824}#
+                                                 #{name 1836}#
+                                                 #{val 1837}#
+                                                 #{w 1761}#
+                                                 #{s 1762}#
+                                                 #{mod 1764}#))
+                                             #{tmp 1829}#)
+                                           (let ((#{tmp 1838}#
                                                    ($sc-dispatch
-                                                     #{tmp 1814}#
+                                                     #{tmp 1828}#
                                                      '(_ (any . any)
                                                          any
                                                          .
                                                          each-any))))
-                                             (if (if #{tmp 1824}#
+                                             (if (if #{tmp 1838}#
                                                    (@apply
-                                                     (lambda (#{name 1829}#
-                                                              #{args 1830}#
-                                                              #{e1 1831}#
-                                                              #{e2 1832}#)
-                                                       (if (#{id? 339}#
-                                                             #{name 1829}#)
-                                                         (#{valid-bound-ids? 
399}#
-                                                           (#{lambda-var-list 
449}#
-                                                             #{args 1830}#))
+                                                     (lambda (#{name 1843}#
+                                                              #{args 1844}#
+                                                              #{e1 1845}#
+                                                              #{e2 1846}#)
+                                                       (if (#{id? 344}#
+                                                             #{name 1843}#)
+                                                         (#{valid-bound-ids? 
412}#
+                                                           (#{lambda-var-list 
462}#
+                                                             #{args 1844}#))
                                                          #f))
-                                                     #{tmp 1824}#)
+                                                     #{tmp 1838}#)
                                                    #f)
                                                (@apply
-                                                 (lambda (#{name 1839}#
-                                                          #{args 1840}#
-                                                          #{e1 1841}#
-                                                          #{e2 1842}#)
+                                                 (lambda (#{name 1853}#
+                                                          #{args 1854}#
+                                                          #{e1 1855}#
+                                                          #{e2 1856}#)
                                                    (values
                                                      'define-form
-                                                     (#{wrap 405}#
-                                                       #{name 1839}#
-                                                       #{w 1747}#
-                                                       #{mod 1750}#)
-                                                     (#{decorate-source 259}#
+                                                     (#{wrap 418}#
+                                                       #{name 1853}#
+                                                       #{w 1761}#
+                                                       #{mod 1764}#)
+                                                     (#{decorate-source 260}#
                                                        (cons '#(syntax-object
                                                                 lambda
                                                                 ((top)
@@ -3500,10 +3500,10 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i1835"
-                                                                     "i1836"
-                                                                     "i1837"
-                                                                     "i1838"))
+                                                                   #("i1849"
+                                                                     "i1850"
+                                                                     "i1851"
+                                                                     "i1852"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -3525,12 +3525,12 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i1788"
-                                                                     "i1789"
-                                                                     "i1790"
-                                                                     "i1791"
-                                                                     "i1792"
-                                                                     "i1793"))
+                                                                   #("i1802"
+                                                                     "i1803"
+                                                                     "i1804"
+                                                                     "i1805"
+                                                                     "i1806"
+                                                                     "i1807"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -3538,7 +3538,7 @@
                                                                  #(ribcage
                                                                    #(first)
                                                                    #((top))
-                                                                   #("i1780"))
+                                                                   #("i1794"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
@@ -3566,13 +3566,13 @@
                                                                      (top)
                                                                      (top)
                                                                      (top))
-                                                                   #("i1752"
-                                                                     "i1753"
-                                                                     "i1754"
-                                                                     "i1755"
-                                                                     "i1756"
-                                                                     "i1757"
-                                                                     "i1758"))
+                                                                   #("i1766"
+                                                                     "i1767"
+                                                                     "i1768"
+                                                                     "i1769"
+                                                                     "i1770"
+                                                                     "i1771"
+                                                                     "i1772"))
                                                                  #(ribcage
                                                                    
(lambda-var-list
                                                                      gen-var
@@ -3846,81 +3846,82 @@
                                                                     (top)
                                                                     (top)
                                                                     (top))
-                                                                   ("i448"
-                                                                    "i446"
-                                                                    "i444"
-                                                                    "i442"
-                                                                    "i440"
-                                                                    "i438"
-                                                                    "i436"
-                                                                    "i434"
-                                                                    "i432"
-                                                                    "i430"
-                                                                    "i428"
-                                                                    "i426"
-                                                                    "i424"
-                                                                    "i422"
-                                                                    "i420"
-                                                                    "i418"
-                                                                    "i416"
-                                                                    "i414"
-                                                                    "i412"
-                                                                    "i410"
-                                                                    "i408"
-                                                                    "i406"
-                                                                    "i404"
-                                                                    "i402"
-                                                                    "i400"
-                                                                    "i398"
-                                                                    "i396"
-                                                                    "i394"
+                                                                   ("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"
+                                                                    "i397"
+                                                                    "i395"
+                                                                    "i393"
                                                                     "i392"
                                                                     "i390"
-                                                                    "i388"
+                                                                    "i387"
                                                                     "i386"
-                                                                    "i384"
+                                                                    "i385"
+                                                                    "i383"
                                                                     "i382"
                                                                     "i380"
-                                                                    "i379"
                                                                     "i378"
                                                                     "i376"
-                                                                    "i375"
                                                                     "i374"
-                                                                    "i373"
                                                                     "i372"
                                                                     "i370"
                                                                     "i368"
                                                                     "i366"
-                                                                    "i364"
-                                                                    "i362"
+                                                                    "i363"
+                                                                    "i361"
                                                                     "i360"
                                                                     "i358"
                                                                     "i356"
-                                                                    "i353"
+                                                                    "i354"
+                                                                    "i352"
                                                                     "i351"
                                                                     "i350"
                                                                     "i349"
-                                                                    "i348"
                                                                     "i347"
                                                                     "i346"
-                                                                    "i345"
-                                                                    "i344"
                                                                     "i343"
                                                                     "i341"
-                                                                    "i340"
-                                                                    "i338"
-                                                                    "i336"
-                                                                    "i334"
-                                                                    "i332"
+                                                                    "i339"
+                                                                    "i337"
+                                                                    "i335"
+                                                                    "i333"
+                                                                    "i331"
                                                                     "i330"
-                                                                    "i328"
-                                                                    "i326"
+                                                                    "i329"
+                                                                    "i327"
                                                                     "i325"
                                                                     "i324"
-                                                                    "i323"
-                                                                    "i322"
                                                                     "i321"
-                                                                    "i319"
+                                                                    "i320"
                                                                     "i318"
                                                                     "i316"
                                                                     "i314"
@@ -3930,31 +3931,30 @@
                                                                     "i306"
                                                                     "i304"
                                                                     "i302"
-                                                                    "i300"
-                                                                    "i298"
-                                                                    "i296"
-                                                                    "i294"
-                                                                    "i292"
-                                                                    "i290"
-                                                                    "i288"
-                                                                    "i286"
-                                                                    "i284"
-                                                                    "i282"
-                                                                    "i280"
-                                                                    "i278"
-                                                                    "i276"
-                                                                    "i274"
-                                                                    "i272"
-                                                                    "i270"
-                                                                    "i268"
-                                                                    "i266"
-                                                                    "i264"
-                                                                    "i262"
-                                                                    "i260"
-                                                                    "i258"
-                                                                    "i256"
+                                                                    "i299"
+                                                                    "i297"
+                                                                    "i295"
+                                                                    "i293"
+                                                                    "i291"
+                                                                    "i289"
+                                                                    "i287"
+                                                                    "i285"
+                                                                    "i283"
+                                                                    "i281"
+                                                                    "i279"
+                                                                    "i277"
+                                                                    "i275"
+                                                                    "i273"
+                                                                    "i271"
+                                                                    "i269"
+                                                                    "i267"
+                                                                    "i265"
+                                                                    "i263"
+                                                                    "i261"
+                                                                    "i259"
+                                                                    "i257"
+                                                                    "i255"
                                                                     "i254"
-                                                                    "i253"
                                                                     "i251"
                                                                     "i249"
                                                                     "i248"
@@ -3994,43 +3994,43 @@
                                                                     "i38")))
                                                                 (hygiene
                                                                   guile))
-                                                             (#{wrap 405}#
-                                                               (cons #{args 
1840}#
-                                                                     (cons 
#{e1 1841}#
-                                                                           
#{e2 1842}#))
-                                                               #{w 1747}#
-                                                               #{mod 1750}#))
-                                                       #{s 1748}#)
+                                                             (#{wrap 418}#
+                                                               (cons #{args 
1854}#
+                                                                     (cons 
#{e1 1855}#
+                                                                           
#{e2 1856}#))
+                                                               #{w 1761}#
+                                                               #{mod 1764}#))
+                                                       #{s 1762}#)
                                                      '(())
-                                                     #{s 1748}#
-                                                     #{mod 1750}#))
-                                                 #{tmp 1824}#)
-                                               (let ((#{tmp 1845}#
+                                                     #{s 1762}#
+                                                     #{mod 1764}#))
+                                                 #{tmp 1838}#)
+                                               (let ((#{tmp 1859}#
                                                        ($sc-dispatch
-                                                         #{tmp 1814}#
+                                                         #{tmp 1828}#
                                                          '(_ any))))
-                                                 (if (if #{tmp 1845}#
+                                                 (if (if #{tmp 1859}#
                                                        (@apply
-                                                         (lambda (#{name 
1847}#)
-                                                           (#{id? 339}#
-                                                             #{name 1847}#))
-                                                         #{tmp 1845}#)
+                                                         (lambda (#{name 
1861}#)
+                                                           (#{id? 344}#
+                                                             #{name 1861}#))
+                                                         #{tmp 1859}#)
                                                        #f)
                                                    (@apply
-                                                     (lambda (#{name 1849}#)
+                                                     (lambda (#{name 1863}#)
                                                        (values
                                                          'define-form
-                                                         (#{wrap 405}#
-                                                           #{name 1849}#
-                                                           #{w 1747}#
-                                                           #{mod 1750}#)
+                                                         (#{wrap 418}#
+                                                           #{name 1863}#
+                                                           #{w 1761}#
+                                                           #{mod 1764}#)
                                                          '(#(syntax-object
                                                              if
                                                              ((top)
                                                               #(ribcage
                                                                 #(name)
                                                                 #((top))
-                                                                #("i1848"))
+                                                                #("i1862"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -4052,12 +4052,12 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i1788"
-                                                                  "i1789"
-                                                                  "i1790"
-                                                                  "i1791"
-                                                                  "i1792"
-                                                                  "i1793"))
+                                                                #("i1802"
+                                                                  "i1803"
+                                                                  "i1804"
+                                                                  "i1805"
+                                                                  "i1806"
+                                                                  "i1807"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -4065,7 +4065,7 @@
                                                               #(ribcage
                                                                 #(first)
                                                                 #((top))
-                                                                #("i1780"))
+                                                                #("i1794"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -4093,13 +4093,13 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i1752"
-                                                                  "i1753"
-                                                                  "i1754"
-                                                                  "i1755"
-                                                                  "i1756"
-                                                                  "i1757"
-                                                                  "i1758"))
+                                                                #("i1766"
+                                                                  "i1767"
+                                                                  "i1768"
+                                                                  "i1769"
+                                                                  "i1770"
+                                                                  "i1771"
+                                                                  "i1772"))
                                                               #(ribcage
                                                                 
(lambda-var-list
                                                                   gen-var
@@ -4373,81 +4373,82 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                                ("i448"
-                                                                 "i446"
-                                                                 "i444"
-                                                                 "i442"
-                                                                 "i440"
-                                                                 "i438"
-                                                                 "i436"
-                                                                 "i434"
-                                                                 "i432"
-                                                                 "i430"
-                                                                 "i428"
-                                                                 "i426"
-                                                                 "i424"
-                                                                 "i422"
-                                                                 "i420"
-                                                                 "i418"
-                                                                 "i416"
-                                                                 "i414"
-                                                                 "i412"
-                                                                 "i410"
-                                                                 "i408"
-                                                                 "i406"
-                                                                 "i404"
-                                                                 "i402"
-                                                                 "i400"
-                                                                 "i398"
-                                                                 "i396"
-                                                                 "i394"
+                                                                ("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"
+                                                                 "i397"
+                                                                 "i395"
+                                                                 "i393"
                                                                  "i392"
                                                                  "i390"
-                                                                 "i388"
+                                                                 "i387"
                                                                  "i386"
-                                                                 "i384"
+                                                                 "i385"
+                                                                 "i383"
                                                                  "i382"
                                                                  "i380"
-                                                                 "i379"
                                                                  "i378"
                                                                  "i376"
-                                                                 "i375"
                                                                  "i374"
-                                                                 "i373"
                                                                  "i372"
                                                                  "i370"
                                                                  "i368"
                                                                  "i366"
-                                                                 "i364"
-                                                                 "i362"
+                                                                 "i363"
+                                                                 "i361"
                                                                  "i360"
                                                                  "i358"
                                                                  "i356"
-                                                                 "i353"
+                                                                 "i354"
+                                                                 "i352"
                                                                  "i351"
                                                                  "i350"
                                                                  "i349"
-                                                                 "i348"
                                                                  "i347"
                                                                  "i346"
-                                                                 "i345"
-                                                                 "i344"
                                                                  "i343"
                                                                  "i341"
-                                                                 "i340"
-                                                                 "i338"
-                                                                 "i336"
-                                                                 "i334"
-                                                                 "i332"
+                                                                 "i339"
+                                                                 "i337"
+                                                                 "i335"
+                                                                 "i333"
+                                                                 "i331"
                                                                  "i330"
-                                                                 "i328"
-                                                                 "i326"
+                                                                 "i329"
+                                                                 "i327"
                                                                  "i325"
                                                                  "i324"
-                                                                 "i323"
-                                                                 "i322"
                                                                  "i321"
-                                                                 "i319"
+                                                                 "i320"
                                                                  "i318"
                                                                  "i316"
                                                                  "i314"
@@ -4457,31 +4458,30 @@
                                                                  "i306"
                                                                  "i304"
                                                                  "i302"
-                                                                 "i300"
-                                                                 "i298"
-                                                                 "i296"
-                                                                 "i294"
-                                                                 "i292"
-                                                                 "i290"
-                                                                 "i288"
-                                                                 "i286"
-                                                                 "i284"
-                                                                 "i282"
-                                                                 "i280"
-                                                                 "i278"
-                                                                 "i276"
-                                                                 "i274"
-                                                                 "i272"
-                                                                 "i270"
-                                                                 "i268"
-                                                                 "i266"
-                                                                 "i264"
-                                                                 "i262"
-                                                                 "i260"
-                                                                 "i258"
-                                                                 "i256"
+                                                                 "i299"
+                                                                 "i297"
+                                                                 "i295"
+                                                                 "i293"
+                                                                 "i291"
+                                                                 "i289"
+                                                                 "i287"
+                                                                 "i285"
+                                                                 "i283"
+                                                                 "i281"
+                                                                 "i279"
+                                                                 "i277"
+                                                                 "i275"
+                                                                 "i273"
+                                                                 "i271"
+                                                                 "i269"
+                                                                 "i267"
+                                                                 "i265"
+                                                                 "i263"
+                                                                 "i261"
+                                                                 "i259"
+                                                                 "i257"
+                                                                 "i255"
                                                                  "i254"
-                                                                 "i253"
                                                                  "i251"
                                                                  "i249"
                                                                  "i248"
@@ -4526,7 +4526,7 @@
                                                               #(ribcage
                                                                 #(name)
                                                                 #((top))
-                                                                #("i1848"))
+                                                                #("i1862"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -4548,12 +4548,12 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i1788"
-                                                                  "i1789"
-                                                                  "i1790"
-                                                                  "i1791"
-                                                                  "i1792"
-                                                                  "i1793"))
+                                                                #("i1802"
+                                                                  "i1803"
+                                                                  "i1804"
+                                                                  "i1805"
+                                                                  "i1806"
+                                                                  "i1807"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -4561,7 +4561,7 @@
                                                               #(ribcage
                                                                 #(first)
                                                                 #((top))
-                                                                #("i1780"))
+                                                                #("i1794"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -4589,13 +4589,13 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i1752"
-                                                                  "i1753"
-                                                                  "i1754"
-                                                                  "i1755"
-                                                                  "i1756"
-                                                                  "i1757"
-                                                                  "i1758"))
+                                                                #("i1766"
+                                                                  "i1767"
+                                                                  "i1768"
+                                                                  "i1769"
+                                                                  "i1770"
+                                                                  "i1771"
+                                                                  "i1772"))
                                                               #(ribcage
                                                                 
(lambda-var-list
                                                                   gen-var
@@ -4869,81 +4869,82 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                                ("i448"
-                                                                 "i446"
-                                                                 "i444"
-                                                                 "i442"
-                                                                 "i440"
-                                                                 "i438"
-                                                                 "i436"
-                                                                 "i434"
-                                                                 "i432"
-                                                                 "i430"
-                                                                 "i428"
-                                                                 "i426"
-                                                                 "i424"
-                                                                 "i422"
-                                                                 "i420"
-                                                                 "i418"
-                                                                 "i416"
-                                                                 "i414"
-                                                                 "i412"
-                                                                 "i410"
-                                                                 "i408"
-                                                                 "i406"
-                                                                 "i404"
-                                                                 "i402"
-                                                                 "i400"
-                                                                 "i398"
-                                                                 "i396"
-                                                                 "i394"
+                                                                ("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"
+                                                                 "i397"
+                                                                 "i395"
+                                                                 "i393"
                                                                  "i392"
                                                                  "i390"
-                                                                 "i388"
+                                                                 "i387"
                                                                  "i386"
-                                                                 "i384"
+                                                                 "i385"
+                                                                 "i383"
                                                                  "i382"
                                                                  "i380"
-                                                                 "i379"
                                                                  "i378"
                                                                  "i376"
-                                                                 "i375"
                                                                  "i374"
-                                                                 "i373"
                                                                  "i372"
                                                                  "i370"
                                                                  "i368"
                                                                  "i366"
-                                                                 "i364"
-                                                                 "i362"
+                                                                 "i363"
+                                                                 "i361"
                                                                  "i360"
                                                                  "i358"
                                                                  "i356"
-                                                                 "i353"
+                                                                 "i354"
+                                                                 "i352"
                                                                  "i351"
                                                                  "i350"
                                                                  "i349"
-                                                                 "i348"
                                                                  "i347"
                                                                  "i346"
-                                                                 "i345"
-                                                                 "i344"
                                                                  "i343"
                                                                  "i341"
-                                                                 "i340"
-                                                                 "i338"
-                                                                 "i336"
-                                                                 "i334"
-                                                                 "i332"
+                                                                 "i339"
+                                                                 "i337"
+                                                                 "i335"
+                                                                 "i333"
+                                                                 "i331"
                                                                  "i330"
-                                                                 "i328"
-                                                                 "i326"
+                                                                 "i329"
+                                                                 "i327"
                                                                  "i325"
                                                                  "i324"
-                                                                 "i323"
-                                                                 "i322"
                                                                  "i321"
-                                                                 "i319"
+                                                                 "i320"
                                                                  "i318"
                                                                  "i316"
                                                                  "i314"
@@ -4953,31 +4954,30 @@
                                                                  "i306"
                                                                  "i304"
                                                                  "i302"
-                                                                 "i300"
-                                                                 "i298"
-                                                                 "i296"
-                                                                 "i294"
-                                                                 "i292"
-                                                                 "i290"
-                                                                 "i288"
-                                                                 "i286"
-                                                                 "i284"
-                                                                 "i282"
-                                                                 "i280"
-                                                                 "i278"
-                                                                 "i276"
-                                                                 "i274"
-                                                                 "i272"
-                                                                 "i270"
-                                                                 "i268"
-                                                                 "i266"
-                                                                 "i264"
-                                                                 "i262"
-                                                                 "i260"
-                                                                 "i258"
-                                                                 "i256"
+                                                                 "i299"
+                                                                 "i297"
+                                                                 "i295"
+                                                                 "i293"
+                                                                 "i291"
+                                                                 "i289"
+                                                                 "i287"
+                                                                 "i285"
+                                                                 "i283"
+                                                                 "i281"
+                                                                 "i279"
+                                                                 "i277"
+                                                                 "i275"
+                                                                 "i273"
+                                                                 "i271"
+                                                                 "i269"
+                                                                 "i267"
+                                                                 "i265"
+                                                                 "i263"
+                                                                 "i261"
+                                                                 "i259"
+                                                                 "i257"
+                                                                 "i255"
                                                                  "i254"
-                                                                 "i253"
                                                                  "i251"
                                                                  "i249"
                                                                  "i248"
@@ -5022,7 +5022,7 @@
                                                               #(ribcage
                                                                 #(name)
                                                                 #((top))
-                                                                #("i1848"))
+                                                                #("i1862"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -5044,12 +5044,12 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i1788"
-                                                                  "i1789"
-                                                                  "i1790"
-                                                                  "i1791"
-                                                                  "i1792"
-                                                                  "i1793"))
+                                                                #("i1802"
+                                                                  "i1803"
+                                                                  "i1804"
+                                                                  "i1805"
+                                                                  "i1806"
+                                                                  "i1807"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -5057,7 +5057,7 @@
                                                               #(ribcage
                                                                 #(first)
                                                                 #((top))
-                                                                #("i1780"))
+                                                                #("i1794"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -5085,13 +5085,13 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i1752"
-                                                                  "i1753"
-                                                                  "i1754"
-                                                                  "i1755"
-                                                                  "i1756"
-                                                                  "i1757"
-                                                                  "i1758"))
+                                                                #("i1766"
+                                                                  "i1767"
+                                                                  "i1768"
+                                                                  "i1769"
+                                                                  "i1770"
+                                                                  "i1771"
+                                                                  "i1772"))
                                                               #(ribcage
                                                                 
(lambda-var-list
                                                                   gen-var
@@ -5365,81 +5365,82 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                                ("i448"
-                                                                 "i446"
-                                                                 "i444"
-                                                                 "i442"
-                                                                 "i440"
-                                                                 "i438"
-                                                                 "i436"
-                                                                 "i434"
-                                                                 "i432"
-                                                                 "i430"
-                                                                 "i428"
-                                                                 "i426"
-                                                                 "i424"
-                                                                 "i422"
-                                                                 "i420"
-                                                                 "i418"
-                                                                 "i416"
-                                                                 "i414"
-                                                                 "i412"
-                                                                 "i410"
-                                                                 "i408"
-                                                                 "i406"
-                                                                 "i404"
-                                                                 "i402"
-                                                                 "i400"
-                                                                 "i398"
-                                                                 "i396"
-                                                                 "i394"
+                                                                ("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"
+                                                                 "i397"
+                                                                 "i395"
+                                                                 "i393"
                                                                  "i392"
                                                                  "i390"
-                                                                 "i388"
+                                                                 "i387"
                                                                  "i386"
-                                                                 "i384"
+                                                                 "i385"
+                                                                 "i383"
                                                                  "i382"
                                                                  "i380"
-                                                                 "i379"
                                                                  "i378"
                                                                  "i376"
-                                                                 "i375"
                                                                  "i374"
-                                                                 "i373"
                                                                  "i372"
                                                                  "i370"
                                                                  "i368"
                                                                  "i366"
-                                                                 "i364"
-                                                                 "i362"
+                                                                 "i363"
+                                                                 "i361"
                                                                  "i360"
                                                                  "i358"
                                                                  "i356"
-                                                                 "i353"
+                                                                 "i354"
+                                                                 "i352"
                                                                  "i351"
                                                                  "i350"
                                                                  "i349"
-                                                                 "i348"
                                                                  "i347"
                                                                  "i346"
-                                                                 "i345"
-                                                                 "i344"
                                                                  "i343"
                                                                  "i341"
-                                                                 "i340"
-                                                                 "i338"
-                                                                 "i336"
-                                                                 "i334"
-                                                                 "i332"
+                                                                 "i339"
+                                                                 "i337"
+                                                                 "i335"
+                                                                 "i333"
+                                                                 "i331"
                                                                  "i330"
-                                                                 "i328"
-                                                                 "i326"
+                                                                 "i329"
+                                                                 "i327"
                                                                  "i325"
                                                                  "i324"
-                                                                 "i323"
-                                                                 "i322"
                                                                  "i321"
-                                                                 "i319"
+                                                                 "i320"
                                                                  "i318"
                                                                  "i316"
                                                                  "i314"
@@ -5449,31 +5450,30 @@
                                                                  "i306"
                                                                  "i304"
                                                                  "i302"
-                                                                 "i300"
-                                                                 "i298"
-                                                                 "i296"
-                                                                 "i294"
-                                                                 "i292"
-                                                                 "i290"
-                                                                 "i288"
-                                                                 "i286"
-                                                                 "i284"
-                                                                 "i282"
-                                                                 "i280"
-                                                                 "i278"
-                                                                 "i276"
-                                                                 "i274"
-                                                                 "i272"
-                                                                 "i270"
-                                                                 "i268"
-                                                                 "i266"
-                                                                 "i264"
-                                                                 "i262"
-                                                                 "i260"
-                                                                 "i258"
-                                                                 "i256"
+                                                                 "i299"
+                                                                 "i297"
+                                                                 "i295"
+                                                                 "i293"
+                                                                 "i291"
+                                                                 "i289"
+                                                                 "i287"
+                                                                 "i285"
+                                                                 "i283"
+                                                                 "i281"
+                                                                 "i279"
+                                                                 "i277"
+                                                                 "i275"
+                                                                 "i273"
+                                                                 "i271"
+                                                                 "i269"
+                                                                 "i267"
+                                                                 "i265"
+                                                                 "i263"
+                                                                 "i261"
+                                                                 "i259"
+                                                                 "i257"
+                                                                 "i255"
                                                                  "i254"
-                                                                 "i253"
                                                                  "i251"
                                                                  "i249"
                                                                  "i248"
@@ -5513,817 +5513,817 @@
                                                                  "i38")))
                                                              (hygiene guile)))
                                                          '(())
-                                                         #{s 1748}#
-                                                         #{mod 1750}#))
-                                                     #{tmp 1845}#)
+                                                         #{s 1762}#
+                                                         #{mod 1764}#))
+                                                     #{tmp 1859}#)
                                                    (syntax-violation
                                                      #f
                                                      "source expression failed 
to match any pattern"
-                                                     #{tmp 1814}#))))))))
-                                     (if (eqv? #{ftype 1782}# 'define-syntax)
-                                       (let ((#{tmp 1852}# #{e 1745}#))
-                                         (let ((#{tmp 1853}#
+                                                     #{tmp 1828}#))))))))
+                                     (if (eqv? #{ftype 1796}# 'define-syntax)
+                                       (let ((#{tmp 1866}# #{e 1759}#))
+                                         (let ((#{tmp 1867}#
                                                  ($sc-dispatch
-                                                   #{tmp 1852}#
+                                                   #{tmp 1866}#
                                                    '(_ any any))))
-                                           (if (if #{tmp 1853}#
+                                           (if (if #{tmp 1867}#
                                                  (@apply
-                                                   (lambda (#{name 1856}#
-                                                            #{val 1857}#)
-                                                     (#{id? 339}#
-                                                       #{name 1856}#))
-                                                   #{tmp 1853}#)
+                                                   (lambda (#{name 1870}#
+                                                            #{val 1871}#)
+                                                     (#{id? 344}#
+                                                       #{name 1870}#))
+                                                   #{tmp 1867}#)
                                                  #f)
                                              (@apply
-                                               (lambda (#{name 1860}#
-                                                        #{val 1861}#)
+                                               (lambda (#{name 1874}#
+                                                        #{val 1875}#)
                                                  (values
                                                    'define-syntax-form
-                                                   #{name 1860}#
-                                                   #{val 1861}#
-                                                   #{w 1747}#
-                                                   #{s 1748}#
-                                                   #{mod 1750}#))
-                                               #{tmp 1853}#)
+                                                   #{name 1874}#
+                                                   #{val 1875}#
+                                                   #{w 1761}#
+                                                   #{s 1762}#
+                                                   #{mod 1764}#))
+                                               #{tmp 1867}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp 1852}#))))
+                                               #{tmp 1866}#))))
                                        (values
                                          'call
                                          #f
-                                         #{e 1745}#
-                                         #{w 1747}#
-                                         #{s 1748}#
-                                         #{mod 1750}#)))))))))))))))
-           (if (#{syntax-object? 305}# #{e 1745}#)
-             (#{syntax-type 417}#
-               (#{syntax-object-expression 307}# #{e 1745}#)
-               #{r 1746}#
-               (#{join-wraps 387}#
-                 #{w 1747}#
-                 (#{syntax-object-wrap 309}# #{e 1745}#))
+                                         #{e 1759}#
+                                         #{w 1761}#
+                                         #{s 1762}#
+                                         #{mod 1764}#)))))))))))))))
+           (if (#{syntax-object? 307}# #{e 1759}#)
+             (#{syntax-type 430}#
+               (#{syntax-object-expression 309}# #{e 1759}#)
+               #{r 1760}#
+               (#{join-wraps 400}#
+                 #{w 1761}#
+                 (#{syntax-object-wrap 311}# #{e 1759}#))
                (begin
-                 (let ((#{t 1867}#
-                         (#{source-annotation 320}# #{e 1745}#)))
-                   (if #{t 1867}# #{t 1867}# #{s 1748}#)))
-               #{rib 1749}#
+                 (let ((#{t 1881}#
+                         (#{source-annotation 322}# #{e 1759}#)))
+                   (if #{t 1881}# #{t 1881}# #{s 1762}#)))
+               #{rib 1763}#
                (begin
-                 (let ((#{t 1871}#
-                         (#{syntax-object-module 311}# #{e 1745}#)))
-                   (if #{t 1871}# #{t 1871}# #{mod 1750}#)))
-               #{for-car? 1751}#)
-             (if (self-evaluating? #{e 1745}#)
+                 (let ((#{t 1885}#
+                         (#{syntax-object-module 313}# #{e 1759}#)))
+                   (if #{t 1885}# #{t 1885}# #{mod 1764}#)))
+               #{for-car? 1765}#)
+             (if (self-evaluating? #{e 1759}#)
                (values
                  'constant
                  #f
-                 #{e 1745}#
-                 #{w 1747}#
-                 #{s 1748}#
-                 #{mod 1750}#)
+                 #{e 1759}#
+                 #{w 1761}#
+                 #{s 1762}#
+                 #{mod 1764}#)
                (values
                  'other
                  #f
-                 #{e 1745}#
-                 #{w 1747}#
-                 #{s 1748}#
-                 #{mod 1750}#)))))))
-   (#{chi 419}#
-     (lambda (#{e 1876}# #{r 1877}# #{w 1878}# #{mod 1879}#)
+                 #{e 1759}#
+                 #{w 1761}#
+                 #{s 1762}#
+                 #{mod 1764}#)))))))
+   (#{chi 432}#
+     (lambda (#{e 1890}# #{r 1891}# #{w 1892}# #{mod 1893}#)
        (call-with-values
          (lambda ()
-           (#{syntax-type 417}#
-             #{e 1876}#
-             #{r 1877}#
-             #{w 1878}#
-             (#{source-annotation 320}# #{e 1876}#)
+           (#{syntax-type 430}#
+             #{e 1890}#
+             #{r 1891}#
+             #{w 1892}#
+             (#{source-annotation 322}# #{e 1890}#)
              #f
-             #{mod 1879}#
+             #{mod 1893}#
              #f))
-         (lambda (#{type 1884}#
-                  #{value 1885}#
-                  #{e 1886}#
-                  #{w 1887}#
-                  #{s 1888}#
-                  #{mod 1889}#)
-           (#{chi-expr 421}#
-             #{type 1884}#
-             #{value 1885}#
-             #{e 1886}#
-             #{r 1877}#
-             #{w 1887}#
-             #{s 1888}#
-             #{mod 1889}#)))))
-   (#{chi-expr 421}#
-     (lambda (#{type 1896}#
-              #{value 1897}#
-              #{e 1898}#
-              #{r 1899}#
-              #{w 1900}#
-              #{s 1901}#
-              #{mod 1902}#)
-       (if (eqv? #{type 1896}# 'lexical)
-         (#{build-lexical-reference 271}#
+         (lambda (#{type 1898}#
+                  #{value 1899}#
+                  #{e 1900}#
+                  #{w 1901}#
+                  #{s 1902}#
+                  #{mod 1903}#)
+           (#{chi-expr 434}#
+             #{type 1898}#
+             #{value 1899}#
+             #{e 1900}#
+             #{r 1891}#
+             #{w 1901}#
+             #{s 1902}#
+             #{mod 1903}#)))))
+   (#{chi-expr 434}#
+     (lambda (#{type 1910}#
+              #{value 1911}#
+              #{e 1912}#
+              #{r 1913}#
+              #{w 1914}#
+              #{s 1915}#
+              #{mod 1916}#)
+       (if (eqv? #{type 1910}# 'lexical)
+         (#{build-lexical-reference 272}#
            'value
-           #{s 1901}#
-           #{e 1898}#
-           #{value 1897}#)
-         (if (if (eqv? #{type 1896}# 'core)
+           #{s 1915}#
+           #{e 1912}#
+           #{value 1911}#)
+         (if (if (eqv? #{type 1910}# 'core)
                #t
-               (eqv? #{type 1896}# 'core-form))
-           (#{value 1897}#
-             #{e 1898}#
-             #{r 1899}#
-             #{w 1900}#
-             #{s 1901}#
-             #{mod 1902}#)
-           (if (eqv? #{type 1896}# 'module-ref)
+               (eqv? #{type 1910}# 'core-form))
+           (#{value 1911}#
+             #{e 1912}#
+             #{r 1913}#
+             #{w 1914}#
+             #{s 1915}#
+             #{mod 1916}#)
+           (if (eqv? #{type 1910}# 'module-ref)
              (call-with-values
                (lambda ()
-                 (#{value 1897}# #{e 1898}# #{r 1899}# #{w 1900}#))
-               (lambda (#{e 1913}#
-                        #{r 1914}#
-                        #{w 1915}#
-                        #{s 1916}#
-                        #{mod 1917}#)
-                 (#{chi 419}#
-                   #{e 1913}#
-                   #{r 1914}#
-                   #{w 1915}#
-                   #{mod 1917}#)))
-             (if (eqv? #{type 1896}# 'lexical-call)
-               (#{chi-application 423}#
+                 (#{value 1911}# #{e 1912}# #{r 1913}# #{w 1914}#))
+               (lambda (#{e 1927}#
+                        #{r 1928}#
+                        #{w 1929}#
+                        #{s 1930}#
+                        #{mod 1931}#)
+                 (#{chi 432}#
+                   #{e 1927}#
+                   #{r 1928}#
+                   #{w 1929}#
+                   #{mod 1931}#)))
+             (if (eqv? #{type 1910}# 'lexical-call)
+               (#{chi-application 436}#
                  (begin
-                   (let ((#{id 1925}# (car #{e 1898}#)))
-                     (#{build-lexical-reference 271}#
+                   (let ((#{id 1939}# (car #{e 1912}#)))
+                     (#{build-lexical-reference 272}#
                        'fun
-                       (#{source-annotation 320}# #{id 1925}#)
-                       (if (#{syntax-object? 305}# #{id 1925}#)
-                         (syntax->datum #{id 1925}#)
-                         #{id 1925}#)
-                       #{value 1897}#)))
-                 #{e 1898}#
-                 #{r 1899}#
-                 #{w 1900}#
-                 #{s 1901}#
-                 #{mod 1902}#)
-               (if (eqv? #{type 1896}# 'global-call)
-                 (#{chi-application 423}#
-                   (#{build-global-reference 277}#
-                     (#{source-annotation 320}# (car #{e 1898}#))
-                     (if (#{syntax-object? 305}# #{value 1897}#)
-                       (#{syntax-object-expression 307}# #{value 1897}#)
-                       #{value 1897}#)
-                     (if (#{syntax-object? 305}# #{value 1897}#)
-                       (#{syntax-object-module 311}# #{value 1897}#)
-                       #{mod 1902}#))
-                   #{e 1898}#
-                   #{r 1899}#
-                   #{w 1900}#
-                   #{s 1901}#
-                   #{mod 1902}#)
-                 (if (eqv? #{type 1896}# 'constant)
-                   (#{build-data 291}#
-                     #{s 1901}#
-                     (#{strip 445}#
-                       (#{source-wrap 407}#
-                         #{e 1898}#
-                         #{w 1900}#
-                         #{s 1901}#
-                         #{mod 1902}#)
+                       (#{source-annotation 322}# #{id 1939}#)
+                       (if (#{syntax-object? 307}# #{id 1939}#)
+                         (syntax->datum #{id 1939}#)
+                         #{id 1939}#)
+                       #{value 1911}#)))
+                 #{e 1912}#
+                 #{r 1913}#
+                 #{w 1914}#
+                 #{s 1915}#
+                 #{mod 1916}#)
+               (if (eqv? #{type 1910}# 'global-call)
+                 (#{chi-application 436}#
+                   (#{build-global-reference 278}#
+                     (#{source-annotation 322}# (car #{e 1912}#))
+                     (if (#{syntax-object? 307}# #{value 1911}#)
+                       (#{syntax-object-expression 309}# #{value 1911}#)
+                       #{value 1911}#)
+                     (if (#{syntax-object? 307}# #{value 1911}#)
+                       (#{syntax-object-module 313}# #{value 1911}#)
+                       #{mod 1916}#))
+                   #{e 1912}#
+                   #{r 1913}#
+                   #{w 1914}#
+                   #{s 1915}#
+                   #{mod 1916}#)
+                 (if (eqv? #{type 1910}# 'constant)
+                   (#{build-data 292}#
+                     #{s 1915}#
+                     (#{strip 458}#
+                       (#{source-wrap 420}#
+                         #{e 1912}#
+                         #{w 1914}#
+                         #{s 1915}#
+                         #{mod 1916}#)
                        '(())))
-                   (if (eqv? #{type 1896}# 'global)
-                     (#{build-global-reference 277}#
-                       #{s 1901}#
-                       #{value 1897}#
-                       #{mod 1902}#)
-                     (if (eqv? #{type 1896}# 'call)
-                       (#{chi-application 423}#
-                         (#{chi 419}#
-                           (car #{e 1898}#)
-                           #{r 1899}#
-                           #{w 1900}#
-                           #{mod 1902}#)
-                         #{e 1898}#
-                         #{r 1899}#
-                         #{w 1900}#
-                         #{s 1901}#
-                         #{mod 1902}#)
-                       (if (eqv? #{type 1896}# 'begin-form)
-                         (let ((#{tmp 1932}# #{e 1898}#))
-                           (let ((#{tmp 1933}#
+                   (if (eqv? #{type 1910}# 'global)
+                     (#{build-global-reference 278}#
+                       #{s 1915}#
+                       #{value 1911}#
+                       #{mod 1916}#)
+                     (if (eqv? #{type 1910}# 'call)
+                       (#{chi-application 436}#
+                         (#{chi 432}#
+                           (car #{e 1912}#)
+                           #{r 1913}#
+                           #{w 1914}#
+                           #{mod 1916}#)
+                         #{e 1912}#
+                         #{r 1913}#
+                         #{w 1914}#
+                         #{s 1915}#
+                         #{mod 1916}#)
+                       (if (eqv? #{type 1910}# 'begin-form)
+                         (let ((#{tmp 1946}# #{e 1912}#))
+                           (let ((#{tmp 1947}#
                                    ($sc-dispatch
-                                     #{tmp 1932}#
+                                     #{tmp 1946}#
                                      '(_ any . each-any))))
-                             (if #{tmp 1933}#
+                             (if #{tmp 1947}#
                                (@apply
-                                 (lambda (#{e1 1936}# #{e2 1937}#)
-                                   (#{chi-sequence 409}#
-                                     (cons #{e1 1936}# #{e2 1937}#)
-                                     #{r 1899}#
-                                     #{w 1900}#
-                                     #{s 1901}#
-                                     #{mod 1902}#))
-                                 #{tmp 1933}#)
+                                 (lambda (#{e1 1950}# #{e2 1951}#)
+                                   (#{chi-sequence 422}#
+                                     (cons #{e1 1950}# #{e2 1951}#)
+                                     #{r 1913}#
+                                     #{w 1914}#
+                                     #{s 1915}#
+                                     #{mod 1916}#))
+                                 #{tmp 1947}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any 
pattern"
-                                 #{tmp 1932}#))))
-                         (if (eqv? #{type 1896}# 'local-syntax-form)
-                           (#{chi-local-syntax 429}#
-                             #{value 1897}#
-                             #{e 1898}#
-                             #{r 1899}#
-                             #{w 1900}#
-                             #{s 1901}#
-                             #{mod 1902}#
-                             #{chi-sequence 409}#)
-                           (if (eqv? #{type 1896}# 'eval-when-form)
-                             (let ((#{tmp 1941}# #{e 1898}#))
-                               (let ((#{tmp 1942}#
+                                 #{tmp 1946}#))))
+                         (if (eqv? #{type 1910}# 'local-syntax-form)
+                           (#{chi-local-syntax 442}#
+                             #{value 1911}#
+                             #{e 1912}#
+                             #{r 1913}#
+                             #{w 1914}#
+                             #{s 1915}#
+                             #{mod 1916}#
+                             #{chi-sequence 422}#)
+                           (if (eqv? #{type 1910}# 'eval-when-form)
+                             (let ((#{tmp 1955}# #{e 1912}#))
+                               (let ((#{tmp 1956}#
                                        ($sc-dispatch
-                                         #{tmp 1941}#
+                                         #{tmp 1955}#
                                          '(_ each-any any . each-any))))
-                                 (if #{tmp 1942}#
+                                 (if #{tmp 1956}#
                                    (@apply
-                                     (lambda (#{x 1946}#
-                                              #{e1 1947}#
-                                              #{e2 1948}#)
+                                     (lambda (#{x 1960}#
+                                              #{e1 1961}#
+                                              #{e2 1962}#)
                                        (begin
-                                         (let ((#{when-list 1950}#
-                                                 (#{chi-when-list 415}#
-                                                   #{e 1898}#
-                                                   #{x 1946}#
-                                                   #{w 1900}#)))
-                                           (if (memq 'eval #{when-list 1950}#)
-                                             (#{chi-sequence 409}#
-                                               (cons #{e1 1947}# #{e2 1948}#)
-                                               #{r 1899}#
-                                               #{w 1900}#
-                                               #{s 1901}#
-                                               #{mod 1902}#)
-                                             (#{chi-void 433}#)))))
-                                     #{tmp 1942}#)
+                                         (let ((#{when-list 1964}#
+                                                 (#{chi-when-list 428}#
+                                                   #{e 1912}#
+                                                   #{x 1960}#
+                                                   #{w 1914}#)))
+                                           (if (memq 'eval #{when-list 1964}#)
+                                             (#{chi-sequence 422}#
+                                               (cons #{e1 1961}# #{e2 1962}#)
+                                               #{r 1913}#
+                                               #{w 1914}#
+                                               #{s 1915}#
+                                               #{mod 1916}#)
+                                             (#{chi-void 446}#)))))
+                                     #{tmp 1956}#)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any 
pattern"
-                                     #{tmp 1941}#))))
-                             (if (if (eqv? #{type 1896}# 'define-form)
+                                     #{tmp 1955}#))))
+                             (if (if (eqv? #{type 1910}# 'define-form)
                                    #t
-                                   (eqv? #{type 1896}# 'define-syntax-form))
+                                   (eqv? #{type 1910}# 'define-syntax-form))
                                (syntax-violation
                                  #f
                                  "definition in expression context"
-                                 #{e 1898}#
-                                 (#{wrap 405}#
-                                   #{value 1897}#
-                                   #{w 1900}#
-                                   #{mod 1902}#))
-                               (if (eqv? #{type 1896}# 'syntax)
+                                 #{e 1912}#
+                                 (#{wrap 418}#
+                                   #{value 1911}#
+                                   #{w 1914}#
+                                   #{mod 1916}#))
+                               (if (eqv? #{type 1910}# 'syntax)
                                  (syntax-violation
                                    #f
                                    "reference to pattern variable outside 
syntax form"
-                                   (#{source-wrap 407}#
-                                     #{e 1898}#
-                                     #{w 1900}#
-                                     #{s 1901}#
-                                     #{mod 1902}#))
-                                 (if (eqv? #{type 1896}# 'displaced-lexical)
+                                   (#{source-wrap 420}#
+                                     #{e 1912}#
+                                     #{w 1914}#
+                                     #{s 1915}#
+                                     #{mod 1916}#))
+                                 (if (eqv? #{type 1910}# 'displaced-lexical)
                                    (syntax-violation
                                      #f
                                      "reference to identifier outside its 
scope"
-                                     (#{source-wrap 407}#
-                                       #{e 1898}#
-                                       #{w 1900}#
-                                       #{s 1901}#
-                                       #{mod 1902}#))
+                                     (#{source-wrap 420}#
+                                       #{e 1912}#
+                                       #{w 1914}#
+                                       #{s 1915}#
+                                       #{mod 1916}#))
                                    (syntax-violation
                                      #f
                                      "unexpected syntax"
-                                     (#{source-wrap 407}#
-                                       #{e 1898}#
-                                       #{w 1900}#
-                                       #{s 1901}#
-                                       #{mod 1902}#))))))))))))))))))
-   (#{chi-application 423}#
-     (lambda (#{x 1957}#
-              #{e 1958}#
-              #{r 1959}#
-              #{w 1960}#
-              #{s 1961}#
-              #{mod 1962}#)
-       (let ((#{tmp 1969}# #{e 1958}#))
-         (let ((#{tmp 1970}#
-                 ($sc-dispatch #{tmp 1969}# '(any . each-any))))
-           (if #{tmp 1970}#
+                                     (#{source-wrap 420}#
+                                       #{e 1912}#
+                                       #{w 1914}#
+                                       #{s 1915}#
+                                       #{mod 1916}#))))))))))))))))))
+   (#{chi-application 436}#
+     (lambda (#{x 1971}#
+              #{e 1972}#
+              #{r 1973}#
+              #{w 1974}#
+              #{s 1975}#
+              #{mod 1976}#)
+       (let ((#{tmp 1983}# #{e 1972}#))
+         (let ((#{tmp 1984}#
+                 ($sc-dispatch #{tmp 1983}# '(any . each-any))))
+           (if #{tmp 1984}#
              (@apply
-               (lambda (#{e0 1973}# #{e1 1974}#)
-                 (#{build-application 265}#
-                   #{s 1961}#
-                   #{x 1957}#
-                   (map (lambda (#{e 1975}#)
-                          (#{chi 419}#
-                            #{e 1975}#
-                            #{r 1959}#
-                            #{w 1960}#
-                            #{mod 1962}#))
-                        #{e1 1974}#)))
-               #{tmp 1970}#)
+               (lambda (#{e0 1987}# #{e1 1988}#)
+                 (#{build-application 266}#
+                   #{s 1975}#
+                   #{x 1971}#
+                   (map (lambda (#{e 1989}#)
+                          (#{chi 432}#
+                            #{e 1989}#
+                            #{r 1973}#
+                            #{w 1974}#
+                            #{mod 1976}#))
+                        #{e1 1988}#)))
+               #{tmp 1984}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
-               #{tmp 1969}#))))))
-   (#{chi-macro 425}#
-     (lambda (#{p 1978}#
-              #{e 1979}#
-              #{r 1980}#
-              #{w 1981}#
-              #{s 1982}#
-              #{rib 1983}#
-              #{mod 1984}#)
+               #{tmp 1983}#))))))
+   (#{chi-macro 438}#
+     (lambda (#{p 1992}#
+              #{e 1993}#
+              #{r 1994}#
+              #{w 1995}#
+              #{s 1996}#
+              #{rib 1997}#
+              #{mod 1998}#)
        (letrec*
-         ((#{rebuild-macro-output 1993}#
-            (lambda (#{x 1994}# #{m 1995}#)
-              (if (pair? #{x 1994}#)
-                (#{decorate-source 259}#
-                  (cons (#{rebuild-macro-output 1993}#
-                          (car #{x 1994}#)
-                          #{m 1995}#)
-                        (#{rebuild-macro-output 1993}#
-                          (cdr #{x 1994}#)
-                          #{m 1995}#))
-                  #{s 1982}#)
-                (if (#{syntax-object? 305}# #{x 1994}#)
+         ((#{rebuild-macro-output 2007}#
+            (lambda (#{x 2008}# #{m 2009}#)
+              (if (pair? #{x 2008}#)
+                (#{decorate-source 260}#
+                  (cons (#{rebuild-macro-output 2007}#
+                          (car #{x 2008}#)
+                          #{m 2009}#)
+                        (#{rebuild-macro-output 2007}#
+                          (cdr #{x 2008}#)
+                          #{m 2009}#))
+                  #{s 1996}#)
+                (if (#{syntax-object? 307}# #{x 2008}#)
                   (begin
-                    (let ((#{w 2003}#
-                            (#{syntax-object-wrap 309}# #{x 1994}#)))
+                    (let ((#{w 2017}#
+                            (#{syntax-object-wrap 311}# #{x 2008}#)))
                       (begin
-                        (let ((#{ms 2006}# (car #{w 2003}#))
-                              (#{s 2007}# (cdr #{w 2003}#)))
-                          (if (if (pair? #{ms 2006}#)
-                                (eq? (car #{ms 2006}#) #f)
+                        (let ((#{ms 2020}# (car #{w 2017}#))
+                              (#{s 2021}# (cdr #{w 2017}#)))
+                          (if (if (pair? #{ms 2020}#)
+                                (eq? (car #{ms 2020}#) #f)
                                 #f)
-                            (#{make-syntax-object 303}#
-                              (#{syntax-object-expression 307}# #{x 1994}#)
-                              (cons (cdr #{ms 2006}#)
-                                    (if #{rib 1983}#
-                                      (cons #{rib 1983}# (cdr #{s 2007}#))
-                                      (cdr #{s 2007}#)))
-                              (#{syntax-object-module 311}# #{x 1994}#))
-                            (#{make-syntax-object 303}#
-                              (#{decorate-source 259}#
-                                (#{syntax-object-expression 307}# #{x 1994}#)
-                                #{s 2007}#)
-                              (cons (cons #{m 1995}# #{ms 2006}#)
-                                    (if #{rib 1983}#
-                                      (cons #{rib 1983}#
-                                            (cons 'shift #{s 2007}#))
-                                      (cons 'shift #{s 2007}#)))
-                              (#{syntax-object-module 311}# #{x 1994}#)))))))
-                  (if (vector? #{x 1994}#)
+                            (#{make-syntax-object 305}#
+                              (#{syntax-object-expression 309}# #{x 2008}#)
+                              (cons (cdr #{ms 2020}#)
+                                    (if #{rib 1997}#
+                                      (cons #{rib 1997}# (cdr #{s 2021}#))
+                                      (cdr #{s 2021}#)))
+                              (#{syntax-object-module 313}# #{x 2008}#))
+                            (#{make-syntax-object 305}#
+                              (#{decorate-source 260}#
+                                (#{syntax-object-expression 309}# #{x 2008}#)
+                                #{s 2021}#)
+                              (cons (cons #{m 2009}# #{ms 2020}#)
+                                    (if #{rib 1997}#
+                                      (cons #{rib 1997}#
+                                            (cons 'shift #{s 2021}#))
+                                      (cons 'shift #{s 2021}#)))
+                              (#{syntax-object-module 313}# #{x 2008}#)))))))
+                  (if (vector? #{x 2008}#)
                     (begin
-                      (let ((#{n 2019}# (vector-length #{x 1994}#)))
+                      (let ((#{n 2033}# (vector-length #{x 2008}#)))
                         (begin
-                          (let ((#{v 2021}#
-                                  (#{decorate-source 259}#
-                                    (make-vector #{n 2019}#)
-                                    #{x 1994}#)))
+                          (let ((#{v 2035}#
+                                  (#{decorate-source 260}#
+                                    (make-vector #{n 2033}#)
+                                    #{x 2008}#)))
                             (letrec*
-                              ((#{loop 2024}#
-                                 (lambda (#{i 2025}#)
-                                   (if (= #{i 2025}# #{n 2019}#)
-                                     (begin (if #f #f) #{v 2021}#)
+                              ((#{loop 2038}#
+                                 (lambda (#{i 2039}#)
+                                   (if (= #{i 2039}# #{n 2033}#)
+                                     (begin (if #f #f) #{v 2035}#)
                                      (begin
                                        (vector-set!
-                                         #{v 2021}#
-                                         #{i 2025}#
-                                         (#{rebuild-macro-output 1993}#
-                                           (vector-ref #{x 1994}# #{i 2025}#)
-                                           #{m 1995}#))
-                                       (#{loop 2024}# (#{1+}# #{i 2025}#)))))))
-                              (begin (#{loop 2024}# 0)))))))
-                    (if (symbol? #{x 1994}#)
+                                         #{v 2035}#
+                                         #{i 2039}#
+                                         (#{rebuild-macro-output 2007}#
+                                           (vector-ref #{x 2008}# #{i 2039}#)
+                                           #{m 2009}#))
+                                       (#{loop 2038}# (#{1+}# #{i 2039}#)))))))
+                              (begin (#{loop 2038}# 0)))))))
+                    (if (symbol? #{x 2008}#)
                       (syntax-violation
                         #f
                         "encountered raw symbol in macro output"
-                        (#{source-wrap 407}#
-                          #{e 1979}#
-                          #{w 1981}#
-                          (cdr #{w 1981}#)
-                          #{mod 1984}#)
-                        #{x 1994}#)
-                      (#{decorate-source 259}# #{x 1994}# #{s 1982}#))))))))
+                        (#{source-wrap 420}#
+                          #{e 1993}#
+                          #{w 1995}#
+                          (cdr #{w 1995}#)
+                          #{mod 1998}#)
+                        #{x 2008}#)
+                      (#{decorate-source 260}# #{x 2008}# #{s 1996}#))))))))
          (begin
-           (#{rebuild-macro-output 1993}#
-             (#{p 1978}#
-               (#{source-wrap 407}#
-                 #{e 1979}#
-                 (#{anti-mark 377}# #{w 1981}#)
-                 #{s 1982}#
-                 #{mod 1984}#))
+           (#{rebuild-macro-output 2007}#
+             (#{p 1992}#
+               (#{source-wrap 420}#
+                 #{e 1993}#
+                 (#{anti-mark 388}# #{w 1995}#)
+                 #{s 1996}#
+                 #{mod 1998}#))
              (gensym "m"))))))
-   (#{chi-body 427}#
-     (lambda (#{body 2035}#
-              #{outer-form 2036}#
-              #{r 2037}#
-              #{w 2038}#
-              #{mod 2039}#)
+   (#{chi-body 440}#
+     (lambda (#{body 2049}#
+              #{outer-form 2050}#
+              #{r 2051}#
+              #{w 2052}#
+              #{mod 2053}#)
        (begin
-         (let ((#{r 2047}#
-                 (cons '("placeholder" placeholder) #{r 2037}#)))
+         (let ((#{r 2061}#
+                 (cons '("placeholder" placeholder) #{r 2051}#)))
            (begin
-             (let ((#{ribcage 2049}#
-                     (#{make-ribcage 357}# '() '() '())))
+             (let ((#{ribcage 2063}#
+                     (#{make-ribcage 367}# '() '() '())))
                (begin
-                 (let ((#{w 2052}#
-                         (cons (car #{w 2038}#)
-                               (cons #{ribcage 2049}# (cdr #{w 2038}#)))))
+                 (let ((#{w 2066}#
+                         (cons (car #{w 2052}#)
+                               (cons #{ribcage 2063}# (cdr #{w 2052}#)))))
                    (letrec*
-                     ((#{parse 2064}#
-                        (lambda (#{body 2065}#
-                                 #{ids 2066}#
-                                 #{labels 2067}#
-                                 #{var-ids 2068}#
-                                 #{vars 2069}#
-                                 #{vals 2070}#
-                                 #{bindings 2071}#)
-                          (if (null? #{body 2065}#)
+                     ((#{parse 2078}#
+                        (lambda (#{body 2079}#
+                                 #{ids 2080}#
+                                 #{labels 2081}#
+                                 #{var-ids 2082}#
+                                 #{vars 2083}#
+                                 #{vals 2084}#
+                                 #{bindings 2085}#)
+                          (if (null? #{body 2079}#)
                             (syntax-violation
                               #f
                               "no expressions in body"
-                              #{outer-form 2036}#)
+                              #{outer-form 2050}#)
                             (begin
-                              (let ((#{e 2076}# (cdr (car #{body 2065}#)))
-                                    (#{er 2077}# (car (car #{body 2065}#))))
+                              (let ((#{e 2090}# (cdr (car #{body 2079}#)))
+                                    (#{er 2091}# (car (car #{body 2079}#))))
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type 417}#
-                                      #{e 2076}#
-                                      #{er 2077}#
+                                    (#{syntax-type 430}#
+                                      #{e 2090}#
+                                      #{er 2091}#
                                       '(())
-                                      (#{source-annotation 320}# #{er 2077}#)
-                                      #{ribcage 2049}#
-                                      #{mod 2039}#
+                                      (#{source-annotation 322}# #{er 2091}#)
+                                      #{ribcage 2063}#
+                                      #{mod 2053}#
                                       #f))
-                                  (lambda (#{type 2079}#
-                                           #{value 2080}#
-                                           #{e 2081}#
-                                           #{w 2082}#
-                                           #{s 2083}#
-                                           #{mod 2084}#)
-                                    (if (eqv? #{type 2079}# 'define-form)
+                                  (lambda (#{type 2093}#
+                                           #{value 2094}#
+                                           #{e 2095}#
+                                           #{w 2096}#
+                                           #{s 2097}#
+                                           #{mod 2098}#)
+                                    (if (eqv? #{type 2093}# 'define-form)
                                       (begin
-                                        (let ((#{id 2094}#
-                                                (#{wrap 405}#
-                                                  #{value 2080}#
-                                                  #{w 2082}#
-                                                  #{mod 2084}#))
-                                              (#{label 2095}#
-                                                (#{gen-label 352}#)))
+                                        (let ((#{id 2108}#
+                                                (#{wrap 418}#
+                                                  #{value 2094}#
+                                                  #{w 2096}#
+                                                  #{mod 2098}#))
+                                              (#{label 2109}#
+                                                (#{gen-label 362}#)))
                                           (begin
-                                            (let ((#{var 2097}#
-                                                    (#{gen-var 447}#
-                                                      #{id 2094}#)))
+                                            (let ((#{var 2111}#
+                                                    (#{gen-var 460}#
+                                                      #{id 2108}#)))
                                               (begin
-                                                (#{extend-ribcage! 381}#
-                                                  #{ribcage 2049}#
-                                                  #{id 2094}#
-                                                  #{label 2095}#)
-                                                (#{parse 2064}#
-                                                  (cdr #{body 2065}#)
-                                                  (cons #{id 2094}#
-                                                        #{ids 2066}#)
-                                                  (cons #{label 2095}#
-                                                        #{labels 2067}#)
-                                                  (cons #{id 2094}#
-                                                        #{var-ids 2068}#)
-                                                  (cons #{var 2097}#
-                                                        #{vars 2069}#)
-                                                  (cons (cons #{er 2077}#
-                                                              (#{wrap 405}#
-                                                                #{e 2081}#
-                                                                #{w 2082}#
-                                                                #{mod 2084}#))
-                                                        #{vals 2070}#)
+                                                (#{extend-ribcage! 394}#
+                                                  #{ribcage 2063}#
+                                                  #{id 2108}#
+                                                  #{label 2109}#)
+                                                (#{parse 2078}#
+                                                  (cdr #{body 2079}#)
+                                                  (cons #{id 2108}#
+                                                        #{ids 2080}#)
+                                                  (cons #{label 2109}#
+                                                        #{labels 2081}#)
+                                                  (cons #{id 2108}#
+                                                        #{var-ids 2082}#)
+                                                  (cons #{var 2111}#
+                                                        #{vars 2083}#)
+                                                  (cons (cons #{er 2091}#
+                                                              (#{wrap 418}#
+                                                                #{e 2095}#
+                                                                #{w 2096}#
+                                                                #{mod 2098}#))
+                                                        #{vals 2084}#)
                                                   (cons (cons 'lexical
-                                                              #{var 2097}#)
-                                                        #{bindings 
2071}#)))))))
-                                      (if (eqv? #{type 2079}#
+                                                              #{var 2111}#)
+                                                        #{bindings 
2085}#)))))))
+                                      (if (eqv? #{type 2093}#
                                                 'define-syntax-form)
                                         (begin
-                                          (let ((#{id 2102}#
-                                                  (#{wrap 405}#
-                                                    #{value 2080}#
-                                                    #{w 2082}#
-                                                    #{mod 2084}#))
-                                                (#{label 2103}#
-                                                  (#{gen-label 352}#)))
+                                          (let ((#{id 2116}#
+                                                  (#{wrap 418}#
+                                                    #{value 2094}#
+                                                    #{w 2096}#
+                                                    #{mod 2098}#))
+                                                (#{label 2117}#
+                                                  (#{gen-label 362}#)))
                                             (begin
-                                              (#{extend-ribcage! 381}#
-                                                #{ribcage 2049}#
-                                                #{id 2102}#
-                                                #{label 2103}#)
-                                              (#{parse 2064}#
-                                                (cdr #{body 2065}#)
-                                                (cons #{id 2102}# #{ids 2066}#)
-                                                (cons #{label 2103}#
-                                                      #{labels 2067}#)
-                                                #{var-ids 2068}#
-                                                #{vars 2069}#
-                                                #{vals 2070}#
+                                              (#{extend-ribcage! 394}#
+                                                #{ribcage 2063}#
+                                                #{id 2116}#
+                                                #{label 2117}#)
+                                              (#{parse 2078}#
+                                                (cdr #{body 2079}#)
+                                                (cons #{id 2116}# #{ids 2080}#)
+                                                (cons #{label 2117}#
+                                                      #{labels 2081}#)
+                                                #{var-ids 2082}#
+                                                #{vars 2083}#
+                                                #{vals 2084}#
                                                 (cons (cons 'macro
-                                                            (cons #{er 2077}#
-                                                                  (#{wrap 405}#
-                                                                    #{e 2081}#
-                                                                    #{w 2082}#
-                                                                    #{mod 
2084}#)))
-                                                      #{bindings 2071}#)))))
-                                        (if (eqv? #{type 2079}# 'begin-form)
-                                          (let ((#{tmp 2106}# #{e 2081}#))
-                                            (let ((#{tmp 2107}#
+                                                            (cons #{er 2091}#
+                                                                  (#{wrap 418}#
+                                                                    #{e 2095}#
+                                                                    #{w 2096}#
+                                                                    #{mod 
2098}#)))
+                                                      #{bindings 2085}#)))))
+                                        (if (eqv? #{type 2093}# 'begin-form)
+                                          (let ((#{tmp 2120}# #{e 2095}#))
+                                            (let ((#{tmp 2121}#
                                                     ($sc-dispatch
-                                                      #{tmp 2106}#
+                                                      #{tmp 2120}#
                                                       '(_ . each-any))))
-                                              (if #{tmp 2107}#
+                                              (if #{tmp 2121}#
                                                 (@apply
-                                                  (lambda (#{e1 2109}#)
-                                                    (#{parse 2064}#
+                                                  (lambda (#{e1 2123}#)
+                                                    (#{parse 2078}#
                                                       (letrec*
-                                                        ((#{f 2112}#
-                                                           (lambda (#{forms 
2113}#)
-                                                             (if (null? 
#{forms 2113}#)
-                                                               (cdr #{body 
2065}#)
-                                                               (cons (cons 
#{er 2077}#
-                                                                           
(#{wrap 405}#
-                                                                             
(car #{forms 2113}#)
-                                                                             
#{w 2082}#
-                                                                             
#{mod 2084}#))
-                                                                     (#{f 
2112}#
-                                                                       (cdr 
#{forms 2113}#)))))))
+                                                        ((#{f 2126}#
+                                                           (lambda (#{forms 
2127}#)
+                                                             (if (null? 
#{forms 2127}#)
+                                                               (cdr #{body 
2079}#)
+                                                               (cons (cons 
#{er 2091}#
+                                                                           
(#{wrap 418}#
+                                                                             
(car #{forms 2127}#)
+                                                                             
#{w 2096}#
+                                                                             
#{mod 2098}#))
+                                                                     (#{f 
2126}#
+                                                                       (cdr 
#{forms 2127}#)))))))
                                                         (begin
-                                                          (#{f 2112}#
-                                                            #{e1 2109}#)))
-                                                      #{ids 2066}#
-                                                      #{labels 2067}#
-                                                      #{var-ids 2068}#
-                                                      #{vars 2069}#
-                                                      #{vals 2070}#
-                                                      #{bindings 2071}#))
-                                                  #{tmp 2107}#)
+                                                          (#{f 2126}#
+                                                            #{e1 2123}#)))
+                                                      #{ids 2080}#
+                                                      #{labels 2081}#
+                                                      #{var-ids 2082}#
+                                                      #{vars 2083}#
+                                                      #{vals 2084}#
+                                                      #{bindings 2085}#))
+                                                  #{tmp 2121}#)
                                                 (syntax-violation
                                                   #f
                                                   "source expression failed to 
match any pattern"
-                                                  #{tmp 2106}#))))
-                                          (if (eqv? #{type 2079}#
+                                                  #{tmp 2120}#))))
+                                          (if (eqv? #{type 2093}#
                                                     'local-syntax-form)
-                                            (#{chi-local-syntax 429}#
-                                              #{value 2080}#
-                                              #{e 2081}#
-                                              #{er 2077}#
-                                              #{w 2082}#
-                                              #{s 2083}#
-                                              #{mod 2084}#
-                                              (lambda (#{forms 2116}#
-                                                       #{er 2117}#
-                                                       #{w 2118}#
-                                                       #{s 2119}#
-                                                       #{mod 2120}#)
-                                                (#{parse 2064}#
+                                            (#{chi-local-syntax 442}#
+                                              #{value 2094}#
+                                              #{e 2095}#
+                                              #{er 2091}#
+                                              #{w 2096}#
+                                              #{s 2097}#
+                                              #{mod 2098}#
+                                              (lambda (#{forms 2130}#
+                                                       #{er 2131}#
+                                                       #{w 2132}#
+                                                       #{s 2133}#
+                                                       #{mod 2134}#)
+                                                (#{parse 2078}#
                                                   (letrec*
-                                                    ((#{f 2128}#
-                                                       (lambda (#{forms 2129}#)
-                                                         (if (null? #{forms 
2129}#)
-                                                           (cdr #{body 2065}#)
-                                                           (cons (cons #{er 
2117}#
-                                                                       (#{wrap 
405}#
-                                                                         (car 
#{forms 2129}#)
-                                                                         #{w 
2118}#
-                                                                         #{mod 
2120}#))
-                                                                 (#{f 2128}#
-                                                                   (cdr 
#{forms 2129}#)))))))
+                                                    ((#{f 2142}#
+                                                       (lambda (#{forms 2143}#)
+                                                         (if (null? #{forms 
2143}#)
+                                                           (cdr #{body 2079}#)
+                                                           (cons (cons #{er 
2131}#
+                                                                       (#{wrap 
418}#
+                                                                         (car 
#{forms 2143}#)
+                                                                         #{w 
2132}#
+                                                                         #{mod 
2134}#))
+                                                                 (#{f 2142}#
+                                                                   (cdr 
#{forms 2143}#)))))))
                                                     (begin
-                                                      (#{f 2128}#
-                                                        #{forms 2116}#)))
-                                                  #{ids 2066}#
-                                                  #{labels 2067}#
-                                                  #{var-ids 2068}#
-                                                  #{vars 2069}#
-                                                  #{vals 2070}#
-                                                  #{bindings 2071}#)))
-                                            (if (null? #{ids 2066}#)
-                                              (#{build-sequence 293}#
+                                                      (#{f 2142}#
+                                                        #{forms 2130}#)))
+                                                  #{ids 2080}#
+                                                  #{labels 2081}#
+                                                  #{var-ids 2082}#
+                                                  #{vars 2083}#
+                                                  #{vals 2084}#
+                                                  #{bindings 2085}#)))
+                                            (if (null? #{ids 2080}#)
+                                              (#{build-sequence 294}#
                                                 #f
-                                                (map (lambda (#{x 2132}#)
-                                                       (#{chi 419}#
-                                                         (cdr #{x 2132}#)
-                                                         (car #{x 2132}#)
+                                                (map (lambda (#{x 2146}#)
+                                                       (#{chi 432}#
+                                                         (cdr #{x 2146}#)
+                                                         (car #{x 2146}#)
                                                          '(())
-                                                         #{mod 2084}#))
-                                                     (cons (cons #{er 2077}#
-                                                                 
(#{source-wrap 407}#
-                                                                   #{e 2081}#
-                                                                   #{w 2082}#
-                                                                   #{s 2083}#
-                                                                   #{mod 
2084}#))
-                                                           (cdr #{body 
2065}#))))
+                                                         #{mod 2098}#))
+                                                     (cons (cons #{er 2091}#
+                                                                 
(#{source-wrap 420}#
+                                                                   #{e 2095}#
+                                                                   #{w 2096}#
+                                                                   #{s 2097}#
+                                                                   #{mod 
2098}#))
+                                                           (cdr #{body 
2079}#))))
                                               (begin
-                                                (if (not (#{valid-bound-ids? 
399}#
-                                                           #{ids 2066}#))
+                                                (if (not (#{valid-bound-ids? 
412}#
+                                                           #{ids 2080}#))
                                                   (syntax-violation
                                                     #f
                                                     "invalid or duplicate 
identifier in definition"
-                                                    #{outer-form 2036}#))
+                                                    #{outer-form 2050}#))
                                                 (letrec*
-                                                  ((#{loop 2139}#
-                                                     (lambda (#{bs 2140}#
-                                                              #{er-cache 2141}#
-                                                              #{r-cache 2142}#)
-                                                       (if (not (null? #{bs 
2140}#))
+                                                  ((#{loop 2153}#
+                                                     (lambda (#{bs 2154}#
+                                                              #{er-cache 2155}#
+                                                              #{r-cache 2156}#)
+                                                       (if (not (null? #{bs 
2154}#))
                                                          (begin
-                                                           (let ((#{b 2145}#
-                                                                   (car #{bs 
2140}#)))
-                                                             (if (eq? (car #{b 
2145}#)
+                                                           (let ((#{b 2159}#
+                                                                   (car #{bs 
2154}#)))
+                                                             (if (eq? (car #{b 
2159}#)
                                                                       'macro)
                                                                (begin
-                                                                 (let ((#{er 
2148}#
-                                                                         (car 
(cdr #{b 2145}#))))
+                                                                 (let ((#{er 
2162}#
+                                                                         (car 
(cdr #{b 2159}#))))
                                                                    (begin
-                                                                     (let 
((#{r-cache 2150}#
-                                                                             
(if (eq? #{er 2148}#
-                                                                               
       #{er-cache 2141}#)
-                                                                               
#{r-cache 2142}#
-                                                                               
(#{macros-only-env 331}#
-                                                                               
  #{er 2148}#))))
+                                                                     (let 
((#{r-cache 2164}#
+                                                                             
(if (eq? #{er 2162}#
+                                                                               
       #{er-cache 2155}#)
+                                                                               
#{r-cache 2156}#
+                                                                               
(#{macros-only-env 336}#
+                                                                               
  #{er 2162}#))))
                                                                        (begin
                                                                          
(set-cdr!
-                                                                           #{b 
2145}#
-                                                                           
(#{eval-local-transformer 431}#
-                                                                             
(#{chi 419}#
-                                                                               
(cdr (cdr #{b 2145}#))
-                                                                               
#{r-cache 2150}#
+                                                                           #{b 
2159}#
+                                                                           
(#{eval-local-transformer 444}#
+                                                                             
(#{chi 432}#
+                                                                               
(cdr (cdr #{b 2159}#))
+                                                                               
#{r-cache 2164}#
                                                                                
'(())
-                                                                               
#{mod 2084}#)
-                                                                             
#{mod 2084}#))
-                                                                         
(#{loop 2139}#
-                                                                           
(cdr #{bs 2140}#)
-                                                                           
#{er 2148}#
-                                                                           
#{r-cache 2150}#))))))
-                                                               (#{loop 2139}#
-                                                                 (cdr #{bs 
2140}#)
-                                                                 #{er-cache 
2141}#
-                                                                 #{r-cache 
2142}#))))))))
+                                                                               
#{mod 2098}#)
+                                                                             
#{mod 2098}#))
+                                                                         
(#{loop 2153}#
+                                                                           
(cdr #{bs 2154}#)
+                                                                           
#{er 2162}#
+                                                                           
#{r-cache 2164}#))))))
+                                                               (#{loop 2153}#
+                                                                 (cdr #{bs 
2154}#)
+                                                                 #{er-cache 
2155}#
+                                                                 #{r-cache 
2156}#))))))))
                                                   (begin
-                                                    (#{loop 2139}#
-                                                      #{bindings 2071}#
+                                                    (#{loop 2153}#
+                                                      #{bindings 2085}#
                                                       #f
                                                       #f)))
                                                 (set-cdr!
-                                                  #{r 2047}#
-                                                  (#{extend-env 327}#
-                                                    #{labels 2067}#
-                                                    #{bindings 2071}#
-                                                    (cdr #{r 2047}#)))
-                                                (#{build-letrec 299}#
+                                                  #{r 2061}#
+                                                  (#{extend-env 332}#
+                                                    #{labels 2081}#
+                                                    #{bindings 2085}#
+                                                    (cdr #{r 2061}#)))
+                                                (#{build-letrec 300}#
                                                   #f
                                                   #t
                                                   (reverse
                                                     (map syntax->datum
-                                                         #{var-ids 2068}#))
-                                                  (reverse #{vars 2069}#)
-                                                  (map (lambda (#{x 2153}#)
-                                                         (#{chi 419}#
-                                                           (cdr #{x 2153}#)
-                                                           (car #{x 2153}#)
+                                                         #{var-ids 2082}#))
+                                                  (reverse #{vars 2083}#)
+                                                  (map (lambda (#{x 2167}#)
+                                                         (#{chi 432}#
+                                                           (cdr #{x 2167}#)
+                                                           (car #{x 2167}#)
                                                            '(())
-                                                           #{mod 2084}#))
-                                                       (reverse #{vals 2070}#))
-                                                  (#{build-sequence 293}#
+                                                           #{mod 2098}#))
+                                                       (reverse #{vals 2084}#))
+                                                  (#{build-sequence 294}#
                                                     #f
-                                                    (map (lambda (#{x 2157}#)
-                                                           (#{chi 419}#
-                                                             (cdr #{x 2157}#)
-                                                             (car #{x 2157}#)
+                                                    (map (lambda (#{x 2171}#)
+                                                           (#{chi 432}#
+                                                             (cdr #{x 2171}#)
+                                                             (car #{x 2171}#)
                                                              '(())
-                                                             #{mod 2084}#))
-                                                         (cons (cons #{er 
2077}#
-                                                                     
(#{source-wrap 407}#
-                                                                       #{e 
2081}#
-                                                                       #{w 
2082}#
-                                                                       #{s 
2083}#
-                                                                       #{mod 
2084}#))
-                                                               (cdr #{body 
2065}#)))))))))))))))))))
+                                                             #{mod 2098}#))
+                                                         (cons (cons #{er 
2091}#
+                                                                     
(#{source-wrap 420}#
+                                                                       #{e 
2095}#
+                                                                       #{w 
2096}#
+                                                                       #{s 
2097}#
+                                                                       #{mod 
2098}#))
+                                                               (cdr #{body 
2079}#)))))))))))))))))))
                      (begin
-                       (#{parse 2064}#
-                         (map (lambda (#{x 2072}#)
-                                (cons #{r 2047}#
-                                      (#{wrap 405}#
-                                        #{x 2072}#
-                                        #{w 2052}#
-                                        #{mod 2039}#)))
-                              #{body 2035}#)
+                       (#{parse 2078}#
+                         (map (lambda (#{x 2086}#)
+                                (cons #{r 2061}#
+                                      (#{wrap 418}#
+                                        #{x 2086}#
+                                        #{w 2066}#
+                                        #{mod 2053}#)))
+                              #{body 2049}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))))))
-   (#{chi-local-syntax 429}#
-     (lambda (#{rec? 2160}#
-              #{e 2161}#
-              #{r 2162}#
-              #{w 2163}#
-              #{s 2164}#
-              #{mod 2165}#
-              #{k 2166}#)
-       (let ((#{tmp 2174}# #{e 2161}#))
-         (let ((#{tmp 2175}#
+   (#{chi-local-syntax 442}#
+     (lambda (#{rec? 2174}#
+              #{e 2175}#
+              #{r 2176}#
+              #{w 2177}#
+              #{s 2178}#
+              #{mod 2179}#
+              #{k 2180}#)
+       (let ((#{tmp 2188}# #{e 2175}#))
+         (let ((#{tmp 2189}#
                  ($sc-dispatch
-                   #{tmp 2174}#
+                   #{tmp 2188}#
                    '(_ #(each (any any)) any . each-any))))
-           (if #{tmp 2175}#
+           (if #{tmp 2189}#
              (@apply
-               (lambda (#{id 2180}#
-                        #{val 2181}#
-                        #{e1 2182}#
-                        #{e2 2183}#)
+               (lambda (#{id 2194}#
+                        #{val 2195}#
+                        #{e1 2196}#
+                        #{e2 2197}#)
                  (begin
-                   (let ((#{ids 2185}# #{id 2180}#))
-                     (if (not (#{valid-bound-ids? 399}# #{ids 2185}#))
+                   (let ((#{ids 2199}# #{id 2194}#))
+                     (if (not (#{valid-bound-ids? 412}# #{ids 2199}#))
                        (syntax-violation
                          #f
                          "duplicate bound keyword"
-                         #{e 2161}#)
+                         #{e 2175}#)
                        (begin
-                         (let ((#{labels 2188}#
-                                 (#{gen-labels 354}# #{ids 2185}#)))
+                         (let ((#{labels 2202}#
+                                 (#{gen-labels 364}# #{ids 2199}#)))
                            (begin
-                             (let ((#{new-w 2190}#
-                                     (#{make-binding-wrap 383}#
-                                       #{ids 2185}#
-                                       #{labels 2188}#
-                                       #{w 2163}#)))
-                               (#{k 2166}#
-                                 (cons #{e1 2182}# #{e2 2183}#)
-                                 (#{extend-env 327}#
-                                   #{labels 2188}#
+                             (let ((#{new-w 2204}#
+                                     (#{make-binding-wrap 396}#
+                                       #{ids 2199}#
+                                       #{labels 2202}#
+                                       #{w 2177}#)))
+                               (#{k 2180}#
+                                 (cons #{e1 2196}# #{e2 2197}#)
+                                 (#{extend-env 332}#
+                                   #{labels 2202}#
                                    (begin
-                                     (let ((#{w 2194}#
-                                             (if #{rec? 2160}#
-                                               #{new-w 2190}#
-                                               #{w 2163}#))
-                                           (#{trans-r 2195}#
-                                             (#{macros-only-env 331}#
-                                               #{r 2162}#)))
-                                       (map (lambda (#{x 2196}#)
+                                     (let ((#{w 2208}#
+                                             (if #{rec? 2174}#
+                                               #{new-w 2204}#
+                                               #{w 2177}#))
+                                           (#{trans-r 2209}#
+                                             (#{macros-only-env 336}#
+                                               #{r 2176}#)))
+                                       (map (lambda (#{x 2210}#)
                                               (cons 'macro
-                                                    (#{eval-local-transformer 
431}#
-                                                      (#{chi 419}#
-                                                        #{x 2196}#
-                                                        #{trans-r 2195}#
-                                                        #{w 2194}#
-                                                        #{mod 2165}#)
-                                                      #{mod 2165}#)))
-                                            #{val 2181}#)))
-                                   #{r 2162}#)
-                                 #{new-w 2190}#
-                                 #{s 2164}#
-                                 #{mod 2165}#)))))))))
-               #{tmp 2175}#)
-             (let ((#{_ 2201}# #{tmp 2174}#))
+                                                    (#{eval-local-transformer 
444}#
+                                                      (#{chi 432}#
+                                                        #{x 2210}#
+                                                        #{trans-r 2209}#
+                                                        #{w 2208}#
+                                                        #{mod 2179}#)
+                                                      #{mod 2179}#)))
+                                            #{val 2195}#)))
+                                   #{r 2176}#)
+                                 #{new-w 2204}#
+                                 #{s 2178}#
+                                 #{mod 2179}#)))))))))
+               #{tmp 2189}#)
+             (let ((#{_ 2215}# #{tmp 2188}#))
                (syntax-violation
                  #f
                  "bad local syntax definition"
-                 (#{source-wrap 407}#
-                   #{e 2161}#
-                   #{w 2163}#
-                   #{s 2164}#
-                   #{mod 2165}#))))))))
-   (#{eval-local-transformer 431}#
-     (lambda (#{expanded 2202}# #{mod 2203}#)
+                 (#{source-wrap 420}#
+                   #{e 2175}#
+                   #{w 2177}#
+                   #{s 2178}#
+                   #{mod 2179}#))))))))
+   (#{eval-local-transformer 444}#
+     (lambda (#{expanded 2216}# #{mod 2217}#)
        (begin
-         (let ((#{p 2207}#
+         (let ((#{p 2221}#
                  (#{local-eval-hook 252}#
-                   #{expanded 2202}#
-                   #{mod 2203}#)))
-           (if (procedure? #{p 2207}#)
-             #{p 2207}#
+                   #{expanded 2216}#
+                   #{mod 2217}#)))
+           (if (procedure? #{p 2221}#)
+             #{p 2221}#
              (syntax-violation
                #f
                "nonprocedure transformer"
-               #{p 2207}#))))))
-   (#{chi-void 433}#
-     (lambda () (#{build-void 263}# #f)))
-   (#{ellipsis? 435}#
-     (lambda (#{x 2209}#)
-       (if (#{nonsymbol-id? 337}# #{x 2209}#)
-         (#{free-id=? 395}#
-           #{x 2209}#
+               #{p 2221}#))))))
+   (#{chi-void 446}#
+     (lambda () (#{build-void 264}# #f)))
+   (#{ellipsis? 448}#
+     (lambda (#{x 2223}#)
+       (if (#{nonsymbol-id? 342}# #{x 2223}#)
+         (#{free-id=? 408}#
+           #{x 2223}#
            '#(syntax-object
               ...
               ((top)
                #(ribcage () () ())
                #(ribcage () () ())
-               #(ribcage #(x) #((top)) #("i2210"))
+               #(ribcage #(x) #((top)) #("i2224"))
                #(ribcage
                  (lambda-var-list
                    gen-var
@@ -6597,81 +6597,82 @@
                   (top)
                   (top)
                   (top))
-                 ("i448"
-                  "i446"
-                  "i444"
-                  "i442"
-                  "i440"
-                  "i438"
-                  "i436"
-                  "i434"
-                  "i432"
-                  "i430"
-                  "i428"
-                  "i426"
-                  "i424"
-                  "i422"
-                  "i420"
-                  "i418"
-                  "i416"
-                  "i414"
-                  "i412"
-                  "i410"
-                  "i408"
-                  "i406"
-                  "i404"
-                  "i402"
-                  "i400"
-                  "i398"
-                  "i396"
-                  "i394"
+                 ("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"
+                  "i397"
+                  "i395"
+                  "i393"
                   "i392"
                   "i390"
-                  "i388"
+                  "i387"
                   "i386"
-                  "i384"
+                  "i385"
+                  "i383"
                   "i382"
                   "i380"
-                  "i379"
                   "i378"
                   "i376"
-                  "i375"
                   "i374"
-                  "i373"
                   "i372"
                   "i370"
                   "i368"
                   "i366"
-                  "i364"
-                  "i362"
+                  "i363"
+                  "i361"
                   "i360"
                   "i358"
                   "i356"
-                  "i353"
+                  "i354"
+                  "i352"
                   "i351"
                   "i350"
                   "i349"
-                  "i348"
                   "i347"
                   "i346"
-                  "i345"
-                  "i344"
                   "i343"
                   "i341"
-                  "i340"
-                  "i338"
-                  "i336"
-                  "i334"
-                  "i332"
+                  "i339"
+                  "i337"
+                  "i335"
+                  "i333"
+                  "i331"
                   "i330"
-                  "i328"
-                  "i326"
+                  "i329"
+                  "i327"
                   "i325"
                   "i324"
-                  "i323"
-                  "i322"
                   "i321"
-                  "i319"
+                  "i320"
                   "i318"
                   "i316"
                   "i314"
@@ -6681,31 +6682,30 @@
                   "i306"
                   "i304"
                   "i302"
-                  "i300"
-                  "i298"
-                  "i296"
-                  "i294"
-                  "i292"
-                  "i290"
-                  "i288"
-                  "i286"
-                  "i284"
-                  "i282"
-                  "i280"
-                  "i278"
-                  "i276"
-                  "i274"
-                  "i272"
-                  "i270"
-                  "i268"
-                  "i266"
-                  "i264"
-                  "i262"
-                  "i260"
-                  "i258"
-                  "i256"
+                  "i299"
+                  "i297"
+                  "i295"
+                  "i293"
+                  "i291"
+                  "i289"
+                  "i287"
+                  "i285"
+                  "i283"
+                  "i281"
+                  "i279"
+                  "i277"
+                  "i275"
+                  "i273"
+                  "i271"
+                  "i269"
+                  "i267"
+                  "i265"
+                  "i263"
+                  "i261"
+                  "i259"
+                  "i257"
+                  "i255"
                   "i254"
-                  "i253"
                   "i251"
                   "i249"
                   "i248"
@@ -6741,249 +6741,249 @@
                  ("i40" "i39" "i38")))
               (hygiene guile)))
          #f)))
-   (#{lambda-formals 437}#
-     (lambda (#{orig-args 2213}#)
+   (#{lambda-formals 450}#
+     (lambda (#{orig-args 2227}#)
        (letrec*
-         ((#{req 2216}#
-            (lambda (#{args 2219}# #{rreq 2220}#)
-              (let ((#{tmp 2223}# #{args 2219}#))
-                (let ((#{tmp 2224}# ($sc-dispatch #{tmp 2223}# '())))
-                  (if #{tmp 2224}#
+         ((#{req 2230}#
+            (lambda (#{args 2233}# #{rreq 2234}#)
+              (let ((#{tmp 2237}# #{args 2233}#))
+                (let ((#{tmp 2238}# ($sc-dispatch #{tmp 2237}# '())))
+                  (if #{tmp 2238}#
                     (@apply
                       (lambda ()
-                        (#{check 2218}# (reverse #{rreq 2220}#) #f))
-                      #{tmp 2224}#)
-                    (let ((#{tmp 2225}#
-                            ($sc-dispatch #{tmp 2223}# '(any . any))))
-                      (if (if #{tmp 2225}#
+                        (#{check 2232}# (reverse #{rreq 2234}#) #f))
+                      #{tmp 2238}#)
+                    (let ((#{tmp 2239}#
+                            ($sc-dispatch #{tmp 2237}# '(any . any))))
+                      (if (if #{tmp 2239}#
                             (@apply
-                              (lambda (#{a 2228}# #{b 2229}#)
-                                (#{id? 339}# #{a 2228}#))
-                              #{tmp 2225}#)
+                              (lambda (#{a 2242}# #{b 2243}#)
+                                (#{id? 344}# #{a 2242}#))
+                              #{tmp 2239}#)
                             #f)
                         (@apply
-                          (lambda (#{a 2232}# #{b 2233}#)
-                            (#{req 2216}#
-                              #{b 2233}#
-                              (cons #{a 2232}# #{rreq 2220}#)))
-                          #{tmp 2225}#)
-                        (let ((#{tmp 2234}# (list #{tmp 2223}#)))
-                          (if (if #{tmp 2234}#
+                          (lambda (#{a 2246}# #{b 2247}#)
+                            (#{req 2230}#
+                              #{b 2247}#
+                              (cons #{a 2246}# #{rreq 2234}#)))
+                          #{tmp 2239}#)
+                        (let ((#{tmp 2248}# (list #{tmp 2237}#)))
+                          (if (if #{tmp 2248}#
                                 (@apply
-                                  (lambda (#{r 2236}#)
-                                    (#{id? 339}# #{r 2236}#))
-                                  #{tmp 2234}#)
+                                  (lambda (#{r 2250}#)
+                                    (#{id? 344}# #{r 2250}#))
+                                  #{tmp 2248}#)
                                 #f)
                             (@apply
-                              (lambda (#{r 2238}#)
-                                (#{check 2218}#
-                                  (reverse #{rreq 2220}#)
-                                  #{r 2238}#))
-                              #{tmp 2234}#)
-                            (let ((#{else 2240}# #{tmp 2223}#))
+                              (lambda (#{r 2252}#)
+                                (#{check 2232}#
+                                  (reverse #{rreq 2234}#)
+                                  #{r 2252}#))
+                              #{tmp 2248}#)
+                            (let ((#{else 2254}# #{tmp 2237}#))
                               (syntax-violation
                                 'lambda
                                 "invalid argument list"
-                                #{orig-args 2213}#
-                                #{args 2219}#)))))))))))
-          (#{check 2218}#
-            (lambda (#{req 2241}# #{rest 2242}#)
-              (if (#{distinct-bound-ids? 401}#
-                    (if #{rest 2242}#
-                      (cons #{rest 2242}# #{req 2241}#)
-                      #{req 2241}#))
-                (values #{req 2241}# #f #{rest 2242}# #f)
+                                #{orig-args 2227}#
+                                #{args 2233}#)))))))))))
+          (#{check 2232}#
+            (lambda (#{req 2255}# #{rest 2256}#)
+              (if (#{distinct-bound-ids? 414}#
+                    (if #{rest 2256}#
+                      (cons #{rest 2256}# #{req 2255}#)
+                      #{req 2255}#))
+                (values #{req 2255}# #f #{rest 2256}# #f)
                 (syntax-violation
                   'lambda
                   "duplicate identifier in argument list"
-                  #{orig-args 2213}#)))))
-         (begin (#{req 2216}# #{orig-args 2213}# '())))))
-   (#{chi-simple-lambda 439}#
-     (lambda (#{e 2248}#
-              #{r 2249}#
-              #{w 2250}#
-              #{s 2251}#
-              #{mod 2252}#
-              #{req 2253}#
-              #{rest 2254}#
-              #{meta 2255}#
-              #{body 2256}#)
+                  #{orig-args 2227}#)))))
+         (begin (#{req 2230}# #{orig-args 2227}# '())))))
+   (#{chi-simple-lambda 452}#
+     (lambda (#{e 2262}#
+              #{r 2263}#
+              #{w 2264}#
+              #{s 2265}#
+              #{mod 2266}#
+              #{req 2267}#
+              #{rest 2268}#
+              #{meta 2269}#
+              #{body 2270}#)
        (begin
-         (let ((#{ids 2268}#
-                 (if #{rest 2254}#
-                   (append #{req 2253}# (list #{rest 2254}#))
-                   #{req 2253}#)))
+         (let ((#{ids 2282}#
+                 (if #{rest 2268}#
+                   (append #{req 2267}# (list #{rest 2268}#))
+                   #{req 2267}#)))
            (begin
-             (let ((#{vars 2270}#
-                     (map #{gen-var 447}# #{ids 2268}#)))
+             (let ((#{vars 2284}#
+                     (map #{gen-var 460}# #{ids 2282}#)))
                (begin
-                 (let ((#{labels 2272}#
-                         (#{gen-labels 354}# #{ids 2268}#)))
-                   (#{build-simple-lambda 283}#
-                     #{s 2251}#
-                     (map syntax->datum #{req 2253}#)
-                     (if #{rest 2254}#
-                       (syntax->datum #{rest 2254}#)
+                 (let ((#{labels 2286}#
+                         (#{gen-labels 364}# #{ids 2282}#)))
+                   (#{build-simple-lambda 284}#
+                     #{s 2265}#
+                     (map syntax->datum #{req 2267}#)
+                     (if #{rest 2268}#
+                       (syntax->datum #{rest 2268}#)
                        #f)
-                     #{vars 2270}#
-                     #{meta 2255}#
-                     (#{chi-body 427}#
-                       #{body 2256}#
-                       (#{source-wrap 407}#
-                         #{e 2248}#
-                         #{w 2250}#
-                         #{s 2251}#
-                         #{mod 2252}#)
-                       (#{extend-var-env 329}#
-                         #{labels 2272}#
-                         #{vars 2270}#
-                         #{r 2249}#)
-                       (#{make-binding-wrap 383}#
-                         #{ids 2268}#
-                         #{labels 2272}#
-                         #{w 2250}#)
-                       #{mod 2252}#))))))))))
-   (#{lambda*-formals 441}#
-     (lambda (#{orig-args 2275}#)
+                     #{vars 2284}#
+                     #{meta 2269}#
+                     (#{chi-body 440}#
+                       #{body 2270}#
+                       (#{source-wrap 420}#
+                         #{e 2262}#
+                         #{w 2264}#
+                         #{s 2265}#
+                         #{mod 2266}#)
+                       (#{extend-var-env 334}#
+                         #{labels 2286}#
+                         #{vars 2284}#
+                         #{r 2263}#)
+                       (#{make-binding-wrap 396}#
+                         #{ids 2282}#
+                         #{labels 2286}#
+                         #{w 2264}#)
+                       #{mod 2266}#))))))))))
+   (#{lambda*-formals 454}#
+     (lambda (#{orig-args 2289}#)
        (letrec*
-         ((#{req 2278}#
-            (lambda (#{args 2287}# #{rreq 2288}#)
-              (let ((#{tmp 2291}# #{args 2287}#))
-                (let ((#{tmp 2292}# ($sc-dispatch #{tmp 2291}# '())))
-                  (if #{tmp 2292}#
+         ((#{req 2292}#
+            (lambda (#{args 2301}# #{rreq 2302}#)
+              (let ((#{tmp 2305}# #{args 2301}#))
+                (let ((#{tmp 2306}# ($sc-dispatch #{tmp 2305}# '())))
+                  (if #{tmp 2306}#
                     (@apply
                       (lambda ()
-                        (#{check 2286}#
-                          (reverse #{rreq 2288}#)
+                        (#{check 2300}#
+                          (reverse #{rreq 2302}#)
                           '()
                           #f
                           '()))
-                      #{tmp 2292}#)
-                    (let ((#{tmp 2293}#
-                            ($sc-dispatch #{tmp 2291}# '(any . any))))
-                      (if (if #{tmp 2293}#
+                      #{tmp 2306}#)
+                    (let ((#{tmp 2307}#
+                            ($sc-dispatch #{tmp 2305}# '(any . any))))
+                      (if (if #{tmp 2307}#
                             (@apply
-                              (lambda (#{a 2296}# #{b 2297}#)
-                                (#{id? 339}# #{a 2296}#))
-                              #{tmp 2293}#)
+                              (lambda (#{a 2310}# #{b 2311}#)
+                                (#{id? 344}# #{a 2310}#))
+                              #{tmp 2307}#)
                             #f)
                         (@apply
-                          (lambda (#{a 2300}# #{b 2301}#)
-                            (#{req 2278}#
-                              #{b 2301}#
-                              (cons #{a 2300}# #{rreq 2288}#)))
-                          #{tmp 2293}#)
-                        (let ((#{tmp 2302}#
-                                ($sc-dispatch #{tmp 2291}# '(any . any))))
-                          (if (if #{tmp 2302}#
+                          (lambda (#{a 2314}# #{b 2315}#)
+                            (#{req 2292}#
+                              #{b 2315}#
+                              (cons #{a 2314}# #{rreq 2302}#)))
+                          #{tmp 2307}#)
+                        (let ((#{tmp 2316}#
+                                ($sc-dispatch #{tmp 2305}# '(any . any))))
+                          (if (if #{tmp 2316}#
                                 (@apply
-                                  (lambda (#{a 2305}# #{b 2306}#)
-                                    (eq? (syntax->datum #{a 2305}#)
+                                  (lambda (#{a 2319}# #{b 2320}#)
+                                    (eq? (syntax->datum #{a 2319}#)
                                          #:optional))
-                                  #{tmp 2302}#)
+                                  #{tmp 2316}#)
                                 #f)
                             (@apply
-                              (lambda (#{a 2309}# #{b 2310}#)
-                                (#{opt 2280}#
-                                  #{b 2310}#
-                                  (reverse #{rreq 2288}#)
+                              (lambda (#{a 2323}# #{b 2324}#)
+                                (#{opt 2294}#
+                                  #{b 2324}#
+                                  (reverse #{rreq 2302}#)
                                   '()))
-                              #{tmp 2302}#)
-                            (let ((#{tmp 2311}#
-                                    ($sc-dispatch #{tmp 2291}# '(any . any))))
-                              (if (if #{tmp 2311}#
+                              #{tmp 2316}#)
+                            (let ((#{tmp 2325}#
+                                    ($sc-dispatch #{tmp 2305}# '(any . any))))
+                              (if (if #{tmp 2325}#
                                     (@apply
-                                      (lambda (#{a 2314}# #{b 2315}#)
-                                        (eq? (syntax->datum #{a 2314}#) #:key))
-                                      #{tmp 2311}#)
+                                      (lambda (#{a 2328}# #{b 2329}#)
+                                        (eq? (syntax->datum #{a 2328}#) #:key))
+                                      #{tmp 2325}#)
                                     #f)
                                 (@apply
-                                  (lambda (#{a 2318}# #{b 2319}#)
-                                    (#{key 2282}#
-                                      #{b 2319}#
-                                      (reverse #{rreq 2288}#)
+                                  (lambda (#{a 2332}# #{b 2333}#)
+                                    (#{key 2296}#
+                                      #{b 2333}#
+                                      (reverse #{rreq 2302}#)
                                       '()
                                       '()))
-                                  #{tmp 2311}#)
-                                (let ((#{tmp 2320}#
+                                  #{tmp 2325}#)
+                                (let ((#{tmp 2334}#
                                         ($sc-dispatch
-                                          #{tmp 2291}#
+                                          #{tmp 2305}#
                                           '(any any))))
-                                  (if (if #{tmp 2320}#
+                                  (if (if #{tmp 2334}#
                                         (@apply
-                                          (lambda (#{a 2323}# #{b 2324}#)
-                                            (eq? (syntax->datum #{a 2323}#)
+                                          (lambda (#{a 2337}# #{b 2338}#)
+                                            (eq? (syntax->datum #{a 2337}#)
                                                  #:rest))
-                                          #{tmp 2320}#)
+                                          #{tmp 2334}#)
                                         #f)
                                     (@apply
-                                      (lambda (#{a 2327}# #{b 2328}#)
-                                        (#{rest 2284}#
-                                          #{b 2328}#
-                                          (reverse #{rreq 2288}#)
+                                      (lambda (#{a 2341}# #{b 2342}#)
+                                        (#{rest 2298}#
+                                          #{b 2342}#
+                                          (reverse #{rreq 2302}#)
                                           '()
                                           '()))
-                                      #{tmp 2320}#)
-                                    (let ((#{tmp 2329}# (list #{tmp 2291}#)))
-                                      (if (if #{tmp 2329}#
+                                      #{tmp 2334}#)
+                                    (let ((#{tmp 2343}# (list #{tmp 2305}#)))
+                                      (if (if #{tmp 2343}#
                                             (@apply
-                                              (lambda (#{r 2331}#)
-                                                (#{id? 339}# #{r 2331}#))
-                                              #{tmp 2329}#)
+                                              (lambda (#{r 2345}#)
+                                                (#{id? 344}# #{r 2345}#))
+                                              #{tmp 2343}#)
                                             #f)
                                         (@apply
-                                          (lambda (#{r 2333}#)
-                                            (#{rest 2284}#
-                                              #{r 2333}#
-                                              (reverse #{rreq 2288}#)
+                                          (lambda (#{r 2347}#)
+                                            (#{rest 2298}#
+                                              #{r 2347}#
+                                              (reverse #{rreq 2302}#)
                                               '()
                                               '()))
-                                          #{tmp 2329}#)
-                                        (let ((#{else 2335}# #{tmp 2291}#))
+                                          #{tmp 2343}#)
+                                        (let ((#{else 2349}# #{tmp 2305}#))
                                           (syntax-violation
                                             'lambda*
                                             "invalid argument list"
-                                            #{orig-args 2275}#
-                                            #{args 2287}#)))))))))))))))))
-          (#{opt 2280}#
-            (lambda (#{args 2336}# #{req 2337}# #{ropt 2338}#)
-              (let ((#{tmp 2342}# #{args 2336}#))
-                (let ((#{tmp 2343}# ($sc-dispatch #{tmp 2342}# '())))
-                  (if #{tmp 2343}#
+                                            #{orig-args 2289}#
+                                            #{args 2301}#)))))))))))))))))
+          (#{opt 2294}#
+            (lambda (#{args 2350}# #{req 2351}# #{ropt 2352}#)
+              (let ((#{tmp 2356}# #{args 2350}#))
+                (let ((#{tmp 2357}# ($sc-dispatch #{tmp 2356}# '())))
+                  (if #{tmp 2357}#
                     (@apply
                       (lambda ()
-                        (#{check 2286}#
-                          #{req 2337}#
-                          (reverse #{ropt 2338}#)
+                        (#{check 2300}#
+                          #{req 2351}#
+                          (reverse #{ropt 2352}#)
                           #f
                           '()))
-                      #{tmp 2343}#)
-                    (let ((#{tmp 2344}#
-                            ($sc-dispatch #{tmp 2342}# '(any . any))))
-                      (if (if #{tmp 2344}#
+                      #{tmp 2357}#)
+                    (let ((#{tmp 2358}#
+                            ($sc-dispatch #{tmp 2356}# '(any . any))))
+                      (if (if #{tmp 2358}#
                             (@apply
-                              (lambda (#{a 2347}# #{b 2348}#)
-                                (#{id? 339}# #{a 2347}#))
-                              #{tmp 2344}#)
+                              (lambda (#{a 2361}# #{b 2362}#)
+                                (#{id? 344}# #{a 2361}#))
+                              #{tmp 2358}#)
                             #f)
                         (@apply
-                          (lambda (#{a 2351}# #{b 2352}#)
-                            (#{opt 2280}#
-                              #{b 2352}#
-                              #{req 2337}#
-                              (cons (cons #{a 2351}#
+                          (lambda (#{a 2365}# #{b 2366}#)
+                            (#{opt 2294}#
+                              #{b 2366}#
+                              #{req 2351}#
+                              (cons (cons #{a 2365}#
                                           '(#(syntax-object
                                               #f
                                               ((top)
                                                #(ribcage
                                                  #(a b)
                                                  #((top) (top))
-                                                 #("i2349" "i2350"))
+                                                 #("i2363" "i2364"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(args req ropt)
                                                  #((top) (top) (top))
-                                                 #("i2339" "i2340" "i2341"))
+                                                 #("i2353" "i2354" "i2355"))
                                                #(ribcage
                                                  (check rest key opt req)
                                                  ((top)
@@ -6991,15 +6991,15 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                 ("i2285"
-                                                  "i2283"
-                                                  "i2281"
-                                                  "i2279"
-                                                  "i2277"))
+                                                 ("i2299"
+                                                  "i2297"
+                                                  "i2295"
+                                                  "i2293"
+                                                  "i2291"))
                                                #(ribcage
                                                  #(orig-args)
                                                  #((top))
-                                                 #("i2276"))
+                                                 #("i2290"))
                                                #(ribcage
                                                  (lambda-var-list
                                                    gen-var
@@ -7273,81 +7273,82 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                 ("i448"
-                                                  "i446"
-                                                  "i444"
-                                                  "i442"
-                                                  "i440"
-                                                  "i438"
-                                                  "i436"
-                                                  "i434"
-                                                  "i432"
-                                                  "i430"
-                                                  "i428"
-                                                  "i426"
-                                                  "i424"
-                                                  "i422"
-                                                  "i420"
-                                                  "i418"
-                                                  "i416"
-                                                  "i414"
-                                                  "i412"
-                                                  "i410"
-                                                  "i408"
-                                                  "i406"
-                                                  "i404"
-                                                  "i402"
-                                                  "i400"
-                                                  "i398"
-                                                  "i396"
-                                                  "i394"
+                                                 ("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"
+                                                  "i397"
+                                                  "i395"
+                                                  "i393"
                                                   "i392"
                                                   "i390"
-                                                  "i388"
+                                                  "i387"
                                                   "i386"
-                                                  "i384"
+                                                  "i385"
+                                                  "i383"
                                                   "i382"
                                                   "i380"
-                                                  "i379"
                                                   "i378"
                                                   "i376"
-                                                  "i375"
                                                   "i374"
-                                                  "i373"
                                                   "i372"
                                                   "i370"
                                                   "i368"
                                                   "i366"
-                                                  "i364"
-                                                  "i362"
+                                                  "i363"
+                                                  "i361"
                                                   "i360"
                                                   "i358"
                                                   "i356"
-                                                  "i353"
+                                                  "i354"
+                                                  "i352"
                                                   "i351"
                                                   "i350"
                                                   "i349"
-                                                  "i348"
                                                   "i347"
                                                   "i346"
-                                                  "i345"
-                                                  "i344"
                                                   "i343"
                                                   "i341"
-                                                  "i340"
-                                                  "i338"
-                                                  "i336"
-                                                  "i334"
-                                                  "i332"
+                                                  "i339"
+                                                  "i337"
+                                                  "i335"
+                                                  "i333"
+                                                  "i331"
                                                   "i330"
-                                                  "i328"
-                                                  "i326"
+                                                  "i329"
+                                                  "i327"
                                                   "i325"
                                                   "i324"
-                                                  "i323"
-                                                  "i322"
                                                   "i321"
-                                                  "i319"
+                                                  "i320"
                                                   "i318"
                                                   "i316"
                                                   "i314"
@@ -7357,31 +7358,30 @@
                                                   "i306"
                                                   "i304"
                                                   "i302"
-                                                  "i300"
-                                                  "i298"
-                                                  "i296"
-                                                  "i294"
-                                                  "i292"
-                                                  "i290"
-                                                  "i288"
-                                                  "i286"
-                                                  "i284"
-                                                  "i282"
-                                                  "i280"
-                                                  "i278"
-                                                  "i276"
-                                                  "i274"
-                                                  "i272"
-                                                  "i270"
-                                                  "i268"
-                                                  "i266"
-                                                  "i264"
-                                                  "i262"
-                                                  "i260"
-                                                  "i258"
-                                                  "i256"
+                                                  "i299"
+                                                  "i297"
+                                                  "i295"
+                                                  "i293"
+                                                  "i291"
+                                                  "i289"
+                                                  "i287"
+                                                  "i285"
+                                                  "i283"
+                                                  "i281"
+                                                  "i279"
+                                                  "i277"
+                                                  "i275"
+                                                  "i273"
+                                                  "i271"
+                                                  "i269"
+                                                  "i267"
+                                                  "i265"
+                                                  "i263"
+                                                  "i261"
+                                                  "i259"
+                                                  "i257"
+                                                  "i255"
                                                   "i254"
-                                                  "i253"
                                                   "i251"
                                                   "i249"
                                                   "i248"
@@ -7416,118 +7416,118 @@
                                                  ((top) (top) (top))
                                                  ("i40" "i39" "i38")))
                                               (hygiene guile))))
-                                    #{ropt 2338}#)))
-                          #{tmp 2344}#)
-                        (let ((#{tmp 2353}#
+                                    #{ropt 2352}#)))
+                          #{tmp 2358}#)
+                        (let ((#{tmp 2367}#
                                 ($sc-dispatch
-                                  #{tmp 2342}#
+                                  #{tmp 2356}#
                                   '((any any) . any))))
-                          (if (if #{tmp 2353}#
+                          (if (if #{tmp 2367}#
                                 (@apply
-                                  (lambda (#{a 2357}# #{init 2358}# #{b 2359}#)
-                                    (#{id? 339}# #{a 2357}#))
-                                  #{tmp 2353}#)
+                                  (lambda (#{a 2371}# #{init 2372}# #{b 2373}#)
+                                    (#{id? 344}# #{a 2371}#))
+                                  #{tmp 2367}#)
                                 #f)
                             (@apply
-                              (lambda (#{a 2363}# #{init 2364}# #{b 2365}#)
-                                (#{opt 2280}#
-                                  #{b 2365}#
-                                  #{req 2337}#
-                                  (cons (list #{a 2363}# #{init 2364}#)
-                                        #{ropt 2338}#)))
-                              #{tmp 2353}#)
-                            (let ((#{tmp 2366}#
-                                    ($sc-dispatch #{tmp 2342}# '(any . any))))
-                              (if (if #{tmp 2366}#
+                              (lambda (#{a 2377}# #{init 2378}# #{b 2379}#)
+                                (#{opt 2294}#
+                                  #{b 2379}#
+                                  #{req 2351}#
+                                  (cons (list #{a 2377}# #{init 2378}#)
+                                        #{ropt 2352}#)))
+                              #{tmp 2367}#)
+                            (let ((#{tmp 2380}#
+                                    ($sc-dispatch #{tmp 2356}# '(any . any))))
+                              (if (if #{tmp 2380}#
                                     (@apply
-                                      (lambda (#{a 2369}# #{b 2370}#)
-                                        (eq? (syntax->datum #{a 2369}#) #:key))
-                                      #{tmp 2366}#)
+                                      (lambda (#{a 2383}# #{b 2384}#)
+                                        (eq? (syntax->datum #{a 2383}#) #:key))
+                                      #{tmp 2380}#)
                                     #f)
                                 (@apply
-                                  (lambda (#{a 2373}# #{b 2374}#)
-                                    (#{key 2282}#
-                                      #{b 2374}#
-                                      #{req 2337}#
-                                      (reverse #{ropt 2338}#)
+                                  (lambda (#{a 2387}# #{b 2388}#)
+                                    (#{key 2296}#
+                                      #{b 2388}#
+                                      #{req 2351}#
+                                      (reverse #{ropt 2352}#)
                                       '()))
-                                  #{tmp 2366}#)
-                                (let ((#{tmp 2375}#
+                                  #{tmp 2380}#)
+                                (let ((#{tmp 2389}#
                                         ($sc-dispatch
-                                          #{tmp 2342}#
+                                          #{tmp 2356}#
                                           '(any any))))
-                                  (if (if #{tmp 2375}#
+                                  (if (if #{tmp 2389}#
                                         (@apply
-                                          (lambda (#{a 2378}# #{b 2379}#)
-                                            (eq? (syntax->datum #{a 2378}#)
+                                          (lambda (#{a 2392}# #{b 2393}#)
+                                            (eq? (syntax->datum #{a 2392}#)
                                                  #:rest))
-                                          #{tmp 2375}#)
+                                          #{tmp 2389}#)
                                         #f)
                                     (@apply
-                                      (lambda (#{a 2382}# #{b 2383}#)
-                                        (#{rest 2284}#
-                                          #{b 2383}#
-                                          #{req 2337}#
-                                          (reverse #{ropt 2338}#)
+                                      (lambda (#{a 2396}# #{b 2397}#)
+                                        (#{rest 2298}#
+                                          #{b 2397}#
+                                          #{req 2351}#
+                                          (reverse #{ropt 2352}#)
                                           '()))
-                                      #{tmp 2375}#)
-                                    (let ((#{tmp 2384}# (list #{tmp 2342}#)))
-                                      (if (if #{tmp 2384}#
+                                      #{tmp 2389}#)
+                                    (let ((#{tmp 2398}# (list #{tmp 2356}#)))
+                                      (if (if #{tmp 2398}#
                                             (@apply
-                                              (lambda (#{r 2386}#)
-                                                (#{id? 339}# #{r 2386}#))
-                                              #{tmp 2384}#)
+                                              (lambda (#{r 2400}#)
+                                                (#{id? 344}# #{r 2400}#))
+                                              #{tmp 2398}#)
                                             #f)
                                         (@apply
-                                          (lambda (#{r 2388}#)
-                                            (#{rest 2284}#
-                                              #{r 2388}#
-                                              #{req 2337}#
-                                              (reverse #{ropt 2338}#)
+                                          (lambda (#{r 2402}#)
+                                            (#{rest 2298}#
+                                              #{r 2402}#
+                                              #{req 2351}#
+                                              (reverse #{ropt 2352}#)
                                               '()))
-                                          #{tmp 2384}#)
-                                        (let ((#{else 2390}# #{tmp 2342}#))
+                                          #{tmp 2398}#)
+                                        (let ((#{else 2404}# #{tmp 2356}#))
                                           (syntax-violation
                                             'lambda*
                                             "invalid optional argument list"
-                                            #{orig-args 2275}#
-                                            #{args 2336}#)))))))))))))))))
-          (#{key 2282}#
-            (lambda (#{args 2391}#
-                     #{req 2392}#
-                     #{opt 2393}#
-                     #{rkey 2394}#)
-              (let ((#{tmp 2399}# #{args 2391}#))
-                (let ((#{tmp 2400}# ($sc-dispatch #{tmp 2399}# '())))
-                  (if #{tmp 2400}#
+                                            #{orig-args 2289}#
+                                            #{args 2350}#)))))))))))))))))
+          (#{key 2296}#
+            (lambda (#{args 2405}#
+                     #{req 2406}#
+                     #{opt 2407}#
+                     #{rkey 2408}#)
+              (let ((#{tmp 2413}# #{args 2405}#))
+                (let ((#{tmp 2414}# ($sc-dispatch #{tmp 2413}# '())))
+                  (if #{tmp 2414}#
                     (@apply
                       (lambda ()
-                        (#{check 2286}#
-                          #{req 2392}#
-                          #{opt 2393}#
+                        (#{check 2300}#
+                          #{req 2406}#
+                          #{opt 2407}#
                           #f
-                          (cons #f (reverse #{rkey 2394}#))))
-                      #{tmp 2400}#)
-                    (let ((#{tmp 2401}#
-                            ($sc-dispatch #{tmp 2399}# '(any . any))))
-                      (if (if #{tmp 2401}#
+                          (cons #f (reverse #{rkey 2408}#))))
+                      #{tmp 2414}#)
+                    (let ((#{tmp 2415}#
+                            ($sc-dispatch #{tmp 2413}# '(any . any))))
+                      (if (if #{tmp 2415}#
                             (@apply
-                              (lambda (#{a 2404}# #{b 2405}#)
-                                (#{id? 339}# #{a 2404}#))
-                              #{tmp 2401}#)
+                              (lambda (#{a 2418}# #{b 2419}#)
+                                (#{id? 344}# #{a 2418}#))
+                              #{tmp 2415}#)
                             #f)
                         (@apply
-                          (lambda (#{a 2408}# #{b 2409}#)
-                            (let ((#{tmp 2411}#
+                          (lambda (#{a 2422}# #{b 2423}#)
+                            (let ((#{tmp 2425}#
                                     (symbol->keyword
-                                      (syntax->datum #{a 2408}#))))
-                              (let ((#{k 2413}# #{tmp 2411}#))
-                                (#{key 2282}#
-                                  #{b 2409}#
-                                  #{req 2392}#
-                                  #{opt 2393}#
-                                  (cons (cons #{k 2413}#
-                                              (cons #{a 2408}#
+                                      (syntax->datum #{a 2422}#))))
+                              (let ((#{k 2427}# #{tmp 2425}#))
+                                (#{key 2296}#
+                                  #{b 2423}#
+                                  #{req 2406}#
+                                  #{opt 2407}#
+                                  (cons (cons #{k 2427}#
+                                              (cons #{a 2422}#
                                                     '(#(syntax-object
                                                         #f
                                                         ((top)
@@ -7535,11 +7535,11 @@
                                                          #(ribcage
                                                            #(k)
                                                            #((top))
-                                                           #("i2412"))
+                                                           #("i2426"))
                                                          #(ribcage
                                                            #(a b)
                                                            #((top) (top))
-                                                           #("i2406" "i2407"))
+                                                           #("i2420" "i2421"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(args req opt rkey)
@@ -7547,10 +7547,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                           #("i2395"
-                                                             "i2396"
-                                                             "i2397"
-                                                             "i2398"))
+                                                           #("i2409"
+                                                             "i2410"
+                                                             "i2411"
+                                                             "i2412"))
                                                          #(ribcage
                                                            (check rest
                                                                   key
@@ -7561,15 +7561,15 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                           ("i2285"
-                                                            "i2283"
-                                                            "i2281"
-                                                            "i2279"
-                                                            "i2277"))
+                                                           ("i2299"
+                                                            "i2297"
+                                                            "i2295"
+                                                            "i2293"
+                                                            "i2291"))
                                                          #(ribcage
                                                            #(orig-args)
                                                            #((top))
-                                                           #("i2276"))
+                                                           #("i2290"))
                                                          #(ribcage
                                                            (lambda-var-list
                                                              gen-var
@@ -7843,81 +7843,82 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                           ("i448"
-                                                            "i446"
-                                                            "i444"
-                                                            "i442"
-                                                            "i440"
-                                                            "i438"
-                                                            "i436"
-                                                            "i434"
-                                                            "i432"
-                                                            "i430"
-                                                            "i428"
-                                                            "i426"
-                                                            "i424"
-                                                            "i422"
-                                                            "i420"
-                                                            "i418"
-                                                            "i416"
-                                                            "i414"
-                                                            "i412"
-                                                            "i410"
-                                                            "i408"
-                                                            "i406"
-                                                            "i404"
-                                                            "i402"
-                                                            "i400"
-                                                            "i398"
-                                                            "i396"
-                                                            "i394"
+                                                           ("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"
+                                                            "i397"
+                                                            "i395"
+                                                            "i393"
                                                             "i392"
                                                             "i390"
-                                                            "i388"
+                                                            "i387"
                                                             "i386"
-                                                            "i384"
+                                                            "i385"
+                                                            "i383"
                                                             "i382"
                                                             "i380"
-                                                            "i379"
                                                             "i378"
                                                             "i376"
-                                                            "i375"
                                                             "i374"
-                                                            "i373"
                                                             "i372"
                                                             "i370"
                                                             "i368"
                                                             "i366"
-                                                            "i364"
-                                                            "i362"
+                                                            "i363"
+                                                            "i361"
                                                             "i360"
                                                             "i358"
                                                             "i356"
-                                                            "i353"
+                                                            "i354"
+                                                            "i352"
                                                             "i351"
                                                             "i350"
                                                             "i349"
-                                                            "i348"
                                                             "i347"
                                                             "i346"
-                                                            "i345"
-                                                            "i344"
                                                             "i343"
                                                             "i341"
-                                                            "i340"
-                                                            "i338"
-                                                            "i336"
-                                                            "i334"
-                                                            "i332"
+                                                            "i339"
+                                                            "i337"
+                                                            "i335"
+                                                            "i333"
+                                                            "i331"
                                                             "i330"
-                                                            "i328"
-                                                            "i326"
+                                                            "i329"
+                                                            "i327"
                                                             "i325"
                                                             "i324"
-                                                            "i323"
-                                                            "i322"
                                                             "i321"
-                                                            "i319"
+                                                            "i320"
                                                             "i318"
                                                             "i316"
                                                             "i314"
@@ -7927,31 +7928,30 @@
                                                             "i306"
                                                             "i304"
                                                             "i302"
-                                                            "i300"
-                                                            "i298"
-                                                            "i296"
-                                                            "i294"
-                                                            "i292"
-                                                            "i290"
-                                                            "i288"
-                                                            "i286"
-                                                            "i284"
-                                                            "i282"
-                                                            "i280"
-                                                            "i278"
-                                                            "i276"
-                                                            "i274"
-                                                            "i272"
-                                                            "i270"
-                                                            "i268"
-                                                            "i266"
-                                                            "i264"
-                                                            "i262"
-                                                            "i260"
-                                                            "i258"
-                                                            "i256"
+                                                            "i299"
+                                                            "i297"
+                                                            "i295"
+                                                            "i293"
+                                                            "i291"
+                                                            "i289"
+                                                            "i287"
+                                                            "i285"
+                                                            "i283"
+                                                            "i281"
+                                                            "i279"
+                                                            "i277"
+                                                            "i275"
+                                                            "i273"
+                                                            "i271"
+                                                            "i269"
+                                                            "i267"
+                                                            "i265"
+                                                            "i263"
+                                                            "i261"
+                                                            "i259"
+                                                            "i257"
+                                                            "i255"
                                                             "i254"
-                                                            "i253"
                                                             "i251"
                                                             "i249"
                                                             "i248"
@@ -7988,1935 +7988,1935 @@
                                                             "i39"
                                                             "i38")))
                                                         (hygiene guile)))))
-                                        #{rkey 2394}#)))))
-                          #{tmp 2401}#)
-                        (let ((#{tmp 2414}#
+                                        #{rkey 2408}#)))))
+                          #{tmp 2415}#)
+                        (let ((#{tmp 2428}#
                                 ($sc-dispatch
-                                  #{tmp 2399}#
+                                  #{tmp 2413}#
                                   '((any any) . any))))
-                          (if (if #{tmp 2414}#
+                          (if (if #{tmp 2428}#
                                 (@apply
-                                  (lambda (#{a 2418}# #{init 2419}# #{b 2420}#)
-                                    (#{id? 339}# #{a 2418}#))
-                                  #{tmp 2414}#)
+                                  (lambda (#{a 2432}# #{init 2433}# #{b 2434}#)
+                                    (#{id? 344}# #{a 2432}#))
+                                  #{tmp 2428}#)
                                 #f)
                             (@apply
-                              (lambda (#{a 2424}# #{init 2425}# #{b 2426}#)
-                                (let ((#{tmp 2428}#
+                              (lambda (#{a 2438}# #{init 2439}# #{b 2440}#)
+                                (let ((#{tmp 2442}#
                                         (symbol->keyword
-                                          (syntax->datum #{a 2424}#))))
-                                  (let ((#{k 2430}# #{tmp 2428}#))
-                                    (#{key 2282}#
-                                      #{b 2426}#
-                                      #{req 2392}#
-                                      #{opt 2393}#
-                                      (cons (list #{k 2430}#
-                                                  #{a 2424}#
-                                                  #{init 2425}#)
-                                            #{rkey 2394}#)))))
-                              #{tmp 2414}#)
-                            (let ((#{tmp 2431}#
+                                          (syntax->datum #{a 2438}#))))
+                                  (let ((#{k 2444}# #{tmp 2442}#))
+                                    (#{key 2296}#
+                                      #{b 2440}#
+                                      #{req 2406}#
+                                      #{opt 2407}#
+                                      (cons (list #{k 2444}#
+                                                  #{a 2438}#
+                                                  #{init 2439}#)
+                                            #{rkey 2408}#)))))
+                              #{tmp 2428}#)
+                            (let ((#{tmp 2445}#
                                     ($sc-dispatch
-                                      #{tmp 2399}#
+                                      #{tmp 2413}#
                                       '((any any any) . any))))
-                              (if (if #{tmp 2431}#
+                              (if (if #{tmp 2445}#
                                     (@apply
-                                      (lambda (#{a 2436}#
-                                               #{init 2437}#
-                                               #{k 2438}#
-                                               #{b 2439}#)
-                                        (if (#{id? 339}# #{a 2436}#)
-                                          (keyword? (syntax->datum #{k 2438}#))
+                                      (lambda (#{a 2450}#
+                                               #{init 2451}#
+                                               #{k 2452}#
+                                               #{b 2453}#)
+                                        (if (#{id? 344}# #{a 2450}#)
+                                          (keyword? (syntax->datum #{k 2452}#))
                                           #f))
-                                      #{tmp 2431}#)
+                                      #{tmp 2445}#)
                                     #f)
                                 (@apply
-                                  (lambda (#{a 2446}#
-                                           #{init 2447}#
-                                           #{k 2448}#
-                                           #{b 2449}#)
-                                    (#{key 2282}#
-                                      #{b 2449}#
-                                      #{req 2392}#
-                                      #{opt 2393}#
-                                      (cons (list #{k 2448}#
-                                                  #{a 2446}#
-                                                  #{init 2447}#)
-                                            #{rkey 2394}#)))
-                                  #{tmp 2431}#)
-                                (let ((#{tmp 2450}#
-                                        ($sc-dispatch #{tmp 2399}# '(any))))
-                                  (if (if #{tmp 2450}#
+                                  (lambda (#{a 2460}#
+                                           #{init 2461}#
+                                           #{k 2462}#
+                                           #{b 2463}#)
+                                    (#{key 2296}#
+                                      #{b 2463}#
+                                      #{req 2406}#
+                                      #{opt 2407}#
+                                      (cons (list #{k 2462}#
+                                                  #{a 2460}#
+                                                  #{init 2461}#)
+                                            #{rkey 2408}#)))
+                                  #{tmp 2445}#)
+                                (let ((#{tmp 2464}#
+                                        ($sc-dispatch #{tmp 2413}# '(any))))
+                                  (if (if #{tmp 2464}#
                                         (@apply
-                                          (lambda (#{aok 2452}#)
-                                            (eq? (syntax->datum #{aok 2452}#)
+                                          (lambda (#{aok 2466}#)
+                                            (eq? (syntax->datum #{aok 2466}#)
                                                  #:allow-other-keys))
-                                          #{tmp 2450}#)
+                                          #{tmp 2464}#)
                                         #f)
                                     (@apply
-                                      (lambda (#{aok 2454}#)
-                                        (#{check 2286}#
-                                          #{req 2392}#
-                                          #{opt 2393}#
+                                      (lambda (#{aok 2468}#)
+                                        (#{check 2300}#
+                                          #{req 2406}#
+                                          #{opt 2407}#
                                           #f
-                                          (cons #t (reverse #{rkey 2394}#))))
-                                      #{tmp 2450}#)
-                                    (let ((#{tmp 2455}#
+                                          (cons #t (reverse #{rkey 2408}#))))
+                                      #{tmp 2464}#)
+                                    (let ((#{tmp 2469}#
                                             ($sc-dispatch
-                                              #{tmp 2399}#
+                                              #{tmp 2413}#
                                               '(any any any))))
-                                      (if (if #{tmp 2455}#
+                                      (if (if #{tmp 2469}#
                                             (@apply
-                                              (lambda (#{aok 2459}#
-                                                       #{a 2460}#
-                                                       #{b 2461}#)
+                                              (lambda (#{aok 2473}#
+                                                       #{a 2474}#
+                                                       #{b 2475}#)
                                                 (if (eq? (syntax->datum
-                                                           #{aok 2459}#)
+                                                           #{aok 2473}#)
                                                          #:allow-other-keys)
                                                   (eq? (syntax->datum
-                                                         #{a 2460}#)
+                                                         #{a 2474}#)
                                                        #:rest)
                                                   #f))
-                                              #{tmp 2455}#)
+                                              #{tmp 2469}#)
                                             #f)
                                         (@apply
-                                          (lambda (#{aok 2467}#
-                                                   #{a 2468}#
-                                                   #{b 2469}#)
-                                            (#{rest 2284}#
-                                              #{b 2469}#
-                                              #{req 2392}#
-                                              #{opt 2393}#
+                                          (lambda (#{aok 2481}#
+                                                   #{a 2482}#
+                                                   #{b 2483}#)
+                                            (#{rest 2298}#
+                                              #{b 2483}#
+                                              #{req 2406}#
+                                              #{opt 2407}#
                                               (cons #t
-                                                    (reverse #{rkey 2394}#))))
-                                          #{tmp 2455}#)
-                                        (let ((#{tmp 2470}#
+                                                    (reverse #{rkey 2408}#))))
+                                          #{tmp 2469}#)
+                                        (let ((#{tmp 2484}#
                                                 ($sc-dispatch
-                                                  #{tmp 2399}#
+                                                  #{tmp 2413}#
                                                   '(any . any))))
-                                          (if (if #{tmp 2470}#
+                                          (if (if #{tmp 2484}#
                                                 (@apply
-                                                  (lambda (#{aok 2473}#
-                                                           #{r 2474}#)
+                                                  (lambda (#{aok 2487}#
+                                                           #{r 2488}#)
                                                     (if (eq? (syntax->datum
-                                                               #{aok 2473}#)
+                                                               #{aok 2487}#)
                                                              
#:allow-other-keys)
-                                                      (#{id? 339}# #{r 2474}#)
+                                                      (#{id? 344}# #{r 2488}#)
                                                       #f))
-                                                  #{tmp 2470}#)
+                                                  #{tmp 2484}#)
                                                 #f)
                                             (@apply
-                                              (lambda (#{aok 2479}# #{r 2480}#)
-                                                (#{rest 2284}#
-                                                  #{r 2480}#
-                                                  #{req 2392}#
-                                                  #{opt 2393}#
+                                              (lambda (#{aok 2493}# #{r 2494}#)
+                                                (#{rest 2298}#
+                                                  #{r 2494}#
+                                                  #{req 2406}#
+                                                  #{opt 2407}#
                                                   (cons #t
                                                         (reverse
-                                                          #{rkey 2394}#))))
-                                              #{tmp 2470}#)
-                                            (let ((#{tmp 2481}#
+                                                          #{rkey 2408}#))))
+                                              #{tmp 2484}#)
+                                            (let ((#{tmp 2495}#
                                                     ($sc-dispatch
-                                                      #{tmp 2399}#
+                                                      #{tmp 2413}#
                                                       '(any any))))
-                                              (if (if #{tmp 2481}#
+                                              (if (if #{tmp 2495}#
                                                     (@apply
-                                                      (lambda (#{a 2484}#
-                                                               #{b 2485}#)
+                                                      (lambda (#{a 2498}#
+                                                               #{b 2499}#)
                                                         (eq? (syntax->datum
-                                                               #{a 2484}#)
+                                                               #{a 2498}#)
                                                              #:rest))
-                                                      #{tmp 2481}#)
+                                                      #{tmp 2495}#)
                                                     #f)
                                                 (@apply
-                                                  (lambda (#{a 2488}#
-                                                           #{b 2489}#)
-                                                    (#{rest 2284}#
-                                                      #{b 2489}#
-                                                      #{req 2392}#
-                                                      #{opt 2393}#
+                                                  (lambda (#{a 2502}#
+                                                           #{b 2503}#)
+                                                    (#{rest 2298}#
+                                                      #{b 2503}#
+                                                      #{req 2406}#
+                                                      #{opt 2407}#
                                                       (cons #f
                                                             (reverse
-                                                              #{rkey 2394}#))))
-                                                  #{tmp 2481}#)
-                                                (let ((#{tmp 2490}#
-                                                        (list #{tmp 2399}#)))
-                                                  (if (if #{tmp 2490}#
+                                                              #{rkey 2408}#))))
+                                                  #{tmp 2495}#)
+                                                (let ((#{tmp 2504}#
+                                                        (list #{tmp 2413}#)))
+                                                  (if (if #{tmp 2504}#
                                                         (@apply
-                                                          (lambda (#{r 2492}#)
-                                                            (#{id? 339}#
-                                                              #{r 2492}#))
-                                                          #{tmp 2490}#)
+                                                          (lambda (#{r 2506}#)
+                                                            (#{id? 344}#
+                                                              #{r 2506}#))
+                                                          #{tmp 2504}#)
                                                         #f)
                                                     (@apply
-                                                      (lambda (#{r 2494}#)
-                                                        (#{rest 2284}#
-                                                          #{r 2494}#
-                                                          #{req 2392}#
-                                                          #{opt 2393}#
+                                                      (lambda (#{r 2508}#)
+                                                        (#{rest 2298}#
+                                                          #{r 2508}#
+                                                          #{req 2406}#
+                                                          #{opt 2407}#
                                                           (cons #f
                                                                 (reverse
-                                                                  #{rkey 
2394}#))))
-                                                      #{tmp 2490}#)
-                                                    (let ((#{else 2496}#
-                                                            #{tmp 2399}#))
+                                                                  #{rkey 
2408}#))))
+                                                      #{tmp 2504}#)
+                                                    (let ((#{else 2510}#
+                                                            #{tmp 2413}#))
                                                       (syntax-violation
                                                         'lambda*
                                                         "invalid keyword 
argument list"
-                                                        #{orig-args 2275}#
-                                                        #{args 
2391}#)))))))))))))))))))))))
-          (#{rest 2284}#
-            (lambda (#{args 2497}#
-                     #{req 2498}#
-                     #{opt 2499}#
-                     #{kw 2500}#)
-              (let ((#{tmp 2505}# #{args 2497}#))
-                (let ((#{tmp 2506}# (list #{tmp 2505}#)))
-                  (if (if #{tmp 2506}#
+                                                        #{orig-args 2289}#
+                                                        #{args 
2405}#)))))))))))))))))))))))
+          (#{rest 2298}#
+            (lambda (#{args 2511}#
+                     #{req 2512}#
+                     #{opt 2513}#
+                     #{kw 2514}#)
+              (let ((#{tmp 2519}# #{args 2511}#))
+                (let ((#{tmp 2520}# (list #{tmp 2519}#)))
+                  (if (if #{tmp 2520}#
                         (@apply
-                          (lambda (#{r 2508}#) (#{id? 339}# #{r 2508}#))
-                          #{tmp 2506}#)
+                          (lambda (#{r 2522}#) (#{id? 344}# #{r 2522}#))
+                          #{tmp 2520}#)
                         #f)
                     (@apply
-                      (lambda (#{r 2510}#)
-                        (#{check 2286}#
-                          #{req 2498}#
-                          #{opt 2499}#
-                          #{r 2510}#
-                          #{kw 2500}#))
-                      #{tmp 2506}#)
-                    (let ((#{else 2512}# #{tmp 2505}#))
+                      (lambda (#{r 2524}#)
+                        (#{check 2300}#
+                          #{req 2512}#
+                          #{opt 2513}#
+                          #{r 2524}#
+                          #{kw 2514}#))
+                      #{tmp 2520}#)
+                    (let ((#{else 2526}# #{tmp 2519}#))
                       (syntax-violation
                         'lambda*
                         "invalid rest argument"
-                        #{orig-args 2275}#
-                        #{args 2497}#)))))))
-          (#{check 2286}#
-            (lambda (#{req 2513}#
-                     #{opt 2514}#
-                     #{rest 2515}#
-                     #{kw 2516}#)
-              (if (#{distinct-bound-ids? 401}#
+                        #{orig-args 2289}#
+                        #{args 2511}#)))))))
+          (#{check 2300}#
+            (lambda (#{req 2527}#
+                     #{opt 2528}#
+                     #{rest 2529}#
+                     #{kw 2530}#)
+              (if (#{distinct-bound-ids? 414}#
                     (append
-                      #{req 2513}#
-                      (map car #{opt 2514}#)
-                      (if #{rest 2515}# (list #{rest 2515}#) '())
-                      (if (pair? #{kw 2516}#)
-                        (map cadr (cdr #{kw 2516}#))
+                      #{req 2527}#
+                      (map car #{opt 2528}#)
+                      (if #{rest 2529}# (list #{rest 2529}#) '())
+                      (if (pair? #{kw 2530}#)
+                        (map cadr (cdr #{kw 2530}#))
                         '())))
                 (values
-                  #{req 2513}#
-                  #{opt 2514}#
-                  #{rest 2515}#
-                  #{kw 2516}#)
+                  #{req 2527}#
+                  #{opt 2528}#
+                  #{rest 2529}#
+                  #{kw 2530}#)
                 (syntax-violation
                   'lambda*
                   "duplicate identifier in argument list"
-                  #{orig-args 2275}#)))))
-         (begin (#{req 2278}# #{orig-args 2275}# '())))))
-   (#{chi-lambda-case 443}#
-     (lambda (#{e 2524}#
-              #{r 2525}#
-              #{w 2526}#
-              #{s 2527}#
-              #{mod 2528}#
-              #{get-formals 2529}#
-              #{clauses 2530}#)
+                  #{orig-args 2289}#)))))
+         (begin (#{req 2292}# #{orig-args 2289}# '())))))
+   (#{chi-lambda-case 456}#
+     (lambda (#{e 2538}#
+              #{r 2539}#
+              #{w 2540}#
+              #{s 2541}#
+              #{mod 2542}#
+              #{get-formals 2543}#
+              #{clauses 2544}#)
        (letrec*
-         ((#{expand-req 2539}#
-            (lambda (#{req 2546}#
-                     #{opt 2547}#
-                     #{rest 2548}#
-                     #{kw 2549}#
-                     #{body 2550}#)
+         ((#{expand-req 2553}#
+            (lambda (#{req 2560}#
+                     #{opt 2561}#
+                     #{rest 2562}#
+                     #{kw 2563}#
+                     #{body 2564}#)
               (begin
-                (let ((#{vars 2558}#
-                        (map #{gen-var 447}# #{req 2546}#))
-                      (#{labels 2559}#
-                        (#{gen-labels 354}# #{req 2546}#)))
+                (let ((#{vars 2572}#
+                        (map #{gen-var 460}# #{req 2560}#))
+                      (#{labels 2573}#
+                        (#{gen-labels 364}# #{req 2560}#)))
                   (begin
-                    (let ((#{r* 2562}#
-                            (#{extend-var-env 329}#
-                              #{labels 2559}#
-                              #{vars 2558}#
-                              #{r 2525}#))
-                          (#{w* 2563}#
-                            (#{make-binding-wrap 383}#
-                              #{req 2546}#
-                              #{labels 2559}#
-                              #{w 2526}#)))
-                      (#{expand-opt 2541}#
-                        (map syntax->datum #{req 2546}#)
-                        #{opt 2547}#
-                        #{rest 2548}#
-                        #{kw 2549}#
-                        #{body 2550}#
-                        (reverse #{vars 2558}#)
-                        #{r* 2562}#
-                        #{w* 2563}#
+                    (let ((#{r* 2576}#
+                            (#{extend-var-env 334}#
+                              #{labels 2573}#
+                              #{vars 2572}#
+                              #{r 2539}#))
+                          (#{w* 2577}#
+                            (#{make-binding-wrap 396}#
+                              #{req 2560}#
+                              #{labels 2573}#
+                              #{w 2540}#)))
+                      (#{expand-opt 2555}#
+                        (map syntax->datum #{req 2560}#)
+                        #{opt 2561}#
+                        #{rest 2562}#
+                        #{kw 2563}#
+                        #{body 2564}#
+                        (reverse #{vars 2572}#)
+                        #{r* 2576}#
+                        #{w* 2577}#
                         '()
                         '())))))))
-          (#{expand-opt 2541}#
-            (lambda (#{req 2564}#
-                     #{opt 2565}#
-                     #{rest 2566}#
-                     #{kw 2567}#
-                     #{body 2568}#
-                     #{vars 2569}#
-                     #{r* 2570}#
-                     #{w* 2571}#
-                     #{out 2572}#
-                     #{inits 2573}#)
-              (if (pair? #{opt 2565}#)
-                (let ((#{tmp 2586}# (car #{opt 2565}#)))
-                  (let ((#{tmp 2587}#
-                          ($sc-dispatch #{tmp 2586}# '(any any))))
-                    (if #{tmp 2587}#
+          (#{expand-opt 2555}#
+            (lambda (#{req 2578}#
+                     #{opt 2579}#
+                     #{rest 2580}#
+                     #{kw 2581}#
+                     #{body 2582}#
+                     #{vars 2583}#
+                     #{r* 2584}#
+                     #{w* 2585}#
+                     #{out 2586}#
+                     #{inits 2587}#)
+              (if (pair? #{opt 2579}#)
+                (let ((#{tmp 2600}# (car #{opt 2579}#)))
+                  (let ((#{tmp 2601}#
+                          ($sc-dispatch #{tmp 2600}# '(any any))))
+                    (if #{tmp 2601}#
                       (@apply
-                        (lambda (#{id 2590}# #{i 2591}#)
+                        (lambda (#{id 2604}# #{i 2605}#)
                           (begin
-                            (let ((#{v 2594}# (#{gen-var 447}# #{id 2590}#)))
+                            (let ((#{v 2608}# (#{gen-var 460}# #{id 2604}#)))
                               (begin
-                                (let ((#{l 2596}#
-                                        (#{gen-labels 354}#
-                                          (list #{v 2594}#))))
+                                (let ((#{l 2610}#
+                                        (#{gen-labels 364}#
+                                          (list #{v 2608}#))))
                                   (begin
-                                    (let ((#{r** 2598}#
-                                            (#{extend-var-env 329}#
-                                              #{l 2596}#
-                                              (list #{v 2594}#)
-                                              #{r* 2570}#)))
+                                    (let ((#{r** 2612}#
+                                            (#{extend-var-env 334}#
+                                              #{l 2610}#
+                                              (list #{v 2608}#)
+                                              #{r* 2584}#)))
                                       (begin
-                                        (let ((#{w** 2600}#
-                                                (#{make-binding-wrap 383}#
-                                                  (list #{id 2590}#)
-                                                  #{l 2596}#
-                                                  #{w* 2571}#)))
-                                          (#{expand-opt 2541}#
-                                            #{req 2564}#
-                                            (cdr #{opt 2565}#)
-                                            #{rest 2566}#
-                                            #{kw 2567}#
-                                            #{body 2568}#
-                                            (cons #{v 2594}# #{vars 2569}#)
-                                            #{r** 2598}#
-                                            #{w** 2600}#
-                                            (cons (syntax->datum #{id 2590}#)
-                                                  #{out 2572}#)
-                                            (cons (#{chi 419}#
-                                                    #{i 2591}#
-                                                    #{r* 2570}#
-                                                    #{w* 2571}#
-                                                    #{mod 2528}#)
-                                                  #{inits 2573}#)))))))))))
-                        #{tmp 2587}#)
+                                        (let ((#{w** 2614}#
+                                                (#{make-binding-wrap 396}#
+                                                  (list #{id 2604}#)
+                                                  #{l 2610}#
+                                                  #{w* 2585}#)))
+                                          (#{expand-opt 2555}#
+                                            #{req 2578}#
+                                            (cdr #{opt 2579}#)
+                                            #{rest 2580}#
+                                            #{kw 2581}#
+                                            #{body 2582}#
+                                            (cons #{v 2608}# #{vars 2583}#)
+                                            #{r** 2612}#
+                                            #{w** 2614}#
+                                            (cons (syntax->datum #{id 2604}#)
+                                                  #{out 2586}#)
+                                            (cons (#{chi 432}#
+                                                    #{i 2605}#
+                                                    #{r* 2584}#
+                                                    #{w* 2585}#
+                                                    #{mod 2542}#)
+                                                  #{inits 2587}#)))))))))))
+                        #{tmp 2601}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 2586}#))))
-                (if #{rest 2566}#
+                        #{tmp 2600}#))))
+                (if #{rest 2580}#
                   (begin
-                    (let ((#{v 2605}# (#{gen-var 447}# #{rest 2566}#)))
+                    (let ((#{v 2619}# (#{gen-var 460}# #{rest 2580}#)))
                       (begin
-                        (let ((#{l 2607}#
-                                (#{gen-labels 354}# (list #{v 2605}#))))
+                        (let ((#{l 2621}#
+                                (#{gen-labels 364}# (list #{v 2619}#))))
                           (begin
-                            (let ((#{r* 2609}#
-                                    (#{extend-var-env 329}#
-                                      #{l 2607}#
-                                      (list #{v 2605}#)
-                                      #{r* 2570}#)))
+                            (let ((#{r* 2623}#
+                                    (#{extend-var-env 334}#
+                                      #{l 2621}#
+                                      (list #{v 2619}#)
+                                      #{r* 2584}#)))
                               (begin
-                                (let ((#{w* 2611}#
-                                        (#{make-binding-wrap 383}#
-                                          (list #{rest 2566}#)
-                                          #{l 2607}#
-                                          #{w* 2571}#)))
-                                  (#{expand-kw 2543}#
-                                    #{req 2564}#
-                                    (if (pair? #{out 2572}#)
-                                      (reverse #{out 2572}#)
+                                (let ((#{w* 2625}#
+                                        (#{make-binding-wrap 396}#
+                                          (list #{rest 2580}#)
+                                          #{l 2621}#
+                                          #{w* 2585}#)))
+                                  (#{expand-kw 2557}#
+                                    #{req 2578}#
+                                    (if (pair? #{out 2586}#)
+                                      (reverse #{out 2586}#)
                                       #f)
-                                    (syntax->datum #{rest 2566}#)
-                                    (if (pair? #{kw 2567}#)
-                                      (cdr #{kw 2567}#)
-                                      #{kw 2567}#)
-                                    #{body 2568}#
-                                    (cons #{v 2605}# #{vars 2569}#)
-                                    #{r* 2609}#
-                                    #{w* 2611}#
-                                    (if (pair? #{kw 2567}#)
-                                      (car #{kw 2567}#)
+                                    (syntax->datum #{rest 2580}#)
+                                    (if (pair? #{kw 2581}#)
+                                      (cdr #{kw 2581}#)
+                                      #{kw 2581}#)
+                                    #{body 2582}#
+                                    (cons #{v 2619}# #{vars 2583}#)
+                                    #{r* 2623}#
+                                    #{w* 2625}#
+                                    (if (pair? #{kw 2581}#)
+                                      (car #{kw 2581}#)
                                       #f)
                                     '()
-                                    #{inits 2573}#)))))))))
-                  (#{expand-kw 2543}#
-                    #{req 2564}#
-                    (if (pair? #{out 2572}#)
-                      (reverse #{out 2572}#)
+                                    #{inits 2587}#)))))))))
+                  (#{expand-kw 2557}#
+                    #{req 2578}#
+                    (if (pair? #{out 2586}#)
+                      (reverse #{out 2586}#)
                       #f)
                     #f
-                    (if (pair? #{kw 2567}#)
-                      (cdr #{kw 2567}#)
-                      #{kw 2567}#)
-                    #{body 2568}#
-                    #{vars 2569}#
-                    #{r* 2570}#
-                    #{w* 2571}#
-                    (if (pair? #{kw 2567}#) (car #{kw 2567}#) #f)
+                    (if (pair? #{kw 2581}#)
+                      (cdr #{kw 2581}#)
+                      #{kw 2581}#)
+                    #{body 2582}#
+                    #{vars 2583}#
+                    #{r* 2584}#
+                    #{w* 2585}#
+                    (if (pair? #{kw 2581}#) (car #{kw 2581}#) #f)
                     '()
-                    #{inits 2573}#)))))
-          (#{expand-kw 2543}#
-            (lambda (#{req 2613}#
-                     #{opt 2614}#
-                     #{rest 2615}#
-                     #{kw 2616}#
-                     #{body 2617}#
-                     #{vars 2618}#
-                     #{r* 2619}#
-                     #{w* 2620}#
-                     #{aok 2621}#
-                     #{out 2622}#
-                     #{inits 2623}#)
-              (if (pair? #{kw 2616}#)
-                (let ((#{tmp 2637}# (car #{kw 2616}#)))
-                  (let ((#{tmp 2638}#
-                          ($sc-dispatch #{tmp 2637}# '(any any any))))
-                    (if #{tmp 2638}#
+                    #{inits 2587}#)))))
+          (#{expand-kw 2557}#
+            (lambda (#{req 2627}#
+                     #{opt 2628}#
+                     #{rest 2629}#
+                     #{kw 2630}#
+                     #{body 2631}#
+                     #{vars 2632}#
+                     #{r* 2633}#
+                     #{w* 2634}#
+                     #{aok 2635}#
+                     #{out 2636}#
+                     #{inits 2637}#)
+              (if (pair? #{kw 2630}#)
+                (let ((#{tmp 2651}# (car #{kw 2630}#)))
+                  (let ((#{tmp 2652}#
+                          ($sc-dispatch #{tmp 2651}# '(any any any))))
+                    (if #{tmp 2652}#
                       (@apply
-                        (lambda (#{k 2642}# #{id 2643}# #{i 2644}#)
+                        (lambda (#{k 2656}# #{id 2657}# #{i 2658}#)
                           (begin
-                            (let ((#{v 2647}# (#{gen-var 447}# #{id 2643}#)))
+                            (let ((#{v 2661}# (#{gen-var 460}# #{id 2657}#)))
                               (begin
-                                (let ((#{l 2649}#
-                                        (#{gen-labels 354}#
-                                          (list #{v 2647}#))))
+                                (let ((#{l 2663}#
+                                        (#{gen-labels 364}#
+                                          (list #{v 2661}#))))
                                   (begin
-                                    (let ((#{r** 2651}#
-                                            (#{extend-var-env 329}#
-                                              #{l 2649}#
-                                              (list #{v 2647}#)
-                                              #{r* 2619}#)))
+                                    (let ((#{r** 2665}#
+                                            (#{extend-var-env 334}#
+                                              #{l 2663}#
+                                              (list #{v 2661}#)
+                                              #{r* 2633}#)))
                                       (begin
-                                        (let ((#{w** 2653}#
-                                                (#{make-binding-wrap 383}#
-                                                  (list #{id 2643}#)
-                                                  #{l 2649}#
-                                                  #{w* 2620}#)))
-                                          (#{expand-kw 2543}#
-                                            #{req 2613}#
-                                            #{opt 2614}#
-                                            #{rest 2615}#
-                                            (cdr #{kw 2616}#)
-                                            #{body 2617}#
-                                            (cons #{v 2647}# #{vars 2618}#)
-                                            #{r** 2651}#
-                                            #{w** 2653}#
-                                            #{aok 2621}#
+                                        (let ((#{w** 2667}#
+                                                (#{make-binding-wrap 396}#
+                                                  (list #{id 2657}#)
+                                                  #{l 2663}#
+                                                  #{w* 2634}#)))
+                                          (#{expand-kw 2557}#
+                                            #{req 2627}#
+                                            #{opt 2628}#
+                                            #{rest 2629}#
+                                            (cdr #{kw 2630}#)
+                                            #{body 2631}#
+                                            (cons #{v 2661}# #{vars 2632}#)
+                                            #{r** 2665}#
+                                            #{w** 2667}#
+                                            #{aok 2635}#
                                             (cons (list (syntax->datum
-                                                          #{k 2642}#)
+                                                          #{k 2656}#)
                                                         (syntax->datum
-                                                          #{id 2643}#)
-                                                        #{v 2647}#)
-                                                  #{out 2622}#)
-                                            (cons (#{chi 419}#
-                                                    #{i 2644}#
-                                                    #{r* 2619}#
-                                                    #{w* 2620}#
-                                                    #{mod 2528}#)
-                                                  #{inits 2623}#)))))))))))
-                        #{tmp 2638}#)
+                                                          #{id 2657}#)
+                                                        #{v 2661}#)
+                                                  #{out 2636}#)
+                                            (cons (#{chi 432}#
+                                                    #{i 2658}#
+                                                    #{r* 2633}#
+                                                    #{w* 2634}#
+                                                    #{mod 2542}#)
+                                                  #{inits 2637}#)))))))))))
+                        #{tmp 2652}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 2637}#))))
-                (#{expand-body 2545}#
-                  #{req 2613}#
-                  #{opt 2614}#
-                  #{rest 2615}#
+                        #{tmp 2651}#))))
+                (#{expand-body 2559}#
+                  #{req 2627}#
+                  #{opt 2628}#
+                  #{rest 2629}#
                   (if (begin
-                        (let ((#{t 2657}# #{aok 2621}#))
-                          (if #{t 2657}# #{t 2657}# (pair? #{out 2622}#))))
-                    (cons #{aok 2621}# (reverse #{out 2622}#))
+                        (let ((#{t 2671}# #{aok 2635}#))
+                          (if #{t 2671}# #{t 2671}# (pair? #{out 2636}#))))
+                    (cons #{aok 2635}# (reverse #{out 2636}#))
                     #f)
-                  #{body 2617}#
-                  (reverse #{vars 2618}#)
-                  #{r* 2619}#
-                  #{w* 2620}#
-                  (reverse #{inits 2623}#)
+                  #{body 2631}#
+                  (reverse #{vars 2632}#)
+                  #{r* 2633}#
+                  #{w* 2634}#
+                  (reverse #{inits 2637}#)
                   '()))))
-          (#{expand-body 2545}#
-            (lambda (#{req 2659}#
-                     #{opt 2660}#
-                     #{rest 2661}#
-                     #{kw 2662}#
-                     #{body 2663}#
-                     #{vars 2664}#
-                     #{r* 2665}#
-                     #{w* 2666}#
-                     #{inits 2667}#
-                     #{meta 2668}#)
-              (let ((#{tmp 2679}# #{body 2663}#))
-                (let ((#{tmp 2680}#
-                        ($sc-dispatch #{tmp 2679}# '(any any . each-any))))
-                  (if (if #{tmp 2680}#
+          (#{expand-body 2559}#
+            (lambda (#{req 2673}#
+                     #{opt 2674}#
+                     #{rest 2675}#
+                     #{kw 2676}#
+                     #{body 2677}#
+                     #{vars 2678}#
+                     #{r* 2679}#
+                     #{w* 2680}#
+                     #{inits 2681}#
+                     #{meta 2682}#)
+              (let ((#{tmp 2693}# #{body 2677}#))
+                (let ((#{tmp 2694}#
+                        ($sc-dispatch #{tmp 2693}# '(any any . each-any))))
+                  (if (if #{tmp 2694}#
                         (@apply
-                          (lambda (#{docstring 2684}# #{e1 2685}# #{e2 2686}#)
-                            (string? (syntax->datum #{docstring 2684}#)))
-                          #{tmp 2680}#)
+                          (lambda (#{docstring 2698}# #{e1 2699}# #{e2 2700}#)
+                            (string? (syntax->datum #{docstring 2698}#)))
+                          #{tmp 2694}#)
                         #f)
                     (@apply
-                      (lambda (#{docstring 2690}# #{e1 2691}# #{e2 2692}#)
-                        (#{expand-body 2545}#
-                          #{req 2659}#
-                          #{opt 2660}#
-                          #{rest 2661}#
-                          #{kw 2662}#
-                          (cons #{e1 2691}# #{e2 2692}#)
-                          #{vars 2664}#
-                          #{r* 2665}#
-                          #{w* 2666}#
-                          #{inits 2667}#
+                      (lambda (#{docstring 2704}# #{e1 2705}# #{e2 2706}#)
+                        (#{expand-body 2559}#
+                          #{req 2673}#
+                          #{opt 2674}#
+                          #{rest 2675}#
+                          #{kw 2676}#
+                          (cons #{e1 2705}# #{e2 2706}#)
+                          #{vars 2678}#
+                          #{r* 2679}#
+                          #{w* 2680}#
+                          #{inits 2681}#
                           (append
-                            #{meta 2668}#
+                            #{meta 2682}#
                             (list (cons 'documentation
-                                        (syntax->datum #{docstring 2690}#))))))
-                      #{tmp 2680}#)
-                    (let ((#{tmp 2695}#
+                                        (syntax->datum #{docstring 2704}#))))))
+                      #{tmp 2694}#)
+                    (let ((#{tmp 2709}#
                             ($sc-dispatch
-                              #{tmp 2679}#
+                              #{tmp 2693}#
                               '(#(vector #(each (any . any)))
                                 any
                                 .
                                 each-any))))
-                      (if #{tmp 2695}#
+                      (if #{tmp 2709}#
                         (@apply
-                          (lambda (#{k 2700}#
-                                   #{v 2701}#
-                                   #{e1 2702}#
-                                   #{e2 2703}#)
-                            (#{expand-body 2545}#
-                              #{req 2659}#
-                              #{opt 2660}#
-                              #{rest 2661}#
-                              #{kw 2662}#
-                              (cons #{e1 2702}# #{e2 2703}#)
-                              #{vars 2664}#
-                              #{r* 2665}#
-                              #{w* 2666}#
-                              #{inits 2667}#
+                          (lambda (#{k 2714}#
+                                   #{v 2715}#
+                                   #{e1 2716}#
+                                   #{e2 2717}#)
+                            (#{expand-body 2559}#
+                              #{req 2673}#
+                              #{opt 2674}#
+                              #{rest 2675}#
+                              #{kw 2676}#
+                              (cons #{e1 2716}# #{e2 2717}#)
+                              #{vars 2678}#
+                              #{r* 2679}#
+                              #{w* 2680}#
+                              #{inits 2681}#
                               (append
-                                #{meta 2668}#
+                                #{meta 2682}#
                                 (syntax->datum
-                                  (map cons #{k 2700}# #{v 2701}#)))))
-                          #{tmp 2695}#)
-                        (let ((#{tmp 2707}#
-                                ($sc-dispatch #{tmp 2679}# '(any . each-any))))
-                          (if #{tmp 2707}#
+                                  (map cons #{k 2714}# #{v 2715}#)))))
+                          #{tmp 2709}#)
+                        (let ((#{tmp 2721}#
+                                ($sc-dispatch #{tmp 2693}# '(any . each-any))))
+                          (if #{tmp 2721}#
                             (@apply
-                              (lambda (#{e1 2710}# #{e2 2711}#)
+                              (lambda (#{e1 2724}# #{e2 2725}#)
                                 (values
-                                  #{meta 2668}#
-                                  #{req 2659}#
-                                  #{opt 2660}#
-                                  #{rest 2661}#
-                                  #{kw 2662}#
-                                  #{inits 2667}#
-                                  #{vars 2664}#
-                                  (#{chi-body 427}#
-                                    (cons #{e1 2710}# #{e2 2711}#)
-                                    (#{source-wrap 407}#
-                                      #{e 2524}#
-                                      #{w 2526}#
-                                      #{s 2527}#
-                                      #{mod 2528}#)
-                                    #{r* 2665}#
-                                    #{w* 2666}#
-                                    #{mod 2528}#)))
-                              #{tmp 2707}#)
+                                  #{meta 2682}#
+                                  #{req 2673}#
+                                  #{opt 2674}#
+                                  #{rest 2675}#
+                                  #{kw 2676}#
+                                  #{inits 2681}#
+                                  #{vars 2678}#
+                                  (#{chi-body 440}#
+                                    (cons #{e1 2724}# #{e2 2725}#)
+                                    (#{source-wrap 420}#
+                                      #{e 2538}#
+                                      #{w 2540}#
+                                      #{s 2541}#
+                                      #{mod 2542}#)
+                                    #{r* 2679}#
+                                    #{w* 2680}#
+                                    #{mod 2542}#)))
+                              #{tmp 2721}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
-                              #{tmp 2679}#)))))))))))
+                              #{tmp 2693}#)))))))))))
          (begin
-           (let ((#{tmp 2713}# #{clauses 2530}#))
-             (let ((#{tmp 2714}# ($sc-dispatch #{tmp 2713}# '())))
-               (if #{tmp 2714}#
-                 (@apply (lambda () (values '() #f)) #{tmp 2714}#)
-                 (let ((#{tmp 2715}#
+           (let ((#{tmp 2727}# #{clauses 2544}#))
+             (let ((#{tmp 2728}# ($sc-dispatch #{tmp 2727}# '())))
+               (if #{tmp 2728}#
+                 (@apply (lambda () (values '() #f)) #{tmp 2728}#)
+                 (let ((#{tmp 2729}#
                          ($sc-dispatch
-                           #{tmp 2713}#
+                           #{tmp 2727}#
                            '((any any . each-any)
                              .
                              #(each (any any . each-any))))))
-                   (if #{tmp 2715}#
+                   (if #{tmp 2729}#
                      (@apply
-                       (lambda (#{args 2722}#
-                                #{e1 2723}#
-                                #{e2 2724}#
-                                #{args* 2725}#
-                                #{e1* 2726}#
-                                #{e2* 2727}#)
+                       (lambda (#{args 2736}#
+                                #{e1 2737}#
+                                #{e2 2738}#
+                                #{args* 2739}#
+                                #{e1* 2740}#
+                                #{e2* 2741}#)
                          (call-with-values
-                           (lambda () (#{get-formals 2529}# #{args 2722}#))
-                           (lambda (#{req 2728}#
-                                    #{opt 2729}#
-                                    #{rest 2730}#
-                                    #{kw 2731}#)
+                           (lambda () (#{get-formals 2543}# #{args 2736}#))
+                           (lambda (#{req 2742}#
+                                    #{opt 2743}#
+                                    #{rest 2744}#
+                                    #{kw 2745}#)
                              (call-with-values
                                (lambda ()
-                                 (#{expand-req 2539}#
-                                   #{req 2728}#
-                                   #{opt 2729}#
-                                   #{rest 2730}#
-                                   #{kw 2731}#
-                                   (cons #{e1 2723}# #{e2 2724}#)))
-                               (lambda (#{meta 2737}#
-                                        #{req 2738}#
-                                        #{opt 2739}#
-                                        #{rest 2740}#
-                                        #{kw 2741}#
-                                        #{inits 2742}#
-                                        #{vars 2743}#
-                                        #{body 2744}#)
+                                 (#{expand-req 2553}#
+                                   #{req 2742}#
+                                   #{opt 2743}#
+                                   #{rest 2744}#
+                                   #{kw 2745}#
+                                   (cons #{e1 2737}# #{e2 2738}#)))
+                               (lambda (#{meta 2751}#
+                                        #{req 2752}#
+                                        #{opt 2753}#
+                                        #{rest 2754}#
+                                        #{kw 2755}#
+                                        #{inits 2756}#
+                                        #{vars 2757}#
+                                        #{body 2758}#)
                                  (call-with-values
                                    (lambda ()
-                                     (#{chi-lambda-case 443}#
-                                       #{e 2524}#
-                                       #{r 2525}#
-                                       #{w 2526}#
-                                       #{s 2527}#
-                                       #{mod 2528}#
-                                       #{get-formals 2529}#
-                                       (map (lambda (#{tmp 2755}#
-                                                     #{tmp 2754}#
-                                                     #{tmp 2753}#)
-                                              (cons #{tmp 2753}#
-                                                    (cons #{tmp 2754}#
-                                                          #{tmp 2755}#)))
-                                            #{e2* 2727}#
-                                            #{e1* 2726}#
-                                            #{args* 2725}#)))
-                                   (lambda (#{meta* 2757}# #{else* 2758}#)
+                                     (#{chi-lambda-case 456}#
+                                       #{e 2538}#
+                                       #{r 2539}#
+                                       #{w 2540}#
+                                       #{s 2541}#
+                                       #{mod 2542}#
+                                       #{get-formals 2543}#
+                                       (map (lambda (#{tmp 2769}#
+                                                     #{tmp 2768}#
+                                                     #{tmp 2767}#)
+                                              (cons #{tmp 2767}#
+                                                    (cons #{tmp 2768}#
+                                                          #{tmp 2769}#)))
+                                            #{e2* 2741}#
+                                            #{e1* 2740}#
+                                            #{args* 2739}#)))
+                                   (lambda (#{meta* 2771}# #{else* 2772}#)
                                      (values
-                                       (append #{meta 2737}# #{meta* 2757}#)
-                                       (#{build-lambda-case 287}#
-                                         #{s 2527}#
-                                         #{req 2738}#
-                                         #{opt 2739}#
-                                         #{rest 2740}#
-                                         #{kw 2741}#
-                                         #{inits 2742}#
-                                         #{vars 2743}#
-                                         #{body 2744}#
-                                         #{else* 2758}#)))))))))
-                       #{tmp 2715}#)
+                                       (append #{meta 2751}# #{meta* 2771}#)
+                                       (#{build-lambda-case 288}#
+                                         #{s 2541}#
+                                         #{req 2752}#
+                                         #{opt 2753}#
+                                         #{rest 2754}#
+                                         #{kw 2755}#
+                                         #{inits 2756}#
+                                         #{vars 2757}#
+                                         #{body 2758}#
+                                         #{else* 2772}#)))))))))
+                       #{tmp 2729}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
-                       #{tmp 2713}#))))))))))
-   (#{strip 445}#
-     (lambda (#{x 2761}# #{w 2762}#)
-       (if (memq 'top (car #{w 2762}#))
-         #{x 2761}#
+                       #{tmp 2727}#))))))))))
+   (#{strip 458}#
+     (lambda (#{x 2775}# #{w 2776}#)
+       (if (memq 'top (car #{w 2776}#))
+         #{x 2775}#
          (letrec*
-           ((#{f 2769}#
-              (lambda (#{x 2770}#)
-                (if (#{syntax-object? 305}# #{x 2770}#)
-                  (#{strip 445}#
-                    (#{syntax-object-expression 307}# #{x 2770}#)
-                    (#{syntax-object-wrap 309}# #{x 2770}#))
-                  (if (pair? #{x 2770}#)
+           ((#{f 2783}#
+              (lambda (#{x 2784}#)
+                (if (#{syntax-object? 307}# #{x 2784}#)
+                  (#{strip 458}#
+                    (#{syntax-object-expression 309}# #{x 2784}#)
+                    (#{syntax-object-wrap 311}# #{x 2784}#))
+                  (if (pair? #{x 2784}#)
                     (begin
-                      (let ((#{a 2777}# (#{f 2769}# (car #{x 2770}#)))
-                            (#{d 2778}# (#{f 2769}# (cdr #{x 2770}#))))
-                        (if (if (eq? #{a 2777}# (car #{x 2770}#))
-                              (eq? #{d 2778}# (cdr #{x 2770}#))
+                      (let ((#{a 2791}# (#{f 2783}# (car #{x 2784}#)))
+                            (#{d 2792}# (#{f 2783}# (cdr #{x 2784}#))))
+                        (if (if (eq? #{a 2791}# (car #{x 2784}#))
+                              (eq? #{d 2792}# (cdr #{x 2784}#))
                               #f)
-                          #{x 2770}#
-                          (cons #{a 2777}# #{d 2778}#))))
-                    (if (vector? #{x 2770}#)
+                          #{x 2784}#
+                          (cons #{a 2791}# #{d 2792}#))))
+                    (if (vector? #{x 2784}#)
                       (begin
-                        (let ((#{old 2784}# (vector->list #{x 2770}#)))
+                        (let ((#{old 2798}# (vector->list #{x 2784}#)))
                           (begin
-                            (let ((#{new 2786}# (map #{f 2769}# #{old 2784}#)))
+                            (let ((#{new 2800}# (map #{f 2783}# #{old 2798}#)))
                               (letrec*
-                                ((#{lp 2790}#
-                                   (lambda (#{l1 2791}# #{l2 2792}#)
-                                     (if (null? #{l1 2791}#)
-                                       #{x 2770}#
-                                       (if (eq? (car #{l1 2791}#)
-                                                (car #{l2 2792}#))
-                                         (#{lp 2790}#
-                                           (cdr #{l1 2791}#)
-                                           (cdr #{l2 2792}#))
-                                         (list->vector #{new 2786}#))))))
+                                ((#{lp 2804}#
+                                   (lambda (#{l1 2805}# #{l2 2806}#)
+                                     (if (null? #{l1 2805}#)
+                                       #{x 2784}#
+                                       (if (eq? (car #{l1 2805}#)
+                                                (car #{l2 2806}#))
+                                         (#{lp 2804}#
+                                           (cdr #{l1 2805}#)
+                                           (cdr #{l2 2806}#))
+                                         (list->vector #{new 2800}#))))))
                                 (begin
-                                  (#{lp 2790}# #{old 2784}# #{new 2786}#)))))))
-                      #{x 2770}#))))))
-           (begin (#{f 2769}# #{x 2761}#))))))
-   (#{gen-var 447}#
-     (lambda (#{id 2794}#)
+                                  (#{lp 2804}# #{old 2798}# #{new 2800}#)))))))
+                      #{x 2784}#))))))
+           (begin (#{f 2783}# #{x 2775}#))))))
+   (#{gen-var 460}#
+     (lambda (#{id 2808}#)
        (begin
-         (let ((#{id 2797}#
-                 (if (#{syntax-object? 305}# #{id 2794}#)
-                   (#{syntax-object-expression 307}# #{id 2794}#)
-                   #{id 2794}#)))
+         (let ((#{id 2811}#
+                 (if (#{syntax-object? 307}# #{id 2808}#)
+                   (#{syntax-object-expression 309}# #{id 2808}#)
+                   #{id 2808}#)))
            (gensym
-             (string-append (symbol->string #{id 2797}#) " "))))))
-   (#{lambda-var-list 449}#
-     (lambda (#{vars 2799}#)
+             (string-append (symbol->string #{id 2811}#) " "))))))
+   (#{lambda-var-list 462}#
+     (lambda (#{vars 2813}#)
        (letrec*
-         ((#{lvl 2805}#
-            (lambda (#{vars 2806}# #{ls 2807}# #{w 2808}#)
-              (if (pair? #{vars 2806}#)
-                (#{lvl 2805}#
-                  (cdr #{vars 2806}#)
-                  (cons (#{wrap 405}# (car #{vars 2806}#) #{w 2808}# #f)
-                        #{ls 2807}#)
-                  #{w 2808}#)
-                (if (#{id? 339}# #{vars 2806}#)
-                  (cons (#{wrap 405}# #{vars 2806}# #{w 2808}# #f)
-                        #{ls 2807}#)
-                  (if (null? #{vars 2806}#)
-                    #{ls 2807}#
-                    (if (#{syntax-object? 305}# #{vars 2806}#)
-                      (#{lvl 2805}#
-                        (#{syntax-object-expression 307}# #{vars 2806}#)
-                        #{ls 2807}#
-                        (#{join-wraps 387}#
-                          #{w 2808}#
-                          (#{syntax-object-wrap 309}# #{vars 2806}#)))
-                      (cons #{vars 2806}# #{ls 2807}#))))))))
-         (begin (#{lvl 2805}# #{vars 2799}# '() '(())))))))
+         ((#{lvl 2819}#
+            (lambda (#{vars 2820}# #{ls 2821}# #{w 2822}#)
+              (if (pair? #{vars 2820}#)
+                (#{lvl 2819}#
+                  (cdr #{vars 2820}#)
+                  (cons (#{wrap 418}# (car #{vars 2820}#) #{w 2822}# #f)
+                        #{ls 2821}#)
+                  #{w 2822}#)
+                (if (#{id? 344}# #{vars 2820}#)
+                  (cons (#{wrap 418}# #{vars 2820}# #{w 2822}# #f)
+                        #{ls 2821}#)
+                  (if (null? #{vars 2820}#)
+                    #{ls 2821}#
+                    (if (#{syntax-object? 307}# #{vars 2820}#)
+                      (#{lvl 2819}#
+                        (#{syntax-object-expression 309}# #{vars 2820}#)
+                        #{ls 2821}#
+                        (#{join-wraps 400}#
+                          #{w 2822}#
+                          (#{syntax-object-wrap 311}# #{vars 2820}#)))
+                      (cons #{vars 2820}# #{ls 2821}#))))))))
+         (begin (#{lvl 2819}# #{vars 2813}# '() '(())))))))
   (begin
-    (lambda (#{src 767}# #{name 768}#)
+    (lambda (#{src 780}# #{name 781}#)
       (make-struct/no-tail
         (vector-ref %expanded-vtables 2)
-        #{src 767}#
-        #{name 768}#))
-    (lambda (#{x 1145}# #{update 1146}#)
-      (vector-set! #{x 1145}# 1 #{update 1146}#))
-    (lambda (#{x 1149}# #{update 1150}#)
-      (vector-set! #{x 1149}# 2 #{update 1150}#))
-    (lambda (#{x 1153}# #{update 1154}#)
-      (vector-set! #{x 1153}# 3 #{update 1154}#))
-    (lambda (#{x 1234}#)
-      (if (vector? #{x 1234}#)
-        (if (= (vector-length #{x 1234}#) 4)
-          (eq? (vector-ref #{x 1234}# 0) 'ribcage)
+        #{src 780}#
+        #{name 781}#))
+    (lambda (#{x 1158}# #{update 1159}#)
+      (vector-set! #{x 1158}# 1 #{update 1159}#))
+    (lambda (#{x 1162}# #{update 1163}#)
+      (vector-set! #{x 1162}# 2 #{update 1163}#))
+    (lambda (#{x 1166}# #{update 1167}#)
+      (vector-set! #{x 1166}# 3 #{update 1167}#))
+    (lambda (#{x 1247}#)
+      (if (vector? #{x 1247}#)
+        (if (= (vector-length #{x 1247}#) 4)
+          (eq? (vector-ref #{x 1247}# 0) 'ribcage)
           #f)
         #f))
     (begin
-      (#{global-extend 335}#
+      (#{global-extend 340}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend 335}#
+      (#{global-extend 340}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend 335}#
+      (#{global-extend 340}#
         'core
         'fluid-let-syntax
-        (lambda (#{e 2819}#
-                 #{r 2820}#
-                 #{w 2821}#
-                 #{s 2822}#
-                 #{mod 2823}#)
-          (let ((#{tmp 2829}# #{e 2819}#))
-            (let ((#{tmp 2830}#
+        (lambda (#{e 2833}#
+                 #{r 2834}#
+                 #{w 2835}#
+                 #{s 2836}#
+                 #{mod 2837}#)
+          (let ((#{tmp 2843}# #{e 2833}#))
+            (let ((#{tmp 2844}#
                     ($sc-dispatch
-                      #{tmp 2829}#
+                      #{tmp 2843}#
                       '(_ #(each (any any)) any . each-any))))
-              (if (if #{tmp 2830}#
+              (if (if #{tmp 2844}#
                     (@apply
-                      (lambda (#{var 2835}#
-                               #{val 2836}#
-                               #{e1 2837}#
-                               #{e2 2838}#)
-                        (#{valid-bound-ids? 399}# #{var 2835}#))
-                      #{tmp 2830}#)
+                      (lambda (#{var 2849}#
+                               #{val 2850}#
+                               #{e1 2851}#
+                               #{e2 2852}#)
+                        (#{valid-bound-ids? 412}# #{var 2849}#))
+                      #{tmp 2844}#)
                     #f)
                 (@apply
-                  (lambda (#{var 2844}#
-                           #{val 2845}#
-                           #{e1 2846}#
-                           #{e2 2847}#)
+                  (lambda (#{var 2858}#
+                           #{val 2859}#
+                           #{e1 2860}#
+                           #{e2 2861}#)
                     (begin
-                      (let ((#{names 2849}#
-                              (map (lambda (#{x 2850}#)
-                                     (#{id-var-name 393}#
-                                       #{x 2850}#
-                                       #{w 2821}#))
-                                   #{var 2844}#)))
+                      (let ((#{names 2863}#
+                              (map (lambda (#{x 2864}#)
+                                     (#{id-var-name 406}#
+                                       #{x 2864}#
+                                       #{w 2835}#))
+                                   #{var 2858}#)))
                         (begin
                           (for-each
-                            (lambda (#{id 2853}# #{n 2854}#)
+                            (lambda (#{id 2867}# #{n 2868}#)
                               (begin
-                                (let ((#{atom-key 2859}#
-                                        (car (#{lookup 333}#
-                                               #{n 2854}#
-                                               #{r 2820}#
-                                               #{mod 2823}#))))
-                                  (if (eqv? #{atom-key 2859}#
+                                (let ((#{atom-key 2873}#
+                                        (car (#{lookup 338}#
+                                               #{n 2868}#
+                                               #{r 2834}#
+                                               #{mod 2837}#))))
+                                  (if (eqv? #{atom-key 2873}#
                                             'displaced-lexical)
                                     (syntax-violation
                                       'fluid-let-syntax
                                       "identifier out of context"
-                                      #{e 2819}#
-                                      (#{source-wrap 407}#
-                                        #{id 2853}#
-                                        #{w 2821}#
-                                        #{s 2822}#
-                                        #{mod 2823}#))))))
-                            #{var 2844}#
-                            #{names 2849}#)
-                          (#{chi-body 427}#
-                            (cons #{e1 2846}# #{e2 2847}#)
-                            (#{source-wrap 407}#
-                              #{e 2819}#
-                              #{w 2821}#
-                              #{s 2822}#
-                              #{mod 2823}#)
-                            (#{extend-env 327}#
-                              #{names 2849}#
+                                      #{e 2833}#
+                                      (#{source-wrap 420}#
+                                        #{id 2867}#
+                                        #{w 2835}#
+                                        #{s 2836}#
+                                        #{mod 2837}#))))))
+                            #{var 2858}#
+                            #{names 2863}#)
+                          (#{chi-body 440}#
+                            (cons #{e1 2860}# #{e2 2861}#)
+                            (#{source-wrap 420}#
+                              #{e 2833}#
+                              #{w 2835}#
+                              #{s 2836}#
+                              #{mod 2837}#)
+                            (#{extend-env 332}#
+                              #{names 2863}#
                               (begin
-                                (let ((#{trans-r 2865}#
-                                        (#{macros-only-env 331}# #{r 2820}#)))
-                                  (map (lambda (#{x 2866}#)
+                                (let ((#{trans-r 2879}#
+                                        (#{macros-only-env 336}# #{r 2834}#)))
+                                  (map (lambda (#{x 2880}#)
                                          (cons 'macro
-                                               (#{eval-local-transformer 431}#
-                                                 (#{chi 419}#
-                                                   #{x 2866}#
-                                                   #{trans-r 2865}#
-                                                   #{w 2821}#
-                                                   #{mod 2823}#)
-                                                 #{mod 2823}#)))
-                                       #{val 2845}#)))
-                              #{r 2820}#)
-                            #{w 2821}#
-                            #{mod 2823}#)))))
-                  #{tmp 2830}#)
-                (let ((#{_ 2871}# #{tmp 2829}#))
+                                               (#{eval-local-transformer 444}#
+                                                 (#{chi 432}#
+                                                   #{x 2880}#
+                                                   #{trans-r 2879}#
+                                                   #{w 2835}#
+                                                   #{mod 2837}#)
+                                                 #{mod 2837}#)))
+                                       #{val 2859}#)))
+                              #{r 2834}#)
+                            #{w 2835}#
+                            #{mod 2837}#)))))
+                  #{tmp 2844}#)
+                (let ((#{_ 2885}# #{tmp 2843}#))
                   (syntax-violation
                     'fluid-let-syntax
                     "bad syntax"
-                    (#{source-wrap 407}#
-                      #{e 2819}#
-                      #{w 2821}#
-                      #{s 2822}#
-                      #{mod 2823}#))))))))
-      (#{global-extend 335}#
+                    (#{source-wrap 420}#
+                      #{e 2833}#
+                      #{w 2835}#
+                      #{s 2836}#
+                      #{mod 2837}#))))))))
+      (#{global-extend 340}#
         'core
         'quote
-        (lambda (#{e 2872}#
-                 #{r 2873}#
-                 #{w 2874}#
-                 #{s 2875}#
-                 #{mod 2876}#)
-          (let ((#{tmp 2882}# #{e 2872}#))
-            (let ((#{tmp 2883}#
-                    ($sc-dispatch #{tmp 2882}# '(_ any))))
-              (if #{tmp 2883}#
+        (lambda (#{e 2886}#
+                 #{r 2887}#
+                 #{w 2888}#
+                 #{s 2889}#
+                 #{mod 2890}#)
+          (let ((#{tmp 2896}# #{e 2886}#))
+            (let ((#{tmp 2897}#
+                    ($sc-dispatch #{tmp 2896}# '(_ any))))
+              (if #{tmp 2897}#
                 (@apply
-                  (lambda (#{e 2885}#)
-                    (#{build-data 291}#
-                      #{s 2875}#
-                      (#{strip 445}# #{e 2885}# #{w 2874}#)))
-                  #{tmp 2883}#)
-                (let ((#{_ 2887}# #{tmp 2882}#))
+                  (lambda (#{e 2899}#)
+                    (#{build-data 292}#
+                      #{s 2889}#
+                      (#{strip 458}# #{e 2899}# #{w 2888}#)))
+                  #{tmp 2897}#)
+                (let ((#{_ 2901}# #{tmp 2896}#))
                   (syntax-violation
                     'quote
                     "bad syntax"
-                    (#{source-wrap 407}#
-                      #{e 2872}#
-                      #{w 2874}#
-                      #{s 2875}#
-                      #{mod 2876}#))))))))
-      (#{global-extend 335}#
+                    (#{source-wrap 420}#
+                      #{e 2886}#
+                      #{w 2888}#
+                      #{s 2889}#
+                      #{mod 2890}#))))))))
+      (#{global-extend 340}#
         'core
         'syntax
         (letrec*
-          ((#{gen-syntax 2889}#
-             (lambda (#{src 2904}#
-                      #{e 2905}#
-                      #{r 2906}#
-                      #{maps 2907}#
-                      #{ellipsis? 2908}#
-                      #{mod 2909}#)
-               (if (#{id? 339}# #{e 2905}#)
+          ((#{gen-syntax 2903}#
+             (lambda (#{src 2918}#
+                      #{e 2919}#
+                      #{r 2920}#
+                      #{maps 2921}#
+                      #{ellipsis? 2922}#
+                      #{mod 2923}#)
+               (if (#{id? 344}# #{e 2919}#)
                  (begin
-                   (let ((#{label 2917}#
-                           (#{id-var-name 393}# #{e 2905}# '(()))))
+                   (let ((#{label 2931}#
+                           (#{id-var-name 406}# #{e 2919}# '(()))))
                      (begin
-                       (let ((#{b 2920}#
-                               (#{lookup 333}#
-                                 #{label 2917}#
-                                 #{r 2906}#
-                                 #{mod 2909}#)))
-                         (if (eq? (car #{b 2920}#) 'syntax)
+                       (let ((#{b 2934}#
+                               (#{lookup 338}#
+                                 #{label 2931}#
+                                 #{r 2920}#
+                                 #{mod 2923}#)))
+                         (if (eq? (car #{b 2934}#) 'syntax)
                            (call-with-values
                              (lambda ()
                                (begin
-                                 (let ((#{var.lev 2923}# (cdr #{b 2920}#)))
-                                   (#{gen-ref 2891}#
-                                     #{src 2904}#
-                                     (car #{var.lev 2923}#)
-                                     (cdr #{var.lev 2923}#)
-                                     #{maps 2907}#))))
-                             (lambda (#{var 2925}# #{maps 2926}#)
+                                 (let ((#{var.lev 2937}# (cdr #{b 2934}#)))
+                                   (#{gen-ref 2905}#
+                                     #{src 2918}#
+                                     (car #{var.lev 2937}#)
+                                     (cdr #{var.lev 2937}#)
+                                     #{maps 2921}#))))
+                             (lambda (#{var 2939}# #{maps 2940}#)
                                (values
-                                 (list 'ref #{var 2925}#)
-                                 #{maps 2926}#)))
-                           (if (#{ellipsis? 2908}# #{e 2905}#)
+                                 (list 'ref #{var 2939}#)
+                                 #{maps 2940}#)))
+                           (if (#{ellipsis? 2922}# #{e 2919}#)
                              (syntax-violation
                                'syntax
                                "misplaced ellipsis"
-                               #{src 2904}#)
+                               #{src 2918}#)
                              (values
-                               (list 'quote #{e 2905}#)
-                               #{maps 2907}#)))))))
-                 (let ((#{tmp 2931}# #{e 2905}#))
-                   (let ((#{tmp 2932}#
-                           ($sc-dispatch #{tmp 2931}# '(any any))))
-                     (if (if #{tmp 2932}#
+                               (list 'quote #{e 2919}#)
+                               #{maps 2921}#)))))))
+                 (let ((#{tmp 2945}# #{e 2919}#))
+                   (let ((#{tmp 2946}#
+                           ($sc-dispatch #{tmp 2945}# '(any any))))
+                     (if (if #{tmp 2946}#
                            (@apply
-                             (lambda (#{dots 2935}# #{e 2936}#)
-                               (#{ellipsis? 2908}# #{dots 2935}#))
-                             #{tmp 2932}#)
+                             (lambda (#{dots 2949}# #{e 2950}#)
+                               (#{ellipsis? 2922}# #{dots 2949}#))
+                             #{tmp 2946}#)
                            #f)
                        (@apply
-                         (lambda (#{dots 2939}# #{e 2940}#)
-                           (#{gen-syntax 2889}#
-                             #{src 2904}#
-                             #{e 2940}#
-                             #{r 2906}#
-                             #{maps 2907}#
-                             (lambda (#{x 2941}#) #f)
-                             #{mod 2909}#))
-                         #{tmp 2932}#)
-                       (let ((#{tmp 2943}#
-                               ($sc-dispatch #{tmp 2931}# '(any any . any))))
-                         (if (if #{tmp 2943}#
+                         (lambda (#{dots 2953}# #{e 2954}#)
+                           (#{gen-syntax 2903}#
+                             #{src 2918}#
+                             #{e 2954}#
+                             #{r 2920}#
+                             #{maps 2921}#
+                             (lambda (#{x 2955}#) #f)
+                             #{mod 2923}#))
+                         #{tmp 2946}#)
+                       (let ((#{tmp 2957}#
+                               ($sc-dispatch #{tmp 2945}# '(any any . any))))
+                         (if (if #{tmp 2957}#
                                (@apply
-                                 (lambda (#{x 2947}# #{dots 2948}# #{y 2949}#)
-                                   (#{ellipsis? 2908}# #{dots 2948}#))
-                                 #{tmp 2943}#)
+                                 (lambda (#{x 2961}# #{dots 2962}# #{y 2963}#)
+                                   (#{ellipsis? 2922}# #{dots 2962}#))
+                                 #{tmp 2957}#)
                                #f)
                            (@apply
-                             (lambda (#{x 2953}# #{dots 2954}# #{y 2955}#)
+                             (lambda (#{x 2967}# #{dots 2968}# #{y 2969}#)
                                (letrec*
-                                 ((#{f 2959}#
-                                    (lambda (#{y 2960}# #{k 2961}#)
-                                      (let ((#{tmp 2968}# #{y 2960}#))
-                                        (let ((#{tmp 2969}#
+                                 ((#{f 2973}#
+                                    (lambda (#{y 2974}# #{k 2975}#)
+                                      (let ((#{tmp 2982}# #{y 2974}#))
+                                        (let ((#{tmp 2983}#
                                                 ($sc-dispatch
-                                                  #{tmp 2968}#
+                                                  #{tmp 2982}#
                                                   '(any . any))))
-                                          (if (if #{tmp 2969}#
+                                          (if (if #{tmp 2983}#
                                                 (@apply
-                                                  (lambda (#{dots 2972}#
-                                                           #{y 2973}#)
-                                                    (#{ellipsis? 2908}#
-                                                      #{dots 2972}#))
-                                                  #{tmp 2969}#)
+                                                  (lambda (#{dots 2986}#
+                                                           #{y 2987}#)
+                                                    (#{ellipsis? 2922}#
+                                                      #{dots 2986}#))
+                                                  #{tmp 2983}#)
                                                 #f)
                                             (@apply
-                                              (lambda (#{dots 2976}#
-                                                       #{y 2977}#)
-                                                (#{f 2959}#
-                                                  #{y 2977}#
-                                                  (lambda (#{maps 2978}#)
+                                              (lambda (#{dots 2990}#
+                                                       #{y 2991}#)
+                                                (#{f 2973}#
+                                                  #{y 2991}#
+                                                  (lambda (#{maps 2992}#)
                                                     (call-with-values
                                                       (lambda ()
-                                                        (#{k 2961}#
+                                                        (#{k 2975}#
                                                           (cons '()
-                                                                #{maps 
2978}#)))
-                                                      (lambda (#{x 2980}#
-                                                               #{maps 2981}#)
-                                                        (if (null? (car #{maps 
2981}#))
+                                                                #{maps 
2992}#)))
+                                                      (lambda (#{x 2994}#
+                                                               #{maps 2995}#)
+                                                        (if (null? (car #{maps 
2995}#))
                                                           (syntax-violation
                                                             'syntax
                                                             "extra ellipsis"
-                                                            #{src 2904}#)
+                                                            #{src 2918}#)
                                                           (values
-                                                            (#{gen-mappend 
2893}#
-                                                              #{x 2980}#
-                                                              (car #{maps 
2981}#))
-                                                            (cdr #{maps 
2981}#))))))))
-                                              #{tmp 2969}#)
-                                            (let ((#{_ 2985}# #{tmp 2968}#))
+                                                            (#{gen-mappend 
2907}#
+                                                              #{x 2994}#
+                                                              (car #{maps 
2995}#))
+                                                            (cdr #{maps 
2995}#))))))))
+                                              #{tmp 2983}#)
+                                            (let ((#{_ 2999}# #{tmp 2982}#))
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{gen-syntax 2889}#
-                                                    #{src 2904}#
-                                                    #{y 2960}#
-                                                    #{r 2906}#
-                                                    #{maps 2907}#
-                                                    #{ellipsis? 2908}#
-                                                    #{mod 2909}#))
-                                                (lambda (#{y 2986}#
-                                                         #{maps 2987}#)
+                                                  (#{gen-syntax 2903}#
+                                                    #{src 2918}#
+                                                    #{y 2974}#
+                                                    #{r 2920}#
+                                                    #{maps 2921}#
+                                                    #{ellipsis? 2922}#
+                                                    #{mod 2923}#))
+                                                (lambda (#{y 3000}#
+                                                         #{maps 3001}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{k 2961}#
-                                                        #{maps 2987}#))
-                                                    (lambda (#{x 2990}#
-                                                             #{maps 2991}#)
+                                                      (#{k 2975}#
+                                                        #{maps 3001}#))
+                                                    (lambda (#{x 3004}#
+                                                             #{maps 3005}#)
                                                       (values
-                                                        (#{gen-append 2899}#
-                                                          #{x 2990}#
-                                                          #{y 2986}#)
-                                                        #{maps 
2991}#))))))))))))
+                                                        (#{gen-append 2913}#
+                                                          #{x 3004}#
+                                                          #{y 3000}#)
+                                                        #{maps 
3005}#))))))))))))
                                  (begin
-                                   (#{f 2959}#
-                                     #{y 2955}#
-                                     (lambda (#{maps 2962}#)
+                                   (#{f 2973}#
+                                     #{y 2969}#
+                                     (lambda (#{maps 2976}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{gen-syntax 2889}#
-                                             #{src 2904}#
-                                             #{x 2953}#
-                                             #{r 2906}#
-                                             (cons '() #{maps 2962}#)
-                                             #{ellipsis? 2908}#
-                                             #{mod 2909}#))
-                                         (lambda (#{x 2964}# #{maps 2965}#)
-                                           (if (null? (car #{maps 2965}#))
+                                           (#{gen-syntax 2903}#
+                                             #{src 2918}#
+                                             #{x 2967}#
+                                             #{r 2920}#
+                                             (cons '() #{maps 2976}#)
+                                             #{ellipsis? 2922}#
+                                             #{mod 2923}#))
+                                         (lambda (#{x 2978}# #{maps 2979}#)
+                                           (if (null? (car #{maps 2979}#))
                                              (syntax-violation
                                                'syntax
                                                "extra ellipsis"
-                                               #{src 2904}#)
+                                               #{src 2918}#)
                                              (values
-                                               (#{gen-map 2895}#
-                                                 #{x 2964}#
-                                                 (car #{maps 2965}#))
-                                               (cdr #{maps 2965}#))))))))))
-                             #{tmp 2943}#)
-                           (let ((#{tmp 2994}#
-                                   ($sc-dispatch #{tmp 2931}# '(any . any))))
-                             (if #{tmp 2994}#
+                                               (#{gen-map 2909}#
+                                                 #{x 2978}#
+                                                 (car #{maps 2979}#))
+                                               (cdr #{maps 2979}#))))))))))
+                             #{tmp 2957}#)
+                           (let ((#{tmp 3008}#
+                                   ($sc-dispatch #{tmp 2945}# '(any . any))))
+                             (if #{tmp 3008}#
                                (@apply
-                                 (lambda (#{x 2997}# #{y 2998}#)
+                                 (lambda (#{x 3011}# #{y 3012}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{gen-syntax 2889}#
-                                         #{src 2904}#
-                                         #{x 2997}#
-                                         #{r 2906}#
-                                         #{maps 2907}#
-                                         #{ellipsis? 2908}#
-                                         #{mod 2909}#))
-                                     (lambda (#{x 2999}# #{maps 3000}#)
+                                       (#{gen-syntax 2903}#
+                                         #{src 2918}#
+                                         #{x 3011}#
+                                         #{r 2920}#
+                                         #{maps 2921}#
+                                         #{ellipsis? 2922}#
+                                         #{mod 2923}#))
+                                     (lambda (#{x 3013}# #{maps 3014}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{gen-syntax 2889}#
-                                             #{src 2904}#
-                                             #{y 2998}#
-                                             #{r 2906}#
-                                             #{maps 3000}#
-                                             #{ellipsis? 2908}#
-                                             #{mod 2909}#))
-                                         (lambda (#{y 3003}# #{maps 3004}#)
+                                           (#{gen-syntax 2903}#
+                                             #{src 2918}#
+                                             #{y 3012}#
+                                             #{r 2920}#
+                                             #{maps 3014}#
+                                             #{ellipsis? 2922}#
+                                             #{mod 2923}#))
+                                         (lambda (#{y 3017}# #{maps 3018}#)
                                            (values
-                                             (#{gen-cons 2897}#
-                                               #{x 2999}#
-                                               #{y 3003}#)
-                                             #{maps 3004}#))))))
-                                 #{tmp 2994}#)
-                               (let ((#{tmp 3007}#
+                                             (#{gen-cons 2911}#
+                                               #{x 3013}#
+                                               #{y 3017}#)
+                                             #{maps 3018}#))))))
+                                 #{tmp 3008}#)
+                               (let ((#{tmp 3021}#
                                        ($sc-dispatch
-                                         #{tmp 2931}#
+                                         #{tmp 2945}#
                                          '#(vector (any . each-any)))))
-                                 (if #{tmp 3007}#
+                                 (if #{tmp 3021}#
                                    (@apply
-                                     (lambda (#{e1 3010}# #{e2 3011}#)
+                                     (lambda (#{e1 3024}# #{e2 3025}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{gen-syntax 2889}#
-                                             #{src 2904}#
-                                             (cons #{e1 3010}# #{e2 3011}#)
-                                             #{r 2906}#
-                                             #{maps 2907}#
-                                             #{ellipsis? 2908}#
-                                             #{mod 2909}#))
-                                         (lambda (#{e 3013}# #{maps 3014}#)
+                                           (#{gen-syntax 2903}#
+                                             #{src 2918}#
+                                             (cons #{e1 3024}# #{e2 3025}#)
+                                             #{r 2920}#
+                                             #{maps 2921}#
+                                             #{ellipsis? 2922}#
+                                             #{mod 2923}#))
+                                         (lambda (#{e 3027}# #{maps 3028}#)
                                            (values
-                                             (#{gen-vector 2901}# #{e 3013}#)
-                                             #{maps 3014}#))))
-                                     #{tmp 3007}#)
-                                   (let ((#{_ 3018}# #{tmp 2931}#))
+                                             (#{gen-vector 2915}# #{e 3027}#)
+                                             #{maps 3028}#))))
+                                     #{tmp 3021}#)
+                                   (let ((#{_ 3032}# #{tmp 2945}#))
                                      (values
-                                       (list 'quote #{e 2905}#)
-                                       #{maps 2907}#))))))))))))))
-           (#{gen-ref 2891}#
-             (lambda (#{src 3020}#
-                      #{var 3021}#
-                      #{level 3022}#
-                      #{maps 3023}#)
-               (if (= #{level 3022}# 0)
-                 (values #{var 3021}# #{maps 3023}#)
-                 (if (null? #{maps 3023}#)
+                                       (list 'quote #{e 2919}#)
+                                       #{maps 2921}#))))))))))))))
+           (#{gen-ref 2905}#
+             (lambda (#{src 3034}#
+                      #{var 3035}#
+                      #{level 3036}#
+                      #{maps 3037}#)
+               (if (= #{level 3036}# 0)
+                 (values #{var 3035}# #{maps 3037}#)
+                 (if (null? #{maps 3037}#)
                    (syntax-violation
                      'syntax
                      "missing ellipsis"
-                     #{src 3020}#)
+                     #{src 3034}#)
                    (call-with-values
                      (lambda ()
-                       (#{gen-ref 2891}#
-                         #{src 3020}#
-                         #{var 3021}#
-                         (#{1-}# #{level 3022}#)
-                         (cdr #{maps 3023}#)))
-                     (lambda (#{outer-var 3030}# #{outer-maps 3031}#)
+                       (#{gen-ref 2905}#
+                         #{src 3034}#
+                         #{var 3035}#
+                         (#{1-}# #{level 3036}#)
+                         (cdr #{maps 3037}#)))
+                     (lambda (#{outer-var 3044}# #{outer-maps 3045}#)
                        (begin
-                         (let ((#{b 3035}#
-                                 (assq #{outer-var 3030}#
-                                       (car #{maps 3023}#))))
-                           (if #{b 3035}#
-                             (values (cdr #{b 3035}#) #{maps 3023}#)
+                         (let ((#{b 3049}#
+                                 (assq #{outer-var 3044}#
+                                       (car #{maps 3037}#))))
+                           (if #{b 3049}#
+                             (values (cdr #{b 3049}#) #{maps 3037}#)
                              (begin
-                               (let ((#{inner-var 3037}#
-                                       (#{gen-var 447}# 'tmp)))
+                               (let ((#{inner-var 3051}#
+                                       (#{gen-var 460}# 'tmp)))
                                  (values
-                                   #{inner-var 3037}#
-                                   (cons (cons (cons #{outer-var 3030}#
-                                                     #{inner-var 3037}#)
-                                               (car #{maps 3023}#))
-                                         #{outer-maps 3031}#)))))))))))))
-           (#{gen-mappend 2893}#
-             (lambda (#{e 3038}# #{map-env 3039}#)
+                                   #{inner-var 3051}#
+                                   (cons (cons (cons #{outer-var 3044}#
+                                                     #{inner-var 3051}#)
+                                               (car #{maps 3037}#))
+                                         #{outer-maps 3045}#)))))))))))))
+           (#{gen-mappend 2907}#
+             (lambda (#{e 3052}# #{map-env 3053}#)
                (list 'apply
                      '(primitive append)
-                     (#{gen-map 2895}# #{e 3038}# #{map-env 3039}#))))
-           (#{gen-map 2895}#
-             (lambda (#{e 3043}# #{map-env 3044}#)
+                     (#{gen-map 2909}# #{e 3052}# #{map-env 3053}#))))
+           (#{gen-map 2909}#
+             (lambda (#{e 3057}# #{map-env 3058}#)
                (begin
-                 (let ((#{formals 3049}# (map cdr #{map-env 3044}#))
-                       (#{actuals 3050}#
-                         (map (lambda (#{x 3051}#)
-                                (list 'ref (car #{x 3051}#)))
-                              #{map-env 3044}#)))
-                   (if (eq? (car #{e 3043}#) 'ref)
-                     (car #{actuals 3050}#)
+                 (let ((#{formals 3063}# (map cdr #{map-env 3058}#))
+                       (#{actuals 3064}#
+                         (map (lambda (#{x 3065}#)
+                                (list 'ref (car #{x 3065}#)))
+                              #{map-env 3058}#)))
+                   (if (eq? (car #{e 3057}#) 'ref)
+                     (car #{actuals 3064}#)
                      (if (and-map
-                           (lambda (#{x 3058}#)
-                             (if (eq? (car #{x 3058}#) 'ref)
-                               (memq (car (cdr #{x 3058}#)) #{formals 3049}#)
+                           (lambda (#{x 3072}#)
+                             (if (eq? (car #{x 3072}#) 'ref)
+                               (memq (car (cdr #{x 3072}#)) #{formals 3063}#)
                                #f))
-                           (cdr #{e 3043}#))
+                           (cdr #{e 3057}#))
                        (cons 'map
-                             (cons (list 'primitive (car #{e 3043}#))
+                             (cons (list 'primitive (car #{e 3057}#))
                                    (map (begin
-                                          (let ((#{r 3064}#
+                                          (let ((#{r 3078}#
                                                   (map cons
-                                                       #{formals 3049}#
-                                                       #{actuals 3050}#)))
-                                            (lambda (#{x 3065}#)
-                                              (cdr (assq (car (cdr #{x 3065}#))
-                                                         #{r 3064}#)))))
-                                        (cdr #{e 3043}#))))
+                                                       #{formals 3063}#
+                                                       #{actuals 3064}#)))
+                                            (lambda (#{x 3079}#)
+                                              (cdr (assq (car (cdr #{x 3079}#))
+                                                         #{r 3078}#)))))
+                                        (cdr #{e 3057}#))))
                        (cons 'map
-                             (cons (list 'lambda #{formals 3049}# #{e 3043}#)
-                                   #{actuals 3050}#))))))))
-           (#{gen-cons 2897}#
-             (lambda (#{x 3069}# #{y 3070}#)
+                             (cons (list 'lambda #{formals 3063}# #{e 3057}#)
+                                   #{actuals 3064}#))))))))
+           (#{gen-cons 2911}#
+             (lambda (#{x 3083}# #{y 3084}#)
                (begin
-                 (let ((#{atom-key 3075}# (car #{y 3070}#)))
-                   (if (eqv? #{atom-key 3075}# 'quote)
-                     (if (eq? (car #{x 3069}#) 'quote)
+                 (let ((#{atom-key 3089}# (car #{y 3084}#)))
+                   (if (eqv? #{atom-key 3089}# 'quote)
+                     (if (eq? (car #{x 3083}#) 'quote)
                        (list 'quote
-                             (cons (car (cdr #{x 3069}#))
-                                   (car (cdr #{y 3070}#))))
-                       (if (eq? (car (cdr #{y 3070}#)) '())
-                         (list 'list #{x 3069}#)
-                         (list 'cons #{x 3069}# #{y 3070}#)))
-                     (if (eqv? #{atom-key 3075}# 'list)
-                       (cons 'list (cons #{x 3069}# (cdr #{y 3070}#)))
-                       (list 'cons #{x 3069}# #{y 3070}#)))))))
-           (#{gen-append 2899}#
-             (lambda (#{x 3084}# #{y 3085}#)
-               (if (equal? #{y 3085}# ''())
-                 #{x 3084}#
-                 (list 'append #{x 3084}# #{y 3085}#))))
-           (#{gen-vector 2901}#
-             (lambda (#{x 3089}#)
-               (if (eq? (car #{x 3089}#) 'list)
-                 (cons 'vector (cdr #{x 3089}#))
-                 (if (eq? (car #{x 3089}#) 'quote)
+                             (cons (car (cdr #{x 3083}#))
+                                   (car (cdr #{y 3084}#))))
+                       (if (eq? (car (cdr #{y 3084}#)) '())
+                         (list 'list #{x 3083}#)
+                         (list 'cons #{x 3083}# #{y 3084}#)))
+                     (if (eqv? #{atom-key 3089}# 'list)
+                       (cons 'list (cons #{x 3083}# (cdr #{y 3084}#)))
+                       (list 'cons #{x 3083}# #{y 3084}#)))))))
+           (#{gen-append 2913}#
+             (lambda (#{x 3098}# #{y 3099}#)
+               (if (equal? #{y 3099}# ''())
+                 #{x 3098}#
+                 (list 'append #{x 3098}# #{y 3099}#))))
+           (#{gen-vector 2915}#
+             (lambda (#{x 3103}#)
+               (if (eq? (car #{x 3103}#) 'list)
+                 (cons 'vector (cdr #{x 3103}#))
+                 (if (eq? (car #{x 3103}#) 'quote)
                    (list 'quote
-                         (list->vector (car (cdr #{x 3089}#))))
-                   (list 'list->vector #{x 3089}#)))))
-           (#{regen 2903}#
-             (lambda (#{x 3099}#)
+                         (list->vector (car (cdr #{x 3103}#))))
+                   (list 'list->vector #{x 3103}#)))))
+           (#{regen 2917}#
+             (lambda (#{x 3113}#)
                (begin
-                 (let ((#{atom-key 3103}# (car #{x 3099}#)))
-                   (if (eqv? #{atom-key 3103}# 'ref)
-                     (#{build-lexical-reference 271}#
+                 (let ((#{atom-key 3117}# (car #{x 3113}#)))
+                   (if (eqv? #{atom-key 3117}# 'ref)
+                     (#{build-lexical-reference 272}#
                        'value
                        #f
-                       (car (cdr #{x 3099}#))
-                       (car (cdr #{x 3099}#)))
-                     (if (eqv? #{atom-key 3103}# 'primitive)
-                       (#{build-primref 289}# #f (car (cdr #{x 3099}#)))
-                       (if (eqv? #{atom-key 3103}# 'quote)
-                         (#{build-data 291}# #f (car (cdr #{x 3099}#)))
-                         (if (eqv? #{atom-key 3103}# 'lambda)
-                           (if (list? (car (cdr #{x 3099}#)))
-                             (#{build-simple-lambda 283}#
+                       (car (cdr #{x 3113}#))
+                       (car (cdr #{x 3113}#)))
+                     (if (eqv? #{atom-key 3117}# 'primitive)
+                       (#{build-primref 290}# #f (car (cdr #{x 3113}#)))
+                       (if (eqv? #{atom-key 3117}# 'quote)
+                         (#{build-data 292}# #f (car (cdr #{x 3113}#)))
+                         (if (eqv? #{atom-key 3117}# 'lambda)
+                           (if (list? (car (cdr #{x 3113}#)))
+                             (#{build-simple-lambda 284}#
                                #f
-                               (car (cdr #{x 3099}#))
+                               (car (cdr #{x 3113}#))
                                #f
-                               (car (cdr #{x 3099}#))
+                               (car (cdr #{x 3113}#))
                                '()
-                               (#{regen 2903}# (car (cdr (cdr #{x 3099}#)))))
-                             (error "how did we get here" #{x 3099}#))
-                           (#{build-application 265}#
+                               (#{regen 2917}# (car (cdr (cdr #{x 3113}#)))))
+                             (error "how did we get here" #{x 3113}#))
+                           (#{build-application 266}#
                              #f
-                             (#{build-primref 289}# #f (car #{x 3099}#))
-                             (map #{regen 2903}# (cdr #{x 3099}#))))))))))))
+                             (#{build-primref 290}# #f (car #{x 3113}#))
+                             (map #{regen 2917}# (cdr #{x 3113}#))))))))))))
           (begin
-            (lambda (#{e 3115}#
-                     #{r 3116}#
-                     #{w 3117}#
-                     #{s 3118}#
-                     #{mod 3119}#)
+            (lambda (#{e 3129}#
+                     #{r 3130}#
+                     #{w 3131}#
+                     #{s 3132}#
+                     #{mod 3133}#)
               (begin
-                (let ((#{e 3126}#
-                        (#{source-wrap 407}#
-                          #{e 3115}#
-                          #{w 3117}#
-                          #{s 3118}#
-                          #{mod 3119}#)))
-                  (let ((#{tmp 3127}# #{e 3126}#))
-                    (let ((#{tmp 3128}#
-                            ($sc-dispatch #{tmp 3127}# '(_ any))))
-                      (if #{tmp 3128}#
+                (let ((#{e 3140}#
+                        (#{source-wrap 420}#
+                          #{e 3129}#
+                          #{w 3131}#
+                          #{s 3132}#
+                          #{mod 3133}#)))
+                  (let ((#{tmp 3141}# #{e 3140}#))
+                    (let ((#{tmp 3142}#
+                            ($sc-dispatch #{tmp 3141}# '(_ any))))
+                      (if #{tmp 3142}#
                         (@apply
-                          (lambda (#{x 3130}#)
+                          (lambda (#{x 3144}#)
                             (call-with-values
                               (lambda ()
-                                (#{gen-syntax 2889}#
-                                  #{e 3126}#
-                                  #{x 3130}#
-                                  #{r 3116}#
+                                (#{gen-syntax 2903}#
+                                  #{e 3140}#
+                                  #{x 3144}#
+                                  #{r 3130}#
                                   '()
-                                  #{ellipsis? 435}#
-                                  #{mod 3119}#))
-                              (lambda (#{e 3131}# #{maps 3132}#)
-                                (#{regen 2903}# #{e 3131}#))))
-                          #{tmp 3128}#)
-                        (let ((#{_ 3136}# #{tmp 3127}#))
+                                  #{ellipsis? 448}#
+                                  #{mod 3133}#))
+                              (lambda (#{e 3145}# #{maps 3146}#)
+                                (#{regen 2917}# #{e 3145}#))))
+                          #{tmp 3142}#)
+                        (let ((#{_ 3150}# #{tmp 3141}#))
                           (syntax-violation
                             'syntax
                             "bad `syntax' form"
-                            #{e 3126}#)))))))))))
-      (#{global-extend 335}#
+                            #{e 3140}#)))))))))))
+      (#{global-extend 340}#
         'core
         'lambda
-        (lambda (#{e 3137}#
-                 #{r 3138}#
-                 #{w 3139}#
-                 #{s 3140}#
-                 #{mod 3141}#)
-          (let ((#{tmp 3147}# #{e 3137}#))
-            (let ((#{tmp 3148}#
+        (lambda (#{e 3151}#
+                 #{r 3152}#
+                 #{w 3153}#
+                 #{s 3154}#
+                 #{mod 3155}#)
+          (let ((#{tmp 3161}# #{e 3151}#))
+            (let ((#{tmp 3162}#
                     ($sc-dispatch
-                      #{tmp 3147}#
+                      #{tmp 3161}#
                       '(_ any any . each-any))))
-              (if #{tmp 3148}#
+              (if #{tmp 3162}#
                 (@apply
-                  (lambda (#{args 3152}# #{e1 3153}# #{e2 3154}#)
+                  (lambda (#{args 3166}# #{e1 3167}# #{e2 3168}#)
                     (call-with-values
                       (lambda ()
-                        (#{lambda-formals 437}# #{args 3152}#))
-                      (lambda (#{req 3155}#
-                               #{opt 3156}#
-                               #{rest 3157}#
-                               #{kw 3158}#)
+                        (#{lambda-formals 450}# #{args 3166}#))
+                      (lambda (#{req 3169}#
+                               #{opt 3170}#
+                               #{rest 3171}#
+                               #{kw 3172}#)
                         (letrec*
-                          ((#{lp 3166}#
-                             (lambda (#{body 3167}# #{meta 3168}#)
-                               (let ((#{tmp 3170}# #{body 3167}#))
-                                 (let ((#{tmp 3171}#
+                          ((#{lp 3180}#
+                             (lambda (#{body 3181}# #{meta 3182}#)
+                               (let ((#{tmp 3184}# #{body 3181}#))
+                                 (let ((#{tmp 3185}#
                                          ($sc-dispatch
-                                           #{tmp 3170}#
+                                           #{tmp 3184}#
                                            '(any any . each-any))))
-                                   (if (if #{tmp 3171}#
+                                   (if (if #{tmp 3185}#
                                          (@apply
-                                           (lambda (#{docstring 3175}#
-                                                    #{e1 3176}#
-                                                    #{e2 3177}#)
+                                           (lambda (#{docstring 3189}#
+                                                    #{e1 3190}#
+                                                    #{e2 3191}#)
                                              (string?
                                                (syntax->datum
-                                                 #{docstring 3175}#)))
-                                           #{tmp 3171}#)
+                                                 #{docstring 3189}#)))
+                                           #{tmp 3185}#)
                                          #f)
                                      (@apply
-                                       (lambda (#{docstring 3181}#
-                                                #{e1 3182}#
-                                                #{e2 3183}#)
-                                         (#{lp 3166}#
-                                           (cons #{e1 3182}# #{e2 3183}#)
+                                       (lambda (#{docstring 3195}#
+                                                #{e1 3196}#
+                                                #{e2 3197}#)
+                                         (#{lp 3180}#
+                                           (cons #{e1 3196}# #{e2 3197}#)
                                            (append
-                                             #{meta 3168}#
+                                             #{meta 3182}#
                                              (list (cons 'documentation
                                                          (syntax->datum
-                                                           #{docstring 
3181}#))))))
-                                       #{tmp 3171}#)
-                                     (let ((#{tmp 3186}#
+                                                           #{docstring 
3195}#))))))
+                                       #{tmp 3185}#)
+                                     (let ((#{tmp 3200}#
                                              ($sc-dispatch
-                                               #{tmp 3170}#
+                                               #{tmp 3184}#
                                                '(#(vector #(each (any . any)))
                                                  any
                                                  .
                                                  each-any))))
-                                       (if #{tmp 3186}#
+                                       (if #{tmp 3200}#
                                          (@apply
-                                           (lambda (#{k 3191}#
-                                                    #{v 3192}#
-                                                    #{e1 3193}#
-                                                    #{e2 3194}#)
-                                             (#{lp 3166}#
-                                               (cons #{e1 3193}# #{e2 3194}#)
+                                           (lambda (#{k 3205}#
+                                                    #{v 3206}#
+                                                    #{e1 3207}#
+                                                    #{e2 3208}#)
+                                             (#{lp 3180}#
+                                               (cons #{e1 3207}# #{e2 3208}#)
                                                (append
-                                                 #{meta 3168}#
+                                                 #{meta 3182}#
                                                  (syntax->datum
                                                    (map cons
-                                                        #{k 3191}#
-                                                        #{v 3192}#)))))
-                                           #{tmp 3186}#)
-                                         (let ((#{_ 3199}# #{tmp 3170}#))
-                                           (#{chi-simple-lambda 439}#
-                                             #{e 3137}#
-                                             #{r 3138}#
-                                             #{w 3139}#
-                                             #{s 3140}#
-                                             #{mod 3141}#
-                                             #{req 3155}#
-                                             #{rest 3157}#
-                                             #{meta 3168}#
-                                             #{body 3167}#))))))))))
+                                                        #{k 3205}#
+                                                        #{v 3206}#)))))
+                                           #{tmp 3200}#)
+                                         (let ((#{_ 3213}# #{tmp 3184}#))
+                                           (#{chi-simple-lambda 452}#
+                                             #{e 3151}#
+                                             #{r 3152}#
+                                             #{w 3153}#
+                                             #{s 3154}#
+                                             #{mod 3155}#
+                                             #{req 3169}#
+                                             #{rest 3171}#
+                                             #{meta 3182}#
+                                             #{body 3181}#))))))))))
                           (begin
-                            (#{lp 3166}#
-                              (cons #{e1 3153}# #{e2 3154}#)
+                            (#{lp 3180}#
+                              (cons #{e1 3167}# #{e2 3168}#)
                               '()))))))
-                  #{tmp 3148}#)
-                (let ((#{_ 3201}# #{tmp 3147}#))
+                  #{tmp 3162}#)
+                (let ((#{_ 3215}# #{tmp 3161}#))
                   (syntax-violation
                     'lambda
                     "bad lambda"
-                    #{e 3137}#)))))))
-      (#{global-extend 335}#
+                    #{e 3151}#)))))))
+      (#{global-extend 340}#
         'core
         'lambda*
-        (lambda (#{e 3202}#
-                 #{r 3203}#
-                 #{w 3204}#
-                 #{s 3205}#
-                 #{mod 3206}#)
-          (let ((#{tmp 3212}# #{e 3202}#))
-            (let ((#{tmp 3213}#
+        (lambda (#{e 3216}#
+                 #{r 3217}#
+                 #{w 3218}#
+                 #{s 3219}#
+                 #{mod 3220}#)
+          (let ((#{tmp 3226}# #{e 3216}#))
+            (let ((#{tmp 3227}#
                     ($sc-dispatch
-                      #{tmp 3212}#
+                      #{tmp 3226}#
                       '(_ any any . each-any))))
-              (if #{tmp 3213}#
+              (if #{tmp 3227}#
                 (@apply
-                  (lambda (#{args 3217}# #{e1 3218}# #{e2 3219}#)
+                  (lambda (#{args 3231}# #{e1 3232}# #{e2 3233}#)
                     (call-with-values
                       (lambda ()
-                        (#{chi-lambda-case 443}#
-                          #{e 3202}#
-                          #{r 3203}#
-                          #{w 3204}#
-                          #{s 3205}#
-                          #{mod 3206}#
-                          #{lambda*-formals 441}#
-                          (list (cons #{args 3217}#
-                                      (cons #{e1 3218}# #{e2 3219}#)))))
-                      (lambda (#{meta 3221}# #{lcase 3222}#)
-                        (#{build-case-lambda 285}#
-                          #{s 3205}#
-                          #{meta 3221}#
-                          #{lcase 3222}#))))
-                  #{tmp 3213}#)
-                (let ((#{_ 3226}# #{tmp 3212}#))
+                        (#{chi-lambda-case 456}#
+                          #{e 3216}#
+                          #{r 3217}#
+                          #{w 3218}#
+                          #{s 3219}#
+                          #{mod 3220}#
+                          #{lambda*-formals 454}#
+                          (list (cons #{args 3231}#
+                                      (cons #{e1 3232}# #{e2 3233}#)))))
+                      (lambda (#{meta 3235}# #{lcase 3236}#)
+                        (#{build-case-lambda 286}#
+                          #{s 3219}#
+                          #{meta 3235}#
+                          #{lcase 3236}#))))
+                  #{tmp 3227}#)
+                (let ((#{_ 3240}# #{tmp 3226}#))
                   (syntax-violation
                     'lambda
                     "bad lambda*"
-                    #{e 3202}#)))))))
-      (#{global-extend 335}#
+                    #{e 3216}#)))))))
+      (#{global-extend 340}#
         'core
         'case-lambda
-        (lambda (#{e 3227}#
-                 #{r 3228}#
-                 #{w 3229}#
-                 #{s 3230}#
-                 #{mod 3231}#)
-          (let ((#{tmp 3237}# #{e 3227}#))
-            (let ((#{tmp 3238}#
+        (lambda (#{e 3241}#
+                 #{r 3242}#
+                 #{w 3243}#
+                 #{s 3244}#
+                 #{mod 3245}#)
+          (let ((#{tmp 3251}# #{e 3241}#))
+            (let ((#{tmp 3252}#
                     ($sc-dispatch
-                      #{tmp 3237}#
+                      #{tmp 3251}#
                       '(_ (any any . each-any)
                           .
                           #(each (any any . each-any))))))
-              (if #{tmp 3238}#
+              (if #{tmp 3252}#
                 (@apply
-                  (lambda (#{args 3245}#
-                           #{e1 3246}#
-                           #{e2 3247}#
-                           #{args* 3248}#
-                           #{e1* 3249}#
-                           #{e2* 3250}#)
+                  (lambda (#{args 3259}#
+                           #{e1 3260}#
+                           #{e2 3261}#
+                           #{args* 3262}#
+                           #{e1* 3263}#
+                           #{e2* 3264}#)
                     (call-with-values
                       (lambda ()
-                        (#{chi-lambda-case 443}#
-                          #{e 3227}#
-                          #{r 3228}#
-                          #{w 3229}#
-                          #{s 3230}#
-                          #{mod 3231}#
-                          #{lambda-formals 437}#
-                          (cons (cons #{args 3245}#
-                                      (cons #{e1 3246}# #{e2 3247}#))
-                                (map (lambda (#{tmp 3254}#
-                                              #{tmp 3253}#
-                                              #{tmp 3252}#)
-                                       (cons #{tmp 3252}#
-                                             (cons #{tmp 3253}# #{tmp 3254}#)))
-                                     #{e2* 3250}#
-                                     #{e1* 3249}#
-                                     #{args* 3248}#))))
-                      (lambda (#{meta 3256}# #{lcase 3257}#)
-                        (#{build-case-lambda 285}#
-                          #{s 3230}#
-                          #{meta 3256}#
-                          #{lcase 3257}#))))
-                  #{tmp 3238}#)
-                (let ((#{_ 3261}# #{tmp 3237}#))
+                        (#{chi-lambda-case 456}#
+                          #{e 3241}#
+                          #{r 3242}#
+                          #{w 3243}#
+                          #{s 3244}#
+                          #{mod 3245}#
+                          #{lambda-formals 450}#
+                          (cons (cons #{args 3259}#
+                                      (cons #{e1 3260}# #{e2 3261}#))
+                                (map (lambda (#{tmp 3268}#
+                                              #{tmp 3267}#
+                                              #{tmp 3266}#)
+                                       (cons #{tmp 3266}#
+                                             (cons #{tmp 3267}# #{tmp 3268}#)))
+                                     #{e2* 3264}#
+                                     #{e1* 3263}#
+                                     #{args* 3262}#))))
+                      (lambda (#{meta 3270}# #{lcase 3271}#)
+                        (#{build-case-lambda 286}#
+                          #{s 3244}#
+                          #{meta 3270}#
+                          #{lcase 3271}#))))
+                  #{tmp 3252}#)
+                (let ((#{_ 3275}# #{tmp 3251}#))
                   (syntax-violation
                     'case-lambda
                     "bad case-lambda"
-                    #{e 3227}#)))))))
-      (#{global-extend 335}#
+                    #{e 3241}#)))))))
+      (#{global-extend 340}#
         'core
         'case-lambda*
-        (lambda (#{e 3262}#
-                 #{r 3263}#
-                 #{w 3264}#
-                 #{s 3265}#
-                 #{mod 3266}#)
-          (let ((#{tmp 3272}# #{e 3262}#))
-            (let ((#{tmp 3273}#
+        (lambda (#{e 3276}#
+                 #{r 3277}#
+                 #{w 3278}#
+                 #{s 3279}#
+                 #{mod 3280}#)
+          (let ((#{tmp 3286}# #{e 3276}#))
+            (let ((#{tmp 3287}#
                     ($sc-dispatch
-                      #{tmp 3272}#
+                      #{tmp 3286}#
                       '(_ (any any . each-any)
                           .
                           #(each (any any . each-any))))))
-              (if #{tmp 3273}#
+              (if #{tmp 3287}#
                 (@apply
-                  (lambda (#{args 3280}#
-                           #{e1 3281}#
-                           #{e2 3282}#
-                           #{args* 3283}#
-                           #{e1* 3284}#
-                           #{e2* 3285}#)
+                  (lambda (#{args 3294}#
+                           #{e1 3295}#
+                           #{e2 3296}#
+                           #{args* 3297}#
+                           #{e1* 3298}#
+                           #{e2* 3299}#)
                     (call-with-values
                       (lambda ()
-                        (#{chi-lambda-case 443}#
-                          #{e 3262}#
-                          #{r 3263}#
-                          #{w 3264}#
-                          #{s 3265}#
-                          #{mod 3266}#
-                          #{lambda*-formals 441}#
-                          (cons (cons #{args 3280}#
-                                      (cons #{e1 3281}# #{e2 3282}#))
-                                (map (lambda (#{tmp 3289}#
-                                              #{tmp 3288}#
-                                              #{tmp 3287}#)
-                                       (cons #{tmp 3287}#
-                                             (cons #{tmp 3288}# #{tmp 3289}#)))
-                                     #{e2* 3285}#
-                                     #{e1* 3284}#
-                                     #{args* 3283}#))))
-                      (lambda (#{meta 3291}# #{lcase 3292}#)
-                        (#{build-case-lambda 285}#
-                          #{s 3265}#
-                          #{meta 3291}#
-                          #{lcase 3292}#))))
-                  #{tmp 3273}#)
-                (let ((#{_ 3296}# #{tmp 3272}#))
+                        (#{chi-lambda-case 456}#
+                          #{e 3276}#
+                          #{r 3277}#
+                          #{w 3278}#
+                          #{s 3279}#
+                          #{mod 3280}#
+                          #{lambda*-formals 454}#
+                          (cons (cons #{args 3294}#
+                                      (cons #{e1 3295}# #{e2 3296}#))
+                                (map (lambda (#{tmp 3303}#
+                                              #{tmp 3302}#
+                                              #{tmp 3301}#)
+                                       (cons #{tmp 3301}#
+                                             (cons #{tmp 3302}# #{tmp 3303}#)))
+                                     #{e2* 3299}#
+                                     #{e1* 3298}#
+                                     #{args* 3297}#))))
+                      (lambda (#{meta 3305}# #{lcase 3306}#)
+                        (#{build-case-lambda 286}#
+                          #{s 3279}#
+                          #{meta 3305}#
+                          #{lcase 3306}#))))
+                  #{tmp 3287}#)
+                (let ((#{_ 3310}# #{tmp 3286}#))
                   (syntax-violation
                     'case-lambda
                     "bad case-lambda*"
-                    #{e 3262}#)))))))
-      (#{global-extend 335}#
+                    #{e 3276}#)))))))
+      (#{global-extend 340}#
         'core
         'let
         (letrec*
-          ((#{chi-let 3298}#
-             (lambda (#{e 3299}#
-                      #{r 3300}#
-                      #{w 3301}#
-                      #{s 3302}#
-                      #{mod 3303}#
-                      #{constructor 3304}#
-                      #{ids 3305}#
-                      #{vals 3306}#
-                      #{exps 3307}#)
-               (if (not (#{valid-bound-ids? 399}# #{ids 3305}#))
+          ((#{chi-let 3312}#
+             (lambda (#{e 3313}#
+                      #{r 3314}#
+                      #{w 3315}#
+                      #{s 3316}#
+                      #{mod 3317}#
+                      #{constructor 3318}#
+                      #{ids 3319}#
+                      #{vals 3320}#
+                      #{exps 3321}#)
+               (if (not (#{valid-bound-ids? 412}# #{ids 3319}#))
                  (syntax-violation
                    'let
                    "duplicate bound variable"
-                   #{e 3299}#)
+                   #{e 3313}#)
                  (begin
-                   (let ((#{labels 3319}#
-                           (#{gen-labels 354}# #{ids 3305}#))
-                         (#{new-vars 3320}#
-                           (map #{gen-var 447}# #{ids 3305}#)))
+                   (let ((#{labels 3333}#
+                           (#{gen-labels 364}# #{ids 3319}#))
+                         (#{new-vars 3334}#
+                           (map #{gen-var 460}# #{ids 3319}#)))
                      (begin
-                       (let ((#{nw 3323}#
-                               (#{make-binding-wrap 383}#
-                                 #{ids 3305}#
-                                 #{labels 3319}#
-                                 #{w 3301}#))
-                             (#{nr 3324}#
-                               (#{extend-var-env 329}#
-                                 #{labels 3319}#
-                                 #{new-vars 3320}#
-                                 #{r 3300}#)))
-                         (#{constructor 3304}#
-                           #{s 3302}#
-                           (map syntax->datum #{ids 3305}#)
-                           #{new-vars 3320}#
-                           (map (lambda (#{x 3325}#)
-                                  (#{chi 419}#
-                                    #{x 3325}#
-                                    #{r 3300}#
-                                    #{w 3301}#
-                                    #{mod 3303}#))
-                                #{vals 3306}#)
-                           (#{chi-body 427}#
-                             #{exps 3307}#
-                             (#{source-wrap 407}#
-                               #{e 3299}#
-                               #{nw 3323}#
-                               #{s 3302}#
-                               #{mod 3303}#)
-                             #{nr 3324}#
-                             #{nw 3323}#
-                             #{mod 3303}#))))))))))
+                       (let ((#{nw 3337}#
+                               (#{make-binding-wrap 396}#
+                                 #{ids 3319}#
+                                 #{labels 3333}#
+                                 #{w 3315}#))
+                             (#{nr 3338}#
+                               (#{extend-var-env 334}#
+                                 #{labels 3333}#
+                                 #{new-vars 3334}#
+                                 #{r 3314}#)))
+                         (#{constructor 3318}#
+                           #{s 3316}#
+                           (map syntax->datum #{ids 3319}#)
+                           #{new-vars 3334}#
+                           (map (lambda (#{x 3339}#)
+                                  (#{chi 432}#
+                                    #{x 3339}#
+                                    #{r 3314}#
+                                    #{w 3315}#
+                                    #{mod 3317}#))
+                                #{vals 3320}#)
+                           (#{chi-body 440}#
+                             #{exps 3321}#
+                             (#{source-wrap 420}#
+                               #{e 3313}#
+                               #{nw 3337}#
+                               #{s 3316}#
+                               #{mod 3317}#)
+                             #{nr 3338}#
+                             #{nw 3337}#
+                             #{mod 3317}#))))))))))
           (begin
-            (lambda (#{e 3327}#
-                     #{r 3328}#
-                     #{w 3329}#
-                     #{s 3330}#
-                     #{mod 3331}#)
-              (let ((#{tmp 3337}# #{e 3327}#))
-                (let ((#{tmp 3338}#
+            (lambda (#{e 3341}#
+                     #{r 3342}#
+                     #{w 3343}#
+                     #{s 3344}#
+                     #{mod 3345}#)
+              (let ((#{tmp 3351}# #{e 3341}#))
+                (let ((#{tmp 3352}#
                         ($sc-dispatch
-                          #{tmp 3337}#
+                          #{tmp 3351}#
                           '(_ #(each (any any)) any . each-any))))
-                  (if (if #{tmp 3338}#
+                  (if (if #{tmp 3352}#
                         (@apply
-                          (lambda (#{id 3343}#
-                                   #{val 3344}#
-                                   #{e1 3345}#
-                                   #{e2 3346}#)
-                            (and-map #{id? 339}# #{id 3343}#))
-                          #{tmp 3338}#)
+                          (lambda (#{id 3357}#
+                                   #{val 3358}#
+                                   #{e1 3359}#
+                                   #{e2 3360}#)
+                            (and-map #{id? 344}# #{id 3357}#))
+                          #{tmp 3352}#)
                         #f)
                     (@apply
-                      (lambda (#{id 3352}#
-                               #{val 3353}#
-                               #{e1 3354}#
-                               #{e2 3355}#)
-                        (#{chi-let 3298}#
-                          #{e 3327}#
-                          #{r 3328}#
-                          #{w 3329}#
-                          #{s 3330}#
-                          #{mod 3331}#
-                          #{build-let 295}#
-                          #{id 3352}#
-                          #{val 3353}#
-                          (cons #{e1 3354}# #{e2 3355}#)))
-                      #{tmp 3338}#)
-                    (let ((#{tmp 3359}#
+                      (lambda (#{id 3366}#
+                               #{val 3367}#
+                               #{e1 3368}#
+                               #{e2 3369}#)
+                        (#{chi-let 3312}#
+                          #{e 3341}#
+                          #{r 3342}#
+                          #{w 3343}#
+                          #{s 3344}#
+                          #{mod 3345}#
+                          #{build-let 296}#
+                          #{id 3366}#
+                          #{val 3367}#
+                          (cons #{e1 3368}# #{e2 3369}#)))
+                      #{tmp 3352}#)
+                    (let ((#{tmp 3373}#
                             ($sc-dispatch
-                              #{tmp 3337}#
+                              #{tmp 3351}#
                               '(_ any #(each (any any)) any . each-any))))
-                      (if (if #{tmp 3359}#
+                      (if (if #{tmp 3373}#
                             (@apply
-                              (lambda (#{f 3365}#
-                                       #{id 3366}#
-                                       #{val 3367}#
-                                       #{e1 3368}#
-                                       #{e2 3369}#)
-                                (if (#{id? 339}# #{f 3365}#)
-                                  (and-map #{id? 339}# #{id 3366}#)
+                              (lambda (#{f 3379}#
+                                       #{id 3380}#
+                                       #{val 3381}#
+                                       #{e1 3382}#
+                                       #{e2 3383}#)
+                                (if (#{id? 344}# #{f 3379}#)
+                                  (and-map #{id? 344}# #{id 3380}#)
                                   #f))
-                              #{tmp 3359}#)
+                              #{tmp 3373}#)
                             #f)
                         (@apply
-                          (lambda (#{f 3378}#
-                                   #{id 3379}#
-                                   #{val 3380}#
-                                   #{e1 3381}#
-                                   #{e2 3382}#)
-                            (#{chi-let 3298}#
-                              #{e 3327}#
-                              #{r 3328}#
-                              #{w 3329}#
-                              #{s 3330}#
-                              #{mod 3331}#
-                              #{build-named-let 297}#
-                              (cons #{f 3378}# #{id 3379}#)
-                              #{val 3380}#
-                              (cons #{e1 3381}# #{e2 3382}#)))
-                          #{tmp 3359}#)
-                        (let ((#{_ 3387}# #{tmp 3337}#))
+                          (lambda (#{f 3392}#
+                                   #{id 3393}#
+                                   #{val 3394}#
+                                   #{e1 3395}#
+                                   #{e2 3396}#)
+                            (#{chi-let 3312}#
+                              #{e 3341}#
+                              #{r 3342}#
+                              #{w 3343}#
+                              #{s 3344}#
+                              #{mod 3345}#
+                              #{build-named-let 298}#
+                              (cons #{f 3392}# #{id 3393}#)
+                              #{val 3394}#
+                              (cons #{e1 3395}# #{e2 3396}#)))
+                          #{tmp 3373}#)
+                        (let ((#{_ 3401}# #{tmp 3351}#))
                           (syntax-violation
                             'let
                             "bad let"
-                            (#{source-wrap 407}#
-                              #{e 3327}#
-                              #{w 3329}#
-                              #{s 3330}#
-                              #{mod 3331}#))))))))))))
-      (#{global-extend 335}#
+                            (#{source-wrap 420}#
+                              #{e 3341}#
+                              #{w 3343}#
+                              #{s 3344}#
+                              #{mod 3345}#))))))))))))
+      (#{global-extend 340}#
         'core
         'letrec
-        (lambda (#{e 3388}#
-                 #{r 3389}#
-                 #{w 3390}#
-                 #{s 3391}#
-                 #{mod 3392}#)
-          (let ((#{tmp 3398}# #{e 3388}#))
-            (let ((#{tmp 3399}#
+        (lambda (#{e 3402}#
+                 #{r 3403}#
+                 #{w 3404}#
+                 #{s 3405}#
+                 #{mod 3406}#)
+          (let ((#{tmp 3412}# #{e 3402}#))
+            (let ((#{tmp 3413}#
                     ($sc-dispatch
-                      #{tmp 3398}#
+                      #{tmp 3412}#
                       '(_ #(each (any any)) any . each-any))))
-              (if (if #{tmp 3399}#
+              (if (if #{tmp 3413}#
                     (@apply
-                      (lambda (#{id 3404}#
-                               #{val 3405}#
-                               #{e1 3406}#
-                               #{e2 3407}#)
-                        (and-map #{id? 339}# #{id 3404}#))
-                      #{tmp 3399}#)
+                      (lambda (#{id 3418}#
+                               #{val 3419}#
+                               #{e1 3420}#
+                               #{e2 3421}#)
+                        (and-map #{id? 344}# #{id 3418}#))
+                      #{tmp 3413}#)
                     #f)
                 (@apply
-                  (lambda (#{id 3413}#
-                           #{val 3414}#
-                           #{e1 3415}#
-                           #{e2 3416}#)
+                  (lambda (#{id 3427}#
+                           #{val 3428}#
+                           #{e1 3429}#
+                           #{e2 3430}#)
                     (begin
-                      (let ((#{ids 3418}# #{id 3413}#))
-                        (if (not (#{valid-bound-ids? 399}# #{ids 3418}#))
+                      (let ((#{ids 3432}# #{id 3427}#))
+                        (if (not (#{valid-bound-ids? 412}# #{ids 3432}#))
                           (syntax-violation
                             'letrec
                             "duplicate bound variable"
-                            #{e 3388}#)
+                            #{e 3402}#)
                           (begin
-                            (let ((#{labels 3422}#
-                                    (#{gen-labels 354}# #{ids 3418}#))
-                                  (#{new-vars 3423}#
-                                    (map #{gen-var 447}# #{ids 3418}#)))
+                            (let ((#{labels 3436}#
+                                    (#{gen-labels 364}# #{ids 3432}#))
+                                  (#{new-vars 3437}#
+                                    (map #{gen-var 460}# #{ids 3432}#)))
                               (begin
-                                (let ((#{w 3426}#
-                                        (#{make-binding-wrap 383}#
-                                          #{ids 3418}#
-                                          #{labels 3422}#
-                                          #{w 3390}#))
-                                      (#{r 3427}#
-                                        (#{extend-var-env 329}#
-                                          #{labels 3422}#
-                                          #{new-vars 3423}#
-                                          #{r 3389}#)))
-                                  (#{build-letrec 299}#
-                                    #{s 3391}#
+                                (let ((#{w 3440}#
+                                        (#{make-binding-wrap 396}#
+                                          #{ids 3432}#
+                                          #{labels 3436}#
+                                          #{w 3404}#))
+                                      (#{r 3441}#
+                                        (#{extend-var-env 334}#
+                                          #{labels 3436}#
+                                          #{new-vars 3437}#
+                                          #{r 3403}#)))
+                                  (#{build-letrec 300}#
+                                    #{s 3405}#
                                     #f
-                                    (map syntax->datum #{ids 3418}#)
-                                    #{new-vars 3423}#
-                                    (map (lambda (#{x 3428}#)
-                                           (#{chi 419}#
-                                             #{x 3428}#
-                                             #{r 3427}#
-                                             #{w 3426}#
-                                             #{mod 3392}#))
-                                         #{val 3414}#)
-                                    (#{chi-body 427}#
-                                      (cons #{e1 3415}# #{e2 3416}#)
-                                      (#{source-wrap 407}#
-                                        #{e 3388}#
-                                        #{w 3426}#
-                                        #{s 3391}#
-                                        #{mod 3392}#)
-                                      #{r 3427}#
-                                      #{w 3426}#
-                                      #{mod 3392}#))))))))))
-                  #{tmp 3399}#)
-                (let ((#{_ 3433}# #{tmp 3398}#))
+                                    (map syntax->datum #{ids 3432}#)
+                                    #{new-vars 3437}#
+                                    (map (lambda (#{x 3442}#)
+                                           (#{chi 432}#
+                                             #{x 3442}#
+                                             #{r 3441}#
+                                             #{w 3440}#
+                                             #{mod 3406}#))
+                                         #{val 3428}#)
+                                    (#{chi-body 440}#
+                                      (cons #{e1 3429}# #{e2 3430}#)
+                                      (#{source-wrap 420}#
+                                        #{e 3402}#
+                                        #{w 3440}#
+                                        #{s 3405}#
+                                        #{mod 3406}#)
+                                      #{r 3441}#
+                                      #{w 3440}#
+                                      #{mod 3406}#))))))))))
+                  #{tmp 3413}#)
+                (let ((#{_ 3447}# #{tmp 3412}#))
                   (syntax-violation
                     'letrec
                     "bad letrec"
-                    (#{source-wrap 407}#
-                      #{e 3388}#
-                      #{w 3390}#
-                      #{s 3391}#
-                      #{mod 3392}#))))))))
-      (#{global-extend 335}#
+                    (#{source-wrap 420}#
+                      #{e 3402}#
+                      #{w 3404}#
+                      #{s 3405}#
+                      #{mod 3406}#))))))))
+      (#{global-extend 340}#
         'core
         'letrec*
-        (lambda (#{e 3434}#
-                 #{r 3435}#
-                 #{w 3436}#
-                 #{s 3437}#
-                 #{mod 3438}#)
-          (let ((#{tmp 3444}# #{e 3434}#))
-            (let ((#{tmp 3445}#
+        (lambda (#{e 3448}#
+                 #{r 3449}#
+                 #{w 3450}#
+                 #{s 3451}#
+                 #{mod 3452}#)
+          (let ((#{tmp 3458}# #{e 3448}#))
+            (let ((#{tmp 3459}#
                     ($sc-dispatch
-                      #{tmp 3444}#
+                      #{tmp 3458}#
                       '(_ #(each (any any)) any . each-any))))
-              (if (if #{tmp 3445}#
+              (if (if #{tmp 3459}#
                     (@apply
-                      (lambda (#{id 3450}#
-                               #{val 3451}#
-                               #{e1 3452}#
-                               #{e2 3453}#)
-                        (and-map #{id? 339}# #{id 3450}#))
-                      #{tmp 3445}#)
+                      (lambda (#{id 3464}#
+                               #{val 3465}#
+                               #{e1 3466}#
+                               #{e2 3467}#)
+                        (and-map #{id? 344}# #{id 3464}#))
+                      #{tmp 3459}#)
                     #f)
                 (@apply
-                  (lambda (#{id 3459}#
-                           #{val 3460}#
-                           #{e1 3461}#
-                           #{e2 3462}#)
+                  (lambda (#{id 3473}#
+                           #{val 3474}#
+                           #{e1 3475}#
+                           #{e2 3476}#)
                     (begin
-                      (let ((#{ids 3464}# #{id 3459}#))
-                        (if (not (#{valid-bound-ids? 399}# #{ids 3464}#))
+                      (let ((#{ids 3478}# #{id 3473}#))
+                        (if (not (#{valid-bound-ids? 412}# #{ids 3478}#))
                           (syntax-violation
                             'letrec*
                             "duplicate bound variable"
-                            #{e 3434}#)
+                            #{e 3448}#)
                           (begin
-                            (let ((#{labels 3468}#
-                                    (#{gen-labels 354}# #{ids 3464}#))
-                                  (#{new-vars 3469}#
-                                    (map #{gen-var 447}# #{ids 3464}#)))
+                            (let ((#{labels 3482}#
+                                    (#{gen-labels 364}# #{ids 3478}#))
+                                  (#{new-vars 3483}#
+                                    (map #{gen-var 460}# #{ids 3478}#)))
                               (begin
-                                (let ((#{w 3472}#
-                                        (#{make-binding-wrap 383}#
-                                          #{ids 3464}#
-                                          #{labels 3468}#
-                                          #{w 3436}#))
-                                      (#{r 3473}#
-                                        (#{extend-var-env 329}#
-                                          #{labels 3468}#
-                                          #{new-vars 3469}#
-                                          #{r 3435}#)))
-                                  (#{build-letrec 299}#
-                                    #{s 3437}#
+                                (let ((#{w 3486}#
+                                        (#{make-binding-wrap 396}#
+                                          #{ids 3478}#
+                                          #{labels 3482}#
+                                          #{w 3450}#))
+                                      (#{r 3487}#
+                                        (#{extend-var-env 334}#
+                                          #{labels 3482}#
+                                          #{new-vars 3483}#
+                                          #{r 3449}#)))
+                                  (#{build-letrec 300}#
+                                    #{s 3451}#
                                     #t
-                                    (map syntax->datum #{ids 3464}#)
-                                    #{new-vars 3469}#
-                                    (map (lambda (#{x 3474}#)
-                                           (#{chi 419}#
-                                             #{x 3474}#
-                                             #{r 3473}#
-                                             #{w 3472}#
-                                             #{mod 3438}#))
-                                         #{val 3460}#)
-                                    (#{chi-body 427}#
-                                      (cons #{e1 3461}# #{e2 3462}#)
-                                      (#{source-wrap 407}#
-                                        #{e 3434}#
-                                        #{w 3472}#
-                                        #{s 3437}#
-                                        #{mod 3438}#)
-                                      #{r 3473}#
-                                      #{w 3472}#
-                                      #{mod 3438}#))))))))))
-                  #{tmp 3445}#)
-                (let ((#{_ 3479}# #{tmp 3444}#))
+                                    (map syntax->datum #{ids 3478}#)
+                                    #{new-vars 3483}#
+                                    (map (lambda (#{x 3488}#)
+                                           (#{chi 432}#
+                                             #{x 3488}#
+                                             #{r 3487}#
+                                             #{w 3486}#
+                                             #{mod 3452}#))
+                                         #{val 3474}#)
+                                    (#{chi-body 440}#
+                                      (cons #{e1 3475}# #{e2 3476}#)
+                                      (#{source-wrap 420}#
+                                        #{e 3448}#
+                                        #{w 3486}#
+                                        #{s 3451}#
+                                        #{mod 3452}#)
+                                      #{r 3487}#
+                                      #{w 3486}#
+                                      #{mod 3452}#))))))))))
+                  #{tmp 3459}#)
+                (let ((#{_ 3493}# #{tmp 3458}#))
                   (syntax-violation
                     'letrec*
                     "bad letrec*"
-                    (#{source-wrap 407}#
-                      #{e 3434}#
-                      #{w 3436}#
-                      #{s 3437}#
-                      #{mod 3438}#))))))))
-      (#{global-extend 335}#
+                    (#{source-wrap 420}#
+                      #{e 3448}#
+                      #{w 3450}#
+                      #{s 3451}#
+                      #{mod 3452}#))))))))
+      (#{global-extend 340}#
         'core
         'set!
-        (lambda (#{e 3480}#
-                 #{r 3481}#
-                 #{w 3482}#
-                 #{s 3483}#
-                 #{mod 3484}#)
-          (let ((#{tmp 3490}# #{e 3480}#))
-            (let ((#{tmp 3491}#
-                    ($sc-dispatch #{tmp 3490}# '(_ any any))))
-              (if (if #{tmp 3491}#
+        (lambda (#{e 3494}#
+                 #{r 3495}#
+                 #{w 3496}#
+                 #{s 3497}#
+                 #{mod 3498}#)
+          (let ((#{tmp 3504}# #{e 3494}#))
+            (let ((#{tmp 3505}#
+                    ($sc-dispatch #{tmp 3504}# '(_ any any))))
+              (if (if #{tmp 3505}#
                     (@apply
-                      (lambda (#{id 3494}# #{val 3495}#)
-                        (#{id? 339}# #{id 3494}#))
-                      #{tmp 3491}#)
+                      (lambda (#{id 3508}# #{val 3509}#)
+                        (#{id? 344}# #{id 3508}#))
+                      #{tmp 3505}#)
                     #f)
                 (@apply
-                  (lambda (#{id 3498}# #{val 3499}#)
+                  (lambda (#{id 3512}# #{val 3513}#)
                     (begin
-                      (let ((#{n 3502}#
-                              (#{id-var-name 393}# #{id 3498}# #{w 3482}#))
-                            (#{id-mod 3503}#
-                              (if (#{syntax-object? 305}# #{id 3498}#)
-                                (#{syntax-object-module 311}# #{id 3498}#)
-                                #{mod 3484}#)))
+                      (let ((#{n 3516}#
+                              (#{id-var-name 406}# #{id 3512}# #{w 3496}#))
+                            (#{id-mod 3517}#
+                              (if (#{syntax-object? 307}# #{id 3512}#)
+                                (#{syntax-object-module 313}# #{id 3512}#)
+                                #{mod 3498}#)))
                         (begin
-                          (let ((#{b 3505}#
-                                  (#{lookup 333}#
-                                    #{n 3502}#
-                                    #{r 3481}#
-                                    #{id-mod 3503}#)))
+                          (let ((#{b 3519}#
+                                  (#{lookup 338}#
+                                    #{n 3516}#
+                                    #{r 3495}#
+                                    #{id-mod 3517}#)))
                             (begin
-                              (let ((#{atom-key 3508}# (car #{b 3505}#)))
-                                (if (eqv? #{atom-key 3508}# 'lexical)
-                                  (#{build-lexical-assignment 273}#
-                                    #{s 3483}#
-                                    (syntax->datum #{id 3498}#)
-                                    (cdr #{b 3505}#)
-                                    (#{chi 419}#
-                                      #{val 3499}#
-                                      #{r 3481}#
-                                      #{w 3482}#
-                                      #{mod 3484}#))
-                                  (if (eqv? #{atom-key 3508}# 'global)
-                                    (#{build-global-assignment 279}#
-                                      #{s 3483}#
-                                      #{n 3502}#
-                                      (#{chi 419}#
-                                        #{val 3499}#
-                                        #{r 3481}#
-                                        #{w 3482}#
-                                        #{mod 3484}#)
-                                      #{id-mod 3503}#)
-                                    (if (eqv? #{atom-key 3508}# 'macro)
+                              (let ((#{atom-key 3522}# (car #{b 3519}#)))
+                                (if (eqv? #{atom-key 3522}# 'lexical)
+                                  (#{build-lexical-assignment 274}#
+                                    #{s 3497}#
+                                    (syntax->datum #{id 3512}#)
+                                    (cdr #{b 3519}#)
+                                    (#{chi 432}#
+                                      #{val 3513}#
+                                      #{r 3495}#
+                                      #{w 3496}#
+                                      #{mod 3498}#))
+                                  (if (eqv? #{atom-key 3522}# 'global)
+                                    (#{build-global-assignment 280}#
+                                      #{s 3497}#
+                                      #{n 3516}#
+                                      (#{chi 432}#
+                                        #{val 3513}#
+                                        #{r 3495}#
+                                        #{w 3496}#
+                                        #{mod 3498}#)
+                                      #{id-mod 3517}#)
+                                    (if (eqv? #{atom-key 3522}# 'macro)
                                       (begin
-                                        (let ((#{p 3515}# (cdr #{b 3505}#)))
+                                        (let ((#{p 3529}# (cdr #{b 3519}#)))
                                           (if (procedure-property
-                                                #{p 3515}#
+                                                #{p 3529}#
                                                 'variable-transformer)
-                                            (#{chi 419}#
-                                              (#{chi-macro 425}#
-                                                #{p 3515}#
-                                                #{e 3480}#
-                                                #{r 3481}#
-                                                #{w 3482}#
-                                                #{s 3483}#
+                                            (#{chi 432}#
+                                              (#{chi-macro 438}#
+                                                #{p 3529}#
+                                                #{e 3494}#
+                                                #{r 3495}#
+                                                #{w 3496}#
+                                                #{s 3497}#
                                                 #f
-                                                #{mod 3484}#)
-                                              #{r 3481}#
+                                                #{mod 3498}#)
+                                              #{r 3495}#
                                               '(())
-                                              #{mod 3484}#)
+                                              #{mod 3498}#)
                                             (syntax-violation
                                               'set!
                                               "not a variable transformer"
-                                              (#{wrap 405}#
-                                                #{e 3480}#
-                                                #{w 3482}#
-                                                #{mod 3484}#)
-                                              (#{wrap 405}#
-                                                #{id 3498}#
-                                                #{w 3482}#
-                                                #{id-mod 3503}#)))))
-                                      (if (eqv? #{atom-key 3508}#
+                                              (#{wrap 418}#
+                                                #{e 3494}#
+                                                #{w 3496}#
+                                                #{mod 3498}#)
+                                              (#{wrap 418}#
+                                                #{id 3512}#
+                                                #{w 3496}#
+                                                #{id-mod 3517}#)))))
+                                      (if (eqv? #{atom-key 3522}#
                                                 'displaced-lexical)
                                         (syntax-violation
                                           'set!
                                           "identifier out of context"
-                                          (#{wrap 405}#
-                                            #{id 3498}#
-                                            #{w 3482}#
-                                            #{mod 3484}#))
+                                          (#{wrap 418}#
+                                            #{id 3512}#
+                                            #{w 3496}#
+                                            #{mod 3498}#))
                                         (syntax-violation
                                           'set!
                                           "bad set!"
-                                          (#{source-wrap 407}#
-                                            #{e 3480}#
-                                            #{w 3482}#
-                                            #{s 3483}#
-                                            #{mod 3484}#)))))))))))))
-                  #{tmp 3491}#)
-                (let ((#{tmp 3520}#
+                                          (#{source-wrap 420}#
+                                            #{e 3494}#
+                                            #{w 3496}#
+                                            #{s 3497}#
+                                            #{mod 3498}#)))))))))))))
+                  #{tmp 3505}#)
+                (let ((#{tmp 3534}#
                         ($sc-dispatch
-                          #{tmp 3490}#
+                          #{tmp 3504}#
                           '(_ (any . each-any) any))))
-                  (if #{tmp 3520}#
+                  (if #{tmp 3534}#
                     (@apply
-                      (lambda (#{head 3524}# #{tail 3525}# #{val 3526}#)
+                      (lambda (#{head 3538}# #{tail 3539}# #{val 3540}#)
                         (call-with-values
                           (lambda ()
-                            (#{syntax-type 417}#
-                              #{head 3524}#
-                              #{r 3481}#
+                            (#{syntax-type 430}#
+                              #{head 3538}#
+                              #{r 3495}#
                               '(())
                               #f
                               #f
-                              #{mod 3484}#
+                              #{mod 3498}#
                               #t))
-                          (lambda (#{type 3529}#
-                                   #{value 3530}#
-                                   #{ee 3531}#
-                                   #{ww 3532}#
-                                   #{ss 3533}#
-                                   #{modmod 3534}#)
-                            (if (eqv? #{type 3529}# 'module-ref)
+                          (lambda (#{type 3543}#
+                                   #{value 3544}#
+                                   #{ee 3545}#
+                                   #{ww 3546}#
+                                   #{ss 3547}#
+                                   #{modmod 3548}#)
+                            (if (eqv? #{type 3543}# 'module-ref)
                               (begin
-                                (let ((#{val 3543}#
-                                        (#{chi 419}#
-                                          #{val 3526}#
-                                          #{r 3481}#
-                                          #{w 3482}#
-                                          #{mod 3484}#)))
+                                (let ((#{val 3557}#
+                                        (#{chi 432}#
+                                          #{val 3540}#
+                                          #{r 3495}#
+                                          #{w 3496}#
+                                          #{mod 3498}#)))
                                   (call-with-values
                                     (lambda ()
-                                      (#{value 3530}#
-                                        (cons #{head 3524}# #{tail 3525}#)
-                                        #{r 3481}#
-                                        #{w 3482}#))
-                                    (lambda (#{e 3545}#
-                                             #{r 3546}#
-                                             #{w 3547}#
-                                             #{s* 3548}#
-                                             #{mod 3549}#)
-                                      (let ((#{tmp 3555}# #{e 3545}#))
-                                        (let ((#{tmp 3556}#
-                                                (list #{tmp 3555}#)))
-                                          (if (if #{tmp 3556}#
+                                      (#{value 3544}#
+                                        (cons #{head 3538}# #{tail 3539}#)
+                                        #{r 3495}#
+                                        #{w 3496}#))
+                                    (lambda (#{e 3559}#
+                                             #{r 3560}#
+                                             #{w 3561}#
+                                             #{s* 3562}#
+                                             #{mod 3563}#)
+                                      (let ((#{tmp 3569}# #{e 3559}#))
+                                        (let ((#{tmp 3570}#
+                                                (list #{tmp 3569}#)))
+                                          (if (if #{tmp 3570}#
                                                 (@apply
-                                                  (lambda (#{e 3558}#)
-                                                    (#{id? 339}# #{e 3558}#))
-                                                  #{tmp 3556}#)
+                                                  (lambda (#{e 3572}#)
+                                                    (#{id? 344}# #{e 3572}#))
+                                                  #{tmp 3570}#)
                                                 #f)
                                             (@apply
-                                              (lambda (#{e 3560}#)
-                                                (#{build-global-assignment 
279}#
-                                                  #{s 3483}#
-                                                  (syntax->datum #{e 3560}#)
-                                                  #{val 3543}#
-                                                  #{mod 3549}#))
-                                              #{tmp 3556}#)
+                                              (lambda (#{e 3574}#)
+                                                (#{build-global-assignment 
280}#
+                                                  #{s 3497}#
+                                                  (syntax->datum #{e 3574}#)
+                                                  #{val 3557}#
+                                                  #{mod 3563}#))
+                                              #{tmp 3570}#)
                                             (syntax-violation
                                               #f
                                               "source expression failed to 
match any pattern"
-                                              #{tmp 3555}#))))))))
-                              (#{build-application 265}#
-                                #{s 3483}#
-                                (#{chi 419}#
+                                              #{tmp 3569}#))))))))
+                              (#{build-application 266}#
+                                #{s 3497}#
+                                (#{chi 432}#
                                   (list '#(syntax-object
                                            setter
                                            ((top)
@@ -9930,25 +9930,25 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                              #("i3535"
-                                                "i3536"
-                                                "i3537"
-                                                "i3538"
-                                                "i3539"
-                                                "i3540"))
+                                              #("i3549"
+                                                "i3550"
+                                                "i3551"
+                                                "i3552"
+                                                "i3553"
+                                                "i3554"))
                                             #(ribcage
                                               #(head tail val)
                                               #((top) (top) (top))
-                                              #("i3521" "i3522" "i3523"))
+                                              #("i3535" "i3536" "i3537"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(e r w s mod)
                                               #((top) (top) (top) (top) (top))
-                                              #("i3485"
-                                                "i3486"
-                                                "i3487"
-                                                "i3488"
-                                                "i3489"))
+                                              #("i3499"
+                                                "i3500"
+                                                "i3501"
+                                                "i3502"
+                                                "i3503"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
@@ -10222,81 +10222,82 @@
                                                (top)
                                                (top)
                                                (top))
-                                              ("i448"
-                                               "i446"
-                                               "i444"
-                                               "i442"
-                                               "i440"
-                                               "i438"
-                                               "i436"
-                                               "i434"
-                                               "i432"
-                                               "i430"
-                                               "i428"
-                                               "i426"
-                                               "i424"
-                                               "i422"
-                                               "i420"
-                                               "i418"
-                                               "i416"
-                                               "i414"
-                                               "i412"
-                                               "i410"
-                                               "i408"
-                                               "i406"
-                                               "i404"
-                                               "i402"
-                                               "i400"
-                                               "i398"
-                                               "i396"
-                                               "i394"
+                                              ("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"
+                                               "i397"
+                                               "i395"
+                                               "i393"
                                                "i392"
                                                "i390"
-                                               "i388"
+                                               "i387"
                                                "i386"
-                                               "i384"
+                                               "i385"
+                                               "i383"
                                                "i382"
                                                "i380"
-                                               "i379"
                                                "i378"
                                                "i376"
-                                               "i375"
                                                "i374"
-                                               "i373"
                                                "i372"
                                                "i370"
                                                "i368"
                                                "i366"
-                                               "i364"
-                                               "i362"
+                                               "i363"
+                                               "i361"
                                                "i360"
                                                "i358"
                                                "i356"
-                                               "i353"
+                                               "i354"
+                                               "i352"
                                                "i351"
                                                "i350"
                                                "i349"
-                                               "i348"
                                                "i347"
                                                "i346"
-                                               "i345"
-                                               "i344"
                                                "i343"
                                                "i341"
-                                               "i340"
-                                               "i338"
-                                               "i336"
-                                               "i334"
-                                               "i332"
+                                               "i339"
+                                               "i337"
+                                               "i335"
+                                               "i333"
+                                               "i331"
                                                "i330"
-                                               "i328"
-                                               "i326"
+                                               "i329"
+                                               "i327"
                                                "i325"
                                                "i324"
-                                               "i323"
-                                               "i322"
                                                "i321"
-                                               "i319"
+                                               "i320"
                                                "i318"
                                                "i316"
                                                "i314"
@@ -10306,31 +10307,30 @@
                                                "i306"
                                                "i304"
                                                "i302"
-                                               "i300"
-                                               "i298"
-                                               "i296"
-                                               "i294"
-                                               "i292"
-                                               "i290"
-                                               "i288"
-                                               "i286"
-                                               "i284"
-                                               "i282"
-                                               "i280"
-                                               "i278"
-                                               "i276"
-                                               "i274"
-                                               "i272"
-                                               "i270"
-                                               "i268"
-                                               "i266"
-                                               "i264"
-                                               "i262"
-                                               "i260"
-                                               "i258"
-                                               "i256"
+                                               "i299"
+                                               "i297"
+                                               "i295"
+                                               "i293"
+                                               "i291"
+                                               "i289"
+                                               "i287"
+                                               "i285"
+                                               "i283"
+                                               "i281"
+                                               "i279"
+                                               "i277"
+                                               "i275"
+                                               "i273"
+                                               "i271"
+                                               "i269"
+                                               "i267"
+                                               "i265"
+                                               "i263"
+                                               "i261"
+                                               "i259"
+                                               "i257"
+                                               "i255"
                                                "i254"
-                                               "i253"
                                                "i251"
                                                "i249"
                                                "i248"
@@ -10365,50 +10365,50 @@
                                               ((top) (top) (top))
                                               ("i40" "i39" "i38")))
                                            (hygiene guile))
-                                        #{head 3524}#)
-                                  #{r 3481}#
-                                  #{w 3482}#
-                                  #{mod 3484}#)
-                                (map (lambda (#{e 3562}#)
-                                       (#{chi 419}#
-                                         #{e 3562}#
-                                         #{r 3481}#
-                                         #{w 3482}#
-                                         #{mod 3484}#))
+                                        #{head 3538}#)
+                                  #{r 3495}#
+                                  #{w 3496}#
+                                  #{mod 3498}#)
+                                (map (lambda (#{e 3576}#)
+                                       (#{chi 432}#
+                                         #{e 3576}#
+                                         #{r 3495}#
+                                         #{w 3496}#
+                                         #{mod 3498}#))
                                      (append
-                                       #{tail 3525}#
-                                       (list #{val 3526}#))))))))
-                      #{tmp 3520}#)
-                    (let ((#{_ 3566}# #{tmp 3490}#))
+                                       #{tail 3539}#
+                                       (list #{val 3540}#))))))))
+                      #{tmp 3534}#)
+                    (let ((#{_ 3580}# #{tmp 3504}#))
                       (syntax-violation
                         'set!
                         "bad set!"
-                        (#{source-wrap 407}#
-                          #{e 3480}#
-                          #{w 3482}#
-                          #{s 3483}#
-                          #{mod 3484}#))))))))))
-      (#{global-extend 335}#
+                        (#{source-wrap 420}#
+                          #{e 3494}#
+                          #{w 3496}#
+                          #{s 3497}#
+                          #{mod 3498}#))))))))))
+      (#{global-extend 340}#
         'module-ref
         '@
-        (lambda (#{e 3567}# #{r 3568}# #{w 3569}#)
-          (let ((#{tmp 3573}# #{e 3567}#))
-            (let ((#{tmp 3574}#
-                    ($sc-dispatch #{tmp 3573}# '(_ each-any any))))
-              (if (if #{tmp 3574}#
+        (lambda (#{e 3581}# #{r 3582}# #{w 3583}#)
+          (let ((#{tmp 3587}# #{e 3581}#))
+            (let ((#{tmp 3588}#
+                    ($sc-dispatch #{tmp 3587}# '(_ each-any any))))
+              (if (if #{tmp 3588}#
                     (@apply
-                      (lambda (#{mod 3577}# #{id 3578}#)
-                        (if (and-map #{id? 339}# #{mod 3577}#)
-                          (#{id? 339}# #{id 3578}#)
+                      (lambda (#{mod 3591}# #{id 3592}#)
+                        (if (and-map #{id? 344}# #{mod 3591}#)
+                          (#{id? 344}# #{id 3592}#)
                           #f))
-                      #{tmp 3574}#)
+                      #{tmp 3588}#)
                     #f)
                 (@apply
-                  (lambda (#{mod 3584}# #{id 3585}#)
+                  (lambda (#{mod 3598}# #{id 3599}#)
                     (values
-                      (syntax->datum #{id 3585}#)
-                      #{r 3568}#
-                      #{w 3569}#
+                      (syntax->datum #{id 3599}#)
+                      #{r 3582}#
+                      #{w 3583}#
                       #f
                       (syntax->datum
                         (cons '#(syntax-object
@@ -10417,12 +10417,12 @@
                                   #(ribcage
                                     #(mod id)
                                     #((top) (top))
-                                    #("i3582" "i3583"))
+                                    #("i3596" "i3597"))
                                   #(ribcage () () ())
                                   #(ribcage
                                     #(e r w)
                                     #((top) (top) (top))
-                                    #("i3570" "i3571" "i3572"))
+                                    #("i3584" "i3585" "i3586"))
                                   #(ribcage
                                     (lambda-var-list
                                       gen-var
@@ -10696,81 +10696,82 @@
                                      (top)
                                      (top)
                                      (top))
-                                    ("i448"
-                                     "i446"
-                                     "i444"
-                                     "i442"
-                                     "i440"
-                                     "i438"
-                                     "i436"
-                                     "i434"
-                                     "i432"
-                                     "i430"
-                                     "i428"
-                                     "i426"
-                                     "i424"
-                                     "i422"
-                                     "i420"
-                                     "i418"
-                                     "i416"
-                                     "i414"
-                                     "i412"
-                                     "i410"
-                                     "i408"
-                                     "i406"
-                                     "i404"
-                                     "i402"
-                                     "i400"
-                                     "i398"
-                                     "i396"
-                                     "i394"
+                                    ("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"
+                                     "i397"
+                                     "i395"
+                                     "i393"
                                      "i392"
                                      "i390"
-                                     "i388"
+                                     "i387"
                                      "i386"
-                                     "i384"
+                                     "i385"
+                                     "i383"
                                      "i382"
                                      "i380"
-                                     "i379"
                                      "i378"
                                      "i376"
-                                     "i375"
                                      "i374"
-                                     "i373"
                                      "i372"
                                      "i370"
                                      "i368"
                                      "i366"
-                                     "i364"
-                                     "i362"
+                                     "i363"
+                                     "i361"
                                      "i360"
                                      "i358"
                                      "i356"
-                                     "i353"
+                                     "i354"
+                                     "i352"
                                      "i351"
                                      "i350"
                                      "i349"
-                                     "i348"
                                      "i347"
                                      "i346"
-                                     "i345"
-                                     "i344"
                                      "i343"
                                      "i341"
-                                     "i340"
-                                     "i338"
-                                     "i336"
-                                     "i334"
-                                     "i332"
+                                     "i339"
+                                     "i337"
+                                     "i335"
+                                     "i333"
+                                     "i331"
                                      "i330"
-                                     "i328"
-                                     "i326"
+                                     "i329"
+                                     "i327"
                                      "i325"
                                      "i324"
-                                     "i323"
-                                     "i322"
                                      "i321"
-                                     "i319"
+                                     "i320"
                                      "i318"
                                      "i316"
                                      "i314"
@@ -10780,31 +10781,30 @@
                                      "i306"
                                      "i304"
                                      "i302"
-                                     "i300"
-                                     "i298"
-                                     "i296"
-                                     "i294"
-                                     "i292"
-                                     "i290"
-                                     "i288"
-                                     "i286"
-                                     "i284"
-                                     "i282"
-                                     "i280"
-                                     "i278"
-                                     "i276"
-                                     "i274"
-                                     "i272"
-                                     "i270"
-                                     "i268"
-                                     "i266"
-                                     "i264"
-                                     "i262"
-                                     "i260"
-                                     "i258"
-                                     "i256"
+                                     "i299"
+                                     "i297"
+                                     "i295"
+                                     "i293"
+                                     "i291"
+                                     "i289"
+                                     "i287"
+                                     "i285"
+                                     "i283"
+                                     "i281"
+                                     "i279"
+                                     "i277"
+                                     "i275"
+                                     "i273"
+                                     "i271"
+                                     "i269"
+                                     "i267"
+                                     "i265"
+                                     "i263"
+                                     "i261"
+                                     "i259"
+                                     "i257"
+                                     "i255"
                                      "i254"
-                                     "i253"
                                      "i251"
                                      "i249"
                                      "i248"
@@ -10839,70 +10839,70 @@
                                     ((top) (top) (top))
                                     ("i40" "i39" "i38")))
                                  (hygiene guile))
-                              #{mod 3584}#))))
-                  #{tmp 3574}#)
+                              #{mod 3598}#))))
+                  #{tmp 3588}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{tmp 3573}#))))))
-      (#{global-extend 335}#
+                  #{tmp 3587}#))))))
+      (#{global-extend 340}#
         'module-ref
         '@@
-        (lambda (#{e 3587}# #{r 3588}# #{w 3589}#)
+        (lambda (#{e 3601}# #{r 3602}# #{w 3603}#)
           (letrec*
-            ((#{remodulate 3594}#
-               (lambda (#{x 3595}# #{mod 3596}#)
-                 (if (pair? #{x 3595}#)
-                   (cons (#{remodulate 3594}#
-                           (car #{x 3595}#)
-                           #{mod 3596}#)
-                         (#{remodulate 3594}#
-                           (cdr #{x 3595}#)
-                           #{mod 3596}#))
-                   (if (#{syntax-object? 305}# #{x 3595}#)
-                     (#{make-syntax-object 303}#
-                       (#{remodulate 3594}#
-                         (#{syntax-object-expression 307}# #{x 3595}#)
-                         #{mod 3596}#)
-                       (#{syntax-object-wrap 309}# #{x 3595}#)
-                       #{mod 3596}#)
-                     (if (vector? #{x 3595}#)
+            ((#{remodulate 3608}#
+               (lambda (#{x 3609}# #{mod 3610}#)
+                 (if (pair? #{x 3609}#)
+                   (cons (#{remodulate 3608}#
+                           (car #{x 3609}#)
+                           #{mod 3610}#)
+                         (#{remodulate 3608}#
+                           (cdr #{x 3609}#)
+                           #{mod 3610}#))
+                   (if (#{syntax-object? 307}# #{x 3609}#)
+                     (#{make-syntax-object 305}#
+                       (#{remodulate 3608}#
+                         (#{syntax-object-expression 309}# #{x 3609}#)
+                         #{mod 3610}#)
+                       (#{syntax-object-wrap 311}# #{x 3609}#)
+                       #{mod 3610}#)
+                     (if (vector? #{x 3609}#)
                        (begin
-                         (let ((#{n 3607}# (vector-length #{x 3595}#)))
+                         (let ((#{n 3621}# (vector-length #{x 3609}#)))
                            (begin
-                             (let ((#{v 3609}# (make-vector #{n 3607}#)))
+                             (let ((#{v 3623}# (make-vector #{n 3621}#)))
                                (letrec*
-                                 ((#{loop 3612}#
-                                    (lambda (#{i 3613}#)
-                                      (if (= #{i 3613}# #{n 3607}#)
-                                        (begin (if #f #f) #{v 3609}#)
+                                 ((#{loop 3626}#
+                                    (lambda (#{i 3627}#)
+                                      (if (= #{i 3627}# #{n 3621}#)
+                                        (begin (if #f #f) #{v 3623}#)
                                         (begin
                                           (vector-set!
-                                            #{v 3609}#
-                                            #{i 3613}#
-                                            (#{remodulate 3594}#
+                                            #{v 3623}#
+                                            #{i 3627}#
+                                            (#{remodulate 3608}#
                                               (vector-ref
-                                                #{x 3595}#
-                                                #{i 3613}#)
-                                              #{mod 3596}#))
-                                          (#{loop 3612}#
-                                            (#{1+}# #{i 3613}#)))))))
-                                 (begin (#{loop 3612}# 0)))))))
-                       #{x 3595}#))))))
+                                                #{x 3609}#
+                                                #{i 3627}#)
+                                              #{mod 3610}#))
+                                          (#{loop 3626}#
+                                            (#{1+}# #{i 3627}#)))))))
+                                 (begin (#{loop 3626}# 0)))))))
+                       #{x 3609}#))))))
             (begin
-              (let ((#{tmp 3619}# #{e 3587}#))
-                (let ((#{tmp 3620}#
-                        ($sc-dispatch #{tmp 3619}# '(_ each-any any))))
-                  (if (if #{tmp 3620}#
+              (let ((#{tmp 3633}# #{e 3601}#))
+                (let ((#{tmp 3634}#
+                        ($sc-dispatch #{tmp 3633}# '(_ each-any any))))
+                  (if (if #{tmp 3634}#
                         (@apply
-                          (lambda (#{mod 3623}# #{exp 3624}#)
-                            (and-map #{id? 339}# #{mod 3623}#))
-                          #{tmp 3620}#)
+                          (lambda (#{mod 3637}# #{exp 3638}#)
+                            (and-map #{id? 344}# #{mod 3637}#))
+                          #{tmp 3634}#)
                         #f)
                     (@apply
-                      (lambda (#{mod 3628}# #{exp 3629}#)
+                      (lambda (#{mod 3642}# #{exp 3643}#)
                         (begin
-                          (let ((#{mod 3631}#
+                          (let ((#{mod 3645}#
                                   (syntax->datum
                                     (cons '#(syntax-object
                                              private
@@ -10910,15 +10910,15 @@
                                               #(ribcage
                                                 #(mod exp)
                                                 #((top) (top))
-                                                #("i3626" "i3627"))
+                                                #("i3640" "i3641"))
                                               #(ribcage
                                                 (remodulate)
                                                 ((top))
-                                                ("i3593"))
+                                                ("i3607"))
                                               #(ribcage
                                                 #(e r w)
                                                 #((top) (top) (top))
-                                                #("i3590" "i3591" "i3592"))
+                                                #("i3604" "i3605" "i3606"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -11192,81 +11192,82 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i448"
-                                                 "i446"
-                                                 "i444"
-                                                 "i442"
-                                                 "i440"
-                                                 "i438"
-                                                 "i436"
-                                                 "i434"
-                                                 "i432"
-                                                 "i430"
-                                                 "i428"
-                                                 "i426"
-                                                 "i424"
-                                                 "i422"
-                                                 "i420"
-                                                 "i418"
-                                                 "i416"
-                                                 "i414"
-                                                 "i412"
-                                                 "i410"
-                                                 "i408"
-                                                 "i406"
-                                                 "i404"
-                                                 "i402"
-                                                 "i400"
-                                                 "i398"
-                                                 "i396"
-                                                 "i394"
+                                                ("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"
+                                                 "i397"
+                                                 "i395"
+                                                 "i393"
                                                  "i392"
                                                  "i390"
-                                                 "i388"
+                                                 "i387"
                                                  "i386"
-                                                 "i384"
+                                                 "i385"
+                                                 "i383"
                                                  "i382"
                                                  "i380"
-                                                 "i379"
                                                  "i378"
                                                  "i376"
-                                                 "i375"
                                                  "i374"
-                                                 "i373"
                                                  "i372"
                                                  "i370"
                                                  "i368"
                                                  "i366"
-                                                 "i364"
-                                                 "i362"
+                                                 "i363"
+                                                 "i361"
                                                  "i360"
                                                  "i358"
                                                  "i356"
-                                                 "i353"
+                                                 "i354"
+                                                 "i352"
                                                  "i351"
                                                  "i350"
                                                  "i349"
-                                                 "i348"
                                                  "i347"
                                                  "i346"
-                                                 "i345"
-                                                 "i344"
                                                  "i343"
                                                  "i341"
-                                                 "i340"
-                                                 "i338"
-                                                 "i336"
-                                                 "i334"
-                                                 "i332"
+                                                 "i339"
+                                                 "i337"
+                                                 "i335"
+                                                 "i333"
+                                                 "i331"
                                                  "i330"
-                                                 "i328"
-                                                 "i326"
+                                                 "i329"
+                                                 "i327"
                                                  "i325"
                                                  "i324"
-                                                 "i323"
-                                                 "i322"
                                                  "i321"
-                                                 "i319"
+                                                 "i320"
                                                  "i318"
                                                  "i316"
                                                  "i314"
@@ -11276,31 +11277,30 @@
                                                  "i306"
                                                  "i304"
                                                  "i302"
-                                                 "i300"
-                                                 "i298"
-                                                 "i296"
-                                                 "i294"
-                                                 "i292"
-                                                 "i290"
-                                                 "i288"
-                                                 "i286"
-                                                 "i284"
-                                                 "i282"
-                                                 "i280"
-                                                 "i278"
-                                                 "i276"
-                                                 "i274"
-                                                 "i272"
-                                                 "i270"
-                                                 "i268"
-                                                 "i266"
-                                                 "i264"
-                                                 "i262"
-                                                 "i260"
-                                                 "i258"
-                                                 "i256"
+                                                 "i299"
+                                                 "i297"
+                                                 "i295"
+                                                 "i293"
+                                                 "i291"
+                                                 "i289"
+                                                 "i287"
+                                                 "i285"
+                                                 "i283"
+                                                 "i281"
+                                                 "i279"
+                                                 "i277"
+                                                 "i275"
+                                                 "i273"
+                                                 "i271"
+                                                 "i269"
+                                                 "i267"
+                                                 "i265"
+                                                 "i263"
+                                                 "i261"
+                                                 "i259"
+                                                 "i257"
+                                                 "i255"
                                                  "i254"
-                                                 "i253"
                                                  "i251"
                                                  "i249"
                                                  "i248"
@@ -11335,183 +11335,183 @@
                                                 ((top) (top) (top))
                                                 ("i40" "i39" "i38")))
                                              (hygiene guile))
-                                          #{mod 3628}#))))
+                                          #{mod 3642}#))))
                             (values
-                              (#{remodulate 3594}# #{exp 3629}# #{mod 3631}#)
-                              #{r 3588}#
-                              #{w 3589}#
-                              (#{source-annotation 320}# #{exp 3629}#)
-                              #{mod 3631}#))))
-                      #{tmp 3620}#)
+                              (#{remodulate 3608}# #{exp 3643}# #{mod 3645}#)
+                              #{r 3602}#
+                              #{w 3603}#
+                              (#{source-annotation 322}# #{exp 3643}#)
+                              #{mod 3645}#))))
+                      #{tmp 3634}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp 3619}#))))))))
-      (#{global-extend 335}#
+                      #{tmp 3633}#))))))))
+      (#{global-extend 340}#
         'core
         'if
-        (lambda (#{e 3633}#
-                 #{r 3634}#
-                 #{w 3635}#
-                 #{s 3636}#
-                 #{mod 3637}#)
-          (let ((#{tmp 3643}# #{e 3633}#))
-            (let ((#{tmp 3644}#
-                    ($sc-dispatch #{tmp 3643}# '(_ any any))))
-              (if #{tmp 3644}#
+        (lambda (#{e 3647}#
+                 #{r 3648}#
+                 #{w 3649}#
+                 #{s 3650}#
+                 #{mod 3651}#)
+          (let ((#{tmp 3657}# #{e 3647}#))
+            (let ((#{tmp 3658}#
+                    ($sc-dispatch #{tmp 3657}# '(_ any any))))
+              (if #{tmp 3658}#
                 (@apply
-                  (lambda (#{test 3647}# #{then 3648}#)
-                    (#{build-conditional 267}#
-                      #{s 3636}#
-                      (#{chi 419}#
-                        #{test 3647}#
-                        #{r 3634}#
-                        #{w 3635}#
-                        #{mod 3637}#)
-                      (#{chi 419}#
-                        #{then 3648}#
-                        #{r 3634}#
-                        #{w 3635}#
-                        #{mod 3637}#)
-                      (#{build-void 263}# #f)))
-                  #{tmp 3644}#)
-                (let ((#{tmp 3650}#
-                        ($sc-dispatch #{tmp 3643}# '(_ any any any))))
-                  (if #{tmp 3650}#
+                  (lambda (#{test 3661}# #{then 3662}#)
+                    (#{build-conditional 268}#
+                      #{s 3650}#
+                      (#{chi 432}#
+                        #{test 3661}#
+                        #{r 3648}#
+                        #{w 3649}#
+                        #{mod 3651}#)
+                      (#{chi 432}#
+                        #{then 3662}#
+                        #{r 3648}#
+                        #{w 3649}#
+                        #{mod 3651}#)
+                      (#{build-void 264}# #f)))
+                  #{tmp 3658}#)
+                (let ((#{tmp 3664}#
+                        ($sc-dispatch #{tmp 3657}# '(_ any any any))))
+                  (if #{tmp 3664}#
                     (@apply
-                      (lambda (#{test 3654}# #{then 3655}# #{else 3656}#)
-                        (#{build-conditional 267}#
-                          #{s 3636}#
-                          (#{chi 419}#
-                            #{test 3654}#
-                            #{r 3634}#
-                            #{w 3635}#
-                            #{mod 3637}#)
-                          (#{chi 419}#
-                            #{then 3655}#
-                            #{r 3634}#
-                            #{w 3635}#
-                            #{mod 3637}#)
-                          (#{chi 419}#
-                            #{else 3656}#
-                            #{r 3634}#
-                            #{w 3635}#
-                            #{mod 3637}#)))
-                      #{tmp 3650}#)
+                      (lambda (#{test 3668}# #{then 3669}# #{else 3670}#)
+                        (#{build-conditional 268}#
+                          #{s 3650}#
+                          (#{chi 432}#
+                            #{test 3668}#
+                            #{r 3648}#
+                            #{w 3649}#
+                            #{mod 3651}#)
+                          (#{chi 432}#
+                            #{then 3669}#
+                            #{r 3648}#
+                            #{w 3649}#
+                            #{mod 3651}#)
+                          (#{chi 432}#
+                            #{else 3670}#
+                            #{r 3648}#
+                            #{w 3649}#
+                            #{mod 3651}#)))
+                      #{tmp 3664}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp 3643}#))))))))
-      (#{global-extend 335}#
+                      #{tmp 3657}#))))))))
+      (#{global-extend 340}#
         'core
         'with-fluids
-        (lambda (#{e 3657}#
-                 #{r 3658}#
-                 #{w 3659}#
-                 #{s 3660}#
-                 #{mod 3661}#)
-          (let ((#{tmp 3667}# #{e 3657}#))
-            (let ((#{tmp 3668}#
+        (lambda (#{e 3671}#
+                 #{r 3672}#
+                 #{w 3673}#
+                 #{s 3674}#
+                 #{mod 3675}#)
+          (let ((#{tmp 3681}# #{e 3671}#))
+            (let ((#{tmp 3682}#
                     ($sc-dispatch
-                      #{tmp 3667}#
+                      #{tmp 3681}#
                       '(_ #(each (any any)) any . each-any))))
-              (if #{tmp 3668}#
+              (if #{tmp 3682}#
                 (@apply
-                  (lambda (#{fluid 3673}#
-                           #{val 3674}#
-                           #{b 3675}#
-                           #{b* 3676}#)
-                    (#{build-dynlet 269}#
-                      #{s 3660}#
-                      (map (lambda (#{x 3677}#)
-                             (#{chi 419}#
-                               #{x 3677}#
-                               #{r 3658}#
-                               #{w 3659}#
-                               #{mod 3661}#))
-                           #{fluid 3673}#)
-                      (map (lambda (#{x 3680}#)
-                             (#{chi 419}#
-                               #{x 3680}#
-                               #{r 3658}#
-                               #{w 3659}#
-                               #{mod 3661}#))
-                           #{val 3674}#)
-                      (#{chi-body 427}#
-                        (cons #{b 3675}# #{b* 3676}#)
-                        (#{source-wrap 407}#
-                          #{e 3657}#
-                          #{w 3659}#
-                          #{s 3660}#
-                          #{mod 3661}#)
-                        #{r 3658}#
-                        #{w 3659}#
-                        #{mod 3661}#)))
-                  #{tmp 3668}#)
+                  (lambda (#{fluid 3687}#
+                           #{val 3688}#
+                           #{b 3689}#
+                           #{b* 3690}#)
+                    (#{build-dynlet 270}#
+                      #{s 3674}#
+                      (map (lambda (#{x 3691}#)
+                             (#{chi 432}#
+                               #{x 3691}#
+                               #{r 3672}#
+                               #{w 3673}#
+                               #{mod 3675}#))
+                           #{fluid 3687}#)
+                      (map (lambda (#{x 3694}#)
+                             (#{chi 432}#
+                               #{x 3694}#
+                               #{r 3672}#
+                               #{w 3673}#
+                               #{mod 3675}#))
+                           #{val 3688}#)
+                      (#{chi-body 440}#
+                        (cons #{b 3689}# #{b* 3690}#)
+                        (#{source-wrap 420}#
+                          #{e 3671}#
+                          #{w 3673}#
+                          #{s 3674}#
+                          #{mod 3675}#)
+                        #{r 3672}#
+                        #{w 3673}#
+                        #{mod 3675}#)))
+                  #{tmp 3682}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{tmp 3667}#))))))
-      (#{global-extend 335}# 'begin 'begin '())
-      (#{global-extend 335}# 'define 'define '())
-      (#{global-extend 335}#
+                  #{tmp 3681}#))))))
+      (#{global-extend 340}# 'begin 'begin '())
+      (#{global-extend 340}# 'define 'define '())
+      (#{global-extend 340}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend 335}# 'eval-when 'eval-when '())
-      (#{global-extend 335}#
+      (#{global-extend 340}# 'eval-when 'eval-when '())
+      (#{global-extend 340}#
         'core
         'syntax-case
         (letrec*
-          ((#{convert-pattern 3685}#
-             (lambda (#{pattern 3692}# #{keys 3693}#)
+          ((#{convert-pattern 3699}#
+             (lambda (#{pattern 3706}# #{keys 3707}#)
                (letrec*
-                 ((#{cvt* 3697}#
-                    (lambda (#{p* 3702}# #{n 3703}# #{ids 3704}#)
-                      (if (not (pair? #{p* 3702}#))
-                        (#{cvt 3701}#
-                          #{p* 3702}#
-                          #{n 3703}#
-                          #{ids 3704}#)
+                 ((#{cvt* 3711}#
+                    (lambda (#{p* 3716}# #{n 3717}# #{ids 3718}#)
+                      (if (not (pair? #{p* 3716}#))
+                        (#{cvt 3715}#
+                          #{p* 3716}#
+                          #{n 3717}#
+                          #{ids 3718}#)
                         (call-with-values
                           (lambda ()
-                            (#{cvt* 3697}#
-                              (cdr #{p* 3702}#)
-                              #{n 3703}#
-                              #{ids 3704}#))
-                          (lambda (#{y 3708}# #{ids 3709}#)
+                            (#{cvt* 3711}#
+                              (cdr #{p* 3716}#)
+                              #{n 3717}#
+                              #{ids 3718}#))
+                          (lambda (#{y 3722}# #{ids 3723}#)
                             (call-with-values
                               (lambda ()
-                                (#{cvt 3701}#
-                                  (car #{p* 3702}#)
-                                  #{n 3703}#
-                                  #{ids 3709}#))
-                              (lambda (#{x 3712}# #{ids 3713}#)
+                                (#{cvt 3715}#
+                                  (car #{p* 3716}#)
+                                  #{n 3717}#
+                                  #{ids 3723}#))
+                              (lambda (#{x 3726}# #{ids 3727}#)
                                 (values
-                                  (cons #{x 3712}# #{y 3708}#)
-                                  #{ids 3713}#))))))))
-                  (#{v-reverse 3699}#
-                    (lambda (#{x 3716}#)
+                                  (cons #{x 3726}# #{y 3722}#)
+                                  #{ids 3727}#))))))))
+                  (#{v-reverse 3713}#
+                    (lambda (#{x 3730}#)
                       (letrec*
-                        ((#{loop 3721}#
-                           (lambda (#{r 3722}# #{x 3723}#)
-                             (if (not (pair? #{x 3723}#))
-                               (values #{r 3722}# #{x 3723}#)
-                               (#{loop 3721}#
-                                 (cons (car #{x 3723}#) #{r 3722}#)
-                                 (cdr #{x 3723}#))))))
-                        (begin (#{loop 3721}# '() #{x 3716}#)))))
-                  (#{cvt 3701}#
-                    (lambda (#{p 3724}# #{n 3725}# #{ids 3726}#)
-                      (if (#{id? 339}# #{p 3724}#)
-                        (if (#{bound-id-member? 403}#
-                              #{p 3724}#
-                              #{keys 3693}#)
+                        ((#{loop 3735}#
+                           (lambda (#{r 3736}# #{x 3737}#)
+                             (if (not (pair? #{x 3737}#))
+                               (values #{r 3736}# #{x 3737}#)
+                               (#{loop 3735}#
+                                 (cons (car #{x 3737}#) #{r 3736}#)
+                                 (cdr #{x 3737}#))))))
+                        (begin (#{loop 3735}# '() #{x 3730}#)))))
+                  (#{cvt 3715}#
+                    (lambda (#{p 3738}# #{n 3739}# #{ids 3740}#)
+                      (if (#{id? 344}# #{p 3738}#)
+                        (if (#{bound-id-member? 416}#
+                              #{p 3738}#
+                              #{keys 3707}#)
                           (values
-                            (vector 'free-id #{p 3724}#)
-                            #{ids 3726}#)
-                          (if (#{free-id=? 395}#
-                                #{p 3724}#
+                            (vector 'free-id #{p 3738}#)
+                            #{ids 3740}#)
+                          (if (#{free-id=? 408}#
+                                #{p 3738}#
                                 '#(syntax-object
                                    _
                                    ((top)
@@ -11519,22 +11519,22 @@
                                     #(ribcage
                                       #(p n ids)
                                       #((top) (top) (top))
-                                      #("i3727" "i3728" "i3729"))
+                                      #("i3741" "i3742" "i3743"))
                                     #(ribcage
                                       (cvt v-reverse cvt*)
                                       ((top) (top) (top))
-                                      ("i3700" "i3698" "i3696"))
+                                      ("i3714" "i3712" "i3710"))
                                     #(ribcage
                                       #(pattern keys)
                                       #((top) (top))
-                                      #("i3694" "i3695"))
+                                      #("i3708" "i3709"))
                                     #(ribcage
                                       (gen-syntax-case
                                         gen-clause
                                         build-dispatch-call
                                         convert-pattern)
                                       ((top) (top) (top) (top))
-                                      ("i3690" "i3688" "i3686" "i3684"))
+                                      ("i3704" "i3702" "i3700" "i3698"))
                                     #(ribcage
                                       (lambda-var-list
                                         gen-var
@@ -11808,81 +11808,82 @@
                                        (top)
                                        (top)
                                        (top))
-                                      ("i448"
-                                       "i446"
-                                       "i444"
-                                       "i442"
-                                       "i440"
-                                       "i438"
-                                       "i436"
-                                       "i434"
-                                       "i432"
-                                       "i430"
-                                       "i428"
-                                       "i426"
-                                       "i424"
-                                       "i422"
-                                       "i420"
-                                       "i418"
-                                       "i416"
-                                       "i414"
-                                       "i412"
-                                       "i410"
-                                       "i408"
-                                       "i406"
-                                       "i404"
-                                       "i402"
-                                       "i400"
-                                       "i398"
-                                       "i396"
-                                       "i394"
+                                      ("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"
+                                       "i397"
+                                       "i395"
+                                       "i393"
                                        "i392"
                                        "i390"
-                                       "i388"
+                                       "i387"
                                        "i386"
-                                       "i384"
+                                       "i385"
+                                       "i383"
                                        "i382"
                                        "i380"
-                                       "i379"
                                        "i378"
                                        "i376"
-                                       "i375"
                                        "i374"
-                                       "i373"
                                        "i372"
                                        "i370"
                                        "i368"
                                        "i366"
-                                       "i364"
-                                       "i362"
+                                       "i363"
+                                       "i361"
                                        "i360"
                                        "i358"
                                        "i356"
-                                       "i353"
+                                       "i354"
+                                       "i352"
                                        "i351"
                                        "i350"
                                        "i349"
-                                       "i348"
                                        "i347"
                                        "i346"
-                                       "i345"
-                                       "i344"
                                        "i343"
                                        "i341"
-                                       "i340"
-                                       "i338"
-                                       "i336"
-                                       "i334"
-                                       "i332"
+                                       "i339"
+                                       "i337"
+                                       "i335"
+                                       "i333"
+                                       "i331"
                                        "i330"
-                                       "i328"
-                                       "i326"
+                                       "i329"
+                                       "i327"
                                        "i325"
                                        "i324"
-                                       "i323"
-                                       "i322"
                                        "i321"
-                                       "i319"
+                                       "i320"
                                        "i318"
                                        "i316"
                                        "i314"
@@ -11892,31 +11893,30 @@
                                        "i306"
                                        "i304"
                                        "i302"
-                                       "i300"
-                                       "i298"
-                                       "i296"
-                                       "i294"
-                                       "i292"
-                                       "i290"
-                                       "i288"
-                                       "i286"
-                                       "i284"
-                                       "i282"
-                                       "i280"
-                                       "i278"
-                                       "i276"
-                                       "i274"
-                                       "i272"
-                                       "i270"
-                                       "i268"
-                                       "i266"
-                                       "i264"
-                                       "i262"
-                                       "i260"
-                                       "i258"
-                                       "i256"
+                                       "i299"
+                                       "i297"
+                                       "i295"
+                                       "i293"
+                                       "i291"
+                                       "i289"
+                                       "i287"
+                                       "i285"
+                                       "i283"
+                                       "i281"
+                                       "i279"
+                                       "i277"
+                                       "i275"
+                                       "i273"
+                                       "i271"
+                                       "i269"
+                                       "i267"
+                                       "i265"
+                                       "i263"
+                                       "i261"
+                                       "i259"
+                                       "i257"
+                                       "i255"
                                        "i254"
-                                       "i253"
                                        "i251"
                                        "i249"
                                        "i248"
@@ -11951,328 +11951,328 @@
                                       ((top) (top) (top))
                                       ("i40" "i39" "i38")))
                                    (hygiene guile)))
-                            (values '_ #{ids 3726}#)
+                            (values '_ #{ids 3740}#)
                             (values
                               'any
-                              (cons (cons #{p 3724}# #{n 3725}#)
-                                    #{ids 3726}#))))
-                        (let ((#{tmp 3735}# #{p 3724}#))
-                          (let ((#{tmp 3736}#
-                                  ($sc-dispatch #{tmp 3735}# '(any any))))
-                            (if (if #{tmp 3736}#
+                              (cons (cons #{p 3738}# #{n 3739}#)
+                                    #{ids 3740}#))))
+                        (let ((#{tmp 3749}# #{p 3738}#))
+                          (let ((#{tmp 3750}#
+                                  ($sc-dispatch #{tmp 3749}# '(any any))))
+                            (if (if #{tmp 3750}#
                                   (@apply
-                                    (lambda (#{x 3739}# #{dots 3740}#)
-                                      (#{ellipsis? 435}# #{dots 3740}#))
-                                    #{tmp 3736}#)
+                                    (lambda (#{x 3753}# #{dots 3754}#)
+                                      (#{ellipsis? 448}# #{dots 3754}#))
+                                    #{tmp 3750}#)
                                   #f)
                               (@apply
-                                (lambda (#{x 3743}# #{dots 3744}#)
+                                (lambda (#{x 3757}# #{dots 3758}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{cvt 3701}#
-                                        #{x 3743}#
-                                        (#{1+}# #{n 3725}#)
-                                        #{ids 3726}#))
-                                    (lambda (#{p 3746}# #{ids 3747}#)
+                                      (#{cvt 3715}#
+                                        #{x 3757}#
+                                        (#{1+}# #{n 3739}#)
+                                        #{ids 3740}#))
+                                    (lambda (#{p 3760}# #{ids 3761}#)
                                       (values
-                                        (if (eq? #{p 3746}# 'any)
+                                        (if (eq? #{p 3760}# 'any)
                                           'each-any
-                                          (vector 'each #{p 3746}#))
-                                        #{ids 3747}#))))
-                                #{tmp 3736}#)
-                              (let ((#{tmp 3750}#
+                                          (vector 'each #{p 3760}#))
+                                        #{ids 3761}#))))
+                                #{tmp 3750}#)
+                              (let ((#{tmp 3764}#
                                       ($sc-dispatch
-                                        #{tmp 3735}#
+                                        #{tmp 3749}#
                                         '(any any . any))))
-                                (if (if #{tmp 3750}#
+                                (if (if #{tmp 3764}#
                                       (@apply
-                                        (lambda (#{x 3754}#
-                                                 #{dots 3755}#
-                                                 #{ys 3756}#)
-                                          (#{ellipsis? 435}# #{dots 3755}#))
-                                        #{tmp 3750}#)
+                                        (lambda (#{x 3768}#
+                                                 #{dots 3769}#
+                                                 #{ys 3770}#)
+                                          (#{ellipsis? 448}# #{dots 3769}#))
+                                        #{tmp 3764}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{x 3760}#
-                                             #{dots 3761}#
-                                             #{ys 3762}#)
+                                    (lambda (#{x 3774}#
+                                             #{dots 3775}#
+                                             #{ys 3776}#)
                                       (call-with-values
                                         (lambda ()
-                                          (#{cvt* 3697}#
-                                            #{ys 3762}#
-                                            #{n 3725}#
-                                            #{ids 3726}#))
-                                        (lambda (#{ys 3763}# #{ids 3764}#)
+                                          (#{cvt* 3711}#
+                                            #{ys 3776}#
+                                            #{n 3739}#
+                                            #{ids 3740}#))
+                                        (lambda (#{ys 3777}# #{ids 3778}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{cvt 3701}#
-                                                #{x 3760}#
-                                                (#{1+}# #{n 3725}#)
-                                                #{ids 3764}#))
-                                            (lambda (#{x 3767}# #{ids 3768}#)
+                                              (#{cvt 3715}#
+                                                #{x 3774}#
+                                                (#{1+}# #{n 3739}#)
+                                                #{ids 3778}#))
+                                            (lambda (#{x 3781}# #{ids 3782}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{v-reverse 3699}#
-                                                    #{ys 3763}#))
-                                                (lambda (#{ys 3771}#
-                                                         #{e 3772}#)
+                                                  (#{v-reverse 3713}#
+                                                    #{ys 3777}#))
+                                                (lambda (#{ys 3785}#
+                                                         #{e 3786}#)
                                                   (values
                                                     (vector
                                                       'each+
-                                                      #{x 3767}#
-                                                      #{ys 3771}#
-                                                      #{e 3772}#)
-                                                    #{ids 3768}#))))))))
-                                    #{tmp 3750}#)
-                                  (let ((#{tmp 3776}#
+                                                      #{x 3781}#
+                                                      #{ys 3785}#
+                                                      #{e 3786}#)
+                                                    #{ids 3782}#))))))))
+                                    #{tmp 3764}#)
+                                  (let ((#{tmp 3790}#
                                           ($sc-dispatch
-                                            #{tmp 3735}#
+                                            #{tmp 3749}#
                                             '(any . any))))
-                                    (if #{tmp 3776}#
+                                    (if #{tmp 3790}#
                                       (@apply
-                                        (lambda (#{x 3779}# #{y 3780}#)
+                                        (lambda (#{x 3793}# #{y 3794}#)
                                           (call-with-values
                                             (lambda ()
-                                              (#{cvt 3701}#
-                                                #{y 3780}#
-                                                #{n 3725}#
-                                                #{ids 3726}#))
-                                            (lambda (#{y 3781}# #{ids 3782}#)
+                                              (#{cvt 3715}#
+                                                #{y 3794}#
+                                                #{n 3739}#
+                                                #{ids 3740}#))
+                                            (lambda (#{y 3795}# #{ids 3796}#)
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{cvt 3701}#
-                                                    #{x 3779}#
-                                                    #{n 3725}#
-                                                    #{ids 3782}#))
-                                                (lambda (#{x 3785}#
-                                                         #{ids 3786}#)
+                                                  (#{cvt 3715}#
+                                                    #{x 3793}#
+                                                    #{n 3739}#
+                                                    #{ids 3796}#))
+                                                (lambda (#{x 3799}#
+                                                         #{ids 3800}#)
                                                   (values
-                                                    (cons #{x 3785}#
-                                                          #{y 3781}#)
-                                                    #{ids 3786}#))))))
-                                        #{tmp 3776}#)
-                                      (let ((#{tmp 3789}#
-                                              ($sc-dispatch #{tmp 3735}# '())))
-                                        (if #{tmp 3789}#
+                                                    (cons #{x 3799}#
+                                                          #{y 3795}#)
+                                                    #{ids 3800}#))))))
+                                        #{tmp 3790}#)
+                                      (let ((#{tmp 3803}#
+                                              ($sc-dispatch #{tmp 3749}# '())))
+                                        (if #{tmp 3803}#
                                           (@apply
                                             (lambda ()
-                                              (values '() #{ids 3726}#))
-                                            #{tmp 3789}#)
-                                          (let ((#{tmp 3790}#
+                                              (values '() #{ids 3740}#))
+                                            #{tmp 3803}#)
+                                          (let ((#{tmp 3804}#
                                                   ($sc-dispatch
-                                                    #{tmp 3735}#
+                                                    #{tmp 3749}#
                                                     '#(vector each-any))))
-                                            (if #{tmp 3790}#
+                                            (if #{tmp 3804}#
                                               (@apply
-                                                (lambda (#{x 3792}#)
+                                                (lambda (#{x 3806}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{cvt 3701}#
-                                                        #{x 3792}#
-                                                        #{n 3725}#
-                                                        #{ids 3726}#))
-                                                    (lambda (#{p 3794}#
-                                                             #{ids 3795}#)
+                                                      (#{cvt 3715}#
+                                                        #{x 3806}#
+                                                        #{n 3739}#
+                                                        #{ids 3740}#))
+                                                    (lambda (#{p 3808}#
+                                                             #{ids 3809}#)
                                                       (values
                                                         (vector
                                                           'vector
-                                                          #{p 3794}#)
-                                                        #{ids 3795}#))))
-                                                #{tmp 3790}#)
-                                              (let ((#{x 3799}# #{tmp 3735}#))
+                                                          #{p 3808}#)
+                                                        #{ids 3809}#))))
+                                                #{tmp 3804}#)
+                                              (let ((#{x 3813}# #{tmp 3749}#))
                                                 (values
                                                   (vector
                                                     'atom
-                                                    (#{strip 445}#
-                                                      #{p 3724}#
+                                                    (#{strip 458}#
+                                                      #{p 3738}#
                                                       '(())))
-                                                  #{ids 3726}#)))))))))))))))))
-                 (begin (#{cvt 3701}# #{pattern 3692}# 0 '())))))
-           (#{build-dispatch-call 3687}#
-             (lambda (#{pvars 3801}#
-                      #{exp 3802}#
-                      #{y 3803}#
-                      #{r 3804}#
-                      #{mod 3805}#)
+                                                  #{ids 3740}#)))))))))))))))))
+                 (begin (#{cvt 3715}# #{pattern 3706}# 0 '())))))
+           (#{build-dispatch-call 3701}#
+             (lambda (#{pvars 3815}#
+                      #{exp 3816}#
+                      #{y 3817}#
+                      #{r 3818}#
+                      #{mod 3819}#)
                (begin
-                 (map cdr #{pvars 3801}#)
-                 (let ((#{ids 3813}# (map car #{pvars 3801}#)))
+                 (map cdr #{pvars 3815}#)
+                 (let ((#{ids 3827}# (map car #{pvars 3815}#)))
                    (begin
-                     (let ((#{labels 3817}#
-                             (#{gen-labels 354}# #{ids 3813}#))
-                           (#{new-vars 3818}#
-                             (map #{gen-var 447}# #{ids 3813}#)))
-                       (#{build-application 265}#
+                     (let ((#{labels 3831}#
+                             (#{gen-labels 364}# #{ids 3827}#))
+                           (#{new-vars 3832}#
+                             (map #{gen-var 460}# #{ids 3827}#)))
+                       (#{build-application 266}#
                          #f
-                         (#{build-primref 289}# #f 'apply)
-                         (list (#{build-simple-lambda 283}#
+                         (#{build-primref 290}# #f 'apply)
+                         (list (#{build-simple-lambda 284}#
                                  #f
-                                 (map syntax->datum #{ids 3813}#)
+                                 (map syntax->datum #{ids 3827}#)
                                  #f
-                                 #{new-vars 3818}#
+                                 #{new-vars 3832}#
                                  '()
-                                 (#{chi 419}#
-                                   #{exp 3802}#
-                                   (#{extend-env 327}#
-                                     #{labels 3817}#
-                                     (map (lambda (#{var 3822}# #{level 3823}#)
+                                 (#{chi 432}#
+                                   #{exp 3816}#
+                                   (#{extend-env 332}#
+                                     #{labels 3831}#
+                                     (map (lambda (#{var 3836}# #{level 3837}#)
                                             (cons 'syntax
-                                                  (cons #{var 3822}#
-                                                        #{level 3823}#)))
-                                          #{new-vars 3818}#
-                                          (map cdr #{pvars 3801}#))
-                                     #{r 3804}#)
-                                   (#{make-binding-wrap 383}#
-                                     #{ids 3813}#
-                                     #{labels 3817}#
+                                                  (cons #{var 3836}#
+                                                        #{level 3837}#)))
+                                          #{new-vars 3832}#
+                                          (map cdr #{pvars 3815}#))
+                                     #{r 3818}#)
+                                   (#{make-binding-wrap 396}#
+                                     #{ids 3827}#
+                                     #{labels 3831}#
                                      '(()))
-                                   #{mod 3805}#))
-                               #{y 3803}#))))))))
-           (#{gen-clause 3689}#
-             (lambda (#{x 3829}#
-                      #{keys 3830}#
-                      #{clauses 3831}#
-                      #{r 3832}#
-                      #{pat 3833}#
-                      #{fender 3834}#
-                      #{exp 3835}#
-                      #{mod 3836}#)
+                                   #{mod 3819}#))
+                               #{y 3817}#))))))))
+           (#{gen-clause 3703}#
+             (lambda (#{x 3843}#
+                      #{keys 3844}#
+                      #{clauses 3845}#
+                      #{r 3846}#
+                      #{pat 3847}#
+                      #{fender 3848}#
+                      #{exp 3849}#
+                      #{mod 3850}#)
                (call-with-values
                  (lambda ()
-                   (#{convert-pattern 3685}#
-                     #{pat 3833}#
-                     #{keys 3830}#))
-                 (lambda (#{p 3845}# #{pvars 3846}#)
-                   (if (not (#{distinct-bound-ids? 401}#
-                              (map car #{pvars 3846}#)))
+                   (#{convert-pattern 3699}#
+                     #{pat 3847}#
+                     #{keys 3844}#))
+                 (lambda (#{p 3859}# #{pvars 3860}#)
+                   (if (not (#{distinct-bound-ids? 414}#
+                              (map car #{pvars 3860}#)))
                      (syntax-violation
                        'syntax-case
                        "duplicate pattern variable"
-                       #{pat 3833}#)
+                       #{pat 3847}#)
                      (if (not (and-map
-                                (lambda (#{x 3853}#)
-                                  (not (#{ellipsis? 435}# (car #{x 3853}#))))
-                                #{pvars 3846}#))
+                                (lambda (#{x 3867}#)
+                                  (not (#{ellipsis? 448}# (car #{x 3867}#))))
+                                #{pvars 3860}#))
                        (syntax-violation
                          'syntax-case
                          "misplaced ellipsis"
-                         #{pat 3833}#)
+                         #{pat 3847}#)
                        (begin
-                         (let ((#{y 3857}# (#{gen-var 447}# 'tmp)))
-                           (#{build-application 265}#
+                         (let ((#{y 3871}# (#{gen-var 460}# 'tmp)))
+                           (#{build-application 266}#
                              #f
-                             (#{build-simple-lambda 283}#
+                             (#{build-simple-lambda 284}#
                                #f
                                (list 'tmp)
                                #f
-                               (list #{y 3857}#)
+                               (list #{y 3871}#)
                                '()
                                (begin
-                                 (let ((#{y 3861}#
-                                         (#{build-lexical-reference 271}#
+                                 (let ((#{y 3875}#
+                                         (#{build-lexical-reference 272}#
                                            'value
                                            #f
                                            'tmp
-                                           #{y 3857}#)))
-                                   (#{build-conditional 267}#
+                                           #{y 3871}#)))
+                                   (#{build-conditional 268}#
                                      #f
-                                     (let ((#{tmp 3864}# #{fender 3834}#))
-                                       (let ((#{tmp 3865}#
+                                     (let ((#{tmp 3878}# #{fender 3848}#))
+                                       (let ((#{tmp 3879}#
                                                ($sc-dispatch
-                                                 #{tmp 3864}#
+                                                 #{tmp 3878}#
                                                  '#(atom #t))))
-                                         (if #{tmp 3865}#
+                                         (if #{tmp 3879}#
                                            (@apply
-                                             (lambda () #{y 3861}#)
-                                             #{tmp 3865}#)
-                                           (let ((#{_ 3867}# #{tmp 3864}#))
-                                             (#{build-conditional 267}#
+                                             (lambda () #{y 3875}#)
+                                             #{tmp 3879}#)
+                                           (let ((#{_ 3881}# #{tmp 3878}#))
+                                             (#{build-conditional 268}#
                                                #f
-                                               #{y 3861}#
-                                               (#{build-dispatch-call 3687}#
-                                                 #{pvars 3846}#
-                                                 #{fender 3834}#
-                                                 #{y 3861}#
-                                                 #{r 3832}#
-                                                 #{mod 3836}#)
-                                               (#{build-data 291}# #f #f))))))
-                                     (#{build-dispatch-call 3687}#
-                                       #{pvars 3846}#
-                                       #{exp 3835}#
-                                       #{y 3861}#
-                                       #{r 3832}#
-                                       #{mod 3836}#)
-                                     (#{gen-syntax-case 3691}#
-                                       #{x 3829}#
-                                       #{keys 3830}#
-                                       #{clauses 3831}#
-                                       #{r 3832}#
-                                       #{mod 3836}#)))))
-                             (list (if (eq? #{p 3845}# 'any)
-                                     (#{build-application 265}#
+                                               #{y 3875}#
+                                               (#{build-dispatch-call 3701}#
+                                                 #{pvars 3860}#
+                                                 #{fender 3848}#
+                                                 #{y 3875}#
+                                                 #{r 3846}#
+                                                 #{mod 3850}#)
+                                               (#{build-data 292}# #f #f))))))
+                                     (#{build-dispatch-call 3701}#
+                                       #{pvars 3860}#
+                                       #{exp 3849}#
+                                       #{y 3875}#
+                                       #{r 3846}#
+                                       #{mod 3850}#)
+                                     (#{gen-syntax-case 3705}#
+                                       #{x 3843}#
+                                       #{keys 3844}#
+                                       #{clauses 3845}#
+                                       #{r 3846}#
+                                       #{mod 3850}#)))))
+                             (list (if (eq? #{p 3859}# 'any)
+                                     (#{build-application 266}#
                                        #f
-                                       (#{build-primref 289}# #f 'list)
-                                       (list #{x 3829}#))
-                                     (#{build-application 265}#
+                                       (#{build-primref 290}# #f 'list)
+                                       (list #{x 3843}#))
+                                     (#{build-application 266}#
                                        #f
-                                       (#{build-primref 289}# #f '$sc-dispatch)
-                                       (list #{x 3829}#
-                                             (#{build-data 291}#
+                                       (#{build-primref 290}# #f '$sc-dispatch)
+                                       (list #{x 3843}#
+                                             (#{build-data 292}#
                                                #f
-                                               #{p 3845}#))))))))))))))
-           (#{gen-syntax-case 3691}#
-             (lambda (#{x 3875}#
-                      #{keys 3876}#
-                      #{clauses 3877}#
-                      #{r 3878}#
-                      #{mod 3879}#)
-               (if (null? #{clauses 3877}#)
-                 (#{build-application 265}#
+                                               #{p 3859}#))))))))))))))
+           (#{gen-syntax-case 3705}#
+             (lambda (#{x 3889}#
+                      #{keys 3890}#
+                      #{clauses 3891}#
+                      #{r 3892}#
+                      #{mod 3893}#)
+               (if (null? #{clauses 3891}#)
+                 (#{build-application 266}#
                    #f
-                   (#{build-primref 289}# #f 'syntax-violation)
-                   (list (#{build-data 291}# #f #f)
-                         (#{build-data 291}#
+                   (#{build-primref 290}# #f 'syntax-violation)
+                   (list (#{build-data 292}# #f #f)
+                         (#{build-data 292}#
                            #f
                            "source expression failed to match any pattern")
-                         #{x 3875}#))
-                 (let ((#{tmp 3889}# (car #{clauses 3877}#)))
-                   (let ((#{tmp 3890}#
-                           ($sc-dispatch #{tmp 3889}# '(any any))))
-                     (if #{tmp 3890}#
+                         #{x 3889}#))
+                 (let ((#{tmp 3903}# (car #{clauses 3891}#)))
+                   (let ((#{tmp 3904}#
+                           ($sc-dispatch #{tmp 3903}# '(any any))))
+                     (if #{tmp 3904}#
                        (@apply
-                         (lambda (#{pat 3893}# #{exp 3894}#)
-                           (if (if (#{id? 339}# #{pat 3893}#)
+                         (lambda (#{pat 3907}# #{exp 3908}#)
+                           (if (if (#{id? 344}# #{pat 3907}#)
                                  (and-map
-                                   (lambda (#{x 3897}#)
-                                     (not (#{free-id=? 395}#
-                                            #{pat 3893}#
-                                            #{x 3897}#)))
+                                   (lambda (#{x 3911}#)
+                                     (not (#{free-id=? 408}#
+                                            #{pat 3907}#
+                                            #{x 3911}#)))
                                    (cons '#(syntax-object
                                             ...
                                             ((top)
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
-                                               #("i3891" "i3892"))
+                                               #("i3905" "i3906"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top) (top) (top) (top) (top))
-                                               #("i3880"
-                                                 "i3881"
-                                                 "i3882"
-                                                 "i3883"
-                                                 "i3884"))
+                                               #("i3894"
+                                                 "i3895"
+                                                 "i3896"
+                                                 "i3897"
+                                                 "i3898"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
-                                               ("i3690"
-                                                "i3688"
-                                                "i3686"
-                                                "i3684"))
+                                               ("i3704"
+                                                "i3702"
+                                                "i3700"
+                                                "i3698"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -12546,81 +12546,82 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i448"
-                                                "i446"
-                                                "i444"
-                                                "i442"
-                                                "i440"
-                                                "i438"
-                                                "i436"
-                                                "i434"
-                                                "i432"
-                                                "i430"
-                                                "i428"
-                                                "i426"
-                                                "i424"
-                                                "i422"
-                                                "i420"
-                                                "i418"
-                                                "i416"
-                                                "i414"
-                                                "i412"
-                                                "i410"
-                                                "i408"
-                                                "i406"
-                                                "i404"
-                                                "i402"
-                                                "i400"
-                                                "i398"
-                                                "i396"
-                                                "i394"
+                                               ("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"
+                                                "i397"
+                                                "i395"
+                                                "i393"
                                                 "i392"
                                                 "i390"
-                                                "i388"
+                                                "i387"
                                                 "i386"
-                                                "i384"
+                                                "i385"
+                                                "i383"
                                                 "i382"
                                                 "i380"
-                                                "i379"
                                                 "i378"
                                                 "i376"
-                                                "i375"
                                                 "i374"
-                                                "i373"
                                                 "i372"
                                                 "i370"
                                                 "i368"
                                                 "i366"
-                                                "i364"
-                                                "i362"
+                                                "i363"
+                                                "i361"
                                                 "i360"
                                                 "i358"
                                                 "i356"
-                                                "i353"
+                                                "i354"
+                                                "i352"
                                                 "i351"
                                                 "i350"
                                                 "i349"
-                                                "i348"
                                                 "i347"
                                                 "i346"
-                                                "i345"
-                                                "i344"
                                                 "i343"
                                                 "i341"
-                                                "i340"
-                                                "i338"
-                                                "i336"
-                                                "i334"
-                                                "i332"
+                                                "i339"
+                                                "i337"
+                                                "i335"
+                                                "i333"
+                                                "i331"
                                                 "i330"
-                                                "i328"
-                                                "i326"
+                                                "i329"
+                                                "i327"
                                                 "i325"
                                                 "i324"
-                                                "i323"
-                                                "i322"
                                                 "i321"
-                                                "i319"
+                                                "i320"
                                                 "i318"
                                                 "i316"
                                                 "i314"
@@ -12630,31 +12631,30 @@
                                                 "i306"
                                                 "i304"
                                                 "i302"
-                                                "i300"
-                                                "i298"
-                                                "i296"
-                                                "i294"
-                                                "i292"
-                                                "i290"
-                                                "i288"
-                                                "i286"
-                                                "i284"
-                                                "i282"
-                                                "i280"
-                                                "i278"
-                                                "i276"
-                                                "i274"
-                                                "i272"
-                                                "i270"
-                                                "i268"
-                                                "i266"
-                                                "i264"
-                                                "i262"
-                                                "i260"
-                                                "i258"
-                                                "i256"
+                                                "i299"
+                                                "i297"
+                                                "i295"
+                                                "i293"
+                                                "i291"
+                                                "i289"
+                                                "i287"
+                                                "i285"
+                                                "i283"
+                                                "i281"
+                                                "i279"
+                                                "i277"
+                                                "i275"
+                                                "i273"
+                                                "i271"
+                                                "i269"
+                                                "i267"
+                                                "i265"
+                                                "i263"
+                                                "i261"
+                                                "i259"
+                                                "i257"
+                                                "i255"
                                                 "i254"
-                                                "i253"
                                                 "i251"
                                                 "i249"
                                                 "i248"
@@ -12689,32 +12689,32 @@
                                                ((top) (top) (top))
                                                ("i40" "i39" "i38")))
                                             (hygiene guile))
-                                         #{keys 3876}#))
+                                         #{keys 3890}#))
                                  #f)
-                             (if (#{free-id=? 395}#
+                             (if (#{free-id=? 408}#
                                    '#(syntax-object
                                       pad
                                       ((top)
                                        #(ribcage
                                          #(pat exp)
                                          #((top) (top))
-                                         #("i3891" "i3892"))
+                                         #("i3905" "i3906"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x keys clauses r mod)
                                          #((top) (top) (top) (top) (top))
-                                         #("i3880"
-                                           "i3881"
-                                           "i3882"
-                                           "i3883"
-                                           "i3884"))
+                                         #("i3894"
+                                           "i3895"
+                                           "i3896"
+                                           "i3897"
+                                           "i3898"))
                                        #(ribcage
                                          (gen-syntax-case
                                            gen-clause
                                            build-dispatch-call
                                            convert-pattern)
                                          ((top) (top) (top) (top))
-                                         ("i3690" "i3688" "i3686" "i3684"))
+                                         ("i3704" "i3702" "i3700" "i3698"))
                                        #(ribcage
                                          (lambda-var-list
                                            gen-var
@@ -12988,81 +12988,82 @@
                                           (top)
                                           (top)
                                           (top))
-                                         ("i448"
-                                          "i446"
-                                          "i444"
-                                          "i442"
-                                          "i440"
-                                          "i438"
-                                          "i436"
-                                          "i434"
-                                          "i432"
-                                          "i430"
-                                          "i428"
-                                          "i426"
-                                          "i424"
-                                          "i422"
-                                          "i420"
-                                          "i418"
-                                          "i416"
-                                          "i414"
-                                          "i412"
-                                          "i410"
-                                          "i408"
-                                          "i406"
-                                          "i404"
-                                          "i402"
-                                          "i400"
-                                          "i398"
-                                          "i396"
-                                          "i394"
+                                         ("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"
+                                          "i397"
+                                          "i395"
+                                          "i393"
                                           "i392"
                                           "i390"
-                                          "i388"
+                                          "i387"
                                           "i386"
-                                          "i384"
+                                          "i385"
+                                          "i383"
                                           "i382"
                                           "i380"
-                                          "i379"
                                           "i378"
                                           "i376"
-                                          "i375"
                                           "i374"
-                                          "i373"
                                           "i372"
                                           "i370"
                                           "i368"
                                           "i366"
-                                          "i364"
-                                          "i362"
+                                          "i363"
+                                          "i361"
                                           "i360"
                                           "i358"
                                           "i356"
-                                          "i353"
+                                          "i354"
+                                          "i352"
                                           "i351"
                                           "i350"
                                           "i349"
-                                          "i348"
                                           "i347"
                                           "i346"
-                                          "i345"
-                                          "i344"
                                           "i343"
                                           "i341"
-                                          "i340"
-                                          "i338"
-                                          "i336"
-                                          "i334"
-                                          "i332"
+                                          "i339"
+                                          "i337"
+                                          "i335"
+                                          "i333"
+                                          "i331"
                                           "i330"
-                                          "i328"
-                                          "i326"
+                                          "i329"
+                                          "i327"
                                           "i325"
                                           "i324"
-                                          "i323"
-                                          "i322"
                                           "i321"
-                                          "i319"
+                                          "i320"
                                           "i318"
                                           "i316"
                                           "i314"
@@ -13072,31 +13073,30 @@
                                           "i306"
                                           "i304"
                                           "i302"
-                                          "i300"
-                                          "i298"
-                                          "i296"
-                                          "i294"
-                                          "i292"
-                                          "i290"
-                                          "i288"
-                                          "i286"
-                                          "i284"
-                                          "i282"
-                                          "i280"
-                                          "i278"
-                                          "i276"
-                                          "i274"
-                                          "i272"
-                                          "i270"
-                                          "i268"
-                                          "i266"
-                                          "i264"
-                                          "i262"
-                                          "i260"
-                                          "i258"
-                                          "i256"
+                                          "i299"
+                                          "i297"
+                                          "i295"
+                                          "i293"
+                                          "i291"
+                                          "i289"
+                                          "i287"
+                                          "i285"
+                                          "i283"
+                                          "i281"
+                                          "i279"
+                                          "i277"
+                                          "i275"
+                                          "i273"
+                                          "i271"
+                                          "i269"
+                                          "i267"
+                                          "i265"
+                                          "i263"
+                                          "i261"
+                                          "i259"
+                                          "i257"
+                                          "i255"
                                           "i254"
-                                          "i253"
                                           "i251"
                                           "i249"
                                           "i248"
@@ -13137,23 +13137,23 @@
                                        #(ribcage
                                          #(pat exp)
                                          #((top) (top))
-                                         #("i3891" "i3892"))
+                                         #("i3905" "i3906"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(x keys clauses r mod)
                                          #((top) (top) (top) (top) (top))
-                                         #("i3880"
-                                           "i3881"
-                                           "i3882"
-                                           "i3883"
-                                           "i3884"))
+                                         #("i3894"
+                                           "i3895"
+                                           "i3896"
+                                           "i3897"
+                                           "i3898"))
                                        #(ribcage
                                          (gen-syntax-case
                                            gen-clause
                                            build-dispatch-call
                                            convert-pattern)
                                          ((top) (top) (top) (top))
-                                         ("i3690" "i3688" "i3686" "i3684"))
+                                         ("i3704" "i3702" "i3700" "i3698"))
                                        #(ribcage
                                          (lambda-var-list
                                            gen-var
@@ -13427,81 +13427,82 @@
                                           (top)
                                           (top)
                                           (top))
-                                         ("i448"
-                                          "i446"
-                                          "i444"
-                                          "i442"
-                                          "i440"
-                                          "i438"
-                                          "i436"
-                                          "i434"
-                                          "i432"
-                                          "i430"
-                                          "i428"
-                                          "i426"
-                                          "i424"
-                                          "i422"
-                                          "i420"
-                                          "i418"
-                                          "i416"
-                                          "i414"
-                                          "i412"
-                                          "i410"
-                                          "i408"
-                                          "i406"
-                                          "i404"
-                                          "i402"
-                                          "i400"
-                                          "i398"
-                                          "i396"
-                                          "i394"
+                                         ("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"
+                                          "i397"
+                                          "i395"
+                                          "i393"
                                           "i392"
                                           "i390"
-                                          "i388"
+                                          "i387"
                                           "i386"
-                                          "i384"
+                                          "i385"
+                                          "i383"
                                           "i382"
                                           "i380"
-                                          "i379"
                                           "i378"
                                           "i376"
-                                          "i375"
                                           "i374"
-                                          "i373"
                                           "i372"
                                           "i370"
                                           "i368"
                                           "i366"
-                                          "i364"
-                                          "i362"
+                                          "i363"
+                                          "i361"
                                           "i360"
                                           "i358"
                                           "i356"
-                                          "i353"
+                                          "i354"
+                                          "i352"
                                           "i351"
                                           "i350"
                                           "i349"
-                                          "i348"
                                           "i347"
                                           "i346"
-                                          "i345"
-                                          "i344"
                                           "i343"
                                           "i341"
-                                          "i340"
-                                          "i338"
-                                          "i336"
-                                          "i334"
-                                          "i332"
+                                          "i339"
+                                          "i337"
+                                          "i335"
+                                          "i333"
+                                          "i331"
                                           "i330"
-                                          "i328"
-                                          "i326"
+                                          "i329"
+                                          "i327"
                                           "i325"
                                           "i324"
-                                          "i323"
-                                          "i322"
                                           "i321"
-                                          "i319"
+                                          "i320"
                                           "i318"
                                           "i316"
                                           "i314"
@@ -13511,31 +13512,30 @@
                                           "i306"
                                           "i304"
                                           "i302"
-                                          "i300"
-                                          "i298"
-                                          "i296"
-                                          "i294"
-                                          "i292"
-                                          "i290"
-                                          "i288"
-                                          "i286"
-                                          "i284"
-                                          "i282"
-                                          "i280"
-                                          "i278"
-                                          "i276"
-                                          "i274"
-                                          "i272"
-                                          "i270"
-                                          "i268"
-                                          "i266"
-                                          "i264"
-                                          "i262"
-                                          "i260"
-                                          "i258"
-                                          "i256"
+                                          "i299"
+                                          "i297"
+                                          "i295"
+                                          "i293"
+                                          "i291"
+                                          "i289"
+                                          "i287"
+                                          "i285"
+                                          "i283"
+                                          "i281"
+                                          "i279"
+                                          "i277"
+                                          "i275"
+                                          "i273"
+                                          "i271"
+                                          "i269"
+                                          "i267"
+                                          "i265"
+                                          "i263"
+                                          "i261"
+                                          "i259"
+                                          "i257"
+                                          "i255"
                                           "i254"
-                                          "i253"
                                           "i251"
                                           "i249"
                                           "i248"
@@ -13570,565 +13570,565 @@
                                          ((top) (top) (top))
                                          ("i40" "i39" "i38")))
                                       (hygiene guile)))
-                               (#{chi 419}#
-                                 #{exp 3894}#
-                                 #{r 3878}#
+                               (#{chi 432}#
+                                 #{exp 3908}#
+                                 #{r 3892}#
                                  '(())
-                                 #{mod 3879}#)
+                                 #{mod 3893}#)
                                (begin
-                                 (let ((#{labels 3902}#
-                                         (list (#{gen-label 352}#)))
-                                       (#{var 3903}#
-                                         (#{gen-var 447}# #{pat 3893}#)))
-                                   (#{build-application 265}#
+                                 (let ((#{labels 3916}#
+                                         (list (#{gen-label 362}#)))
+                                       (#{var 3917}#
+                                         (#{gen-var 460}# #{pat 3907}#)))
+                                   (#{build-application 266}#
                                      #f
-                                     (#{build-simple-lambda 283}#
+                                     (#{build-simple-lambda 284}#
                                        #f
-                                       (list (syntax->datum #{pat 3893}#))
+                                       (list (syntax->datum #{pat 3907}#))
                                        #f
-                                       (list #{var 3903}#)
+                                       (list #{var 3917}#)
                                        '()
-                                       (#{chi 419}#
-                                         #{exp 3894}#
-                                         (#{extend-env 327}#
-                                           #{labels 3902}#
+                                       (#{chi 432}#
+                                         #{exp 3908}#
+                                         (#{extend-env 332}#
+                                           #{labels 3916}#
                                            (list (cons 'syntax
-                                                       (cons #{var 3903}# 0)))
-                                           #{r 3878}#)
-                                         (#{make-binding-wrap 383}#
-                                           (list #{pat 3893}#)
-                                           #{labels 3902}#
+                                                       (cons #{var 3917}# 0)))
+                                           #{r 3892}#)
+                                         (#{make-binding-wrap 396}#
+                                           (list #{pat 3907}#)
+                                           #{labels 3916}#
                                            '(()))
-                                         #{mod 3879}#))
-                                     (list #{x 3875}#)))))
-                             (#{gen-clause 3689}#
-                               #{x 3875}#
-                               #{keys 3876}#
-                               (cdr #{clauses 3877}#)
-                               #{r 3878}#
-                               #{pat 3893}#
+                                         #{mod 3893}#))
+                                     (list #{x 3889}#)))))
+                             (#{gen-clause 3703}#
+                               #{x 3889}#
+                               #{keys 3890}#
+                               (cdr #{clauses 3891}#)
+                               #{r 3892}#
+                               #{pat 3907}#
                                #t
-                               #{exp 3894}#
-                               #{mod 3879}#)))
-                         #{tmp 3890}#)
-                       (let ((#{tmp 3909}#
-                               ($sc-dispatch #{tmp 3889}# '(any any any))))
-                         (if #{tmp 3909}#
+                               #{exp 3908}#
+                               #{mod 3893}#)))
+                         #{tmp 3904}#)
+                       (let ((#{tmp 3923}#
+                               ($sc-dispatch #{tmp 3903}# '(any any any))))
+                         (if #{tmp 3923}#
                            (@apply
-                             (lambda (#{pat 3913}#
-                                      #{fender 3914}#
-                                      #{exp 3915}#)
-                               (#{gen-clause 3689}#
-                                 #{x 3875}#
-                                 #{keys 3876}#
-                                 (cdr #{clauses 3877}#)
-                                 #{r 3878}#
-                                 #{pat 3913}#
-                                 #{fender 3914}#
-                                 #{exp 3915}#
-                                 #{mod 3879}#))
-                             #{tmp 3909}#)
-                           (let ((#{_ 3917}# #{tmp 3889}#))
+                             (lambda (#{pat 3927}#
+                                      #{fender 3928}#
+                                      #{exp 3929}#)
+                               (#{gen-clause 3703}#
+                                 #{x 3889}#
+                                 #{keys 3890}#
+                                 (cdr #{clauses 3891}#)
+                                 #{r 3892}#
+                                 #{pat 3927}#
+                                 #{fender 3928}#
+                                 #{exp 3929}#
+                                 #{mod 3893}#))
+                             #{tmp 3923}#)
+                           (let ((#{_ 3931}# #{tmp 3903}#))
                              (syntax-violation
                                'syntax-case
                                "invalid clause"
-                               (car #{clauses 3877}#))))))))))))
+                               (car #{clauses 3891}#))))))))))))
           (begin
-            (lambda (#{e 3918}#
-                     #{r 3919}#
-                     #{w 3920}#
-                     #{s 3921}#
-                     #{mod 3922}#)
+            (lambda (#{e 3932}#
+                     #{r 3933}#
+                     #{w 3934}#
+                     #{s 3935}#
+                     #{mod 3936}#)
               (begin
-                (let ((#{e 3929}#
-                        (#{source-wrap 407}#
-                          #{e 3918}#
-                          #{w 3920}#
-                          #{s 3921}#
-                          #{mod 3922}#)))
-                  (let ((#{tmp 3930}# #{e 3929}#))
-                    (let ((#{tmp 3931}#
+                (let ((#{e 3943}#
+                        (#{source-wrap 420}#
+                          #{e 3932}#
+                          #{w 3934}#
+                          #{s 3935}#
+                          #{mod 3936}#)))
+                  (let ((#{tmp 3944}# #{e 3943}#))
+                    (let ((#{tmp 3945}#
                             ($sc-dispatch
-                              #{tmp 3930}#
+                              #{tmp 3944}#
                               '(_ any each-any . each-any))))
-                      (if #{tmp 3931}#
+                      (if #{tmp 3945}#
                         (@apply
-                          (lambda (#{val 3935}# #{key 3936}# #{m 3937}#)
+                          (lambda (#{val 3949}# #{key 3950}# #{m 3951}#)
                             (if (and-map
-                                  (lambda (#{x 3938}#)
-                                    (if (#{id? 339}# #{x 3938}#)
-                                      (not (#{ellipsis? 435}# #{x 3938}#))
+                                  (lambda (#{x 3952}#)
+                                    (if (#{id? 344}# #{x 3952}#)
+                                      (not (#{ellipsis? 448}# #{x 3952}#))
                                       #f))
-                                  #{key 3936}#)
+                                  #{key 3950}#)
                               (begin
-                                (let ((#{x 3944}# (#{gen-var 447}# 'tmp)))
-                                  (#{build-application 265}#
-                                    #{s 3921}#
-                                    (#{build-simple-lambda 283}#
+                                (let ((#{x 3958}# (#{gen-var 460}# 'tmp)))
+                                  (#{build-application 266}#
+                                    #{s 3935}#
+                                    (#{build-simple-lambda 284}#
                                       #f
                                       (list 'tmp)
                                       #f
-                                      (list #{x 3944}#)
+                                      (list #{x 3958}#)
                                       '()
-                                      (#{gen-syntax-case 3691}#
-                                        (#{build-lexical-reference 271}#
+                                      (#{gen-syntax-case 3705}#
+                                        (#{build-lexical-reference 272}#
                                           'value
                                           #f
                                           'tmp
-                                          #{x 3944}#)
-                                        #{key 3936}#
-                                        #{m 3937}#
-                                        #{r 3919}#
-                                        #{mod 3922}#))
-                                    (list (#{chi 419}#
-                                            #{val 3935}#
-                                            #{r 3919}#
+                                          #{x 3958}#)
+                                        #{key 3950}#
+                                        #{m 3951}#
+                                        #{r 3933}#
+                                        #{mod 3936}#))
+                                    (list (#{chi 432}#
+                                            #{val 3949}#
+                                            #{r 3933}#
                                             '(())
-                                            #{mod 3922}#)))))
+                                            #{mod 3936}#)))))
                               (syntax-violation
                                 'syntax-case
                                 "invalid literals list"
-                                #{e 3929}#)))
-                          #{tmp 3931}#)
+                                #{e 3943}#)))
+                          #{tmp 3945}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
-                          #{tmp 3930}#))))))))))
+                          #{tmp 3944}#))))))))))
       (set! macroexpand
         (lambda*
-          (#{x 3950}#
+          (#{x 3964}#
             #:optional
-            (#{m 3952}# 'e)
-            (#{esew 3954}# '(eval)))
-          (#{chi-top-sequence 411}#
-            (list #{x 3950}#)
+            (#{m 3966}# 'e)
+            (#{esew 3968}# '(eval)))
+          (#{chi-top-sequence 424}#
+            (list #{x 3964}#)
             '()
             '((top))
             #f
-            #{m 3952}#
-            #{esew 3954}#
+            #{m 3966}#
+            #{esew 3968}#
             (cons 'hygiene (module-name (current-module))))))
       (set! identifier?
-        (lambda (#{x 3958}#)
-          (#{nonsymbol-id? 337}# #{x 3958}#)))
+        (lambda (#{x 3972}#)
+          (#{nonsymbol-id? 342}# #{x 3972}#)))
       (set! datum->syntax
-        (lambda (#{id 3960}# #{datum 3961}#)
-          (#{make-syntax-object 303}#
-            #{datum 3961}#
-            (#{syntax-object-wrap 309}# #{id 3960}#)
-            (#{syntax-object-module 311}# #{id 3960}#))))
+        (lambda (#{id 3974}# #{datum 3975}#)
+          (#{make-syntax-object 305}#
+            #{datum 3975}#
+            (#{syntax-object-wrap 311}# #{id 3974}#)
+            (#{syntax-object-module 313}# #{id 3974}#))))
       (set! syntax->datum
-        (lambda (#{x 3964}#)
-          (#{strip 445}# #{x 3964}# '(()))))
+        (lambda (#{x 3978}#)
+          (#{strip 458}# #{x 3978}# '(()))))
       (set! syntax-source
-        (lambda (#{x 3967}#)
-          (#{source-annotation 320}# #{x 3967}#)))
+        (lambda (#{x 3981}#)
+          (#{source-annotation 322}# #{x 3981}#)))
       (set! generate-temporaries
-        (lambda (#{ls 3969}#)
+        (lambda (#{ls 3983}#)
           (begin
             (begin
-              (let ((#{x 3973}# #{ls 3969}#))
-                (if (not (list? #{x 3973}#))
+              (let ((#{x 3987}# #{ls 3983}#))
+                (if (not (list? #{x 3987}#))
                   (syntax-violation
                     'generate-temporaries
                     "invalid argument"
-                    #{x 3973}#))))
+                    #{x 3987}#))))
             (begin
-              (let ((#{mod 3975}#
+              (let ((#{mod 3989}#
                       (cons 'hygiene (module-name (current-module)))))
-                (map (lambda (#{x 3976}#)
-                       (#{wrap 405}# (gensym) '((top)) #{mod 3975}#))
-                     #{ls 3969}#))))))
+                (map (lambda (#{x 3990}#)
+                       (#{wrap 418}# (gensym) '((top)) #{mod 3989}#))
+                     #{ls 3983}#))))))
       (set! free-identifier=?
-        (lambda (#{x 3980}# #{y 3981}#)
+        (lambda (#{x 3994}# #{y 3995}#)
           (begin
             (begin
-              (let ((#{x 3986}# #{x 3980}#))
-                (if (not (#{nonsymbol-id? 337}# #{x 3986}#))
+              (let ((#{x 4000}# #{x 3994}#))
+                (if (not (#{nonsymbol-id? 342}# #{x 4000}#))
                   (syntax-violation
                     'free-identifier=?
                     "invalid argument"
-                    #{x 3986}#))))
+                    #{x 4000}#))))
             (begin
-              (let ((#{x 3989}# #{y 3981}#))
-                (if (not (#{nonsymbol-id? 337}# #{x 3989}#))
+              (let ((#{x 4003}# #{y 3995}#))
+                (if (not (#{nonsymbol-id? 342}# #{x 4003}#))
                   (syntax-violation
                     'free-identifier=?
                     "invalid argument"
-                    #{x 3989}#))))
-            (#{free-id=? 395}# #{x 3980}# #{y 3981}#))))
+                    #{x 4003}#))))
+            (#{free-id=? 408}# #{x 3994}# #{y 3995}#))))
       (set! bound-identifier=?
-        (lambda (#{x 3990}# #{y 3991}#)
+        (lambda (#{x 4004}# #{y 4005}#)
           (begin
             (begin
-              (let ((#{x 3996}# #{x 3990}#))
-                (if (not (#{nonsymbol-id? 337}# #{x 3996}#))
+              (let ((#{x 4010}# #{x 4004}#))
+                (if (not (#{nonsymbol-id? 342}# #{x 4010}#))
                   (syntax-violation
                     'bound-identifier=?
                     "invalid argument"
-                    #{x 3996}#))))
+                    #{x 4010}#))))
             (begin
-              (let ((#{x 3999}# #{y 3991}#))
-                (if (not (#{nonsymbol-id? 337}# #{x 3999}#))
+              (let ((#{x 4013}# #{y 4005}#))
+                (if (not (#{nonsymbol-id? 342}# #{x 4013}#))
                   (syntax-violation
                     'bound-identifier=?
                     "invalid argument"
-                    #{x 3999}#))))
-            (#{bound-id=? 397}# #{x 3990}# #{y 3991}#))))
+                    #{x 4013}#))))
+            (#{bound-id=? 410}# #{x 4004}# #{y 4005}#))))
       (set! syntax-violation
         (lambda*
-          (#{who 4000}#
-            #{message 4001}#
-            #{form 4002}#
+          (#{who 4014}#
+            #{message 4015}#
+            #{form 4016}#
             #:optional
-            (#{subform 4006}# #f))
+            (#{subform 4020}# #f))
           (begin
             (begin
-              (let ((#{x 4010}# #{who 4000}#))
-                (if (not (let ((#{x 4011}# #{x 4010}#))
+              (let ((#{x 4024}# #{who 4014}#))
+                (if (not (let ((#{x 4025}# #{x 4024}#))
                            (begin
-                             (let ((#{t 4015}# (not #{x 4011}#)))
-                               (if #{t 4015}#
-                                 #{t 4015}#
+                             (let ((#{t 4029}# (not #{x 4025}#)))
+                               (if #{t 4029}#
+                                 #{t 4029}#
                                  (begin
-                                   (let ((#{t 4018}# (string? #{x 4011}#)))
-                                     (if #{t 4018}#
-                                       #{t 4018}#
-                                       (symbol? #{x 4011}#)))))))))
+                                   (let ((#{t 4032}# (string? #{x 4025}#)))
+                                     (if #{t 4032}#
+                                       #{t 4032}#
+                                       (symbol? #{x 4025}#)))))))))
                   (syntax-violation
                     'syntax-violation
                     "invalid argument"
-                    #{x 4010}#))))
+                    #{x 4024}#))))
             (begin
-              (let ((#{x 4022}# #{message 4001}#))
-                (if (not (string? #{x 4022}#))
+              (let ((#{x 4036}# #{message 4015}#))
+                (if (not (string? #{x 4036}#))
                   (syntax-violation
                     'syntax-violation
                     "invalid argument"
-                    #{x 4022}#))))
+                    #{x 4036}#))))
             (throw 'syntax-error
-                   #{who 4000}#
-                   #{message 4001}#
-                   (#{source-annotation 320}#
+                   #{who 4014}#
+                   #{message 4015}#
+                   (#{source-annotation 322}#
                      (begin
-                       (let ((#{t 4025}# #{form 4002}#))
-                         (if #{t 4025}# #{t 4025}# #{subform 4006}#))))
-                   (#{strip 445}# #{form 4002}# '(()))
-                   (if #{subform 4006}#
-                     (#{strip 445}# #{subform 4006}# '(()))
+                       (let ((#{t 4039}# #{form 4016}#))
+                         (if #{t 4039}# #{t 4039}# #{subform 4020}#))))
+                   (#{strip 458}# #{form 4016}# '(()))
+                   (if #{subform 4020}#
+                     (#{strip 458}# #{subform 4020}# '(()))
                      #f)))))
       (letrec*
-        ((#{match-each 4032}#
-           (lambda (#{e 4045}# #{p 4046}# #{w 4047}# #{mod 4048}#)
-             (if (pair? #{e 4045}#)
+        ((#{match-each 4046}#
+           (lambda (#{e 4059}# #{p 4060}# #{w 4061}# #{mod 4062}#)
+             (if (pair? #{e 4059}#)
                (begin
-                 (let ((#{first 4056}#
-                         (#{match 4044}#
-                           (car #{e 4045}#)
-                           #{p 4046}#
-                           #{w 4047}#
+                 (let ((#{first 4070}#
+                         (#{match 4058}#
+                           (car #{e 4059}#)
+                           #{p 4060}#
+                           #{w 4061}#
                            '()
-                           #{mod 4048}#)))
-                   (if #{first 4056}#
+                           #{mod 4062}#)))
+                   (if #{first 4070}#
                      (begin
-                       (let ((#{rest 4060}#
-                               (#{match-each 4032}#
-                                 (cdr #{e 4045}#)
-                                 #{p 4046}#
-                                 #{w 4047}#
-                                 #{mod 4048}#)))
-                         (if #{rest 4060}#
-                           (cons #{first 4056}# #{rest 4060}#)
+                       (let ((#{rest 4074}#
+                               (#{match-each 4046}#
+                                 (cdr #{e 4059}#)
+                                 #{p 4060}#
+                                 #{w 4061}#
+                                 #{mod 4062}#)))
+                         (if #{rest 4074}#
+                           (cons #{first 4070}# #{rest 4074}#)
                            #f)))
                      #f)))
-               (if (null? #{e 4045}#)
+               (if (null? #{e 4059}#)
                  '()
-                 (if (#{syntax-object? 305}# #{e 4045}#)
-                   (#{match-each 4032}#
-                     (#{syntax-object-expression 307}# #{e 4045}#)
-                     #{p 4046}#
-                     (#{join-wraps 387}#
-                       #{w 4047}#
-                       (#{syntax-object-wrap 309}# #{e 4045}#))
-                     (#{syntax-object-module 311}# #{e 4045}#))
+                 (if (#{syntax-object? 307}# #{e 4059}#)
+                   (#{match-each 4046}#
+                     (#{syntax-object-expression 309}# #{e 4059}#)
+                     #{p 4060}#
+                     (#{join-wraps 400}#
+                       #{w 4061}#
+                       (#{syntax-object-wrap 311}# #{e 4059}#))
+                     (#{syntax-object-module 313}# #{e 4059}#))
                    #f)))))
-         (#{match-each+ 4034}#
-           (lambda (#{e 4068}#
-                    #{x-pat 4069}#
-                    #{y-pat 4070}#
-                    #{z-pat 4071}#
-                    #{w 4072}#
-                    #{r 4073}#
-                    #{mod 4074}#)
+         (#{match-each+ 4048}#
+           (lambda (#{e 4082}#
+                    #{x-pat 4083}#
+                    #{y-pat 4084}#
+                    #{z-pat 4085}#
+                    #{w 4086}#
+                    #{r 4087}#
+                    #{mod 4088}#)
              (letrec*
-               ((#{f 4085}#
-                  (lambda (#{e 4086}# #{w 4087}#)
-                    (if (pair? #{e 4086}#)
+               ((#{f 4099}#
+                  (lambda (#{e 4100}# #{w 4101}#)
+                    (if (pair? #{e 4100}#)
                       (call-with-values
                         (lambda ()
-                          (#{f 4085}# (cdr #{e 4086}#) #{w 4087}#))
-                        (lambda (#{xr* 4090}# #{y-pat 4091}# #{r 4092}#)
-                          (if #{r 4092}#
-                            (if (null? #{y-pat 4091}#)
+                          (#{f 4099}# (cdr #{e 4100}#) #{w 4101}#))
+                        (lambda (#{xr* 4104}# #{y-pat 4105}# #{r 4106}#)
+                          (if #{r 4106}#
+                            (if (null? #{y-pat 4105}#)
                               (begin
-                                (let ((#{xr 4097}#
-                                        (#{match 4044}#
-                                          (car #{e 4086}#)
-                                          #{x-pat 4069}#
-                                          #{w 4087}#
+                                (let ((#{xr 4111}#
+                                        (#{match 4058}#
+                                          (car #{e 4100}#)
+                                          #{x-pat 4083}#
+                                          #{w 4101}#
                                           '()
-                                          #{mod 4074}#)))
-                                  (if #{xr 4097}#
+                                          #{mod 4088}#)))
+                                  (if #{xr 4111}#
                                     (values
-                                      (cons #{xr 4097}# #{xr* 4090}#)
-                                      #{y-pat 4091}#
-                                      #{r 4092}#)
+                                      (cons #{xr 4111}# #{xr* 4104}#)
+                                      #{y-pat 4105}#
+                                      #{r 4106}#)
                                     (values #f #f #f))))
                               (values
                                 '()
-                                (cdr #{y-pat 4091}#)
-                                (#{match 4044}#
-                                  (car #{e 4086}#)
-                                  (car #{y-pat 4091}#)
-                                  #{w 4087}#
-                                  #{r 4092}#
-                                  #{mod 4074}#)))
+                                (cdr #{y-pat 4105}#)
+                                (#{match 4058}#
+                                  (car #{e 4100}#)
+                                  (car #{y-pat 4105}#)
+                                  #{w 4101}#
+                                  #{r 4106}#
+                                  #{mod 4088}#)))
                             (values #f #f #f))))
-                      (if (#{syntax-object? 305}# #{e 4086}#)
-                        (#{f 4085}#
-                          (#{syntax-object-expression 307}# #{e 4086}#)
-                          (#{join-wraps 387}# #{w 4087}# #{e 4086}#))
+                      (if (#{syntax-object? 307}# #{e 4100}#)
+                        (#{f 4099}#
+                          (#{syntax-object-expression 309}# #{e 4100}#)
+                          (#{join-wraps 400}# #{w 4101}# #{e 4100}#))
                         (values
                           '()
-                          #{y-pat 4070}#
-                          (#{match 4044}#
-                            #{e 4086}#
-                            #{z-pat 4071}#
-                            #{w 4087}#
-                            #{r 4073}#
-                            #{mod 4074}#)))))))
-               (begin (#{f 4085}# #{e 4068}# #{w 4072}#)))))
-         (#{match-each-any 4036}#
-           (lambda (#{e 4101}# #{w 4102}# #{mod 4103}#)
-             (if (pair? #{e 4101}#)
+                          #{y-pat 4084}#
+                          (#{match 4058}#
+                            #{e 4100}#
+                            #{z-pat 4085}#
+                            #{w 4101}#
+                            #{r 4087}#
+                            #{mod 4088}#)))))))
+               (begin (#{f 4099}# #{e 4082}# #{w 4086}#)))))
+         (#{match-each-any 4050}#
+           (lambda (#{e 4115}# #{w 4116}# #{mod 4117}#)
+             (if (pair? #{e 4115}#)
                (begin
-                 (let ((#{l 4110}#
-                         (#{match-each-any 4036}#
-                           (cdr #{e 4101}#)
-                           #{w 4102}#
-                           #{mod 4103}#)))
-                   (if #{l 4110}#
-                     (cons (#{wrap 405}#
-                             (car #{e 4101}#)
-                             #{w 4102}#
-                             #{mod 4103}#)
-                           #{l 4110}#)
+                 (let ((#{l 4124}#
+                         (#{match-each-any 4050}#
+                           (cdr #{e 4115}#)
+                           #{w 4116}#
+                           #{mod 4117}#)))
+                   (if #{l 4124}#
+                     (cons (#{wrap 418}#
+                             (car #{e 4115}#)
+                             #{w 4116}#
+                             #{mod 4117}#)
+                           #{l 4124}#)
                      #f)))
-               (if (null? #{e 4101}#)
+               (if (null? #{e 4115}#)
                  '()
-                 (if (#{syntax-object? 305}# #{e 4101}#)
-                   (#{match-each-any 4036}#
-                     (#{syntax-object-expression 307}# #{e 4101}#)
-                     (#{join-wraps 387}#
-                       #{w 4102}#
-                       (#{syntax-object-wrap 309}# #{e 4101}#))
-                     #{mod 4103}#)
+                 (if (#{syntax-object? 307}# #{e 4115}#)
+                   (#{match-each-any 4050}#
+                     (#{syntax-object-expression 309}# #{e 4115}#)
+                     (#{join-wraps 400}#
+                       #{w 4116}#
+                       (#{syntax-object-wrap 311}# #{e 4115}#))
+                     #{mod 4117}#)
                    #f)))))
-         (#{match-empty 4038}#
-           (lambda (#{p 4118}# #{r 4119}#)
-             (if (null? #{p 4118}#)
-               #{r 4119}#
-               (if (eq? #{p 4118}# '_)
-                 #{r 4119}#
-                 (if (eq? #{p 4118}# 'any)
-                   (cons '() #{r 4119}#)
-                   (if (pair? #{p 4118}#)
-                     (#{match-empty 4038}#
-                       (car #{p 4118}#)
-                       (#{match-empty 4038}#
-                         (cdr #{p 4118}#)
-                         #{r 4119}#))
-                     (if (eq? #{p 4118}# 'each-any)
-                       (cons '() #{r 4119}#)
+         (#{match-empty 4052}#
+           (lambda (#{p 4132}# #{r 4133}#)
+             (if (null? #{p 4132}#)
+               #{r 4133}#
+               (if (eq? #{p 4132}# '_)
+                 #{r 4133}#
+                 (if (eq? #{p 4132}# 'any)
+                   (cons '() #{r 4133}#)
+                   (if (pair? #{p 4132}#)
+                     (#{match-empty 4052}#
+                       (car #{p 4132}#)
+                       (#{match-empty 4052}#
+                         (cdr #{p 4132}#)
+                         #{r 4133}#))
+                     (if (eq? #{p 4132}# 'each-any)
+                       (cons '() #{r 4133}#)
                        (begin
-                         (let ((#{atom-key 4135}# (vector-ref #{p 4118}# 0)))
-                           (if (eqv? #{atom-key 4135}# 'each)
-                             (#{match-empty 4038}#
-                               (vector-ref #{p 4118}# 1)
-                               #{r 4119}#)
-                             (if (eqv? #{atom-key 4135}# 'each+)
-                               (#{match-empty 4038}#
-                                 (vector-ref #{p 4118}# 1)
-                                 (#{match-empty 4038}#
-                                   (reverse (vector-ref #{p 4118}# 2))
-                                   (#{match-empty 4038}#
-                                     (vector-ref #{p 4118}# 3)
-                                     #{r 4119}#)))
-                               (if (if (eqv? #{atom-key 4135}# 'free-id)
+                         (let ((#{atom-key 4149}# (vector-ref #{p 4132}# 0)))
+                           (if (eqv? #{atom-key 4149}# 'each)
+                             (#{match-empty 4052}#
+                               (vector-ref #{p 4132}# 1)
+                               #{r 4133}#)
+                             (if (eqv? #{atom-key 4149}# 'each+)
+                               (#{match-empty 4052}#
+                                 (vector-ref #{p 4132}# 1)
+                                 (#{match-empty 4052}#
+                                   (reverse (vector-ref #{p 4132}# 2))
+                                   (#{match-empty 4052}#
+                                     (vector-ref #{p 4132}# 3)
+                                     #{r 4133}#)))
+                               (if (if (eqv? #{atom-key 4149}# 'free-id)
                                      #t
-                                     (eqv? #{atom-key 4135}# 'atom))
-                                 #{r 4119}#
-                                 (if (eqv? #{atom-key 4135}# 'vector)
-                                   (#{match-empty 4038}#
-                                     (vector-ref #{p 4118}# 1)
-                                     #{r 4119}#))))))))))))))
-         (#{combine 4040}#
-           (lambda (#{r* 4140}# #{r 4141}#)
-             (if (null? (car #{r* 4140}#))
-               #{r 4141}#
-               (cons (map car #{r* 4140}#)
-                     (#{combine 4040}#
-                       (map cdr #{r* 4140}#)
-                       #{r 4141}#)))))
-         (#{match* 4042}#
-           (lambda (#{e 4144}#
-                    #{p 4145}#
-                    #{w 4146}#
-                    #{r 4147}#
-                    #{mod 4148}#)
-             (if (null? #{p 4145}#)
-               (if (null? #{e 4144}#) #{r 4147}# #f)
-               (if (pair? #{p 4145}#)
-                 (if (pair? #{e 4144}#)
-                   (#{match 4044}#
-                     (car #{e 4144}#)
-                     (car #{p 4145}#)
-                     #{w 4146}#
-                     (#{match 4044}#
-                       (cdr #{e 4144}#)
-                       (cdr #{p 4145}#)
-                       #{w 4146}#
-                       #{r 4147}#
-                       #{mod 4148}#)
-                     #{mod 4148}#)
+                                     (eqv? #{atom-key 4149}# 'atom))
+                                 #{r 4133}#
+                                 (if (eqv? #{atom-key 4149}# 'vector)
+                                   (#{match-empty 4052}#
+                                     (vector-ref #{p 4132}# 1)
+                                     #{r 4133}#))))))))))))))
+         (#{combine 4054}#
+           (lambda (#{r* 4154}# #{r 4155}#)
+             (if (null? (car #{r* 4154}#))
+               #{r 4155}#
+               (cons (map car #{r* 4154}#)
+                     (#{combine 4054}#
+                       (map cdr #{r* 4154}#)
+                       #{r 4155}#)))))
+         (#{match* 4056}#
+           (lambda (#{e 4158}#
+                    #{p 4159}#
+                    #{w 4160}#
+                    #{r 4161}#
+                    #{mod 4162}#)
+             (if (null? #{p 4159}#)
+               (if (null? #{e 4158}#) #{r 4161}# #f)
+               (if (pair? #{p 4159}#)
+                 (if (pair? #{e 4158}#)
+                   (#{match 4058}#
+                     (car #{e 4158}#)
+                     (car #{p 4159}#)
+                     #{w 4160}#
+                     (#{match 4058}#
+                       (cdr #{e 4158}#)
+                       (cdr #{p 4159}#)
+                       #{w 4160}#
+                       #{r 4161}#
+                       #{mod 4162}#)
+                     #{mod 4162}#)
                    #f)
-                 (if (eq? #{p 4145}# 'each-any)
+                 (if (eq? #{p 4159}# 'each-any)
                    (begin
-                     (let ((#{l 4165}#
-                             (#{match-each-any 4036}#
-                               #{e 4144}#
-                               #{w 4146}#
-                               #{mod 4148}#)))
-                       (if #{l 4165}# (cons #{l 4165}# #{r 4147}#) #f)))
+                     (let ((#{l 4179}#
+                             (#{match-each-any 4050}#
+                               #{e 4158}#
+                               #{w 4160}#
+                               #{mod 4162}#)))
+                       (if #{l 4179}# (cons #{l 4179}# #{r 4161}#) #f)))
                    (begin
-                     (let ((#{atom-key 4171}# (vector-ref #{p 4145}# 0)))
-                       (if (eqv? #{atom-key 4171}# 'each)
-                         (if (null? #{e 4144}#)
-                           (#{match-empty 4038}#
-                             (vector-ref #{p 4145}# 1)
-                             #{r 4147}#)
+                     (let ((#{atom-key 4185}# (vector-ref #{p 4159}# 0)))
+                       (if (eqv? #{atom-key 4185}# 'each)
+                         (if (null? #{e 4158}#)
+                           (#{match-empty 4052}#
+                             (vector-ref #{p 4159}# 1)
+                             #{r 4161}#)
                            (begin
-                             (let ((#{l 4174}#
-                                     (#{match-each 4032}#
-                                       #{e 4144}#
-                                       (vector-ref #{p 4145}# 1)
-                                       #{w 4146}#
-                                       #{mod 4148}#)))
-                               (if #{l 4174}#
+                             (let ((#{l 4188}#
+                                     (#{match-each 4046}#
+                                       #{e 4158}#
+                                       (vector-ref #{p 4159}# 1)
+                                       #{w 4160}#
+                                       #{mod 4162}#)))
+                               (if #{l 4188}#
                                  (letrec*
-                                   ((#{collect 4179}#
-                                      (lambda (#{l 4180}#)
-                                        (if (null? (car #{l 4180}#))
-                                          #{r 4147}#
-                                          (cons (map car #{l 4180}#)
-                                                (#{collect 4179}#
-                                                  (map cdr #{l 4180}#)))))))
-                                   (begin (#{collect 4179}# #{l 4174}#)))
+                                   ((#{collect 4193}#
+                                      (lambda (#{l 4194}#)
+                                        (if (null? (car #{l 4194}#))
+                                          #{r 4161}#
+                                          (cons (map car #{l 4194}#)
+                                                (#{collect 4193}#
+                                                  (map cdr #{l 4194}#)))))))
+                                   (begin (#{collect 4193}# #{l 4188}#)))
                                  #f))))
-                         (if (eqv? #{atom-key 4171}# 'each+)
+                         (if (eqv? #{atom-key 4185}# 'each+)
                            (call-with-values
                              (lambda ()
-                               (#{match-each+ 4034}#
-                                 #{e 4144}#
-                                 (vector-ref #{p 4145}# 1)
-                                 (vector-ref #{p 4145}# 2)
-                                 (vector-ref #{p 4145}# 3)
-                                 #{w 4146}#
-                                 #{r 4147}#
-                                 #{mod 4148}#))
-                             (lambda (#{xr* 4182}# #{y-pat 4183}# #{r 4184}#)
-                               (if #{r 4184}#
-                                 (if (null? #{y-pat 4183}#)
-                                   (if (null? #{xr* 4182}#)
-                                     (#{match-empty 4038}#
-                                       (vector-ref #{p 4145}# 1)
-                                       #{r 4184}#)
-                                     (#{combine 4040}#
-                                       #{xr* 4182}#
-                                       #{r 4184}#))
+                               (#{match-each+ 4048}#
+                                 #{e 4158}#
+                                 (vector-ref #{p 4159}# 1)
+                                 (vector-ref #{p 4159}# 2)
+                                 (vector-ref #{p 4159}# 3)
+                                 #{w 4160}#
+                                 #{r 4161}#
+                                 #{mod 4162}#))
+                             (lambda (#{xr* 4196}# #{y-pat 4197}# #{r 4198}#)
+                               (if #{r 4198}#
+                                 (if (null? #{y-pat 4197}#)
+                                   (if (null? #{xr* 4196}#)
+                                     (#{match-empty 4052}#
+                                       (vector-ref #{p 4159}# 1)
+                                       #{r 4198}#)
+                                     (#{combine 4054}#
+                                       #{xr* 4196}#
+                                       #{r 4198}#))
                                    #f)
                                  #f)))
-                           (if (eqv? #{atom-key 4171}# 'free-id)
-                             (if (#{id? 339}# #{e 4144}#)
-                               (if (#{free-id=? 395}#
-                                     (#{wrap 405}#
-                                       #{e 4144}#
-                                       #{w 4146}#
-                                       #{mod 4148}#)
-                                     (vector-ref #{p 4145}# 1))
-                                 #{r 4147}#
+                           (if (eqv? #{atom-key 4185}# 'free-id)
+                             (if (#{id? 344}# #{e 4158}#)
+                               (if (#{free-id=? 408}#
+                                     (#{wrap 418}#
+                                       #{e 4158}#
+                                       #{w 4160}#
+                                       #{mod 4162}#)
+                                     (vector-ref #{p 4159}# 1))
+                                 #{r 4161}#
                                  #f)
                                #f)
-                             (if (eqv? #{atom-key 4171}# 'atom)
+                             (if (eqv? #{atom-key 4185}# 'atom)
                                (if (equal?
-                                     (vector-ref #{p 4145}# 1)
-                                     (#{strip 445}# #{e 4144}# #{w 4146}#))
-                                 #{r 4147}#
+                                     (vector-ref #{p 4159}# 1)
+                                     (#{strip 458}# #{e 4158}# #{w 4160}#))
+                                 #{r 4161}#
                                  #f)
-                               (if (eqv? #{atom-key 4171}# 'vector)
-                                 (if (vector? #{e 4144}#)
-                                   (#{match 4044}#
-                                     (vector->list #{e 4144}#)
-                                     (vector-ref #{p 4145}# 1)
-                                     #{w 4146}#
-                                     #{r 4147}#
-                                     #{mod 4148}#)
+                               (if (eqv? #{atom-key 4185}# 'vector)
+                                 (if (vector? #{e 4158}#)
+                                   (#{match 4058}#
+                                     (vector->list #{e 4158}#)
+                                     (vector-ref #{p 4159}# 1)
+                                     #{w 4160}#
+                                     #{r 4161}#
+                                     #{mod 4162}#)
                                    #f)))))))))))))
-         (#{match 4044}#
-           (lambda (#{e 4201}#
-                    #{p 4202}#
-                    #{w 4203}#
-                    #{r 4204}#
-                    #{mod 4205}#)
-             (if (not #{r 4204}#)
+         (#{match 4058}#
+           (lambda (#{e 4215}#
+                    #{p 4216}#
+                    #{w 4217}#
+                    #{r 4218}#
+                    #{mod 4219}#)
+             (if (not #{r 4218}#)
                #f
-               (if (eq? #{p 4202}# '_)
-                 #{r 4204}#
-                 (if (eq? #{p 4202}# 'any)
-                   (cons (#{wrap 405}# #{e 4201}# #{w 4203}# #{mod 4205}#)
-                         #{r 4204}#)
-                   (if (#{syntax-object? 305}# #{e 4201}#)
-                     (#{match* 4042}#
-                       (#{syntax-object-expression 307}# #{e 4201}#)
-                       #{p 4202}#
-                       (#{join-wraps 387}#
-                         #{w 4203}#
-                         (#{syntax-object-wrap 309}# #{e 4201}#))
-                       #{r 4204}#
-                       (#{syntax-object-module 311}# #{e 4201}#))
-                     (#{match* 4042}#
-                       #{e 4201}#
-                       #{p 4202}#
-                       #{w 4203}#
-                       #{r 4204}#
-                       #{mod 4205}#))))))))
+               (if (eq? #{p 4216}# '_)
+                 #{r 4218}#
+                 (if (eq? #{p 4216}# 'any)
+                   (cons (#{wrap 418}# #{e 4215}# #{w 4217}# #{mod 4219}#)
+                         #{r 4218}#)
+                   (if (#{syntax-object? 307}# #{e 4215}#)
+                     (#{match* 4056}#
+                       (#{syntax-object-expression 309}# #{e 4215}#)
+                       #{p 4216}#
+                       (#{join-wraps 400}#
+                         #{w 4217}#
+                         (#{syntax-object-wrap 311}# #{e 4215}#))
+                       #{r 4218}#
+                       (#{syntax-object-module 313}# #{e 4215}#))
+                     (#{match* 4056}#
+                       #{e 4215}#
+                       #{p 4216}#
+                       #{w 4217}#
+                       #{r 4218}#
+                       #{mod 4219}#))))))))
         (begin
           (set! $sc-dispatch
-            (lambda (#{e 4220}# #{p 4221}#)
-              (if (eq? #{p 4221}# 'any)
-                (list #{e 4220}#)
-                (if (eq? #{p 4221}# '_)
+            (lambda (#{e 4234}# #{p 4235}#)
+              (if (eq? #{p 4235}# 'any)
+                (list #{e 4234}#)
+                (if (eq? #{p 4235}# '_)
                   '()
-                  (if (#{syntax-object? 305}# #{e 4220}#)
-                    (#{match* 4042}#
-                      (#{syntax-object-expression 307}# #{e 4220}#)
-                      #{p 4221}#
-                      (#{syntax-object-wrap 309}# #{e 4220}#)
+                  (if (#{syntax-object? 307}# #{e 4234}#)
+                    (#{match* 4056}#
+                      (#{syntax-object-expression 309}# #{e 4234}#)
+                      #{p 4235}#
+                      (#{syntax-object-wrap 311}# #{e 4234}#)
                       '()
-                      (#{syntax-object-module 311}# #{e 4220}#))
-                    (#{match* 4042}#
-                      #{e 4220}#
-                      #{p 4221}#
+                      (#{syntax-object-module 313}# #{e 4234}#))
+                    (#{match* 4056}#
+                      #{e 4234}#
+                      #{p 4235}#
                       '(())
                       '()
                       #f)))))))))))
@@ -14137,82 +14137,82 @@
   (make-syntax-transformer
     'with-syntax
     'macro
-    (lambda (#{x 4232}#)
-      (let ((#{tmp 4234}# #{x 4232}#))
-        (let ((#{tmp 4235}#
+    (lambda (#{x 4246}#)
+      (let ((#{tmp 4248}# #{x 4246}#))
+        (let ((#{tmp 4249}#
                 ($sc-dispatch
-                  #{tmp 4234}#
+                  #{tmp 4248}#
                   '(_ () any . each-any))))
-          (if #{tmp 4235}#
+          (if #{tmp 4249}#
             (@apply
-              (lambda (#{e1 4238}# #{e2 4239}#)
+              (lambda (#{e1 4252}# #{e2 4253}#)
                 (cons '#(syntax-object
                          let
                          ((top)
                           #(ribcage
                             #(e1 e2)
                             #((top) (top))
-                            #("i4236" "i4237"))
+                            #("i4250" "i4251"))
                           #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i4233")))
+                          #(ribcage #(x) #((top)) #("i4247")))
                          (hygiene guile))
-                      (cons '() (cons #{e1 4238}# #{e2 4239}#))))
-              #{tmp 4235}#)
-            (let ((#{tmp 4241}#
+                      (cons '() (cons #{e1 4252}# #{e2 4253}#))))
+              #{tmp 4249}#)
+            (let ((#{tmp 4255}#
                     ($sc-dispatch
-                      #{tmp 4234}#
+                      #{tmp 4248}#
                       '(_ ((any any)) any . each-any))))
-              (if #{tmp 4241}#
+              (if #{tmp 4255}#
                 (@apply
-                  (lambda (#{out 4246}#
-                           #{in 4247}#
-                           #{e1 4248}#
-                           #{e2 4249}#)
+                  (lambda (#{out 4260}#
+                           #{in 4261}#
+                           #{e1 4262}#
+                           #{e2 4263}#)
                     (list '#(syntax-object
                              syntax-case
                              ((top)
                               #(ribcage
                                 #(out in e1 e2)
                                 #((top) (top) (top) (top))
-                                #("i4242" "i4243" "i4244" "i4245"))
+                                #("i4256" "i4257" "i4258" "i4259"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i4233")))
+                              #(ribcage #(x) #((top)) #("i4247")))
                              (hygiene guile))
-                          #{in 4247}#
+                          #{in 4261}#
                           '()
-                          (list #{out 4246}#
+                          (list #{out 4260}#
                                 (cons '#(syntax-object
                                          let
                                          ((top)
                                           #(ribcage
                                             #(out in e1 e2)
                                             #((top) (top) (top) (top))
-                                            #("i4242" "i4243" "i4244" "i4245"))
+                                            #("i4256" "i4257" "i4258" "i4259"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i4233")))
+                                          #(ribcage #(x) #((top)) #("i4247")))
                                          (hygiene guile))
                                       (cons '()
-                                            (cons #{e1 4248}# #{e2 4249}#))))))
-                  #{tmp 4241}#)
-                (let ((#{tmp 4251}#
+                                            (cons #{e1 4262}# #{e2 4263}#))))))
+                  #{tmp 4255}#)
+                (let ((#{tmp 4265}#
                         ($sc-dispatch
-                          #{tmp 4234}#
+                          #{tmp 4248}#
                           '(_ #(each (any any)) any . each-any))))
-                  (if #{tmp 4251}#
+                  (if #{tmp 4265}#
                     (@apply
-                      (lambda (#{out 4256}#
-                               #{in 4257}#
-                               #{e1 4258}#
-                               #{e2 4259}#)
+                      (lambda (#{out 4270}#
+                               #{in 4271}#
+                               #{e1 4272}#
+                               #{e2 4273}#)
                         (list '#(syntax-object
                                  syntax-case
                                  ((top)
                                   #(ribcage
                                     #(out in e1 e2)
                                     #((top) (top) (top) (top))
-                                    #("i4252" "i4253" "i4254" "i4255"))
+                                    #("i4266" "i4267" "i4268" "i4269"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i4233")))
+                                  #(ribcage #(x) #((top)) #("i4247")))
                                  (hygiene guile))
                               (cons '#(syntax-object
                                        list
@@ -14220,63 +14220,63 @@
                                         #(ribcage
                                           #(out in e1 e2)
                                           #((top) (top) (top) (top))
-                                          #("i4252" "i4253" "i4254" "i4255"))
+                                          #("i4266" "i4267" "i4268" "i4269"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i4233")))
+                                        #(ribcage #(x) #((top)) #("i4247")))
                                        (hygiene guile))
-                                    #{in 4257}#)
+                                    #{in 4271}#)
                               '()
-                              (list #{out 4256}#
+                              (list #{out 4270}#
                                     (cons '#(syntax-object
                                              let
                                              ((top)
                                               #(ribcage
                                                 #(out in e1 e2)
                                                 #((top) (top) (top) (top))
-                                                #("i4252"
-                                                  "i4253"
-                                                  "i4254"
-                                                  "i4255"))
+                                                #("i4266"
+                                                  "i4267"
+                                                  "i4268"
+                                                  "i4269"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i4233")))
+                                                #("i4247")))
                                              (hygiene guile))
                                           (cons '()
-                                                (cons #{e1 4258}#
-                                                      #{e2 4259}#))))))
-                      #{tmp 4251}#)
+                                                (cons #{e1 4272}#
+                                                      #{e2 4273}#))))))
+                      #{tmp 4265}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp 4234}#)))))))))))
+                      #{tmp 4248}#)))))))))))
 
 (define syntax-rules
   (make-syntax-transformer
     'syntax-rules
     'macro
-    (lambda (#{x 4263}#)
-      (let ((#{tmp 4265}# #{x 4263}#))
-        (let ((#{tmp 4266}#
+    (lambda (#{x 4277}#)
+      (let ((#{tmp 4279}# #{x 4277}#))
+        (let ((#{tmp 4280}#
                 ($sc-dispatch
-                  #{tmp 4265}#
+                  #{tmp 4279}#
                   '(_ each-any . #(each ((any . any) any))))))
-          (if #{tmp 4266}#
+          (if #{tmp 4280}#
             (@apply
-              (lambda (#{k 4271}#
-                       #{keyword 4272}#
-                       #{pattern 4273}#
-                       #{template 4274}#)
+              (lambda (#{k 4285}#
+                       #{keyword 4286}#
+                       #{pattern 4287}#
+                       #{template 4288}#)
                 (list '#(syntax-object
                          lambda
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
-                            #("i4267" "i4268" "i4269" "i4270"))
+                            #("i4281" "i4282" "i4283" "i4284"))
                           #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i4264")))
+                          #(ribcage #(x) #((top)) #("i4278")))
                          (hygiene guile))
                       '(#(syntax-object
                           x
@@ -14284,9 +14284,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i4267" "i4268" "i4269" "i4270"))
+                             #("i4281" "i4282" "i4283" "i4284"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i4264")))
+                           #(ribcage #(x) #((top)) #("i4278")))
                           (hygiene guile)))
                       (vector
                         '(#(syntax-object
@@ -14295,9 +14295,9 @@
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
-                               #("i4267" "i4268" "i4269" "i4270"))
+                               #("i4281" "i4282" "i4283" "i4284"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i4264")))
+                             #(ribcage #(x) #((top)) #("i4278")))
                             (hygiene guile))
                           .
                           #(syntax-object
@@ -14306,9 +14306,9 @@
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
-                               #("i4267" "i4268" "i4269" "i4270"))
+                               #("i4281" "i4282" "i4283" "i4284"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i4264")))
+                             #(ribcage #(x) #((top)) #("i4278")))
                             (hygiene guile)))
                         (cons '#(syntax-object
                                  patterns
@@ -14316,20 +14316,20 @@
                                   #(ribcage
                                     #(k keyword pattern template)
                                     #((top) (top) (top) (top))
-                                    #("i4267" "i4268" "i4269" "i4270"))
+                                    #("i4281" "i4282" "i4283" "i4284"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i4264")))
+                                  #(ribcage #(x) #((top)) #("i4278")))
                                  (hygiene guile))
-                              #{pattern 4273}#))
+                              #{pattern 4287}#))
                       (cons '#(syntax-object
                                syntax-case
                                ((top)
                                 #(ribcage
                                   #(k keyword pattern template)
                                   #((top) (top) (top) (top))
-                                  #("i4267" "i4268" "i4269" "i4270"))
+                                  #("i4281" "i4282" "i4283" "i4284"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i4264")))
+                                #(ribcage #(x) #((top)) #("i4278")))
                                (hygiene guile))
                             (cons '#(syntax-object
                                      x
@@ -14337,13 +14337,13 @@
                                       #(ribcage
                                         #(k keyword pattern template)
                                         #((top) (top) (top) (top))
-                                        #("i4267" "i4268" "i4269" "i4270"))
+                                        #("i4281" "i4282" "i4283" "i4284"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i4264")))
+                                      #(ribcage #(x) #((top)) #("i4278")))
                                      (hygiene guile))
-                                  (cons #{k 4271}#
-                                        (map (lambda (#{tmp 4278}#
-                                                      #{tmp 4277}#)
+                                  (cons #{k 4285}#
+                                        (map (lambda (#{tmp 4292}#
+                                                      #{tmp 4291}#)
                                                (list (cons '#(syntax-object
                                                               dummy
                                                               ((top)
@@ -14356,10 +14356,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i4267"
-                                                                   "i4268"
-                                                                   "i4269"
-                                                                   "i4270"))
+                                                                 #("i4281"
+                                                                   "i4282"
+                                                                   "i4283"
+                                                                   "i4284"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -14367,9 +14367,9 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i4264")))
+                                                                 #("i4278")))
                                                               (hygiene guile))
-                                                           #{tmp 4277}#)
+                                                           #{tmp 4291}#)
                                                      (list '#(syntax-object
                                                               syntax
                                                               ((top)
@@ -14382,10 +14382,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i4267"
-                                                                   "i4268"
-                                                                   "i4269"
-                                                                   "i4270"))
+                                                                 #("i4281"
+                                                                   "i4282"
+                                                                   "i4283"
+                                                                   "i4284"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -14393,41 +14393,41 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i4264")))
+                                                                 #("i4278")))
                                                               (hygiene guile))
-                                                           #{tmp 4278}#)))
-                                             #{template 4274}#
-                                             #{pattern 4273}#))))))
-              #{tmp 4266}#)
-            (let ((#{tmp 4279}#
+                                                           #{tmp 4292}#)))
+                                             #{template 4288}#
+                                             #{pattern 4287}#))))))
+              #{tmp 4280}#)
+            (let ((#{tmp 4293}#
                     ($sc-dispatch
-                      #{tmp 4265}#
+                      #{tmp 4279}#
                       '(_ each-any any . #(each ((any . any) any))))))
-              (if (if #{tmp 4279}#
+              (if (if #{tmp 4293}#
                     (@apply
-                      (lambda (#{k 4285}#
-                               #{docstring 4286}#
-                               #{keyword 4287}#
-                               #{pattern 4288}#
-                               #{template 4289}#)
-                        (string? (syntax->datum #{docstring 4286}#)))
-                      #{tmp 4279}#)
+                      (lambda (#{k 4299}#
+                               #{docstring 4300}#
+                               #{keyword 4301}#
+                               #{pattern 4302}#
+                               #{template 4303}#)
+                        (string? (syntax->datum #{docstring 4300}#)))
+                      #{tmp 4293}#)
                     #f)
                 (@apply
-                  (lambda (#{k 4295}#
-                           #{docstring 4296}#
-                           #{keyword 4297}#
-                           #{pattern 4298}#
-                           #{template 4299}#)
+                  (lambda (#{k 4309}#
+                           #{docstring 4310}#
+                           #{keyword 4311}#
+                           #{pattern 4312}#
+                           #{template 4313}#)
                     (list '#(syntax-object
                              lambda
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
-                                #("i4290" "i4291" "i4292" "i4293" "i4294"))
+                                #("i4304" "i4305" "i4306" "i4307" "i4308"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i4264")))
+                              #(ribcage #(x) #((top)) #("i4278")))
                              (hygiene guile))
                           '(#(syntax-object
                               x
@@ -14435,11 +14435,11 @@
                                #(ribcage
                                  #(k docstring keyword pattern template)
                                  #((top) (top) (top) (top) (top))
-                                 #("i4290" "i4291" "i4292" "i4293" "i4294"))
+                                 #("i4304" "i4305" "i4306" "i4307" "i4308"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i4264")))
+                               #(ribcage #(x) #((top)) #("i4278")))
                               (hygiene guile)))
-                          #{docstring 4296}#
+                          #{docstring 4310}#
                           (vector
                             '(#(syntax-object
                                 macro-type
@@ -14447,9 +14447,9 @@
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
-                                   #("i4290" "i4291" "i4292" "i4293" "i4294"))
+                                   #("i4304" "i4305" "i4306" "i4307" "i4308"))
                                  #(ribcage () () ())
-                                 #(ribcage #(x) #((top)) #("i4264")))
+                                 #(ribcage #(x) #((top)) #("i4278")))
                                 (hygiene guile))
                               .
                               #(syntax-object
@@ -14458,9 +14458,9 @@
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
-                                   #("i4290" "i4291" "i4292" "i4293" "i4294"))
+                                   #("i4304" "i4305" "i4306" "i4307" "i4308"))
                                  #(ribcage () () ())
-                                 #(ribcage #(x) #((top)) #("i4264")))
+                                 #(ribcage #(x) #((top)) #("i4278")))
                                 (hygiene guile)))
                             (cons '#(syntax-object
                                      patterns
@@ -14468,28 +14468,28 @@
                                       #(ribcage
                                         #(k docstring keyword pattern template)
                                         #((top) (top) (top) (top) (top))
-                                        #("i4290"
-                                          "i4291"
-                                          "i4292"
-                                          "i4293"
-                                          "i4294"))
+                                        #("i4304"
+                                          "i4305"
+                                          "i4306"
+                                          "i4307"
+                                          "i4308"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i4264")))
+                                      #(ribcage #(x) #((top)) #("i4278")))
                                      (hygiene guile))
-                                  #{pattern 4298}#))
+                                  #{pattern 4312}#))
                           (cons '#(syntax-object
                                    syntax-case
                                    ((top)
                                     #(ribcage
                                       #(k docstring keyword pattern template)
                                       #((top) (top) (top) (top) (top))
-                                      #("i4290"
-                                        "i4291"
-                                        "i4292"
-                                        "i4293"
-                                        "i4294"))
+                                      #("i4304"
+                                        "i4305"
+                                        "i4306"
+                                        "i4307"
+                                        "i4308"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i4264")))
+                                    #(ribcage #(x) #((top)) #("i4278")))
                                    (hygiene guile))
                                 (cons '#(syntax-object
                                          x
@@ -14501,17 +14501,17 @@
                                               pattern
                                               template)
                                             #((top) (top) (top) (top) (top))
-                                            #("i4290"
-                                              "i4291"
-                                              "i4292"
-                                              "i4293"
-                                              "i4294"))
+                                            #("i4304"
+                                              "i4305"
+                                              "i4306"
+                                              "i4307"
+                                              "i4308"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i4264")))
+                                          #(ribcage #(x) #((top)) #("i4278")))
                                          (hygiene guile))
-                                      (cons #{k 4295}#
-                                            (map (lambda (#{tmp 4303}#
-                                                          #{tmp 4302}#)
+                                      (cons #{k 4309}#
+                                            (map (lambda (#{tmp 4317}#
+                                                          #{tmp 4316}#)
                                                    (list (cons '#(syntax-object
                                                                   dummy
                                                                   ((top)
@@ -14526,11 +14526,11 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                     #("i4290"
-                                                                       "i4291"
-                                                                       "i4292"
-                                                                       "i4293"
-                                                                       
"i4294"))
+                                                                     #("i4304"
+                                                                       "i4305"
+                                                                       "i4306"
+                                                                       "i4307"
+                                                                       
"i4308"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
@@ -14538,10 +14538,10 @@
                                                                    #(ribcage
                                                                      #(x)
                                                                      #((top))
-                                                                     
#("i4264")))
+                                                                     
#("i4278")))
                                                                   (hygiene
                                                                     guile))
-                                                               #{tmp 4302}#)
+                                                               #{tmp 4316}#)
                                                          (list '#(syntax-object
                                                                   syntax
                                                                   ((top)
@@ -14556,11 +14556,11 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                     #("i4290"
-                                                                       "i4291"
-                                                                       "i4292"
-                                                                       "i4293"
-                                                                       
"i4294"))
+                                                                     #("i4304"
+                                                                       "i4305"
+                                                                       "i4306"
+                                                                       "i4307"
+                                                                       
"i4308"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
@@ -14568,48 +14568,167 @@
                                                                    #(ribcage
                                                                      #(x)
                                                                      #((top))
-                                                                     
#("i4264")))
+                                                                     
#("i4278")))
                                                                   (hygiene
                                                                     guile))
-                                                               #{tmp 4303}#)))
-                                                 #{template 4299}#
-                                                 #{pattern 4298}#))))))
-                  #{tmp 4279}#)
+                                                               #{tmp 4317}#)))
+                                                 #{template 4313}#
+                                                 #{pattern 4312}#))))))
+                  #{tmp 4293}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
-                  #{tmp 4265}#)))))))))
+                  #{tmp 4279}#)))))))))
+
+(define define-syntax-rule
+  (make-syntax-transformer
+    'define-syntax-rule
+    'macro
+    (lambda (#{x 4318}#)
+      (let ((#{tmp 4320}# #{x 4318}#))
+        (let ((#{tmp 4321}#
+                ($sc-dispatch #{tmp 4320}# '(_ (any . any) any))))
+          (if #{tmp 4321}#
+            (@apply
+              (lambda (#{name 4325}#
+                       #{pattern 4326}#
+                       #{template 4327}#)
+                (list '#(syntax-object
+                         define-syntax
+                         ((top)
+                          #(ribcage
+                            #(name pattern template)
+                            #((top) (top) (top))
+                            #("i4322" "i4323" "i4324"))
+                          #(ribcage () () ())
+                          #(ribcage #(x) #((top)) #("i4319")))
+                         (hygiene guile))
+                      #{name 4325}#
+                      (list '#(syntax-object
+                               syntax-rules
+                               ((top)
+                                #(ribcage
+                                  #(name pattern template)
+                                  #((top) (top) (top))
+                                  #("i4322" "i4323" "i4324"))
+                                #(ribcage () () ())
+                                #(ribcage #(x) #((top)) #("i4319")))
+                               (hygiene guile))
+                            '()
+                            (list (cons '#(syntax-object
+                                           _
+                                           ((top)
+                                            #(ribcage
+                                              #(name pattern template)
+                                              #((top) (top) (top))
+                                              #("i4322" "i4323" "i4324"))
+                                            #(ribcage () () ())
+                                            #(ribcage
+                                              #(x)
+                                              #((top))
+                                              #("i4319")))
+                                           (hygiene guile))
+                                        #{pattern 4326}#)
+                                  #{template 4327}#))))
+              #{tmp 4321}#)
+            (let ((#{tmp 4328}#
+                    ($sc-dispatch
+                      #{tmp 4320}#
+                      '(_ (any . any) any any))))
+              (if (if #{tmp 4328}#
+                    (@apply
+                      (lambda (#{name 4333}#
+                               #{pattern 4334}#
+                               #{docstring 4335}#
+                               #{template 4336}#)
+                        (string? (syntax->datum #{docstring 4335}#)))
+                      #{tmp 4328}#)
+                    #f)
+                (@apply
+                  (lambda (#{name 4341}#
+                           #{pattern 4342}#
+                           #{docstring 4343}#
+                           #{template 4344}#)
+                    (list '#(syntax-object
+                             define-syntax
+                             ((top)
+                              #(ribcage
+                                #(name pattern docstring template)
+                                #((top) (top) (top) (top))
+                                #("i4337" "i4338" "i4339" "i4340"))
+                              #(ribcage () () ())
+                              #(ribcage #(x) #((top)) #("i4319")))
+                             (hygiene guile))
+                          #{name 4341}#
+                          (list '#(syntax-object
+                                   syntax-rules
+                                   ((top)
+                                    #(ribcage
+                                      #(name pattern docstring template)
+                                      #((top) (top) (top) (top))
+                                      #("i4337" "i4338" "i4339" "i4340"))
+                                    #(ribcage () () ())
+                                    #(ribcage #(x) #((top)) #("i4319")))
+                                   (hygiene guile))
+                                '()
+                                #{docstring 4343}#
+                                (list (cons '#(syntax-object
+                                               _
+                                               ((top)
+                                                #(ribcage
+                                                  #(name
+                                                    pattern
+                                                    docstring
+                                                    template)
+                                                  #((top) (top) (top) (top))
+                                                  #("i4337"
+                                                    "i4338"
+                                                    "i4339"
+                                                    "i4340"))
+                                                #(ribcage () () ())
+                                                #(ribcage
+                                                  #(x)
+                                                  #((top))
+                                                  #("i4319")))
+                                               (hygiene guile))
+                                            #{pattern 4342}#)
+                                      #{template 4344}#))))
+                  #{tmp 4328}#)
+                (syntax-violation
+                  #f
+                  "source expression failed to match any pattern"
+                  #{tmp 4320}#)))))))))
 
 (define let*
   (make-syntax-transformer
     'let*
     'macro
-    (lambda (#{x 4304}#)
-      (let ((#{tmp 4306}# #{x 4304}#))
-        (let ((#{tmp 4307}#
+    (lambda (#{x 4345}#)
+      (let ((#{tmp 4347}# #{x 4345}#))
+        (let ((#{tmp 4348}#
                 ($sc-dispatch
-                  #{tmp 4306}#
+                  #{tmp 4347}#
                   '(any #(each (any any)) any . each-any))))
-          (if (if #{tmp 4307}#
+          (if (if #{tmp 4348}#
                 (@apply
-                  (lambda (#{let* 4313}#
-                           #{x 4314}#
-                           #{v 4315}#
-                           #{e1 4316}#
-                           #{e2 4317}#)
-                    (and-map identifier? #{x 4314}#))
-                  #{tmp 4307}#)
+                  (lambda (#{let* 4354}#
+                           #{x 4355}#
+                           #{v 4356}#
+                           #{e1 4357}#
+                           #{e2 4358}#)
+                    (and-map identifier? #{x 4355}#))
+                  #{tmp 4348}#)
                 #f)
             (@apply
-              (lambda (#{let* 4324}#
-                       #{x 4325}#
-                       #{v 4326}#
-                       #{e1 4327}#
-                       #{e2 4328}#)
+              (lambda (#{let* 4365}#
+                       #{x 4366}#
+                       #{v 4367}#
+                       #{e1 4368}#
+                       #{e2 4369}#)
                 (letrec*
-                  ((#{f 4331}#
-                     (lambda (#{bindings 4332}#)
-                       (if (null? #{bindings 4332}#)
+                  ((#{f 4372}#
+                     (lambda (#{bindings 4373}#)
+                       (if (null? #{bindings 4373}#)
                          (cons '#(syntax-object
                                   let
                                   ((top)
@@ -14617,27 +14736,27 @@
                                    #(ribcage
                                      #(f bindings)
                                      #((top) (top))
-                                     #("i4329" "i4330"))
+                                     #("i4370" "i4371"))
                                    #(ribcage
                                      #(let* x v e1 e2)
                                      #((top) (top) (top) (top) (top))
-                                     #("i4319"
-                                       "i4320"
-                                       "i4321"
-                                       "i4322"
-                                       "i4323"))
+                                     #("i4360"
+                                       "i4361"
+                                       "i4362"
+                                       "i4363"
+                                       "i4364"))
                                    #(ribcage () () ())
-                                   #(ribcage #(x) #((top)) #("i4305")))
+                                   #(ribcage #(x) #((top)) #("i4346")))
                                   (hygiene guile))
-                               (cons '() (cons #{e1 4327}# #{e2 4328}#)))
-                         (let ((#{tmp 4337}#
-                                 (list (#{f 4331}# (cdr #{bindings 4332}#))
-                                       (car #{bindings 4332}#))))
-                           (let ((#{tmp 4338}#
-                                   ($sc-dispatch #{tmp 4337}# '(any any))))
-                             (if #{tmp 4338}#
+                               (cons '() (cons #{e1 4368}# #{e2 4369}#)))
+                         (let ((#{tmp 4378}#
+                                 (list (#{f 4372}# (cdr #{bindings 4373}#))
+                                       (car #{bindings 4373}#))))
+                           (let ((#{tmp 4379}#
+                                   ($sc-dispatch #{tmp 4378}# '(any any))))
+                             (if #{tmp 4379}#
                                (@apply
-                                 (lambda (#{body 4341}# #{binding 4342}#)
+                                 (lambda (#{body 4382}# #{binding 4383}#)
                                    (list '#(syntax-object
                                             let
                                             ((top)
@@ -14645,96 +14764,96 @@
                                              #(ribcage
                                                #(body binding)
                                                #((top) (top))
-                                               #("i4339" "i4340"))
+                                               #("i4380" "i4381"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(f bindings)
                                                #((top) (top))
-                                               #("i4329" "i4330"))
+                                               #("i4370" "i4371"))
                                              #(ribcage
                                                #(let* x v e1 e2)
                                                #((top) (top) (top) (top) (top))
-                                               #("i4319"
-                                                 "i4320"
-                                                 "i4321"
-                                                 "i4322"
-                                                 "i4323"))
+                                               #("i4360"
+                                                 "i4361"
+                                                 "i4362"
+                                                 "i4363"
+                                                 "i4364"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
-                                               #("i4305")))
+                                               #("i4346")))
                                             (hygiene guile))
-                                         (list #{binding 4342}#)
-                                         #{body 4341}#))
-                                 #{tmp 4338}#)
+                                         (list #{binding 4383}#)
+                                         #{body 4382}#))
+                                 #{tmp 4379}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any 
pattern"
-                                 #{tmp 4337}#))))))))
+                                 #{tmp 4378}#))))))))
                   (begin
-                    (#{f 4331}# (map list #{x 4325}# #{v 4326}#)))))
-              #{tmp 4307}#)
+                    (#{f 4372}# (map list #{x 4366}# #{v 4367}#)))))
+              #{tmp 4348}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{tmp 4306}#)))))))
+              #{tmp 4347}#)))))))
 
 (define do
   (make-syntax-transformer
     'do
     'macro
-    (lambda (#{orig-x 4343}#)
-      (let ((#{tmp 4345}# #{orig-x 4343}#))
-        (let ((#{tmp 4346}#
+    (lambda (#{orig-x 4384}#)
+      (let ((#{tmp 4386}# #{orig-x 4384}#))
+        (let ((#{tmp 4387}#
                 ($sc-dispatch
-                  #{tmp 4345}#
+                  #{tmp 4386}#
                   '(_ #(each (any any . any))
                       (any . each-any)
                       .
                       each-any))))
-          (if #{tmp 4346}#
+          (if #{tmp 4387}#
             (@apply
-              (lambda (#{var 4353}#
-                       #{init 4354}#
-                       #{step 4355}#
-                       #{e0 4356}#
-                       #{e1 4357}#
-                       #{c 4358}#)
-                (let ((#{tmp 4360}#
-                        (map (lambda (#{v 4381}# #{s 4382}#)
-                               (let ((#{tmp 4385}# #{s 4382}#))
-                                 (let ((#{tmp 4386}#
-                                         ($sc-dispatch #{tmp 4385}# '())))
-                                   (if #{tmp 4386}#
+              (lambda (#{var 4394}#
+                       #{init 4395}#
+                       #{step 4396}#
+                       #{e0 4397}#
+                       #{e1 4398}#
+                       #{c 4399}#)
+                (let ((#{tmp 4401}#
+                        (map (lambda (#{v 4422}# #{s 4423}#)
+                               (let ((#{tmp 4426}# #{s 4423}#))
+                                 (let ((#{tmp 4427}#
+                                         ($sc-dispatch #{tmp 4426}# '())))
+                                   (if #{tmp 4427}#
                                      (@apply
-                                       (lambda () #{v 4381}#)
-                                       #{tmp 4386}#)
-                                     (let ((#{tmp 4387}#
+                                       (lambda () #{v 4422}#)
+                                       #{tmp 4427}#)
+                                     (let ((#{tmp 4428}#
                                              ($sc-dispatch
-                                               #{tmp 4385}#
+                                               #{tmp 4426}#
                                                '(any))))
-                                       (if #{tmp 4387}#
+                                       (if #{tmp 4428}#
                                          (@apply
-                                           (lambda (#{e 4389}#) #{e 4389}#)
-                                           #{tmp 4387}#)
-                                         (let ((#{_ 4391}# #{tmp 4385}#))
+                                           (lambda (#{e 4430}#) #{e 4430}#)
+                                           #{tmp 4428}#)
+                                         (let ((#{_ 4432}# #{tmp 4426}#))
                                            (syntax-violation
                                              'do
                                              "bad step expression"
-                                             #{orig-x 4343}#
-                                             #{s 4382}#))))))))
-                             #{var 4353}#
-                             #{step 4355}#)))
-                  (let ((#{tmp 4361}#
-                          ($sc-dispatch #{tmp 4360}# 'each-any)))
-                    (if #{tmp 4361}#
+                                             #{orig-x 4384}#
+                                             #{s 4423}#))))))))
+                             #{var 4394}#
+                             #{step 4396}#)))
+                  (let ((#{tmp 4402}#
+                          ($sc-dispatch #{tmp 4401}# 'each-any)))
+                    (if #{tmp 4402}#
                       (@apply
-                        (lambda (#{step 4363}#)
-                          (let ((#{tmp 4364}# #{e1 4357}#))
-                            (let ((#{tmp 4365}#
-                                    ($sc-dispatch #{tmp 4364}# '())))
-                              (if #{tmp 4365}#
+                        (lambda (#{step 4404}#)
+                          (let ((#{tmp 4405}# #{e1 4398}#))
+                            (let ((#{tmp 4406}#
+                                    ($sc-dispatch #{tmp 4405}# '())))
+                              (if #{tmp 4406}#
                                 (@apply
                                   (lambda ()
                                     (list '#(syntax-object
@@ -14744,7 +14863,7 @@
                                               #(ribcage
                                                 #(step)
                                                 #((top))
-                                                #("i4362"))
+                                                #("i4403"))
                                               #(ribcage
                                                 #(var init step e0 e1 c)
                                                 #((top)
@@ -14753,17 +14872,17 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                #("i4347"
-                                                  "i4348"
-                                                  "i4349"
-                                                  "i4350"
-                                                  "i4351"
-                                                  "i4352"))
+                                                #("i4388"
+                                                  "i4389"
+                                                  "i4390"
+                                                  "i4391"
+                                                  "i4392"
+                                                  "i4393"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(orig-x)
                                                 #((top))
-                                                #("i4344")))
+                                                #("i4385")))
                                              (hygiene guile))
                                           '#(syntax-object
                                              doloop
@@ -14772,7 +14891,7 @@
                                               #(ribcage
                                                 #(step)
                                                 #((top))
-                                                #("i4362"))
+                                                #("i4403"))
                                               #(ribcage
                                                 #(var init step e0 e1 c)
                                                 #((top)
@@ -14781,19 +14900,19 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                #("i4347"
-                                                  "i4348"
-                                                  "i4349"
-                                                  "i4350"
-                                                  "i4351"
-                                                  "i4352"))
+                                                #("i4388"
+                                                  "i4389"
+                                                  "i4390"
+                                                  "i4391"
+                                                  "i4392"
+                                                  "i4393"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(orig-x)
                                                 #((top))
-                                                #("i4344")))
+                                                #("i4385")))
                                              (hygiene guile))
-                                          (map list #{var 4353}# #{init 4354}#)
+                                          (map list #{var 4394}# #{init 4395}#)
                                           (list '#(syntax-object
                                                    if
                                                    ((top)
@@ -14801,7 +14920,7 @@
                                                     #(ribcage
                                                       #(step)
                                                       #((top))
-                                                      #("i4362"))
+                                                      #("i4403"))
                                                     #(ribcage
                                                       #(var init step e0 e1 c)
                                                       #((top)
@@ -14810,17 +14929,17 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i4347"
-                                                        "i4348"
-                                                        "i4349"
-                                                        "i4350"
-                                                        "i4351"
-                                                        "i4352"))
+                                                      #("i4388"
+                                                        "i4389"
+                                                        "i4390"
+                                                        "i4391"
+                                                        "i4392"
+                                                        "i4393"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(orig-x)
                                                       #((top))
-                                                      #("i4344")))
+                                                      #("i4385")))
                                                    (hygiene guile))
                                                 (list '#(syntax-object
                                                          not
@@ -14829,7 +14948,7 @@
                                                           #(ribcage
                                                             #(step)
                                                             #((top))
-                                                            #("i4362"))
+                                                            #("i4403"))
                                                           #(ribcage
                                                             #(var
                                                               init
@@ -14843,19 +14962,19 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i4347"
-                                                              "i4348"
-                                                              "i4349"
-                                                              "i4350"
-                                                              "i4351"
-                                                              "i4352"))
+                                                            #("i4388"
+                                                              "i4389"
+                                                              "i4390"
+                                                              "i4391"
+                                                              "i4392"
+                                                              "i4393"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(orig-x)
                                                             #((top))
-                                                            #("i4344")))
+                                                            #("i4385")))
                                                          (hygiene guile))
-                                                      #{e0 4356}#)
+                                                      #{e0 4397}#)
                                                 (cons '#(syntax-object
                                                          begin
                                                          ((top)
@@ -14863,7 +14982,7 @@
                                                           #(ribcage
                                                             #(step)
                                                             #((top))
-                                                            #("i4362"))
+                                                            #("i4403"))
                                                           #(ribcage
                                                             #(var
                                                               init
@@ -14877,20 +14996,20 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i4347"
-                                                              "i4348"
-                                                              "i4349"
-                                                              "i4350"
-                                                              "i4351"
-                                                              "i4352"))
+                                                            #("i4388"
+                                                              "i4389"
+                                                              "i4390"
+                                                              "i4391"
+                                                              "i4392"
+                                                              "i4393"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(orig-x)
                                                             #((top))
-                                                            #("i4344")))
+                                                            #("i4385")))
                                                          (hygiene guile))
                                                       (append
-                                                        #{c 4358}#
+                                                        #{c 4399}#
                                                         (list (cons 
'#(syntax-object
                                                                        doloop
                                                                        ((top)
@@ -14901,7 +15020,7 @@
                                                                         
#(ribcage
                                                                           
#(step)
                                                                           
#((top))
-                                                                          
#("i4362"))
+                                                                          
#("i4403"))
                                                                         
#(ribcage
                                                                           #(var
                                                                             
init
@@ -14915,12 +15034,12 @@
                                                                             
(top)
                                                                             
(top)
                                                                             
(top))
-                                                                          
#("i4347"
-                                                                            
"i4348"
-                                                                            
"i4349"
-                                                                            
"i4350"
-                                                                            
"i4351"
-                                                                            
"i4352"))
+                                                                          
#("i4388"
+                                                                            
"i4389"
+                                                                            
"i4390"
+                                                                            
"i4391"
+                                                                            
"i4392"
+                                                                            
"i4393"))
                                                                         
#(ribcage
                                                                           ()
                                                                           ()
@@ -14928,30 +15047,30 @@
                                                                         
#(ribcage
                                                                           
#(orig-x)
                                                                           
#((top))
-                                                                          
#("i4344")))
+                                                                          
#("i4385")))
                                                                        (hygiene
                                                                          
guile))
-                                                                    #{step 
4363}#)))))))
-                                  #{tmp 4365}#)
-                                (let ((#{tmp 4370}#
+                                                                    #{step 
4404}#)))))))
+                                  #{tmp 4406}#)
+                                (let ((#{tmp 4411}#
                                         ($sc-dispatch
-                                          #{tmp 4364}#
+                                          #{tmp 4405}#
                                           '(any . each-any))))
-                                  (if #{tmp 4370}#
+                                  (if #{tmp 4411}#
                                     (@apply
-                                      (lambda (#{e1 4373}# #{e2 4374}#)
+                                      (lambda (#{e1 4414}# #{e2 4415}#)
                                         (list '#(syntax-object
                                                  let
                                                  ((top)
                                                   #(ribcage
                                                     #(e1 e2)
                                                     #((top) (top))
-                                                    #("i4371" "i4372"))
+                                                    #("i4412" "i4413"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(step)
                                                     #((top))
-                                                    #("i4362"))
+                                                    #("i4403"))
                                                   #(ribcage
                                                     #(var init step e0 e1 c)
                                                     #((top)
@@ -14960,17 +15079,17 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                    #("i4347"
-                                                      "i4348"
-                                                      "i4349"
-                                                      "i4350"
-                                                      "i4351"
-                                                      "i4352"))
+                                                    #("i4388"
+                                                      "i4389"
+                                                      "i4390"
+                                                      "i4391"
+                                                      "i4392"
+                                                      "i4393"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(orig-x)
                                                     #((top))
-                                                    #("i4344")))
+                                                    #("i4385")))
                                                  (hygiene guile))
                                               '#(syntax-object
                                                  doloop
@@ -14978,12 +15097,12 @@
                                                   #(ribcage
                                                     #(e1 e2)
                                                     #((top) (top))
-                                                    #("i4371" "i4372"))
+                                                    #("i4412" "i4413"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(step)
                                                     #((top))
-                                                    #("i4362"))
+                                                    #("i4403"))
                                                   #(ribcage
                                                     #(var init step e0 e1 c)
                                                     #((top)
@@ -14992,33 +15111,33 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                    #("i4347"
-                                                      "i4348"
-                                                      "i4349"
-                                                      "i4350"
-                                                      "i4351"
-                                                      "i4352"))
+                                                    #("i4388"
+                                                      "i4389"
+                                                      "i4390"
+                                                      "i4391"
+                                                      "i4392"
+                                                      "i4393"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(orig-x)
                                                     #((top))
-                                                    #("i4344")))
+                                                    #("i4385")))
                                                  (hygiene guile))
                                               (map list
-                                                   #{var 4353}#
-                                                   #{init 4354}#)
+                                                   #{var 4394}#
+                                                   #{init 4395}#)
                                               (list '#(syntax-object
                                                        if
                                                        ((top)
                                                         #(ribcage
                                                           #(e1 e2)
                                                           #((top) (top))
-                                                          #("i4371" "i4372"))
+                                                          #("i4412" "i4413"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(step)
                                                           #((top))
-                                                          #("i4362"))
+                                                          #("i4403"))
                                                         #(ribcage
                                                           #(var
                                                             init
@@ -15032,27 +15151,27 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                          #("i4347"
-                                                            "i4348"
-                                                            "i4349"
-                                                            "i4350"
-                                                            "i4351"
-                                                            "i4352"))
+                                                          #("i4388"
+                                                            "i4389"
+                                                            "i4390"
+                                                            "i4391"
+                                                            "i4392"
+                                                            "i4393"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(orig-x)
                                                           #((top))
-                                                          #("i4344")))
+                                                          #("i4385")))
                                                        (hygiene guile))
-                                                    #{e0 4356}#
+                                                    #{e0 4397}#
                                                     (cons '#(syntax-object
                                                              begin
                                                              ((top)
                                                               #(ribcage
                                                                 #(e1 e2)
                                                                 #((top) (top))
-                                                                #("i4371"
-                                                                  "i4372"))
+                                                                #("i4412"
+                                                                  "i4413"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -15060,7 +15179,7 @@
                                                               #(ribcage
                                                                 #(step)
                                                                 #((top))
-                                                                #("i4362"))
+                                                                #("i4403"))
                                                               #(ribcage
                                                                 #(var
                                                                   init
@@ -15074,12 +15193,12 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i4347"
-                                                                  "i4348"
-                                                                  "i4349"
-                                                                  "i4350"
-                                                                  "i4351"
-                                                                  "i4352"))
+                                                                #("i4388"
+                                                                  "i4389"
+                                                                  "i4390"
+                                                                  "i4391"
+                                                                  "i4392"
+                                                                  "i4393"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -15087,18 +15206,18 @@
                                                               #(ribcage
                                                                 #(orig-x)
                                                                 #((top))
-                                                                #("i4344")))
+                                                                #("i4385")))
                                                              (hygiene guile))
-                                                          (cons #{e1 4373}#
-                                                                #{e2 4374}#))
+                                                          (cons #{e1 4414}#
+                                                                #{e2 4415}#))
                                                     (cons '#(syntax-object
                                                              begin
                                                              ((top)
                                                               #(ribcage
                                                                 #(e1 e2)
                                                                 #((top) (top))
-                                                                #("i4371"
-                                                                  "i4372"))
+                                                                #("i4412"
+                                                                  "i4413"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -15106,7 +15225,7 @@
                                                               #(ribcage
                                                                 #(step)
                                                                 #((top))
-                                                                #("i4362"))
+                                                                #("i4403"))
                                                               #(ribcage
                                                                 #(var
                                                                   init
@@ -15120,12 +15239,12 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                #("i4347"
-                                                                  "i4348"
-                                                                  "i4349"
-                                                                  "i4350"
-                                                                  "i4351"
-                                                                  "i4352"))
+                                                                #("i4388"
+                                                                  "i4389"
+                                                                  "i4390"
+                                                                  "i4391"
+                                                                  "i4392"
+                                                                  "i4393"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
@@ -15133,10 +15252,10 @@
                                                               #(ribcage
                                                                 #(orig-x)
                                                                 #((top))
-                                                                #("i4344")))
+                                                                #("i4385")))
                                                              (hygiene guile))
                                                           (append
-                                                            #{c 4358}#
+                                                            #{c 4399}#
                                                             (list (cons 
'#(syntax-object
                                                                            
doloop
                                                                            
((top)
@@ -15145,8 +15264,8 @@
                                                                                
 e2)
                                                                               
#((top)
                                                                                
 (top))
-                                                                              
#("i4371"
-                                                                               
 "i4372"))
+                                                                              
#("i4412"
+                                                                               
 "i4413"))
                                                                             
#(ribcage
                                                                               
()
                                                                               
()
@@ -15154,7 +15273,7 @@
                                                                             
#(ribcage
                                                                               
#(step)
                                                                               
#((top))
-                                                                              
#("i4362"))
+                                                                              
#("i4403"))
                                                                             
#(ribcage
                                                                               
#(var
                                                                                
 init
@@ -15168,12 +15287,12 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                              
#("i4347"
-                                                                               
 "i4348"
-                                                                               
 "i4349"
-                                                                               
 "i4350"
-                                                                               
 "i4351"
-                                                                               
 "i4352"))
+                                                                              
#("i4388"
+                                                                               
 "i4389"
+                                                                               
 "i4390"
+                                                                               
 "i4391"
+                                                                               
 "i4392"
+                                                                               
 "i4393"))
                                                                             
#(ribcage
                                                                               
()
                                                                               
()
@@ -15181,37 +15300,37 @@
                                                                             
#(ribcage
                                                                               
#(orig-x)
                                                                               
#((top))
-                                                                              
#("i4344")))
+                                                                              
#("i4385")))
                                                                            
(hygiene
                                                                              
guile))
-                                                                        #{step 
4363}#)))))))
-                                      #{tmp 4370}#)
+                                                                        #{step 
4404}#)))))))
+                                      #{tmp 4411}#)
                                     (syntax-violation
                                       #f
                                       "source expression failed to match any 
pattern"
-                                      #{tmp 4364}#)))))))
-                        #{tmp 4361}#)
+                                      #{tmp 4405}#)))))))
+                        #{tmp 4402}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp 4360}#)))))
-              #{tmp 4346}#)
+                        #{tmp 4401}#)))))
+              #{tmp 4387}#)
             (syntax-violation
               #f
               "source expression failed to match any pattern"
-              #{tmp 4345}#)))))))
+              #{tmp 4386}#)))))))
 
 (define quasiquote
   (make-syntax-transformer
     'quasiquote
     'macro
     (letrec*
-      ((#{quasi 4395}#
-         (lambda (#{p 4408}# #{lev 4409}#)
-           (let ((#{tmp 4412}# #{p 4408}#))
-             (let ((#{tmp 4413}#
+      ((#{quasi 4436}#
+         (lambda (#{p 4449}# #{lev 4450}#)
+           (let ((#{tmp 4453}# #{p 4449}#))
+             (let ((#{tmp 4454}#
                      ($sc-dispatch
-                       #{tmp 4412}#
+                       #{tmp 4453}#
                        '(#(free-id
                            #(syntax-object
                              unquote
@@ -15220,7 +15339,7 @@
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
-                                #("i4410" "i4411"))
+                                #("i4451" "i4452"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
@@ -15229,28 +15348,28 @@
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
-                                ("i4406"
-                                 "i4404"
-                                 "i4402"
-                                 "i4400"
-                                 "i4398"
-                                 "i4396"
-                                 "i4394")))
+                                ("i4447"
+                                 "i4445"
+                                 "i4443"
+                                 "i4441"
+                                 "i4439"
+                                 "i4437"
+                                 "i4435")))
                              (hygiene guile)))
                          any))))
-               (if #{tmp 4413}#
+               (if #{tmp 4454}#
                  (@apply
-                   (lambda (#{p 4415}#)
-                     (if (= #{lev 4409}# 0)
+                   (lambda (#{p 4456}#)
+                     (if (= #{lev 4450}# 0)
                        (list '#(syntax-object
                                 "value"
                                 ((top)
-                                 #(ribcage #(p) #((top)) #("i4414"))
+                                 #(ribcage #(p) #((top)) #("i4455"))
                                  #(ribcage () () ())
                                  #(ribcage
                                    #(p lev)
                                    #((top) (top))
-                                   #("i4410" "i4411"))
+                                   #("i4451" "i4452"))
                                  #(ribcage
                                    (emit quasivector
                                          quasilist*
@@ -15259,25 +15378,25 @@
                                          vquasi
                                          quasi)
                                    ((top) (top) (top) (top) (top) (top) (top))
-                                   ("i4406"
-                                    "i4404"
-                                    "i4402"
-                                    "i4400"
-                                    "i4398"
-                                    "i4396"
-                                    "i4394")))
+                                   ("i4447"
+                                    "i4445"
+                                    "i4443"
+                                    "i4441"
+                                    "i4439"
+                                    "i4437"
+                                    "i4435")))
                                 (hygiene guile))
-                             #{p 4415}#)
-                       (#{quasicons 4399}#
+                             #{p 4456}#)
+                       (#{quasicons 4440}#
                          '(#(syntax-object
                              "quote"
                              ((top)
-                              #(ribcage #(p) #((top)) #("i4414"))
+                              #(ribcage #(p) #((top)) #("i4455"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
-                                #("i4410" "i4411"))
+                                #("i4451" "i4452"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
@@ -15286,23 +15405,23 @@
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
-                                ("i4406"
-                                 "i4404"
-                                 "i4402"
-                                 "i4400"
-                                 "i4398"
-                                 "i4396"
-                                 "i4394")))
+                                ("i4447"
+                                 "i4445"
+                                 "i4443"
+                                 "i4441"
+                                 "i4439"
+                                 "i4437"
+                                 "i4435")))
                              (hygiene guile))
                            #(syntax-object
                              unquote
                              ((top)
-                              #(ribcage #(p) #((top)) #("i4414"))
+                              #(ribcage #(p) #((top)) #("i4455"))
                               #(ribcage () () ())
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
-                                #("i4410" "i4411"))
+                                #("i4451" "i4452"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
@@ -15311,21 +15430,21 @@
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
-                                ("i4406"
-                                 "i4404"
-                                 "i4402"
-                                 "i4400"
-                                 "i4398"
-                                 "i4396"
-                                 "i4394")))
+                                ("i4447"
+                                 "i4445"
+                                 "i4443"
+                                 "i4441"
+                                 "i4439"
+                                 "i4437"
+                                 "i4435")))
                              (hygiene guile)))
-                         (#{quasi 4395}#
-                           (list #{p 4415}#)
-                           (#{1-}# #{lev 4409}#)))))
-                   #{tmp 4413}#)
-                 (let ((#{tmp 4416}#
+                         (#{quasi 4436}#
+                           (list #{p 4456}#)
+                           (#{1-}# #{lev 4450}#)))))
+                   #{tmp 4454}#)
+                 (let ((#{tmp 4457}#
                          ($sc-dispatch
-                           #{tmp 4412}#
+                           #{tmp 4453}#
                            '(#(free-id
                                #(syntax-object
                                  quasiquote
@@ -15334,7 +15453,7 @@
                                   #(ribcage
                                     #(p lev)
                                     #((top) (top))
-                                    #("i4410" "i4411"))
+                                    #("i4451" "i4452"))
                                   #(ribcage
                                     (emit quasivector
                                           quasilist*
@@ -15343,28 +15462,28 @@
                                           vquasi
                                           quasi)
                                     ((top) (top) (top) (top) (top) (top) (top))
-                                    ("i4406"
-                                     "i4404"
-                                     "i4402"
-                                     "i4400"
-                                     "i4398"
-                                     "i4396"
-                                     "i4394")))
+                                    ("i4447"
+                                     "i4445"
+                                     "i4443"
+                                     "i4441"
+                                     "i4439"
+                                     "i4437"
+                                     "i4435")))
                                  (hygiene guile)))
                              any))))
-                   (if #{tmp 4416}#
+                   (if #{tmp 4457}#
                      (@apply
-                       (lambda (#{p 4418}#)
-                         (#{quasicons 4399}#
+                       (lambda (#{p 4459}#)
+                         (#{quasicons 4440}#
                            '(#(syntax-object
                                "quote"
                                ((top)
-                                #(ribcage #(p) #((top)) #("i4417"))
+                                #(ribcage #(p) #((top)) #("i4458"))
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(p lev)
                                   #((top) (top))
-                                  #("i4410" "i4411"))
+                                  #("i4451" "i4452"))
                                 #(ribcage
                                   (emit quasivector
                                         quasilist*
@@ -15373,23 +15492,23 @@
                                         vquasi
                                         quasi)
                                   ((top) (top) (top) (top) (top) (top) (top))
-                                  ("i4406"
-                                   "i4404"
-                                   "i4402"
-                                   "i4400"
-                                   "i4398"
-                                   "i4396"
-                                   "i4394")))
+                                  ("i4447"
+                                   "i4445"
+                                   "i4443"
+                                   "i4441"
+                                   "i4439"
+                                   "i4437"
+                                   "i4435")))
                                (hygiene guile))
                              #(syntax-object
                                quasiquote
                                ((top)
-                                #(ribcage #(p) #((top)) #("i4417"))
+                                #(ribcage #(p) #((top)) #("i4458"))
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(p lev)
                                   #((top) (top))
-                                  #("i4410" "i4411"))
+                                  #("i4451" "i4452"))
                                 #(ribcage
                                   (emit quasivector
                                         quasilist*
@@ -15398,27 +15517,27 @@
                                         vquasi
                                         quasi)
                                   ((top) (top) (top) (top) (top) (top) (top))
-                                  ("i4406"
-                                   "i4404"
-                                   "i4402"
-                                   "i4400"
-                                   "i4398"
-                                   "i4396"
-                                   "i4394")))
+                                  ("i4447"
+                                   "i4445"
+                                   "i4443"
+                                   "i4441"
+                                   "i4439"
+                                   "i4437"
+                                   "i4435")))
                                (hygiene guile)))
-                           (#{quasi 4395}#
-                             (list #{p 4418}#)
-                             (#{1+}# #{lev 4409}#))))
-                       #{tmp 4416}#)
-                     (let ((#{tmp 4419}#
-                             ($sc-dispatch #{tmp 4412}# '(any . any))))
-                       (if #{tmp 4419}#
+                           (#{quasi 4436}#
+                             (list #{p 4459}#)
+                             (#{1+}# #{lev 4450}#))))
+                       #{tmp 4457}#)
+                     (let ((#{tmp 4460}#
+                             ($sc-dispatch #{tmp 4453}# '(any . any))))
+                       (if #{tmp 4460}#
                          (@apply
-                           (lambda (#{p 4422}# #{q 4423}#)
-                             (let ((#{tmp 4424}# #{p 4422}#))
-                               (let ((#{tmp 4425}#
+                           (lambda (#{p 4463}# #{q 4464}#)
+                             (let ((#{tmp 4465}# #{p 4463}#))
+                               (let ((#{tmp 4466}#
                                        ($sc-dispatch
-                                         #{tmp 4424}#
+                                         #{tmp 4465}#
                                          '(#(free-id
                                              #(syntax-object
                                                unquote
@@ -15426,12 +15545,12 @@
                                                 #(ribcage
                                                   #(p q)
                                                   #((top) (top))
-                                                  #("i4420" "i4421"))
+                                                  #("i4461" "i4462"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(p lev)
                                                   #((top) (top))
-                                                  #("i4410" "i4411"))
+                                                  #("i4451" "i4452"))
                                                 #(ribcage
                                                   (emit quasivector
                                                         quasilist*
@@ -15446,40 +15565,40 @@
                                                    (top)
                                                    (top)
                                                    (top))
-                                                  ("i4406"
-                                                   "i4404"
-                                                   "i4402"
-                                                   "i4400"
-                                                   "i4398"
-                                                   "i4396"
-                                                   "i4394")))
+                                                  ("i4447"
+                                                   "i4445"
+                                                   "i4443"
+                                                   "i4441"
+                                                   "i4439"
+                                                   "i4437"
+                                                   "i4435")))
                                                (hygiene guile)))
                                            .
                                            each-any))))
-                                 (if #{tmp 4425}#
+                                 (if #{tmp 4466}#
                                    (@apply
-                                     (lambda (#{p 4427}#)
-                                       (if (= #{lev 4409}# 0)
-                                         (#{quasilist* 4403}#
-                                           (map (lambda (#{tmp 4428}#)
+                                     (lambda (#{p 4468}#)
+                                       (if (= #{lev 4450}# 0)
+                                         (#{quasilist* 4444}#
+                                           (map (lambda (#{tmp 4469}#)
                                                   (list '#(syntax-object
                                                            "value"
                                                            ((top)
                                                             #(ribcage
                                                               #(p)
                                                               #((top))
-                                                              #("i4426"))
+                                                              #("i4467"))
                                                             #(ribcage
                                                               #(p q)
                                                               #((top) (top))
-                                                              #("i4420"
-                                                                "i4421"))
+                                                              #("i4461"
+                                                                "i4462"))
                                                             #(ribcage () () ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
-                                                              #("i4410"
-                                                                "i4411"))
+                                                              #("i4451"
+                                                                "i4452"))
                                                             #(ribcage
                                                               (emit quasivector
                                                                     quasilist*
@@ -15494,37 +15613,37 @@
                                                                (top)
                                                                (top)
                                                                (top))
-                                                              ("i4406"
-                                                               "i4404"
-                                                               "i4402"
-                                                               "i4400"
-                                                               "i4398"
-                                                               "i4396"
-                                                               "i4394")))
+                                                              ("i4447"
+                                                               "i4445"
+                                                               "i4443"
+                                                               "i4441"
+                                                               "i4439"
+                                                               "i4437"
+                                                               "i4435")))
                                                            (hygiene guile))
-                                                        #{tmp 4428}#))
-                                                #{p 4427}#)
-                                           (#{quasi 4395}#
-                                             #{q 4423}#
-                                             #{lev 4409}#))
-                                         (#{quasicons 4399}#
-                                           (#{quasicons 4399}#
+                                                        #{tmp 4469}#))
+                                                #{p 4468}#)
+                                           (#{quasi 4436}#
+                                             #{q 4464}#
+                                             #{lev 4450}#))
+                                         (#{quasicons 4440}#
+                                           (#{quasicons 4440}#
                                              '(#(syntax-object
                                                  "quote"
                                                  ((top)
                                                   #(ribcage
                                                     #(p)
                                                     #((top))
-                                                    #("i4426"))
+                                                    #("i4467"))
                                                   #(ribcage
                                                     #(p q)
                                                     #((top) (top))
-                                                    #("i4420" "i4421"))
+                                                    #("i4461" "i4462"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(p lev)
                                                     #((top) (top))
-                                                    #("i4410" "i4411"))
+                                                    #("i4451" "i4452"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
@@ -15539,13 +15658,13 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i4406"
-                                                     "i4404"
-                                                     "i4402"
-                                                     "i4400"
-                                                     "i4398"
-                                                     "i4396"
-                                                     "i4394")))
+                                                    ("i4447"
+                                                     "i4445"
+                                                     "i4443"
+                                                     "i4441"
+                                                     "i4439"
+                                                     "i4437"
+                                                     "i4435")))
                                                  (hygiene guile))
                                                #(syntax-object
                                                  unquote
@@ -15553,16 +15672,16 @@
                                                   #(ribcage
                                                     #(p)
                                                     #((top))
-                                                    #("i4426"))
+                                                    #("i4467"))
                                                   #(ribcage
                                                     #(p q)
                                                     #((top) (top))
-                                                    #("i4420" "i4421"))
+                                                    #("i4461" "i4462"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(p lev)
                                                     #((top) (top))
-                                                    #("i4410" "i4411"))
+                                                    #("i4451" "i4452"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
@@ -15577,24 +15696,24 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i4406"
-                                                     "i4404"
-                                                     "i4402"
-                                                     "i4400"
-                                                     "i4398"
-                                                     "i4396"
-                                                     "i4394")))
+                                                    ("i4447"
+                                                     "i4445"
+                                                     "i4443"
+                                                     "i4441"
+                                                     "i4439"
+                                                     "i4437"
+                                                     "i4435")))
                                                  (hygiene guile)))
-                                             (#{quasi 4395}#
-                                               #{p 4427}#
-                                               (#{1-}# #{lev 4409}#)))
-                                           (#{quasi 4395}#
-                                             #{q 4423}#
-                                             #{lev 4409}#))))
-                                     #{tmp 4425}#)
-                                   (let ((#{tmp 4430}#
+                                             (#{quasi 4436}#
+                                               #{p 4468}#
+                                               (#{1-}# #{lev 4450}#)))
+                                           (#{quasi 4436}#
+                                             #{q 4464}#
+                                             #{lev 4450}#))))
+                                     #{tmp 4466}#)
+                                   (let ((#{tmp 4471}#
                                            ($sc-dispatch
-                                             #{tmp 4424}#
+                                             #{tmp 4465}#
                                              '(#(free-id
                                                  #(syntax-object
                                                    unquote-splicing
@@ -15602,12 +15721,12 @@
                                                     #(ribcage
                                                       #(p q)
                                                       #((top) (top))
-                                                      #("i4420" "i4421"))
+                                                      #("i4461" "i4462"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(p lev)
                                                       #((top) (top))
-                                                      #("i4410" "i4411"))
+                                                      #("i4451" "i4452"))
                                                     #(ribcage
                                                       (emit quasivector
                                                             quasilist*
@@ -15622,35 +15741,35 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i4406"
-                                                       "i4404"
-                                                       "i4402"
-                                                       "i4400"
-                                                       "i4398"
-                                                       "i4396"
-                                                       "i4394")))
+                                                      ("i4447"
+                                                       "i4445"
+                                                       "i4443"
+                                                       "i4441"
+                                                       "i4439"
+                                                       "i4437"
+                                                       "i4435")))
                                                    (hygiene guile)))
                                                .
                                                each-any))))
-                                     (if #{tmp 4430}#
+                                     (if #{tmp 4471}#
                                        (@apply
-                                         (lambda (#{p 4432}#)
-                                           (if (= #{lev 4409}# 0)
-                                             (#{quasiappend 4401}#
-                                               (map (lambda (#{tmp 4433}#)
+                                         (lambda (#{p 4473}#)
+                                           (if (= #{lev 4450}# 0)
+                                             (#{quasiappend 4442}#
+                                               (map (lambda (#{tmp 4474}#)
                                                       (list '#(syntax-object
                                                                "value"
                                                                ((top)
                                                                 #(ribcage
                                                                   #(p)
                                                                   #((top))
-                                                                  #("i4431"))
+                                                                  #("i4472"))
                                                                 #(ribcage
                                                                   #(p q)
                                                                   #((top)
                                                                     (top))
-                                                                  #("i4420"
-                                                                    "i4421"))
+                                                                  #("i4461"
+                                                                    "i4462"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
@@ -15659,8 +15778,8 @@
                                                                   #(p lev)
                                                                   #((top)
                                                                     (top))
-                                                                  #("i4410"
-                                                                    "i4411"))
+                                                                  #("i4451"
+                                                                    "i4452"))
                                                                 #(ribcage
                                                                   (emit 
quasivector
                                                                         
quasilist*
@@ -15675,37 +15794,37 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                  ("i4406"
-                                                                   "i4404"
-                                                                   "i4402"
-                                                                   "i4400"
-                                                                   "i4398"
-                                                                   "i4396"
-                                                                   "i4394")))
+                                                                  ("i4447"
+                                                                   "i4445"
+                                                                   "i4443"
+                                                                   "i4441"
+                                                                   "i4439"
+                                                                   "i4437"
+                                                                   "i4435")))
                                                                (hygiene guile))
-                                                            #{tmp 4433}#))
-                                                    #{p 4432}#)
-                                               (#{quasi 4395}#
-                                                 #{q 4423}#
-                                                 #{lev 4409}#))
-                                             (#{quasicons 4399}#
-                                               (#{quasicons 4399}#
+                                                            #{tmp 4474}#))
+                                                    #{p 4473}#)
+                                               (#{quasi 4436}#
+                                                 #{q 4464}#
+                                                 #{lev 4450}#))
+                                             (#{quasicons 4440}#
+                                               (#{quasicons 4440}#
                                                  '(#(syntax-object
                                                      "quote"
                                                      ((top)
                                                       #(ribcage
                                                         #(p)
                                                         #((top))
-                                                        #("i4431"))
+                                                        #("i4472"))
                                                       #(ribcage
                                                         #(p q)
                                                         #((top) (top))
-                                                        #("i4420" "i4421"))
+                                                        #("i4461" "i4462"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(p lev)
                                                         #((top) (top))
-                                                        #("i4410" "i4411"))
+                                                        #("i4451" "i4452"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
@@ -15720,13 +15839,13 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                        ("i4406"
-                                                         "i4404"
-                                                         "i4402"
-                                                         "i4400"
-                                                         "i4398"
-                                                         "i4396"
-                                                         "i4394")))
+                                                        ("i4447"
+                                                         "i4445"
+                                                         "i4443"
+                                                         "i4441"
+                                                         "i4439"
+                                                         "i4437"
+                                                         "i4435")))
                                                      (hygiene guile))
                                                    #(syntax-object
                                                      unquote-splicing
@@ -15734,16 +15853,16 @@
                                                       #(ribcage
                                                         #(p)
                                                         #((top))
-                                                        #("i4431"))
+                                                        #("i4472"))
                                                       #(ribcage
                                                         #(p q)
                                                         #((top) (top))
-                                                        #("i4420" "i4421"))
+                                                        #("i4461" "i4462"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(p lev)
                                                         #((top) (top))
-                                                        #("i4410" "i4411"))
+                                                        #("i4451" "i4452"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
@@ -15758,50 +15877,50 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                        ("i4406"
-                                                         "i4404"
-                                                         "i4402"
-                                                         "i4400"
-                                                         "i4398"
-                                                         "i4396"
-                                                         "i4394")))
+                                                        ("i4447"
+                                                         "i4445"
+                                                         "i4443"
+                                                         "i4441"
+                                                         "i4439"
+                                                         "i4437"
+                                                         "i4435")))
                                                      (hygiene guile)))
-                                                 (#{quasi 4395}#
-                                                   #{p 4432}#
-                                                   (#{1-}# #{lev 4409}#)))
-                                               (#{quasi 4395}#
-                                                 #{q 4423}#
-                                                 #{lev 4409}#))))
-                                         #{tmp 4430}#)
-                                       (let ((#{_ 4436}# #{tmp 4424}#))
-                                         (#{quasicons 4399}#
-                                           (#{quasi 4395}#
-                                             #{p 4422}#
-                                             #{lev 4409}#)
-                                           (#{quasi 4395}#
-                                             #{q 4423}#
-                                             #{lev 4409}#)))))))))
-                           #{tmp 4419}#)
-                         (let ((#{tmp 4437}#
+                                                 (#{quasi 4436}#
+                                                   #{p 4473}#
+                                                   (#{1-}# #{lev 4450}#)))
+                                               (#{quasi 4436}#
+                                                 #{q 4464}#
+                                                 #{lev 4450}#))))
+                                         #{tmp 4471}#)
+                                       (let ((#{_ 4477}# #{tmp 4465}#))
+                                         (#{quasicons 4440}#
+                                           (#{quasi 4436}#
+                                             #{p 4463}#
+                                             #{lev 4450}#)
+                                           (#{quasi 4436}#
+                                             #{q 4464}#
+                                             #{lev 4450}#)))))))))
+                           #{tmp 4460}#)
+                         (let ((#{tmp 4478}#
                                  ($sc-dispatch
-                                   #{tmp 4412}#
+                                   #{tmp 4453}#
                                    '#(vector each-any))))
-                           (if #{tmp 4437}#
+                           (if #{tmp 4478}#
                              (@apply
-                               (lambda (#{x 4439}#)
-                                 (#{quasivector 4405}#
-                                   (#{vquasi 4397}# #{x 4439}# #{lev 4409}#)))
-                               #{tmp 4437}#)
-                             (let ((#{p 4442}# #{tmp 4412}#))
+                               (lambda (#{x 4480}#)
+                                 (#{quasivector 4446}#
+                                   (#{vquasi 4438}# #{x 4480}# #{lev 4450}#)))
+                               #{tmp 4478}#)
+                             (let ((#{p 4483}# #{tmp 4453}#))
                                (list '#(syntax-object
                                         "quote"
                                         ((top)
-                                         #(ribcage #(p) #((top)) #("i4441"))
+                                         #(ribcage #(p) #((top)) #("i4482"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
-                                           #("i4410" "i4411"))
+                                           #("i4451" "i4452"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
@@ -15816,27 +15935,27 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i4406"
-                                            "i4404"
-                                            "i4402"
-                                            "i4400"
-                                            "i4398"
-                                            "i4396"
-                                            "i4394")))
+                                           ("i4447"
+                                            "i4445"
+                                            "i4443"
+                                            "i4441"
+                                            "i4439"
+                                            "i4437"
+                                            "i4435")))
                                         (hygiene guile))
-                                     #{p 4442}#)))))))))))))
-       (#{vquasi 4397}#
-         (lambda (#{p 4443}# #{lev 4444}#)
-           (let ((#{tmp 4447}# #{p 4443}#))
-             (let ((#{tmp 4448}#
-                     ($sc-dispatch #{tmp 4447}# '(any . any))))
-               (if #{tmp 4448}#
+                                     #{p 4483}#)))))))))))))
+       (#{vquasi 4438}#
+         (lambda (#{p 4484}# #{lev 4485}#)
+           (let ((#{tmp 4488}# #{p 4484}#))
+             (let ((#{tmp 4489}#
+                     ($sc-dispatch #{tmp 4488}# '(any . any))))
+               (if #{tmp 4489}#
                  (@apply
-                   (lambda (#{p 4451}# #{q 4452}#)
-                     (let ((#{tmp 4453}# #{p 4451}#))
-                       (let ((#{tmp 4454}#
+                   (lambda (#{p 4492}# #{q 4493}#)
+                     (let ((#{tmp 4494}# #{p 4492}#))
+                       (let ((#{tmp 4495}#
                                ($sc-dispatch
-                                 #{tmp 4453}#
+                                 #{tmp 4494}#
                                  '(#(free-id
                                      #(syntax-object
                                        unquote
@@ -15844,12 +15963,12 @@
                                         #(ribcage
                                           #(p q)
                                           #((top) (top))
-                                          #("i4449" "i4450"))
+                                          #("i4490" "i4491"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p lev)
                                           #((top) (top))
-                                          #("i4445" "i4446"))
+                                          #("i4486" "i4487"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
@@ -15864,38 +15983,38 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("i4406"
-                                           "i4404"
-                                           "i4402"
-                                           "i4400"
-                                           "i4398"
-                                           "i4396"
-                                           "i4394")))
+                                          ("i4447"
+                                           "i4445"
+                                           "i4443"
+                                           "i4441"
+                                           "i4439"
+                                           "i4437"
+                                           "i4435")))
                                        (hygiene guile)))
                                    .
                                    each-any))))
-                         (if #{tmp 4454}#
+                         (if #{tmp 4495}#
                            (@apply
-                             (lambda (#{p 4456}#)
-                               (if (= #{lev 4444}# 0)
-                                 (#{quasilist* 4403}#
-                                   (map (lambda (#{tmp 4457}#)
+                             (lambda (#{p 4497}#)
+                               (if (= #{lev 4485}# 0)
+                                 (#{quasilist* 4444}#
+                                   (map (lambda (#{tmp 4498}#)
                                           (list '#(syntax-object
                                                    "value"
                                                    ((top)
                                                     #(ribcage
                                                       #(p)
                                                       #((top))
-                                                      #("i4455"))
+                                                      #("i4496"))
                                                     #(ribcage
                                                       #(p q)
                                                       #((top) (top))
-                                                      #("i4449" "i4450"))
+                                                      #("i4490" "i4491"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(p lev)
                                                       #((top) (top))
-                                                      #("i4445" "i4446"))
+                                                      #("i4486" "i4487"))
                                                     #(ribcage
                                                       (emit quasivector
                                                             quasilist*
@@ -15910,32 +16029,32 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i4406"
-                                                       "i4404"
-                                                       "i4402"
-                                                       "i4400"
-                                                       "i4398"
-                                                       "i4396"
-                                                       "i4394")))
+                                                      ("i4447"
+                                                       "i4445"
+                                                       "i4443"
+                                                       "i4441"
+                                                       "i4439"
+                                                       "i4437"
+                                                       "i4435")))
                                                    (hygiene guile))
-                                                #{tmp 4457}#))
-                                        #{p 4456}#)
-                                   (#{vquasi 4397}# #{q 4452}# #{lev 4444}#))
-                                 (#{quasicons 4399}#
-                                   (#{quasicons 4399}#
+                                                #{tmp 4498}#))
+                                        #{p 4497}#)
+                                   (#{vquasi 4438}# #{q 4493}# #{lev 4485}#))
+                                 (#{quasicons 4440}#
+                                   (#{quasicons 4440}#
                                      '(#(syntax-object
                                          "quote"
                                          ((top)
-                                          #(ribcage #(p) #((top)) #("i4455"))
+                                          #(ribcage #(p) #((top)) #("i4496"))
                                           #(ribcage
                                             #(p q)
                                             #((top) (top))
-                                            #("i4449" "i4450"))
+                                            #("i4490" "i4491"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
-                                            #("i4445" "i4446"))
+                                            #("i4486" "i4487"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
@@ -15950,27 +16069,27 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i4406"
-                                             "i4404"
-                                             "i4402"
-                                             "i4400"
-                                             "i4398"
-                                             "i4396"
-                                             "i4394")))
+                                            ("i4447"
+                                             "i4445"
+                                             "i4443"
+                                             "i4441"
+                                             "i4439"
+                                             "i4437"
+                                             "i4435")))
                                          (hygiene guile))
                                        #(syntax-object
                                          unquote
                                          ((top)
-                                          #(ribcage #(p) #((top)) #("i4455"))
+                                          #(ribcage #(p) #((top)) #("i4496"))
                                           #(ribcage
                                             #(p q)
                                             #((top) (top))
-                                            #("i4449" "i4450"))
+                                            #("i4490" "i4491"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
-                                            #("i4445" "i4446"))
+                                            #("i4486" "i4487"))
                                           #(ribcage
                                             (emit quasivector
                                                   quasilist*
@@ -15985,22 +16104,22 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i4406"
-                                             "i4404"
-                                             "i4402"
-                                             "i4400"
-                                             "i4398"
-                                             "i4396"
-                                             "i4394")))
+                                            ("i4447"
+                                             "i4445"
+                                             "i4443"
+                                             "i4441"
+                                             "i4439"
+                                             "i4437"
+                                             "i4435")))
                                          (hygiene guile)))
-                                     (#{quasi 4395}#
-                                       #{p 4456}#
-                                       (#{1-}# #{lev 4444}#)))
-                                   (#{vquasi 4397}# #{q 4452}# #{lev 4444}#))))
-                             #{tmp 4454}#)
-                           (let ((#{tmp 4459}#
+                                     (#{quasi 4436}#
+                                       #{p 4497}#
+                                       (#{1-}# #{lev 4485}#)))
+                                   (#{vquasi 4438}# #{q 4493}# #{lev 4485}#))))
+                             #{tmp 4495}#)
+                           (let ((#{tmp 4500}#
                                    ($sc-dispatch
-                                     #{tmp 4453}#
+                                     #{tmp 4494}#
                                      '(#(free-id
                                          #(syntax-object
                                            unquote-splicing
@@ -16008,12 +16127,12 @@
                                             #(ribcage
                                               #(p q)
                                               #((top) (top))
-                                              #("i4449" "i4450"))
+                                              #("i4490" "i4491"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(p lev)
                                               #((top) (top))
-                                              #("i4445" "i4446"))
+                                              #("i4486" "i4487"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
@@ -16028,38 +16147,38 @@
                                                (top)
                                                (top)
                                                (top))
-                                              ("i4406"
-                                               "i4404"
-                                               "i4402"
-                                               "i4400"
-                                               "i4398"
-                                               "i4396"
-                                               "i4394")))
+                                              ("i4447"
+                                               "i4445"
+                                               "i4443"
+                                               "i4441"
+                                               "i4439"
+                                               "i4437"
+                                               "i4435")))
                                            (hygiene guile)))
                                        .
                                        each-any))))
-                             (if #{tmp 4459}#
+                             (if #{tmp 4500}#
                                (@apply
-                                 (lambda (#{p 4461}#)
-                                   (if (= #{lev 4444}# 0)
-                                     (#{quasiappend 4401}#
-                                       (map (lambda (#{tmp 4462}#)
+                                 (lambda (#{p 4502}#)
+                                   (if (= #{lev 4485}# 0)
+                                     (#{quasiappend 4442}#
+                                       (map (lambda (#{tmp 4503}#)
                                               (list '#(syntax-object
                                                        "value"
                                                        ((top)
                                                         #(ribcage
                                                           #(p)
                                                           #((top))
-                                                          #("i4460"))
+                                                          #("i4501"))
                                                         #(ribcage
                                                           #(p q)
                                                           #((top) (top))
-                                                          #("i4449" "i4450"))
+                                                          #("i4490" "i4491"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(p lev)
                                                           #((top) (top))
-                                                          #("i4445" "i4446"))
+                                                          #("i4486" "i4487"))
                                                         #(ribcage
                                                           (emit quasivector
                                                                 quasilist*
@@ -16074,37 +16193,37 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                          ("i4406"
-                                                           "i4404"
-                                                           "i4402"
-                                                           "i4400"
-                                                           "i4398"
-                                                           "i4396"
-                                                           "i4394")))
+                                                          ("i4447"
+                                                           "i4445"
+                                                           "i4443"
+                                                           "i4441"
+                                                           "i4439"
+                                                           "i4437"
+                                                           "i4435")))
                                                        (hygiene guile))
-                                                    #{tmp 4462}#))
-                                            #{p 4461}#)
-                                       (#{vquasi 4397}#
-                                         #{q 4452}#
-                                         #{lev 4444}#))
-                                     (#{quasicons 4399}#
-                                       (#{quasicons 4399}#
+                                                    #{tmp 4503}#))
+                                            #{p 4502}#)
+                                       (#{vquasi 4438}#
+                                         #{q 4493}#
+                                         #{lev 4485}#))
+                                     (#{quasicons 4440}#
+                                       (#{quasicons 4440}#
                                          '(#(syntax-object
                                              "quote"
                                              ((top)
                                               #(ribcage
                                                 #(p)
                                                 #((top))
-                                                #("i4460"))
+                                                #("i4501"))
                                               #(ribcage
                                                 #(p q)
                                                 #((top) (top))
-                                                #("i4449" "i4450"))
+                                                #("i4490" "i4491"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(p lev)
                                                 #((top) (top))
-                                                #("i4445" "i4446"))
+                                                #("i4486" "i4487"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
@@ -16119,13 +16238,13 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i4406"
-                                                 "i4404"
-                                                 "i4402"
-                                                 "i4400"
-                                                 "i4398"
-                                                 "i4396"
-                                                 "i4394")))
+                                                ("i4447"
+                                                 "i4445"
+                                                 "i4443"
+                                                 "i4441"
+                                                 "i4439"
+                                                 "i4437"
+                                                 "i4435")))
                                              (hygiene guile))
                                            #(syntax-object
                                              unquote-splicing
@@ -16133,16 +16252,16 @@
                                               #(ribcage
                                                 #(p)
                                                 #((top))
-                                                #("i4460"))
+                                                #("i4501"))
                                               #(ribcage
                                                 #(p q)
                                                 #((top) (top))
-                                                #("i4449" "i4450"))
+                                                #("i4490" "i4491"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(p lev)
                                                 #((top) (top))
-                                                #("i4445" "i4446"))
+                                                #("i4486" "i4487"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
@@ -16157,30 +16276,30 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i4406"
-                                                 "i4404"
-                                                 "i4402"
-                                                 "i4400"
-                                                 "i4398"
-                                                 "i4396"
-                                                 "i4394")))
+                                                ("i4447"
+                                                 "i4445"
+                                                 "i4443"
+                                                 "i4441"
+                                                 "i4439"
+                                                 "i4437"
+                                                 "i4435")))
                                              (hygiene guile)))
-                                         (#{quasi 4395}#
-                                           #{p 4461}#
-                                           (#{1-}# #{lev 4444}#)))
-                                       (#{vquasi 4397}#
-                                         #{q 4452}#
-                                         #{lev 4444}#))))
-                                 #{tmp 4459}#)
-                               (let ((#{_ 4465}# #{tmp 4453}#))
-                                 (#{quasicons 4399}#
-                                   (#{quasi 4395}# #{p 4451}# #{lev 4444}#)
-                                   (#{vquasi 4397}#
-                                     #{q 4452}#
-                                     #{lev 4444}#)))))))))
-                   #{tmp 4448}#)
-                 (let ((#{tmp 4466}# ($sc-dispatch #{tmp 4447}# '())))
-                   (if #{tmp 4466}#
+                                         (#{quasi 4436}#
+                                           #{p 4502}#
+                                           (#{1-}# #{lev 4485}#)))
+                                       (#{vquasi 4438}#
+                                         #{q 4493}#
+                                         #{lev 4485}#))))
+                                 #{tmp 4500}#)
+                               (let ((#{_ 4506}# #{tmp 4494}#))
+                                 (#{quasicons 4440}#
+                                   (#{quasi 4436}# #{p 4492}# #{lev 4485}#)
+                                   (#{vquasi 4438}#
+                                     #{q 4493}#
+                                     #{lev 4485}#)))))))))
+                   #{tmp 4489}#)
+                 (let ((#{tmp 4507}# ($sc-dispatch #{tmp 4488}# '())))
+                   (if #{tmp 4507}#
                      (@apply
                        (lambda ()
                          '(#(syntax-object
@@ -16190,7 +16309,7 @@
                               #(ribcage
                                 #(p lev)
                                 #((top) (top))
-                                #("i4445" "i4446"))
+                                #("i4486" "i4487"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
@@ -16199,66 +16318,66 @@
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
-                                ("i4406"
-                                 "i4404"
-                                 "i4402"
-                                 "i4400"
-                                 "i4398"
-                                 "i4396"
-                                 "i4394")))
+                                ("i4447"
+                                 "i4445"
+                                 "i4443"
+                                 "i4441"
+                                 "i4439"
+                                 "i4437"
+                                 "i4435")))
                              (hygiene guile))
                            ()))
-                       #{tmp 4466}#)
+                       #{tmp 4507}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
-                       #{tmp 4447}#))))))))
-       (#{quasicons 4399}#
-         (lambda (#{x 4467}# #{y 4468}#)
-           (let ((#{tmp 4472}# (list #{x 4467}# #{y 4468}#)))
-             (let ((#{tmp 4473}#
-                     ($sc-dispatch #{tmp 4472}# '(any any))))
-               (if #{tmp 4473}#
+                       #{tmp 4488}#))))))))
+       (#{quasicons 4440}#
+         (lambda (#{x 4508}# #{y 4509}#)
+           (let ((#{tmp 4513}# (list #{x 4508}# #{y 4509}#)))
+             (let ((#{tmp 4514}#
+                     ($sc-dispatch #{tmp 4513}# '(any any))))
+               (if #{tmp 4514}#
                  (@apply
-                   (lambda (#{x 4476}# #{y 4477}#)
-                     (let ((#{tmp 4478}# #{y 4477}#))
-                       (let ((#{tmp 4479}#
+                   (lambda (#{x 4517}# #{y 4518}#)
+                     (let ((#{tmp 4519}# #{y 4518}#))
+                       (let ((#{tmp 4520}#
                                ($sc-dispatch
-                                 #{tmp 4478}#
+                                 #{tmp 4519}#
                                  '(#(atom "quote") any))))
-                         (if #{tmp 4479}#
+                         (if #{tmp 4520}#
                            (@apply
-                             (lambda (#{dy 4481}#)
-                               (let ((#{tmp 4482}# #{x 4476}#))
-                                 (let ((#{tmp 4483}#
+                             (lambda (#{dy 4522}#)
+                               (let ((#{tmp 4523}# #{x 4517}#))
+                                 (let ((#{tmp 4524}#
                                          ($sc-dispatch
-                                           #{tmp 4482}#
+                                           #{tmp 4523}#
                                            '(#(atom "quote") any))))
-                                   (if #{tmp 4483}#
+                                   (if #{tmp 4524}#
                                      (@apply
-                                       (lambda (#{dx 4485}#)
+                                       (lambda (#{dx 4526}#)
                                          (list '#(syntax-object
                                                   "quote"
                                                   ((top)
                                                    #(ribcage
                                                      #(dx)
                                                      #((top))
-                                                     #("i4484"))
+                                                     #("i4525"))
                                                    #(ribcage
                                                      #(dy)
                                                      #((top))
-                                                     #("i4480"))
+                                                     #("i4521"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
-                                                     #("i4474" "i4475"))
+                                                     #("i4515" "i4516"))
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
-                                                     #("i4469" "i4470"))
+                                                     #("i4510" "i4511"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
@@ -16273,40 +16392,40 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i4406"
-                                                      "i4404"
-                                                      "i4402"
-                                                      "i4400"
-                                                      "i4398"
-                                                      "i4396"
-                                                      "i4394")))
+                                                     ("i4447"
+                                                      "i4445"
+                                                      "i4443"
+                                                      "i4441"
+                                                      "i4439"
+                                                      "i4437"
+                                                      "i4435")))
                                                   (hygiene guile))
-                                               (cons #{dx 4485}# #{dy 4481}#)))
-                                       #{tmp 4483}#)
-                                     (let ((#{_ 4487}# #{tmp 4482}#))
-                                       (if (null? #{dy 4481}#)
+                                               (cons #{dx 4526}# #{dy 4522}#)))
+                                       #{tmp 4524}#)
+                                     (let ((#{_ 4528}# #{tmp 4523}#))
+                                       (if (null? #{dy 4522}#)
                                          (list '#(syntax-object
                                                   "list"
                                                   ((top)
                                                    #(ribcage
                                                      #(_)
                                                      #((top))
-                                                     #("i4486"))
+                                                     #("i4527"))
                                                    #(ribcage
                                                      #(dy)
                                                      #((top))
-                                                     #("i4480"))
+                                                     #("i4521"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
-                                                     #("i4474" "i4475"))
+                                                     #("i4515" "i4516"))
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
-                                                     #("i4469" "i4470"))
+                                                     #("i4510" "i4511"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
@@ -16321,37 +16440,37 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i4406"
-                                                      "i4404"
-                                                      "i4402"
-                                                      "i4400"
-                                                      "i4398"
-                                                      "i4396"
-                                                      "i4394")))
+                                                     ("i4447"
+                                                      "i4445"
+                                                      "i4443"
+                                                      "i4441"
+                                                      "i4439"
+                                                      "i4437"
+                                                      "i4435")))
                                                   (hygiene guile))
-                                               #{x 4476}#)
+                                               #{x 4517}#)
                                          (list '#(syntax-object
                                                   "list*"
                                                   ((top)
                                                    #(ribcage
                                                      #(_)
                                                      #((top))
-                                                     #("i4486"))
+                                                     #("i4527"))
                                                    #(ribcage
                                                      #(dy)
                                                      #((top))
-                                                     #("i4480"))
+                                                     #("i4521"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
-                                                     #("i4474" "i4475"))
+                                                     #("i4515" "i4516"))
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
-                                                     #("i4469" "i4470"))
+                                                     #("i4510" "i4511"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
@@ -16366,42 +16485,42 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i4406"
-                                                      "i4404"
-                                                      "i4402"
-                                                      "i4400"
-                                                      "i4398"
-                                                      "i4396"
-                                                      "i4394")))
+                                                     ("i4447"
+                                                      "i4445"
+                                                      "i4443"
+                                                      "i4441"
+                                                      "i4439"
+                                                      "i4437"
+                                                      "i4435")))
                                                   (hygiene guile))
-                                               #{x 4476}#
-                                               #{y 4477}#)))))))
-                             #{tmp 4479}#)
-                           (let ((#{tmp 4488}#
+                                               #{x 4517}#
+                                               #{y 4518}#)))))))
+                             #{tmp 4520}#)
+                           (let ((#{tmp 4529}#
                                    ($sc-dispatch
-                                     #{tmp 4478}#
+                                     #{tmp 4519}#
                                      '(#(atom "list") . any))))
-                             (if #{tmp 4488}#
+                             (if #{tmp 4529}#
                                (@apply
-                                 (lambda (#{stuff 4490}#)
+                                 (lambda (#{stuff 4531}#)
                                    (cons '#(syntax-object
                                             "list"
                                             ((top)
                                              #(ribcage
                                                #(stuff)
                                                #((top))
-                                               #("i4489"))
+                                               #("i4530"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i4474" "i4475"))
+                                               #("i4515" "i4516"))
                                              #(ribcage () () ())
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i4469" "i4470"))
+                                               #("i4510" "i4511"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
@@ -16416,41 +16535,41 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i4406"
-                                                "i4404"
-                                                "i4402"
-                                                "i4400"
-                                                "i4398"
-                                                "i4396"
-                                                "i4394")))
+                                               ("i4447"
+                                                "i4445"
+                                                "i4443"
+                                                "i4441"
+                                                "i4439"
+                                                "i4437"
+                                                "i4435")))
                                             (hygiene guile))
-                                         (cons #{x 4476}# #{stuff 4490}#)))
-                                 #{tmp 4488}#)
-                               (let ((#{tmp 4491}#
+                                         (cons #{x 4517}# #{stuff 4531}#)))
+                                 #{tmp 4529}#)
+                               (let ((#{tmp 4532}#
                                        ($sc-dispatch
-                                         #{tmp 4478}#
+                                         #{tmp 4519}#
                                          '(#(atom "list*") . any))))
-                                 (if #{tmp 4491}#
+                                 (if #{tmp 4532}#
                                    (@apply
-                                     (lambda (#{stuff 4493}#)
+                                     (lambda (#{stuff 4534}#)
                                        (cons '#(syntax-object
                                                 "list*"
                                                 ((top)
                                                  #(ribcage
                                                    #(stuff)
                                                    #((top))
-                                                   #("i4492"))
+                                                   #("i4533"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x y)
                                                    #((top) (top))
-                                                   #("i4474" "i4475"))
+                                                   #("i4515" "i4516"))
                                                  #(ribcage () () ())
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x y)
                                                    #((top) (top))
-                                                   #("i4469" "i4470"))
+                                                   #("i4510" "i4511"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
@@ -16465,35 +16584,35 @@
                                                     (top)
                                                     (top)
                                                     (top))
-                                                   ("i4406"
-                                                    "i4404"
-                                                    "i4402"
-                                                    "i4400"
-                                                    "i4398"
-                                                    "i4396"
-                                                    "i4394")))
+                                                   ("i4447"
+                                                    "i4445"
+                                                    "i4443"
+                                                    "i4441"
+                                                    "i4439"
+                                                    "i4437"
+                                                    "i4435")))
                                                 (hygiene guile))
-                                             (cons #{x 4476}# #{stuff 4493}#)))
-                                     #{tmp 4491}#)
-                                   (let ((#{_ 4495}# #{tmp 4478}#))
+                                             (cons #{x 4517}# #{stuff 4534}#)))
+                                     #{tmp 4532}#)
+                                   (let ((#{_ 4536}# #{tmp 4519}#))
                                      (list '#(syntax-object
                                               "list*"
                                               ((top)
                                                #(ribcage
                                                  #(_)
                                                  #((top))
-                                                 #("i4494"))
+                                                 #("i4535"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x y)
                                                  #((top) (top))
-                                                 #("i4474" "i4475"))
+                                                 #("i4515" "i4516"))
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x y)
                                                  #((top) (top))
-                                                 #("i4469" "i4470"))
+                                                 #("i4510" "i4511"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
@@ -16508,30 +16627,30 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                 ("i4406"
-                                                  "i4404"
-                                                  "i4402"
-                                                  "i4400"
-                                                  "i4398"
-                                                  "i4396"
-                                                  "i4394")))
+                                                 ("i4447"
+                                                  "i4445"
+                                                  "i4443"
+                                                  "i4441"
+                                                  "i4439"
+                                                  "i4437"
+                                                  "i4435")))
                                               (hygiene guile))
-                                           #{x 4476}#
-                                           #{y 4477}#))))))))))
-                   #{tmp 4473}#)
+                                           #{x 4517}#
+                                           #{y 4518}#))))))))))
+                   #{tmp 4514}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
-                   #{tmp 4472}#))))))
-       (#{quasiappend 4401}#
-         (lambda (#{x 4496}# #{y 4497}#)
-           (let ((#{tmp 4500}# #{y 4497}#))
-             (let ((#{tmp 4501}#
-                     ($sc-dispatch #{tmp 4500}# '(#(atom "quote") ()))))
-               (if #{tmp 4501}#
+                   #{tmp 4513}#))))))
+       (#{quasiappend 4442}#
+         (lambda (#{x 4537}# #{y 4538}#)
+           (let ((#{tmp 4541}# #{y 4538}#))
+             (let ((#{tmp 4542}#
+                     ($sc-dispatch #{tmp 4541}# '(#(atom "quote") ()))))
+               (if #{tmp 4542}#
                  (@apply
                    (lambda ()
-                     (if (null? #{x 4496}#)
+                     (if (null? #{x 4537}#)
                        '(#(syntax-object
                            "quote"
                            ((top)
@@ -16539,7 +16658,7 @@
                             #(ribcage
                               #(x y)
                               #((top) (top))
-                              #("i4498" "i4499"))
+                              #("i4539" "i4540"))
                             #(ribcage
                               (emit quasivector
                                     quasilist*
@@ -16548,23 +16667,23 @@
                                     vquasi
                                     quasi)
                               ((top) (top) (top) (top) (top) (top) (top))
-                              ("i4406"
-                               "i4404"
-                               "i4402"
-                               "i4400"
-                               "i4398"
-                               "i4396"
-                               "i4394")))
+                              ("i4447"
+                               "i4445"
+                               "i4443"
+                               "i4441"
+                               "i4439"
+                               "i4437"
+                               "i4435")))
                            (hygiene guile))
                          ())
-                       (if (null? (cdr #{x 4496}#))
-                         (car #{x 4496}#)
-                         (let ((#{tmp 4508}# #{x 4496}#))
-                           (let ((#{tmp 4509}#
-                                   ($sc-dispatch #{tmp 4508}# 'each-any)))
-                             (if #{tmp 4509}#
+                       (if (null? (cdr #{x 4537}#))
+                         (car #{x 4537}#)
+                         (let ((#{tmp 4549}# #{x 4537}#))
+                           (let ((#{tmp 4550}#
+                                   ($sc-dispatch #{tmp 4549}# 'each-any)))
+                             (if #{tmp 4550}#
                                (@apply
-                                 (lambda (#{p 4511}#)
+                                 (lambda (#{p 4552}#)
                                    (cons '#(syntax-object
                                             "append"
                                             ((top)
@@ -16572,12 +16691,12 @@
                                              #(ribcage
                                                #(p)
                                                #((top))
-                                               #("i4510"))
+                                               #("i4551"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x y)
                                                #((top) (top))
-                                               #("i4498" "i4499"))
+                                               #("i4539" "i4540"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
@@ -16592,30 +16711,30 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i4406"
-                                                "i4404"
-                                                "i4402"
-                                                "i4400"
-                                                "i4398"
-                                                "i4396"
-                                                "i4394")))
+                                               ("i4447"
+                                                "i4445"
+                                                "i4443"
+                                                "i4441"
+                                                "i4439"
+                                                "i4437"
+                                                "i4435")))
                                             (hygiene guile))
-                                         #{p 4511}#))
-                                 #{tmp 4509}#)
+                                         #{p 4552}#))
+                                 #{tmp 4550}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any 
pattern"
-                                 #{tmp 4508}#)))))))
-                   #{tmp 4501}#)
-                 (let ((#{_ 4514}# #{tmp 4500}#))
-                   (if (null? #{x 4496}#)
-                     #{y 4497}#
-                     (let ((#{tmp 4519}# (list #{x 4496}# #{y 4497}#)))
-                       (let ((#{tmp 4520}#
-                               ($sc-dispatch #{tmp 4519}# '(each-any any))))
-                         (if #{tmp 4520}#
+                                 #{tmp 4549}#)))))))
+                   #{tmp 4542}#)
+                 (let ((#{_ 4555}# #{tmp 4541}#))
+                   (if (null? #{x 4537}#)
+                     #{y 4538}#
+                     (let ((#{tmp 4560}# (list #{x 4537}# #{y 4538}#)))
+                       (let ((#{tmp 4561}#
+                               ($sc-dispatch #{tmp 4560}# '(each-any any))))
+                         (if #{tmp 4561}#
                            (@apply
-                             (lambda (#{p 4523}# #{y 4524}#)
+                             (lambda (#{p 4564}# #{y 4565}#)
                                (cons '#(syntax-object
                                         "append"
                                         ((top)
@@ -16623,13 +16742,13 @@
                                          #(ribcage
                                            #(p y)
                                            #((top) (top))
-                                           #("i4521" "i4522"))
-                                         #(ribcage #(_) #((top)) #("i4513"))
+                                           #("i4562" "i4563"))
+                                         #(ribcage #(_) #((top)) #("i4554"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(x y)
                                            #((top) (top))
-                                           #("i4498" "i4499"))
+                                           #("i4539" "i4540"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
@@ -16644,47 +16763,47 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i4406"
-                                            "i4404"
-                                            "i4402"
-                                            "i4400"
-                                            "i4398"
-                                            "i4396"
-                                            "i4394")))
+                                           ("i4447"
+                                            "i4445"
+                                            "i4443"
+                                            "i4441"
+                                            "i4439"
+                                            "i4437"
+                                            "i4435")))
                                         (hygiene guile))
-                                     (append #{p 4523}# (list #{y 4524}#))))
-                             #{tmp 4520}#)
+                                     (append #{p 4564}# (list #{y 4565}#))))
+                             #{tmp 4561}#)
                            (syntax-violation
                              #f
                              "source expression failed to match any pattern"
-                             #{tmp 4519}#)))))))))))
-       (#{quasilist* 4403}#
-         (lambda (#{x 4526}# #{y 4527}#)
+                             #{tmp 4560}#)))))))))))
+       (#{quasilist* 4444}#
+         (lambda (#{x 4567}# #{y 4568}#)
            (letrec*
-             ((#{f 4532}#
-                (lambda (#{x 4533}#)
-                  (if (null? #{x 4533}#)
-                    #{y 4527}#
-                    (#{quasicons 4399}#
-                      (car #{x 4533}#)
-                      (#{f 4532}# (cdr #{x 4533}#)))))))
-             (begin (#{f 4532}# #{x 4526}#)))))
-       (#{quasivector 4405}#
-         (lambda (#{x 4534}#)
-           (let ((#{tmp 4536}# #{x 4534}#))
-             (let ((#{tmp 4537}#
+             ((#{f 4573}#
+                (lambda (#{x 4574}#)
+                  (if (null? #{x 4574}#)
+                    #{y 4568}#
+                    (#{quasicons 4440}#
+                      (car #{x 4574}#)
+                      (#{f 4573}# (cdr #{x 4574}#)))))))
+             (begin (#{f 4573}# #{x 4567}#)))))
+       (#{quasivector 4446}#
+         (lambda (#{x 4575}#)
+           (let ((#{tmp 4577}# #{x 4575}#))
+             (let ((#{tmp 4578}#
                      ($sc-dispatch
-                       #{tmp 4536}#
+                       #{tmp 4577}#
                        '(#(atom "quote") each-any))))
-               (if #{tmp 4537}#
+               (if #{tmp 4578}#
                  (@apply
-                   (lambda (#{x 4539}#)
+                   (lambda (#{x 4580}#)
                      (list '#(syntax-object
                               "quote"
                               ((top)
-                               #(ribcage #(x) #((top)) #("i4538"))
+                               #(ribcage #(x) #((top)) #("i4579"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i4535"))
+                               #(ribcage #(x) #((top)) #("i4576"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
@@ -16693,53 +16812,53 @@
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
-                                 ("i4406"
-                                  "i4404"
-                                  "i4402"
-                                  "i4400"
-                                  "i4398"
-                                  "i4396"
-                                  "i4394")))
+                                 ("i4447"
+                                  "i4445"
+                                  "i4443"
+                                  "i4441"
+                                  "i4439"
+                                  "i4437"
+                                  "i4435")))
                               (hygiene guile))
-                           (list->vector #{x 4539}#)))
-                   #{tmp 4537}#)
-                 (let ((#{_ 4542}# #{tmp 4536}#))
+                           (list->vector #{x 4580}#)))
+                   #{tmp 4578}#)
+                 (let ((#{_ 4583}# #{tmp 4577}#))
                    (letrec*
-                     ((#{f 4546}#
-                        (lambda (#{y 4547}# #{k 4548}#)
-                          (let ((#{tmp 4559}# #{y 4547}#))
-                            (let ((#{tmp 4560}#
+                     ((#{f 4587}#
+                        (lambda (#{y 4588}# #{k 4589}#)
+                          (let ((#{tmp 4600}# #{y 4588}#))
+                            (let ((#{tmp 4601}#
                                     ($sc-dispatch
-                                      #{tmp 4559}#
+                                      #{tmp 4600}#
                                       '(#(atom "quote") each-any))))
-                              (if #{tmp 4560}#
+                              (if #{tmp 4601}#
                                 (@apply
-                                  (lambda (#{y 4562}#)
-                                    (#{k 4548}#
-                                      (map (lambda (#{tmp 4563}#)
+                                  (lambda (#{y 4603}#)
+                                    (#{k 4589}#
+                                      (map (lambda (#{tmp 4604}#)
                                              (list '#(syntax-object
                                                       "quote"
                                                       ((top)
                                                        #(ribcage
                                                          #(y)
                                                          #((top))
-                                                         #("i4561"))
+                                                         #("i4602"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(f y k)
                                                          #((top) (top) (top))
-                                                         #("i4543"
-                                                           "i4544"
-                                                           "i4545"))
+                                                         #("i4584"
+                                                           "i4585"
+                                                           "i4586"))
                                                        #(ribcage
                                                          #(_)
                                                          #((top))
-                                                         #("i4541"))
+                                                         #("i4582"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
-                                                         #("i4535"))
+                                                         #("i4576"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
@@ -16754,75 +16873,75 @@
                                                           (top)
                                                           (top)
                                                           (top))
-                                                         ("i4406"
-                                                          "i4404"
-                                                          "i4402"
-                                                          "i4400"
-                                                          "i4398"
-                                                          "i4396"
-                                                          "i4394")))
+                                                         ("i4447"
+                                                          "i4445"
+                                                          "i4443"
+                                                          "i4441"
+                                                          "i4439"
+                                                          "i4437"
+                                                          "i4435")))
                                                       (hygiene guile))
-                                                   #{tmp 4563}#))
-                                           #{y 4562}#)))
-                                  #{tmp 4560}#)
-                                (let ((#{tmp 4564}#
+                                                   #{tmp 4604}#))
+                                           #{y 4603}#)))
+                                  #{tmp 4601}#)
+                                (let ((#{tmp 4605}#
                                         ($sc-dispatch
-                                          #{tmp 4559}#
+                                          #{tmp 4600}#
                                           '(#(atom "list") . each-any))))
-                                  (if #{tmp 4564}#
+                                  (if #{tmp 4605}#
                                     (@apply
-                                      (lambda (#{y 4566}#)
-                                        (#{k 4548}# #{y 4566}#))
-                                      #{tmp 4564}#)
-                                    (let ((#{tmp 4568}#
+                                      (lambda (#{y 4607}#)
+                                        (#{k 4589}# #{y 4607}#))
+                                      #{tmp 4605}#)
+                                    (let ((#{tmp 4609}#
                                             ($sc-dispatch
-                                              #{tmp 4559}#
+                                              #{tmp 4600}#
                                               '(#(atom "list*")
                                                 .
                                                 #(each+ any (any) ())))))
-                                      (if #{tmp 4568}#
+                                      (if #{tmp 4609}#
                                         (@apply
-                                          (lambda (#{y 4571}# #{z 4572}#)
-                                            (#{f 4546}#
-                                              #{z 4572}#
-                                              (lambda (#{ls 4573}#)
-                                                (#{k 4548}#
+                                          (lambda (#{y 4612}# #{z 4613}#)
+                                            (#{f 4587}#
+                                              #{z 4613}#
+                                              (lambda (#{ls 4614}#)
+                                                (#{k 4589}#
                                                   (append
-                                                    #{y 4571}#
-                                                    #{ls 4573}#)))))
-                                          #{tmp 4568}#)
-                                        (let ((#{else 4577}# #{tmp 4559}#))
-                                          (let ((#{tmp 4581}# #{x 4534}#))
-                                            (let ((#{ g4578 4583}#
-                                                    #{tmp 4581}#))
+                                                    #{y 4612}#
+                                                    #{ls 4614}#)))))
+                                          #{tmp 4609}#)
+                                        (let ((#{else 4618}# #{tmp 4600}#))
+                                          (let ((#{tmp 4622}# #{x 4575}#))
+                                            (let ((#{ g4619 4624}#
+                                                    #{tmp 4622}#))
                                               (list '#(syntax-object
                                                        "list->vector"
                                                        ((top)
                                                         #(ribcage () () ())
                                                         #(ribcage
-                                                          #(#{ g4578}#)
-                                                          #((m4579 top))
-                                                          #("i4582"))
+                                                          #(#{ g4619}#)
+                                                          #((m4620 top))
+                                                          #("i4623"))
                                                         #(ribcage
                                                           #(else)
                                                           #((top))
-                                                          #("i4576"))
+                                                          #("i4617"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f y k)
                                                           #((top) (top) (top))
-                                                          #("i4543"
-                                                            "i4544"
-                                                            "i4545"))
+                                                          #("i4584"
+                                                            "i4585"
+                                                            "i4586"))
                                                         #(ribcage
                                                           #(_)
                                                           #((top))
-                                                          #("i4541"))
+                                                          #("i4582"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i4535"))
+                                                          #("i4576"))
                                                         #(ribcage
                                                           (emit quasivector
                                                                 quasilist*
@@ -16837,49 +16956,49 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                          ("i4406"
-                                                           "i4404"
-                                                           "i4402"
-                                                           "i4400"
-                                                           "i4398"
-                                                           "i4396"
-                                                           "i4394")))
+                                                          ("i4447"
+                                                           "i4445"
+                                                           "i4443"
+                                                           "i4441"
+                                                           "i4439"
+                                                           "i4437"
+                                                           "i4435")))
                                                        (hygiene guile))
-                                                    #{ g4578 
4583}#))))))))))))))
+                                                    #{ g4619 
4624}#))))))))))))))
                      (begin
-                       (#{f 4546}#
-                         #{x 4534}#
-                         (lambda (#{ls 4549}#)
-                           (let ((#{tmp 4554}# #{ls 4549}#))
-                             (let ((#{tmp 4555}#
-                                     ($sc-dispatch #{tmp 4554}# 'each-any)))
-                               (if #{tmp 4555}#
+                       (#{f 4587}#
+                         #{x 4575}#
+                         (lambda (#{ls 4590}#)
+                           (let ((#{tmp 4595}# #{ls 4590}#))
+                             (let ((#{tmp 4596}#
+                                     ($sc-dispatch #{tmp 4595}# 'each-any)))
+                               (if #{tmp 4596}#
                                  (@apply
-                                   (lambda (#{ g4551 4557}#)
+                                   (lambda (#{ g4592 4598}#)
                                      (cons '#(syntax-object
                                               "vector"
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
-                                                 #(#{ g4551}#)
-                                                 #((m4552 top))
-                                                 #("i4556"))
+                                                 #(#{ g4592}#)
+                                                 #((m4593 top))
+                                                 #("i4597"))
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(ls)
                                                  #((top))
-                                                 #("i4550"))
+                                                 #("i4591"))
                                                #(ribcage
                                                  #(_)
                                                  #((top))
-                                                 #("i4541"))
+                                                 #("i4582"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x)
                                                  #((top))
-                                                 #("i4535"))
+                                                 #("i4576"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
@@ -16894,36 +17013,36 @@
                                                   (top)
                                                   (top)
                                                   (top))
-                                                 ("i4406"
-                                                  "i4404"
-                                                  "i4402"
-                                                  "i4400"
-                                                  "i4398"
-                                                  "i4396"
-                                                  "i4394")))
+                                                 ("i4447"
+                                                  "i4445"
+                                                  "i4443"
+                                                  "i4441"
+                                                  "i4439"
+                                                  "i4437"
+                                                  "i4435")))
                                               (hygiene guile))
-                                           #{ g4551 4557}#))
-                                   #{tmp 4555}#)
+                                           #{ g4592 4598}#))
+                                   #{tmp 4596}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp 4554}#))))))))))))))
-       (#{emit 4407}#
-         (lambda (#{x 4584}#)
-           (let ((#{tmp 4586}# #{x 4584}#))
-             (let ((#{tmp 4587}#
+                                   #{tmp 4595}#))))))))))))))
+       (#{emit 4448}#
+         (lambda (#{x 4625}#)
+           (let ((#{tmp 4627}# #{x 4625}#))
+             (let ((#{tmp 4628}#
                      ($sc-dispatch
-                       #{tmp 4586}#
+                       #{tmp 4627}#
                        '(#(atom "quote") any))))
-               (if #{tmp 4587}#
+               (if #{tmp 4628}#
                  (@apply
-                   (lambda (#{x 4589}#)
+                   (lambda (#{x 4630}#)
                      (list '#(syntax-object
                               quote
                               ((top)
-                               #(ribcage #(x) #((top)) #("i4588"))
+                               #(ribcage #(x) #((top)) #("i4629"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i4585"))
+                               #(ribcage #(x) #((top)) #("i4626"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
@@ -16932,46 +17051,46 @@
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
-                                 ("i4406"
-                                  "i4404"
-                                  "i4402"
-                                  "i4400"
-                                  "i4398"
-                                  "i4396"
-                                  "i4394")))
+                                 ("i4447"
+                                  "i4445"
+                                  "i4443"
+                                  "i4441"
+                                  "i4439"
+                                  "i4437"
+                                  "i4435")))
                               (hygiene guile))
-                           #{x 4589}#))
-                   #{tmp 4587}#)
-                 (let ((#{tmp 4590}#
+                           #{x 4630}#))
+                   #{tmp 4628}#)
+                 (let ((#{tmp 4631}#
                          ($sc-dispatch
-                           #{tmp 4586}#
+                           #{tmp 4627}#
                            '(#(atom "list") . each-any))))
-                   (if #{tmp 4590}#
+                   (if #{tmp 4631}#
                      (@apply
-                       (lambda (#{x 4592}#)
-                         (let ((#{tmp 4596}# (map #{emit 4407}# #{x 4592}#)))
-                           (let ((#{tmp 4597}#
-                                   ($sc-dispatch #{tmp 4596}# 'each-any)))
-                             (if #{tmp 4597}#
+                       (lambda (#{x 4633}#)
+                         (let ((#{tmp 4637}# (map #{emit 4448}# #{x 4633}#)))
+                           (let ((#{tmp 4638}#
+                                   ($sc-dispatch #{tmp 4637}# 'each-any)))
+                             (if #{tmp 4638}#
                                (@apply
-                                 (lambda (#{ g4593 4599}#)
+                                 (lambda (#{ g4634 4640}#)
                                    (cons '#(syntax-object
                                             list
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage
-                                               #(#{ g4593}#)
-                                               #((m4594 top))
-                                               #("i4598"))
+                                               #(#{ g4634}#)
+                                               #((m4635 top))
+                                               #("i4639"))
                                              #(ribcage
                                                #(x)
                                                #((top))
-                                               #("i4591"))
+                                               #("i4632"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
-                                               #("i4585"))
+                                               #("i4626"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
@@ -16986,70 +17105,70 @@