guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, master, updated. release_1-9-12-9-g664


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-12-9-g664a8b0
Date: Fri, 10 Sep 2010 13:47:37 +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=664a8b0d66e2e062e9946f41707855a588b489eb

The branch, master has been updated
       via  664a8b0d66e2e062e9946f41707855a588b489eb (commit)
       via  348fb7040fef1e11e7f7becb49ee73ac7a62873a (commit)
       via  d8e4f9e509f2ce24e1cb74ba4e0a43e64e0e3f14 (commit)
       via  c439c756ce6f00e3029aa07fd41ba36175f1bbbc (commit)
      from  f328f862302c40771b6bc7d9febd43232771a083 (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 664a8b0d66e2e062e9946f41707855a588b489eb
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 10 13:29:56 2010 +0200

    new procedure: source-procedures
    
    * module/system/xref.scm (source-procedures): New public procedure,
      gives the procedures defined at a given source location.

commit 348fb7040fef1e11e7f7becb49ee73ac7a62873a
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 10 12:55:09 2010 +0200

    (system xref) uses module-submodules
    
    * module/system/xref.scm (ensure-callers-db): Fix up to use
      module-submodules.

commit d8e4f9e509f2ce24e1cb74ba4e0a43e64e0e3f14
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 10 11:03:59 2010 +0200

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

commit c439c756ce6f00e3029aa07fd41ba36175f1bbbc
Author: Andy Wingo <address@hidden>
Date:   Fri Sep 10 11:01:23 2010 +0200

    simplify module/Makefile.am rules to not require touch
    
    * module/Makefile.am (ice-9/psyntax-pp.go, ice-9/psyntax-pp.scm.gen)
      (ice-9/eval.go): Simplify rules to not require `touch', now that .go
      files are checked for freshness, not for synchronicity.

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

Summary of changes:
 module/Makefile.am          |   17 +-
 module/ice-9/psyntax-pp.scm |16680 ++++++++++++++++++++++---------------------
 module/system/xref.scm      |  189 +-
 3 files changed, 8613 insertions(+), 8273 deletions(-)

diff --git a/module/Makefile.am b/module/Makefile.am
index a2fb0f3..a88df80 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -24,14 +24,9 @@ include $(top_srcdir)/am/guilec
 # We're at the root of the module hierarchy.
 modpath =
 
-BEGINNING_OF_TIME=198001010100
-
-$(GOBJECTS): ice-9/eval.go.stamp
-ice-9/eval.go.stamp: ice-9/eval.go
-       touch -t $(BEGINNING_OF_TIME) $(srcdir)/ice-9/eval.scm 
-       touch -r $(srcdir)/ice-9/eval.scm ice-9/eval.go
-       touch -r $(srcdir)/ice-9/eval.scm ice-9/eval.go.stamp
-CLEANFILES += ice-9/eval.go ice-9/eval.go.stamp
+# Build eval.go first.
+$(GOBJECTS): ice-9/eval.go
+CLEANFILES += ice-9/eval.go
 nobase_mod_DATA += ice-9/eval.scm
 nobase_ccache_DATA += ice-9/eval.go
 EXTRA_DIST += ice-9/eval.scm
@@ -76,15 +71,13 @@ include $(top_srcdir)/am/pre-inst-guile
 ice-9/psyntax-pp.scm.gen:
        $(preinstguile) --no-autocompile -s $(srcdir)/ice-9/compile-psyntax.scm 
\
                $(srcdir)/ice-9/psyntax.scm $(srcdir)/ice-9/psyntax-pp.scm
-       touch -r "$(srcdir)/ice-9/psyntax.scm" "$(srcdir)/ice-9/psyntax-pp.scm"
 
 .PHONY: ice-9/psyntax-pp.scm.gen
 
-ice-9/psyntax-pp.go: ice-9/psyntax.scm
-       GUILE_AUTO_COMPILE=0                                    \
+ice-9/psyntax-pp.go: ice-9/psyntax.scm ice-9/psyntax-pp.scm
+       $(AM_V_GUILEC) GUILE_AUTO_COMPILE=0                     \
        $(top_builddir)/meta/uninstalled-env                    \
        guile-tools compile $(GUILE_WARNINGS) -o "ice-9/psyntax-pp.go" 
"$(srcdir)/ice-9/psyntax.scm"
-       touch -r "$(srcdir)/ice-9/psyntax.scm" "$(srcdir)/ice-9/psyntax-pp.scm"
 
 SCHEME_LANG_SOURCES =                                          \
   language/scheme/spec.scm                                     \
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 4e0a3e5..6e5427e 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1222 +2,1222 @@
 (if #f #f)
 
 (letrec*
-  ((#{and-map*\ 35}#
-     (lambda (#{f\ 199}# #{first\ 200}# . #{rest\ 201}#)
+  ((#{and-map*\ 36}#
+     (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
        (begin
-         (let ((#{t\ 207}# (null? #{first\ 200}#)))
-           (if #{t\ 207}#
-             #{t\ 207}#
-             (if (null? #{rest\ 201}#)
+         (let ((#{t\ 208}# (null? #{first\ 201}#)))
+           (if #{t\ 208}#
+             #{t\ 208}#
+             (if (null? #{rest\ 202}#)
                (letrec*
-                 ((#{andmap\ 211}#
-                    (lambda (#{first\ 212}#)
+                 ((#{andmap\ 212}#
+                    (lambda (#{first\ 213}#)
                       (begin
-                        (let ((#{x\ 215}# (car #{first\ 212}#))
-                              (#{first\ 216}# (cdr #{first\ 212}#)))
-                          (if (null? #{first\ 216}#)
-                            (#{f\ 199}# #{x\ 215}#)
-                            (if (#{f\ 199}# #{x\ 215}#)
-                              (#{andmap\ 211}# #{first\ 216}#)
+                        (let ((#{x\ 216}# (car #{first\ 213}#))
+                              (#{first\ 217}# (cdr #{first\ 213}#)))
+                          (if (null? #{first\ 217}#)
+                            (#{f\ 200}# #{x\ 216}#)
+                            (if (#{f\ 200}# #{x\ 216}#)
+                              (#{andmap\ 212}# #{first\ 217}#)
                               #f)))))))
-                 (begin (#{andmap\ 211}# #{first\ 200}#)))
+                 (begin (#{andmap\ 212}# #{first\ 201}#)))
                (letrec*
-                 ((#{andmap\ 222}#
-                    (lambda (#{first\ 223}# #{rest\ 224}#)
+                 ((#{andmap\ 223}#
+                    (lambda (#{first\ 224}# #{rest\ 225}#)
                       (begin
-                        (let ((#{x\ 229}# (car #{first\ 223}#))
-                              (#{xr\ 230}# (map car #{rest\ 224}#))
-                              (#{first\ 231}# (cdr #{first\ 223}#))
-                              (#{rest\ 232}# (map cdr #{rest\ 224}#)))
-                          (if (null? #{first\ 231}#)
-                            (@apply #{f\ 199}# #{x\ 229}# #{xr\ 230}#)
-                            (if (@apply #{f\ 199}# #{x\ 229}# #{xr\ 230}#)
-                              (#{andmap\ 222}# #{first\ 231}# #{rest\ 232}#)
+                        (let ((#{x\ 230}# (car #{first\ 224}#))
+                              (#{xr\ 231}# (map car #{rest\ 225}#))
+                              (#{first\ 232}# (cdr #{first\ 224}#))
+                              (#{rest\ 233}# (map cdr #{rest\ 225}#)))
+                          (if (null? #{first\ 232}#)
+                            (@apply #{f\ 200}# #{x\ 230}# #{xr\ 231}#)
+                            (if (@apply #{f\ 200}# #{x\ 230}# #{xr\ 231}#)
+                              (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#)
                               #f)))))))
                  (begin
-                   (#{andmap\ 222}# #{first\ 200}# #{rest\ 201}#))))))))))
+                   (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
   (begin
-    (let ((#{make-primitive-ref\ 241}# (if #f #f))
-          (#{fx+\ 280}# (if #f #f))
-          (#{fx-\ 282}# (if #f #f))
-          (#{fx=\ 284}# (if #f #f))
-          (#{fx<\ 286}# (if #f #f))
-          (#{set-syntax-object-expression!\ 351}#
+    (let ((#{make-primitive-ref\ 242}# (if #f #f))
+          (#{fx+\ 281}# (if #f #f))
+          (#{fx-\ 283}# (if #f #f))
+          (#{fx=\ 285}# (if #f #f))
+          (#{fx<\ 287}# (if #f #f))
+          (#{set-syntax-object-expression!\ 352}#
             (if #f #f))
-          (#{set-syntax-object-wrap!\ 353}# (if #f #f))
-          (#{set-syntax-object-module!\ 355}# (if #f #f))
-          (#{binding-type\ 362}# (if #f #f))
-          (#{binding-value\ 364}# (if #f #f))
-          (#{make-wrap\ 384}# (if #f #f))
-          (#{wrap-marks\ 386}# (if #f #f))
-          (#{wrap-subst\ 388}# (if #f #f))
-          (#{ribcage?\ 402}# (if #f #f)))
+          (#{set-syntax-object-wrap!\ 354}# (if #f #f))
+          (#{set-syntax-object-module!\ 356}# (if #f #f))
+          (#{binding-type\ 363}# (if #f #f))
+          (#{binding-value\ 365}# (if #f #f))
+          (#{make-wrap\ 385}# (if #f #f))
+          (#{wrap-marks\ 387}# (if #f #f))
+          (#{wrap-subst\ 389}# (if #f #f))
+          (#{ribcage?\ 403}# (if #f #f)))
       (letrec*
-        ((#{make-void\ 237}#
-           (lambda (#{src\ 697}#)
+        ((#{make-void\ 238}#
+           (lambda (#{src\ 698}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 0)
-               #{src\ 697}#)))
-         (#{make-const\ 239}#
-           (lambda (#{src\ 699}# #{exp\ 700}#)
+               #{src\ 698}#)))
+         (#{make-const\ 240}#
+           (lambda (#{src\ 700}# #{exp\ 701}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 1)
-               #{src\ 699}#
-               #{exp\ 700}#)))
-         (#{make-lexical-ref\ 243}#
-           (lambda (#{src\ 707}# #{name\ 708}# #{gensym\ 709}#)
+               #{src\ 700}#
+               #{exp\ 701}#)))
+         (#{make-lexical-ref\ 244}#
+           (lambda (#{src\ 708}# #{name\ 709}# #{gensym\ 710}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 3)
-               #{src\ 707}#
-               #{name\ 708}#
-               #{gensym\ 709}#)))
-         (#{make-lexical-set\ 245}#
-           (lambda (#{src\ 713}#
-                    #{name\ 714}#
-                    #{gensym\ 715}#
-                    #{exp\ 716}#)
+               #{src\ 708}#
+               #{name\ 709}#
+               #{gensym\ 710}#)))
+         (#{make-lexical-set\ 246}#
+           (lambda (#{src\ 714}#
+                    #{name\ 715}#
+                    #{gensym\ 716}#
+                    #{exp\ 717}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 4)
-               #{src\ 713}#
-               #{name\ 714}#
-               #{gensym\ 715}#
-               #{exp\ 716}#)))
-         (#{make-module-ref\ 247}#
-           (lambda (#{src\ 721}#
-                    #{mod\ 722}#
-                    #{name\ 723}#
-                    #{public?\ 724}#)
+               #{src\ 714}#
+               #{name\ 715}#
+               #{gensym\ 716}#
+               #{exp\ 717}#)))
+         (#{make-module-ref\ 248}#
+           (lambda (#{src\ 722}#
+                    #{mod\ 723}#
+                    #{name\ 724}#
+                    #{public?\ 725}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 5)
-               #{src\ 721}#
-               #{mod\ 722}#
-               #{name\ 723}#
-               #{public?\ 724}#)))
-         (#{make-module-set\ 249}#
-           (lambda (#{src\ 729}#
-                    #{mod\ 730}#
-                    #{name\ 731}#
-                    #{public?\ 732}#
-                    #{exp\ 733}#)
+               #{src\ 722}#
+               #{mod\ 723}#
+               #{name\ 724}#
+               #{public?\ 725}#)))
+         (#{make-module-set\ 250}#
+           (lambda (#{src\ 730}#
+                    #{mod\ 731}#
+                    #{name\ 732}#
+                    #{public?\ 733}#
+                    #{exp\ 734}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 6)
-               #{src\ 729}#
-               #{mod\ 730}#
-               #{name\ 731}#
-               #{public?\ 732}#
-               #{exp\ 733}#)))
-         (#{make-toplevel-ref\ 251}#
-           (lambda (#{src\ 739}# #{name\ 740}#)
+               #{src\ 730}#
+               #{mod\ 731}#
+               #{name\ 732}#
+               #{public?\ 733}#
+               #{exp\ 734}#)))
+         (#{make-toplevel-ref\ 252}#
+           (lambda (#{src\ 740}# #{name\ 741}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 7)
-               #{src\ 739}#
-               #{name\ 740}#)))
-         (#{make-toplevel-set\ 253}#
-           (lambda (#{src\ 743}# #{name\ 744}# #{exp\ 745}#)
+               #{src\ 740}#
+               #{name\ 741}#)))
+         (#{make-toplevel-set\ 254}#
+           (lambda (#{src\ 744}# #{name\ 745}# #{exp\ 746}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 8)
-               #{src\ 743}#
-               #{name\ 744}#
-               #{exp\ 745}#)))
-         (#{make-toplevel-define\ 255}#
-           (lambda (#{src\ 749}# #{name\ 750}# #{exp\ 751}#)
+               #{src\ 744}#
+               #{name\ 745}#
+               #{exp\ 746}#)))
+         (#{make-toplevel-define\ 256}#
+           (lambda (#{src\ 750}# #{name\ 751}# #{exp\ 752}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 9)
-               #{src\ 749}#
-               #{name\ 750}#
-               #{exp\ 751}#)))
-         (#{make-conditional\ 257}#
-           (lambda (#{src\ 755}#
-                    #{test\ 756}#
-                    #{consequent\ 757}#
-                    #{alternate\ 758}#)
+               #{src\ 750}#
+               #{name\ 751}#
+               #{exp\ 752}#)))
+         (#{make-conditional\ 258}#
+           (lambda (#{src\ 756}#
+                    #{test\ 757}#
+                    #{consequent\ 758}#
+                    #{alternate\ 759}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 10)
-               #{src\ 755}#
-               #{test\ 756}#
-               #{consequent\ 757}#
-               #{alternate\ 758}#)))
-         (#{make-application\ 259}#
-           (lambda (#{src\ 763}# #{proc\ 764}# #{args\ 765}#)
+               #{src\ 756}#
+               #{test\ 757}#
+               #{consequent\ 758}#
+               #{alternate\ 759}#)))
+         (#{make-application\ 260}#
+           (lambda (#{src\ 764}# #{proc\ 765}# #{args\ 766}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 11)
-               #{src\ 763}#
-               #{proc\ 764}#
-               #{args\ 765}#)))
-         (#{make-sequence\ 261}#
-           (lambda (#{src\ 769}# #{exps\ 770}#)
+               #{src\ 764}#
+               #{proc\ 765}#
+               #{args\ 766}#)))
+         (#{make-sequence\ 262}#
+           (lambda (#{src\ 770}# #{exps\ 771}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 12)
-               #{src\ 769}#
-               #{exps\ 770}#)))
-         (#{make-lambda\ 263}#
-           (lambda (#{src\ 773}# #{meta\ 774}# #{body\ 775}#)
+               #{src\ 770}#
+               #{exps\ 771}#)))
+         (#{make-lambda\ 264}#
+           (lambda (#{src\ 774}# #{meta\ 775}# #{body\ 776}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 13)
-               #{src\ 773}#
-               #{meta\ 774}#
-               #{body\ 775}#)))
-         (#{make-lambda-case\ 265}#
-           (lambda (#{src\ 779}#
-                    #{req\ 780}#
-                    #{opt\ 781}#
-                    #{rest\ 782}#
-                    #{kw\ 783}#
-                    #{inits\ 784}#
-                    #{gensyms\ 785}#
-                    #{body\ 786}#
-                    #{alternate\ 787}#)
+               #{src\ 774}#
+               #{meta\ 775}#
+               #{body\ 776}#)))
+         (#{make-lambda-case\ 266}#
+           (lambda (#{src\ 780}#
+                    #{req\ 781}#
+                    #{opt\ 782}#
+                    #{rest\ 783}#
+                    #{kw\ 784}#
+                    #{inits\ 785}#
+                    #{gensyms\ 786}#
+                    #{body\ 787}#
+                    #{alternate\ 788}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 14)
-               #{src\ 779}#
-               #{req\ 780}#
-               #{opt\ 781}#
-               #{rest\ 782}#
-               #{kw\ 783}#
-               #{inits\ 784}#
-               #{gensyms\ 785}#
-               #{body\ 786}#
-               #{alternate\ 787}#)))
-         (#{make-let\ 267}#
-           (lambda (#{src\ 797}#
-                    #{names\ 798}#
-                    #{gensyms\ 799}#
-                    #{vals\ 800}#
-                    #{body\ 801}#)
+               #{src\ 780}#
+               #{req\ 781}#
+               #{opt\ 782}#
+               #{rest\ 783}#
+               #{kw\ 784}#
+               #{inits\ 785}#
+               #{gensyms\ 786}#
+               #{body\ 787}#
+               #{alternate\ 788}#)))
+         (#{make-let\ 268}#
+           (lambda (#{src\ 798}#
+                    #{names\ 799}#
+                    #{gensyms\ 800}#
+                    #{vals\ 801}#
+                    #{body\ 802}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 15)
-               #{src\ 797}#
-               #{names\ 798}#
-               #{gensyms\ 799}#
-               #{vals\ 800}#
-               #{body\ 801}#)))
-         (#{make-letrec\ 269}#
-           (lambda (#{src\ 807}#
-                    #{in-order?\ 808}#
-                    #{names\ 809}#
-                    #{gensyms\ 810}#
-                    #{vals\ 811}#
-                    #{body\ 812}#)
+               #{src\ 798}#
+               #{names\ 799}#
+               #{gensyms\ 800}#
+               #{vals\ 801}#
+               #{body\ 802}#)))
+         (#{make-letrec\ 270}#
+           (lambda (#{src\ 808}#
+                    #{in-order?\ 809}#
+                    #{names\ 810}#
+                    #{gensyms\ 811}#
+                    #{vals\ 812}#
+                    #{body\ 813}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 16)
-               #{src\ 807}#
-               #{in-order?\ 808}#
-               #{names\ 809}#
-               #{gensyms\ 810}#
-               #{vals\ 811}#
-               #{body\ 812}#)))
-         (#{make-dynlet\ 271}#
-           (lambda (#{src\ 819}#
-                    #{fluids\ 820}#
-                    #{vals\ 821}#
-                    #{body\ 822}#)
+               #{src\ 808}#
+               #{in-order?\ 809}#
+               #{names\ 810}#
+               #{gensyms\ 811}#
+               #{vals\ 812}#
+               #{body\ 813}#)))
+         (#{make-dynlet\ 272}#
+           (lambda (#{src\ 820}#
+                    #{fluids\ 821}#
+                    #{vals\ 822}#
+                    #{body\ 823}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 17)
-               #{src\ 819}#
-               #{fluids\ 820}#
-               #{vals\ 821}#
-               #{body\ 822}#)))
-         (#{lambda?\ 274}#
-           (lambda (#{x\ 827}#)
-             (if (struct? #{x\ 827}#)
-               (eq? (struct-vtable #{x\ 827}#)
+               #{src\ 820}#
+               #{fluids\ 821}#
+               #{vals\ 822}#
+               #{body\ 823}#)))
+         (#{lambda?\ 275}#
+           (lambda (#{x\ 828}#)
+             (if (struct? #{x\ 828}#)
+               (eq? (struct-vtable #{x\ 828}#)
                     (vector-ref %expanded-vtables 13))
                #f)))
-         (#{lambda-meta\ 276}#
-           (lambda (#{x\ 831}#) (struct-ref #{x\ 831}# 1)))
-         (#{set-lambda-meta!\ 278}#
-           (lambda (#{x\ 833}# #{v\ 834}#)
-             (struct-set! #{x\ 833}# 1 #{v\ 834}#)))
-         (#{top-level-eval-hook\ 288}#
-           (lambda (#{x\ 837}# #{mod\ 838}#)
-             (primitive-eval #{x\ 837}#)))
-         (#{local-eval-hook\ 290}#
-           (lambda (#{x\ 841}# #{mod\ 842}#)
-             (primitive-eval #{x\ 841}#)))
-         (#{put-global-definition-hook\ 293}#
-           (lambda (#{symbol\ 845}# #{type\ 846}# #{val\ 847}#)
+         (#{lambda-meta\ 277}#
+           (lambda (#{x\ 832}#) (struct-ref #{x\ 832}# 1)))
+         (#{set-lambda-meta!\ 279}#
+           (lambda (#{x\ 834}# #{v\ 835}#)
+             (struct-set! #{x\ 834}# 1 #{v\ 835}#)))
+         (#{top-level-eval-hook\ 289}#
+           (lambda (#{x\ 838}# #{mod\ 839}#)
+             (primitive-eval #{x\ 838}#)))
+         (#{local-eval-hook\ 291}#
+           (lambda (#{x\ 842}# #{mod\ 843}#)
+             (primitive-eval #{x\ 842}#)))
+         (#{put-global-definition-hook\ 294}#
+           (lambda (#{symbol\ 846}# #{type\ 847}# #{val\ 848}#)
              (module-define!
                (current-module)
-               #{symbol\ 845}#
+               #{symbol\ 846}#
                (make-syntax-transformer
-                 #{symbol\ 845}#
-                 #{type\ 846}#
-                 #{val\ 847}#))))
-         (#{get-global-definition-hook\ 295}#
-           (lambda (#{symbol\ 851}# #{module\ 852}#)
+                 #{symbol\ 846}#
+                 #{type\ 847}#
+                 #{val\ 848}#))))
+         (#{get-global-definition-hook\ 296}#
+           (lambda (#{symbol\ 852}# #{module\ 853}#)
              (begin
-               (if (if (not #{module\ 852}#) (current-module) #f)
+               (if (if (not #{module\ 853}#) (current-module) #f)
                  (warn "module system is booted, we should have a module"
-                       #{symbol\ 851}#))
+                       #{symbol\ 852}#))
                (begin
-                 (let ((#{v\ 858}# (module-variable
-                                     (if #{module\ 852}#
-                                       (resolve-module (cdr #{module\ 852}#))
+                 (let ((#{v\ 859}# (module-variable
+                                     (if #{module\ 853}#
+                                       (resolve-module (cdr #{module\ 853}#))
                                        (current-module))
-                                     #{symbol\ 851}#)))
-                   (if #{v\ 858}#
-                     (if (variable-bound? #{v\ 858}#)
+                                     #{symbol\ 852}#)))
+                   (if #{v\ 859}#
+                     (if (variable-bound? #{v\ 859}#)
                        (begin
-                         (let ((#{val\ 863}# (variable-ref #{v\ 858}#)))
-                           (if (macro? #{val\ 863}#)
-                             (if (macro-type #{val\ 863}#)
-                               (cons (macro-type #{val\ 863}#)
-                                     (macro-binding #{val\ 863}#))
+                         (let ((#{val\ 864}# (variable-ref #{v\ 859}#)))
+                           (if (macro? #{val\ 864}#)
+                             (if (macro-type #{val\ 864}#)
+                               (cons (macro-type #{val\ 864}#)
+                                     (macro-binding #{val\ 864}#))
                                #f)
                              #f)))
                        #f)
                      #f))))))
-         (#{decorate-source\ 297}#
-           (lambda (#{e\ 867}# #{s\ 868}#)
+         (#{decorate-source\ 298}#
+           (lambda (#{e\ 868}# #{s\ 869}#)
              (begin
-               (if (if (pair? #{e\ 867}#) #{s\ 868}# #f)
-                 (set-source-properties! #{e\ 867}# #{s\ 868}#))
-               #{e\ 867}#)))
-         (#{maybe-name-value!\ 299}#
-           (lambda (#{name\ 873}# #{val\ 874}#)
-             (if (#{lambda?\ 274}# #{val\ 874}#)
+               (if (if (pair? #{e\ 868}#) #{s\ 869}# #f)
+                 (set-source-properties! #{e\ 868}# #{s\ 869}#))
+               #{e\ 868}#)))
+         (#{maybe-name-value!\ 300}#
+           (lambda (#{name\ 874}# #{val\ 875}#)
+             (if (#{lambda?\ 275}# #{val\ 875}#)
                (begin
-                 (let ((#{meta\ 878}#
-                         (#{lambda-meta\ 276}# #{val\ 874}#)))
-                   (if (not (assq (quote name) #{meta\ 878}#))
-                     (#{set-lambda-meta!\ 278}#
-                       #{val\ 874}#
-                       (cons (cons (quote name) #{name\ 873}#)
-                             #{meta\ 878}#))))))))
-         (#{build-void\ 301}#
-           (lambda (#{source\ 879}#)
-             (#{make-void\ 237}# #{source\ 879}#)))
-         (#{build-application\ 303}#
-           (lambda (#{source\ 881}#
-                    #{fun-exp\ 882}#
-                    #{arg-exps\ 883}#)
-             (#{make-application\ 259}#
-               #{source\ 881}#
-               #{fun-exp\ 882}#
-               #{arg-exps\ 883}#)))
-         (#{build-conditional\ 305}#
-           (lambda (#{source\ 887}#
-                    #{test-exp\ 888}#
-                    #{then-exp\ 889}#
-                    #{else-exp\ 890}#)
-             (#{make-conditional\ 257}#
-               #{source\ 887}#
-               #{test-exp\ 888}#
-               #{then-exp\ 889}#
-               #{else-exp\ 890}#)))
-         (#{build-dynlet\ 307}#
-           (lambda (#{source\ 895}#
-                    #{fluids\ 896}#
-                    #{vals\ 897}#
-                    #{body\ 898}#)
-             (#{make-dynlet\ 271}#
-               #{source\ 895}#
-               #{fluids\ 896}#
-               #{vals\ 897}#
-               #{body\ 898}#)))
-         (#{build-lexical-reference\ 309}#
-           (lambda (#{type\ 903}#
-                    #{source\ 904}#
-                    #{name\ 905}#
-                    #{var\ 906}#)
-             (#{make-lexical-ref\ 243}#
-               #{source\ 904}#
-               #{name\ 905}#
-               #{var\ 906}#)))
-         (#{build-lexical-assignment\ 311}#
-           (lambda (#{source\ 911}#
-                    #{name\ 912}#
-                    #{var\ 913}#
-                    #{exp\ 914}#)
+                 (let ((#{meta\ 879}#
+                         (#{lambda-meta\ 277}# #{val\ 875}#)))
+                   (if (not (assq (quote name) #{meta\ 879}#))
+                     (#{set-lambda-meta!\ 279}#
+                       #{val\ 875}#
+                       (cons (cons (quote name) #{name\ 874}#)
+                             #{meta\ 879}#))))))))
+         (#{build-void\ 302}#
+           (lambda (#{source\ 880}#)
+             (#{make-void\ 238}# #{source\ 880}#)))
+         (#{build-application\ 304}#
+           (lambda (#{source\ 882}#
+                    #{fun-exp\ 883}#
+                    #{arg-exps\ 884}#)
+             (#{make-application\ 260}#
+               #{source\ 882}#
+               #{fun-exp\ 883}#
+               #{arg-exps\ 884}#)))
+         (#{build-conditional\ 306}#
+           (lambda (#{source\ 888}#
+                    #{test-exp\ 889}#
+                    #{then-exp\ 890}#
+                    #{else-exp\ 891}#)
+             (#{make-conditional\ 258}#
+               #{source\ 888}#
+               #{test-exp\ 889}#
+               #{then-exp\ 890}#
+               #{else-exp\ 891}#)))
+         (#{build-dynlet\ 308}#
+           (lambda (#{source\ 896}#
+                    #{fluids\ 897}#
+                    #{vals\ 898}#
+                    #{body\ 899}#)
+             (#{make-dynlet\ 272}#
+               #{source\ 896}#
+               #{fluids\ 897}#
+               #{vals\ 898}#
+               #{body\ 899}#)))
+         (#{build-lexical-reference\ 310}#
+           (lambda (#{type\ 904}#
+                    #{source\ 905}#
+                    #{name\ 906}#
+                    #{var\ 907}#)
+             (#{make-lexical-ref\ 244}#
+               #{source\ 905}#
+               #{name\ 906}#
+               #{var\ 907}#)))
+         (#{build-lexical-assignment\ 312}#
+           (lambda (#{source\ 912}#
+                    #{name\ 913}#
+                    #{var\ 914}#
+                    #{exp\ 915}#)
              (begin
-               (#{maybe-name-value!\ 299}#
-                 #{name\ 912}#
-                 #{exp\ 914}#)
-               (#{make-lexical-set\ 245}#
-                 #{source\ 911}#
-                 #{name\ 912}#
-                 #{var\ 913}#
-                 #{exp\ 914}#))))
-         (#{analyze-variable\ 313}#
-           (lambda (#{mod\ 919}#
-                    #{var\ 920}#
-                    #{modref-cont\ 921}#
-                    #{bare-cont\ 922}#)
-             (if (not #{mod\ 919}#)
-               (#{bare-cont\ 922}# #{var\ 920}#)
+               (#{maybe-name-value!\ 300}#
+                 #{name\ 913}#
+                 #{exp\ 915}#)
+               (#{make-lexical-set\ 246}#
+                 #{source\ 912}#
+                 #{name\ 913}#
+                 #{var\ 914}#
+                 #{exp\ 915}#))))
+         (#{analyze-variable\ 314}#
+           (lambda (#{mod\ 920}#
+                    #{var\ 921}#
+                    #{modref-cont\ 922}#
+                    #{bare-cont\ 923}#)
+             (if (not #{mod\ 920}#)
+               (#{bare-cont\ 923}# #{var\ 921}#)
                (begin
-                 (let ((#{kind\ 929}# (car #{mod\ 919}#))
-                       (#{mod\ 930}# (cdr #{mod\ 919}#)))
-                   (if (eqv? #{kind\ 929}# (quote public))
-                     (#{modref-cont\ 921}#
-                       #{mod\ 930}#
-                       #{var\ 920}#
+                 (let ((#{kind\ 930}# (car #{mod\ 920}#))
+                       (#{mod\ 931}# (cdr #{mod\ 920}#)))
+                   (if (eqv? #{kind\ 930}# (quote public))
+                     (#{modref-cont\ 922}#
+                       #{mod\ 931}#
+                       #{var\ 921}#
                        #t)
-                     (if (eqv? #{kind\ 929}# (quote private))
+                     (if (eqv? #{kind\ 930}# (quote private))
                        (if (not (equal?
-                                  #{mod\ 930}#
+                                  #{mod\ 931}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 921}#
-                           #{mod\ 930}#
-                           #{var\ 920}#
+                         (#{modref-cont\ 922}#
+                           #{mod\ 931}#
+                           #{var\ 921}#
                            #f)
-                         (#{bare-cont\ 922}# #{var\ 920}#))
-                       (if (eqv? #{kind\ 929}# (quote bare))
-                         (#{bare-cont\ 922}# #{var\ 920}#)
-                         (if (eqv? #{kind\ 929}# (quote hygiene))
+                         (#{bare-cont\ 923}# #{var\ 921}#))
+                       (if (eqv? #{kind\ 930}# (quote bare))
+                         (#{bare-cont\ 923}# #{var\ 921}#)
+                         (if (eqv? #{kind\ 930}# (quote hygiene))
                            (if (if (not (equal?
-                                          #{mod\ 930}#
+                                          #{mod\ 931}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 930}#)
-                                   #{var\ 920}#)
+                                   (resolve-module #{mod\ 931}#)
+                                   #{var\ 921}#)
                                  #f)
-                             (#{modref-cont\ 921}#
-                               #{mod\ 930}#
-                               #{var\ 920}#
+                             (#{modref-cont\ 922}#
+                               #{mod\ 931}#
+                               #{var\ 921}#
                                #f)
-                             (#{bare-cont\ 922}# #{var\ 920}#))
+                             (#{bare-cont\ 923}# #{var\ 921}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 920}#
-                             #{mod\ 930}#))))))))))
-         (#{build-global-reference\ 315}#
-           (lambda (#{source\ 938}# #{var\ 939}# #{mod\ 940}#)
-             (#{analyze-variable\ 313}#
-               #{mod\ 940}#
-               #{var\ 939}#
-               (lambda (#{mod\ 944}# #{var\ 945}# #{public?\ 946}#)
-                 (#{make-module-ref\ 247}#
-                   #{source\ 938}#
-                   #{mod\ 944}#
-                   #{var\ 945}#
-                   #{public?\ 946}#))
-               (lambda (#{var\ 950}#)
-                 (#{make-toplevel-ref\ 251}#
-                   #{source\ 938}#
-                   #{var\ 950}#)))))
-         (#{build-global-assignment\ 317}#
-           (lambda (#{source\ 952}#
-                    #{var\ 953}#
-                    #{exp\ 954}#
-                    #{mod\ 955}#)
+                             #{var\ 921}#
+                             #{mod\ 931}#))))))))))
+         (#{build-global-reference\ 316}#
+           (lambda (#{source\ 939}# #{var\ 940}# #{mod\ 941}#)
+             (#{analyze-variable\ 314}#
+               #{mod\ 941}#
+               #{var\ 940}#
+               (lambda (#{mod\ 945}# #{var\ 946}# #{public?\ 947}#)
+                 (#{make-module-ref\ 248}#
+                   #{source\ 939}#
+                   #{mod\ 945}#
+                   #{var\ 946}#
+                   #{public?\ 947}#))
+               (lambda (#{var\ 951}#)
+                 (#{make-toplevel-ref\ 252}#
+                   #{source\ 939}#
+                   #{var\ 951}#)))))
+         (#{build-global-assignment\ 318}#
+           (lambda (#{source\ 953}#
+                    #{var\ 954}#
+                    #{exp\ 955}#
+                    #{mod\ 956}#)
              (begin
-               (#{maybe-name-value!\ 299}#
-                 #{var\ 953}#
-                 #{exp\ 954}#)
-               (#{analyze-variable\ 313}#
-                 #{mod\ 955}#
-                 #{var\ 953}#
-                 (lambda (#{mod\ 960}# #{var\ 961}# #{public?\ 962}#)
-                   (#{make-module-set\ 249}#
-                     #{source\ 952}#
-                     #{mod\ 960}#
-                     #{var\ 961}#
-                     #{public?\ 962}#
-                     #{exp\ 954}#))
-                 (lambda (#{var\ 966}#)
-                   (#{make-toplevel-set\ 253}#
-                     #{source\ 952}#
-                     #{var\ 966}#
-                     #{exp\ 954}#))))))
-         (#{build-global-definition\ 319}#
-           (lambda (#{source\ 968}# #{var\ 969}# #{exp\ 970}#)
+               (#{maybe-name-value!\ 300}#
+                 #{var\ 954}#
+                 #{exp\ 955}#)
+               (#{analyze-variable\ 314}#
+                 #{mod\ 956}#
+                 #{var\ 954}#
+                 (lambda (#{mod\ 961}# #{var\ 962}# #{public?\ 963}#)
+                   (#{make-module-set\ 250}#
+                     #{source\ 953}#
+                     #{mod\ 961}#
+                     #{var\ 962}#
+                     #{public?\ 963}#
+                     #{exp\ 955}#))
+                 (lambda (#{var\ 967}#)
+                   (#{make-toplevel-set\ 254}#
+                     #{source\ 953}#
+                     #{var\ 967}#
+                     #{exp\ 955}#))))))
+         (#{build-global-definition\ 320}#
+           (lambda (#{source\ 969}# #{var\ 970}# #{exp\ 971}#)
              (begin
-               (#{maybe-name-value!\ 299}#
-                 #{var\ 969}#
-                 #{exp\ 970}#)
-               (#{make-toplevel-define\ 255}#
-                 #{source\ 968}#
-                 #{var\ 969}#
-                 #{exp\ 970}#))))
-         (#{build-simple-lambda\ 321}#
-           (lambda (#{src\ 974}#
-                    #{req\ 975}#
-                    #{rest\ 976}#
-                    #{vars\ 977}#
-                    #{meta\ 978}#
-                    #{exp\ 979}#)
-             (#{make-lambda\ 263}#
-               #{src\ 974}#
-               #{meta\ 978}#
-               (#{make-lambda-case\ 265}#
-                 #{src\ 974}#
-                 #{req\ 975}#
+               (#{maybe-name-value!\ 300}#
+                 #{var\ 970}#
+                 #{exp\ 971}#)
+               (#{make-toplevel-define\ 256}#
+                 #{source\ 969}#
+                 #{var\ 970}#
+                 #{exp\ 971}#))))
+         (#{build-simple-lambda\ 322}#
+           (lambda (#{src\ 975}#
+                    #{req\ 976}#
+                    #{rest\ 977}#
+                    #{vars\ 978}#
+                    #{meta\ 979}#
+                    #{exp\ 980}#)
+             (#{make-lambda\ 264}#
+               #{src\ 975}#
+               #{meta\ 979}#
+               (#{make-lambda-case\ 266}#
+                 #{src\ 975}#
+                 #{req\ 976}#
                  #f
-                 #{rest\ 976}#
+                 #{rest\ 977}#
                  #f
                  '()
-                 #{vars\ 977}#
-                 #{exp\ 979}#
+                 #{vars\ 978}#
+                 #{exp\ 980}#
                  #f))))
-         (#{build-case-lambda\ 323}#
-           (lambda (#{src\ 986}# #{meta\ 987}# #{body\ 988}#)
-             (#{make-lambda\ 263}#
-               #{src\ 986}#
-               #{meta\ 987}#
-               #{body\ 988}#)))
-         (#{build-lambda-case\ 325}#
-           (lambda (#{src\ 992}#
-                    #{req\ 993}#
-                    #{opt\ 994}#
-                    #{rest\ 995}#
-                    #{kw\ 996}#
-                    #{inits\ 997}#
-                    #{vars\ 998}#
-                    #{body\ 999}#
-                    #{else-case\ 1000}#)
-             (#{make-lambda-case\ 265}#
-               #{src\ 992}#
-               #{req\ 993}#
-               #{opt\ 994}#
-               #{rest\ 995}#
-               #{kw\ 996}#
-               #{inits\ 997}#
-               #{vars\ 998}#
-               #{body\ 999}#
-               #{else-case\ 1000}#)))
-         (#{build-primref\ 327}#
-           (lambda (#{src\ 1010}# #{name\ 1011}#)
+         (#{build-case-lambda\ 324}#
+           (lambda (#{src\ 987}# #{meta\ 988}# #{body\ 989}#)
+             (#{make-lambda\ 264}#
+               #{src\ 987}#
+               #{meta\ 988}#
+               #{body\ 989}#)))
+         (#{build-lambda-case\ 326}#
+           (lambda (#{src\ 993}#
+                    #{req\ 994}#
+                    #{opt\ 995}#
+                    #{rest\ 996}#
+                    #{kw\ 997}#
+                    #{inits\ 998}#
+                    #{vars\ 999}#
+                    #{body\ 1000}#
+                    #{else-case\ 1001}#)
+             (#{make-lambda-case\ 266}#
+               #{src\ 993}#
+               #{req\ 994}#
+               #{opt\ 995}#
+               #{rest\ 996}#
+               #{kw\ 997}#
+               #{inits\ 998}#
+               #{vars\ 999}#
+               #{body\ 1000}#
+               #{else-case\ 1001}#)))
+         (#{build-primref\ 328}#
+           (lambda (#{src\ 1011}# #{name\ 1012}#)
              (if (equal?
                    (module-name (current-module))
                    '(guile))
-               (#{make-toplevel-ref\ 251}#
-                 #{src\ 1010}#
-                 #{name\ 1011}#)
-               (#{make-module-ref\ 247}#
-                 #{src\ 1010}#
+               (#{make-toplevel-ref\ 252}#
+                 #{src\ 1011}#
+                 #{name\ 1012}#)
+               (#{make-module-ref\ 248}#
+                 #{src\ 1011}#
                  '(guile)
-                 #{name\ 1011}#
+                 #{name\ 1012}#
                  #f))))
-         (#{build-data\ 329}#
-           (lambda (#{src\ 1014}# #{exp\ 1015}#)
-             (#{make-const\ 239}# #{src\ 1014}# #{exp\ 1015}#)))
-         (#{build-sequence\ 331}#
-           (lambda (#{src\ 1018}# #{exps\ 1019}#)
-             (if (null? (cdr #{exps\ 1019}#))
-               (car #{exps\ 1019}#)
-               (#{make-sequence\ 261}#
-                 #{src\ 1018}#
-                 #{exps\ 1019}#))))
-         (#{build-let\ 333}#
-           (lambda (#{src\ 1022}#
-                    #{ids\ 1023}#
-                    #{vars\ 1024}#
-                    #{val-exps\ 1025}#
-                    #{body-exp\ 1026}#)
+         (#{build-data\ 330}#
+           (lambda (#{src\ 1015}# #{exp\ 1016}#)
+             (#{make-const\ 240}# #{src\ 1015}# #{exp\ 1016}#)))
+         (#{build-sequence\ 332}#
+           (lambda (#{src\ 1019}# #{exps\ 1020}#)
+             (if (null? (cdr #{exps\ 1020}#))
+               (car #{exps\ 1020}#)
+               (#{make-sequence\ 262}#
+                 #{src\ 1019}#
+                 #{exps\ 1020}#))))
+         (#{build-let\ 334}#
+           (lambda (#{src\ 1023}#
+                    #{ids\ 1024}#
+                    #{vars\ 1025}#
+                    #{val-exps\ 1026}#
+                    #{body-exp\ 1027}#)
              (begin
                (for-each
-                 #{maybe-name-value!\ 299}#
-                 #{ids\ 1023}#
-                 #{val-exps\ 1025}#)
-               (if (null? #{vars\ 1024}#)
-                 #{body-exp\ 1026}#
-                 (#{make-let\ 267}#
-                   #{src\ 1022}#
-                   #{ids\ 1023}#
-                   #{vars\ 1024}#
-                   #{val-exps\ 1025}#
-                   #{body-exp\ 1026}#)))))
-         (#{build-named-let\ 335}#
-           (lambda (#{src\ 1032}#
-                    #{ids\ 1033}#
-                    #{vars\ 1034}#
-                    #{val-exps\ 1035}#
-                    #{body-exp\ 1036}#)
+                 #{maybe-name-value!\ 300}#
+                 #{ids\ 1024}#
+                 #{val-exps\ 1026}#)
+               (if (null? #{vars\ 1025}#)
+                 #{body-exp\ 1027}#
+                 (#{make-let\ 268}#
+                   #{src\ 1023}#
+                   #{ids\ 1024}#
+                   #{vars\ 1025}#
+                   #{val-exps\ 1026}#
+                   #{body-exp\ 1027}#)))))
+         (#{build-named-let\ 336}#
+           (lambda (#{src\ 1033}#
+                    #{ids\ 1034}#
+                    #{vars\ 1035}#
+                    #{val-exps\ 1036}#
+                    #{body-exp\ 1037}#)
              (begin
-               (let ((#{f\ 1046}# (car #{vars\ 1034}#))
-                     (#{f-name\ 1047}# (car #{ids\ 1033}#))
-                     (#{vars\ 1048}# (cdr #{vars\ 1034}#))
-                     (#{ids\ 1049}# (cdr #{ids\ 1033}#)))
+               (let ((#{f\ 1047}# (car #{vars\ 1035}#))
+                     (#{f-name\ 1048}# (car #{ids\ 1034}#))
+                     (#{vars\ 1049}# (cdr #{vars\ 1035}#))
+                     (#{ids\ 1050}# (cdr #{ids\ 1034}#)))
                  (begin
-                   (let ((#{proc\ 1051}#
-                           (#{build-simple-lambda\ 321}#
-                             #{src\ 1032}#
-                             #{ids\ 1049}#
+                   (let ((#{proc\ 1052}#
+                           (#{build-simple-lambda\ 322}#
+                             #{src\ 1033}#
+                             #{ids\ 1050}#
                              #f
-                             #{vars\ 1048}#
+                             #{vars\ 1049}#
                              '()
-                             #{body-exp\ 1036}#)))
+                             #{body-exp\ 1037}#)))
                      (begin
-                       (#{maybe-name-value!\ 299}#
-                         #{f-name\ 1047}#
-                         #{proc\ 1051}#)
+                       (#{maybe-name-value!\ 300}#
+                         #{f-name\ 1048}#
+                         #{proc\ 1052}#)
                        (for-each
-                         #{maybe-name-value!\ 299}#
-                         #{ids\ 1049}#
-                         #{val-exps\ 1035}#)
-                       (#{make-letrec\ 269}#
-                         #{src\ 1032}#
+                         #{maybe-name-value!\ 300}#
+                         #{ids\ 1050}#
+                         #{val-exps\ 1036}#)
+                       (#{make-letrec\ 270}#
+                         #{src\ 1033}#
                          #f
-                         (list #{f-name\ 1047}#)
-                         (list #{f\ 1046}#)
-                         (list #{proc\ 1051}#)
-                         (#{build-application\ 303}#
-                           #{src\ 1032}#
-                           (#{build-lexical-reference\ 309}#
+                         (list #{f-name\ 1048}#)
+                         (list #{f\ 1047}#)
+                         (list #{proc\ 1052}#)
+                         (#{build-application\ 304}#
+                           #{src\ 1033}#
+                           (#{build-lexical-reference\ 310}#
                              'fun
-                             #{src\ 1032}#
-                             #{f-name\ 1047}#
-                             #{f\ 1046}#)
-                           #{val-exps\ 1035}#)))))))))
-         (#{build-letrec\ 337}#
-           (lambda (#{src\ 1052}#
-                    #{in-order?\ 1053}#
-                    #{ids\ 1054}#
-                    #{vars\ 1055}#
-                    #{val-exps\ 1056}#
-                    #{body-exp\ 1057}#)
-             (if (null? #{vars\ 1055}#)
-               #{body-exp\ 1057}#
+                             #{src\ 1033}#
+                             #{f-name\ 1048}#
+                             #{f\ 1047}#)
+                           #{val-exps\ 1036}#)))))))))
+         (#{build-letrec\ 338}#
+           (lambda (#{src\ 1053}#
+                    #{in-order?\ 1054}#
+                    #{ids\ 1055}#
+                    #{vars\ 1056}#
+                    #{val-exps\ 1057}#
+                    #{body-exp\ 1058}#)
+             (if (null? #{vars\ 1056}#)
+               #{body-exp\ 1058}#
                (begin
                  (for-each
-                   #{maybe-name-value!\ 299}#
-                   #{ids\ 1054}#
-                   #{val-exps\ 1056}#)
-                 (#{make-letrec\ 269}#
-                   #{src\ 1052}#
-                   #{in-order?\ 1053}#
-                   #{ids\ 1054}#
-                   #{vars\ 1055}#
-                   #{val-exps\ 1056}#
-                   #{body-exp\ 1057}#)))))
-         (#{make-syntax-object\ 341}#
-           (lambda (#{expression\ 1064}#
-                    #{wrap\ 1065}#
-                    #{module\ 1066}#)
+                   #{maybe-name-value!\ 300}#
+                   #{ids\ 1055}#
+                   #{val-exps\ 1057}#)
+                 (#{make-letrec\ 270}#
+                   #{src\ 1053}#
+                   #{in-order?\ 1054}#
+                   #{ids\ 1055}#
+                   #{vars\ 1056}#
+                   #{val-exps\ 1057}#
+                   #{body-exp\ 1058}#)))))
+         (#{make-syntax-object\ 342}#
+           (lambda (#{expression\ 1065}#
+                    #{wrap\ 1066}#
+                    #{module\ 1067}#)
              (vector
                'syntax-object
-               #{expression\ 1064}#
-               #{wrap\ 1065}#
-               #{module\ 1066}#)))
-         (#{syntax-object?\ 343}#
-           (lambda (#{x\ 1070}#)
-             (if (vector? #{x\ 1070}#)
-               (if (= (vector-length #{x\ 1070}#) 4)
-                 (eq? (vector-ref #{x\ 1070}# 0)
+               #{expression\ 1065}#
+               #{wrap\ 1066}#
+               #{module\ 1067}#)))
+         (#{syntax-object?\ 344}#
+           (lambda (#{x\ 1071}#)
+             (if (vector? #{x\ 1071}#)
+               (if (= (vector-length #{x\ 1071}#) 4)
+                 (eq? (vector-ref #{x\ 1071}# 0)
                       'syntax-object)
                  #f)
                #f)))
-         (#{syntax-object-expression\ 345}#
-           (lambda (#{x\ 1075}#) (vector-ref #{x\ 1075}# 1)))
-         (#{syntax-object-wrap\ 347}#
-           (lambda (#{x\ 1077}#) (vector-ref #{x\ 1077}# 2)))
-         (#{syntax-object-module\ 349}#
-           (lambda (#{x\ 1079}#) (vector-ref #{x\ 1079}# 3)))
-         (#{source-annotation\ 358}#
-           (lambda (#{x\ 1093}#)
-             (if (#{syntax-object?\ 343}# #{x\ 1093}#)
-               (#{source-annotation\ 358}#
-                 (#{syntax-object-expression\ 345}# #{x\ 1093}#))
-               (if (pair? #{x\ 1093}#)
+         (#{syntax-object-expression\ 346}#
+           (lambda (#{x\ 1076}#) (vector-ref #{x\ 1076}# 1)))
+         (#{syntax-object-wrap\ 348}#
+           (lambda (#{x\ 1078}#) (vector-ref #{x\ 1078}# 2)))
+         (#{syntax-object-module\ 350}#
+           (lambda (#{x\ 1080}#) (vector-ref #{x\ 1080}# 3)))
+         (#{source-annotation\ 359}#
+           (lambda (#{x\ 1094}#)
+             (if (#{syntax-object?\ 344}# #{x\ 1094}#)
+               (#{source-annotation\ 359}#
+                 (#{syntax-object-expression\ 346}# #{x\ 1094}#))
+               (if (pair? #{x\ 1094}#)
                  (begin
-                   (let ((#{props\ 1100}# (source-properties #{x\ 1093}#)))
-                     (if (pair? #{props\ 1100}#) #{props\ 1100}# #f)))
+                   (let ((#{props\ 1101}# (source-properties #{x\ 1094}#)))
+                     (if (pair? #{props\ 1101}#) #{props\ 1101}# #f)))
                  #f))))
-         (#{extend-env\ 367}#
-           (lambda (#{labels\ 1102}# #{bindings\ 1103}# #{r\ 1104}#)
-             (if (null? #{labels\ 1102}#)
-               #{r\ 1104}#
-               (#{extend-env\ 367}#
-                 (cdr #{labels\ 1102}#)
-                 (cdr #{bindings\ 1103}#)
-                 (cons (cons (car #{labels\ 1102}#)
-                             (car #{bindings\ 1103}#))
-                       #{r\ 1104}#)))))
-         (#{extend-var-env\ 369}#
-           (lambda (#{labels\ 1108}# #{vars\ 1109}# #{r\ 1110}#)
-             (if (null? #{labels\ 1108}#)
-               #{r\ 1110}#
-               (#{extend-var-env\ 369}#
-                 (cdr #{labels\ 1108}#)
-                 (cdr #{vars\ 1109}#)
-                 (cons (cons (car #{labels\ 1108}#)
-                             (cons (quote lexical) (car #{vars\ 1109}#)))
-                       #{r\ 1110}#)))))
-         (#{macros-only-env\ 371}#
-           (lambda (#{r\ 1115}#)
-             (if (null? #{r\ 1115}#)
+         (#{extend-env\ 368}#
+           (lambda (#{labels\ 1103}# #{bindings\ 1104}# #{r\ 1105}#)
+             (if (null? #{labels\ 1103}#)
+               #{r\ 1105}#
+               (#{extend-env\ 368}#
+                 (cdr #{labels\ 1103}#)
+                 (cdr #{bindings\ 1104}#)
+                 (cons (cons (car #{labels\ 1103}#)
+                             (car #{bindings\ 1104}#))
+                       #{r\ 1105}#)))))
+         (#{extend-var-env\ 370}#
+           (lambda (#{labels\ 1109}# #{vars\ 1110}# #{r\ 1111}#)
+             (if (null? #{labels\ 1109}#)
+               #{r\ 1111}#
+               (#{extend-var-env\ 370}#
+                 (cdr #{labels\ 1109}#)
+                 (cdr #{vars\ 1110}#)
+                 (cons (cons (car #{labels\ 1109}#)
+                             (cons (quote lexical) (car #{vars\ 1110}#)))
+                       #{r\ 1111}#)))))
+         (#{macros-only-env\ 372}#
+           (lambda (#{r\ 1116}#)
+             (if (null? #{r\ 1116}#)
                '()
                (begin
-                 (let ((#{a\ 1118}# (car #{r\ 1115}#)))
-                   (if (eq? (car (cdr #{a\ 1118}#)) (quote macro))
-                     (cons #{a\ 1118}#
-                           (#{macros-only-env\ 371}# (cdr #{r\ 1115}#)))
-                     (#{macros-only-env\ 371}# (cdr #{r\ 1115}#))))))))
-         (#{lookup\ 373}#
-           (lambda (#{x\ 1119}# #{r\ 1120}# #{mod\ 1121}#)
+                 (let ((#{a\ 1119}# (car #{r\ 1116}#)))
+                   (if (eq? (car (cdr #{a\ 1119}#)) (quote macro))
+                     (cons #{a\ 1119}#
+                           (#{macros-only-env\ 372}# (cdr #{r\ 1116}#)))
+                     (#{macros-only-env\ 372}# (cdr #{r\ 1116}#))))))))
+         (#{lookup\ 374}#
+           (lambda (#{x\ 1120}# #{r\ 1121}# #{mod\ 1122}#)
              (begin
-               (let ((#{t\ 1127}# (assq #{x\ 1119}# #{r\ 1120}#)))
-                 (if #{t\ 1127}#
-                   (cdr #{t\ 1127}#)
-                   (if (symbol? #{x\ 1119}#)
+               (let ((#{t\ 1128}# (assq #{x\ 1120}# #{r\ 1121}#)))
+                 (if #{t\ 1128}#
+                   (cdr #{t\ 1128}#)
+                   (if (symbol? #{x\ 1120}#)
                      (begin
-                       (let ((#{t\ 1133}#
-                               (#{get-global-definition-hook\ 295}#
-                                 #{x\ 1119}#
-                                 #{mod\ 1121}#)))
-                         (if #{t\ 1133}# #{t\ 1133}# (quote (global)))))
+                       (let ((#{t\ 1134}#
+                               (#{get-global-definition-hook\ 296}#
+                                 #{x\ 1120}#
+                                 #{mod\ 1122}#)))
+                         (if #{t\ 1134}# #{t\ 1134}# (quote (global)))))
                      '(displaced-lexical)))))))
-         (#{global-extend\ 375}#
-           (lambda (#{type\ 1138}# #{sym\ 1139}# #{val\ 1140}#)
-             (#{put-global-definition-hook\ 293}#
-               #{sym\ 1139}#
-               #{type\ 1138}#
-               #{val\ 1140}#)))
-         (#{nonsymbol-id?\ 377}#
-           (lambda (#{x\ 1144}#)
-             (if (#{syntax-object?\ 343}# #{x\ 1144}#)
+         (#{global-extend\ 376}#
+           (lambda (#{type\ 1139}# #{sym\ 1140}# #{val\ 1141}#)
+             (#{put-global-definition-hook\ 294}#
+               #{sym\ 1140}#
+               #{type\ 1139}#
+               #{val\ 1141}#)))
+         (#{nonsymbol-id?\ 378}#
+           (lambda (#{x\ 1145}#)
+             (if (#{syntax-object?\ 344}# #{x\ 1145}#)
                (symbol?
-                 (#{syntax-object-expression\ 345}# #{x\ 1144}#))
+                 (#{syntax-object-expression\ 346}# #{x\ 1145}#))
                #f)))
-         (#{id?\ 379}#
-           (lambda (#{x\ 1148}#)
-             (if (symbol? #{x\ 1148}#)
+         (#{id?\ 380}#
+           (lambda (#{x\ 1149}#)
+             (if (symbol? #{x\ 1149}#)
                #t
-               (if (#{syntax-object?\ 343}# #{x\ 1148}#)
+               (if (#{syntax-object?\ 344}# #{x\ 1149}#)
                  (symbol?
-                   (#{syntax-object-expression\ 345}# #{x\ 1148}#))
+                   (#{syntax-object-expression\ 346}# #{x\ 1149}#))
                  #f))))
-         (#{id-sym-name&marks\ 382}#
-           (lambda (#{x\ 1155}# #{w\ 1156}#)
-             (if (#{syntax-object?\ 343}# #{x\ 1155}#)
+         (#{id-sym-name&marks\ 383}#
+           (lambda (#{x\ 1156}# #{w\ 1157}#)
+             (if (#{syntax-object?\ 344}# #{x\ 1156}#)
                (values
-                 (#{syntax-object-expression\ 345}# #{x\ 1155}#)
-                 (#{join-marks\ 432}#
-                   (#{wrap-marks\ 386}# #{w\ 1156}#)
-                   (#{wrap-marks\ 386}#
-                     (#{syntax-object-wrap\ 347}# #{x\ 1155}#))))
+                 (#{syntax-object-expression\ 346}# #{x\ 1156}#)
+                 (#{join-marks\ 433}#
+                   (#{wrap-marks\ 387}# #{w\ 1157}#)
+                   (#{wrap-marks\ 387}#
+                     (#{syntax-object-wrap\ 348}# #{x\ 1156}#))))
                (values
-                 #{x\ 1155}#
-                 (#{wrap-marks\ 386}# #{w\ 1156}#)))))
-         (#{gen-label\ 395}#
+                 #{x\ 1156}#
+                 (#{wrap-marks\ 387}# #{w\ 1157}#)))))
+         (#{gen-label\ 396}#
            (lambda () (symbol->string (gensym "i"))))
-         (#{gen-labels\ 397}#
-           (lambda (#{ls\ 1159}#)
-             (if (null? #{ls\ 1159}#)
+         (#{gen-labels\ 398}#
+           (lambda (#{ls\ 1160}#)
+             (if (null? #{ls\ 1160}#)
                '()
-               (cons (#{gen-label\ 395}#)
-                     (#{gen-labels\ 397}# (cdr #{ls\ 1159}#))))))
-         (#{make-ribcage\ 400}#
-           (lambda (#{symnames\ 1161}#
-                    #{marks\ 1162}#
-                    #{labels\ 1163}#)
+               (cons (#{gen-label\ 396}#)
+                     (#{gen-labels\ 398}# (cdr #{ls\ 1160}#))))))
+         (#{make-ribcage\ 401}#
+           (lambda (#{symnames\ 1162}#
+                    #{marks\ 1163}#
+                    #{labels\ 1164}#)
              (vector
                'ribcage
-               #{symnames\ 1161}#
-               #{marks\ 1162}#
-               #{labels\ 1163}#)))
-         (#{ribcage-symnames\ 404}#
-           (lambda (#{x\ 1172}#) (vector-ref #{x\ 1172}# 1)))
-         (#{ribcage-marks\ 406}#
-           (lambda (#{x\ 1174}#) (vector-ref #{x\ 1174}# 2)))
-         (#{ribcage-labels\ 408}#
-           (lambda (#{x\ 1176}#) (vector-ref #{x\ 1176}# 3)))
-         (#{set-ribcage-symnames!\ 410}#
-           (lambda (#{x\ 1178}# #{update\ 1179}#)
-             (vector-set! #{x\ 1178}# 1 #{update\ 1179}#)))
-         (#{set-ribcage-marks!\ 412}#
-           (lambda (#{x\ 1182}# #{update\ 1183}#)
-             (vector-set! #{x\ 1182}# 2 #{update\ 1183}#)))
-         (#{set-ribcage-labels!\ 414}#
-           (lambda (#{x\ 1186}# #{update\ 1187}#)
-             (vector-set! #{x\ 1186}# 3 #{update\ 1187}#)))
-         (#{anti-mark\ 420}#
-           (lambda (#{w\ 1190}#)
-             (#{make-wrap\ 384}#
-               (cons #f (#{wrap-marks\ 386}# #{w\ 1190}#))
+               #{symnames\ 1162}#
+               #{marks\ 1163}#
+               #{labels\ 1164}#)))
+         (#{ribcage-symnames\ 405}#
+           (lambda (#{x\ 1173}#) (vector-ref #{x\ 1173}# 1)))
+         (#{ribcage-marks\ 407}#
+           (lambda (#{x\ 1175}#) (vector-ref #{x\ 1175}# 2)))
+         (#{ribcage-labels\ 409}#
+           (lambda (#{x\ 1177}#) (vector-ref #{x\ 1177}# 3)))
+         (#{set-ribcage-symnames!\ 411}#
+           (lambda (#{x\ 1179}# #{update\ 1180}#)
+             (vector-set! #{x\ 1179}# 1 #{update\ 1180}#)))
+         (#{set-ribcage-marks!\ 413}#
+           (lambda (#{x\ 1183}# #{update\ 1184}#)
+             (vector-set! #{x\ 1183}# 2 #{update\ 1184}#)))
+         (#{set-ribcage-labels!\ 415}#
+           (lambda (#{x\ 1187}# #{update\ 1188}#)
+             (vector-set! #{x\ 1187}# 3 #{update\ 1188}#)))
+         (#{anti-mark\ 421}#
+           (lambda (#{w\ 1191}#)
+             (#{make-wrap\ 385}#
+               (cons #f (#{wrap-marks\ 387}# #{w\ 1191}#))
                (cons 'shift
-                     (#{wrap-subst\ 388}# #{w\ 1190}#)))))
-         (#{extend-ribcage!\ 424}#
-           (lambda (#{ribcage\ 1193}# #{id\ 1194}# #{label\ 1195}#)
+                     (#{wrap-subst\ 389}# #{w\ 1191}#)))))
+         (#{extend-ribcage!\ 425}#
+           (lambda (#{ribcage\ 1194}# #{id\ 1195}# #{label\ 1196}#)
              (begin
-               (#{set-ribcage-symnames!\ 410}#
-                 #{ribcage\ 1193}#
-                 (cons (#{syntax-object-expression\ 345}# #{id\ 1194}#)
-                       (#{ribcage-symnames\ 404}# #{ribcage\ 1193}#)))
-               (#{set-ribcage-marks!\ 412}#
-                 #{ribcage\ 1193}#
-                 (cons (#{wrap-marks\ 386}#
-                         (#{syntax-object-wrap\ 347}# #{id\ 1194}#))
-                       (#{ribcage-marks\ 406}# #{ribcage\ 1193}#)))
-               (#{set-ribcage-labels!\ 414}#
-                 #{ribcage\ 1193}#
-                 (cons #{label\ 1195}#
-                       (#{ribcage-labels\ 408}# #{ribcage\ 1193}#))))))
-         (#{make-binding-wrap\ 426}#
-           (lambda (#{ids\ 1199}# #{labels\ 1200}# #{w\ 1201}#)
-             (if (null? #{ids\ 1199}#)
-               #{w\ 1201}#
-               (#{make-wrap\ 384}#
-                 (#{wrap-marks\ 386}# #{w\ 1201}#)
+               (#{set-ribcage-symnames!\ 411}#
+                 #{ribcage\ 1194}#
+                 (cons (#{syntax-object-expression\ 346}# #{id\ 1195}#)
+                       (#{ribcage-symnames\ 405}# #{ribcage\ 1194}#)))
+               (#{set-ribcage-marks!\ 413}#
+                 #{ribcage\ 1194}#
+                 (cons (#{wrap-marks\ 387}#
+                         (#{syntax-object-wrap\ 348}# #{id\ 1195}#))
+                       (#{ribcage-marks\ 407}# #{ribcage\ 1194}#)))
+               (#{set-ribcage-labels!\ 415}#
+                 #{ribcage\ 1194}#
+                 (cons #{label\ 1196}#
+                       (#{ribcage-labels\ 409}# #{ribcage\ 1194}#))))))
+         (#{make-binding-wrap\ 427}#
+           (lambda (#{ids\ 1200}# #{labels\ 1201}# #{w\ 1202}#)
+             (if (null? #{ids\ 1200}#)
+               #{w\ 1202}#
+               (#{make-wrap\ 385}#
+                 (#{wrap-marks\ 387}# #{w\ 1202}#)
                  (cons (begin
-                         (let ((#{labelvec\ 1206}#
-                                 (list->vector #{labels\ 1200}#)))
+                         (let ((#{labelvec\ 1207}#
+                                 (list->vector #{labels\ 1201}#)))
                            (begin
-                             (let ((#{n\ 1208}#
-                                     (vector-length #{labelvec\ 1206}#)))
+                             (let ((#{n\ 1209}#
+                                     (vector-length #{labelvec\ 1207}#)))
                                (begin
-                                 (let ((#{symnamevec\ 1211}#
-                                         (make-vector #{n\ 1208}#))
-                                       (#{marksvec\ 1212}#
-                                         (make-vector #{n\ 1208}#)))
+                                 (let ((#{symnamevec\ 1212}#
+                                         (make-vector #{n\ 1209}#))
+                                       (#{marksvec\ 1213}#
+                                         (make-vector #{n\ 1209}#)))
                                    (begin
                                      (letrec*
-                                       ((#{f\ 1216}#
-                                          (lambda (#{ids\ 1217}# #{i\ 1218}#)
-                                            (if (not (null? #{ids\ 1217}#))
+                                       ((#{f\ 1217}#
+                                          (lambda (#{ids\ 1218}# #{i\ 1219}#)
+                                            (if (not (null? #{ids\ 1218}#))
                                               (call-with-values
                                                 (lambda ()
-                                                  (#{id-sym-name&marks\ 382}#
-                                                    (car #{ids\ 1217}#)
-                                                    #{w\ 1201}#))
-                                                (lambda (#{symname\ 1219}#
-                                                         #{marks\ 1220}#)
+                                                  (#{id-sym-name&marks\ 383}#
+                                                    (car #{ids\ 1218}#)
+                                                    #{w\ 1202}#))
+                                                (lambda (#{symname\ 1220}#
+                                                         #{marks\ 1221}#)
                                                   (begin
                                                     (vector-set!
-                                                      #{symnamevec\ 1211}#
-                                                      #{i\ 1218}#
-                                                      #{symname\ 1219}#)
+                                                      #{symnamevec\ 1212}#
+                                                      #{i\ 1219}#
+                                                      #{symname\ 1220}#)
                                                     (vector-set!
-                                                      #{marksvec\ 1212}#
-                                                      #{i\ 1218}#
-                                                      #{marks\ 1220}#)
-                                                    (#{f\ 1216}#
-                                                      (cdr #{ids\ 1217}#)
-                                                      (#{fx+\ 280}#
-                                                        #{i\ 1218}#
+                                                      #{marksvec\ 1213}#
+                                                      #{i\ 1219}#
+                                                      #{marks\ 1221}#)
+                                                    (#{f\ 1217}#
+                                                      (cdr #{ids\ 1218}#)
+                                                      (#{fx+\ 281}#
+                                                        #{i\ 1219}#
                                                         1)))))))))
-                                       (begin (#{f\ 1216}# #{ids\ 1199}# 0)))
-                                     (#{make-ribcage\ 400}#
-                                       #{symnamevec\ 1211}#
-                                       #{marksvec\ 1212}#
-                                       #{labelvec\ 1206}#))))))))
-                       (#{wrap-subst\ 388}# #{w\ 1201}#))))))
-         (#{smart-append\ 428}#
-           (lambda (#{m1\ 1223}# #{m2\ 1224}#)
-             (if (null? #{m2\ 1224}#)
-               #{m1\ 1223}#
-               (append #{m1\ 1223}# #{m2\ 1224}#))))
-         (#{join-wraps\ 430}#
-           (lambda (#{w1\ 1227}# #{w2\ 1228}#)
+                                       (begin (#{f\ 1217}# #{ids\ 1200}# 0)))
+                                     (#{make-ribcage\ 401}#
+                                       #{symnamevec\ 1212}#
+                                       #{marksvec\ 1213}#
+                                       #{labelvec\ 1207}#))))))))
+                       (#{wrap-subst\ 389}# #{w\ 1202}#))))))
+         (#{smart-append\ 429}#
+           (lambda (#{m1\ 1224}# #{m2\ 1225}#)
+             (if (null? #{m2\ 1225}#)
+               #{m1\ 1224}#
+               (append #{m1\ 1224}# #{m2\ 1225}#))))
+         (#{join-wraps\ 431}#
+           (lambda (#{w1\ 1228}# #{w2\ 1229}#)
              (begin
-               (let ((#{m1\ 1233}# (#{wrap-marks\ 386}# #{w1\ 1227}#))
-                     (#{s1\ 1234}# (#{wrap-subst\ 388}# #{w1\ 1227}#)))
-                 (if (null? #{m1\ 1233}#)
-                   (if (null? #{s1\ 1234}#)
-                     #{w2\ 1228}#
-                     (#{make-wrap\ 384}#
-                       (#{wrap-marks\ 386}# #{w2\ 1228}#)
-                       (#{smart-append\ 428}#
-                         #{s1\ 1234}#
-                         (#{wrap-subst\ 388}# #{w2\ 1228}#))))
-                   (#{make-wrap\ 384}#
-                     (#{smart-append\ 428}#
-                       #{m1\ 1233}#
-                       (#{wrap-marks\ 386}# #{w2\ 1228}#))
-                     (#{smart-append\ 428}#
-                       #{s1\ 1234}#
-                       (#{wrap-subst\ 388}# #{w2\ 1228}#))))))))
-         (#{join-marks\ 432}#
-           (lambda (#{m1\ 1235}# #{m2\ 1236}#)
-             (#{smart-append\ 428}# #{m1\ 1235}# #{m2\ 1236}#)))
-         (#{same-marks?\ 434}#
-           (lambda (#{x\ 1239}# #{y\ 1240}#)
+               (let ((#{m1\ 1234}# (#{wrap-marks\ 387}# #{w1\ 1228}#))
+                     (#{s1\ 1235}# (#{wrap-subst\ 389}# #{w1\ 1228}#)))
+                 (if (null? #{m1\ 1234}#)
+                   (if (null? #{s1\ 1235}#)
+                     #{w2\ 1229}#
+                     (#{make-wrap\ 385}#
+                       (#{wrap-marks\ 387}# #{w2\ 1229}#)
+                       (#{smart-append\ 429}#
+                         #{s1\ 1235}#
+                         (#{wrap-subst\ 389}# #{w2\ 1229}#))))
+                   (#{make-wrap\ 385}#
+                     (#{smart-append\ 429}#
+                       #{m1\ 1234}#
+                       (#{wrap-marks\ 387}# #{w2\ 1229}#))
+                     (#{smart-append\ 429}#
+                       #{s1\ 1235}#
+                       (#{wrap-subst\ 389}# #{w2\ 1229}#))))))))
+         (#{join-marks\ 433}#
+           (lambda (#{m1\ 1236}# #{m2\ 1237}#)
+             (#{smart-append\ 429}# #{m1\ 1236}# #{m2\ 1237}#)))
+         (#{same-marks?\ 435}#
+           (lambda (#{x\ 1240}# #{y\ 1241}#)
              (begin
-               (let ((#{t\ 1245}# (eq? #{x\ 1239}# #{y\ 1240}#)))
-                 (if #{t\ 1245}#
-                   #{t\ 1245}#
-                   (if (not (null? #{x\ 1239}#))
-                     (if (not (null? #{y\ 1240}#))
-                       (if (eq? (car #{x\ 1239}#) (car #{y\ 1240}#))
-                         (#{same-marks?\ 434}#
-                           (cdr #{x\ 1239}#)
-                           (cdr #{y\ 1240}#))
+               (let ((#{t\ 1246}# (eq? #{x\ 1240}# #{y\ 1241}#)))
+                 (if #{t\ 1246}#
+                   #{t\ 1246}#
+                   (if (not (null? #{x\ 1240}#))
+                     (if (not (null? #{y\ 1241}#))
+                       (if (eq? (car #{x\ 1240}#) (car #{y\ 1241}#))
+                         (#{same-marks?\ 435}#
+                           (cdr #{x\ 1240}#)
+                           (cdr #{y\ 1241}#))
                          #f)
                        #f)
                      #f))))))
-         (#{id-var-name\ 436}#
-           (lambda (#{id\ 1251}# #{w\ 1252}#)
+         (#{id-var-name\ 437}#
+           (lambda (#{id\ 1252}# #{w\ 1253}#)
              (letrec*
-               ((#{search\ 1257}#
-                  (lambda (#{sym\ 1273}# #{subst\ 1274}# #{marks\ 1275}#)
-                    (if (null? #{subst\ 1274}#)
-                      (values #f #{marks\ 1275}#)
+               ((#{search\ 1258}#
+                  (lambda (#{sym\ 1274}# #{subst\ 1275}# #{marks\ 1276}#)
+                    (if (null? #{subst\ 1275}#)
+                      (values #f #{marks\ 1276}#)
                       (begin
-                        (let ((#{fst\ 1280}# (car #{subst\ 1274}#)))
-                          (if (eq? #{fst\ 1280}# (quote shift))
-                            (#{search\ 1257}#
-                              #{sym\ 1273}#
-                              (cdr #{subst\ 1274}#)
-                              (cdr #{marks\ 1275}#))
+                        (let ((#{fst\ 1281}# (car #{subst\ 1275}#)))
+                          (if (eq? #{fst\ 1281}# (quote shift))
+                            (#{search\ 1258}#
+                              #{sym\ 1274}#
+                              (cdr #{subst\ 1275}#)
+                              (cdr #{marks\ 1276}#))
                             (begin
-                              (let ((#{symnames\ 1282}#
-                                      (#{ribcage-symnames\ 404}#
-                                        #{fst\ 1280}#)))
-                                (if (vector? #{symnames\ 1282}#)
-                                  (#{search-vector-rib\ 1261}#
-                                    #{sym\ 1273}#
-                                    #{subst\ 1274}#
-                                    #{marks\ 1275}#
-                                    #{symnames\ 1282}#
-                                    #{fst\ 1280}#)
-                                  (#{search-list-rib\ 1259}#
-                                    #{sym\ 1273}#
-                                    #{subst\ 1274}#
-                                    #{marks\ 1275}#
-                                    #{symnames\ 1282}#
-                                    #{fst\ 1280}#))))))))))
-                (#{search-list-rib\ 1259}#
-                  (lambda (#{sym\ 1283}#
-                           #{subst\ 1284}#
-                           #{marks\ 1285}#
-                           #{symnames\ 1286}#
-                           #{ribcage\ 1287}#)
+                              (let ((#{symnames\ 1283}#
+                                      (#{ribcage-symnames\ 405}#
+                                        #{fst\ 1281}#)))
+                                (if (vector? #{symnames\ 1283}#)
+                                  (#{search-vector-rib\ 1262}#
+                                    #{sym\ 1274}#
+                                    #{subst\ 1275}#
+                                    #{marks\ 1276}#
+                                    #{symnames\ 1283}#
+                                    #{fst\ 1281}#)
+                                  (#{search-list-rib\ 1260}#
+                                    #{sym\ 1274}#
+                                    #{subst\ 1275}#
+                                    #{marks\ 1276}#
+                                    #{symnames\ 1283}#
+                                    #{fst\ 1281}#))))))))))
+                (#{search-list-rib\ 1260}#
+                  (lambda (#{sym\ 1284}#
+                           #{subst\ 1285}#
+                           #{marks\ 1286}#
+                           #{symnames\ 1287}#
+                           #{ribcage\ 1288}#)
                     (letrec*
-                      ((#{f\ 1296}#
-                         (lambda (#{symnames\ 1297}# #{i\ 1298}#)
-                           (if (null? #{symnames\ 1297}#)
-                             (#{search\ 1257}#
-                               #{sym\ 1283}#
-                               (cdr #{subst\ 1284}#)
-                               #{marks\ 1285}#)
-                             (if (if (eq? (car #{symnames\ 1297}#)
-                                          #{sym\ 1283}#)
-                                   (#{same-marks?\ 434}#
-                                     #{marks\ 1285}#
+                      ((#{f\ 1297}#
+                         (lambda (#{symnames\ 1298}# #{i\ 1299}#)
+                           (if (null? #{symnames\ 1298}#)
+                             (#{search\ 1258}#
+                               #{sym\ 1284}#
+                               (cdr #{subst\ 1285}#)
+                               #{marks\ 1286}#)
+                             (if (if (eq? (car #{symnames\ 1298}#)
+                                          #{sym\ 1284}#)
+                                   (#{same-marks?\ 435}#
+                                     #{marks\ 1286}#
                                      (list-ref
-                                       (#{ribcage-marks\ 406}#
-                                         #{ribcage\ 1287}#)
-                                       #{i\ 1298}#))
+                                       (#{ribcage-marks\ 407}#
+                                         #{ribcage\ 1288}#)
+                                       #{i\ 1299}#))
                                    #f)
                                (values
                                  (list-ref
-                                   (#{ribcage-labels\ 408}# #{ribcage\ 1287}#)
-                                   #{i\ 1298}#)
-                                 #{marks\ 1285}#)
-                               (#{f\ 1296}#
-                                 (cdr #{symnames\ 1297}#)
-                                 (#{fx+\ 280}# #{i\ 1298}# 1)))))))
-                      (begin (#{f\ 1296}# #{symnames\ 1286}# 0)))))
-                (#{search-vector-rib\ 1261}#
-                  (lambda (#{sym\ 1306}#
-                           #{subst\ 1307}#
-                           #{marks\ 1308}#
-                           #{symnames\ 1309}#
-                           #{ribcage\ 1310}#)
+                                   (#{ribcage-labels\ 409}# #{ribcage\ 1288}#)
+                                   #{i\ 1299}#)
+                                 #{marks\ 1286}#)
+                               (#{f\ 1297}#
+                                 (cdr #{symnames\ 1298}#)
+                                 (#{fx+\ 281}# #{i\ 1299}# 1)))))))
+                      (begin (#{f\ 1297}# #{symnames\ 1287}# 0)))))
+                (#{search-vector-rib\ 1262}#
+                  (lambda (#{sym\ 1307}#
+                           #{subst\ 1308}#
+                           #{marks\ 1309}#
+                           #{symnames\ 1310}#
+                           #{ribcage\ 1311}#)
                     (begin
-                      (let ((#{n\ 1317}# (vector-length #{symnames\ 1309}#)))
+                      (let ((#{n\ 1318}# (vector-length #{symnames\ 1310}#)))
                         (letrec*
-                          ((#{f\ 1320}#
-                             (lambda (#{i\ 1321}#)
-                               (if (#{fx=\ 284}# #{i\ 1321}# #{n\ 1317}#)
-                                 (#{search\ 1257}#
-                                   #{sym\ 1306}#
-                                   (cdr #{subst\ 1307}#)
-                                   #{marks\ 1308}#)
+                          ((#{f\ 1321}#
+                             (lambda (#{i\ 1322}#)
+                               (if (#{fx=\ 285}# #{i\ 1322}# #{n\ 1318}#)
+                                 (#{search\ 1258}#
+                                   #{sym\ 1307}#
+                                   (cdr #{subst\ 1308}#)
+                                   #{marks\ 1309}#)
                                  (if (if (eq? (vector-ref
-                                                #{symnames\ 1309}#
-                                                #{i\ 1321}#)
-                                              #{sym\ 1306}#)
-                                       (#{same-marks?\ 434}#
-                                         #{marks\ 1308}#
+                                                #{symnames\ 1310}#
+                                                #{i\ 1322}#)
+                                              #{sym\ 1307}#)
+                                       (#{same-marks?\ 435}#
+                                         #{marks\ 1309}#
                                          (vector-ref
-                                           (#{ribcage-marks\ 406}#
-                                             #{ribcage\ 1310}#)
-                                           #{i\ 1321}#))
+                                           (#{ribcage-marks\ 407}#
+                                             #{ribcage\ 1311}#)
+                                           #{i\ 1322}#))
                                        #f)
                                    (values
                                      (vector-ref
-                                       (#{ribcage-labels\ 408}#
-                                         #{ribcage\ 1310}#)
-                                       #{i\ 1321}#)
-                                     #{marks\ 1308}#)
-                                   (#{f\ 1320}#
-                                     (#{fx+\ 280}# #{i\ 1321}# 1)))))))
-                          (begin (#{f\ 1320}# 0))))))))
+                                       (#{ribcage-labels\ 409}#
+                                         #{ribcage\ 1311}#)
+                                       #{i\ 1322}#)
+                                     #{marks\ 1309}#)
+                                   (#{f\ 1321}#
+                                     (#{fx+\ 281}# #{i\ 1322}# 1)))))))
+                          (begin (#{f\ 1321}# 0))))))))
                (begin
-                 (if (symbol? #{id\ 1251}#)
+                 (if (symbol? #{id\ 1252}#)
                    (begin
-                     (let ((#{t\ 1331}#
+                     (let ((#{t\ 1332}#
                              (call-with-values
                                (lambda ()
-                                 (#{search\ 1257}#
-                                   #{id\ 1251}#
-                                   (#{wrap-subst\ 388}# #{w\ 1252}#)
-                                   (#{wrap-marks\ 386}# #{w\ 1252}#)))
-                               (lambda (#{x\ 1333}# . #{ignore\ 1334}#)
-                                 #{x\ 1333}#))))
-                       (if #{t\ 1331}# #{t\ 1331}# #{id\ 1251}#)))
-                   (if (#{syntax-object?\ 343}# #{id\ 1251}#)
+                                 (#{search\ 1258}#
+                                   #{id\ 1252}#
+                                   (#{wrap-subst\ 389}# #{w\ 1253}#)
+                                   (#{wrap-marks\ 387}# #{w\ 1253}#)))
+                               (lambda (#{x\ 1334}# . #{ignore\ 1335}#)
+                                 #{x\ 1334}#))))
+                       (if #{t\ 1332}# #{t\ 1332}# #{id\ 1252}#)))
+                   (if (#{syntax-object?\ 344}# #{id\ 1252}#)
                      (begin
-                       (let ((#{id\ 1342}#
-                               (#{syntax-object-expression\ 345}#
-                                 #{id\ 1251}#))
-                             (#{w1\ 1343}#
-                               (#{syntax-object-wrap\ 347}# #{id\ 1251}#)))
+                       (let ((#{id\ 1343}#
+                               (#{syntax-object-expression\ 346}#
+                                 #{id\ 1252}#))
+                             (#{w1\ 1344}#
+                               (#{syntax-object-wrap\ 348}# #{id\ 1252}#)))
                          (begin
-                           (let ((#{marks\ 1345}#
-                                   (#{join-marks\ 432}#
-                                     (#{wrap-marks\ 386}# #{w\ 1252}#)
-                                     (#{wrap-marks\ 386}# #{w1\ 1343}#))))
+                           (let ((#{marks\ 1346}#
+                                   (#{join-marks\ 433}#
+                                     (#{wrap-marks\ 387}# #{w\ 1253}#)
+                                     (#{wrap-marks\ 387}# #{w1\ 1344}#))))
                              (call-with-values
                                (lambda ()
-                                 (#{search\ 1257}#
-                                   #{id\ 1342}#
-                                   (#{wrap-subst\ 388}# #{w\ 1252}#)
-                                   #{marks\ 1345}#))
-                               (lambda (#{new-id\ 1346}# #{marks\ 1347}#)
+                                 (#{search\ 1258}#
+                                   #{id\ 1343}#
+                                   (#{wrap-subst\ 389}# #{w\ 1253}#)
+                                   #{marks\ 1346}#))
+                               (lambda (#{new-id\ 1347}# #{marks\ 1348}#)
                                  (begin
-                                   (let ((#{t\ 1352}# #{new-id\ 1346}#))
-                                     (if #{t\ 1352}#
-                                       #{t\ 1352}#
+                                   (let ((#{t\ 1353}# #{new-id\ 1347}#))
+                                     (if #{t\ 1353}#
+                                       #{t\ 1353}#
                                        (begin
-                                         (let ((#{t\ 1355}#
+                                         (let ((#{t\ 1356}#
                                                  (call-with-values
                                                    (lambda ()
-                                                     (#{search\ 1257}#
-                                                       #{id\ 1342}#
-                                                       (#{wrap-subst\ 388}#
-                                                         #{w1\ 1343}#)
-                                                       #{marks\ 1347}#))
-                                                   (lambda (#{x\ 1357}#
+                                                     (#{search\ 1258}#
+                                                       #{id\ 1343}#
+                                                       (#{wrap-subst\ 389}#
+                                                         #{w1\ 1344}#)
+                                                       #{marks\ 1348}#))
+                                                   (lambda (#{x\ 1358}#
                                                             .
-                                                            #{ignore\ 1358}#)
-                                                     #{x\ 1357}#))))
-                                           (if #{t\ 1355}#
-                                             #{t\ 1355}#
-                                             #{id\ 1342}#))))))))))))
+                                                            #{ignore\ 1359}#)
+                                                     #{x\ 1358}#))))
+                                           (if #{t\ 1356}#
+                                             #{t\ 1356}#
+                                             #{id\ 1343}#))))))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 1251}#)))))))
-         (#{free-id=?\ 438}#
-           (lambda (#{i\ 1363}# #{j\ 1364}#)
+                       #{id\ 1252}#)))))))
+         (#{free-id=?\ 439}#
+           (lambda (#{i\ 1364}# #{j\ 1365}#)
              (if (eq? (begin
-                        (let ((#{x\ 1370}# #{i\ 1363}#))
-                          (if (#{syntax-object?\ 343}# #{x\ 1370}#)
-                            (#{syntax-object-expression\ 345}# #{x\ 1370}#)
-                            #{x\ 1370}#)))
+                        (let ((#{x\ 1371}# #{i\ 1364}#))
+                          (if (#{syntax-object?\ 344}# #{x\ 1371}#)
+                            (#{syntax-object-expression\ 346}# #{x\ 1371}#)
+                            #{x\ 1371}#)))
                       (begin
-                        (let ((#{x\ 1373}# #{j\ 1364}#))
-                          (if (#{syntax-object?\ 343}# #{x\ 1373}#)
-                            (#{syntax-object-expression\ 345}# #{x\ 1373}#)
-                            #{x\ 1373}#))))
-               (eq? (#{id-var-name\ 436}# #{i\ 1363}# (quote (())))
-                    (#{id-var-name\ 436}# #{j\ 1364}# (quote (()))))
+                        (let ((#{x\ 1374}# #{j\ 1365}#))
+                          (if (#{syntax-object?\ 344}# #{x\ 1374}#)
+                            (#{syntax-object-expression\ 346}# #{x\ 1374}#)
+                            #{x\ 1374}#))))
+               (eq? (#{id-var-name\ 437}# #{i\ 1364}# (quote (())))
+                    (#{id-var-name\ 437}# #{j\ 1365}# (quote (()))))
                #f)))
-         (#{bound-id=?\ 440}#
-           (lambda (#{i\ 1377}# #{j\ 1378}#)
-             (if (if (#{syntax-object?\ 343}# #{i\ 1377}#)
-                   (#{syntax-object?\ 343}# #{j\ 1378}#)
+         (#{bound-id=?\ 441}#
+           (lambda (#{i\ 1378}# #{j\ 1379}#)
+             (if (if (#{syntax-object?\ 344}# #{i\ 1378}#)
+                   (#{syntax-object?\ 344}# #{j\ 1379}#)
                    #f)
-               (if (eq? (#{syntax-object-expression\ 345}# #{i\ 1377}#)
-                        (#{syntax-object-expression\ 345}# #{j\ 1378}#))
-                 (#{same-marks?\ 434}#
-                   (#{wrap-marks\ 386}#
-                     (#{syntax-object-wrap\ 347}# #{i\ 1377}#))
-                   (#{wrap-marks\ 386}#
-                     (#{syntax-object-wrap\ 347}# #{j\ 1378}#)))
+               (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1378}#)
+                        (#{syntax-object-expression\ 346}# #{j\ 1379}#))
+                 (#{same-marks?\ 435}#
+                   (#{wrap-marks\ 387}#
+                     (#{syntax-object-wrap\ 348}# #{i\ 1378}#))
+                   (#{wrap-marks\ 387}#
+                     (#{syntax-object-wrap\ 348}# #{j\ 1379}#)))
                  #f)
-               (eq? #{i\ 1377}# #{j\ 1378}#))))
-         (#{valid-bound-ids?\ 442}#
-           (lambda (#{ids\ 1385}#)
+               (eq? #{i\ 1378}# #{j\ 1379}#))))
+         (#{valid-bound-ids?\ 443}#
+           (lambda (#{ids\ 1386}#)
              (if (letrec*
-                   ((#{all-ids?\ 1390}#
-                      (lambda (#{ids\ 1391}#)
+                   ((#{all-ids?\ 1391}#
+                      (lambda (#{ids\ 1392}#)
                         (begin
-                          (let ((#{t\ 1394}# (null? #{ids\ 1391}#)))
-                            (if #{t\ 1394}#
-                              #{t\ 1394}#
-                              (if (#{id?\ 379}# (car #{ids\ 1391}#))
-                                (#{all-ids?\ 1390}# (cdr #{ids\ 1391}#))
+                          (let ((#{t\ 1395}# (null? #{ids\ 1392}#)))
+                            (if #{t\ 1395}#
+                              #{t\ 1395}#
+                              (if (#{id?\ 380}# (car #{ids\ 1392}#))
+                                (#{all-ids?\ 1391}# (cdr #{ids\ 1392}#))
                                 #f)))))))
-                   (begin (#{all-ids?\ 1390}# #{ids\ 1385}#)))
-               (#{distinct-bound-ids?\ 444}# #{ids\ 1385}#)
+                   (begin (#{all-ids?\ 1391}# #{ids\ 1386}#)))
+               (#{distinct-bound-ids?\ 445}# #{ids\ 1386}#)
                #f)))
-         (#{distinct-bound-ids?\ 444}#
-           (lambda (#{ids\ 1399}#)
+         (#{distinct-bound-ids?\ 445}#
+           (lambda (#{ids\ 1400}#)
              (letrec*
-               ((#{distinct?\ 1403}#
-                  (lambda (#{ids\ 1404}#)
+               ((#{distinct?\ 1404}#
+                  (lambda (#{ids\ 1405}#)
                     (begin
-                      (let ((#{t\ 1407}# (null? #{ids\ 1404}#)))
-                        (if #{t\ 1407}#
-                          #{t\ 1407}#
-                          (if (not (#{bound-id-member?\ 446}#
-                                     (car #{ids\ 1404}#)
-                                     (cdr #{ids\ 1404}#)))
-                            (#{distinct?\ 1403}# (cdr #{ids\ 1404}#))
+                      (let ((#{t\ 1408}# (null? #{ids\ 1405}#)))
+                        (if #{t\ 1408}#
+                          #{t\ 1408}#
+                          (if (not (#{bound-id-member?\ 447}#
+                                     (car #{ids\ 1405}#)
+                                     (cdr #{ids\ 1405}#)))
+                            (#{distinct?\ 1404}# (cdr #{ids\ 1405}#))
                             #f)))))))
-               (begin (#{distinct?\ 1403}# #{ids\ 1399}#)))))
-         (#{bound-id-member?\ 446}#
-           (lambda (#{x\ 1411}# #{list\ 1412}#)
-             (if (not (null? #{list\ 1412}#))
+               (begin (#{distinct?\ 1404}# #{ids\ 1400}#)))))
+         (#{bound-id-member?\ 447}#
+           (lambda (#{x\ 1412}# #{list\ 1413}#)
+             (if (not (null? #{list\ 1413}#))
                (begin
-                 (let ((#{t\ 1419}#
-                         (#{bound-id=?\ 440}#
-                           #{x\ 1411}#
-                           (car #{list\ 1412}#))))
-                   (if #{t\ 1419}#
-                     #{t\ 1419}#
-                     (#{bound-id-member?\ 446}#
-                       #{x\ 1411}#
-                       (cdr #{list\ 1412}#)))))
+                 (let ((#{t\ 1420}#
+                         (#{bound-id=?\ 441}#
+                           #{x\ 1412}#
+                           (car #{list\ 1413}#))))
+                   (if #{t\ 1420}#
+                     #{t\ 1420}#
+                     (#{bound-id-member?\ 447}#
+                       #{x\ 1412}#
+                       (cdr #{list\ 1413}#)))))
                #f)))
-         (#{wrap\ 448}#
-           (lambda (#{x\ 1421}# #{w\ 1422}# #{defmod\ 1423}#)
-             (if (if (null? (#{wrap-marks\ 386}# #{w\ 1422}#))
-                   (null? (#{wrap-subst\ 388}# #{w\ 1422}#))
+         (#{wrap\ 449}#
+           (lambda (#{x\ 1422}# #{w\ 1423}# #{defmod\ 1424}#)
+             (if (if (null? (#{wrap-marks\ 387}# #{w\ 1423}#))
+                   (null? (#{wrap-subst\ 389}# #{w\ 1423}#))
                    #f)
-               #{x\ 1421}#
-               (if (#{syntax-object?\ 343}# #{x\ 1421}#)
-                 (#{make-syntax-object\ 341}#
-                   (#{syntax-object-expression\ 345}# #{x\ 1421}#)
-                   (#{join-wraps\ 430}#
-                     #{w\ 1422}#
-                     (#{syntax-object-wrap\ 347}# #{x\ 1421}#))
-                   (#{syntax-object-module\ 349}# #{x\ 1421}#))
-                 (if (null? #{x\ 1421}#)
-                   #{x\ 1421}#
-                   (#{make-syntax-object\ 341}#
-                     #{x\ 1421}#
-                     #{w\ 1422}#
-                     #{defmod\ 1423}#))))))
-         (#{source-wrap\ 450}#
-           (lambda (#{x\ 1436}#
-                    #{w\ 1437}#
-                    #{s\ 1438}#
-                    #{defmod\ 1439}#)
-             (#{wrap\ 448}#
-               (#{decorate-source\ 297}#
-                 #{x\ 1436}#
-                 #{s\ 1438}#)
-               #{w\ 1437}#
-               #{defmod\ 1439}#)))
-         (#{chi-sequence\ 452}#
-           (lambda (#{body\ 1444}#
-                    #{r\ 1445}#
-                    #{w\ 1446}#
-                    #{s\ 1447}#
-                    #{mod\ 1448}#)
-             (#{build-sequence\ 331}#
-               #{s\ 1447}#
+               #{x\ 1422}#
+               (if (#{syntax-object?\ 344}# #{x\ 1422}#)
+                 (#{make-syntax-object\ 342}#
+                   (#{syntax-object-expression\ 346}# #{x\ 1422}#)
+                   (#{join-wraps\ 431}#
+                     #{w\ 1423}#
+                     (#{syntax-object-wrap\ 348}# #{x\ 1422}#))
+                   (#{syntax-object-module\ 350}# #{x\ 1422}#))
+                 (if (null? #{x\ 1422}#)
+                   #{x\ 1422}#
+                   (#{make-syntax-object\ 342}#
+                     #{x\ 1422}#
+                     #{w\ 1423}#
+                     #{defmod\ 1424}#))))))
+         (#{source-wrap\ 451}#
+           (lambda (#{x\ 1437}#
+                    #{w\ 1438}#
+                    #{s\ 1439}#
+                    #{defmod\ 1440}#)
+             (#{wrap\ 449}#
+               (#{decorate-source\ 298}#
+                 #{x\ 1437}#
+                 #{s\ 1439}#)
+               #{w\ 1438}#
+               #{defmod\ 1440}#)))
+         (#{chi-sequence\ 453}#
+           (lambda (#{body\ 1445}#
+                    #{r\ 1446}#
+                    #{w\ 1447}#
+                    #{s\ 1448}#
+                    #{mod\ 1449}#)
+             (#{build-sequence\ 332}#
+               #{s\ 1448}#
                (letrec*
-                 ((#{dobody\ 1459}#
-                    (lambda (#{body\ 1460}#
-                             #{r\ 1461}#
-                             #{w\ 1462}#
-                             #{mod\ 1463}#)
-                      (if (null? #{body\ 1460}#)
+                 ((#{dobody\ 1460}#
+                    (lambda (#{body\ 1461}#
+                             #{r\ 1462}#
+                             #{w\ 1463}#
+                             #{mod\ 1464}#)
+                      (if (null? #{body\ 1461}#)
                         '()
                         (begin
-                          (let ((#{first\ 1465}#
-                                  (#{chi\ 464}#
-                                    (car #{body\ 1460}#)
-                                    #{r\ 1461}#
-                                    #{w\ 1462}#
-                                    #{mod\ 1463}#)))
-                            (cons #{first\ 1465}#
-                                  (#{dobody\ 1459}#
-                                    (cdr #{body\ 1460}#)
-                                    #{r\ 1461}#
-                                    #{w\ 1462}#
-                                    #{mod\ 1463}#))))))))
+                          (let ((#{first\ 1466}#
+                                  (#{chi\ 465}#
+                                    (car #{body\ 1461}#)
+                                    #{r\ 1462}#
+                                    #{w\ 1463}#
+                                    #{mod\ 1464}#)))
+                            (cons #{first\ 1466}#
+                                  (#{dobody\ 1460}#
+                                    (cdr #{body\ 1461}#)
+                                    #{r\ 1462}#
+                                    #{w\ 1463}#
+                                    #{mod\ 1464}#))))))))
                  (begin
-                   (#{dobody\ 1459}#
-                     #{body\ 1444}#
-                     #{r\ 1445}#
-                     #{w\ 1446}#
-                     #{mod\ 1448}#))))))
-         (#{chi-top-sequence\ 454}#
-           (lambda (#{body\ 1466}#
-                    #{r\ 1467}#
-                    #{w\ 1468}#
-                    #{s\ 1469}#
-                    #{m\ 1470}#
-                    #{esew\ 1471}#
-                    #{mod\ 1472}#)
-             (#{build-sequence\ 331}#
-               #{s\ 1469}#
+                   (#{dobody\ 1460}#
+                     #{body\ 1445}#
+                     #{r\ 1446}#
+                     #{w\ 1447}#
+                     #{mod\ 1449}#))))))
+         (#{chi-top-sequence\ 455}#
+           (lambda (#{body\ 1467}#
+                    #{r\ 1468}#
+                    #{w\ 1469}#
+                    #{s\ 1470}#
+                    #{m\ 1471}#
+                    #{esew\ 1472}#
+                    #{mod\ 1473}#)
+             (#{build-sequence\ 332}#
+               #{s\ 1470}#
                (letrec*
-                 ((#{dobody\ 1488}#
-                    (lambda (#{body\ 1489}#
-                             #{r\ 1490}#
-                             #{w\ 1491}#
-                             #{m\ 1492}#
-                             #{esew\ 1493}#
-                             #{mod\ 1494}#
-                             #{out\ 1495}#)
-                      (if (null? #{body\ 1489}#)
-                        (reverse #{out\ 1495}#)
-                        (#{dobody\ 1488}#
-                          (cdr #{body\ 1489}#)
-                          #{r\ 1490}#
-                          #{w\ 1491}#
-                          #{m\ 1492}#
-                          #{esew\ 1493}#
-                          #{mod\ 1494}#
-                          (cons (#{chi-top\ 462}#
-                                  (car #{body\ 1489}#)
-                                  #{r\ 1490}#
-                                  #{w\ 1491}#
-                                  #{m\ 1492}#
-                                  #{esew\ 1493}#
-                                  #{mod\ 1494}#)
-                                #{out\ 1495}#))))))
+                 ((#{dobody\ 1489}#
+                    (lambda (#{body\ 1490}#
+                             #{r\ 1491}#
+                             #{w\ 1492}#
+                             #{m\ 1493}#
+                             #{esew\ 1494}#
+                             #{mod\ 1495}#
+                             #{out\ 1496}#)
+                      (if (null? #{body\ 1490}#)
+                        (reverse #{out\ 1496}#)
+                        (#{dobody\ 1489}#
+                          (cdr #{body\ 1490}#)
+                          #{r\ 1491}#
+                          #{w\ 1492}#
+                          #{m\ 1493}#
+                          #{esew\ 1494}#
+                          #{mod\ 1495}#
+                          (cons (#{chi-top\ 463}#
+                                  (car #{body\ 1490}#)
+                                  #{r\ 1491}#
+                                  #{w\ 1492}#
+                                  #{m\ 1493}#
+                                  #{esew\ 1494}#
+                                  #{mod\ 1495}#)
+                                #{out\ 1496}#))))))
                  (begin
-                   (#{dobody\ 1488}#
-                     #{body\ 1466}#
-                     #{r\ 1467}#
-                     #{w\ 1468}#
-                     #{m\ 1470}#
-                     #{esew\ 1471}#
-                     #{mod\ 1472}#
+                   (#{dobody\ 1489}#
+                     #{body\ 1467}#
+                     #{r\ 1468}#
+                     #{w\ 1469}#
+                     #{m\ 1471}#
+                     #{esew\ 1472}#
+                     #{mod\ 1473}#
                      '()))))))
-         (#{chi-install-global\ 456}#
-           (lambda (#{name\ 1496}# #{e\ 1497}#)
-             (#{build-global-definition\ 319}#
+         (#{chi-install-global\ 457}#
+           (lambda (#{name\ 1497}# #{e\ 1498}#)
+             (#{build-global-definition\ 320}#
                #f
-               #{name\ 1496}#
-               (#{build-application\ 303}#
+               #{name\ 1497}#
+               (#{build-application\ 304}#
                  #f
-                 (#{build-primref\ 327}#
+                 (#{build-primref\ 328}#
                    #f
                    'make-syntax-transformer)
-                 (list (#{build-data\ 329}# #f #{name\ 1496}#)
-                       (#{build-data\ 329}# #f (quote macro))
-                       #{e\ 1497}#)))))
-         (#{chi-when-list\ 458}#
-           (lambda (#{e\ 1505}# #{when-list\ 1506}# #{w\ 1507}#)
+                 (list (#{build-data\ 330}# #f #{name\ 1497}#)
+                       (#{build-data\ 330}# #f (quote macro))
+                       #{e\ 1498}#)))))
+         (#{chi-when-list\ 459}#
+           (lambda (#{e\ 1506}# #{when-list\ 1507}# #{w\ 1508}#)
              (letrec*
-               ((#{f\ 1514}#
-                  (lambda (#{when-list\ 1515}# #{situations\ 1516}#)
-                    (if (null? #{when-list\ 1515}#)
-                      #{situations\ 1516}#
-                      (#{f\ 1514}#
-                        (cdr #{when-list\ 1515}#)
+               ((#{f\ 1515}#
+                  (lambda (#{when-list\ 1516}# #{situations\ 1517}#)
+                    (if (null? #{when-list\ 1516}#)
+                      #{situations\ 1517}#
+                      (#{f\ 1515}#
+                        (cdr #{when-list\ 1516}#)
                         (cons (begin
-                                (let ((#{x\ 1518}# (car #{when-list\ 1515}#)))
-                                  (if (#{free-id=?\ 438}#
-                                        #{x\ 1518}#
+                                (let ((#{x\ 1519}# (car #{when-list\ 1516}#)))
+                                  (if (#{free-id=?\ 439}#
+                                        #{x\ 1519}#
                                         '#(syntax-object
                                            compile
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage () () ())
-                                            #(ribcage #(x) #((top)) #("i1517"))
+                                            #(ribcage #(x) #((top)) #("i1518"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(f when-list situations)
                                               #((top) (top) (top))
-                                              #("i1511" "i1512" "i1513"))
+                                              #("i1512" "i1513" "i1514"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(e when-list w)
                                               #((top) (top) (top))
-                                              #("i1508" "i1509" "i1510"))
+                                              #("i1509" "i1510" "i1511"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
@@ -1493,154 +1493,154 @@
                                                (top)
                                                (top)
                                                (top))
-                                              ("i493"
-                                               "i491"
-                                               "i489"
-                                               "i487"
-                                               "i485"
-                                               "i483"
-                                               "i481"
-                                               "i479"
-                                               "i477"
-                                               "i475"
-                                               "i473"
-                                               "i471"
-                                               "i469"
-                                               "i467"
-                                               "i465"
-                                               "i463"
-                                               "i461"
-                                               "i459"
-                                               "i457"
-                                               "i455"
-                                               "i453"
-                                               "i451"
-                                               "i449"
-                                               "i447"
-                                               "i445"
-                                               "i443"
-                                               "i441"
-                                               "i439"
-                                               "i437"
-                                               "i435"
-                                               "i433"
-                                               "i431"
-                                               "i429"
-                                               "i427"
-                                               "i425"
+                                              ("i494"
+                                               "i492"
+                                               "i490"
+                                               "i488"
+                                               "i486"
+                                               "i484"
+                                               "i482"
+                                               "i480"
+                                               "i478"
+                                               "i476"
+                                               "i474"
+                                               "i472"
+                                               "i470"
+                                               "i468"
+                                               "i466"
+                                               "i464"
+                                               "i462"
+                                               "i460"
+                                               "i458"
+                                               "i456"
+                                               "i454"
+                                               "i452"
+                                               "i450"
+                                               "i448"
+                                               "i446"
+                                               "i444"
+                                               "i442"
+                                               "i440"
+                                               "i438"
+                                               "i436"
+                                               "i434"
+                                               "i432"
+                                               "i430"
+                                               "i428"
+                                               "i426"
+                                               "i424"
                                                "i423"
                                                "i422"
-                                               "i421"
+                                               "i420"
                                                "i419"
                                                "i418"
                                                "i417"
                                                "i416"
-                                               "i415"
-                                               "i413"
-                                               "i411"
-                                               "i409"
-                                               "i407"
-                                               "i405"
-                                               "i403"
-                                               "i401"
-                                               "i399"
-                                               "i396"
+                                               "i414"
+                                               "i412"
+                                               "i410"
+                                               "i408"
+                                               "i406"
+                                               "i404"
+                                               "i402"
+                                               "i400"
+                                               "i397"
+                                               "i395"
                                                "i394"
                                                "i393"
                                                "i392"
                                                "i391"
                                                "i390"
-                                               "i389"
-                                               "i387"
-                                               "i385"
-                                               "i383"
+                                               "i388"
+                                               "i386"
+                                               "i384"
+                                               "i382"
                                                "i381"
-                                               "i380"
-                                               "i378"
-                                               "i376"
-                                               "i374"
-                                               "i372"
-                                               "i370"
-                                               "i368"
+                                               "i379"
+                                               "i377"
+                                               "i375"
+                                               "i373"
+                                               "i371"
+                                               "i369"
+                                               "i367"
                                                "i366"
-                                               "i365"
-                                               "i363"
+                                               "i364"
+                                               "i362"
                                                "i361"
                                                "i360"
-                                               "i359"
+                                               "i358"
                                                "i357"
-                                               "i356"
-                                               "i354"
-                                               "i352"
-                                               "i350"
-                                               "i348"
-                                               "i346"
-                                               "i344"
-                                               "i342"
-                                               "i340"
-                                               "i338"
-                                               "i336"
-                                               "i334"
-                                               "i332"
-                                               "i330"
-                                               "i328"
-                                               "i326"
-                                               "i324"
-                                               "i322"
-                                               "i320"
-                                               "i318"
-                                               "i316"
-                                               "i314"
-                                               "i312"
-                                               "i310"
-                                               "i308"
-                                               "i306"
-                                               "i304"
-                                               "i302"
-                                               "i300"
-                                               "i298"
-                                               "i296"
-                                               "i294"
+                                               "i355"
+                                               "i353"
+                                               "i351"
+                                               "i349"
+                                               "i347"
+                                               "i345"
+                                               "i343"
+                                               "i341"
+                                               "i339"
+                                               "i337"
+                                               "i335"
+                                               "i333"
+                                               "i331"
+                                               "i329"
+                                               "i327"
+                                               "i325"
+                                               "i323"
+                                               "i321"
+                                               "i319"
+                                               "i317"
+                                               "i315"
+                                               "i313"
+                                               "i311"
+                                               "i309"
+                                               "i307"
+                                               "i305"
+                                               "i303"
+                                               "i301"
+                                               "i299"
+                                               "i297"
+                                               "i295"
+                                               "i293"
                                                "i292"
-                                               "i291"
-                                               "i289"
-                                               "i287"
-                                               "i285"
-                                               "i283"
-                                               "i281"
-                                               "i279"
-                                               "i277"
-                                               "i275"
-                                               "i273"
-                                               "i270"
-                                               "i268"
-                                               "i266"
-                                               "i264"
-                                               "i262"
-                                               "i260"
-                                               "i258"
-                                               "i256"
-                                               "i254"
-                                               "i252"
-                                               "i250"
-                                               "i248"
-                                               "i246"
-                                               "i244"
-                                               "i242"
-                                               "i240"
-                                               "i238"
-                                               "i236"))
+                                               "i290"
+                                               "i288"
+                                               "i286"
+                                               "i284"
+                                               "i282"
+                                               "i280"
+                                               "i278"
+                                               "i276"
+                                               "i274"
+                                               "i271"
+                                               "i269"
+                                               "i267"
+                                               "i265"
+                                               "i263"
+                                               "i261"
+                                               "i259"
+                                               "i257"
+                                               "i255"
+                                               "i253"
+                                               "i251"
+                                               "i249"
+                                               "i247"
+                                               "i245"
+                                               "i243"
+                                               "i241"
+                                               "i239"
+                                               "i237"))
                                             #(ribcage
                                               (define-structure
                                                 define-expansion-accessors
                                                 define-expansion-constructors
                                                 and-map*)
                                               ((top) (top) (top) (top))
-                                              ("i38" "i37" "i36" "i34")))
+                                              ("i39" "i38" "i37" "i35")))
                                            (hygiene guile)))
                                     'compile
-                                    (if (#{free-id=?\ 438}#
-                                          #{x\ 1518}#
+                                    (if (#{free-id=?\ 439}#
+                                          #{x\ 1519}#
                                           '#(syntax-object
                                              load
                                              ((top)
@@ -1650,17 +1650,17 @@
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i1517"))
+                                                #("i1518"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(f when-list situations)
                                                 #((top) (top) (top))
-                                                #("i1511" "i1512" "i1513"))
+                                                #("i1512" "i1513" "i1514"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(e when-list w)
                                                 #((top) (top) (top))
-                                                #("i1508" "i1509" "i1510"))
+                                                #("i1509" "i1510" "i1511"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -1936,154 +1936,154 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("i493"
-                                                 "i491"
-                                                 "i489"
-                                                 "i487"
-                                                 "i485"
-                                                 "i483"
-                                                 "i481"
-                                                 "i479"
-                                                 "i477"
-                                                 "i475"
-                                                 "i473"
-                                                 "i471"
-                                                 "i469"
-                                                 "i467"
-                                                 "i465"
-                                                 "i463"
-                                                 "i461"
-                                                 "i459"
-                                                 "i457"
-                                                 "i455"
-                                                 "i453"
-                                                 "i451"
-                                                 "i449"
-                                                 "i447"
-                                                 "i445"
-                                                 "i443"
-                                                 "i441"
-                                                 "i439"
-                                                 "i437"
-                                                 "i435"
-                                                 "i433"
-                                                 "i431"
-                                                 "i429"
-                                                 "i427"
-                                                 "i425"
+                                                ("i494"
+                                                 "i492"
+                                                 "i490"
+                                                 "i488"
+                                                 "i486"
+                                                 "i484"
+                                                 "i482"
+                                                 "i480"
+                                                 "i478"
+                                                 "i476"
+                                                 "i474"
+                                                 "i472"
+                                                 "i470"
+                                                 "i468"
+                                                 "i466"
+                                                 "i464"
+                                                 "i462"
+                                                 "i460"
+                                                 "i458"
+                                                 "i456"
+                                                 "i454"
+                                                 "i452"
+                                                 "i450"
+                                                 "i448"
+                                                 "i446"
+                                                 "i444"
+                                                 "i442"
+                                                 "i440"
+                                                 "i438"
+                                                 "i436"
+                                                 "i434"
+                                                 "i432"
+                                                 "i430"
+                                                 "i428"
+                                                 "i426"
+                                                 "i424"
                                                  "i423"
                                                  "i422"
-                                                 "i421"
+                                                 "i420"
                                                  "i419"
                                                  "i418"
                                                  "i417"
                                                  "i416"
-                                                 "i415"
-                                                 "i413"
-                                                 "i411"
-                                                 "i409"
-                                                 "i407"
-                                                 "i405"
-                                                 "i403"
-                                                 "i401"
-                                                 "i399"
-                                                 "i396"
+                                                 "i414"
+                                                 "i412"
+                                                 "i410"
+                                                 "i408"
+                                                 "i406"
+                                                 "i404"
+                                                 "i402"
+                                                 "i400"
+                                                 "i397"
+                                                 "i395"
                                                  "i394"
                                                  "i393"
                                                  "i392"
                                                  "i391"
                                                  "i390"
-                                                 "i389"
-                                                 "i387"
-                                                 "i385"
-                                                 "i383"
+                                                 "i388"
+                                                 "i386"
+                                                 "i384"
+                                                 "i382"
                                                  "i381"
-                                                 "i380"
-                                                 "i378"
-                                                 "i376"
-                                                 "i374"
-                                                 "i372"
-                                                 "i370"
-                                                 "i368"
+                                                 "i379"
+                                                 "i377"
+                                                 "i375"
+                                                 "i373"
+                                                 "i371"
+                                                 "i369"
+                                                 "i367"
                                                  "i366"
-                                                 "i365"
-                                                 "i363"
+                                                 "i364"
+                                                 "i362"
                                                  "i361"
                                                  "i360"
-                                                 "i359"
+                                                 "i358"
                                                  "i357"
-                                                 "i356"
-                                                 "i354"
-                                                 "i352"
-                                                 "i350"
-                                                 "i348"
-                                                 "i346"
-                                                 "i344"
-                                                 "i342"
-                                                 "i340"
-                                                 "i338"
-                                                 "i336"
-                                                 "i334"
-                                                 "i332"
-                                                 "i330"
-                                                 "i328"
-                                                 "i326"
-                                                 "i324"
-                                                 "i322"
-                                                 "i320"
-                                                 "i318"
-                                                 "i316"
-                                                 "i314"
-                                                 "i312"
-                                                 "i310"
-                                                 "i308"
-                                                 "i306"
-                                                 "i304"
-                                                 "i302"
-                                                 "i300"
-                                                 "i298"
-                                                 "i296"
-                                                 "i294"
+                                                 "i355"
+                                                 "i353"
+                                                 "i351"
+                                                 "i349"
+                                                 "i347"
+                                                 "i345"
+                                                 "i343"
+                                                 "i341"
+                                                 "i339"
+                                                 "i337"
+                                                 "i335"
+                                                 "i333"
+                                                 "i331"
+                                                 "i329"
+                                                 "i327"
+                                                 "i325"
+                                                 "i323"
+                                                 "i321"
+                                                 "i319"
+                                                 "i317"
+                                                 "i315"
+                                                 "i313"
+                                                 "i311"
+                                                 "i309"
+                                                 "i307"
+                                                 "i305"
+                                                 "i303"
+                                                 "i301"
+                                                 "i299"
+                                                 "i297"
+                                                 "i295"
+                                                 "i293"
                                                  "i292"
-                                                 "i291"
-                                                 "i289"
-                                                 "i287"
-                                                 "i285"
-                                                 "i283"
-                                                 "i281"
-                                                 "i279"
-                                                 "i277"
-                                                 "i275"
-                                                 "i273"
-                                                 "i270"
-                                                 "i268"
-                                                 "i266"
-                                                 "i264"
-                                                 "i262"
-                                                 "i260"
-                                                 "i258"
-                                                 "i256"
-                                                 "i254"
-                                                 "i252"
-                                                 "i250"
-                                                 "i248"
-                                                 "i246"
-                                                 "i244"
-                                                 "i242"
-                                                 "i240"
-                                                 "i238"
-                                                 "i236"))
+                                                 "i290"
+                                                 "i288"
+                                                 "i286"
+                                                 "i284"
+                                                 "i282"
+                                                 "i280"
+                                                 "i278"
+                                                 "i276"
+                                                 "i274"
+                                                 "i271"
+                                                 "i269"
+                                                 "i267"
+                                                 "i265"
+                                                 "i263"
+                                                 "i261"
+                                                 "i259"
+                                                 "i257"
+                                                 "i255"
+                                                 "i253"
+                                                 "i251"
+                                                 "i249"
+                                                 "i247"
+                                                 "i245"
+                                                 "i243"
+                                                 "i241"
+                                                 "i239"
+                                                 "i237"))
                                               #(ribcage
                                                 (define-structure
                                                   define-expansion-accessors
                                                   define-expansion-constructors
                                                   and-map*)
                                                 ((top) (top) (top) (top))
-                                                ("i38" "i37" "i36" "i34")))
+                                                ("i39" "i38" "i37" "i35")))
                                              (hygiene guile)))
                                       'load
-                                      (if (#{free-id=?\ 438}#
-                                            #{x\ 1518}#
+                                      (if (#{free-id=?\ 439}#
+                                            #{x\ 1519}#
                                             '#(syntax-object
                                                eval
                                                ((top)
@@ -2093,17 +2093,17 @@
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
-                                                  #("i1517"))
+                                                  #("i1518"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(f when-list situations)
                                                   #((top) (top) (top))
-                                                  #("i1511" "i1512" "i1513"))
+                                                  #("i1512" "i1513" "i1514"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(e when-list w)
                                                   #((top) (top) (top))
-                                                  #("i1508" "i1509" "i1510"))
+                                                  #("i1509" "i1510" "i1511"))
                                                 #(ribcage
                                                   (lambda-var-list
                                                     gen-var
@@ -2379,154 +2379,154 @@
                                                    (top)
                                                    (top)
                                                    (top))
-                                                  ("i493"
-                                                   "i491"
-                                                   "i489"
-                                                   "i487"
-                                                   "i485"
-                                                   "i483"
-                                                   "i481"
-                                                   "i479"
-                                                   "i477"
-                                                   "i475"
-                                                   "i473"
-                                                   "i471"
-                                                   "i469"
-                                                   "i467"
-                                                   "i465"
-                                                   "i463"
-                                                   "i461"
-                                                   "i459"
-                                                   "i457"
-                                                   "i455"
-                                                   "i453"
-                                                   "i451"
-                                                   "i449"
-                                                   "i447"
-                                                   "i445"
-                                                   "i443"
-                                                   "i441"
-                                                   "i439"
-                                                   "i437"
-                                                   "i435"
-                                                   "i433"
-                                                   "i431"
-                                                   "i429"
-                                                   "i427"
-                                                   "i425"
+                                                  ("i494"
+                                                   "i492"
+                                                   "i490"
+                                                   "i488"
+                                                   "i486"
+                                                   "i484"
+                                                   "i482"
+                                                   "i480"
+                                                   "i478"
+                                                   "i476"
+                                                   "i474"
+                                                   "i472"
+                                                   "i470"
+                                                   "i468"
+                                                   "i466"
+                                                   "i464"
+                                                   "i462"
+                                                   "i460"
+                                                   "i458"
+                                                   "i456"
+                                                   "i454"
+                                                   "i452"
+                                                   "i450"
+                                                   "i448"
+                                                   "i446"
+                                                   "i444"
+                                                   "i442"
+                                                   "i440"
+                                                   "i438"
+                                                   "i436"
+                                                   "i434"
+                                                   "i432"
+                                                   "i430"
+                                                   "i428"
+                                                   "i426"
+                                                   "i424"
                                                    "i423"
                                                    "i422"
-                                                   "i421"
+                                                   "i420"
                                                    "i419"
                                                    "i418"
                                                    "i417"
                                                    "i416"
-                                                   "i415"
-                                                   "i413"
-                                                   "i411"
-                                                   "i409"
-                                                   "i407"
-                                                   "i405"
-                                                   "i403"
-                                                   "i401"
-                                                   "i399"
-                                                   "i396"
+                                                   "i414"
+                                                   "i412"
+                                                   "i410"
+                                                   "i408"
+                                                   "i406"
+                                                   "i404"
+                                                   "i402"
+                                                   "i400"
+                                                   "i397"
+                                                   "i395"
                                                    "i394"
                                                    "i393"
                                                    "i392"
                                                    "i391"
                                                    "i390"
-                                                   "i389"
-                                                   "i387"
-                                                   "i385"
-                                                   "i383"
+                                                   "i388"
+                                                   "i386"
+                                                   "i384"
+                                                   "i382"
                                                    "i381"
-                                                   "i380"
-                                                   "i378"
-                                                   "i376"
-                                                   "i374"
-                                                   "i372"
-                                                   "i370"
-                                                   "i368"
+                                                   "i379"
+                                                   "i377"
+                                                   "i375"
+                                                   "i373"
+                                                   "i371"
+                                                   "i369"
+                                                   "i367"
                                                    "i366"
-                                                   "i365"
-                                                   "i363"
+                                                   "i364"
+                                                   "i362"
                                                    "i361"
                                                    "i360"
-                                                   "i359"
+                                                   "i358"
                                                    "i357"
-                                                   "i356"
-                                                   "i354"
-                                                   "i352"
-                                                   "i350"
-                                                   "i348"
-                                                   "i346"
-                                                   "i344"
-                                                   "i342"
-                                                   "i340"
-                                                   "i338"
-                                                   "i336"
-                                                   "i334"
-                                                   "i332"
-                                                   "i330"
-                                                   "i328"
-                                                   "i326"
-                                                   "i324"
-                                                   "i322"
-                                                   "i320"
-                                                   "i318"
-                                                   "i316"
-                                                   "i314"
-                                                   "i312"
-                                                   "i310"
-                                                   "i308"
-                                                   "i306"
-                                                   "i304"
-                                                   "i302"
-                                                   "i300"
-                                                   "i298"
-                                                   "i296"
-                                                   "i294"
+                                                   "i355"
+                                                   "i353"
+                                                   "i351"
+                                                   "i349"
+                                                   "i347"
+                                                   "i345"
+                                                   "i343"
+                                                   "i341"
+                                                   "i339"
+                                                   "i337"
+                                                   "i335"
+                                                   "i333"
+                                                   "i331"
+                                                   "i329"
+                                                   "i327"
+                                                   "i325"
+                                                   "i323"
+                                                   "i321"
+                                                   "i319"
+                                                   "i317"
+                                                   "i315"
+                                                   "i313"
+                                                   "i311"
+                                                   "i309"
+                                                   "i307"
+                                                   "i305"
+                                                   "i303"
+                                                   "i301"
+                                                   "i299"
+                                                   "i297"
+                                                   "i295"
+                                                   "i293"
                                                    "i292"
-                                                   "i291"
-                                                   "i289"
-                                                   "i287"
-                                                   "i285"
-                                                   "i283"
-                                                   "i281"
-                                                   "i279"
-                                                   "i277"
-                                                   "i275"
-                                                   "i273"
-                                                   "i270"
-                                                   "i268"
-                                                   "i266"
-                                                   "i264"
-                                                   "i262"
-                                                   "i260"
-                                                   "i258"
-                                                   "i256"
-                                                   "i254"
-                                                   "i252"
-                                                   "i250"
-                                                   "i248"
-                                                   "i246"
-                                                   "i244"
-                                                   "i242"
-                                                   "i240"
-                                                   "i238"
-                                                   "i236"))
+                                                   "i290"
+                                                   "i288"
+                                                   "i286"
+                                                   "i284"
+                                                   "i282"
+                                                   "i280"
+                                                   "i278"
+                                                   "i276"
+                                                   "i274"
+                                                   "i271"
+                                                   "i269"
+                                                   "i267"
+                                                   "i265"
+                                                   "i263"
+                                                   "i261"
+                                                   "i259"
+                                                   "i257"
+                                                   "i255"
+                                                   "i253"
+                                                   "i251"
+                                                   "i249"
+                                                   "i247"
+                                                   "i245"
+                                                   "i243"
+                                                   "i241"
+                                                   "i239"
+                                                   "i237"))
                                                 #(ribcage
                                                   (define-structure
                                                     define-expansion-accessors
                                                     
define-expansion-constructors
                                                     and-map*)
                                                   ((top) (top) (top) (top))
-                                                  ("i38" "i37" "i36" "i34")))
+                                                  ("i39" "i38" "i37" "i35")))
                                                (hygiene guile)))
                                         'eval
-                                        (if (#{free-id=?\ 438}#
-                                              #{x\ 1518}#
+                                        (if (#{free-id=?\ 439}#
+                                              #{x\ 1519}#
                                               '#(syntax-object
                                                  expand
                                                  ((top)
@@ -2536,17 +2536,17 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i1517"))
+                                                    #("i1518"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i1511" "i1512" "i1513"))
+                                                    #("i1512" "i1513" "i1514"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i1508" "i1509" "i1510"))
+                                                    #("i1509" "i1510" "i1511"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -2822,398 +2822,398 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i493"
-                                                     "i491"
-                                                     "i489"
-                                                     "i487"
-                                                     "i485"
-                                                     "i483"
-                                                     "i481"
-                                                     "i479"
-                                                     "i477"
-                                                     "i475"
-                                                     "i473"
-                                                     "i471"
-                                                     "i469"
-                                                     "i467"
-                                                     "i465"
-                                                     "i463"
-                                                     "i461"
-                                                     "i459"
-                                                     "i457"
-                                                     "i455"
-                                                     "i453"
-                                                     "i451"
-                                                     "i449"
-                                                     "i447"
-                                                     "i445"
-                                                     "i443"
-                                                     "i441"
-                                                     "i439"
-                                                     "i437"
-                                                     "i435"
-                                                     "i433"
-                                                     "i431"
-                                                     "i429"
-                                                     "i427"
-                                                     "i425"
+                                                    ("i494"
+                                                     "i492"
+                                                     "i490"
+                                                     "i488"
+                                                     "i486"
+                                                     "i484"
+                                                     "i482"
+                                                     "i480"
+                                                     "i478"
+                                                     "i476"
+                                                     "i474"
+                                                     "i472"
+                                                     "i470"
+                                                     "i468"
+                                                     "i466"
+                                                     "i464"
+                                                     "i462"
+                                                     "i460"
+                                                     "i458"
+                                                     "i456"
+                                                     "i454"
+                                                     "i452"
+                                                     "i450"
+                                                     "i448"
+                                                     "i446"
+                                                     "i444"
+                                                     "i442"
+                                                     "i440"
+                                                     "i438"
+                                                     "i436"
+                                                     "i434"
+                                                     "i432"
+                                                     "i430"
+                                                     "i428"
+                                                     "i426"
+                                                     "i424"
                                                      "i423"
                                                      "i422"
-                                                     "i421"
+                                                     "i420"
                                                      "i419"
                                                      "i418"
                                                      "i417"
                                                      "i416"
-                                                     "i415"
-                                                     "i413"
-                                                     "i411"
-                                                     "i409"
-                                                     "i407"
-                                                     "i405"
-                                                     "i403"
-                                                     "i401"
-                                                     "i399"
-                                                     "i396"
+                                                     "i414"
+                                                     "i412"
+                                                     "i410"
+                                                     "i408"
+                                                     "i406"
+                                                     "i404"
+                                                     "i402"
+                                                     "i400"
+                                                     "i397"
+                                                     "i395"
                                                      "i394"
                                                      "i393"
                                                      "i392"
                                                      "i391"
                                                      "i390"
-                                                     "i389"
-                                                     "i387"
-                                                     "i385"
-                                                     "i383"
+                                                     "i388"
+                                                     "i386"
+                                                     "i384"
+                                                     "i382"
                                                      "i381"
-                                                     "i380"
-                                                     "i378"
-                                                     "i376"
-                                                     "i374"
-                                                     "i372"
-                                                     "i370"
-                                                     "i368"
+                                                     "i379"
+                                                     "i377"
+                                                     "i375"
+                                                     "i373"
+                                                     "i371"
+                                                     "i369"
+                                                     "i367"
                                                      "i366"
-                                                     "i365"
-                                                     "i363"
+                                                     "i364"
+                                                     "i362"
                                                      "i361"
                                                      "i360"
-                                                     "i359"
+                                                     "i358"
                                                      "i357"
-                                                     "i356"
-                                                     "i354"
-                                                     "i352"
-                                                     "i350"
-                                                     "i348"
-                                                     "i346"
-                                                     "i344"
-                                                     "i342"
-                                                     "i340"
-                                                     "i338"
-                                                     "i336"
-                                                     "i334"
-                                                     "i332"
-                                                     "i330"
-                                                     "i328"
-                                                     "i326"
-                                                     "i324"
-                                                     "i322"
-                                                     "i320"
-                                                     "i318"
-                                                     "i316"
-                                                     "i314"
-                                                     "i312"
-                                                     "i310"
-                                                     "i308"
-                                                     "i306"
-                                                     "i304"
-                                                     "i302"
-                                                     "i300"
-                                                     "i298"
-                                                     "i296"
-                                                     "i294"
+                                                     "i355"
+                                                     "i353"
+                                                     "i351"
+                                                     "i349"
+                                                     "i347"
+                                                     "i345"
+                                                     "i343"
+                                                     "i341"
+                                                     "i339"
+                                                     "i337"
+                                                     "i335"
+                                                     "i333"
+                                                     "i331"
+                                                     "i329"
+                                                     "i327"
+                                                     "i325"
+                                                     "i323"
+                                                     "i321"
+                                                     "i319"
+                                                     "i317"
+                                                     "i315"
+                                                     "i313"
+                                                     "i311"
+                                                     "i309"
+                                                     "i307"
+                                                     "i305"
+                                                     "i303"
+                                                     "i301"
+                                                     "i299"
+                                                     "i297"
+                                                     "i295"
+                                                     "i293"
                                                      "i292"
-                                                     "i291"
-                                                     "i289"
-                                                     "i287"
-                                                     "i285"
-                                                     "i283"
-                                                     "i281"
-                                                     "i279"
-                                                     "i277"
-                                                     "i275"
-                                                     "i273"
-                                                     "i270"
-                                                     "i268"
-                                                     "i266"
-                                                     "i264"
-                                                     "i262"
-                                                     "i260"
-                                                     "i258"
-                                                     "i256"
-                                                     "i254"
-                                                     "i252"
-                                                     "i250"
-                                                     "i248"
-                                                     "i246"
-                                                     "i244"
-                                                     "i242"
-                                                     "i240"
-                                                     "i238"
-                                                     "i236"))
+                                                     "i290"
+                                                     "i288"
+                                                     "i286"
+                                                     "i284"
+                                                     "i282"
+                                                     "i280"
+                                                     "i278"
+                                                     "i276"
+                                                     "i274"
+                                                     "i271"
+                                                     "i269"
+                                                     "i267"
+                                                     "i265"
+                                                     "i263"
+                                                     "i261"
+                                                     "i259"
+                                                     "i257"
+                                                     "i255"
+                                                     "i253"
+                                                     "i251"
+                                                     "i249"
+                                                     "i247"
+                                                     "i245"
+                                                     "i243"
+                                                     "i241"
+                                                     "i239"
+                                                     "i237"))
                                                   #(ribcage
                                                     (define-structure
                                                       
define-expansion-accessors
                                                       
define-expansion-constructors
                                                       and-map*)
                                                     ((top) (top) (top) (top))
-                                                    ("i38" "i37" "i36" "i34")))
+                                                    ("i39" "i38" "i37" "i35")))
                                                  (hygiene guile)))
                                           'expand
                                           (syntax-violation
                                             'eval-when
                                             "invalid situation"
-                                            #{e\ 1505}#
-                                            (#{wrap\ 448}#
-                                              #{x\ 1518}#
-                                              #{w\ 1507}#
+                                            #{e\ 1506}#
+                                            (#{wrap\ 449}#
+                                              #{x\ 1519}#
+                                              #{w\ 1508}#
                                               #f))))))))
-                              #{situations\ 1516}#))))))
+                              #{situations\ 1517}#))))))
                (begin
-                 (#{f\ 1514}# #{when-list\ 1506}# (quote ()))))))
-         (#{syntax-type\ 460}#
-           (lambda (#{e\ 1528}#
-                    #{r\ 1529}#
-                    #{w\ 1530}#
-                    #{s\ 1531}#
-                    #{rib\ 1532}#
-                    #{mod\ 1533}#
-                    #{for-car?\ 1534}#)
-             (if (symbol? #{e\ 1528}#)
+                 (#{f\ 1515}# #{when-list\ 1507}# (quote ()))))))
+         (#{syntax-type\ 461}#
+           (lambda (#{e\ 1529}#
+                    #{r\ 1530}#
+                    #{w\ 1531}#
+                    #{s\ 1532}#
+                    #{rib\ 1533}#
+                    #{mod\ 1534}#
+                    #{for-car?\ 1535}#)
+             (if (symbol? #{e\ 1529}#)
                (begin
-                 (let ((#{n\ 1546}#
-                         (#{id-var-name\ 436}# #{e\ 1528}# #{w\ 1530}#)))
+                 (let ((#{n\ 1547}#
+                         (#{id-var-name\ 437}# #{e\ 1529}# #{w\ 1531}#)))
                    (begin
-                     (let ((#{b\ 1548}#
-                             (#{lookup\ 373}#
-                               #{n\ 1546}#
-                               #{r\ 1529}#
-                               #{mod\ 1533}#)))
+                     (let ((#{b\ 1549}#
+                             (#{lookup\ 374}#
+                               #{n\ 1547}#
+                               #{r\ 1530}#
+                               #{mod\ 1534}#)))
                        (begin
-                         (let ((#{type\ 1550}#
-                                 (#{binding-type\ 362}# #{b\ 1548}#)))
-                           (if (eqv? #{type\ 1550}# (quote lexical))
+                         (let ((#{type\ 1551}#
+                                 (#{binding-type\ 363}# #{b\ 1549}#)))
+                           (if (eqv? #{type\ 1551}# (quote lexical))
                              (values
-                               #{type\ 1550}#
-                               (#{binding-value\ 364}# #{b\ 1548}#)
-                               #{e\ 1528}#
-                               #{w\ 1530}#
-                               #{s\ 1531}#
-                               #{mod\ 1533}#)
-                             (if (eqv? #{type\ 1550}# (quote global))
+                               #{type\ 1551}#
+                               (#{binding-value\ 365}# #{b\ 1549}#)
+                               #{e\ 1529}#
+                               #{w\ 1531}#
+                               #{s\ 1532}#
+                               #{mod\ 1534}#)
+                             (if (eqv? #{type\ 1551}# (quote global))
                                (values
-                                 #{type\ 1550}#
-                                 #{n\ 1546}#
-                                 #{e\ 1528}#
-                                 #{w\ 1530}#
-                                 #{s\ 1531}#
-                                 #{mod\ 1533}#)
-                               (if (eqv? #{type\ 1550}# (quote macro))
-                                 (if #{for-car?\ 1534}#
+                                 #{type\ 1551}#
+                                 #{n\ 1547}#
+                                 #{e\ 1529}#
+                                 #{w\ 1531}#
+                                 #{s\ 1532}#
+                                 #{mod\ 1534}#)
+                               (if (eqv? #{type\ 1551}# (quote macro))
+                                 (if #{for-car?\ 1535}#
                                    (values
-                                     #{type\ 1550}#
-                                     (#{binding-value\ 364}# #{b\ 1548}#)
-                                     #{e\ 1528}#
-                                     #{w\ 1530}#
-                                     #{s\ 1531}#
-                                     #{mod\ 1533}#)
-                                   (#{syntax-type\ 460}#
-                                     (#{chi-macro\ 470}#
-                                       (#{binding-value\ 364}# #{b\ 1548}#)
-                                       #{e\ 1528}#
-                                       #{r\ 1529}#
-                                       #{w\ 1530}#
-                                       #{s\ 1531}#
-                                       #{rib\ 1532}#
-                                       #{mod\ 1533}#)
-                                     #{r\ 1529}#
+                                     #{type\ 1551}#
+                                     (#{binding-value\ 365}# #{b\ 1549}#)
+                                     #{e\ 1529}#
+                                     #{w\ 1531}#
+                                     #{s\ 1532}#
+                                     #{mod\ 1534}#)
+                                   (#{syntax-type\ 461}#
+                                     (#{chi-macro\ 471}#
+                                       (#{binding-value\ 365}# #{b\ 1549}#)
+                                       #{e\ 1529}#
+                                       #{r\ 1530}#
+                                       #{w\ 1531}#
+                                       #{s\ 1532}#
+                                       #{rib\ 1533}#
+                                       #{mod\ 1534}#)
+                                     #{r\ 1530}#
                                      '(())
-                                     #{s\ 1531}#
-                                     #{rib\ 1532}#
-                                     #{mod\ 1533}#
+                                     #{s\ 1532}#
+                                     #{rib\ 1533}#
+                                     #{mod\ 1534}#
                                      #f))
                                  (values
-                                   #{type\ 1550}#
-                                   (#{binding-value\ 364}# #{b\ 1548}#)
-                                   #{e\ 1528}#
-                                   #{w\ 1530}#
-                                   #{s\ 1531}#
-                                   #{mod\ 1533}#))))))))))
-               (if (pair? #{e\ 1528}#)
+                                   #{type\ 1551}#
+                                   (#{binding-value\ 365}# #{b\ 1549}#)
+                                   #{e\ 1529}#
+                                   #{w\ 1531}#
+                                   #{s\ 1532}#
+                                   #{mod\ 1534}#))))))))))
+               (if (pair? #{e\ 1529}#)
                  (begin
-                   (let ((#{first\ 1559}# (car #{e\ 1528}#)))
+                   (let ((#{first\ 1560}# (car #{e\ 1529}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 460}#
-                           #{first\ 1559}#
-                           #{r\ 1529}#
-                           #{w\ 1530}#
-                           #{s\ 1531}#
-                           #{rib\ 1532}#
-                           #{mod\ 1533}#
+                         (#{syntax-type\ 461}#
+                           #{first\ 1560}#
+                           #{r\ 1530}#
+                           #{w\ 1531}#
+                           #{s\ 1532}#
+                           #{rib\ 1533}#
+                           #{mod\ 1534}#
                            #t))
-                       (lambda (#{ftype\ 1560}#
-                                #{fval\ 1561}#
-                                #{fe\ 1562}#
-                                #{fw\ 1563}#
-                                #{fs\ 1564}#
-                                #{fmod\ 1565}#)
-                         (if (eqv? #{ftype\ 1560}# (quote lexical))
+                       (lambda (#{ftype\ 1561}#
+                                #{fval\ 1562}#
+                                #{fe\ 1563}#
+                                #{fw\ 1564}#
+                                #{fs\ 1565}#
+                                #{fmod\ 1566}#)
+                         (if (eqv? #{ftype\ 1561}# (quote lexical))
                            (values
                              'lexical-call
-                             #{fval\ 1561}#
-                             #{e\ 1528}#
-                             #{w\ 1530}#
-                             #{s\ 1531}#
-                             #{mod\ 1533}#)
-                           (if (eqv? #{ftype\ 1560}# (quote global))
+                             #{fval\ 1562}#
+                             #{e\ 1529}#
+                             #{w\ 1531}#
+                             #{s\ 1532}#
+                             #{mod\ 1534}#)
+                           (if (eqv? #{ftype\ 1561}# (quote global))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 341}#
-                                 #{fval\ 1561}#
-                                 #{w\ 1530}#
-                                 #{fmod\ 1565}#)
-                               #{e\ 1528}#
-                               #{w\ 1530}#
-                               #{s\ 1531}#
-                               #{mod\ 1533}#)
-                             (if (eqv? #{ftype\ 1560}# (quote macro))
-                               (#{syntax-type\ 460}#
-                                 (#{chi-macro\ 470}#
-                                   #{fval\ 1561}#
-                                   #{e\ 1528}#
-                                   #{r\ 1529}#
-                                   #{w\ 1530}#
-                                   #{s\ 1531}#
-                                   #{rib\ 1532}#
-                                   #{mod\ 1533}#)
-                                 #{r\ 1529}#
+                               (#{make-syntax-object\ 342}#
+                                 #{fval\ 1562}#
+                                 #{w\ 1531}#
+                                 #{fmod\ 1566}#)
+                               #{e\ 1529}#
+                               #{w\ 1531}#
+                               #{s\ 1532}#
+                               #{mod\ 1534}#)
+                             (if (eqv? #{ftype\ 1561}# (quote macro))
+                               (#{syntax-type\ 461}#
+                                 (#{chi-macro\ 471}#
+                                   #{fval\ 1562}#
+                                   #{e\ 1529}#
+                                   #{r\ 1530}#
+                                   #{w\ 1531}#
+                                   #{s\ 1532}#
+                                   #{rib\ 1533}#
+                                   #{mod\ 1534}#)
+                                 #{r\ 1530}#
                                  '(())
-                                 #{s\ 1531}#
-                                 #{rib\ 1532}#
-                                 #{mod\ 1533}#
-                                 #{for-car?\ 1534}#)
-                               (if (eqv? #{ftype\ 1560}# (quote module-ref))
+                                 #{s\ 1532}#
+                                 #{rib\ 1533}#
+                                 #{mod\ 1534}#
+                                 #{for-car?\ 1535}#)
+                               (if (eqv? #{ftype\ 1561}# (quote module-ref))
                                  (call-with-values
                                    (lambda ()
-                                     (#{fval\ 1561}#
-                                       #{e\ 1528}#
-                                       #{r\ 1529}#
-                                       #{w\ 1530}#))
-                                   (lambda (#{e\ 1577}#
-                                            #{r\ 1578}#
-                                            #{w\ 1579}#
-                                            #{s\ 1580}#
-                                            #{mod\ 1581}#)
-                                     (#{syntax-type\ 460}#
-                                       #{e\ 1577}#
-                                       #{r\ 1578}#
-                                       #{w\ 1579}#
-                                       #{s\ 1580}#
-                                       #{rib\ 1532}#
-                                       #{mod\ 1581}#
-                                       #{for-car?\ 1534}#)))
-                                 (if (eqv? #{ftype\ 1560}# (quote core))
+                                     (#{fval\ 1562}#
+                                       #{e\ 1529}#
+                                       #{r\ 1530}#
+                                       #{w\ 1531}#))
+                                   (lambda (#{e\ 1578}#
+                                            #{r\ 1579}#
+                                            #{w\ 1580}#
+                                            #{s\ 1581}#
+                                            #{mod\ 1582}#)
+                                     (#{syntax-type\ 461}#
+                                       #{e\ 1578}#
+                                       #{r\ 1579}#
+                                       #{w\ 1580}#
+                                       #{s\ 1581}#
+                                       #{rib\ 1533}#
+                                       #{mod\ 1582}#
+                                       #{for-car?\ 1535}#)))
+                                 (if (eqv? #{ftype\ 1561}# (quote core))
                                    (values
                                      'core-form
-                                     #{fval\ 1561}#
-                                     #{e\ 1528}#
-                                     #{w\ 1530}#
-                                     #{s\ 1531}#
-                                     #{mod\ 1533}#)
-                                   (if (eqv? #{ftype\ 1560}#
+                                     #{fval\ 1562}#
+                                     #{e\ 1529}#
+                                     #{w\ 1531}#
+                                     #{s\ 1532}#
+                                     #{mod\ 1534}#)
+                                   (if (eqv? #{ftype\ 1561}#
                                              'local-syntax)
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 1561}#
-                                       #{e\ 1528}#
-                                       #{w\ 1530}#
-                                       #{s\ 1531}#
-                                       #{mod\ 1533}#)
-                                     (if (eqv? #{ftype\ 1560}# (quote begin))
+                                       #{fval\ 1562}#
+                                       #{e\ 1529}#
+                                       #{w\ 1531}#
+                                       #{s\ 1532}#
+                                       #{mod\ 1534}#)
+                                     (if (eqv? #{ftype\ 1561}# (quote begin))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 1528}#
-                                         #{w\ 1530}#
-                                         #{s\ 1531}#
-                                         #{mod\ 1533}#)
-                                       (if (eqv? #{ftype\ 1560}#
+                                         #{e\ 1529}#
+                                         #{w\ 1531}#
+                                         #{s\ 1532}#
+                                         #{mod\ 1534}#)
+                                       (if (eqv? #{ftype\ 1561}#
                                                  'eval-when)
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 1528}#
-                                           #{w\ 1530}#
-                                           #{s\ 1531}#
-                                           #{mod\ 1533}#)
-                                         (if (eqv? #{ftype\ 1560}#
+                                           #{e\ 1529}#
+                                           #{w\ 1531}#
+                                           #{s\ 1532}#
+                                           #{mod\ 1534}#)
+                                         (if (eqv? #{ftype\ 1561}#
                                                    'define)
-                                           (let ((#{tmp\ 1592}# #{e\ 1528}#))
-                                             (let ((#{tmp\ 1593}#
+                                           (let ((#{tmp\ 1593}# #{e\ 1529}#))
+                                             (let ((#{tmp\ 1594}#
                                                      ($sc-dispatch
-                                                       #{tmp\ 1592}#
+                                                       #{tmp\ 1593}#
                                                        '(_ any any))))
-                                               (if (if #{tmp\ 1593}#
+                                               (if (if #{tmp\ 1594}#
                                                      (@apply
-                                                       (lambda (#{name\ 1596}#
-                                                                #{val\ 1597}#)
-                                                         (#{id?\ 379}#
-                                                           #{name\ 1596}#))
-                                                       #{tmp\ 1593}#)
+                                                       (lambda (#{name\ 1597}#
+                                                                #{val\ 1598}#)
+                                                         (#{id?\ 380}#
+                                                           #{name\ 1597}#))
+                                                       #{tmp\ 1594}#)
                                                      #f)
                                                  (@apply
-                                                   (lambda (#{name\ 1600}#
-                                                            #{val\ 1601}#)
+                                                   (lambda (#{name\ 1601}#
+                                                            #{val\ 1602}#)
                                                      (values
                                                        'define-form
-                                                       #{name\ 1600}#
-                                                       #{val\ 1601}#
-                                                       #{w\ 1530}#
-                                                       #{s\ 1531}#
-                                                       #{mod\ 1533}#))
-                                                   #{tmp\ 1593}#)
-                                                 (let ((#{tmp\ 1602}#
+                                                       #{name\ 1601}#
+                                                       #{val\ 1602}#
+                                                       #{w\ 1531}#
+                                                       #{s\ 1532}#
+                                                       #{mod\ 1534}#))
+                                                   #{tmp\ 1594}#)
+                                                 (let ((#{tmp\ 1603}#
                                                          ($sc-dispatch
-                                                           #{tmp\ 1592}#
+                                                           #{tmp\ 1593}#
                                                            '(_ (any . any)
                                                                any
                                                                .
                                                                each-any))))
-                                                   (if (if #{tmp\ 1602}#
+                                                   (if (if #{tmp\ 1603}#
                                                          (@apply
-                                                           (lambda (#{name\ 
1607}#
-                                                                    #{args\ 
1608}#
-                                                                    #{e1\ 
1609}#
-                                                                    #{e2\ 
1610}#)
-                                                             (if (#{id?\ 379}#
-                                                                   #{name\ 
1607}#)
-                                                               
(#{valid-bound-ids?\ 442}#
-                                                                 
(#{lambda-var-list\ 494}#
-                                                                   #{args\ 
1608}#))
+                                                           (lambda (#{name\ 
1608}#
+                                                                    #{args\ 
1609}#
+                                                                    #{e1\ 
1610}#
+                                                                    #{e2\ 
1611}#)
+                                                             (if (#{id?\ 380}#
+                                                                   #{name\ 
1608}#)
+                                                               
(#{valid-bound-ids?\ 443}#
+                                                                 
(#{lambda-var-list\ 495}#
+                                                                   #{args\ 
1609}#))
                                                                #f))
-                                                           #{tmp\ 1602}#)
+                                                           #{tmp\ 1603}#)
                                                          #f)
                                                      (@apply
-                                                       (lambda (#{name\ 1617}#
-                                                                #{args\ 1618}#
-                                                                #{e1\ 1619}#
-                                                                #{e2\ 1620}#)
+                                                       (lambda (#{name\ 1618}#
+                                                                #{args\ 1619}#
+                                                                #{e1\ 1620}#
+                                                                #{e2\ 1621}#)
                                                          (values
                                                            'define-form
-                                                           (#{wrap\ 448}#
-                                                             #{name\ 1617}#
-                                                             #{w\ 1530}#
-                                                             #{mod\ 1533}#)
-                                                           (#{decorate-source\ 
297}#
+                                                           (#{wrap\ 449}#
+                                                             #{name\ 1618}#
+                                                             #{w\ 1531}#
+                                                             #{mod\ 1534}#)
+                                                           (#{decorate-source\ 
298}#
                                                              (cons 
'#(syntax-object
                                                                       lambda
                                                                       ((top)
@@ -3226,10 +3226,10 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i1613"
-                                                                           
"i1614"
+                                                                         
#("i1614"
                                                                            
"i1615"
-                                                                           
"i1616"))
+                                                                           
"i1616"
+                                                                           
"i1617"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -3251,12 +3251,12 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i1566"
-                                                                           
"i1567"
+                                                                         
#("i1567"
                                                                            
"i1568"
                                                                            
"i1569"
                                                                            
"i1570"
-                                                                           
"i1571"))
+                                                                           
"i1571"
+                                                                           
"i1572"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -3264,7 +3264,7 @@
                                                                        
#(ribcage
                                                                          
#(first)
                                                                          
#((top))
-                                                                         
#("i1558"))
+                                                                         
#("i1559"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -3292,13 +3292,13 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i1535"
-                                                                           
"i1536"
+                                                                         
#("i1536"
                                                                            
"i1537"
                                                                            
"i1538"
                                                                            
"i1539"
                                                                            
"i1540"
-                                                                           
"i1541"))
+                                                                           
"i1541"
+                                                                           
"i1542"))
                                                                        
#(ribcage
                                                                          
(lambda-var-list
                                                                            
gen-var
@@ -3574,143 +3574,143 @@
                                                                           (top)
                                                                           (top)
                                                                           
(top))
-                                                                         
("i493"
-                                                                          
"i491"
-                                                                          
"i489"
-                                                                          
"i487"
-                                                                          
"i485"
-                                                                          
"i483"
-                                                                          
"i481"
-                                                                          
"i479"
-                                                                          
"i477"
-                                                                          
"i475"
-                                                                          
"i473"
-                                                                          
"i471"
-                                                                          
"i469"
-                                                                          
"i467"
-                                                                          
"i465"
-                                                                          
"i463"
-                                                                          
"i461"
-                                                                          
"i459"
-                                                                          
"i457"
-                                                                          
"i455"
-                                                                          
"i453"
-                                                                          
"i451"
-                                                                          
"i449"
-                                                                          
"i447"
-                                                                          
"i445"
-                                                                          
"i443"
-                                                                          
"i441"
-                                                                          
"i439"
-                                                                          
"i437"
-                                                                          
"i435"
-                                                                          
"i433"
-                                                                          
"i431"
-                                                                          
"i429"
-                                                                          
"i427"
-                                                                          
"i425"
+                                                                         
("i494"
+                                                                          
"i492"
+                                                                          
"i490"
+                                                                          
"i488"
+                                                                          
"i486"
+                                                                          
"i484"
+                                                                          
"i482"
+                                                                          
"i480"
+                                                                          
"i478"
+                                                                          
"i476"
+                                                                          
"i474"
+                                                                          
"i472"
+                                                                          
"i470"
+                                                                          
"i468"
+                                                                          
"i466"
+                                                                          
"i464"
+                                                                          
"i462"
+                                                                          
"i460"
+                                                                          
"i458"
+                                                                          
"i456"
+                                                                          
"i454"
+                                                                          
"i452"
+                                                                          
"i450"
+                                                                          
"i448"
+                                                                          
"i446"
+                                                                          
"i444"
+                                                                          
"i442"
+                                                                          
"i440"
+                                                                          
"i438"
+                                                                          
"i436"
+                                                                          
"i434"
+                                                                          
"i432"
+                                                                          
"i430"
+                                                                          
"i428"
+                                                                          
"i426"
+                                                                          
"i424"
                                                                           
"i423"
                                                                           
"i422"
-                                                                          
"i421"
+                                                                          
"i420"
                                                                           
"i419"
                                                                           
"i418"
                                                                           
"i417"
                                                                           
"i416"
-                                                                          
"i415"
-                                                                          
"i413"
-                                                                          
"i411"
-                                                                          
"i409"
-                                                                          
"i407"
-                                                                          
"i405"
-                                                                          
"i403"
-                                                                          
"i401"
-                                                                          
"i399"
-                                                                          
"i396"
+                                                                          
"i414"
+                                                                          
"i412"
+                                                                          
"i410"
+                                                                          
"i408"
+                                                                          
"i406"
+                                                                          
"i404"
+                                                                          
"i402"
+                                                                          
"i400"
+                                                                          
"i397"
+                                                                          
"i395"
                                                                           
"i394"
                                                                           
"i393"
                                                                           
"i392"
                                                                           
"i391"
                                                                           
"i390"
-                                                                          
"i389"
-                                                                          
"i387"
-                                                                          
"i385"
-                                                                          
"i383"
+                                                                          
"i388"
+                                                                          
"i386"
+                                                                          
"i384"
+                                                                          
"i382"
                                                                           
"i381"
-                                                                          
"i380"
-                                                                          
"i378"
-                                                                          
"i376"
-                                                                          
"i374"
-                                                                          
"i372"
-                                                                          
"i370"
-                                                                          
"i368"
+                                                                          
"i379"
+                                                                          
"i377"
+                                                                          
"i375"
+                                                                          
"i373"
+                                                                          
"i371"
+                                                                          
"i369"
+                                                                          
"i367"
                                                                           
"i366"
-                                                                          
"i365"
-                                                                          
"i363"
+                                                                          
"i364"
+                                                                          
"i362"
                                                                           
"i361"
                                                                           
"i360"
-                                                                          
"i359"
+                                                                          
"i358"
                                                                           
"i357"
-                                                                          
"i356"
-                                                                          
"i354"
-                                                                          
"i352"
-                                                                          
"i350"
-                                                                          
"i348"
-                                                                          
"i346"
-                                                                          
"i344"
-                                                                          
"i342"
-                                                                          
"i340"
-                                                                          
"i338"
-                                                                          
"i336"
-                                                                          
"i334"
-                                                                          
"i332"
-                                                                          
"i330"
-                                                                          
"i328"
-                                                                          
"i326"
-                                                                          
"i324"
-                                                                          
"i322"
-                                                                          
"i320"
-                                                                          
"i318"
-                                                                          
"i316"
-                                                                          
"i314"
-                                                                          
"i312"
-                                                                          
"i310"
-                                                                          
"i308"
-                                                                          
"i306"
-                                                                          
"i304"
-                                                                          
"i302"
-                                                                          
"i300"
-                                                                          
"i298"
-                                                                          
"i296"
-                                                                          
"i294"
+                                                                          
"i355"
+                                                                          
"i353"
+                                                                          
"i351"
+                                                                          
"i349"
+                                                                          
"i347"
+                                                                          
"i345"
+                                                                          
"i343"
+                                                                          
"i341"
+                                                                          
"i339"
+                                                                          
"i337"
+                                                                          
"i335"
+                                                                          
"i333"
+                                                                          
"i331"
+                                                                          
"i329"
+                                                                          
"i327"
+                                                                          
"i325"
+                                                                          
"i323"
+                                                                          
"i321"
+                                                                          
"i319"
+                                                                          
"i317"
+                                                                          
"i315"
+                                                                          
"i313"
+                                                                          
"i311"
+                                                                          
"i309"
+                                                                          
"i307"
+                                                                          
"i305"
+                                                                          
"i303"
+                                                                          
"i301"
+                                                                          
"i299"
+                                                                          
"i297"
+                                                                          
"i295"
+                                                                          
"i293"
                                                                           
"i292"
-                                                                          
"i291"
-                                                                          
"i289"
-                                                                          
"i287"
-                                                                          
"i285"
-                                                                          
"i283"
-                                                                          
"i281"
-                                                                          
"i279"
-                                                                          
"i277"
-                                                                          
"i275"
-                                                                          
"i273"
-                                                                          
"i270"
-                                                                          
"i268"
-                                                                          
"i266"
-                                                                          
"i264"
-                                                                          
"i262"
-                                                                          
"i260"
-                                                                          
"i258"
-                                                                          
"i256"
-                                                                          
"i254"
-                                                                          
"i252"
-                                                                          
"i250"
-                                                                          
"i248"
-                                                                          
"i246"
-                                                                          
"i244"
-                                                                          
"i242"
-                                                                          
"i240"
-                                                                          
"i238"
-                                                                          
"i236"))
+                                                                          
"i290"
+                                                                          
"i288"
+                                                                          
"i286"
+                                                                          
"i284"
+                                                                          
"i282"
+                                                                          
"i280"
+                                                                          
"i278"
+                                                                          
"i276"
+                                                                          
"i274"
+                                                                          
"i271"
+                                                                          
"i269"
+                                                                          
"i267"
+                                                                          
"i265"
+                                                                          
"i263"
+                                                                          
"i261"
+                                                                          
"i259"
+                                                                          
"i257"
+                                                                          
"i255"
+                                                                          
"i253"
+                                                                          
"i251"
+                                                                          
"i249"
+                                                                          
"i247"
+                                                                          
"i245"
+                                                                          
"i243"
+                                                                          
"i241"
+                                                                          
"i239"
+                                                                          
"i237"))
                                                                        
#(ribcage
                                                                          
(define-structure
                                                                            
define-expansion-accessors
@@ -3720,49 +3720,49 @@
                                                                           (top)
                                                                           (top)
                                                                           
(top))
-                                                                         ("i38"
+                                                                         ("i39"
+                                                                          "i38"
                                                                           "i37"
-                                                                          "i36"
-                                                                          
"i34")))
+                                                                          
"i35")))
                                                                       (hygiene
                                                                         guile))
-                                                                   (#{wrap\ 
448}#
-                                                                     (cons 
#{args\ 1618}#
-                                                                           
(cons #{e1\ 1619}#
-                                                                               
  #{e2\ 1620}#))
-                                                                     #{w\ 
1530}#
-                                                                     #{mod\ 
1533}#))
-                                                             #{s\ 1531}#)
+                                                                   (#{wrap\ 
449}#
+                                                                     (cons 
#{args\ 1619}#
+                                                                           
(cons #{e1\ 1620}#
+                                                                               
  #{e2\ 1621}#))
+                                                                     #{w\ 
1531}#
+                                                                     #{mod\ 
1534}#))
+                                                             #{s\ 1532}#)
                                                            '(())
-                                                           #{s\ 1531}#
-                                                           #{mod\ 1533}#))
-                                                       #{tmp\ 1602}#)
-                                                     (let ((#{tmp\ 1623}#
+                                                           #{s\ 1532}#
+                                                           #{mod\ 1534}#))
+                                                       #{tmp\ 1603}#)
+                                                     (let ((#{tmp\ 1624}#
                                                              ($sc-dispatch
-                                                               #{tmp\ 1592}#
+                                                               #{tmp\ 1593}#
                                                                '(_ any))))
-                                                       (if (if #{tmp\ 1623}#
+                                                       (if (if #{tmp\ 1624}#
                                                              (@apply
-                                                               (lambda 
(#{name\ 1625}#)
-                                                                 (#{id?\ 379}#
-                                                                   #{name\ 
1625}#))
-                                                               #{tmp\ 1623}#)
+                                                               (lambda 
(#{name\ 1626}#)
+                                                                 (#{id?\ 380}#
+                                                                   #{name\ 
1626}#))
+                                                               #{tmp\ 1624}#)
                                                              #f)
                                                          (@apply
-                                                           (lambda (#{name\ 
1627}#)
+                                                           (lambda (#{name\ 
1628}#)
                                                              (values
                                                                'define-form
-                                                               (#{wrap\ 448}#
-                                                                 #{name\ 1627}#
-                                                                 #{w\ 1530}#
-                                                                 #{mod\ 1533}#)
+                                                               (#{wrap\ 449}#
+                                                                 #{name\ 1628}#
+                                                                 #{w\ 1531}#
+                                                                 #{mod\ 1534}#)
                                                                
'(#(syntax-object
                                                                    if
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(name)
                                                                       #((top))
-                                                                      
#("i1626"))
+                                                                      
#("i1627"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -3784,12 +3784,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1566"
-                                                                        "i1567"
+                                                                      #("i1567"
                                                                         "i1568"
                                                                         "i1569"
                                                                         "i1570"
-                                                                        
"i1571"))
+                                                                        "i1571"
+                                                                        
"i1572"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -3797,7 +3797,7 @@
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
-                                                                      
#("i1558"))
+                                                                      
#("i1559"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -3825,13 +3825,13 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1535"
-                                                                        "i1536"
+                                                                      #("i1536"
                                                                         "i1537"
                                                                         "i1538"
                                                                         "i1539"
                                                                         "i1540"
-                                                                        
"i1541"))
+                                                                        "i1541"
+                                                                        
"i1542"))
                                                                     #(ribcage
                                                                       
(lambda-var-list
                                                                         gen-var
@@ -4107,143 +4107,143 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i493"
-                                                                       "i491"
-                                                                       "i489"
-                                                                       "i487"
-                                                                       "i485"
-                                                                       "i483"
-                                                                       "i481"
-                                                                       "i479"
-                                                                       "i477"
-                                                                       "i475"
-                                                                       "i473"
-                                                                       "i471"
-                                                                       "i469"
-                                                                       "i467"
-                                                                       "i465"
-                                                                       "i463"
-                                                                       "i461"
-                                                                       "i459"
-                                                                       "i457"
-                                                                       "i455"
-                                                                       "i453"
-                                                                       "i451"
-                                                                       "i449"
-                                                                       "i447"
-                                                                       "i445"
-                                                                       "i443"
-                                                                       "i441"
-                                                                       "i439"
-                                                                       "i437"
-                                                                       "i435"
-                                                                       "i433"
-                                                                       "i431"
-                                                                       "i429"
-                                                                       "i427"
-                                                                       "i425"
+                                                                      ("i494"
+                                                                       "i492"
+                                                                       "i490"
+                                                                       "i488"
+                                                                       "i486"
+                                                                       "i484"
+                                                                       "i482"
+                                                                       "i480"
+                                                                       "i478"
+                                                                       "i476"
+                                                                       "i474"
+                                                                       "i472"
+                                                                       "i470"
+                                                                       "i468"
+                                                                       "i466"
+                                                                       "i464"
+                                                                       "i462"
+                                                                       "i460"
+                                                                       "i458"
+                                                                       "i456"
+                                                                       "i454"
+                                                                       "i452"
+                                                                       "i450"
+                                                                       "i448"
+                                                                       "i446"
+                                                                       "i444"
+                                                                       "i442"
+                                                                       "i440"
+                                                                       "i438"
+                                                                       "i436"
+                                                                       "i434"
+                                                                       "i432"
+                                                                       "i430"
+                                                                       "i428"
+                                                                       "i426"
+                                                                       "i424"
                                                                        "i423"
                                                                        "i422"
-                                                                       "i421"
+                                                                       "i420"
                                                                        "i419"
                                                                        "i418"
                                                                        "i417"
                                                                        "i416"
-                                                                       "i415"
-                                                                       "i413"
-                                                                       "i411"
-                                                                       "i409"
-                                                                       "i407"
-                                                                       "i405"
-                                                                       "i403"
-                                                                       "i401"
-                                                                       "i399"
-                                                                       "i396"
+                                                                       "i414"
+                                                                       "i412"
+                                                                       "i410"
+                                                                       "i408"
+                                                                       "i406"
+                                                                       "i404"
+                                                                       "i402"
+                                                                       "i400"
+                                                                       "i397"
+                                                                       "i395"
                                                                        "i394"
                                                                        "i393"
                                                                        "i392"
                                                                        "i391"
                                                                        "i390"
-                                                                       "i389"
-                                                                       "i387"
-                                                                       "i385"
-                                                                       "i383"
+                                                                       "i388"
+                                                                       "i386"
+                                                                       "i384"
+                                                                       "i382"
                                                                        "i381"
-                                                                       "i380"
-                                                                       "i378"
-                                                                       "i376"
-                                                                       "i374"
-                                                                       "i372"
-                                                                       "i370"
-                                                                       "i368"
+                                                                       "i379"
+                                                                       "i377"
+                                                                       "i375"
+                                                                       "i373"
+                                                                       "i371"
+                                                                       "i369"
+                                                                       "i367"
                                                                        "i366"
-                                                                       "i365"
-                                                                       "i363"
+                                                                       "i364"
+                                                                       "i362"
                                                                        "i361"
                                                                        "i360"
-                                                                       "i359"
+                                                                       "i358"
                                                                        "i357"
-                                                                       "i356"
-                                                                       "i354"
-                                                                       "i352"
-                                                                       "i350"
-                                                                       "i348"
-                                                                       "i346"
-                                                                       "i344"
-                                                                       "i342"
-                                                                       "i340"
-                                                                       "i338"
-                                                                       "i336"
-                                                                       "i334"
-                                                                       "i332"
-                                                                       "i330"
-                                                                       "i328"
-                                                                       "i326"
-                                                                       "i324"
-                                                                       "i322"
-                                                                       "i320"
-                                                                       "i318"
-                                                                       "i316"
-                                                                       "i314"
-                                                                       "i312"
-                                                                       "i310"
-                                                                       "i308"
-                                                                       "i306"
-                                                                       "i304"
-                                                                       "i302"
-                                                                       "i300"
-                                                                       "i298"
-                                                                       "i296"
-                                                                       "i294"
+                                                                       "i355"
+                                                                       "i353"
+                                                                       "i351"
+                                                                       "i349"
+                                                                       "i347"
+                                                                       "i345"
+                                                                       "i343"
+                                                                       "i341"
+                                                                       "i339"
+                                                                       "i337"
+                                                                       "i335"
+                                                                       "i333"
+                                                                       "i331"
+                                                                       "i329"
+                                                                       "i327"
+                                                                       "i325"
+                                                                       "i323"
+                                                                       "i321"
+                                                                       "i319"
+                                                                       "i317"
+                                                                       "i315"
+                                                                       "i313"
+                                                                       "i311"
+                                                                       "i309"
+                                                                       "i307"
+                                                                       "i305"
+                                                                       "i303"
+                                                                       "i301"
+                                                                       "i299"
+                                                                       "i297"
+                                                                       "i295"
+                                                                       "i293"
                                                                        "i292"
-                                                                       "i291"
-                                                                       "i289"
-                                                                       "i287"
-                                                                       "i285"
-                                                                       "i283"
-                                                                       "i281"
-                                                                       "i279"
-                                                                       "i277"
-                                                                       "i275"
-                                                                       "i273"
-                                                                       "i270"
-                                                                       "i268"
-                                                                       "i266"
-                                                                       "i264"
-                                                                       "i262"
-                                                                       "i260"
-                                                                       "i258"
-                                                                       "i256"
-                                                                       "i254"
-                                                                       "i252"
-                                                                       "i250"
-                                                                       "i248"
-                                                                       "i246"
-                                                                       "i244"
-                                                                       "i242"
-                                                                       "i240"
-                                                                       "i238"
-                                                                       "i236"))
+                                                                       "i290"
+                                                                       "i288"
+                                                                       "i286"
+                                                                       "i284"
+                                                                       "i282"
+                                                                       "i280"
+                                                                       "i278"
+                                                                       "i276"
+                                                                       "i274"
+                                                                       "i271"
+                                                                       "i269"
+                                                                       "i267"
+                                                                       "i265"
+                                                                       "i263"
+                                                                       "i261"
+                                                                       "i259"
+                                                                       "i257"
+                                                                       "i255"
+                                                                       "i253"
+                                                                       "i251"
+                                                                       "i249"
+                                                                       "i247"
+                                                                       "i245"
+                                                                       "i243"
+                                                                       "i241"
+                                                                       "i239"
+                                                                       "i237"))
                                                                     #(ribcage
                                                                       
(define-structure
                                                                         
define-expansion-accessors
@@ -4253,10 +4253,10 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i38"
+                                                                      ("i39"
+                                                                       "i38"
                                                                        "i37"
-                                                                       "i36"
-                                                                       "i34")))
+                                                                       "i35")))
                                                                    (hygiene
                                                                      guile))
                                                                  
#(syntax-object
@@ -4265,7 +4265,7 @@
                                                                     #(ribcage
                                                                       #(name)
                                                                       #((top))
-                                                                      
#("i1626"))
+                                                                      
#("i1627"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4287,12 +4287,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1566"
-                                                                        "i1567"
+                                                                      #("i1567"
                                                                         "i1568"
                                                                         "i1569"
                                                                         "i1570"
-                                                                        
"i1571"))
+                                                                        "i1571"
+                                                                        
"i1572"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4300,7 +4300,7 @@
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
-                                                                      
#("i1558"))
+                                                                      
#("i1559"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4328,13 +4328,13 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1535"
-                                                                        "i1536"
+                                                                      #("i1536"
                                                                         "i1537"
                                                                         "i1538"
                                                                         "i1539"
                                                                         "i1540"
-                                                                        
"i1541"))
+                                                                        "i1541"
+                                                                        
"i1542"))
                                                                     #(ribcage
                                                                       
(lambda-var-list
                                                                         gen-var
@@ -4610,143 +4610,143 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i493"
-                                                                       "i491"
-                                                                       "i489"
-                                                                       "i487"
-                                                                       "i485"
-                                                                       "i483"
-                                                                       "i481"
-                                                                       "i479"
-                                                                       "i477"
-                                                                       "i475"
-                                                                       "i473"
-                                                                       "i471"
-                                                                       "i469"
-                                                                       "i467"
-                                                                       "i465"
-                                                                       "i463"
-                                                                       "i461"
-                                                                       "i459"
-                                                                       "i457"
-                                                                       "i455"
-                                                                       "i453"
-                                                                       "i451"
-                                                                       "i449"
-                                                                       "i447"
-                                                                       "i445"
-                                                                       "i443"
-                                                                       "i441"
-                                                                       "i439"
-                                                                       "i437"
-                                                                       "i435"
-                                                                       "i433"
-                                                                       "i431"
-                                                                       "i429"
-                                                                       "i427"
-                                                                       "i425"
+                                                                      ("i494"
+                                                                       "i492"
+                                                                       "i490"
+                                                                       "i488"
+                                                                       "i486"
+                                                                       "i484"
+                                                                       "i482"
+                                                                       "i480"
+                                                                       "i478"
+                                                                       "i476"
+                                                                       "i474"
+                                                                       "i472"
+                                                                       "i470"
+                                                                       "i468"
+                                                                       "i466"
+                                                                       "i464"
+                                                                       "i462"
+                                                                       "i460"
+                                                                       "i458"
+                                                                       "i456"
+                                                                       "i454"
+                                                                       "i452"
+                                                                       "i450"
+                                                                       "i448"
+                                                                       "i446"
+                                                                       "i444"
+                                                                       "i442"
+                                                                       "i440"
+                                                                       "i438"
+                                                                       "i436"
+                                                                       "i434"
+                                                                       "i432"
+                                                                       "i430"
+                                                                       "i428"
+                                                                       "i426"
+                                                                       "i424"
                                                                        "i423"
                                                                        "i422"
-                                                                       "i421"
+                                                                       "i420"
                                                                        "i419"
                                                                        "i418"
                                                                        "i417"
                                                                        "i416"
-                                                                       "i415"
-                                                                       "i413"
-                                                                       "i411"
-                                                                       "i409"
-                                                                       "i407"
-                                                                       "i405"
-                                                                       "i403"
-                                                                       "i401"
-                                                                       "i399"
-                                                                       "i396"
+                                                                       "i414"
+                                                                       "i412"
+                                                                       "i410"
+                                                                       "i408"
+                                                                       "i406"
+                                                                       "i404"
+                                                                       "i402"
+                                                                       "i400"
+                                                                       "i397"
+                                                                       "i395"
                                                                        "i394"
                                                                        "i393"
                                                                        "i392"
                                                                        "i391"
                                                                        "i390"
-                                                                       "i389"
-                                                                       "i387"
-                                                                       "i385"
-                                                                       "i383"
+                                                                       "i388"
+                                                                       "i386"
+                                                                       "i384"
+                                                                       "i382"
                                                                        "i381"
-                                                                       "i380"
-                                                                       "i378"
-                                                                       "i376"
-                                                                       "i374"
-                                                                       "i372"
-                                                                       "i370"
-                                                                       "i368"
+                                                                       "i379"
+                                                                       "i377"
+                                                                       "i375"
+                                                                       "i373"
+                                                                       "i371"
+                                                                       "i369"
+                                                                       "i367"
                                                                        "i366"
-                                                                       "i365"
-                                                                       "i363"
+                                                                       "i364"
+                                                                       "i362"
                                                                        "i361"
                                                                        "i360"
-                                                                       "i359"
+                                                                       "i358"
                                                                        "i357"
-                                                                       "i356"
-                                                                       "i354"
-                                                                       "i352"
-                                                                       "i350"
-                                                                       "i348"
-                                                                       "i346"
-                                                                       "i344"
-                                                                       "i342"
-                                                                       "i340"
-                                                                       "i338"
-                                                                       "i336"
-                                                                       "i334"
-                                                                       "i332"
-                                                                       "i330"
-                                                                       "i328"
-                                                                       "i326"
-                                                                       "i324"
-                                                                       "i322"
-                                                                       "i320"
-                                                                       "i318"
-                                                                       "i316"
-                                                                       "i314"
-                                                                       "i312"
-                                                                       "i310"
-                                                                       "i308"
-                                                                       "i306"
-                                                                       "i304"
-                                                                       "i302"
-                                                                       "i300"
-                                                                       "i298"
-                                                                       "i296"
-                                                                       "i294"
+                                                                       "i355"
+                                                                       "i353"
+                                                                       "i351"
+                                                                       "i349"
+                                                                       "i347"
+                                                                       "i345"
+                                                                       "i343"
+                                                                       "i341"
+                                                                       "i339"
+                                                                       "i337"
+                                                                       "i335"
+                                                                       "i333"
+                                                                       "i331"
+                                                                       "i329"
+                                                                       "i327"
+                                                                       "i325"
+                                                                       "i323"
+                                                                       "i321"
+                                                                       "i319"
+                                                                       "i317"
+                                                                       "i315"
+                                                                       "i313"
+                                                                       "i311"
+                                                                       "i309"
+                                                                       "i307"
+                                                                       "i305"
+                                                                       "i303"
+                                                                       "i301"
+                                                                       "i299"
+                                                                       "i297"
+                                                                       "i295"
+                                                                       "i293"
                                                                        "i292"
-                                                                       "i291"
-                                                                       "i289"
-                                                                       "i287"
-                                                                       "i285"
-                                                                       "i283"
-                                                                       "i281"
-                                                                       "i279"
-                                                                       "i277"
-                                                                       "i275"
-                                                                       "i273"
-                                                                       "i270"
-                                                                       "i268"
-                                                                       "i266"
-                                                                       "i264"
-                                                                       "i262"
-                                                                       "i260"
-                                                                       "i258"
-                                                                       "i256"
-                                                                       "i254"
-                                                                       "i252"
-                                                                       "i250"
-                                                                       "i248"
-                                                                       "i246"
-                                                                       "i244"
-                                                                       "i242"
-                                                                       "i240"
-                                                                       "i238"
-                                                                       "i236"))
+                                                                       "i290"
+                                                                       "i288"
+                                                                       "i286"
+                                                                       "i284"
+                                                                       "i282"
+                                                                       "i280"
+                                                                       "i278"
+                                                                       "i276"
+                                                                       "i274"
+                                                                       "i271"
+                                                                       "i269"
+                                                                       "i267"
+                                                                       "i265"
+                                                                       "i263"
+                                                                       "i261"
+                                                                       "i259"
+                                                                       "i257"
+                                                                       "i255"
+                                                                       "i253"
+                                                                       "i251"
+                                                                       "i249"
+                                                                       "i247"
+                                                                       "i245"
+                                                                       "i243"
+                                                                       "i241"
+                                                                       "i239"
+                                                                       "i237"))
                                                                     #(ribcage
                                                                       
(define-structure
                                                                         
define-expansion-accessors
@@ -4756,10 +4756,10 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i38"
+                                                                      ("i39"
+                                                                       "i38"
                                                                        "i37"
-                                                                       "i36"
-                                                                       "i34")))
+                                                                       "i35")))
                                                                    (hygiene
                                                                      guile))
                                                                  
#(syntax-object
@@ -4768,7 +4768,7 @@
                                                                     #(ribcage
                                                                       #(name)
                                                                       #((top))
-                                                                      
#("i1626"))
+                                                                      
#("i1627"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4790,12 +4790,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1566"
-                                                                        "i1567"
+                                                                      #("i1567"
                                                                         "i1568"
                                                                         "i1569"
                                                                         "i1570"
-                                                                        
"i1571"))
+                                                                        "i1571"
+                                                                        
"i1572"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4803,7 +4803,7 @@
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
-                                                                      
#("i1558"))
+                                                                      
#("i1559"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4831,13 +4831,13 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1535"
-                                                                        "i1536"
+                                                                      #("i1536"
                                                                         "i1537"
                                                                         "i1538"
                                                                         "i1539"
                                                                         "i1540"
-                                                                        
"i1541"))
+                                                                        "i1541"
+                                                                        
"i1542"))
                                                                     #(ribcage
                                                                       
(lambda-var-list
                                                                         gen-var
@@ -5113,143 +5113,143 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i493"
-                                                                       "i491"
-                                                                       "i489"
-                                                                       "i487"
-                                                                       "i485"
-                                                                       "i483"
-                                                                       "i481"
-                                                                       "i479"
-                                                                       "i477"
-                                                                       "i475"
-                                                                       "i473"
-                                                                       "i471"
-                                                                       "i469"
-                                                                       "i467"
-                                                                       "i465"
-                                                                       "i463"
-                                                                       "i461"
-                                                                       "i459"
-                                                                       "i457"
-                                                                       "i455"
-                                                                       "i453"
-                                                                       "i451"
-                                                                       "i449"
-                                                                       "i447"
-                                                                       "i445"
-                                                                       "i443"
-                                                                       "i441"
-                                                                       "i439"
-                                                                       "i437"
-                                                                       "i435"
-                                                                       "i433"
-                                                                       "i431"
-                                                                       "i429"
-                                                                       "i427"
-                                                                       "i425"
+                                                                      ("i494"
+                                                                       "i492"
+                                                                       "i490"
+                                                                       "i488"
+                                                                       "i486"
+                                                                       "i484"
+                                                                       "i482"
+                                                                       "i480"
+                                                                       "i478"
+                                                                       "i476"
+                                                                       "i474"
+                                                                       "i472"
+                                                                       "i470"
+                                                                       "i468"
+                                                                       "i466"
+                                                                       "i464"
+                                                                       "i462"
+                                                                       "i460"
+                                                                       "i458"
+                                                                       "i456"
+                                                                       "i454"
+                                                                       "i452"
+                                                                       "i450"
+                                                                       "i448"
+                                                                       "i446"
+                                                                       "i444"
+                                                                       "i442"
+                                                                       "i440"
+                                                                       "i438"
+                                                                       "i436"
+                                                                       "i434"
+                                                                       "i432"
+                                                                       "i430"
+                                                                       "i428"
+                                                                       "i426"
+                                                                       "i424"
                                                                        "i423"
                                                                        "i422"
-                                                                       "i421"
+                                                                       "i420"
                                                                        "i419"
                                                                        "i418"
                                                                        "i417"
                                                                        "i416"
-                                                                       "i415"
-                                                                       "i413"
-                                                                       "i411"
-                                                                       "i409"
-                                                                       "i407"
-                                                                       "i405"
-                                                                       "i403"
-                                                                       "i401"
-                                                                       "i399"
-                                                                       "i396"
+                                                                       "i414"
+                                                                       "i412"
+                                                                       "i410"
+                                                                       "i408"
+                                                                       "i406"
+                                                                       "i404"
+                                                                       "i402"
+                                                                       "i400"
+                                                                       "i397"
+                                                                       "i395"
                                                                        "i394"
                                                                        "i393"
                                                                        "i392"
                                                                        "i391"
                                                                        "i390"
-                                                                       "i389"
-                                                                       "i387"
-                                                                       "i385"
-                                                                       "i383"
+                                                                       "i388"
+                                                                       "i386"
+                                                                       "i384"
+                                                                       "i382"
                                                                        "i381"
-                                                                       "i380"
-                                                                       "i378"
-                                                                       "i376"
-                                                                       "i374"
-                                                                       "i372"
-                                                                       "i370"
-                                                                       "i368"
+                                                                       "i379"
+                                                                       "i377"
+                                                                       "i375"
+                                                                       "i373"
+                                                                       "i371"
+                                                                       "i369"
+                                                                       "i367"
                                                                        "i366"
-                                                                       "i365"
-                                                                       "i363"
+                                                                       "i364"
+                                                                       "i362"
                                                                        "i361"
                                                                        "i360"
-                                                                       "i359"
+                                                                       "i358"
                                                                        "i357"
-                                                                       "i356"
-                                                                       "i354"
-                                                                       "i352"
-                                                                       "i350"
-                                                                       "i348"
-                                                                       "i346"
-                                                                       "i344"
-                                                                       "i342"
-                                                                       "i340"
-                                                                       "i338"
-                                                                       "i336"
-                                                                       "i334"
-                                                                       "i332"
-                                                                       "i330"
-                                                                       "i328"
-                                                                       "i326"
-                                                                       "i324"
-                                                                       "i322"
-                                                                       "i320"
-                                                                       "i318"
-                                                                       "i316"
-                                                                       "i314"
-                                                                       "i312"
-                                                                       "i310"
-                                                                       "i308"
-                                                                       "i306"
-                                                                       "i304"
-                                                                       "i302"
-                                                                       "i300"
-                                                                       "i298"
-                                                                       "i296"
-                                                                       "i294"
+                                                                       "i355"
+                                                                       "i353"
+                                                                       "i351"
+                                                                       "i349"
+                                                                       "i347"
+                                                                       "i345"
+                                                                       "i343"
+                                                                       "i341"
+                                                                       "i339"
+                                                                       "i337"
+                                                                       "i335"
+                                                                       "i333"
+                                                                       "i331"
+                                                                       "i329"
+                                                                       "i327"
+                                                                       "i325"
+                                                                       "i323"
+                                                                       "i321"
+                                                                       "i319"
+                                                                       "i317"
+                                                                       "i315"
+                                                                       "i313"
+                                                                       "i311"
+                                                                       "i309"
+                                                                       "i307"
+                                                                       "i305"
+                                                                       "i303"
+                                                                       "i301"
+                                                                       "i299"
+                                                                       "i297"
+                                                                       "i295"
+                                                                       "i293"
                                                                        "i292"
-                                                                       "i291"
-                                                                       "i289"
-                                                                       "i287"
-                                                                       "i285"
-                                                                       "i283"
-                                                                       "i281"
-                                                                       "i279"
-                                                                       "i277"
-                                                                       "i275"
-                                                                       "i273"
-                                                                       "i270"
-                                                                       "i268"
-                                                                       "i266"
-                                                                       "i264"
-                                                                       "i262"
-                                                                       "i260"
-                                                                       "i258"
-                                                                       "i256"
-                                                                       "i254"
-                                                                       "i252"
-                                                                       "i250"
-                                                                       "i248"
-                                                                       "i246"
-                                                                       "i244"
-                                                                       "i242"
-                                                                       "i240"
-                                                                       "i238"
-                                                                       "i236"))
+                                                                       "i290"
+                                                                       "i288"
+                                                                       "i286"
+                                                                       "i284"
+                                                                       "i282"
+                                                                       "i280"
+                                                                       "i278"
+                                                                       "i276"
+                                                                       "i274"
+                                                                       "i271"
+                                                                       "i269"
+                                                                       "i267"
+                                                                       "i265"
+                                                                       "i263"
+                                                                       "i261"
+                                                                       "i259"
+                                                                       "i257"
+                                                                       "i255"
+                                                                       "i253"
+                                                                       "i251"
+                                                                       "i249"
+                                                                       "i247"
+                                                                       "i245"
+                                                                       "i243"
+                                                                       "i241"
+                                                                       "i239"
+                                                                       "i237"))
                                                                     #(ribcage
                                                                       
(define-structure
                                                                         
define-expansion-accessors
@@ -5259,1219 +5259,1219 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i38"
+                                                                      ("i39"
+                                                                       "i38"
                                                                        "i37"
-                                                                       "i36"
-                                                                       "i34")))
+                                                                       "i35")))
                                                                    (hygiene
                                                                      guile)))
                                                                '(())
-                                                               #{s\ 1531}#
-                                                               #{mod\ 1533}#))
-                                                           #{tmp\ 1623}#)
+                                                               #{s\ 1532}#
+                                                               #{mod\ 1534}#))
+                                                           #{tmp\ 1624}#)
                                                          (syntax-violation
                                                            #f
                                                            "source expression 
failed to match any pattern"
-                                                           #{tmp\ 
1592}#))))))))
-                                           (if (eqv? #{ftype\ 1560}#
+                                                           #{tmp\ 
1593}#))))))))
+                                           (if (eqv? #{ftype\ 1561}#
                                                      'define-syntax)
-                                             (let ((#{tmp\ 1630}# #{e\ 1528}#))
-                                               (let ((#{tmp\ 1631}#
+                                             (let ((#{tmp\ 1631}# #{e\ 1529}#))
+                                               (let ((#{tmp\ 1632}#
                                                        ($sc-dispatch
-                                                         #{tmp\ 1630}#
+                                                         #{tmp\ 1631}#
                                                          '(_ any any))))
-                                                 (if (if #{tmp\ 1631}#
+                                                 (if (if #{tmp\ 1632}#
                                                        (@apply
-                                                         (lambda (#{name\ 
1634}#
-                                                                  #{val\ 
1635}#)
-                                                           (#{id?\ 379}#
-                                                             #{name\ 1634}#))
-                                                         #{tmp\ 1631}#)
+                                                         (lambda (#{name\ 
1635}#
+                                                                  #{val\ 
1636}#)
+                                                           (#{id?\ 380}#
+                                                             #{name\ 1635}#))
+                                                         #{tmp\ 1632}#)
                                                        #f)
                                                    (@apply
-                                                     (lambda (#{name\ 1638}#
-                                                              #{val\ 1639}#)
+                                                     (lambda (#{name\ 1639}#
+                                                              #{val\ 1640}#)
                                                        (values
                                                          'define-syntax-form
-                                                         #{name\ 1638}#
-                                                         #{val\ 1639}#
-                                                         #{w\ 1530}#
-                                                         #{s\ 1531}#
-                                                         #{mod\ 1533}#))
-                                                     #{tmp\ 1631}#)
+                                                         #{name\ 1639}#
+                                                         #{val\ 1640}#
+                                                         #{w\ 1531}#
+                                                         #{s\ 1532}#
+                                                         #{mod\ 1534}#))
+                                                     #{tmp\ 1632}#)
                                                    (syntax-violation
                                                      #f
                                                      "source expression failed 
to match any pattern"
-                                                     #{tmp\ 1630}#))))
+                                                     #{tmp\ 1631}#))))
                                              (values
                                                'call
                                                #f
-                                               #{e\ 1528}#
-                                               #{w\ 1530}#
-                                               #{s\ 1531}#
-                                               #{mod\ 1533}#)))))))))))))))
-                 (if (#{syntax-object?\ 343}# #{e\ 1528}#)
-                   (#{syntax-type\ 460}#
-                     (#{syntax-object-expression\ 345}# #{e\ 1528}#)
-                     #{r\ 1529}#
-                     (#{join-wraps\ 430}#
-                       #{w\ 1530}#
-                       (#{syntax-object-wrap\ 347}# #{e\ 1528}#))
+                                               #{e\ 1529}#
+                                               #{w\ 1531}#
+                                               #{s\ 1532}#
+                                               #{mod\ 1534}#)))))))))))))))
+                 (if (#{syntax-object?\ 344}# #{e\ 1529}#)
+                   (#{syntax-type\ 461}#
+                     (#{syntax-object-expression\ 346}# #{e\ 1529}#)
+                     #{r\ 1530}#
+                     (#{join-wraps\ 431}#
+                       #{w\ 1531}#
+                       (#{syntax-object-wrap\ 348}# #{e\ 1529}#))
                      (begin
-                       (let ((#{t\ 1645}#
-                               (#{source-annotation\ 358}# #{e\ 1528}#)))
-                         (if #{t\ 1645}# #{t\ 1645}# #{s\ 1531}#)))
-                     #{rib\ 1532}#
+                       (let ((#{t\ 1646}#
+                               (#{source-annotation\ 359}# #{e\ 1529}#)))
+                         (if #{t\ 1646}# #{t\ 1646}# #{s\ 1532}#)))
+                     #{rib\ 1533}#
                      (begin
-                       (let ((#{t\ 1649}#
-                               (#{syntax-object-module\ 349}# #{e\ 1528}#)))
-                         (if #{t\ 1649}# #{t\ 1649}# #{mod\ 1533}#)))
-                     #{for-car?\ 1534}#)
-                   (if (self-evaluating? #{e\ 1528}#)
+                       (let ((#{t\ 1650}#
+                               (#{syntax-object-module\ 350}# #{e\ 1529}#)))
+                         (if #{t\ 1650}# #{t\ 1650}# #{mod\ 1534}#)))
+                     #{for-car?\ 1535}#)
+                   (if (self-evaluating? #{e\ 1529}#)
                      (values
                        'constant
                        #f
-                       #{e\ 1528}#
-                       #{w\ 1530}#
-                       #{s\ 1531}#
-                       #{mod\ 1533}#)
+                       #{e\ 1529}#
+                       #{w\ 1531}#
+                       #{s\ 1532}#
+                       #{mod\ 1534}#)
                      (values
                        'other
                        #f
-                       #{e\ 1528}#
-                       #{w\ 1530}#
-                       #{s\ 1531}#
-                       #{mod\ 1533}#)))))))
-         (#{chi-top\ 462}#
-           (lambda (#{e\ 1654}#
-                    #{r\ 1655}#
-                    #{w\ 1656}#
-                    #{m\ 1657}#
-                    #{esew\ 1658}#
-                    #{mod\ 1659}#)
+                       #{e\ 1529}#
+                       #{w\ 1531}#
+                       #{s\ 1532}#
+                       #{mod\ 1534}#)))))))
+         (#{chi-top\ 463}#
+           (lambda (#{e\ 1655}#
+                    #{r\ 1656}#
+                    #{w\ 1657}#
+                    #{m\ 1658}#
+                    #{esew\ 1659}#
+                    #{mod\ 1660}#)
              (call-with-values
                (lambda ()
-                 (#{syntax-type\ 460}#
-                   #{e\ 1654}#
-                   #{r\ 1655}#
-                   #{w\ 1656}#
-                   (#{source-annotation\ 358}# #{e\ 1654}#)
+                 (#{syntax-type\ 461}#
+                   #{e\ 1655}#
+                   #{r\ 1656}#
+                   #{w\ 1657}#
+                   (#{source-annotation\ 359}# #{e\ 1655}#)
                    #f
-                   #{mod\ 1659}#
+                   #{mod\ 1660}#
                    #f))
-               (lambda (#{type\ 1680}#
-                        #{value\ 1681}#
-                        #{e\ 1682}#
-                        #{w\ 1683}#
-                        #{s\ 1684}#
-                        #{mod\ 1685}#)
-                 (if (eqv? #{type\ 1680}# (quote begin-form))
-                   (let ((#{tmp\ 1693}# #{e\ 1682}#))
-                     (let ((#{tmp\ 1694}#
-                             ($sc-dispatch #{tmp\ 1693}# (quote (_)))))
-                       (if #{tmp\ 1694}#
+               (lambda (#{type\ 1681}#
+                        #{value\ 1682}#
+                        #{e\ 1683}#
+                        #{w\ 1684}#
+                        #{s\ 1685}#
+                        #{mod\ 1686}#)
+                 (if (eqv? #{type\ 1681}# (quote begin-form))
+                   (let ((#{tmp\ 1694}# #{e\ 1683}#))
+                     (let ((#{tmp\ 1695}#
+                             ($sc-dispatch #{tmp\ 1694}# (quote (_)))))
+                       (if #{tmp\ 1695}#
                          (@apply
-                           (lambda () (#{chi-void\ 478}#))
-                           #{tmp\ 1694}#)
-                         (let ((#{tmp\ 1695}#
+                           (lambda () (#{chi-void\ 479}#))
+                           #{tmp\ 1695}#)
+                         (let ((#{tmp\ 1696}#
                                  ($sc-dispatch
-                                   #{tmp\ 1693}#
+                                   #{tmp\ 1694}#
                                    '(_ any . each-any))))
-                           (if #{tmp\ 1695}#
+                           (if #{tmp\ 1696}#
                              (@apply
-                               (lambda (#{e1\ 1698}# #{e2\ 1699}#)
-                                 (#{chi-top-sequence\ 454}#
-                                   (cons #{e1\ 1698}# #{e2\ 1699}#)
-                                   #{r\ 1655}#
-                                   #{w\ 1683}#
-                                   #{s\ 1684}#
-                                   #{m\ 1657}#
-                                   #{esew\ 1658}#
-                                   #{mod\ 1685}#))
-                               #{tmp\ 1695}#)
+                               (lambda (#{e1\ 1699}# #{e2\ 1700}#)
+                                 (#{chi-top-sequence\ 455}#
+                                   (cons #{e1\ 1699}# #{e2\ 1700}#)
+                                   #{r\ 1656}#
+                                   #{w\ 1684}#
+                                   #{s\ 1685}#
+                                   #{m\ 1658}#
+                                   #{esew\ 1659}#
+                                   #{mod\ 1686}#))
+                               #{tmp\ 1696}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{tmp\ 1693}#))))))
-                   (if (eqv? #{type\ 1680}# (quote local-syntax-form))
-                     (#{chi-local-syntax\ 474}#
-                       #{value\ 1681}#
-                       #{e\ 1682}#
-                       #{r\ 1655}#
-                       #{w\ 1683}#
-                       #{s\ 1684}#
-                       #{mod\ 1685}#
-                       (lambda (#{body\ 1702}#
-                                #{r\ 1703}#
-                                #{w\ 1704}#
-                                #{s\ 1705}#
-                                #{mod\ 1706}#)
-                         (#{chi-top-sequence\ 454}#
-                           #{body\ 1702}#
-                           #{r\ 1703}#
-                           #{w\ 1704}#
-                           #{s\ 1705}#
-                           #{m\ 1657}#
-                           #{esew\ 1658}#
-                           #{mod\ 1706}#)))
-                     (if (eqv? #{type\ 1680}# (quote eval-when-form))
-                       (let ((#{tmp\ 1713}# #{e\ 1682}#))
-                         (let ((#{tmp\ 1714}#
+                               #{tmp\ 1694}#))))))
+                   (if (eqv? #{type\ 1681}# (quote local-syntax-form))
+                     (#{chi-local-syntax\ 475}#
+                       #{value\ 1682}#
+                       #{e\ 1683}#
+                       #{r\ 1656}#
+                       #{w\ 1684}#
+                       #{s\ 1685}#
+                       #{mod\ 1686}#
+                       (lambda (#{body\ 1703}#
+                                #{r\ 1704}#
+                                #{w\ 1705}#
+                                #{s\ 1706}#
+                                #{mod\ 1707}#)
+                         (#{chi-top-sequence\ 455}#
+                           #{body\ 1703}#
+                           #{r\ 1704}#
+                           #{w\ 1705}#
+                           #{s\ 1706}#
+                           #{m\ 1658}#
+                           #{esew\ 1659}#
+                           #{mod\ 1707}#)))
+                     (if (eqv? #{type\ 1681}# (quote eval-when-form))
+                       (let ((#{tmp\ 1714}# #{e\ 1683}#))
+                         (let ((#{tmp\ 1715}#
                                  ($sc-dispatch
-                                   #{tmp\ 1713}#
+                                   #{tmp\ 1714}#
                                    '(_ each-any any . each-any))))
-                           (if #{tmp\ 1714}#
+                           (if #{tmp\ 1715}#
                              (@apply
-                               (lambda (#{x\ 1718}# #{e1\ 1719}# #{e2\ 1720}#)
+                               (lambda (#{x\ 1719}# #{e1\ 1720}# #{e2\ 1721}#)
                                  (begin
-                                   (let ((#{when-list\ 1723}#
-                                           (#{chi-when-list\ 458}#
-                                             #{e\ 1682}#
-                                             #{x\ 1718}#
-                                             #{w\ 1683}#))
-                                         (#{body\ 1724}#
-                                           (cons #{e1\ 1719}# #{e2\ 1720}#)))
-                                     (if (eq? #{m\ 1657}# (quote e))
+                                   (let ((#{when-list\ 1724}#
+                                           (#{chi-when-list\ 459}#
+                                             #{e\ 1683}#
+                                             #{x\ 1719}#
+                                             #{w\ 1684}#))
+                                         (#{body\ 1725}#
+                                           (cons #{e1\ 1720}# #{e2\ 1721}#)))
+                                     (if (eq? #{m\ 1658}# (quote e))
                                        (if (memq 'eval
-                                                 #{when-list\ 1723}#)
-                                         (#{chi-top-sequence\ 454}#
-                                           #{body\ 1724}#
-                                           #{r\ 1655}#
-                                           #{w\ 1683}#
-                                           #{s\ 1684}#
+                                                 #{when-list\ 1724}#)
+                                         (#{chi-top-sequence\ 455}#
+                                           #{body\ 1725}#
+                                           #{r\ 1656}#
+                                           #{w\ 1684}#
+                                           #{s\ 1685}#
                                            (if (memq 'expand
-                                                     #{when-list\ 1723}#)
+                                                     #{when-list\ 1724}#)
                                              'c&e
                                              'e)
                                            '(eval)
-                                           #{mod\ 1685}#)
+                                           #{mod\ 1686}#)
                                          (begin
                                            (if (memq 'expand
-                                                     #{when-list\ 1723}#)
-                                             (#{top-level-eval-hook\ 288}#
-                                               (#{chi-top-sequence\ 454}#
-                                                 #{body\ 1724}#
-                                                 #{r\ 1655}#
-                                                 #{w\ 1683}#
-                                                 #{s\ 1684}#
+                                                     #{when-list\ 1724}#)
+                                             (#{top-level-eval-hook\ 289}#
+                                               (#{chi-top-sequence\ 455}#
+                                                 #{body\ 1725}#
+                                                 #{r\ 1656}#
+                                                 #{w\ 1684}#
+                                                 #{s\ 1685}#
                                                  'e
                                                  '(eval)
-                                                 #{mod\ 1685}#)
-                                               #{mod\ 1685}#))
-                                           (#{chi-void\ 478}#)))
+                                                 #{mod\ 1686}#)
+                                               #{mod\ 1686}#))
+                                           (#{chi-void\ 479}#)))
                                        (if (memq 'load
-                                                 #{when-list\ 1723}#)
+                                                 #{when-list\ 1724}#)
                                          (if (begin
-                                               (let ((#{t\ 1733}#
+                                               (let ((#{t\ 1734}#
                                                        (memq 'compile
-                                                             #{when-list\ 
1723}#)))
-                                                 (if #{t\ 1733}#
-                                                   #{t\ 1733}#
+                                                             #{when-list\ 
1724}#)))
+                                                 (if #{t\ 1734}#
+                                                   #{t\ 1734}#
                                                    (begin
-                                                     (let ((#{t\ 1736}#
+                                                     (let ((#{t\ 1737}#
                                                              (memq 'expand
-                                                                   
#{when-list\ 1723}#)))
-                                                       (if #{t\ 1736}#
-                                                         #{t\ 1736}#
-                                                         (if (eq? #{m\ 1657}#
+                                                                   
#{when-list\ 1724}#)))
+                                                       (if #{t\ 1737}#
+                                                         #{t\ 1737}#
+                                                         (if (eq? #{m\ 1658}#
                                                                   'c&e)
                                                            (memq 'eval
-                                                                 #{when-list\ 
1723}#)
+                                                                 #{when-list\ 
1724}#)
                                                            #f)))))))
-                                           (#{chi-top-sequence\ 454}#
-                                             #{body\ 1724}#
-                                             #{r\ 1655}#
-                                             #{w\ 1683}#
-                                             #{s\ 1684}#
+                                           (#{chi-top-sequence\ 455}#
+                                             #{body\ 1725}#
+                                             #{r\ 1656}#
+                                             #{w\ 1684}#
+                                             #{s\ 1685}#
                                              'c&e
                                              '(compile load)
-                                             #{mod\ 1685}#)
-                                           (if (if (eq? #{m\ 1657}# (quote c))
+                                             #{mod\ 1686}#)
+                                           (if (if (eq? #{m\ 1658}# (quote c))
                                                  #t
-                                                 (eq? #{m\ 1657}# (quote c&e)))
-                                             (#{chi-top-sequence\ 454}#
-                                               #{body\ 1724}#
-                                               #{r\ 1655}#
-                                               #{w\ 1683}#
-                                               #{s\ 1684}#
+                                                 (eq? #{m\ 1658}# (quote c&e)))
+                                             (#{chi-top-sequence\ 455}#
+                                               #{body\ 1725}#
+                                               #{r\ 1656}#
+                                               #{w\ 1684}#
+                                               #{s\ 1685}#
                                                'c
                                                '(load)
-                                               #{mod\ 1685}#)
-                                             (#{chi-void\ 478}#)))
+                                               #{mod\ 1686}#)
+                                             (#{chi-void\ 479}#)))
                                          (if (begin
-                                               (let ((#{t\ 1744}#
+                                               (let ((#{t\ 1745}#
                                                        (memq 'compile
-                                                             #{when-list\ 
1723}#)))
-                                                 (if #{t\ 1744}#
-                                                   #{t\ 1744}#
+                                                             #{when-list\ 
1724}#)))
+                                                 (if #{t\ 1745}#
+                                                   #{t\ 1745}#
                                                    (begin
-                                                     (let ((#{t\ 1747}#
+                                                     (let ((#{t\ 1748}#
                                                              (memq 'expand
-                                                                   
#{when-list\ 1723}#)))
-                                                       (if #{t\ 1747}#
-                                                         #{t\ 1747}#
-                                                         (if (eq? #{m\ 1657}#
+                                                                   
#{when-list\ 1724}#)))
+                                                       (if #{t\ 1748}#
+                                                         #{t\ 1748}#
+                                                         (if (eq? #{m\ 1658}#
                                                                   'c&e)
                                                            (memq 'eval
-                                                                 #{when-list\ 
1723}#)
+                                                                 #{when-list\ 
1724}#)
                                                            #f)))))))
                                            (begin
-                                             (#{top-level-eval-hook\ 288}#
-                                               (#{chi-top-sequence\ 454}#
-                                                 #{body\ 1724}#
-                                                 #{r\ 1655}#
-                                                 #{w\ 1683}#
-                                                 #{s\ 1684}#
+                                             (#{top-level-eval-hook\ 289}#
+                                               (#{chi-top-sequence\ 455}#
+                                                 #{body\ 1725}#
+                                                 #{r\ 1656}#
+                                                 #{w\ 1684}#
+                                                 #{s\ 1685}#
                                                  'e
                                                  '(eval)
-                                                 #{mod\ 1685}#)
-                                               #{mod\ 1685}#)
-                                             (#{chi-void\ 478}#))
-                                           (#{chi-void\ 478}#)))))))
-                               #{tmp\ 1714}#)
+                                                 #{mod\ 1686}#)
+                                               #{mod\ 1686}#)
+                                             (#{chi-void\ 479}#))
+                                           (#{chi-void\ 479}#)))))))
+                               #{tmp\ 1715}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{tmp\ 1713}#))))
-                       (if (eqv? #{type\ 1680}# (quote define-syntax-form))
+                               #{tmp\ 1714}#))))
+                       (if (eqv? #{type\ 1681}# (quote define-syntax-form))
                          (begin
-                           (let ((#{n\ 1755}#
-                                   (#{id-var-name\ 436}#
-                                     #{value\ 1681}#
-                                     #{w\ 1683}#))
-                                 (#{r\ 1756}#
-                                   (#{macros-only-env\ 371}# #{r\ 1655}#)))
-                             (if (eqv? #{m\ 1657}# (quote c))
-                               (if (memq (quote compile) #{esew\ 1658}#)
+                           (let ((#{n\ 1756}#
+                                   (#{id-var-name\ 437}#
+                                     #{value\ 1682}#
+                                     #{w\ 1684}#))
+                                 (#{r\ 1757}#
+                                   (#{macros-only-env\ 372}# #{r\ 1656}#)))
+                             (if (eqv? #{m\ 1658}# (quote c))
+                               (if (memq (quote compile) #{esew\ 1659}#)
                                  (begin
-                                   (let ((#{e\ 1759}#
-                                           (#{chi-install-global\ 456}#
-                                             #{n\ 1755}#
-                                             (#{chi\ 464}#
-                                               #{e\ 1682}#
-                                               #{r\ 1756}#
-                                               #{w\ 1683}#
-                                               #{mod\ 1685}#))))
+                                   (let ((#{e\ 1760}#
+                                           (#{chi-install-global\ 457}#
+                                             #{n\ 1756}#
+                                             (#{chi\ 465}#
+                                               #{e\ 1683}#
+                                               #{r\ 1757}#
+                                               #{w\ 1684}#
+                                               #{mod\ 1686}#))))
                                      (begin
-                                       (#{top-level-eval-hook\ 288}#
-                                         #{e\ 1759}#
-                                         #{mod\ 1685}#)
-                                       (if (memq (quote load) #{esew\ 1658}#)
-                                         #{e\ 1759}#
-                                         (#{chi-void\ 478}#)))))
-                                 (if (memq (quote load) #{esew\ 1658}#)
-                                   (#{chi-install-global\ 456}#
-                                     #{n\ 1755}#
-                                     (#{chi\ 464}#
-                                       #{e\ 1682}#
-                                       #{r\ 1756}#
-                                       #{w\ 1683}#
-                                       #{mod\ 1685}#))
-                                   (#{chi-void\ 478}#)))
-                               (if (eqv? #{m\ 1657}# (quote c&e))
+                                       (#{top-level-eval-hook\ 289}#
+                                         #{e\ 1760}#
+                                         #{mod\ 1686}#)
+                                       (if (memq (quote load) #{esew\ 1659}#)
+                                         #{e\ 1760}#
+                                         (#{chi-void\ 479}#)))))
+                                 (if (memq (quote load) #{esew\ 1659}#)
+                                   (#{chi-install-global\ 457}#
+                                     #{n\ 1756}#
+                                     (#{chi\ 465}#
+                                       #{e\ 1683}#
+                                       #{r\ 1757}#
+                                       #{w\ 1684}#
+                                       #{mod\ 1686}#))
+                                   (#{chi-void\ 479}#)))
+                               (if (eqv? #{m\ 1658}# (quote c&e))
                                  (begin
-                                   (let ((#{e\ 1762}#
-                                           (#{chi-install-global\ 456}#
-                                             #{n\ 1755}#
-                                             (#{chi\ 464}#
-                                               #{e\ 1682}#
-                                               #{r\ 1756}#
-                                               #{w\ 1683}#
-                                               #{mod\ 1685}#))))
+                                   (let ((#{e\ 1763}#
+                                           (#{chi-install-global\ 457}#
+                                             #{n\ 1756}#
+                                             (#{chi\ 465}#
+                                               #{e\ 1683}#
+                                               #{r\ 1757}#
+                                               #{w\ 1684}#
+                                               #{mod\ 1686}#))))
                                      (begin
-                                       (#{top-level-eval-hook\ 288}#
-                                         #{e\ 1762}#
-                                         #{mod\ 1685}#)
-                                       #{e\ 1762}#)))
+                                       (#{top-level-eval-hook\ 289}#
+                                         #{e\ 1763}#
+                                         #{mod\ 1686}#)
+                                       #{e\ 1763}#)))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 1658}#)
-                                     (#{top-level-eval-hook\ 288}#
-                                       (#{chi-install-global\ 456}#
-                                         #{n\ 1755}#
-                                         (#{chi\ 464}#
-                                           #{e\ 1682}#
-                                           #{r\ 1756}#
-                                           #{w\ 1683}#
-                                           #{mod\ 1685}#))
-                                       #{mod\ 1685}#))
-                                   (#{chi-void\ 478}#))))))
-                         (if (eqv? #{type\ 1680}# (quote define-form))
+                                   (if (memq (quote eval) #{esew\ 1659}#)
+                                     (#{top-level-eval-hook\ 289}#
+                                       (#{chi-install-global\ 457}#
+                                         #{n\ 1756}#
+                                         (#{chi\ 465}#
+                                           #{e\ 1683}#
+                                           #{r\ 1757}#
+                                           #{w\ 1684}#
+                                           #{mod\ 1686}#))
+                                       #{mod\ 1686}#))
+                                   (#{chi-void\ 479}#))))))
+                         (if (eqv? #{type\ 1681}# (quote define-form))
                            (begin
-                             (let ((#{n\ 1767}#
-                                     (#{id-var-name\ 436}#
-                                       #{value\ 1681}#
-                                       #{w\ 1683}#)))
+                             (let ((#{n\ 1768}#
+                                     (#{id-var-name\ 437}#
+                                       #{value\ 1682}#
+                                       #{w\ 1684}#)))
                                (begin
-                                 (let ((#{type\ 1769}#
-                                         (#{binding-type\ 362}#
-                                           (#{lookup\ 373}#
-                                             #{n\ 1767}#
-                                             #{r\ 1655}#
-                                             #{mod\ 1685}#))))
-                                   (if (if (eqv? #{type\ 1769}# (quote global))
+                                 (let ((#{type\ 1770}#
+                                         (#{binding-type\ 363}#
+                                           (#{lookup\ 374}#
+                                             #{n\ 1768}#
+                                             #{r\ 1656}#
+                                             #{mod\ 1686}#))))
+                                   (if (if (eqv? #{type\ 1770}# (quote global))
                                          #t
-                                         (if (eqv? #{type\ 1769}# (quote core))
+                                         (if (eqv? #{type\ 1770}# (quote core))
                                            #t
-                                           (if (eqv? #{type\ 1769}#
+                                           (if (eqv? #{type\ 1770}#
                                                      'macro)
                                              #t
-                                             (eqv? #{type\ 1769}#
+                                             (eqv? #{type\ 1770}#
                                                    'module-ref))))
                                      (begin
-                                       (if (if (if (eq? #{m\ 1657}# (quote c))
+                                       (if (if (if (eq? #{m\ 1658}# (quote c))
                                                  #t
-                                                 (eq? #{m\ 1657}# (quote c&e)))
+                                                 (eq? #{m\ 1658}# (quote c&e)))
                                              (if (not (module-local-variable
                                                         (current-module)
-                                                        #{n\ 1767}#))
+                                                        #{n\ 1768}#))
                                                (current-module)
                                                #f)
                                              #f)
                                          (begin
-                                           (let ((#{old\ 1775}#
+                                           (let ((#{old\ 1776}#
                                                    (module-variable
                                                      (current-module)
-                                                     #{n\ 1767}#)))
+                                                     #{n\ 1768}#)))
                                              (module-define!
                                                (current-module)
-                                               #{n\ 1767}#
-                                               (if (variable? #{old\ 1775}#)
-                                                 (variable-ref #{old\ 1775}#)
+                                               #{n\ 1768}#
+                                               (if (variable? #{old\ 1776}#)
+                                                 (variable-ref #{old\ 1776}#)
                                                  #f)))))
                                        (begin
-                                         (let ((#{x\ 1778}#
-                                                 (#{build-global-definition\ 
319}#
-                                                   #{s\ 1684}#
-                                                   #{n\ 1767}#
-                                                   (#{chi\ 464}#
-                                                     #{e\ 1682}#
-                                                     #{r\ 1655}#
-                                                     #{w\ 1683}#
-                                                     #{mod\ 1685}#))))
+                                         (let ((#{x\ 1779}#
+                                                 (#{build-global-definition\ 
320}#
+                                                   #{s\ 1685}#
+                                                   #{n\ 1768}#
+                                                   (#{chi\ 465}#
+                                                     #{e\ 1683}#
+                                                     #{r\ 1656}#
+                                                     #{w\ 1684}#
+                                                     #{mod\ 1686}#))))
                                            (begin
-                                             (if (eq? #{m\ 1657}# (quote c&e))
-                                               (#{top-level-eval-hook\ 288}#
-                                                 #{x\ 1778}#
-                                                 #{mod\ 1685}#))
-                                             #{x\ 1778}#))))
-                                     (if (eqv? #{type\ 1769}#
+                                             (if (eq? #{m\ 1658}# (quote c&e))
+                                               (#{top-level-eval-hook\ 289}#
+                                                 #{x\ 1779}#
+                                                 #{mod\ 1686}#))
+                                             #{x\ 1779}#))))
+                                     (if (eqv? #{type\ 1770}#
                                                'displaced-lexical)
                                        (syntax-violation
                                          #f
                                          "identifier out of context"
-                                         #{e\ 1682}#
-                                         (#{wrap\ 448}#
-                                           #{value\ 1681}#
-                                           #{w\ 1683}#
-                                           #{mod\ 1685}#))
+                                         #{e\ 1683}#
+                                         (#{wrap\ 449}#
+                                           #{value\ 1682}#
+                                           #{w\ 1684}#
+                                           #{mod\ 1686}#))
                                        (syntax-violation
                                          #f
                                          "cannot define keyword at top level"
-                                         #{e\ 1682}#
-                                         (#{wrap\ 448}#
-                                           #{value\ 1681}#
-                                           #{w\ 1683}#
-                                           #{mod\ 1685}#))))))))
+                                         #{e\ 1683}#
+                                         (#{wrap\ 449}#
+                                           #{value\ 1682}#
+                                           #{w\ 1684}#
+                                           #{mod\ 1686}#))))))))
                            (begin
-                             (let ((#{x\ 1784}#
-                                     (#{chi-expr\ 466}#
-                                       #{type\ 1680}#
-                                       #{value\ 1681}#
-                                       #{e\ 1682}#
-                                       #{r\ 1655}#
-                                       #{w\ 1683}#
-                                       #{s\ 1684}#
-                                       #{mod\ 1685}#)))
+                             (let ((#{x\ 1785}#
+                                     (#{chi-expr\ 467}#
+                                       #{type\ 1681}#
+                                       #{value\ 1682}#
+                                       #{e\ 1683}#
+                                       #{r\ 1656}#
+                                       #{w\ 1684}#
+                                       #{s\ 1685}#
+                                       #{mod\ 1686}#)))
                                (begin
-                                 (if (eq? #{m\ 1657}# (quote c&e))
-                                   (#{top-level-eval-hook\ 288}#
-                                     #{x\ 1784}#
-                                     #{mod\ 1685}#))
-                                 #{x\ 1784}#))))))))))))
-         (#{chi\ 464}#
-           (lambda (#{e\ 1785}#
-                    #{r\ 1786}#
-                    #{w\ 1787}#
-                    #{mod\ 1788}#)
+                                 (if (eq? #{m\ 1658}# (quote c&e))
+                                   (#{top-level-eval-hook\ 289}#
+                                     #{x\ 1785}#
+                                     #{mod\ 1686}#))
+                                 #{x\ 1785}#))))))))))))
+         (#{chi\ 465}#
+           (lambda (#{e\ 1786}#
+                    #{r\ 1787}#
+                    #{w\ 1788}#
+                    #{mod\ 1789}#)
              (call-with-values
                (lambda ()
-                 (#{syntax-type\ 460}#
-                   #{e\ 1785}#
-                   #{r\ 1786}#
-                   #{w\ 1787}#
-                   (#{source-annotation\ 358}# #{e\ 1785}#)
+                 (#{syntax-type\ 461}#
+                   #{e\ 1786}#
+                   #{r\ 1787}#
+                   #{w\ 1788}#
+                   (#{source-annotation\ 359}# #{e\ 1786}#)
                    #f
-                   #{mod\ 1788}#
+                   #{mod\ 1789}#
                    #f))
-               (lambda (#{type\ 1793}#
-                        #{value\ 1794}#
-                        #{e\ 1795}#
-                        #{w\ 1796}#
-                        #{s\ 1797}#
-                        #{mod\ 1798}#)
-                 (#{chi-expr\ 466}#
-                   #{type\ 1793}#
-                   #{value\ 1794}#
-                   #{e\ 1795}#
-                   #{r\ 1786}#
-                   #{w\ 1796}#
-                   #{s\ 1797}#
-                   #{mod\ 1798}#)))))
-         (#{chi-expr\ 466}#
-           (lambda (#{type\ 1805}#
-                    #{value\ 1806}#
-                    #{e\ 1807}#
-                    #{r\ 1808}#
-                    #{w\ 1809}#
-                    #{s\ 1810}#
-                    #{mod\ 1811}#)
-             (if (eqv? #{type\ 1805}# (quote lexical))
-               (#{build-lexical-reference\ 309}#
+               (lambda (#{type\ 1794}#
+                        #{value\ 1795}#
+                        #{e\ 1796}#
+                        #{w\ 1797}#
+                        #{s\ 1798}#
+                        #{mod\ 1799}#)
+                 (#{chi-expr\ 467}#
+                   #{type\ 1794}#
+                   #{value\ 1795}#
+                   #{e\ 1796}#
+                   #{r\ 1787}#
+                   #{w\ 1797}#
+                   #{s\ 1798}#
+                   #{mod\ 1799}#)))))
+         (#{chi-expr\ 467}#
+           (lambda (#{type\ 1806}#
+                    #{value\ 1807}#
+                    #{e\ 1808}#
+                    #{r\ 1809}#
+                    #{w\ 1810}#
+                    #{s\ 1811}#
+                    #{mod\ 1812}#)
+             (if (eqv? #{type\ 1806}# (quote lexical))
+               (#{build-lexical-reference\ 310}#
                  'value
-                 #{s\ 1810}#
-                 #{e\ 1807}#
-                 #{value\ 1806}#)
-               (if (if (eqv? #{type\ 1805}# (quote core))
+                 #{s\ 1811}#
+                 #{e\ 1808}#
+                 #{value\ 1807}#)
+               (if (if (eqv? #{type\ 1806}# (quote core))
                      #t
-                     (eqv? #{type\ 1805}# (quote core-form)))
-                 (#{value\ 1806}#
-                   #{e\ 1807}#
-                   #{r\ 1808}#
-                   #{w\ 1809}#
-                   #{s\ 1810}#
-                   #{mod\ 1811}#)
-                 (if (eqv? #{type\ 1805}# (quote module-ref))
+                     (eqv? #{type\ 1806}# (quote core-form)))
+                 (#{value\ 1807}#
+                   #{e\ 1808}#
+                   #{r\ 1809}#
+                   #{w\ 1810}#
+                   #{s\ 1811}#
+                   #{mod\ 1812}#)
+                 (if (eqv? #{type\ 1806}# (quote module-ref))
                    (call-with-values
                      (lambda ()
-                       (#{value\ 1806}#
-                         #{e\ 1807}#
-                         #{r\ 1808}#
-                         #{w\ 1809}#))
-                     (lambda (#{e\ 1822}#
-                              #{r\ 1823}#
-                              #{w\ 1824}#
-                              #{s\ 1825}#
-                              #{mod\ 1826}#)
-                       (#{chi\ 464}#
-                         #{e\ 1822}#
-                         #{r\ 1823}#
-                         #{w\ 1824}#
-                         #{mod\ 1826}#)))
-                   (if (eqv? #{type\ 1805}# (quote lexical-call))
-                     (#{chi-application\ 468}#
+                       (#{value\ 1807}#
+                         #{e\ 1808}#
+                         #{r\ 1809}#
+                         #{w\ 1810}#))
+                     (lambda (#{e\ 1823}#
+                              #{r\ 1824}#
+                              #{w\ 1825}#
+                              #{s\ 1826}#
+                              #{mod\ 1827}#)
+                       (#{chi\ 465}#
+                         #{e\ 1823}#
+                         #{r\ 1824}#
+                         #{w\ 1825}#
+                         #{mod\ 1827}#)))
+                   (if (eqv? #{type\ 1806}# (quote lexical-call))
+                     (#{chi-application\ 469}#
                        (begin
-                         (let ((#{id\ 1834}# (car #{e\ 1807}#)))
-                           (#{build-lexical-reference\ 309}#
+                         (let ((#{id\ 1835}# (car #{e\ 1808}#)))
+                           (#{build-lexical-reference\ 310}#
                              'fun
-                             (#{source-annotation\ 358}# #{id\ 1834}#)
-                             (if (#{syntax-object?\ 343}# #{id\ 1834}#)
-                               (syntax->datum #{id\ 1834}#)
-                               #{id\ 1834}#)
-                             #{value\ 1806}#)))
-                       #{e\ 1807}#
-                       #{r\ 1808}#
-                       #{w\ 1809}#
-                       #{s\ 1810}#
-                       #{mod\ 1811}#)
-                     (if (eqv? #{type\ 1805}# (quote global-call))
-                       (#{chi-application\ 468}#
-                         (#{build-global-reference\ 315}#
-                           (#{source-annotation\ 358}# (car #{e\ 1807}#))
-                           (if (#{syntax-object?\ 343}# #{value\ 1806}#)
-                             (#{syntax-object-expression\ 345}#
-                               #{value\ 1806}#)
-                             #{value\ 1806}#)
-                           (if (#{syntax-object?\ 343}# #{value\ 1806}#)
-                             (#{syntax-object-module\ 349}# #{value\ 1806}#)
-                             #{mod\ 1811}#))
-                         #{e\ 1807}#
-                         #{r\ 1808}#
-                         #{w\ 1809}#
-                         #{s\ 1810}#
-                         #{mod\ 1811}#)
-                       (if (eqv? #{type\ 1805}# (quote constant))
-                         (#{build-data\ 329}#
-                           #{s\ 1810}#
-                           (#{strip\ 490}#
-                             (#{source-wrap\ 450}#
-                               #{e\ 1807}#
-                               #{w\ 1809}#
-                               #{s\ 1810}#
-                               #{mod\ 1811}#)
+                             (#{source-annotation\ 359}# #{id\ 1835}#)
+                             (if (#{syntax-object?\ 344}# #{id\ 1835}#)
+                               (syntax->datum #{id\ 1835}#)
+                               #{id\ 1835}#)
+                             #{value\ 1807}#)))
+                       #{e\ 1808}#
+                       #{r\ 1809}#
+                       #{w\ 1810}#
+                       #{s\ 1811}#
+                       #{mod\ 1812}#)
+                     (if (eqv? #{type\ 1806}# (quote global-call))
+                       (#{chi-application\ 469}#
+                         (#{build-global-reference\ 316}#
+                           (#{source-annotation\ 359}# (car #{e\ 1808}#))
+                           (if (#{syntax-object?\ 344}# #{value\ 1807}#)
+                             (#{syntax-object-expression\ 346}#
+                               #{value\ 1807}#)
+                             #{value\ 1807}#)
+                           (if (#{syntax-object?\ 344}# #{value\ 1807}#)
+                             (#{syntax-object-module\ 350}# #{value\ 1807}#)
+                             #{mod\ 1812}#))
+                         #{e\ 1808}#
+                         #{r\ 1809}#
+                         #{w\ 1810}#
+                         #{s\ 1811}#
+                         #{mod\ 1812}#)
+                       (if (eqv? #{type\ 1806}# (quote constant))
+                         (#{build-data\ 330}#
+                           #{s\ 1811}#
+                           (#{strip\ 491}#
+                             (#{source-wrap\ 451}#
+                               #{e\ 1808}#
+                               #{w\ 1810}#
+                               #{s\ 1811}#
+                               #{mod\ 1812}#)
                              '(())))
-                         (if (eqv? #{type\ 1805}# (quote global))
-                           (#{build-global-reference\ 315}#
-                             #{s\ 1810}#
-                             #{value\ 1806}#
-                             #{mod\ 1811}#)
-                           (if (eqv? #{type\ 1805}# (quote call))
-                             (#{chi-application\ 468}#
-                               (#{chi\ 464}#
-                                 (car #{e\ 1807}#)
-                                 #{r\ 1808}#
-                                 #{w\ 1809}#
-                                 #{mod\ 1811}#)
-                               #{e\ 1807}#
-                               #{r\ 1808}#
-                               #{w\ 1809}#
-                               #{s\ 1810}#
-                               #{mod\ 1811}#)
-                             (if (eqv? #{type\ 1805}# (quote begin-form))
-                               (let ((#{tmp\ 1841}# #{e\ 1807}#))
-                                 (let ((#{tmp\ 1842}#
+                         (if (eqv? #{type\ 1806}# (quote global))
+                           (#{build-global-reference\ 316}#
+                             #{s\ 1811}#
+                             #{value\ 1807}#
+                             #{mod\ 1812}#)
+                           (if (eqv? #{type\ 1806}# (quote call))
+                             (#{chi-application\ 469}#
+                               (#{chi\ 465}#
+                                 (car #{e\ 1808}#)
+                                 #{r\ 1809}#
+                                 #{w\ 1810}#
+                                 #{mod\ 1812}#)
+                               #{e\ 1808}#
+                               #{r\ 1809}#
+                               #{w\ 1810}#
+                               #{s\ 1811}#
+                               #{mod\ 1812}#)
+                             (if (eqv? #{type\ 1806}# (quote begin-form))
+                               (let ((#{tmp\ 1842}# #{e\ 1808}#))
+                                 (let ((#{tmp\ 1843}#
                                          ($sc-dispatch
-                                           #{tmp\ 1841}#
+                                           #{tmp\ 1842}#
                                            '(_ any . each-any))))
-                                   (if #{tmp\ 1842}#
+                                   (if #{tmp\ 1843}#
                                      (@apply
-                                       (lambda (#{e1\ 1845}# #{e2\ 1846}#)
-                                         (#{chi-sequence\ 452}#
-                                           (cons #{e1\ 1845}# #{e2\ 1846}#)
-                                           #{r\ 1808}#
-                                           #{w\ 1809}#
-                                           #{s\ 1810}#
-                                           #{mod\ 1811}#))
-                                       #{tmp\ 1842}#)
+                                       (lambda (#{e1\ 1846}# #{e2\ 1847}#)
+                                         (#{chi-sequence\ 453}#
+                                           (cons #{e1\ 1846}# #{e2\ 1847}#)
+                                           #{r\ 1809}#
+                                           #{w\ 1810}#
+                                           #{s\ 1811}#
+                                           #{mod\ 1812}#))
+                                       #{tmp\ 1843}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any 
pattern"
-                                       #{tmp\ 1841}#))))
-                               (if (eqv? #{type\ 1805}#
+                                       #{tmp\ 1842}#))))
+                               (if (eqv? #{type\ 1806}#
                                          'local-syntax-form)
-                                 (#{chi-local-syntax\ 474}#
-                                   #{value\ 1806}#
-                                   #{e\ 1807}#
-                                   #{r\ 1808}#
-                                   #{w\ 1809}#
-                                   #{s\ 1810}#
-                                   #{mod\ 1811}#
-                                   #{chi-sequence\ 452}#)
-                                 (if (eqv? #{type\ 1805}#
+                                 (#{chi-local-syntax\ 475}#
+                                   #{value\ 1807}#
+                                   #{e\ 1808}#
+                                   #{r\ 1809}#
+                                   #{w\ 1810}#
+                                   #{s\ 1811}#
+                                   #{mod\ 1812}#
+                                   #{chi-sequence\ 453}#)
+                                 (if (eqv? #{type\ 1806}#
                                            'eval-when-form)
-                                   (let ((#{tmp\ 1850}# #{e\ 1807}#))
-                                     (let ((#{tmp\ 1851}#
+                                   (let ((#{tmp\ 1851}# #{e\ 1808}#))
+                                     (let ((#{tmp\ 1852}#
                                              ($sc-dispatch
-                                               #{tmp\ 1850}#
+                                               #{tmp\ 1851}#
                                                '(_ each-any any . each-any))))
-                                       (if #{tmp\ 1851}#
+                                       (if #{tmp\ 1852}#
                                          (@apply
-                                           (lambda (#{x\ 1855}#
-                                                    #{e1\ 1856}#
-                                                    #{e2\ 1857}#)
+                                           (lambda (#{x\ 1856}#
+                                                    #{e1\ 1857}#
+                                                    #{e2\ 1858}#)
                                              (begin
-                                               (let ((#{when-list\ 1859}#
-                                                       (#{chi-when-list\ 458}#
-                                                         #{e\ 1807}#
-                                                         #{x\ 1855}#
-                                                         #{w\ 1809}#)))
+                                               (let ((#{when-list\ 1860}#
+                                                       (#{chi-when-list\ 459}#
+                                                         #{e\ 1808}#
+                                                         #{x\ 1856}#
+                                                         #{w\ 1810}#)))
                                                  (if (memq 'eval
-                                                           #{when-list\ 1859}#)
-                                                   (#{chi-sequence\ 452}#
-                                                     (cons #{e1\ 1856}#
-                                                           #{e2\ 1857}#)
-                                                     #{r\ 1808}#
-                                                     #{w\ 1809}#
-                                                     #{s\ 1810}#
-                                                     #{mod\ 1811}#)
-                                                   (#{chi-void\ 478}#)))))
-                                           #{tmp\ 1851}#)
+                                                           #{when-list\ 1860}#)
+                                                   (#{chi-sequence\ 453}#
+                                                     (cons #{e1\ 1857}#
+                                                           #{e2\ 1858}#)
+                                                     #{r\ 1809}#
+                                                     #{w\ 1810}#
+                                                     #{s\ 1811}#
+                                                     #{mod\ 1812}#)
+                                                   (#{chi-void\ 479}#)))))
+                                           #{tmp\ 1852}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 1850}#))))
-                                   (if (if (eqv? #{type\ 1805}#
+                                           #{tmp\ 1851}#))))
+                                   (if (if (eqv? #{type\ 1806}#
                                                  'define-form)
                                          #t
-                                         (eqv? #{type\ 1805}#
+                                         (eqv? #{type\ 1806}#
                                                'define-syntax-form))
                                      (syntax-violation
                                        #f
                                        "definition in expression context"
-                                       #{e\ 1807}#
-                                       (#{wrap\ 448}#
-                                         #{value\ 1806}#
-                                         #{w\ 1809}#
-                                         #{mod\ 1811}#))
-                                     (if (eqv? #{type\ 1805}# (quote syntax))
+                                       #{e\ 1808}#
+                                       (#{wrap\ 449}#
+                                         #{value\ 1807}#
+                                         #{w\ 1810}#
+                                         #{mod\ 1812}#))
+                                     (if (eqv? #{type\ 1806}# (quote syntax))
                                        (syntax-violation
                                          #f
                                          "reference to pattern variable 
outside syntax form"
-                                         (#{source-wrap\ 450}#
-                                           #{e\ 1807}#
-                                           #{w\ 1809}#
-                                           #{s\ 1810}#
-                                           #{mod\ 1811}#))
-                                       (if (eqv? #{type\ 1805}#
+                                         (#{source-wrap\ 451}#
+                                           #{e\ 1808}#
+                                           #{w\ 1810}#
+                                           #{s\ 1811}#
+                                           #{mod\ 1812}#))
+                                       (if (eqv? #{type\ 1806}#
                                                  'displaced-lexical)
                                          (syntax-violation
                                            #f
                                            "reference to identifier outside 
its scope"
-                                           (#{source-wrap\ 450}#
-                                             #{e\ 1807}#
-                                             #{w\ 1809}#
-                                             #{s\ 1810}#
-                                             #{mod\ 1811}#))
+                                           (#{source-wrap\ 451}#
+                                             #{e\ 1808}#
+                                             #{w\ 1810}#
+                                             #{s\ 1811}#
+                                             #{mod\ 1812}#))
                                          (syntax-violation
                                            #f
                                            "unexpected syntax"
-                                           (#{source-wrap\ 450}#
-                                             #{e\ 1807}#
-                                             #{w\ 1809}#
-                                             #{s\ 1810}#
-                                             #{mod\ 1811}#))))))))))))))))))
-         (#{chi-application\ 468}#
-           (lambda (#{x\ 1866}#
-                    #{e\ 1867}#
-                    #{r\ 1868}#
-                    #{w\ 1869}#
-                    #{s\ 1870}#
-                    #{mod\ 1871}#)
-             (let ((#{tmp\ 1878}# #{e\ 1867}#))
-               (let ((#{tmp\ 1879}#
+                                           (#{source-wrap\ 451}#
+                                             #{e\ 1808}#
+                                             #{w\ 1810}#
+                                             #{s\ 1811}#
+                                             #{mod\ 1812}#))))))))))))))))))
+         (#{chi-application\ 469}#
+           (lambda (#{x\ 1867}#
+                    #{e\ 1868}#
+                    #{r\ 1869}#
+                    #{w\ 1870}#
+                    #{s\ 1871}#
+                    #{mod\ 1872}#)
+             (let ((#{tmp\ 1879}# #{e\ 1868}#))
+               (let ((#{tmp\ 1880}#
                        ($sc-dispatch
-                         #{tmp\ 1878}#
+                         #{tmp\ 1879}#
                          '(any . each-any))))
-                 (if #{tmp\ 1879}#
+                 (if #{tmp\ 1880}#
                    (@apply
-                     (lambda (#{e0\ 1882}# #{e1\ 1883}#)
-                       (#{build-application\ 303}#
-                         #{s\ 1870}#
-                         #{x\ 1866}#
-                         (map (lambda (#{e\ 1884}#)
-                                (#{chi\ 464}#
-                                  #{e\ 1884}#
-                                  #{r\ 1868}#
-                                  #{w\ 1869}#
-                                  #{mod\ 1871}#))
-                              #{e1\ 1883}#)))
-                     #{tmp\ 1879}#)
+                     (lambda (#{e0\ 1883}# #{e1\ 1884}#)
+                       (#{build-application\ 304}#
+                         #{s\ 1871}#
+                         #{x\ 1867}#
+                         (map (lambda (#{e\ 1885}#)
+                                (#{chi\ 465}#
+                                  #{e\ 1885}#
+                                  #{r\ 1869}#
+                                  #{w\ 1870}#
+                                  #{mod\ 1872}#))
+                              #{e1\ 1884}#)))
+                     #{tmp\ 1880}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
-                     #{tmp\ 1878}#))))))
-         (#{chi-macro\ 470}#
-           (lambda (#{p\ 1887}#
-                    #{e\ 1888}#
-                    #{r\ 1889}#
-                    #{w\ 1890}#
-                    #{s\ 1891}#
-                    #{rib\ 1892}#
-                    #{mod\ 1893}#)
+                     #{tmp\ 1879}#))))))
+         (#{chi-macro\ 471}#
+           (lambda (#{p\ 1888}#
+                    #{e\ 1889}#
+                    #{r\ 1890}#
+                    #{w\ 1891}#
+                    #{s\ 1892}#
+                    #{rib\ 1893}#
+                    #{mod\ 1894}#)
              (letrec*
-               ((#{rebuild-macro-output\ 1902}#
-                  (lambda (#{x\ 1903}# #{m\ 1904}#)
-                    (if (pair? #{x\ 1903}#)
-                      (#{decorate-source\ 297}#
-                        (cons (#{rebuild-macro-output\ 1902}#
-                                (car #{x\ 1903}#)
-                                #{m\ 1904}#)
-                              (#{rebuild-macro-output\ 1902}#
-                                (cdr #{x\ 1903}#)
-                                #{m\ 1904}#))
-                        #{s\ 1891}#)
-                      (if (#{syntax-object?\ 343}# #{x\ 1903}#)
+               ((#{rebuild-macro-output\ 1903}#
+                  (lambda (#{x\ 1904}# #{m\ 1905}#)
+                    (if (pair? #{x\ 1904}#)
+                      (#{decorate-source\ 298}#
+                        (cons (#{rebuild-macro-output\ 1903}#
+                                (car #{x\ 1904}#)
+                                #{m\ 1905}#)
+                              (#{rebuild-macro-output\ 1903}#
+                                (cdr #{x\ 1904}#)
+                                #{m\ 1905}#))
+                        #{s\ 1892}#)
+                      (if (#{syntax-object?\ 344}# #{x\ 1904}#)
                         (begin
-                          (let ((#{w\ 1912}#
-                                  (#{syntax-object-wrap\ 347}# #{x\ 1903}#)))
+                          (let ((#{w\ 1913}#
+                                  (#{syntax-object-wrap\ 348}# #{x\ 1904}#)))
                             (begin
-                              (let ((#{ms\ 1915}#
-                                      (#{wrap-marks\ 386}# #{w\ 1912}#))
-                                    (#{s\ 1916}#
-                                      (#{wrap-subst\ 388}# #{w\ 1912}#)))
-                                (if (if (pair? #{ms\ 1915}#)
-                                      (eq? (car #{ms\ 1915}#) #f)
+                              (let ((#{ms\ 1916}#
+                                      (#{wrap-marks\ 387}# #{w\ 1913}#))
+                                    (#{s\ 1917}#
+                                      (#{wrap-subst\ 389}# #{w\ 1913}#)))
+                                (if (if (pair? #{ms\ 1916}#)
+                                      (eq? (car #{ms\ 1916}#) #f)
                                       #f)
-                                  (#{make-syntax-object\ 341}#
-                                    (#{syntax-object-expression\ 345}#
-                                      #{x\ 1903}#)
-                                    (#{make-wrap\ 384}#
-                                      (cdr #{ms\ 1915}#)
-                                      (if #{rib\ 1892}#
-                                        (cons #{rib\ 1892}# (cdr #{s\ 1916}#))
-                                        (cdr #{s\ 1916}#)))
-                                    (#{syntax-object-module\ 349}#
-                                      #{x\ 1903}#))
-                                  (#{make-syntax-object\ 341}#
-                                    (#{decorate-source\ 297}#
-                                      (#{syntax-object-expression\ 345}#
-                                        #{x\ 1903}#)
-                                      #{s\ 1916}#)
-                                    (#{make-wrap\ 384}#
-                                      (cons #{m\ 1904}# #{ms\ 1915}#)
-                                      (if #{rib\ 1892}#
-                                        (cons #{rib\ 1892}#
-                                              (cons (quote shift) #{s\ 1916}#))
-                                        (cons (quote shift) #{s\ 1916}#)))
-                                    (#{syntax-object-module\ 349}#
-                                      #{x\ 1903}#)))))))
-                        (if (vector? #{x\ 1903}#)
+                                  (#{make-syntax-object\ 342}#
+                                    (#{syntax-object-expression\ 346}#
+                                      #{x\ 1904}#)
+                                    (#{make-wrap\ 385}#
+                                      (cdr #{ms\ 1916}#)
+                                      (if #{rib\ 1893}#
+                                        (cons #{rib\ 1893}# (cdr #{s\ 1917}#))
+                                        (cdr #{s\ 1917}#)))
+                                    (#{syntax-object-module\ 350}#
+                                      #{x\ 1904}#))
+                                  (#{make-syntax-object\ 342}#
+                                    (#{decorate-source\ 298}#
+                                      (#{syntax-object-expression\ 346}#
+                                        #{x\ 1904}#)
+                                      #{s\ 1917}#)
+                                    (#{make-wrap\ 385}#
+                                      (cons #{m\ 1905}# #{ms\ 1916}#)
+                                      (if #{rib\ 1893}#
+                                        (cons #{rib\ 1893}#
+                                              (cons (quote shift) #{s\ 1917}#))
+                                        (cons (quote shift) #{s\ 1917}#)))
+                                    (#{syntax-object-module\ 350}#
+                                      #{x\ 1904}#)))))))
+                        (if (vector? #{x\ 1904}#)
                           (begin
-                            (let ((#{n\ 1924}# (vector-length #{x\ 1903}#)))
+                            (let ((#{n\ 1925}# (vector-length #{x\ 1904}#)))
                               (begin
-                                (let ((#{v\ 1926}#
-                                        (#{decorate-source\ 297}#
-                                          (make-vector #{n\ 1924}#)
-                                          #{x\ 1903}#)))
+                                (let ((#{v\ 1927}#
+                                        (#{decorate-source\ 298}#
+                                          (make-vector #{n\ 1925}#)
+                                          #{x\ 1904}#)))
                                   (letrec*
-                                    ((#{loop\ 1929}#
-                                       (lambda (#{i\ 1930}#)
-                                         (if (#{fx=\ 284}#
-                                               #{i\ 1930}#
-                                               #{n\ 1924}#)
-                                           (begin (if #f #f) #{v\ 1926}#)
+                                    ((#{loop\ 1930}#
+                                       (lambda (#{i\ 1931}#)
+                                         (if (#{fx=\ 285}#
+                                               #{i\ 1931}#
+                                               #{n\ 1925}#)
+                                           (begin (if #f #f) #{v\ 1927}#)
                                            (begin
                                              (vector-set!
-                                               #{v\ 1926}#
-                                               #{i\ 1930}#
-                                               (#{rebuild-macro-output\ 1902}#
+                                               #{v\ 1927}#
+                                               #{i\ 1931}#
+                                               (#{rebuild-macro-output\ 1903}#
                                                  (vector-ref
-                                                   #{x\ 1903}#
-                                                   #{i\ 1930}#)
-                                                 #{m\ 1904}#))
-                                             (#{loop\ 1929}#
-                                               (#{fx+\ 280}#
-                                                 #{i\ 1930}#
+                                                   #{x\ 1904}#
+                                                   #{i\ 1931}#)
+                                                 #{m\ 1905}#))
+                                             (#{loop\ 1930}#
+                                               (#{fx+\ 281}#
+                                                 #{i\ 1931}#
                                                  1)))))))
-                                    (begin (#{loop\ 1929}# 0)))))))
-                          (if (symbol? #{x\ 1903}#)
+                                    (begin (#{loop\ 1930}# 0)))))))
+                          (if (symbol? #{x\ 1904}#)
                             (syntax-violation
                               #f
                               "encountered raw symbol in macro output"
-                              (#{source-wrap\ 450}#
-                                #{e\ 1888}#
-                                #{w\ 1890}#
-                                (#{wrap-subst\ 388}# #{w\ 1890}#)
-                                #{mod\ 1893}#)
-                              #{x\ 1903}#)
-                            (#{decorate-source\ 297}#
-                              #{x\ 1903}#
-                              #{s\ 1891}#))))))))
+                              (#{source-wrap\ 451}#
+                                #{e\ 1889}#
+                                #{w\ 1891}#
+                                (#{wrap-subst\ 389}# #{w\ 1891}#)
+                                #{mod\ 1894}#)
+                              #{x\ 1904}#)
+                            (#{decorate-source\ 298}#
+                              #{x\ 1904}#
+                              #{s\ 1892}#))))))))
                (begin
-                 (#{rebuild-macro-output\ 1902}#
-                   (#{p\ 1887}#
-                     (#{source-wrap\ 450}#
-                       #{e\ 1888}#
-                       (#{anti-mark\ 420}# #{w\ 1890}#)
-                       #{s\ 1891}#
-                       #{mod\ 1893}#))
+                 (#{rebuild-macro-output\ 1903}#
+                   (#{p\ 1888}#
+                     (#{source-wrap\ 451}#
+                       #{e\ 1889}#
+                       (#{anti-mark\ 421}# #{w\ 1891}#)
+                       #{s\ 1892}#
+                       #{mod\ 1894}#))
                    (gensym "m"))))))
-         (#{chi-body\ 472}#
-           (lambda (#{body\ 1937}#
-                    #{outer-form\ 1938}#
-                    #{r\ 1939}#
-                    #{w\ 1940}#
-                    #{mod\ 1941}#)
+         (#{chi-body\ 473}#
+           (lambda (#{body\ 1938}#
+                    #{outer-form\ 1939}#
+                    #{r\ 1940}#
+                    #{w\ 1941}#
+                    #{mod\ 1942}#)
              (begin
-               (let ((#{r\ 1949}#
+               (let ((#{r\ 1950}#
                        (cons '("placeholder" placeholder)
-                             #{r\ 1939}#)))
+                             #{r\ 1940}#)))
                  (begin
-                   (let ((#{ribcage\ 1951}#
-                           (#{make-ribcage\ 400}#
+                   (let ((#{ribcage\ 1952}#
+                           (#{make-ribcage\ 401}#
                              '()
                              '()
                              '())))
                      (begin
-                       (let ((#{w\ 1954}#
-                               (#{make-wrap\ 384}#
-                                 (#{wrap-marks\ 386}# #{w\ 1940}#)
-                                 (cons #{ribcage\ 1951}#
-                                       (#{wrap-subst\ 388}# #{w\ 1940}#)))))
+                       (let ((#{w\ 1955}#
+                               (#{make-wrap\ 385}#
+                                 (#{wrap-marks\ 387}# #{w\ 1941}#)
+                                 (cons #{ribcage\ 1952}#
+                                       (#{wrap-subst\ 389}# #{w\ 1941}#)))))
                          (letrec*
-                           ((#{parse\ 1963}#
-                              (lambda (#{body\ 1964}#
-                                       #{ids\ 1965}#
-                                       #{labels\ 1966}#
-                                       #{var-ids\ 1967}#
-                                       #{vars\ 1968}#
-                                       #{vals\ 1969}#
-                                       #{bindings\ 1970}#)
-                                (if (null? #{body\ 1964}#)
+                           ((#{parse\ 1964}#
+                              (lambda (#{body\ 1965}#
+                                       #{ids\ 1966}#
+                                       #{labels\ 1967}#
+                                       #{var-ids\ 1968}#
+                                       #{vars\ 1969}#
+                                       #{vals\ 1970}#
+                                       #{bindings\ 1971}#)
+                                (if (null? #{body\ 1965}#)
                                   (syntax-violation
                                     #f
                                     "no expressions in body"
-                                    #{outer-form\ 1938}#)
+                                    #{outer-form\ 1939}#)
                                   (begin
-                                    (let ((#{e\ 1975}#
-                                            (cdr (car #{body\ 1964}#)))
-                                          (#{er\ 1976}#
-                                            (car (car #{body\ 1964}#))))
+                                    (let ((#{e\ 1976}#
+                                            (cdr (car #{body\ 1965}#)))
+                                          (#{er\ 1977}#
+                                            (car (car #{body\ 1965}#))))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 460}#
-                                            #{e\ 1975}#
-                                            #{er\ 1976}#
+                                          (#{syntax-type\ 461}#
+                                            #{e\ 1976}#
+                                            #{er\ 1977}#
                                             '(())
-                                            (#{source-annotation\ 358}#
-                                              #{er\ 1976}#)
-                                            #{ribcage\ 1951}#
-                                            #{mod\ 1941}#
+                                            (#{source-annotation\ 359}#
+                                              #{er\ 1977}#)
+                                            #{ribcage\ 1952}#
+                                            #{mod\ 1942}#
                                             #f))
-                                        (lambda (#{type\ 1978}#
-                                                 #{value\ 1979}#
-                                                 #{e\ 1980}#
-                                                 #{w\ 1981}#
-                                                 #{s\ 1982}#
-                                                 #{mod\ 1983}#)
-                                          (if (eqv? #{type\ 1978}#
+                                        (lambda (#{type\ 1979}#
+                                                 #{value\ 1980}#
+                                                 #{e\ 1981}#
+                                                 #{w\ 1982}#
+                                                 #{s\ 1983}#
+                                                 #{mod\ 1984}#)
+                                          (if (eqv? #{type\ 1979}#
                                                     'define-form)
                                             (begin
-                                              (let ((#{id\ 1993}#
-                                                      (#{wrap\ 448}#
-                                                        #{value\ 1979}#
-                                                        #{w\ 1981}#
-                                                        #{mod\ 1983}#))
-                                                    (#{label\ 1994}#
-                                                      (#{gen-label\ 395}#)))
+                                              (let ((#{id\ 1994}#
+                                                      (#{wrap\ 449}#
+                                                        #{value\ 1980}#
+                                                        #{w\ 1982}#
+                                                        #{mod\ 1984}#))
+                                                    (#{label\ 1995}#
+                                                      (#{gen-label\ 396}#)))
                                                 (begin
-                                                  (let ((#{var\ 1996}#
-                                                          (#{gen-var\ 492}#
-                                                            #{id\ 1993}#)))
+                                                  (let ((#{var\ 1997}#
+                                                          (#{gen-var\ 493}#
+                                                            #{id\ 1994}#)))
                                                     (begin
-                                                      (#{extend-ribcage!\ 424}#
-                                                        #{ribcage\ 1951}#
-                                                        #{id\ 1993}#
-                                                        #{label\ 1994}#)
-                                                      (#{parse\ 1963}#
-                                                        (cdr #{body\ 1964}#)
-                                                        (cons #{id\ 1993}#
-                                                              #{ids\ 1965}#)
-                                                        (cons #{label\ 1994}#
-                                                              #{labels\ 1966}#)
-                                                        (cons #{id\ 1993}#
-                                                              #{var-ids\ 
1967}#)
-                                                        (cons #{var\ 1996}#
-                                                              #{vars\ 1968}#)
-                                                        (cons (cons #{er\ 
1976}#
-                                                                    (#{wrap\ 
448}#
-                                                                      #{e\ 
1980}#
-                                                                      #{w\ 
1981}#
-                                                                      #{mod\ 
1983}#))
-                                                              #{vals\ 1969}#)
+                                                      (#{extend-ribcage!\ 425}#
+                                                        #{ribcage\ 1952}#
+                                                        #{id\ 1994}#
+                                                        #{label\ 1995}#)
+                                                      (#{parse\ 1964}#
+                                                        (cdr #{body\ 1965}#)
+                                                        (cons #{id\ 1994}#
+                                                              #{ids\ 1966}#)
+                                                        (cons #{label\ 1995}#
+                                                              #{labels\ 1967}#)
+                                                        (cons #{id\ 1994}#
+                                                              #{var-ids\ 
1968}#)
+                                                        (cons #{var\ 1997}#
+                                                              #{vars\ 1969}#)
+                                                        (cons (cons #{er\ 
1977}#
+                                                                    (#{wrap\ 
449}#
+                                                                      #{e\ 
1981}#
+                                                                      #{w\ 
1982}#
+                                                                      #{mod\ 
1984}#))
+                                                              #{vals\ 1970}#)
                                                         (cons (cons 'lexical
-                                                                    #{var\ 
1996}#)
-                                                              #{bindings\ 
1970}#)))))))
-                                            (if (eqv? #{type\ 1978}#
+                                                                    #{var\ 
1997}#)
+                                                              #{bindings\ 
1971}#)))))))
+                                            (if (eqv? #{type\ 1979}#
                                                       'define-syntax-form)
                                               (begin
-                                                (let ((#{id\ 2001}#
-                                                        (#{wrap\ 448}#
-                                                          #{value\ 1979}#
-                                                          #{w\ 1981}#
-                                                          #{mod\ 1983}#))
-                                                      (#{label\ 2002}#
-                                                        (#{gen-label\ 395}#)))
+                                                (let ((#{id\ 2002}#
+                                                        (#{wrap\ 449}#
+                                                          #{value\ 1980}#
+                                                          #{w\ 1982}#
+                                                          #{mod\ 1984}#))
+                                                      (#{label\ 2003}#
+                                                        (#{gen-label\ 396}#)))
                                                   (begin
-                                                    (#{extend-ribcage!\ 424}#
-                                                      #{ribcage\ 1951}#
-                                                      #{id\ 2001}#
-                                                      #{label\ 2002}#)
-                                                    (#{parse\ 1963}#
-                                                      (cdr #{body\ 1964}#)
-                                                      (cons #{id\ 2001}#
-                                                            #{ids\ 1965}#)
-                                                      (cons #{label\ 2002}#
-                                                            #{labels\ 1966}#)
-                                                      #{var-ids\ 1967}#
-                                                      #{vars\ 1968}#
-                                                      #{vals\ 1969}#
+                                                    (#{extend-ribcage!\ 425}#
+                                                      #{ribcage\ 1952}#
+                                                      #{id\ 2002}#
+                                                      #{label\ 2003}#)
+                                                    (#{parse\ 1964}#
+                                                      (cdr #{body\ 1965}#)
+                                                      (cons #{id\ 2002}#
+                                                            #{ids\ 1966}#)
+                                                      (cons #{label\ 2003}#
+                                                            #{labels\ 1967}#)
+                                                      #{var-ids\ 1968}#
+                                                      #{vars\ 1969}#
+                                                      #{vals\ 1970}#
                                                       (cons (cons 'macro
-                                                                  (cons #{er\ 
1976}#
-                                                                        
(#{wrap\ 448}#
-                                                                          #{e\ 
1980}#
-                                                                          #{w\ 
1981}#
-                                                                          
#{mod\ 1983}#)))
-                                                            #{bindings\ 
1970}#)))))
-                                              (if (eqv? #{type\ 1978}#
+                                                                  (cons #{er\ 
1977}#
+                                                                        
(#{wrap\ 449}#
+                                                                          #{e\ 
1981}#
+                                                                          #{w\ 
1982}#
+                                                                          
#{mod\ 1984}#)))
+                                                            #{bindings\ 
1971}#)))))
+                                              (if (eqv? #{type\ 1979}#
                                                         'begin-form)
-                                                (let ((#{tmp\ 2005}#
-                                                        #{e\ 1980}#))
-                                                  (let ((#{tmp\ 2006}#
+                                                (let ((#{tmp\ 2006}#
+                                                        #{e\ 1981}#))
+                                                  (let ((#{tmp\ 2007}#
                                                           ($sc-dispatch
-                                                            #{tmp\ 2005}#
+                                                            #{tmp\ 2006}#
                                                             '(_ . each-any))))
-                                                    (if #{tmp\ 2006}#
+                                                    (if #{tmp\ 2007}#
                                                       (@apply
-                                                        (lambda (#{e1\ 2008}#)
-                                                          (#{parse\ 1963}#
+                                                        (lambda (#{e1\ 2009}#)
+                                                          (#{parse\ 1964}#
                                                             (letrec*
-                                                              ((#{f\ 2011}#
-                                                                 (lambda 
(#{forms\ 2012}#)
-                                                                   (if (null? 
#{forms\ 2012}#)
-                                                                     (cdr 
#{body\ 1964}#)
-                                                                     (cons 
(cons #{er\ 1976}#
-                                                                               
  (#{wrap\ 448}#
-                                                                               
    (car #{forms\ 2012}#)
-                                                                               
    #{w\ 1981}#
-                                                                               
    #{mod\ 1983}#))
-                                                                           
(#{f\ 2011}#
-                                                                             
(cdr #{forms\ 2012}#)))))))
+                                                              ((#{f\ 2012}#
+                                                                 (lambda 
(#{forms\ 2013}#)
+                                                                   (if (null? 
#{forms\ 2013}#)
+                                                                     (cdr 
#{body\ 1965}#)
+                                                                     (cons 
(cons #{er\ 1977}#
+                                                                               
  (#{wrap\ 449}#
+                                                                               
    (car #{forms\ 2013}#)
+                                                                               
    #{w\ 1982}#
+                                                                               
    #{mod\ 1984}#))
+                                                                           
(#{f\ 2012}#
+                                                                             
(cdr #{forms\ 2013}#)))))))
                                                               (begin
-                                                                (#{f\ 2011}#
-                                                                  #{e1\ 
2008}#)))
-                                                            #{ids\ 1965}#
-                                                            #{labels\ 1966}#
-                                                            #{var-ids\ 1967}#
-                                                            #{vars\ 1968}#
-                                                            #{vals\ 1969}#
-                                                            #{bindings\ 
1970}#))
-                                                        #{tmp\ 2006}#)
+                                                                (#{f\ 2012}#
+                                                                  #{e1\ 
2009}#)))
+                                                            #{ids\ 1966}#
+                                                            #{labels\ 1967}#
+                                                            #{var-ids\ 1968}#
+                                                            #{vars\ 1969}#
+                                                            #{vals\ 1970}#
+                                                            #{bindings\ 
1971}#))
+                                                        #{tmp\ 2007}#)
                                                       (syntax-violation
                                                         #f
                                                         "source expression 
failed to match any pattern"
-                                                        #{tmp\ 2005}#))))
-                                                (if (eqv? #{type\ 1978}#
+                                                        #{tmp\ 2006}#))))
+                                                (if (eqv? #{type\ 1979}#
                                                           'local-syntax-form)
-                                                  (#{chi-local-syntax\ 474}#
-                                                    #{value\ 1979}#
-                                                    #{e\ 1980}#
-                                                    #{er\ 1976}#
-                                                    #{w\ 1981}#
-                                                    #{s\ 1982}#
-                                                    #{mod\ 1983}#
-                                                    (lambda (#{forms\ 2015}#
-                                                             #{er\ 2016}#
-                                                             #{w\ 2017}#
-                                                             #{s\ 2018}#
-                                                             #{mod\ 2019}#)
-                                                      (#{parse\ 1963}#
+                                                  (#{chi-local-syntax\ 475}#
+                                                    #{value\ 1980}#
+                                                    #{e\ 1981}#
+                                                    #{er\ 1977}#
+                                                    #{w\ 1982}#
+                                                    #{s\ 1983}#
+                                                    #{mod\ 1984}#
+                                                    (lambda (#{forms\ 2016}#
+                                                             #{er\ 2017}#
+                                                             #{w\ 2018}#
+                                                             #{s\ 2019}#
+                                                             #{mod\ 2020}#)
+                                                      (#{parse\ 1964}#
                                                         (letrec*
-                                                          ((#{f\ 2027}#
-                                                             (lambda (#{forms\ 
2028}#)
-                                                               (if (null? 
#{forms\ 2028}#)
-                                                                 (cdr #{body\ 
1964}#)
-                                                                 (cons (cons 
#{er\ 2016}#
-                                                                             
(#{wrap\ 448}#
-                                                                               
(car #{forms\ 2028}#)
-                                                                               
#{w\ 2017}#
-                                                                               
#{mod\ 2019}#))
-                                                                       (#{f\ 
2027}#
-                                                                         (cdr 
#{forms\ 2028}#)))))))
+                                                          ((#{f\ 2028}#
+                                                             (lambda (#{forms\ 
2029}#)
+                                                               (if (null? 
#{forms\ 2029}#)
+                                                                 (cdr #{body\ 
1965}#)
+                                                                 (cons (cons 
#{er\ 2017}#
+                                                                             
(#{wrap\ 449}#
+                                                                               
(car #{forms\ 2029}#)
+                                                                               
#{w\ 2018}#
+                                                                               
#{mod\ 2020}#))
+                                                                       (#{f\ 
2028}#
+                                                                         (cdr 
#{forms\ 2029}#)))))))
                                                           (begin
-                                                            (#{f\ 2027}#
-                                                              #{forms\ 
2015}#)))
-                                                        #{ids\ 1965}#
-                                                        #{labels\ 1966}#
-                                                        #{var-ids\ 1967}#
-                                                        #{vars\ 1968}#
-                                                        #{vals\ 1969}#
-                                                        #{bindings\ 1970}#)))
-                                                  (if (null? #{ids\ 1965}#)
-                                                    (#{build-sequence\ 331}#
+                                                            (#{f\ 2028}#
+                                                              #{forms\ 
2016}#)))
+                                                        #{ids\ 1966}#
+                                                        #{labels\ 1967}#
+                                                        #{var-ids\ 1968}#
+                                                        #{vars\ 1969}#
+                                                        #{vals\ 1970}#
+                                                        #{bindings\ 1971}#)))
+                                                  (if (null? #{ids\ 1966}#)
+                                                    (#{build-sequence\ 332}#
                                                       #f
-                                                      (map (lambda (#{x\ 
2031}#)
-                                                             (#{chi\ 464}#
-                                                               (cdr #{x\ 
2031}#)
-                                                               (car #{x\ 
2031}#)
+                                                      (map (lambda (#{x\ 
2032}#)
+                                                             (#{chi\ 465}#
+                                                               (cdr #{x\ 
2032}#)
+                                                               (car #{x\ 
2032}#)
                                                                '(())
-                                                               #{mod\ 1983}#))
-                                                           (cons (cons #{er\ 
1976}#
-                                                                       
(#{source-wrap\ 450}#
-                                                                         #{e\ 
1980}#
-                                                                         #{w\ 
1981}#
-                                                                         #{s\ 
1982}#
-                                                                         
#{mod\ 1983}#))
-                                                                 (cdr #{body\ 
1964}#))))
+                                                               #{mod\ 1984}#))
+                                                           (cons (cons #{er\ 
1977}#
+                                                                       
(#{source-wrap\ 451}#
+                                                                         #{e\ 
1981}#
+                                                                         #{w\ 
1982}#
+                                                                         #{s\ 
1983}#
+                                                                         
#{mod\ 1984}#))
+                                                                 (cdr #{body\ 
1965}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 442}#
-                                                                 #{ids\ 
1965}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 443}#
+                                                                 #{ids\ 
1966}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 
1938}#))
+                                                          #{outer-form\ 
1939}#))
                                                       (letrec*
-                                                        ((#{loop\ 2038}#
-                                                           (lambda (#{bs\ 
2039}#
-                                                                    
#{er-cache\ 2040}#
-                                                                    #{r-cache\ 
2041}#)
-                                                             (if (not (null? 
#{bs\ 2039}#))
+                                                        ((#{loop\ 2039}#
+                                                           (lambda (#{bs\ 
2040}#
+                                                                    
#{er-cache\ 2041}#
+                                                                    #{r-cache\ 
2042}#)
+                                                             (if (not (null? 
#{bs\ 2040}#))
                                                                (begin
-                                                                 (let ((#{b\ 
2044}#
-                                                                         (car 
#{bs\ 2039}#)))
-                                                                   (if (eq? 
(car #{b\ 2044}#)
+                                                                 (let ((#{b\ 
2045}#
+                                                                         (car 
#{bs\ 2040}#)))
+                                                                   (if (eq? 
(car #{b\ 2045}#)
                                                                             
'macro)
                                                                      (begin
-                                                                       (let 
((#{er\ 2047}#
-                                                                               
(car (cdr #{b\ 2044}#))))
+                                                                       (let 
((#{er\ 2048}#
+                                                                               
(car (cdr #{b\ 2045}#))))
                                                                          (begin
-                                                                           
(let ((#{r-cache\ 2049}#
-                                                                               
    (if (eq? #{er\ 2047}#
-                                                                               
             #{er-cache\ 2040}#)
-                                                                               
      #{r-cache\ 2041}#
-                                                                               
      (#{macros-only-env\ 371}#
-                                                                               
        #{er\ 2047}#))))
+                                                                           
(let ((#{r-cache\ 2050}#
+                                                                               
    (if (eq? #{er\ 2048}#
+                                                                               
             #{er-cache\ 2041}#)
+                                                                               
      #{r-cache\ 2042}#
+                                                                               
      (#{macros-only-env\ 372}#
+                                                                               
        #{er\ 2048}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 2044}#
-                                                                               
  (#{eval-local-transformer\ 476}#
-                                                                               
    (#{chi\ 464}#
-                                                                               
      (cdr (cdr #{b\ 2044}#))
-                                                                               
      #{r-cache\ 2049}#
+                                                                               
  #{b\ 2045}#
+                                                                               
  (#{eval-local-transformer\ 477}#
+                                                                               
    (#{chi\ 465}#
+                                                                               
      (cdr (cdr #{b\ 2045}#))
+                                                                               
      #{r-cache\ 2050}#
                                                                                
      '(())
-                                                                               
      #{mod\ 1983}#)
-                                                                               
    #{mod\ 1983}#))
-                                                                               
(#{loop\ 2038}#
-                                                                               
  (cdr #{bs\ 2039}#)
-                                                                               
  #{er\ 2047}#
-                                                                               
  #{r-cache\ 2049}#))))))
-                                                                     (#{loop\ 
2038}#
-                                                                       (cdr 
#{bs\ 2039}#)
-                                                                       
#{er-cache\ 2040}#
-                                                                       
#{r-cache\ 2041}#))))))))
+                                                                               
      #{mod\ 1984}#)
+                                                                               
    #{mod\ 1984}#))
+                                                                               
(#{loop\ 2039}#
+                                                                               
  (cdr #{bs\ 2040}#)
+                                                                               
  #{er\ 2048}#
+                                                                               
  #{r-cache\ 2050}#))))))
+                                                                     (#{loop\ 
2039}#
+                                                                       (cdr 
#{bs\ 2040}#)
+                                                                       
#{er-cache\ 2041}#
+                                                                       
#{r-cache\ 2042}#))))))))
                                                         (begin
-                                                          (#{loop\ 2038}#
-                                                            #{bindings\ 1970}#
+                                                          (#{loop\ 2039}#
+                                                            #{bindings\ 1971}#
                                                             #f
                                                             #f)))
                                                       (set-cdr!
-                                                        #{r\ 1949}#
-                                                        (#{extend-env\ 367}#
-                                                          #{labels\ 1966}#
-                                                          #{bindings\ 1970}#
-                                                          (cdr #{r\ 1949}#)))
-                                                      (#{build-letrec\ 337}#
+                                                        #{r\ 1950}#
+                                                        (#{extend-env\ 368}#
+                                                          #{labels\ 1967}#
+                                                          #{bindings\ 1971}#
+                                                          (cdr #{r\ 1950}#)))
+                                                      (#{build-letrec\ 338}#
                                                         #f
                                                         #t
                                                         (reverse
                                                           (map syntax->datum
-                                                               #{var-ids\ 
1967}#))
+                                                               #{var-ids\ 
1968}#))
                                                         (reverse
-                                                          #{vars\ 1968}#)
-                                                        (map (lambda (#{x\ 
2052}#)
-                                                               (#{chi\ 464}#
-                                                                 (cdr #{x\ 
2052}#)
-                                                                 (car #{x\ 
2052}#)
+                                                          #{vars\ 1969}#)
+                                                        (map (lambda (#{x\ 
2053}#)
+                                                               (#{chi\ 465}#
+                                                                 (cdr #{x\ 
2053}#)
+                                                                 (car #{x\ 
2053}#)
                                                                  '(())
-                                                                 #{mod\ 
1983}#))
+                                                                 #{mod\ 
1984}#))
                                                              (reverse
-                                                               #{vals\ 1969}#))
-                                                        (#{build-sequence\ 
331}#
+                                                               #{vals\ 1970}#))
+                                                        (#{build-sequence\ 
332}#
                                                           #f
-                                                          (map (lambda (#{x\ 
2056}#)
-                                                                 (#{chi\ 464}#
-                                                                   (cdr #{x\ 
2056}#)
-                                                                   (car #{x\ 
2056}#)
+                                                          (map (lambda (#{x\ 
2057}#)
+                                                                 (#{chi\ 465}#
+                                                                   (cdr #{x\ 
2057}#)
+                                                                   (car #{x\ 
2057}#)
                                                                    '(())
-                                                                   #{mod\ 
1983}#))
-                                                               (cons (cons 
#{er\ 1976}#
-                                                                           
(#{source-wrap\ 450}#
-                                                                             
#{e\ 1980}#
-                                                                             
#{w\ 1981}#
-                                                                             
#{s\ 1982}#
-                                                                             
#{mod\ 1983}#))
-                                                                     (cdr 
#{body\ 1964}#)))))))))))))))))))
+                                                                   #{mod\ 
1984}#))
+                                                               (cons (cons 
#{er\ 1977}#
+                                                                           
(#{source-wrap\ 451}#
+                                                                             
#{e\ 1981}#
+                                                                             
#{w\ 1982}#
+                                                                             
#{s\ 1983}#
+                                                                             
#{mod\ 1984}#))
+                                                                     (cdr 
#{body\ 1965}#)))))))))))))))))))
                            (begin
-                             (#{parse\ 1963}#
-                               (map (lambda (#{x\ 1971}#)
-                                      (cons #{r\ 1949}#
-                                            (#{wrap\ 448}#
-                                              #{x\ 1971}#
-                                              #{w\ 1954}#
-                                              #{mod\ 1941}#)))
-                                    #{body\ 1937}#)
+                             (#{parse\ 1964}#
+                               (map (lambda (#{x\ 1972}#)
+                                      (cons #{r\ 1950}#
+                                            (#{wrap\ 449}#
+                                              #{x\ 1972}#
+                                              #{w\ 1955}#
+                                              #{mod\ 1942}#)))
+                                    #{body\ 1938}#)
                                '()
                                '()
                                '()
                                '()
                                '()
                                '())))))))))))
-         (#{chi-local-syntax\ 474}#
-           (lambda (#{rec?\ 2059}#
-                    #{e\ 2060}#
-                    #{r\ 2061}#
-                    #{w\ 2062}#
-                    #{s\ 2063}#
-                    #{mod\ 2064}#
-                    #{k\ 2065}#)
-             (let ((#{tmp\ 2073}# #{e\ 2060}#))
-               (let ((#{tmp\ 2074}#
+         (#{chi-local-syntax\ 475}#
+           (lambda (#{rec?\ 2060}#
+                    #{e\ 2061}#
+                    #{r\ 2062}#
+                    #{w\ 2063}#
+                    #{s\ 2064}#
+                    #{mod\ 2065}#
+                    #{k\ 2066}#)
+             (let ((#{tmp\ 2074}# #{e\ 2061}#))
+               (let ((#{tmp\ 2075}#
                        ($sc-dispatch
-                         #{tmp\ 2073}#
+                         #{tmp\ 2074}#
                          '(_ #(each (any any)) any . each-any))))
-                 (if #{tmp\ 2074}#
+                 (if #{tmp\ 2075}#
                    (@apply
-                     (lambda (#{id\ 2079}#
-                              #{val\ 2080}#
-                              #{e1\ 2081}#
-                              #{e2\ 2082}#)
+                     (lambda (#{id\ 2080}#
+                              #{val\ 2081}#
+                              #{e1\ 2082}#
+                              #{e2\ 2083}#)
                        (begin
-                         (let ((#{ids\ 2084}# #{id\ 2079}#))
-                           (if (not (#{valid-bound-ids?\ 442}# #{ids\ 2084}#))
+                         (let ((#{ids\ 2085}# #{id\ 2080}#))
+                           (if (not (#{valid-bound-ids?\ 443}# #{ids\ 2085}#))
                              (syntax-violation
                                #f
                                "duplicate bound keyword"
-                               #{e\ 2060}#)
+                               #{e\ 2061}#)
                              (begin
-                               (let ((#{labels\ 2087}#
-                                       (#{gen-labels\ 397}# #{ids\ 2084}#)))
+                               (let ((#{labels\ 2088}#
+                                       (#{gen-labels\ 398}# #{ids\ 2085}#)))
                                  (begin
-                                   (let ((#{new-w\ 2089}#
-                                           (#{make-binding-wrap\ 426}#
-                                             #{ids\ 2084}#
-                                             #{labels\ 2087}#
-                                             #{w\ 2062}#)))
-                                     (#{k\ 2065}#
-                                       (cons #{e1\ 2081}# #{e2\ 2082}#)
-                                       (#{extend-env\ 367}#
-                                         #{labels\ 2087}#
+                                   (let ((#{new-w\ 2090}#
+                                           (#{make-binding-wrap\ 427}#
+                                             #{ids\ 2085}#
+                                             #{labels\ 2088}#
+                                             #{w\ 2063}#)))
+                                     (#{k\ 2066}#
+                                       (cons #{e1\ 2082}# #{e2\ 2083}#)
+                                       (#{extend-env\ 368}#
+                                         #{labels\ 2088}#
                                          (begin
-                                           (let ((#{w\ 2093}#
-                                                   (if #{rec?\ 2059}#
-                                                     #{new-w\ 2089}#
-                                                     #{w\ 2062}#))
-                                                 (#{trans-r\ 2094}#
-                                                   (#{macros-only-env\ 371}#
-                                                     #{r\ 2061}#)))
-                                             (map (lambda (#{x\ 2095}#)
+                                           (let ((#{w\ 2094}#
+                                                   (if #{rec?\ 2060}#
+                                                     #{new-w\ 2090}#
+                                                     #{w\ 2063}#))
+                                                 (#{trans-r\ 2095}#
+                                                   (#{macros-only-env\ 372}#
+                                                     #{r\ 2062}#)))
+                                             (map (lambda (#{x\ 2096}#)
                                                     (cons 'macro
-                                                          
(#{eval-local-transformer\ 476}#
-                                                            (#{chi\ 464}#
-                                                              #{x\ 2095}#
-                                                              #{trans-r\ 2094}#
-                                                              #{w\ 2093}#
-                                                              #{mod\ 2064}#)
-                                                            #{mod\ 2064}#)))
-                                                  #{val\ 2080}#)))
-                                         #{r\ 2061}#)
-                                       #{new-w\ 2089}#
-                                       #{s\ 2063}#
-                                       #{mod\ 2064}#)))))))))
-                     #{tmp\ 2074}#)
-                   (let ((#{_\ 2100}# #{tmp\ 2073}#))
+                                                          
(#{eval-local-transformer\ 477}#
+                                                            (#{chi\ 465}#
+                                                              #{x\ 2096}#
+                                                              #{trans-r\ 2095}#
+                                                              #{w\ 2094}#
+                                                              #{mod\ 2065}#)
+                                                            #{mod\ 2065}#)))
+                                                  #{val\ 2081}#)))
+                                         #{r\ 2062}#)
+                                       #{new-w\ 2090}#
+                                       #{s\ 2064}#
+                                       #{mod\ 2065}#)))))))))
+                     #{tmp\ 2075}#)
+                   (let ((#{_\ 2101}# #{tmp\ 2074}#))
                      (syntax-violation
                        #f
                        "bad local syntax definition"
-                       (#{source-wrap\ 450}#
-                         #{e\ 2060}#
-                         #{w\ 2062}#
-                         #{s\ 2063}#
-                         #{mod\ 2064}#))))))))
-         (#{eval-local-transformer\ 476}#
-           (lambda (#{expanded\ 2101}# #{mod\ 2102}#)
+                       (#{source-wrap\ 451}#
+                         #{e\ 2061}#
+                         #{w\ 2063}#
+                         #{s\ 2064}#
+                         #{mod\ 2065}#))))))))
+         (#{eval-local-transformer\ 477}#
+           (lambda (#{expanded\ 2102}# #{mod\ 2103}#)
              (begin
-               (let ((#{p\ 2106}#
-                       (#{local-eval-hook\ 290}#
-                         #{expanded\ 2101}#
-                         #{mod\ 2102}#)))
-                 (if (procedure? #{p\ 2106}#)
-                   #{p\ 2106}#
+               (let ((#{p\ 2107}#
+                       (#{local-eval-hook\ 291}#
+                         #{expanded\ 2102}#
+                         #{mod\ 2103}#)))
+                 (if (procedure? #{p\ 2107}#)
+                   #{p\ 2107}#
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 2106}#))))))
-         (#{chi-void\ 478}#
-           (lambda () (#{build-void\ 301}# #f)))
-         (#{ellipsis?\ 480}#
-           (lambda (#{x\ 2108}#)
-             (if (#{nonsymbol-id?\ 377}# #{x\ 2108}#)
-               (#{free-id=?\ 438}#
-                 #{x\ 2108}#
+                     #{p\ 2107}#))))))
+         (#{chi-void\ 479}#
+           (lambda () (#{build-void\ 302}# #f)))
+         (#{ellipsis?\ 481}#
+           (lambda (#{x\ 2109}#)
+             (if (#{nonsymbol-id?\ 378}# #{x\ 2109}#)
+               (#{free-id=?\ 439}#
+                 #{x\ 2109}#
                  '#(syntax-object
                     ...
                     ((top)
                      #(ribcage () () ())
                      #(ribcage () () ())
-                     #(ribcage #(x) #((top)) #("i2109"))
+                     #(ribcage #(x) #((top)) #("i2110"))
                      #(ribcage
                        (lambda-var-list
                          gen-var
@@ -6747,417 +6747,417 @@
                         (top)
                         (top)
                         (top))
-                       ("i493"
-                        "i491"
-                        "i489"
-                        "i487"
-                        "i485"
-                        "i483"
-                        "i481"
-                        "i479"
-                        "i477"
-                        "i475"
-                        "i473"
-                        "i471"
-                        "i469"
-                        "i467"
-                        "i465"
-                        "i463"
-                        "i461"
-                        "i459"
-                        "i457"
-                        "i455"
-                        "i453"
-                        "i451"
-                        "i449"
-                        "i447"
-                        "i445"
-                        "i443"
-                        "i441"
-                        "i439"
-                        "i437"
-                        "i435"
-                        "i433"
-                        "i431"
-                        "i429"
-                        "i427"
-                        "i425"
+                       ("i494"
+                        "i492"
+                        "i490"
+                        "i488"
+                        "i486"
+                        "i484"
+                        "i482"
+                        "i480"
+                        "i478"
+                        "i476"
+                        "i474"
+                        "i472"
+                        "i470"
+                        "i468"
+                        "i466"
+                        "i464"
+                        "i462"
+                        "i460"
+                        "i458"
+                        "i456"
+                        "i454"
+                        "i452"
+                        "i450"
+                        "i448"
+                        "i446"
+                        "i444"
+                        "i442"
+                        "i440"
+                        "i438"
+                        "i436"
+                        "i434"
+                        "i432"
+                        "i430"
+                        "i428"
+                        "i426"
+                        "i424"
                         "i423"
                         "i422"
-                        "i421"
+                        "i420"
                         "i419"
                         "i418"
                         "i417"
                         "i416"
-                        "i415"
-                        "i413"
-                        "i411"
-                        "i409"
-                        "i407"
-                        "i405"
-                        "i403"
-                        "i401"
-                        "i399"
-                        "i396"
+                        "i414"
+                        "i412"
+                        "i410"
+                        "i408"
+                        "i406"
+                        "i404"
+                        "i402"
+                        "i400"
+                        "i397"
+                        "i395"
                         "i394"
                         "i393"
                         "i392"
                         "i391"
                         "i390"
-                        "i389"
-                        "i387"
-                        "i385"
-                        "i383"
+                        "i388"
+                        "i386"
+                        "i384"
+                        "i382"
                         "i381"
-                        "i380"
-                        "i378"
-                        "i376"
-                        "i374"
-                        "i372"
-                        "i370"
-                        "i368"
+                        "i379"
+                        "i377"
+                        "i375"
+                        "i373"
+                        "i371"
+                        "i369"
+                        "i367"
                         "i366"
-                        "i365"
-                        "i363"
+                        "i364"
+                        "i362"
                         "i361"
                         "i360"
-                        "i359"
+                        "i358"
                         "i357"
-                        "i356"
-                        "i354"
-                        "i352"
-                        "i350"
-                        "i348"
-                        "i346"
-                        "i344"
-                        "i342"
-                        "i340"
-                        "i338"
-                        "i336"
-                        "i334"
-                        "i332"
-                        "i330"
-                        "i328"
-                        "i326"
-                        "i324"
-                        "i322"
-                        "i320"
-                        "i318"
-                        "i316"
-                        "i314"
-                        "i312"
-                        "i310"
-                        "i308"
-                        "i306"
-                        "i304"
-                        "i302"
-                        "i300"
-                        "i298"
-                        "i296"
-                        "i294"
+                        "i355"
+                        "i353"
+                        "i351"
+                        "i349"
+                        "i347"
+                        "i345"
+                        "i343"
+                        "i341"
+                        "i339"
+                        "i337"
+                        "i335"
+                        "i333"
+                        "i331"
+                        "i329"
+                        "i327"
+                        "i325"
+                        "i323"
+                        "i321"
+                        "i319"
+                        "i317"
+                        "i315"
+                        "i313"
+                        "i311"
+                        "i309"
+                        "i307"
+                        "i305"
+                        "i303"
+                        "i301"
+                        "i299"
+                        "i297"
+                        "i295"
+                        "i293"
                         "i292"
-                        "i291"
-                        "i289"
-                        "i287"
-                        "i285"
-                        "i283"
-                        "i281"
-                        "i279"
-                        "i277"
-                        "i275"
-                        "i273"
-                        "i270"
-                        "i268"
-                        "i266"
-                        "i264"
-                        "i262"
-                        "i260"
-                        "i258"
-                        "i256"
-                        "i254"
-                        "i252"
-                        "i250"
-                        "i248"
-                        "i246"
-                        "i244"
-                        "i242"
-                        "i240"
-                        "i238"
-                        "i236"))
+                        "i290"
+                        "i288"
+                        "i286"
+                        "i284"
+                        "i282"
+                        "i280"
+                        "i278"
+                        "i276"
+                        "i274"
+                        "i271"
+                        "i269"
+                        "i267"
+                        "i265"
+                        "i263"
+                        "i261"
+                        "i259"
+                        "i257"
+                        "i255"
+                        "i253"
+                        "i251"
+                        "i249"
+                        "i247"
+                        "i245"
+                        "i243"
+                        "i241"
+                        "i239"
+                        "i237"))
                      #(ribcage
                        (define-structure
                          define-expansion-accessors
                          define-expansion-constructors
                          and-map*)
                        ((top) (top) (top) (top))
-                       ("i38" "i37" "i36" "i34")))
+                       ("i39" "i38" "i37" "i35")))
                     (hygiene guile)))
                #f)))
-         (#{lambda-formals\ 482}#
-           (lambda (#{orig-args\ 2112}#)
+         (#{lambda-formals\ 483}#
+           (lambda (#{orig-args\ 2113}#)
              (letrec*
-               ((#{req\ 2115}#
-                  (lambda (#{args\ 2118}# #{rreq\ 2119}#)
-                    (let ((#{tmp\ 2122}# #{args\ 2118}#))
-                      (let ((#{tmp\ 2123}#
-                              ($sc-dispatch #{tmp\ 2122}# (quote ()))))
-                        (if #{tmp\ 2123}#
+               ((#{req\ 2116}#
+                  (lambda (#{args\ 2119}# #{rreq\ 2120}#)
+                    (let ((#{tmp\ 2123}# #{args\ 2119}#))
+                      (let ((#{tmp\ 2124}#
+                              ($sc-dispatch #{tmp\ 2123}# (quote ()))))
+                        (if #{tmp\ 2124}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2117}# (reverse #{rreq\ 2119}#) #f))
-                            #{tmp\ 2123}#)
-                          (let ((#{tmp\ 2124}#
+                              (#{check\ 2118}# (reverse #{rreq\ 2120}#) #f))
+                            #{tmp\ 2124}#)
+                          (let ((#{tmp\ 2125}#
                                   ($sc-dispatch
-                                    #{tmp\ 2122}#
+                                    #{tmp\ 2123}#
                                     '(any . any))))
-                            (if (if #{tmp\ 2124}#
+                            (if (if #{tmp\ 2125}#
                                   (@apply
-                                    (lambda (#{a\ 2127}# #{b\ 2128}#)
-                                      (#{id?\ 379}# #{a\ 2127}#))
-                                    #{tmp\ 2124}#)
+                                    (lambda (#{a\ 2128}# #{b\ 2129}#)
+                                      (#{id?\ 380}# #{a\ 2128}#))
+                                    #{tmp\ 2125}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2131}# #{b\ 2132}#)
-                                  (#{req\ 2115}#
-                                    #{b\ 2132}#
-                                    (cons #{a\ 2131}# #{rreq\ 2119}#)))
-                                #{tmp\ 2124}#)
-                              (let ((#{tmp\ 2133}# (list #{tmp\ 2122}#)))
-                                (if (if #{tmp\ 2133}#
+                                (lambda (#{a\ 2132}# #{b\ 2133}#)
+                                  (#{req\ 2116}#
+                                    #{b\ 2133}#
+                                    (cons #{a\ 2132}# #{rreq\ 2120}#)))
+                                #{tmp\ 2125}#)
+                              (let ((#{tmp\ 2134}# (list #{tmp\ 2123}#)))
+                                (if (if #{tmp\ 2134}#
                                       (@apply
-                                        (lambda (#{r\ 2135}#)
-                                          (#{id?\ 379}# #{r\ 2135}#))
-                                        #{tmp\ 2133}#)
+                                        (lambda (#{r\ 2136}#)
+                                          (#{id?\ 380}# #{r\ 2136}#))
+                                        #{tmp\ 2134}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{r\ 2137}#)
-                                      (#{check\ 2117}#
-                                        (reverse #{rreq\ 2119}#)
-                                        #{r\ 2137}#))
-                                    #{tmp\ 2133}#)
-                                  (let ((#{else\ 2139}# #{tmp\ 2122}#))
+                                    (lambda (#{r\ 2138}#)
+                                      (#{check\ 2118}#
+                                        (reverse #{rreq\ 2120}#)
+                                        #{r\ 2138}#))
+                                    #{tmp\ 2134}#)
+                                  (let ((#{else\ 2140}# #{tmp\ 2123}#))
                                     (syntax-violation
                                       'lambda
                                       "invalid argument list"
-                                      #{orig-args\ 2112}#
-                                      #{args\ 2118}#)))))))))))
-                (#{check\ 2117}#
-                  (lambda (#{req\ 2140}# #{rest\ 2141}#)
-                    (if (#{distinct-bound-ids?\ 444}#
-                          (if #{rest\ 2141}#
-                            (cons #{rest\ 2141}# #{req\ 2140}#)
-                            #{req\ 2140}#))
-                      (values #{req\ 2140}# #f #{rest\ 2141}# #f)
+                                      #{orig-args\ 2113}#
+                                      #{args\ 2119}#)))))))))))
+                (#{check\ 2118}#
+                  (lambda (#{req\ 2141}# #{rest\ 2142}#)
+                    (if (#{distinct-bound-ids?\ 445}#
+                          (if #{rest\ 2142}#
+                            (cons #{rest\ 2142}# #{req\ 2141}#)
+                            #{req\ 2141}#))
+                      (values #{req\ 2141}# #f #{rest\ 2142}# #f)
                       (syntax-violation
                         'lambda
                         "duplicate identifier in argument list"
-                        #{orig-args\ 2112}#)))))
+                        #{orig-args\ 2113}#)))))
                (begin
-                 (#{req\ 2115}# #{orig-args\ 2112}# (quote ()))))))
-         (#{chi-simple-lambda\ 484}#
-           (lambda (#{e\ 2147}#
-                    #{r\ 2148}#
-                    #{w\ 2149}#
-                    #{s\ 2150}#
-                    #{mod\ 2151}#
-                    #{req\ 2152}#
-                    #{rest\ 2153}#
-                    #{meta\ 2154}#
-                    #{body\ 2155}#)
+                 (#{req\ 2116}# #{orig-args\ 2113}# (quote ()))))))
+         (#{chi-simple-lambda\ 485}#
+           (lambda (#{e\ 2148}#
+                    #{r\ 2149}#
+                    #{w\ 2150}#
+                    #{s\ 2151}#
+                    #{mod\ 2152}#
+                    #{req\ 2153}#
+                    #{rest\ 2154}#
+                    #{meta\ 2155}#
+                    #{body\ 2156}#)
              (begin
-               (let ((#{ids\ 2167}#
-                       (if #{rest\ 2153}#
-                         (append #{req\ 2152}# (list #{rest\ 2153}#))
-                         #{req\ 2152}#)))
+               (let ((#{ids\ 2168}#
+                       (if #{rest\ 2154}#
+                         (append #{req\ 2153}# (list #{rest\ 2154}#))
+                         #{req\ 2153}#)))
                  (begin
-                   (let ((#{vars\ 2169}#
-                           (map #{gen-var\ 492}# #{ids\ 2167}#)))
+                   (let ((#{vars\ 2170}#
+                           (map #{gen-var\ 493}# #{ids\ 2168}#)))
                      (begin
-                       (let ((#{labels\ 2171}#
-                               (#{gen-labels\ 397}# #{ids\ 2167}#)))
-                         (#{build-simple-lambda\ 321}#
-                           #{s\ 2150}#
-                           (map syntax->datum #{req\ 2152}#)
-                           (if #{rest\ 2153}#
-                             (syntax->datum #{rest\ 2153}#)
+                       (let ((#{labels\ 2172}#
+                               (#{gen-labels\ 398}# #{ids\ 2168}#)))
+                         (#{build-simple-lambda\ 322}#
+                           #{s\ 2151}#
+                           (map syntax->datum #{req\ 2153}#)
+                           (if #{rest\ 2154}#
+                             (syntax->datum #{rest\ 2154}#)
                              #f)
-                           #{vars\ 2169}#
-                           #{meta\ 2154}#
-                           (#{chi-body\ 472}#
-                             #{body\ 2155}#
-                             (#{source-wrap\ 450}#
-                               #{e\ 2147}#
-                               #{w\ 2149}#
-                               #{s\ 2150}#
-                               #{mod\ 2151}#)
-                             (#{extend-var-env\ 369}#
-                               #{labels\ 2171}#
-                               #{vars\ 2169}#
-                               #{r\ 2148}#)
-                             (#{make-binding-wrap\ 426}#
-                               #{ids\ 2167}#
-                               #{labels\ 2171}#
-                               #{w\ 2149}#)
-                             #{mod\ 2151}#))))))))))
-         (#{lambda*-formals\ 486}#
-           (lambda (#{orig-args\ 2174}#)
+                           #{vars\ 2170}#
+                           #{meta\ 2155}#
+                           (#{chi-body\ 473}#
+                             #{body\ 2156}#
+                             (#{source-wrap\ 451}#
+                               #{e\ 2148}#
+                               #{w\ 2150}#
+                               #{s\ 2151}#
+                               #{mod\ 2152}#)
+                             (#{extend-var-env\ 370}#
+                               #{labels\ 2172}#
+                               #{vars\ 2170}#
+                               #{r\ 2149}#)
+                             (#{make-binding-wrap\ 427}#
+                               #{ids\ 2168}#
+                               #{labels\ 2172}#
+                               #{w\ 2150}#)
+                             #{mod\ 2152}#))))))))))
+         (#{lambda*-formals\ 487}#
+           (lambda (#{orig-args\ 2175}#)
              (letrec*
-               ((#{req\ 2177}#
-                  (lambda (#{args\ 2186}# #{rreq\ 2187}#)
-                    (let ((#{tmp\ 2190}# #{args\ 2186}#))
-                      (let ((#{tmp\ 2191}#
-                              ($sc-dispatch #{tmp\ 2190}# (quote ()))))
-                        (if #{tmp\ 2191}#
+               ((#{req\ 2178}#
+                  (lambda (#{args\ 2187}# #{rreq\ 2188}#)
+                    (let ((#{tmp\ 2191}# #{args\ 2187}#))
+                      (let ((#{tmp\ 2192}#
+                              ($sc-dispatch #{tmp\ 2191}# (quote ()))))
+                        (if #{tmp\ 2192}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2185}#
-                                (reverse #{rreq\ 2187}#)
+                              (#{check\ 2186}#
+                                (reverse #{rreq\ 2188}#)
                                 '()
                                 #f
                                 '()))
-                            #{tmp\ 2191}#)
-                          (let ((#{tmp\ 2192}#
+                            #{tmp\ 2192}#)
+                          (let ((#{tmp\ 2193}#
                                   ($sc-dispatch
-                                    #{tmp\ 2190}#
+                                    #{tmp\ 2191}#
                                     '(any . any))))
-                            (if (if #{tmp\ 2192}#
+                            (if (if #{tmp\ 2193}#
                                   (@apply
-                                    (lambda (#{a\ 2195}# #{b\ 2196}#)
-                                      (#{id?\ 379}# #{a\ 2195}#))
-                                    #{tmp\ 2192}#)
+                                    (lambda (#{a\ 2196}# #{b\ 2197}#)
+                                      (#{id?\ 380}# #{a\ 2196}#))
+                                    #{tmp\ 2193}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2199}# #{b\ 2200}#)
-                                  (#{req\ 2177}#
-                                    #{b\ 2200}#
-                                    (cons #{a\ 2199}# #{rreq\ 2187}#)))
-                                #{tmp\ 2192}#)
-                              (let ((#{tmp\ 2201}#
+                                (lambda (#{a\ 2200}# #{b\ 2201}#)
+                                  (#{req\ 2178}#
+                                    #{b\ 2201}#
+                                    (cons #{a\ 2200}# #{rreq\ 2188}#)))
+                                #{tmp\ 2193}#)
+                              (let ((#{tmp\ 2202}#
                                       ($sc-dispatch
-                                        #{tmp\ 2190}#
+                                        #{tmp\ 2191}#
                                         '(any . any))))
-                                (if (if #{tmp\ 2201}#
+                                (if (if #{tmp\ 2202}#
                                       (@apply
-                                        (lambda (#{a\ 2204}# #{b\ 2205}#)
-                                          (eq? (syntax->datum #{a\ 2204}#)
+                                        (lambda (#{a\ 2205}# #{b\ 2206}#)
+                                          (eq? (syntax->datum #{a\ 2205}#)
                                                #:optional))
-                                        #{tmp\ 2201}#)
+                                        #{tmp\ 2202}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a\ 2208}# #{b\ 2209}#)
-                                      (#{opt\ 2179}#
-                                        #{b\ 2209}#
-                                        (reverse #{rreq\ 2187}#)
+                                    (lambda (#{a\ 2209}# #{b\ 2210}#)
+                                      (#{opt\ 2180}#
+                                        #{b\ 2210}#
+                                        (reverse #{rreq\ 2188}#)
                                         '()))
-                                    #{tmp\ 2201}#)
-                                  (let ((#{tmp\ 2210}#
+                                    #{tmp\ 2202}#)
+                                  (let ((#{tmp\ 2211}#
                                           ($sc-dispatch
-                                            #{tmp\ 2190}#
+                                            #{tmp\ 2191}#
                                             '(any . any))))
-                                    (if (if #{tmp\ 2210}#
+                                    (if (if #{tmp\ 2211}#
                                           (@apply
-                                            (lambda (#{a\ 2213}# #{b\ 2214}#)
-                                              (eq? (syntax->datum #{a\ 2213}#)
+                                            (lambda (#{a\ 2214}# #{b\ 2215}#)
+                                              (eq? (syntax->datum #{a\ 2214}#)
                                                    #:key))
-                                            #{tmp\ 2210}#)
+                                            #{tmp\ 2211}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{a\ 2217}# #{b\ 2218}#)
-                                          (#{key\ 2181}#
-                                            #{b\ 2218}#
-                                            (reverse #{rreq\ 2187}#)
+                                        (lambda (#{a\ 2218}# #{b\ 2219}#)
+                                          (#{key\ 2182}#
+                                            #{b\ 2219}#
+                                            (reverse #{rreq\ 2188}#)
                                             '()
                                             '()))
-                                        #{tmp\ 2210}#)
-                                      (let ((#{tmp\ 2219}#
+                                        #{tmp\ 2211}#)
+                                      (let ((#{tmp\ 2220}#
                                               ($sc-dispatch
-                                                #{tmp\ 2190}#
+                                                #{tmp\ 2191}#
                                                 '(any any))))
-                                        (if (if #{tmp\ 2219}#
+                                        (if (if #{tmp\ 2220}#
                                               (@apply
-                                                (lambda (#{a\ 2222}#
-                                                         #{b\ 2223}#)
+                                                (lambda (#{a\ 2223}#
+                                                         #{b\ 2224}#)
                                                   (eq? (syntax->datum
-                                                         #{a\ 2222}#)
+                                                         #{a\ 2223}#)
                                                        #:rest))
-                                                #{tmp\ 2219}#)
+                                                #{tmp\ 2220}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{a\ 2226}# #{b\ 2227}#)
-                                              (#{rest\ 2183}#
-                                                #{b\ 2227}#
-                                                (reverse #{rreq\ 2187}#)
+                                            (lambda (#{a\ 2227}# #{b\ 2228}#)
+                                              (#{rest\ 2184}#
+                                                #{b\ 2228}#
+                                                (reverse #{rreq\ 2188}#)
                                                 '()
                                                 '()))
-                                            #{tmp\ 2219}#)
-                                          (let ((#{tmp\ 2228}#
-                                                  (list #{tmp\ 2190}#)))
-                                            (if (if #{tmp\ 2228}#
+                                            #{tmp\ 2220}#)
+                                          (let ((#{tmp\ 2229}#
+                                                  (list #{tmp\ 2191}#)))
+                                            (if (if #{tmp\ 2229}#
                                                   (@apply
-                                                    (lambda (#{r\ 2230}#)
-                                                      (#{id?\ 379}#
-                                                        #{r\ 2230}#))
-                                                    #{tmp\ 2228}#)
+                                                    (lambda (#{r\ 2231}#)
+                                                      (#{id?\ 380}#
+                                                        #{r\ 2231}#))
+                                                    #{tmp\ 2229}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{r\ 2232}#)
-                                                  (#{rest\ 2183}#
-                                                    #{r\ 2232}#
-                                                    (reverse #{rreq\ 2187}#)
+                                                (lambda (#{r\ 2233}#)
+                                                  (#{rest\ 2184}#
+                                                    #{r\ 2233}#
+                                                    (reverse #{rreq\ 2188}#)
                                                     '()
                                                     '()))
-                                                #{tmp\ 2228}#)
-                                              (let ((#{else\ 2234}#
-                                                      #{tmp\ 2190}#))
+                                                #{tmp\ 2229}#)
+                                              (let ((#{else\ 2235}#
+                                                      #{tmp\ 2191}#))
                                                 (syntax-violation
                                                   'lambda*
                                                   "invalid argument list"
-                                                  #{orig-args\ 2174}#
-                                                  #{args\ 
2186}#)))))))))))))))))
-                (#{opt\ 2179}#
-                  (lambda (#{args\ 2235}# #{req\ 2236}# #{ropt\ 2237}#)
-                    (let ((#{tmp\ 2241}# #{args\ 2235}#))
-                      (let ((#{tmp\ 2242}#
-                              ($sc-dispatch #{tmp\ 2241}# (quote ()))))
-                        (if #{tmp\ 2242}#
+                                                  #{orig-args\ 2175}#
+                                                  #{args\ 
2187}#)))))))))))))))))
+                (#{opt\ 2180}#
+                  (lambda (#{args\ 2236}# #{req\ 2237}# #{ropt\ 2238}#)
+                    (let ((#{tmp\ 2242}# #{args\ 2236}#))
+                      (let ((#{tmp\ 2243}#
+                              ($sc-dispatch #{tmp\ 2242}# (quote ()))))
+                        (if #{tmp\ 2243}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2185}#
-                                #{req\ 2236}#
-                                (reverse #{ropt\ 2237}#)
+                              (#{check\ 2186}#
+                                #{req\ 2237}#
+                                (reverse #{ropt\ 2238}#)
                                 #f
                                 '()))
-                            #{tmp\ 2242}#)
-                          (let ((#{tmp\ 2243}#
+                            #{tmp\ 2243}#)
+                          (let ((#{tmp\ 2244}#
                                   ($sc-dispatch
-                                    #{tmp\ 2241}#
+                                    #{tmp\ 2242}#
                                     '(any . any))))
-                            (if (if #{tmp\ 2243}#
+                            (if (if #{tmp\ 2244}#
                                   (@apply
-                                    (lambda (#{a\ 2246}# #{b\ 2247}#)
-                                      (#{id?\ 379}# #{a\ 2246}#))
-                                    #{tmp\ 2243}#)
+                                    (lambda (#{a\ 2247}# #{b\ 2248}#)
+                                      (#{id?\ 380}# #{a\ 2247}#))
+                                    #{tmp\ 2244}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2250}# #{b\ 2251}#)
-                                  (#{opt\ 2179}#
-                                    #{b\ 2251}#
-                                    #{req\ 2236}#
-                                    (cons (cons #{a\ 2250}#
+                                (lambda (#{a\ 2251}# #{b\ 2252}#)
+                                  (#{opt\ 2180}#
+                                    #{b\ 2252}#
+                                    #{req\ 2237}#
+                                    (cons (cons #{a\ 2251}#
                                                 '(#(syntax-object
                                                     #f
                                                     ((top)
                                                      #(ribcage
                                                        #(a b)
                                                        #((top) (top))
-                                                       #("i2248" "i2249"))
+                                                       #("i2249" "i2250"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(args req ropt)
                                                        #((top) (top) (top))
-                                                       #("i2238"
-                                                         "i2239"
-                                                         "i2240"))
+                                                       #("i2239"
+                                                         "i2240"
+                                                         "i2241"))
                                                      #(ribcage
                                                        (check rest key opt req)
                                                        ((top)
@@ -7165,15 +7165,15 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i2184"
-                                                        "i2182"
-                                                        "i2180"
-                                                        "i2178"
-                                                        "i2176"))
+                                                       ("i2185"
+                                                        "i2183"
+                                                        "i2181"
+                                                        "i2179"
+                                                        "i2177"))
                                                      #(ribcage
                                                        #(orig-args)
                                                        #((top))
-                                                       #("i2175"))
+                                                       #("i2176"))
                                                      #(ribcage
                                                        (lambda-var-list
                                                          gen-var
@@ -7449,143 +7449,143 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i493"
-                                                        "i491"
-                                                        "i489"
-                                                        "i487"
-                                                        "i485"
-                                                        "i483"
-                                                        "i481"
-                                                        "i479"
-                                                        "i477"
-                                                        "i475"
-                                                        "i473"
-                                                        "i471"
-                                                        "i469"
-                                                        "i467"
-                                                        "i465"
-                                                        "i463"
-                                                        "i461"
-                                                        "i459"
-                                                        "i457"
-                                                        "i455"
-                                                        "i453"
-                                                        "i451"
-                                                        "i449"
-                                                        "i447"
-                                                        "i445"
-                                                        "i443"
-                                                        "i441"
-                                                        "i439"
-                                                        "i437"
-                                                        "i435"
-                                                        "i433"
-                                                        "i431"
-                                                        "i429"
-                                                        "i427"
-                                                        "i425"
+                                                       ("i494"
+                                                        "i492"
+                                                        "i490"
+                                                        "i488"
+                                                        "i486"
+                                                        "i484"
+                                                        "i482"
+                                                        "i480"
+                                                        "i478"
+                                                        "i476"
+                                                        "i474"
+                                                        "i472"
+                                                        "i470"
+                                                        "i468"
+                                                        "i466"
+                                                        "i464"
+                                                        "i462"
+                                                        "i460"
+                                                        "i458"
+                                                        "i456"
+                                                        "i454"
+                                                        "i452"
+                                                        "i450"
+                                                        "i448"
+                                                        "i446"
+                                                        "i444"
+                                                        "i442"
+                                                        "i440"
+                                                        "i438"
+                                                        "i436"
+                                                        "i434"
+                                                        "i432"
+                                                        "i430"
+                                                        "i428"
+                                                        "i426"
+                                                        "i424"
                                                         "i423"
                                                         "i422"
-                                                        "i421"
+                                                        "i420"
                                                         "i419"
                                                         "i418"
                                                         "i417"
                                                         "i416"
-                                                        "i415"
-                                                        "i413"
-                                                        "i411"
-                                                        "i409"
-                                                        "i407"
-                                                        "i405"
-                                                        "i403"
-                                                        "i401"
-                                                        "i399"
-                                                        "i396"
+                                                        "i414"
+                                                        "i412"
+                                                        "i410"
+                                                        "i408"
+                                                        "i406"
+                                                        "i404"
+                                                        "i402"
+                                                        "i400"
+                                                        "i397"
+                                                        "i395"
                                                         "i394"
                                                         "i393"
                                                         "i392"
                                                         "i391"
                                                         "i390"
-                                                        "i389"
-                                                        "i387"
-                                                        "i385"
-                                                        "i383"
+                                                        "i388"
+                                                        "i386"
+                                                        "i384"
+                                                        "i382"
                                                         "i381"
-                                                        "i380"
-                                                        "i378"
-                                                        "i376"
-                                                        "i374"
-                                                        "i372"
-                                                        "i370"
-                                                        "i368"
+                                                        "i379"
+                                                        "i377"
+                                                        "i375"
+                                                        "i373"
+                                                        "i371"
+                                                        "i369"
+                                                        "i367"
                                                         "i366"
-                                                        "i365"
-                                                        "i363"
+                                                        "i364"
+                                                        "i362"
                                                         "i361"
                                                         "i360"
-                                                        "i359"
+                                                        "i358"
                                                         "i357"
-                                                        "i356"
-                                                        "i354"
-                                                        "i352"
-                                                        "i350"
-                                                        "i348"
-                                                        "i346"
-                                                        "i344"
-                                                        "i342"
-                                                        "i340"
-                                                        "i338"
-                                                        "i336"
-                                                        "i334"
-                                                        "i332"
-                                                        "i330"
-                                                        "i328"
-                                                        "i326"
-                                                        "i324"
-                                                        "i322"
-                                                        "i320"
-                                                        "i318"
-                                                        "i316"
-                                                        "i314"
-                                                        "i312"
-                                                        "i310"
-                                                        "i308"
-                                                        "i306"
-                                                        "i304"
-                                                        "i302"
-                                                        "i300"
-                                                        "i298"
-                                                        "i296"
-                                                        "i294"
+                                                        "i355"
+                                                        "i353"
+                                                        "i351"
+                                                        "i349"
+                                                        "i347"
+                                                        "i345"
+                                                        "i343"
+                                                        "i341"
+                                                        "i339"
+                                                        "i337"
+                                                        "i335"
+                                                        "i333"
+                                                        "i331"
+                                                        "i329"
+                                                        "i327"
+                                                        "i325"
+                                                        "i323"
+                                                        "i321"
+                                                        "i319"
+                                                        "i317"
+                                                        "i315"
+                                                        "i313"
+                                                        "i311"
+                                                        "i309"
+                                                        "i307"
+                                                        "i305"
+                                                        "i303"
+                                                        "i301"
+                                                        "i299"
+                                                        "i297"
+                                                        "i295"
+                                                        "i293"
                                                         "i292"
-                                                        "i291"
-                                                        "i289"
-                                                        "i287"
-                                                        "i285"
-                                                        "i283"
-                                                        "i281"
-                                                        "i279"
-                                                        "i277"
-                                                        "i275"
-                                                        "i273"
-                                                        "i270"
-                                                        "i268"
-                                                        "i266"
-                                                        "i264"
-                                                        "i262"
-                                                        "i260"
-                                                        "i258"
-                                                        "i256"
-                                                        "i254"
-                                                        "i252"
-                                                        "i250"
-                                                        "i248"
-                                                        "i246"
-                                                        "i244"
-                                                        "i242"
-                                                        "i240"
-                                                        "i238"
-                                                        "i236"))
+                                                        "i290"
+                                                        "i288"
+                                                        "i286"
+                                                        "i284"
+                                                        "i282"
+                                                        "i280"
+                                                        "i278"
+                                                        "i276"
+                                                        "i274"
+                                                        "i271"
+                                                        "i269"
+                                                        "i267"
+                                                        "i265"
+                                                        "i263"
+                                                        "i261"
+                                                        "i259"
+                                                        "i257"
+                                                        "i255"
+                                                        "i253"
+                                                        "i251"
+                                                        "i249"
+                                                        "i247"
+                                                        "i245"
+                                                        "i243"
+                                                        "i241"
+                                                        "i239"
+                                                        "i237"))
                                                      #(ribcage
                                                        (define-structure
                                                          
define-expansion-accessors
@@ -7595,150 +7595,150 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i38"
+                                                       ("i39"
+                                                        "i38"
                                                         "i37"
-                                                        "i36"
-                                                        "i34")))
+                                                        "i35")))
                                                     (hygiene guile))))
-                                          #{ropt\ 2237}#)))
-                                #{tmp\ 2243}#)
-                              (let ((#{tmp\ 2252}#
+                                          #{ropt\ 2238}#)))
+                                #{tmp\ 2244}#)
+                              (let ((#{tmp\ 2253}#
                                       ($sc-dispatch
-                                        #{tmp\ 2241}#
+                                        #{tmp\ 2242}#
                                         '((any any) . any))))
-                                (if (if #{tmp\ 2252}#
+                                (if (if #{tmp\ 2253}#
                                       (@apply
-                                        (lambda (#{a\ 2256}#
-                                                 #{init\ 2257}#
-                                                 #{b\ 2258}#)
-                                          (#{id?\ 379}# #{a\ 2256}#))
-                                        #{tmp\ 2252}#)
+                                        (lambda (#{a\ 2257}#
+                                                 #{init\ 2258}#
+                                                 #{b\ 2259}#)
+                                          (#{id?\ 380}# #{a\ 2257}#))
+                                        #{tmp\ 2253}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a\ 2262}#
-                                             #{init\ 2263}#
-                                             #{b\ 2264}#)
-                                      (#{opt\ 2179}#
-                                        #{b\ 2264}#
-                                        #{req\ 2236}#
-                                        (cons (list #{a\ 2262}# #{init\ 2263}#)
-                                              #{ropt\ 2237}#)))
-                                    #{tmp\ 2252}#)
-                                  (let ((#{tmp\ 2265}#
+                                    (lambda (#{a\ 2263}#
+                                             #{init\ 2264}#
+                                             #{b\ 2265}#)
+                                      (#{opt\ 2180}#
+                                        #{b\ 2265}#
+                                        #{req\ 2237}#
+                                        (cons (list #{a\ 2263}# #{init\ 2264}#)
+                                              #{ropt\ 2238}#)))
+                                    #{tmp\ 2253}#)
+                                  (let ((#{tmp\ 2266}#
                                           ($sc-dispatch
-                                            #{tmp\ 2241}#
+                                            #{tmp\ 2242}#
                                             '(any . any))))
-                                    (if (if #{tmp\ 2265}#
+                                    (if (if #{tmp\ 2266}#
                                           (@apply
-                                            (lambda (#{a\ 2268}# #{b\ 2269}#)
-                                              (eq? (syntax->datum #{a\ 2268}#)
+                                            (lambda (#{a\ 2269}# #{b\ 2270}#)
+                                              (eq? (syntax->datum #{a\ 2269}#)
                                                    #:key))
-                                            #{tmp\ 2265}#)
+                                            #{tmp\ 2266}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{a\ 2272}# #{b\ 2273}#)
-                                          (#{key\ 2181}#
-                                            #{b\ 2273}#
-                                            #{req\ 2236}#
-                                            (reverse #{ropt\ 2237}#)
+                                        (lambda (#{a\ 2273}# #{b\ 2274}#)
+                                          (#{key\ 2182}#
+                                            #{b\ 2274}#
+                                            #{req\ 2237}#
+                                            (reverse #{ropt\ 2238}#)
                                             '()))
-                                        #{tmp\ 2265}#)
-                                      (let ((#{tmp\ 2274}#
+                                        #{tmp\ 2266}#)
+                                      (let ((#{tmp\ 2275}#
                                               ($sc-dispatch
-                                                #{tmp\ 2241}#
+                                                #{tmp\ 2242}#
                                                 '(any any))))
-                                        (if (if #{tmp\ 2274}#
+                                        (if (if #{tmp\ 2275}#
                                               (@apply
-                                                (lambda (#{a\ 2277}#
-                                                         #{b\ 2278}#)
+                                                (lambda (#{a\ 2278}#
+                                                         #{b\ 2279}#)
                                                   (eq? (syntax->datum
-                                                         #{a\ 2277}#)
+                                                         #{a\ 2278}#)
                                                        #:rest))
-                                                #{tmp\ 2274}#)
+                                                #{tmp\ 2275}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{a\ 2281}# #{b\ 2282}#)
-                                              (#{rest\ 2183}#
-                                                #{b\ 2282}#
-                                                #{req\ 2236}#
-                                                (reverse #{ropt\ 2237}#)
+                                            (lambda (#{a\ 2282}# #{b\ 2283}#)
+                                              (#{rest\ 2184}#
+                                                #{b\ 2283}#
+                                                #{req\ 2237}#
+                                                (reverse #{ropt\ 2238}#)
                                                 '()))
-                                            #{tmp\ 2274}#)
-                                          (let ((#{tmp\ 2283}#
-                                                  (list #{tmp\ 2241}#)))
-                                            (if (if #{tmp\ 2283}#
+                                            #{tmp\ 2275}#)
+                                          (let ((#{tmp\ 2284}#
+                                                  (list #{tmp\ 2242}#)))
+                                            (if (if #{tmp\ 2284}#
                                                   (@apply
-                                                    (lambda (#{r\ 2285}#)
-                                                      (#{id?\ 379}#
-                                                        #{r\ 2285}#))
-                                                    #{tmp\ 2283}#)
+                                                    (lambda (#{r\ 2286}#)
+                                                      (#{id?\ 380}#
+                                                        #{r\ 2286}#))
+                                                    #{tmp\ 2284}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{r\ 2287}#)
-                                                  (#{rest\ 2183}#
-                                                    #{r\ 2287}#
-                                                    #{req\ 2236}#
-                                                    (reverse #{ropt\ 2237}#)
+                                                (lambda (#{r\ 2288}#)
+                                                  (#{rest\ 2184}#
+                                                    #{r\ 2288}#
+                                                    #{req\ 2237}#
+                                                    (reverse #{ropt\ 2238}#)
                                                     '()))
-                                                #{tmp\ 2283}#)
-                                              (let ((#{else\ 2289}#
-                                                      #{tmp\ 2241}#))
+                                                #{tmp\ 2284}#)
+                                              (let ((#{else\ 2290}#
+                                                      #{tmp\ 2242}#))
                                                 (syntax-violation
                                                   'lambda*
                                                   "invalid optional argument 
list"
-                                                  #{orig-args\ 2174}#
-                                                  #{args\ 
2235}#)))))))))))))))))
-                (#{key\ 2181}#
-                  (lambda (#{args\ 2290}#
-                           #{req\ 2291}#
-                           #{opt\ 2292}#
-                           #{rkey\ 2293}#)
-                    (let ((#{tmp\ 2298}# #{args\ 2290}#))
-                      (let ((#{tmp\ 2299}#
-                              ($sc-dispatch #{tmp\ 2298}# (quote ()))))
-                        (if #{tmp\ 2299}#
+                                                  #{orig-args\ 2175}#
+                                                  #{args\ 
2236}#)))))))))))))))))
+                (#{key\ 2182}#
+                  (lambda (#{args\ 2291}#
+                           #{req\ 2292}#
+                           #{opt\ 2293}#
+                           #{rkey\ 2294}#)
+                    (let ((#{tmp\ 2299}# #{args\ 2291}#))
+                      (let ((#{tmp\ 2300}#
+                              ($sc-dispatch #{tmp\ 2299}# (quote ()))))
+                        (if #{tmp\ 2300}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2185}#
-                                #{req\ 2291}#
-                                #{opt\ 2292}#
+                              (#{check\ 2186}#
+                                #{req\ 2292}#
+                                #{opt\ 2293}#
                                 #f
-                                (cons #f (reverse #{rkey\ 2293}#))))
-                            #{tmp\ 2299}#)
-                          (let ((#{tmp\ 2300}#
+                                (cons #f (reverse #{rkey\ 2294}#))))
+                            #{tmp\ 2300}#)
+                          (let ((#{tmp\ 2301}#
                                   ($sc-dispatch
-                                    #{tmp\ 2298}#
+                                    #{tmp\ 2299}#
                                     '(any . any))))
-                            (if (if #{tmp\ 2300}#
+                            (if (if #{tmp\ 2301}#
                                   (@apply
-                                    (lambda (#{a\ 2303}# #{b\ 2304}#)
-                                      (#{id?\ 379}# #{a\ 2303}#))
-                                    #{tmp\ 2300}#)
+                                    (lambda (#{a\ 2304}# #{b\ 2305}#)
+                                      (#{id?\ 380}# #{a\ 2304}#))
+                                    #{tmp\ 2301}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2307}# #{b\ 2308}#)
-                                  (let ((#{tmp\ 2310}#
+                                (lambda (#{a\ 2308}# #{b\ 2309}#)
+                                  (let ((#{tmp\ 2311}#
                                           (symbol->keyword
-                                            (syntax->datum #{a\ 2307}#))))
-                                    (let ((#{k\ 2312}# #{tmp\ 2310}#))
-                                      (#{key\ 2181}#
-                                        #{b\ 2308}#
-                                        #{req\ 2291}#
-                                        #{opt\ 2292}#
-                                        (cons (cons #{k\ 2312}#
-                                                    (cons #{a\ 2307}#
+                                            (syntax->datum #{a\ 2308}#))))
+                                    (let ((#{k\ 2313}# #{tmp\ 2311}#))
+                                      (#{key\ 2182}#
+                                        #{b\ 2309}#
+                                        #{req\ 2292}#
+                                        #{opt\ 2293}#
+                                        (cons (cons #{k\ 2313}#
+                                                    (cons #{a\ 2308}#
                                                           '(#(syntax-object
                                                               #f
                                                               ((top)
                                                                #(ribcage
                                                                  #(k)
                                                                  #((top))
-                                                                 #("i2311"))
+                                                                 #("i2312"))
                                                                #(ribcage
                                                                  #(a b)
                                                                  #((top) (top))
-                                                                 #("i2305"
-                                                                   "i2306"))
+                                                                 #("i2306"
+                                                                   "i2307"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -7752,10 +7752,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i2294"
-                                                                   "i2295"
+                                                                 #("i2295"
                                                                    "i2296"
-                                                                   "i2297"))
+                                                                   "i2297"
+                                                                   "i2298"))
                                                                #(ribcage
                                                                  (check rest
                                                                         key
@@ -7766,15 +7766,15 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                 ("i2184"
-                                                                  "i2182"
-                                                                  "i2180"
-                                                                  "i2178"
-                                                                  "i2176"))
+                                                                 ("i2185"
+                                                                  "i2183"
+                                                                  "i2181"
+                                                                  "i2179"
+                                                                  "i2177"))
                                                                #(ribcage
                                                                  #(orig-args)
                                                                  #((top))
-                                                                 #("i2175"))
+                                                                 #("i2176"))
                                                                #(ribcage
                                                                  
(lambda-var-list
                                                                    gen-var
@@ -8050,143 +8050,143 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                 ("i493"
-                                                                  "i491"
-                                                                  "i489"
-                                                                  "i487"
-                                                                  "i485"
-                                                                  "i483"
-                                                                  "i481"
-                                                                  "i479"
-                                                                  "i477"
-                                                                  "i475"
-                                                                  "i473"
-                                                                  "i471"
-                                                                  "i469"
-                                                                  "i467"
-                                                                  "i465"
-                                                                  "i463"
-                                                                  "i461"
-                                                                  "i459"
-                                                                  "i457"
-                                                                  "i455"
-                                                                  "i453"
-                                                                  "i451"
-                                                                  "i449"
-                                                                  "i447"
-                                                                  "i445"
-                                                                  "i443"
-                                                                  "i441"
-                                                                  "i439"
-                                                                  "i437"
-                                                                  "i435"
-                                                                  "i433"
-                                                                  "i431"
-                                                                  "i429"
-                                                                  "i427"
-                                                                  "i425"
+                                                                 ("i494"
+                                                                  "i492"
+                                                                  "i490"
+                                                                  "i488"
+                                                                  "i486"
+                                                                  "i484"
+                                                                  "i482"
+                                                                  "i480"
+                                                                  "i478"
+                                                                  "i476"
+                                                                  "i474"
+                                                                  "i472"
+                                                                  "i470"
+                                                                  "i468"
+                                                                  "i466"
+                                                                  "i464"
+                                                                  "i462"
+                                                                  "i460"
+                                                                  "i458"
+                                                                  "i456"
+                                                                  "i454"
+                                                                  "i452"
+                                                                  "i450"
+                                                                  "i448"
+                                                                  "i446"
+                                                                  "i444"
+                                                                  "i442"
+                                                                  "i440"
+                                                                  "i438"
+                                                                  "i436"
+                                                                  "i434"
+                                                                  "i432"
+                                                                  "i430"
+                                                                  "i428"
+                                                                  "i426"
+                                                                  "i424"
                                                                   "i423"
                                                                   "i422"
-                                                                  "i421"
+                                                                  "i420"
                                                                   "i419"
                                                                   "i418"
                                                                   "i417"
                                                                   "i416"
-                                                                  "i415"
-                                                                  "i413"
-                                                                  "i411"
-                                                                  "i409"
-                                                                  "i407"
-                                                                  "i405"
-                                                                  "i403"
-                                                                  "i401"
-                                                                  "i399"
-                                                                  "i396"
+                                                                  "i414"
+                                                                  "i412"
+                                                                  "i410"
+                                                                  "i408"
+                                                                  "i406"
+                                                                  "i404"
+                                                                  "i402"
+                                                                  "i400"
+                                                                  "i397"
+                                                                  "i395"
                                                                   "i394"
                                                                   "i393"
                                                                   "i392"
                                                                   "i391"
                                                                   "i390"
-                                                                  "i389"
-                                                                  "i387"
-                                                                  "i385"
-                                                                  "i383"
+                                                                  "i388"
+                                                                  "i386"
+                                                                  "i384"
+                                                                  "i382"
                                                                   "i381"
-                                                                  "i380"
-                                                                  "i378"
-                                                                  "i376"
-                                                                  "i374"
-                                                                  "i372"
-                                                                  "i370"
-                                                                  "i368"
+                                                                  "i379"
+                                                                  "i377"
+                                                                  "i375"
+                                                                  "i373"
+                                                                  "i371"
+                                                                  "i369"
+                                                                  "i367"
                                                                   "i366"
-                                                                  "i365"
-                                                                  "i363"
+                                                                  "i364"
+                                                                  "i362"
                                                                   "i361"
                                                                   "i360"
-                                                                  "i359"
+                                                                  "i358"
                                                                   "i357"
-                                                                  "i356"
-                                                                  "i354"
-                                                                  "i352"
-                                                                  "i350"
-                                                                  "i348"
-                                                                  "i346"
-                                                                  "i344"
-                                                                  "i342"
-                                                                  "i340"
-                                                                  "i338"
-                                                                  "i336"
-                                                                  "i334"
-                                                                  "i332"
-                                                                  "i330"
-                                                                  "i328"
-                                                                  "i326"
-                                                                  "i324"
-                                                                  "i322"
-                                                                  "i320"
-                                                                  "i318"
-                                                                  "i316"
-                                                                  "i314"
-                                                                  "i312"
-                                                                  "i310"
-                                                                  "i308"
-                                                                  "i306"
-                                                                  "i304"
-                                                                  "i302"
-                                                                  "i300"
-                                                                  "i298"
-                                                                  "i296"
-                                                                  "i294"
+                                                                  "i355"
+                                                                  "i353"
+                                                                  "i351"
+                                                                  "i349"
+                                                                  "i347"
+                                                                  "i345"
+                                                                  "i343"
+                                                                  "i341"
+                                                                  "i339"
+                                                                  "i337"
+                                                                  "i335"
+                                                                  "i333"
+                                                                  "i331"
+                                                                  "i329"
+                                                                  "i327"
+                                                                  "i325"
+                                                                  "i323"
+                                                                  "i321"
+                                                                  "i319"
+                                                                  "i317"
+                                                                  "i315"
+                                                                  "i313"
+                                                                  "i311"
+                                                                  "i309"
+                                                                  "i307"
+                                                                  "i305"
+                                                                  "i303"
+                                                                  "i301"
+                                                                  "i299"
+                                                                  "i297"
+                                                                  "i295"
+                                                                  "i293"
                                                                   "i292"
-                                                                  "i291"
-                                                                  "i289"
-                                                                  "i287"
-                                                                  "i285"
-                                                                  "i283"
-                                                                  "i281"
-                                                                  "i279"
-                                                                  "i277"
-                                                                  "i275"
-                                                                  "i273"
-                                                                  "i270"
-                                                                  "i268"
-                                                                  "i266"
-                                                                  "i264"
-                                                                  "i262"
-                                                                  "i260"
-                                                                  "i258"
-                                                                  "i256"
-                                                                  "i254"
-                                                                  "i252"
-                                                                  "i250"
-                                                                  "i248"
-                                                                  "i246"
-                                                                  "i244"
-                                                                  "i242"
-                                                                  "i240"
-                                                                  "i238"
-                                                                  "i236"))
+                                                                  "i290"
+                                                                  "i288"
+                                                                  "i286"
+                                                                  "i284"
+                                                                  "i282"
+                                                                  "i280"
+                                                                  "i278"
+                                                                  "i276"
+                                                                  "i274"
+                                                                  "i271"
+                                                                  "i269"
+                                                                  "i267"
+                                                                  "i265"
+                                                                  "i263"
+                                                                  "i261"
+                                                                  "i259"
+                                                                  "i257"
+                                                                  "i255"
+                                                                  "i253"
+                                                                  "i251"
+                                                                  "i249"
+                                                                  "i247"
+                                                                  "i245"
+                                                                  "i243"
+                                                                  "i241"
+                                                                  "i239"
+                                                                  "i237"))
                                                                #(ribcage
                                                                  
(define-structure
                                                                    
define-expansion-accessors
@@ -8196,2073 +8196,2073 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                 ("i38"
+                                                                 ("i39"
+                                                                  "i38"
                                                                   "i37"
-                                                                  "i36"
-                                                                  "i34")))
+                                                                  "i35")))
                                                               (hygiene
                                                                 guile)))))
-                                              #{rkey\ 2293}#)))))
-                                #{tmp\ 2300}#)
-                              (let ((#{tmp\ 2313}#
+                                              #{rkey\ 2294}#)))))
+                                #{tmp\ 2301}#)
+                              (let ((#{tmp\ 2314}#
                                       ($sc-dispatch
-                                        #{tmp\ 2298}#
+                                        #{tmp\ 2299}#
                                         '((any any) . any))))
-                                (if (if #{tmp\ 2313}#
+                                (if (if #{tmp\ 2314}#
                                       (@apply
-                                        (lambda (#{a\ 2317}#
-                                                 #{init\ 2318}#
-                                                 #{b\ 2319}#)
-                                          (#{id?\ 379}# #{a\ 2317}#))
-                                        #{tmp\ 2313}#)
+                                        (lambda (#{a\ 2318}#
+                                                 #{init\ 2319}#
+                                                 #{b\ 2320}#)
+                                          (#{id?\ 380}# #{a\ 2318}#))
+                                        #{tmp\ 2314}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a\ 2323}#
-                                             #{init\ 2324}#
-                                             #{b\ 2325}#)
-                                      (let ((#{tmp\ 2327}#
+                                    (lambda (#{a\ 2324}#
+                                             #{init\ 2325}#
+                                             #{b\ 2326}#)
+                                      (let ((#{tmp\ 2328}#
                                               (symbol->keyword
-                                                (syntax->datum #{a\ 2323}#))))
-                                        (let ((#{k\ 2329}# #{tmp\ 2327}#))
-                                          (#{key\ 2181}#
-                                            #{b\ 2325}#
-                                            #{req\ 2291}#
-                                            #{opt\ 2292}#
-                                            (cons (list #{k\ 2329}#
-                                                        #{a\ 2323}#
-                                                        #{init\ 2324}#)
-                                                  #{rkey\ 2293}#)))))
-                                    #{tmp\ 2313}#)
-                                  (let ((#{tmp\ 2330}#
+                                                (syntax->datum #{a\ 2324}#))))
+                                        (let ((#{k\ 2330}# #{tmp\ 2328}#))
+                                          (#{key\ 2182}#
+                                            #{b\ 2326}#
+                                            #{req\ 2292}#
+                                            #{opt\ 2293}#
+                                            (cons (list #{k\ 2330}#
+                                                        #{a\ 2324}#
+                                                        #{init\ 2325}#)
+                                                  #{rkey\ 2294}#)))))
+                                    #{tmp\ 2314}#)
+                                  (let ((#{tmp\ 2331}#
                                           ($sc-dispatch
-                                            #{tmp\ 2298}#
+                                            #{tmp\ 2299}#
                                             '((any any any) . any))))
-                                    (if (if #{tmp\ 2330}#
+                                    (if (if #{tmp\ 2331}#
                                           (@apply
-                                            (lambda (#{a\ 2335}#
-                                                     #{init\ 2336}#
-                                                     #{k\ 2337}#
-                                                     #{b\ 2338}#)
-                                              (if (#{id?\ 379}# #{a\ 2335}#)
+                                            (lambda (#{a\ 2336}#
+                                                     #{init\ 2337}#
+                                                     #{k\ 2338}#
+                                                     #{b\ 2339}#)
+                                              (if (#{id?\ 380}# #{a\ 2336}#)
                                                 (keyword?
-                                                  (syntax->datum #{k\ 2337}#))
+                                                  (syntax->datum #{k\ 2338}#))
                                                 #f))
-                                            #{tmp\ 2330}#)
+                                            #{tmp\ 2331}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{a\ 2345}#
-                                                 #{init\ 2346}#
-                                                 #{k\ 2347}#
-                                                 #{b\ 2348}#)
-                                          (#{key\ 2181}#
-                                            #{b\ 2348}#
-                                            #{req\ 2291}#
-                                            #{opt\ 2292}#
-                                            (cons (list #{k\ 2347}#
-                                                        #{a\ 2345}#
-                                                        #{init\ 2346}#)
-                                                  #{rkey\ 2293}#)))
-                                        #{tmp\ 2330}#)
-                                      (let ((#{tmp\ 2349}#
+                                        (lambda (#{a\ 2346}#
+                                                 #{init\ 2347}#
+                                                 #{k\ 2348}#
+                                                 #{b\ 2349}#)
+                                          (#{key\ 2182}#
+                                            #{b\ 2349}#
+                                            #{req\ 2292}#
+                                            #{opt\ 2293}#
+                                            (cons (list #{k\ 2348}#
+                                                        #{a\ 2346}#
+                                                        #{init\ 2347}#)
+                                                  #{rkey\ 2294}#)))
+                                        #{tmp\ 2331}#)
+                                      (let ((#{tmp\ 2350}#
                                               ($sc-dispatch
-                                                #{tmp\ 2298}#
+                                                #{tmp\ 2299}#
                                                 '(any))))
-                                        (if (if #{tmp\ 2349}#
+                                        (if (if #{tmp\ 2350}#
                                               (@apply
-                                                (lambda (#{aok\ 2351}#)
+                                                (lambda (#{aok\ 2352}#)
                                                   (eq? (syntax->datum
-                                                         #{aok\ 2351}#)
+                                                         #{aok\ 2352}#)
                                                        #:allow-other-keys))
-                                                #{tmp\ 2349}#)
+                                                #{tmp\ 2350}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{aok\ 2353}#)
-                                              (#{check\ 2185}#
-                                                #{req\ 2291}#
-                                                #{opt\ 2292}#
+                                            (lambda (#{aok\ 2354}#)
+                                              (#{check\ 2186}#
+                                                #{req\ 2292}#
+                                                #{opt\ 2293}#
                                                 #f
                                                 (cons #t
                                                       (reverse
-                                                        #{rkey\ 2293}#))))
-                                            #{tmp\ 2349}#)
-                                          (let ((#{tmp\ 2354}#
+                                                        #{rkey\ 2294}#))))
+                                            #{tmp\ 2350}#)
+                                          (let ((#{tmp\ 2355}#
                                                   ($sc-dispatch
-                                                    #{tmp\ 2298}#
+                                                    #{tmp\ 2299}#
                                                     '(any any any))))
-                                            (if (if #{tmp\ 2354}#
+                                            (if (if #{tmp\ 2355}#
                                                   (@apply
-                                                    (lambda (#{aok\ 2358}#
-                                                             #{a\ 2359}#
-                                                             #{b\ 2360}#)
+                                                    (lambda (#{aok\ 2359}#
+                                                             #{a\ 2360}#
+                                                             #{b\ 2361}#)
                                                       (if (eq? (syntax->datum
-                                                                 #{aok\ 2358}#)
+                                                                 #{aok\ 2359}#)
                                                                
#:allow-other-keys)
                                                         (eq? (syntax->datum
-                                                               #{a\ 2359}#)
+                                                               #{a\ 2360}#)
                                                              #:rest)
                                                         #f))
-                                                    #{tmp\ 2354}#)
+                                                    #{tmp\ 2355}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{aok\ 2366}#
-                                                         #{a\ 2367}#
-                                                         #{b\ 2368}#)
-                                                  (#{rest\ 2183}#
-                                                    #{b\ 2368}#
-                                                    #{req\ 2291}#
-                                                    #{opt\ 2292}#
+                                                (lambda (#{aok\ 2367}#
+                                                         #{a\ 2368}#
+                                                         #{b\ 2369}#)
+                                                  (#{rest\ 2184}#
+                                                    #{b\ 2369}#
+                                                    #{req\ 2292}#
+                                                    #{opt\ 2293}#
                                                     (cons #t
                                                           (reverse
-                                                            #{rkey\ 2293}#))))
-                                                #{tmp\ 2354}#)
-                                              (let ((#{tmp\ 2369}#
+                                                            #{rkey\ 2294}#))))
+                                                #{tmp\ 2355}#)
+                                              (let ((#{tmp\ 2370}#
                                                       ($sc-dispatch
-                                                        #{tmp\ 2298}#
+                                                        #{tmp\ 2299}#
                                                         '(any . any))))
-                                                (if (if #{tmp\ 2369}#
+                                                (if (if #{tmp\ 2370}#
                                                       (@apply
-                                                        (lambda (#{aok\ 2372}#
-                                                                 #{r\ 2373}#)
+                                                        (lambda (#{aok\ 2373}#
+                                                                 #{r\ 2374}#)
                                                           (if (eq? 
(syntax->datum
-                                                                     #{aok\ 
2372}#)
+                                                                     #{aok\ 
2373}#)
                                                                    
#:allow-other-keys)
-                                                            (#{id?\ 379}#
-                                                              #{r\ 2373}#)
+                                                            (#{id?\ 380}#
+                                                              #{r\ 2374}#)
                                                             #f))
-                                                        #{tmp\ 2369}#)
+                                                        #{tmp\ 2370}#)
                                                       #f)
                                                   (@apply
-                                                    (lambda (#{aok\ 2378}#
-                                                             #{r\ 2379}#)
-                                                      (#{rest\ 2183}#
-                                                        #{r\ 2379}#
-                                                        #{req\ 2291}#
-                                                        #{opt\ 2292}#
+                                                    (lambda (#{aok\ 2379}#
+                                                             #{r\ 2380}#)
+                                                      (#{rest\ 2184}#
+                                                        #{r\ 2380}#
+                                                        #{req\ 2292}#
+                                                        #{opt\ 2293}#
                                                         (cons #t
                                                               (reverse
-                                                                #{rkey\ 
2293}#))))
-                                                    #{tmp\ 2369}#)
-                                                  (let ((#{tmp\ 2380}#
+                                                                #{rkey\ 
2294}#))))
+                                                    #{tmp\ 2370}#)
+                                                  (let ((#{tmp\ 2381}#
                                                           ($sc-dispatch
-                                                            #{tmp\ 2298}#
+                                                            #{tmp\ 2299}#
                                                             '(any any))))
-                                                    (if (if #{tmp\ 2380}#
+                                                    (if (if #{tmp\ 2381}#
                                                           (@apply
-                                                            (lambda (#{a\ 
2383}#
-                                                                     #{b\ 
2384}#)
+                                                            (lambda (#{a\ 
2384}#
+                                                                     #{b\ 
2385}#)
                                                               (eq? 
(syntax->datum
-                                                                     #{a\ 
2383}#)
+                                                                     #{a\ 
2384}#)
                                                                    #:rest))
-                                                            #{tmp\ 2380}#)
+                                                            #{tmp\ 2381}#)
                                                           #f)
                                                       (@apply
-                                                        (lambda (#{a\ 2387}#
-                                                                 #{b\ 2388}#)
-                                                          (#{rest\ 2183}#
-                                                            #{b\ 2388}#
-                                                            #{req\ 2291}#
-                                                            #{opt\ 2292}#
+                                                        (lambda (#{a\ 2388}#
+                                                                 #{b\ 2389}#)
+                                                          (#{rest\ 2184}#
+                                                            #{b\ 2389}#
+                                                            #{req\ 2292}#
+                                                            #{opt\ 2293}#
                                                             (cons #f
                                                                   (reverse
-                                                                    #{rkey\ 
2293}#))))
-                                                        #{tmp\ 2380}#)
-                                                      (let ((#{tmp\ 2389}#
-                                                              (list #{tmp\ 
2298}#)))
-                                                        (if (if #{tmp\ 2389}#
+                                                                    #{rkey\ 
2294}#))))
+                                                        #{tmp\ 2381}#)
+                                                      (let ((#{tmp\ 2390}#
+                                                              (list #{tmp\ 
2299}#)))
+                                                        (if (if #{tmp\ 2390}#
                                                               (@apply
-                                                                (lambda (#{r\ 
2391}#)
-                                                                  (#{id?\ 379}#
-                                                                    #{r\ 
2391}#))
-                                                                #{tmp\ 2389}#)
+                                                                (lambda (#{r\ 
2392}#)
+                                                                  (#{id?\ 380}#
+                                                                    #{r\ 
2392}#))
+                                                                #{tmp\ 2390}#)
                                                               #f)
                                                           (@apply
-                                                            (lambda (#{r\ 
2393}#)
-                                                              (#{rest\ 2183}#
-                                                                #{r\ 2393}#
-                                                                #{req\ 2291}#
-                                                                #{opt\ 2292}#
+                                                            (lambda (#{r\ 
2394}#)
+                                                              (#{rest\ 2184}#
+                                                                #{r\ 2394}#
+                                                                #{req\ 2292}#
+                                                                #{opt\ 2293}#
                                                                 (cons #f
                                                                       (reverse
-                                                                        
#{rkey\ 2293}#))))
-                                                            #{tmp\ 2389}#)
-                                                          (let ((#{else\ 2395}#
-                                                                  #{tmp\ 
2298}#))
+                                                                        
#{rkey\ 2294}#))))
+                                                            #{tmp\ 2390}#)
+                                                          (let ((#{else\ 2396}#
+                                                                  #{tmp\ 
2299}#))
                                                             (syntax-violation
                                                               'lambda*
                                                               "invalid keyword 
argument list"
-                                                              #{orig-args\ 
2174}#
-                                                              #{args\ 
2290}#)))))))))))))))))))))))
-                (#{rest\ 2183}#
-                  (lambda (#{args\ 2396}#
-                           #{req\ 2397}#
-                           #{opt\ 2398}#
-                           #{kw\ 2399}#)
-                    (let ((#{tmp\ 2404}# #{args\ 2396}#))
-                      (let ((#{tmp\ 2405}# (list #{tmp\ 2404}#)))
-                        (if (if #{tmp\ 2405}#
+                                                              #{orig-args\ 
2175}#
+                                                              #{args\ 
2291}#)))))))))))))))))))))))
+                (#{rest\ 2184}#
+                  (lambda (#{args\ 2397}#
+                           #{req\ 2398}#
+                           #{opt\ 2399}#
+                           #{kw\ 2400}#)
+                    (let ((#{tmp\ 2405}# #{args\ 2397}#))
+                      (let ((#{tmp\ 2406}# (list #{tmp\ 2405}#)))
+                        (if (if #{tmp\ 2406}#
                               (@apply
-                                (lambda (#{r\ 2407}#)
-                                  (#{id?\ 379}# #{r\ 2407}#))
-                                #{tmp\ 2405}#)
+                                (lambda (#{r\ 2408}#)
+                                  (#{id?\ 380}# #{r\ 2408}#))
+                                #{tmp\ 2406}#)
                               #f)
                           (@apply
-                            (lambda (#{r\ 2409}#)
-                              (#{check\ 2185}#
-                                #{req\ 2397}#
-                                #{opt\ 2398}#
-                                #{r\ 2409}#
-                                #{kw\ 2399}#))
-                            #{tmp\ 2405}#)
-                          (let ((#{else\ 2411}# #{tmp\ 2404}#))
+                            (lambda (#{r\ 2410}#)
+                              (#{check\ 2186}#
+                                #{req\ 2398}#
+                                #{opt\ 2399}#
+                                #{r\ 2410}#
+                                #{kw\ 2400}#))
+                            #{tmp\ 2406}#)
+                          (let ((#{else\ 2412}# #{tmp\ 2405}#))
                             (syntax-violation
                               'lambda*
                               "invalid rest argument"
-                              #{orig-args\ 2174}#
-                              #{args\ 2396}#)))))))
-                (#{check\ 2185}#
-                  (lambda (#{req\ 2412}#
-                           #{opt\ 2413}#
-                           #{rest\ 2414}#
-                           #{kw\ 2415}#)
-                    (if (#{distinct-bound-ids?\ 444}#
+                              #{orig-args\ 2175}#
+                              #{args\ 2397}#)))))))
+                (#{check\ 2186}#
+                  (lambda (#{req\ 2413}#
+                           #{opt\ 2414}#
+                           #{rest\ 2415}#
+                           #{kw\ 2416}#)
+                    (if (#{distinct-bound-ids?\ 445}#
                           (append
-                            #{req\ 2412}#
-                            (map car #{opt\ 2413}#)
-                            (if #{rest\ 2414}#
-                              (list #{rest\ 2414}#)
+                            #{req\ 2413}#
+                            (map car #{opt\ 2414}#)
+                            (if #{rest\ 2415}#
+                              (list #{rest\ 2415}#)
                               '())
-                            (if (pair? #{kw\ 2415}#)
-                              (map cadr (cdr #{kw\ 2415}#))
+                            (if (pair? #{kw\ 2416}#)
+                              (map cadr (cdr #{kw\ 2416}#))
                               '())))
                       (values
-                        #{req\ 2412}#
-                        #{opt\ 2413}#
-                        #{rest\ 2414}#
-                        #{kw\ 2415}#)
+                        #{req\ 2413}#
+                        #{opt\ 2414}#
+                        #{rest\ 2415}#
+                        #{kw\ 2416}#)
                       (syntax-violation
                         'lambda*
                         "duplicate identifier in argument list"
-                        #{orig-args\ 2174}#)))))
+                        #{orig-args\ 2175}#)))))
                (begin
-                 (#{req\ 2177}# #{orig-args\ 2174}# (quote ()))))))
-         (#{chi-lambda-case\ 488}#
-           (lambda (#{e\ 2423}#
-                    #{r\ 2424}#
-                    #{w\ 2425}#
-                    #{s\ 2426}#
-                    #{mod\ 2427}#
-                    #{get-formals\ 2428}#
-                    #{clauses\ 2429}#)
+                 (#{req\ 2178}# #{orig-args\ 2175}# (quote ()))))))
+         (#{chi-lambda-case\ 489}#
+           (lambda (#{e\ 2424}#
+                    #{r\ 2425}#
+                    #{w\ 2426}#
+                    #{s\ 2427}#
+                    #{mod\ 2428}#
+                    #{get-formals\ 2429}#
+                    #{clauses\ 2430}#)
              (letrec*
-               ((#{expand-req\ 2438}#
-                  (lambda (#{req\ 2445}#
-                           #{opt\ 2446}#
-                           #{rest\ 2447}#
-                           #{kw\ 2448}#
-                           #{body\ 2449}#)
+               ((#{expand-req\ 2439}#
+                  (lambda (#{req\ 2446}#
+                           #{opt\ 2447}#
+                           #{rest\ 2448}#
+                           #{kw\ 2449}#
+                           #{body\ 2450}#)
                     (begin
-                      (let ((#{vars\ 2457}#
-                              (map #{gen-var\ 492}# #{req\ 2445}#))
-                            (#{labels\ 2458}#
-                              (#{gen-labels\ 397}# #{req\ 2445}#)))
+                      (let ((#{vars\ 2458}#
+                              (map #{gen-var\ 493}# #{req\ 2446}#))
+                            (#{labels\ 2459}#
+                              (#{gen-labels\ 398}# #{req\ 2446}#)))
                         (begin
-                          (let ((#{r*\ 2461}#
-                                  (#{extend-var-env\ 369}#
-                                    #{labels\ 2458}#
-                                    #{vars\ 2457}#
-                                    #{r\ 2424}#))
-                                (#{w*\ 2462}#
-                                  (#{make-binding-wrap\ 426}#
-                                    #{req\ 2445}#
-                                    #{labels\ 2458}#
-                                    #{w\ 2425}#)))
-                            (#{expand-opt\ 2440}#
-                              (map syntax->datum #{req\ 2445}#)
-                              #{opt\ 2446}#
-                              #{rest\ 2447}#
-                              #{kw\ 2448}#
-                              #{body\ 2449}#
-                              (reverse #{vars\ 2457}#)
-                              #{r*\ 2461}#
-                              #{w*\ 2462}#
+                          (let ((#{r*\ 2462}#
+                                  (#{extend-var-env\ 370}#
+                                    #{labels\ 2459}#
+                                    #{vars\ 2458}#
+                                    #{r\ 2425}#))
+                                (#{w*\ 2463}#
+                                  (#{make-binding-wrap\ 427}#
+                                    #{req\ 2446}#
+                                    #{labels\ 2459}#
+                                    #{w\ 2426}#)))
+                            (#{expand-opt\ 2441}#
+                              (map syntax->datum #{req\ 2446}#)
+                              #{opt\ 2447}#
+                              #{rest\ 2448}#
+                              #{kw\ 2449}#
+                              #{body\ 2450}#
+                              (reverse #{vars\ 2458}#)
+                              #{r*\ 2462}#
+                              #{w*\ 2463}#
                               '()
                               '())))))))
-                (#{expand-opt\ 2440}#
-                  (lambda (#{req\ 2463}#
-                           #{opt\ 2464}#
-                           #{rest\ 2465}#
-                           #{kw\ 2466}#
-                           #{body\ 2467}#
-                           #{vars\ 2468}#
-                           #{r*\ 2469}#
-                           #{w*\ 2470}#
-                           #{out\ 2471}#
-                           #{inits\ 2472}#)
-                    (if (pair? #{opt\ 2464}#)
-                      (let ((#{tmp\ 2485}# (car #{opt\ 2464}#)))
-                        (let ((#{tmp\ 2486}#
+                (#{expand-opt\ 2441}#
+                  (lambda (#{req\ 2464}#
+                           #{opt\ 2465}#
+                           #{rest\ 2466}#
+                           #{kw\ 2467}#
+                           #{body\ 2468}#
+                           #{vars\ 2469}#
+                           #{r*\ 2470}#
+                           #{w*\ 2471}#
+                           #{out\ 2472}#
+                           #{inits\ 2473}#)
+                    (if (pair? #{opt\ 2465}#)
+                      (let ((#{tmp\ 2486}# (car #{opt\ 2465}#)))
+                        (let ((#{tmp\ 2487}#
                                 ($sc-dispatch
-                                  #{tmp\ 2485}#
+                                  #{tmp\ 2486}#
                                   '(any any))))
-                          (if #{tmp\ 2486}#
+                          (if #{tmp\ 2487}#
                             (@apply
-                              (lambda (#{id\ 2489}# #{i\ 2490}#)
+                              (lambda (#{id\ 2490}# #{i\ 2491}#)
                                 (begin
-                                  (let ((#{v\ 2493}#
-                                          (#{gen-var\ 492}# #{id\ 2489}#)))
+                                  (let ((#{v\ 2494}#
+                                          (#{gen-var\ 493}# #{id\ 2490}#)))
                                     (begin
-                                      (let ((#{l\ 2495}#
-                                              (#{gen-labels\ 397}#
-                                                (list #{v\ 2493}#))))
+                                      (let ((#{l\ 2496}#
+                                              (#{gen-labels\ 398}#
+                                                (list #{v\ 2494}#))))
                                         (begin
-                                          (let ((#{r**\ 2497}#
-                                                  (#{extend-var-env\ 369}#
-                                                    #{l\ 2495}#
-                                                    (list #{v\ 2493}#)
-                                                    #{r*\ 2469}#)))
+                                          (let ((#{r**\ 2498}#
+                                                  (#{extend-var-env\ 370}#
+                                                    #{l\ 2496}#
+                                                    (list #{v\ 2494}#)
+                                                    #{r*\ 2470}#)))
                                             (begin
-                                              (let ((#{w**\ 2499}#
-                                                      (#{make-binding-wrap\ 
426}#
-                                                        (list #{id\ 2489}#)
-                                                        #{l\ 2495}#
-                                                        #{w*\ 2470}#)))
-                                                (#{expand-opt\ 2440}#
-                                                  #{req\ 2463}#
-                                                  (cdr #{opt\ 2464}#)
-                                                  #{rest\ 2465}#
-                                                  #{kw\ 2466}#
-                                                  #{body\ 2467}#
-                                                  (cons #{v\ 2493}#
-                                                        #{vars\ 2468}#)
-                                                  #{r**\ 2497}#
-                                                  #{w**\ 2499}#
+                                              (let ((#{w**\ 2500}#
+                                                      (#{make-binding-wrap\ 
427}#
+                                                        (list #{id\ 2490}#)
+                                                        #{l\ 2496}#
+                                                        #{w*\ 2471}#)))
+                                                (#{expand-opt\ 2441}#
+                                                  #{req\ 2464}#
+                                                  (cdr #{opt\ 2465}#)
+                                                  #{rest\ 2466}#
+                                                  #{kw\ 2467}#
+                                                  #{body\ 2468}#
+                                                  (cons #{v\ 2494}#
+                                                        #{vars\ 2469}#)
+                                                  #{r**\ 2498}#
+                                                  #{w**\ 2500}#
                                                   (cons (syntax->datum
-                                                          #{id\ 2489}#)
-                                                        #{out\ 2471}#)
-                                                  (cons (#{chi\ 464}#
-                                                          #{i\ 2490}#
-                                                          #{r*\ 2469}#
-                                                          #{w*\ 2470}#
-                                                          #{mod\ 2427}#)
-                                                        #{inits\ 
2472}#)))))))))))
-                              #{tmp\ 2486}#)
+                                                          #{id\ 2490}#)
+                                                        #{out\ 2472}#)
+                                                  (cons (#{chi\ 465}#
+                                                          #{i\ 2491}#
+                                                          #{r*\ 2470}#
+                                                          #{w*\ 2471}#
+                                                          #{mod\ 2428}#)
+                                                        #{inits\ 
2473}#)))))))))))
+                              #{tmp\ 2487}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
-                              #{tmp\ 2485}#))))
-                      (if #{rest\ 2465}#
+                              #{tmp\ 2486}#))))
+                      (if #{rest\ 2466}#
                         (begin
-                          (let ((#{v\ 2504}#
-                                  (#{gen-var\ 492}# #{rest\ 2465}#)))
+                          (let ((#{v\ 2505}#
+                                  (#{gen-var\ 493}# #{rest\ 2466}#)))
                             (begin
-                              (let ((#{l\ 2506}#
-                                      (#{gen-labels\ 397}#
-                                        (list #{v\ 2504}#))))
+                              (let ((#{l\ 2507}#
+                                      (#{gen-labels\ 398}#
+                                        (list #{v\ 2505}#))))
                                 (begin
-                                  (let ((#{r*\ 2508}#
-                                          (#{extend-var-env\ 369}#
-                                            #{l\ 2506}#
-                                            (list #{v\ 2504}#)
-                                            #{r*\ 2469}#)))
+                                  (let ((#{r*\ 2509}#
+                                          (#{extend-var-env\ 370}#
+                                            #{l\ 2507}#
+                                            (list #{v\ 2505}#)
+                                            #{r*\ 2470}#)))
                                     (begin
-                                      (let ((#{w*\ 2510}#
-                                              (#{make-binding-wrap\ 426}#
-                                                (list #{rest\ 2465}#)
-                                                #{l\ 2506}#
-                                                #{w*\ 2470}#)))
-                                        (#{expand-kw\ 2442}#
-                                          #{req\ 2463}#
-                                          (if (pair? #{out\ 2471}#)
-                                            (reverse #{out\ 2471}#)
+                                      (let ((#{w*\ 2511}#
+                                              (#{make-binding-wrap\ 427}#
+                                                (list #{rest\ 2466}#)
+                                                #{l\ 2507}#
+                                                #{w*\ 2471}#)))
+                                        (#{expand-kw\ 2443}#
+                                          #{req\ 2464}#
+                                          (if (pair? #{out\ 2472}#)
+                                            (reverse #{out\ 2472}#)
                                             #f)
-                                          (syntax->datum #{rest\ 2465}#)
-                                          (if (pair? #{kw\ 2466}#)
-                                            (cdr #{kw\ 2466}#)
-                                            #{kw\ 2466}#)
-                                          #{body\ 2467}#
-                                          (cons #{v\ 2504}# #{vars\ 2468}#)
-                                          #{r*\ 2508}#
-                                          #{w*\ 2510}#
-                                          (if (pair? #{kw\ 2466}#)
-                                            (car #{kw\ 2466}#)
+                                          (syntax->datum #{rest\ 2466}#)
+                                          (if (pair? #{kw\ 2467}#)
+                                            (cdr #{kw\ 2467}#)
+                                            #{kw\ 2467}#)
+                                          #{body\ 2468}#
+                                          (cons #{v\ 2505}# #{vars\ 2469}#)
+                                          #{r*\ 2509}#
+                                          #{w*\ 2511}#
+                                          (if (pair? #{kw\ 2467}#)
+                                            (car #{kw\ 2467}#)
                                             #f)
                                           '()
-                                          #{inits\ 2472}#)))))))))
-                        (#{expand-kw\ 2442}#
-                          #{req\ 2463}#
-                          (if (pair? #{out\ 2471}#)
-                            (reverse #{out\ 2471}#)
+                                          #{inits\ 2473}#)))))))))
+                        (#{expand-kw\ 2443}#
+                          #{req\ 2464}#
+                          (if (pair? #{out\ 2472}#)
+                            (reverse #{out\ 2472}#)
                             #f)
                           #f
-                          (if (pair? #{kw\ 2466}#)
-                            (cdr #{kw\ 2466}#)
-                            #{kw\ 2466}#)
-                          #{body\ 2467}#
-                          #{vars\ 2468}#
-                          #{r*\ 2469}#
-                          #{w*\ 2470}#
-                          (if (pair? #{kw\ 2466}#) (car #{kw\ 2466}#) #f)
+                          (if (pair? #{kw\ 2467}#)
+                            (cdr #{kw\ 2467}#)
+                            #{kw\ 2467}#)
+                          #{body\ 2468}#
+                          #{vars\ 2469}#
+                          #{r*\ 2470}#
+                          #{w*\ 2471}#
+                          (if (pair? #{kw\ 2467}#) (car #{kw\ 2467}#) #f)
                           '()
-                          #{inits\ 2472}#)))))
-                (#{expand-kw\ 2442}#
-                  (lambda (#{req\ 2512}#
-                           #{opt\ 2513}#
-                           #{rest\ 2514}#
-                           #{kw\ 2515}#
-                           #{body\ 2516}#
-                           #{vars\ 2517}#
-                           #{r*\ 2518}#
-                           #{w*\ 2519}#
-                           #{aok\ 2520}#
-                           #{out\ 2521}#
-                           #{inits\ 2522}#)
-                    (if (pair? #{kw\ 2515}#)
-                      (let ((#{tmp\ 2536}# (car #{kw\ 2515}#)))
-                        (let ((#{tmp\ 2537}#
+                          #{inits\ 2473}#)))))
+                (#{expand-kw\ 2443}#
+                  (lambda (#{req\ 2513}#
+                           #{opt\ 2514}#
+                           #{rest\ 2515}#
+                           #{kw\ 2516}#
+                           #{body\ 2517}#
+                           #{vars\ 2518}#
+                           #{r*\ 2519}#
+                           #{w*\ 2520}#
+                           #{aok\ 2521}#
+                           #{out\ 2522}#
+                           #{inits\ 2523}#)
+                    (if (pair? #{kw\ 2516}#)
+                      (let ((#{tmp\ 2537}# (car #{kw\ 2516}#)))
+                        (let ((#{tmp\ 2538}#
                                 ($sc-dispatch
-                                  #{tmp\ 2536}#
+                                  #{tmp\ 2537}#
                                   '(any any any))))
-                          (if #{tmp\ 2537}#
+                          (if #{tmp\ 2538}#
                             (@apply
-                              (lambda (#{k\ 2541}# #{id\ 2542}# #{i\ 2543}#)
+                              (lambda (#{k\ 2542}# #{id\ 2543}# #{i\ 2544}#)
                                 (begin
-                                  (let ((#{v\ 2546}#
-                                          (#{gen-var\ 492}# #{id\ 2542}#)))
+                                  (let ((#{v\ 2547}#
+                                          (#{gen-var\ 493}# #{id\ 2543}#)))
                                     (begin
-                                      (let ((#{l\ 2548}#
-                                              (#{gen-labels\ 397}#
-                                                (list #{v\ 2546}#))))
+                                      (let ((#{l\ 2549}#
+                                              (#{gen-labels\ 398}#
+                                                (list #{v\ 2547}#))))
                                         (begin
-                                          (let ((#{r**\ 2550}#
-                                                  (#{extend-var-env\ 369}#
-                                                    #{l\ 2548}#
-                                                    (list #{v\ 2546}#)
-                                                    #{r*\ 2518}#)))
+                                          (let ((#{r**\ 2551}#
+                                                  (#{extend-var-env\ 370}#
+                                                    #{l\ 2549}#
+                                                    (list #{v\ 2547}#)
+                                                    #{r*\ 2519}#)))
                                             (begin
-                                              (let ((#{w**\ 2552}#
-                                                      (#{make-binding-wrap\ 
426}#
-                                                        (list #{id\ 2542}#)
-                                                        #{l\ 2548}#
-                                                        #{w*\ 2519}#)))
-                                                (#{expand-kw\ 2442}#
-                                                  #{req\ 2512}#
-                                                  #{opt\ 2513}#
-                                                  #{rest\ 2514}#
-                                                  (cdr #{kw\ 2515}#)
-                                                  #{body\ 2516}#
-                                                  (cons #{v\ 2546}#
-                                                        #{vars\ 2517}#)
-                                                  #{r**\ 2550}#
-                                                  #{w**\ 2552}#
-                                                  #{aok\ 2520}#
+                                              (let ((#{w**\ 2553}#
+                                                      (#{make-binding-wrap\ 
427}#
+                                                        (list #{id\ 2543}#)
+                                                        #{l\ 2549}#
+                                                        #{w*\ 2520}#)))
+                                                (#{expand-kw\ 2443}#
+                                                  #{req\ 2513}#
+                                                  #{opt\ 2514}#
+                                                  #{rest\ 2515}#
+                                                  (cdr #{kw\ 2516}#)
+                                                  #{body\ 2517}#
+                                                  (cons #{v\ 2547}#
+                                                        #{vars\ 2518}#)
+                                                  #{r**\ 2551}#
+                                                  #{w**\ 2553}#
+                                                  #{aok\ 2521}#
                                                   (cons (list (syntax->datum
-                                                                #{k\ 2541}#)
+                                                                #{k\ 2542}#)
                                                               (syntax->datum
-                                                                #{id\ 2542}#)
-                                                              #{v\ 2546}#)
-                                                        #{out\ 2521}#)
-                                                  (cons (#{chi\ 464}#
-                                                          #{i\ 2543}#
-                                                          #{r*\ 2518}#
-                                                          #{w*\ 2519}#
-                                                          #{mod\ 2427}#)
-                                                        #{inits\ 
2522}#)))))))))))
-                              #{tmp\ 2537}#)
+                                                                #{id\ 2543}#)
+                                                              #{v\ 2547}#)
+                                                        #{out\ 2522}#)
+                                                  (cons (#{chi\ 465}#
+                                                          #{i\ 2544}#
+                                                          #{r*\ 2519}#
+                                                          #{w*\ 2520}#
+                                                          #{mod\ 2428}#)
+                                                        #{inits\ 
2523}#)))))))))))
+                              #{tmp\ 2538}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
-                              #{tmp\ 2536}#))))
-                      (#{expand-body\ 2444}#
-                        #{req\ 2512}#
-                        #{opt\ 2513}#
-                        #{rest\ 2514}#
+                              #{tmp\ 2537}#))))
+                      (#{expand-body\ 2445}#
+                        #{req\ 2513}#
+                        #{opt\ 2514}#
+                        #{rest\ 2515}#
                         (if (begin
-                              (let ((#{t\ 2556}# #{aok\ 2520}#))
-                                (if #{t\ 2556}#
-                                  #{t\ 2556}#
-                                  (pair? #{out\ 2521}#))))
-                          (cons #{aok\ 2520}# (reverse #{out\ 2521}#))
+                              (let ((#{t\ 2557}# #{aok\ 2521}#))
+                                (if #{t\ 2557}#
+                                  #{t\ 2557}#
+                                  (pair? #{out\ 2522}#))))
+                          (cons #{aok\ 2521}# (reverse #{out\ 2522}#))
                           #f)
-                        #{body\ 2516}#
-                        (reverse #{vars\ 2517}#)
-                        #{r*\ 2518}#
-                        #{w*\ 2519}#
-                        (reverse #{inits\ 2522}#)
+                        #{body\ 2517}#
+                        (reverse #{vars\ 2518}#)
+                        #{r*\ 2519}#
+                        #{w*\ 2520}#
+                        (reverse #{inits\ 2523}#)
                         '()))))
-                (#{expand-body\ 2444}#
-                  (lambda (#{req\ 2558}#
-                           #{opt\ 2559}#
-                           #{rest\ 2560}#
-                           #{kw\ 2561}#
-                           #{body\ 2562}#
-                           #{vars\ 2563}#
-                           #{r*\ 2564}#
-                           #{w*\ 2565}#
-                           #{inits\ 2566}#
-                           #{meta\ 2567}#)
-                    (let ((#{tmp\ 2578}# #{body\ 2562}#))
-                      (let ((#{tmp\ 2579}#
+                (#{expand-body\ 2445}#
+                  (lambda (#{req\ 2559}#
+                           #{opt\ 2560}#
+                           #{rest\ 2561}#
+                           #{kw\ 2562}#
+                           #{body\ 2563}#
+                           #{vars\ 2564}#
+                           #{r*\ 2565}#
+                           #{w*\ 2566}#
+                           #{inits\ 2567}#
+                           #{meta\ 2568}#)
+                    (let ((#{tmp\ 2579}# #{body\ 2563}#))
+                      (let ((#{tmp\ 2580}#
                               ($sc-dispatch
-                                #{tmp\ 2578}#
+                                #{tmp\ 2579}#
                                 '(any any . each-any))))
-                        (if (if #{tmp\ 2579}#
+                        (if (if #{tmp\ 2580}#
                               (@apply
-                                (lambda (#{docstring\ 2583}#
-                                         #{e1\ 2584}#
-                                         #{e2\ 2585}#)
+                                (lambda (#{docstring\ 2584}#
+                                         #{e1\ 2585}#
+                                         #{e2\ 2586}#)
                                   (string?
-                                    (syntax->datum #{docstring\ 2583}#)))
-                                #{tmp\ 2579}#)
+                                    (syntax->datum #{docstring\ 2584}#)))
+                                #{tmp\ 2580}#)
                               #f)
                           (@apply
-                            (lambda (#{docstring\ 2589}#
-                                     #{e1\ 2590}#
-                                     #{e2\ 2591}#)
-                              (#{expand-body\ 2444}#
-                                #{req\ 2558}#
-                                #{opt\ 2559}#
-                                #{rest\ 2560}#
-                                #{kw\ 2561}#
-                                (cons #{e1\ 2590}# #{e2\ 2591}#)
-                                #{vars\ 2563}#
-                                #{r*\ 2564}#
-                                #{w*\ 2565}#
-                                #{inits\ 2566}#
+                            (lambda (#{docstring\ 2590}#
+                                     #{e1\ 2591}#
+                                     #{e2\ 2592}#)
+                              (#{expand-body\ 2445}#
+                                #{req\ 2559}#
+                                #{opt\ 2560}#
+                                #{rest\ 2561}#
+                                #{kw\ 2562}#
+                                (cons #{e1\ 2591}# #{e2\ 2592}#)
+                                #{vars\ 2564}#
+                                #{r*\ 2565}#
+                                #{w*\ 2566}#
+                                #{inits\ 2567}#
                                 (append
-                                  #{meta\ 2567}#
+                                  #{meta\ 2568}#
                                   (list (cons 'documentation
                                               (syntax->datum
-                                                #{docstring\ 2589}#))))))
-                            #{tmp\ 2579}#)
-                          (let ((#{tmp\ 2594}#
+                                                #{docstring\ 2590}#))))))
+                            #{tmp\ 2580}#)
+                          (let ((#{tmp\ 2595}#
                                   ($sc-dispatch
-                                    #{tmp\ 2578}#
+                                    #{tmp\ 2579}#
                                     '(#(vector #(each (any . any)))
                                       any
                                       .
                                       each-any))))
-                            (if #{tmp\ 2594}#
+                            (if #{tmp\ 2595}#
                               (@apply
-                                (lambda (#{k\ 2599}#
-                                         #{v\ 2600}#
-                                         #{e1\ 2601}#
-                                         #{e2\ 2602}#)
-                                  (#{expand-body\ 2444}#
-                                    #{req\ 2558}#
-                                    #{opt\ 2559}#
-                                    #{rest\ 2560}#
-                                    #{kw\ 2561}#
-                                    (cons #{e1\ 2601}# #{e2\ 2602}#)
-                                    #{vars\ 2563}#
-                                    #{r*\ 2564}#
-                                    #{w*\ 2565}#
-                                    #{inits\ 2566}#
+                                (lambda (#{k\ 2600}#
+                                         #{v\ 2601}#
+                                         #{e1\ 2602}#
+                                         #{e2\ 2603}#)
+                                  (#{expand-body\ 2445}#
+                                    #{req\ 2559}#
+                                    #{opt\ 2560}#
+                                    #{rest\ 2561}#
+                                    #{kw\ 2562}#
+                                    (cons #{e1\ 2602}# #{e2\ 2603}#)
+                                    #{vars\ 2564}#
+                                    #{r*\ 2565}#
+                                    #{w*\ 2566}#
+                                    #{inits\ 2567}#
                                     (append
-                                      #{meta\ 2567}#
+                                      #{meta\ 2568}#
                                       (syntax->datum
-                                        (map cons #{k\ 2599}# #{v\ 2600}#)))))
-                                #{tmp\ 2594}#)
-                              (let ((#{tmp\ 2606}#
+                                        (map cons #{k\ 2600}# #{v\ 2601}#)))))
+                                #{tmp\ 2595}#)
+                              (let ((#{tmp\ 2607}#
                                       ($sc-dispatch
-                                        #{tmp\ 2578}#
+                                        #{tmp\ 2579}#
                                         '(any . each-any))))
-                                (if #{tmp\ 2606}#
+                                (if #{tmp\ 2607}#
                                   (@apply
-                                    (lambda (#{e1\ 2609}# #{e2\ 2610}#)
+                                    (lambda (#{e1\ 2610}# #{e2\ 2611}#)
                                       (values
-                                        #{meta\ 2567}#
-                                        #{req\ 2558}#
-                                        #{opt\ 2559}#
-                                        #{rest\ 2560}#
-                                        #{kw\ 2561}#
-                                        #{inits\ 2566}#
-                                        #{vars\ 2563}#
-                                        (#{chi-body\ 472}#
-                                          (cons #{e1\ 2609}# #{e2\ 2610}#)
-                                          (#{source-wrap\ 450}#
-                                            #{e\ 2423}#
-                                            #{w\ 2425}#
-                                            #{s\ 2426}#
-                                            #{mod\ 2427}#)
-                                          #{r*\ 2564}#
-                                          #{w*\ 2565}#
-                                          #{mod\ 2427}#)))
-                                    #{tmp\ 2606}#)
+                                        #{meta\ 2568}#
+                                        #{req\ 2559}#
+                                        #{opt\ 2560}#
+                                        #{rest\ 2561}#
+                                        #{kw\ 2562}#
+                                        #{inits\ 2567}#
+                                        #{vars\ 2564}#
+                                        (#{chi-body\ 473}#
+                                          (cons #{e1\ 2610}# #{e2\ 2611}#)
+                                          (#{source-wrap\ 451}#
+                                            #{e\ 2424}#
+                                            #{w\ 2426}#
+                                            #{s\ 2427}#
+                                            #{mod\ 2428}#)
+                                          #{r*\ 2565}#
+                                          #{w*\ 2566}#
+                                          #{mod\ 2428}#)))
+                                    #{tmp\ 2607}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 2578}#)))))))))))
+                                    #{tmp\ 2579}#)))))))))))
                (begin
-                 (let ((#{tmp\ 2612}# #{clauses\ 2429}#))
-                   (let ((#{tmp\ 2613}#
-                           ($sc-dispatch #{tmp\ 2612}# (quote ()))))
-                     (if #{tmp\ 2613}#
+                 (let ((#{tmp\ 2613}# #{clauses\ 2430}#))
+                   (let ((#{tmp\ 2614}#
+                           ($sc-dispatch #{tmp\ 2613}# (quote ()))))
+                     (if #{tmp\ 2614}#
                        (@apply
                          (lambda () (values (quote ()) #f))
-                         #{tmp\ 2613}#)
-                       (let ((#{tmp\ 2614}#
+                         #{tmp\ 2614}#)
+                       (let ((#{tmp\ 2615}#
                                ($sc-dispatch
-                                 #{tmp\ 2612}#
+                                 #{tmp\ 2613}#
                                  '((any any . each-any)
                                    .
                                    #(each (any any . each-any))))))
-                         (if #{tmp\ 2614}#
+                         (if #{tmp\ 2615}#
                            (@apply
-                             (lambda (#{args\ 2621}#
-                                      #{e1\ 2622}#
-                                      #{e2\ 2623}#
-                                      #{args*\ 2624}#
-                                      #{e1*\ 2625}#
-                                      #{e2*\ 2626}#)
+                             (lambda (#{args\ 2622}#
+                                      #{e1\ 2623}#
+                                      #{e2\ 2624}#
+                                      #{args*\ 2625}#
+                                      #{e1*\ 2626}#
+                                      #{e2*\ 2627}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{get-formals\ 2428}# #{args\ 2621}#))
-                                 (lambda (#{req\ 2627}#
-                                          #{opt\ 2628}#
-                                          #{rest\ 2629}#
-                                          #{kw\ 2630}#)
+                                   (#{get-formals\ 2429}# #{args\ 2622}#))
+                                 (lambda (#{req\ 2628}#
+                                          #{opt\ 2629}#
+                                          #{rest\ 2630}#
+                                          #{kw\ 2631}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{expand-req\ 2438}#
-                                         #{req\ 2627}#
-                                         #{opt\ 2628}#
-                                         #{rest\ 2629}#
-                                         #{kw\ 2630}#
-                                         (cons #{e1\ 2622}# #{e2\ 2623}#)))
-                                     (lambda (#{meta\ 2636}#
-                                              #{req\ 2637}#
-                                              #{opt\ 2638}#
-                                              #{rest\ 2639}#
-                                              #{kw\ 2640}#
-                                              #{inits\ 2641}#
-                                              #{vars\ 2642}#
-                                              #{body\ 2643}#)
+                                       (#{expand-req\ 2439}#
+                                         #{req\ 2628}#
+                                         #{opt\ 2629}#
+                                         #{rest\ 2630}#
+                                         #{kw\ 2631}#
+                                         (cons #{e1\ 2623}# #{e2\ 2624}#)))
+                                     (lambda (#{meta\ 2637}#
+                                              #{req\ 2638}#
+                                              #{opt\ 2639}#
+                                              #{rest\ 2640}#
+                                              #{kw\ 2641}#
+                                              #{inits\ 2642}#
+                                              #{vars\ 2643}#
+                                              #{body\ 2644}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{chi-lambda-case\ 488}#
-                                             #{e\ 2423}#
-                                             #{r\ 2424}#
-                                             #{w\ 2425}#
-                                             #{s\ 2426}#
-                                             #{mod\ 2427}#
-                                             #{get-formals\ 2428}#
-                                             (map (lambda (#{tmp\ 2654}#
-                                                           #{tmp\ 2653}#
-                                                           #{tmp\ 2652}#)
-                                                    (cons #{tmp\ 2652}#
-                                                          (cons #{tmp\ 2653}#
-                                                                #{tmp\ 
2654}#)))
-                                                  #{e2*\ 2626}#
-                                                  #{e1*\ 2625}#
-                                                  #{args*\ 2624}#)))
-                                         (lambda (#{meta*\ 2656}#
-                                                  #{else*\ 2657}#)
+                                           (#{chi-lambda-case\ 489}#
+                                             #{e\ 2424}#
+                                             #{r\ 2425}#
+                                             #{w\ 2426}#
+                                             #{s\ 2427}#
+                                             #{mod\ 2428}#
+                                             #{get-formals\ 2429}#
+                                             (map (lambda (#{tmp\ 2655}#
+                                                           #{tmp\ 2654}#
+                                                           #{tmp\ 2653}#)
+                                                    (cons #{tmp\ 2653}#
+                                                          (cons #{tmp\ 2654}#
+                                                                #{tmp\ 
2655}#)))
+                                                  #{e2*\ 2627}#
+                                                  #{e1*\ 2626}#
+                                                  #{args*\ 2625}#)))
+                                         (lambda (#{meta*\ 2657}#
+                                                  #{else*\ 2658}#)
                                            (values
                                              (append
-                                               #{meta\ 2636}#
-                                               #{meta*\ 2656}#)
-                                             (#{build-lambda-case\ 325}#
-                                               #{s\ 2426}#
-                                               #{req\ 2637}#
-                                               #{opt\ 2638}#
-                                               #{rest\ 2639}#
-                                               #{kw\ 2640}#
-                                               #{inits\ 2641}#
-                                               #{vars\ 2642}#
-                                               #{body\ 2643}#
-                                               #{else*\ 2657}#)))))))))
-                             #{tmp\ 2614}#)
+                                               #{meta\ 2637}#
+                                               #{meta*\ 2657}#)
+                                             (#{build-lambda-case\ 326}#
+                                               #{s\ 2427}#
+                                               #{req\ 2638}#
+                                               #{opt\ 2639}#
+                                               #{rest\ 2640}#
+                                               #{kw\ 2641}#
+                                               #{inits\ 2642}#
+                                               #{vars\ 2643}#
+                                               #{body\ 2644}#
+                                               #{else*\ 2658}#)))))))))
+                             #{tmp\ 2615}#)
                            (syntax-violation
                              #f
                              "source expression failed to match any pattern"
-                             #{tmp\ 2612}#))))))))))
-         (#{strip\ 490}#
-           (lambda (#{x\ 2660}# #{w\ 2661}#)
+                             #{tmp\ 2613}#))))))))))
+         (#{strip\ 491}#
+           (lambda (#{x\ 2661}# #{w\ 2662}#)
              (if (memq 'top
-                       (#{wrap-marks\ 386}# #{w\ 2661}#))
-               #{x\ 2660}#
+                       (#{wrap-marks\ 387}# #{w\ 2662}#))
+               #{x\ 2661}#
                (letrec*
-                 ((#{f\ 2667}#
-                    (lambda (#{x\ 2668}#)
-                      (if (#{syntax-object?\ 343}# #{x\ 2668}#)
-                        (#{strip\ 490}#
-                          (#{syntax-object-expression\ 345}# #{x\ 2668}#)
-                          (#{syntax-object-wrap\ 347}# #{x\ 2668}#))
-                        (if (pair? #{x\ 2668}#)
+                 ((#{f\ 2668}#
+                    (lambda (#{x\ 2669}#)
+                      (if (#{syntax-object?\ 344}# #{x\ 2669}#)
+                        (#{strip\ 491}#
+                          (#{syntax-object-expression\ 346}# #{x\ 2669}#)
+                          (#{syntax-object-wrap\ 348}# #{x\ 2669}#))
+                        (if (pair? #{x\ 2669}#)
                           (begin
-                            (let ((#{a\ 2675}# (#{f\ 2667}# (car #{x\ 2668}#)))
-                                  (#{d\ 2676}#
-                                    (#{f\ 2667}# (cdr #{x\ 2668}#))))
-                              (if (if (eq? #{a\ 2675}# (car #{x\ 2668}#))
-                                    (eq? #{d\ 2676}# (cdr #{x\ 2668}#))
+                            (let ((#{a\ 2676}# (#{f\ 2668}# (car #{x\ 2669}#)))
+                                  (#{d\ 2677}#
+                                    (#{f\ 2668}# (cdr #{x\ 2669}#))))
+                              (if (if (eq? #{a\ 2676}# (car #{x\ 2669}#))
+                                    (eq? #{d\ 2677}# (cdr #{x\ 2669}#))
                                     #f)
-                                #{x\ 2668}#
-                                (cons #{a\ 2675}# #{d\ 2676}#))))
-                          (if (vector? #{x\ 2668}#)
+                                #{x\ 2669}#
+                                (cons #{a\ 2676}# #{d\ 2677}#))))
+                          (if (vector? #{x\ 2669}#)
                             (begin
-                              (let ((#{old\ 2682}# (vector->list #{x\ 2668}#)))
+                              (let ((#{old\ 2683}# (vector->list #{x\ 2669}#)))
                                 (begin
-                                  (let ((#{new\ 2684}#
-                                          (map #{f\ 2667}# #{old\ 2682}#)))
-                                    (if (#{and-map*\ 35}#
+                                  (let ((#{new\ 2685}#
+                                          (map #{f\ 2668}# #{old\ 2683}#)))
+                                    (if (#{and-map*\ 36}#
                                           eq?
-                                          #{old\ 2682}#
-                                          #{new\ 2684}#)
-                                      #{x\ 2668}#
-                                      (list->vector #{new\ 2684}#))))))
-                            #{x\ 2668}#))))))
-                 (begin (#{f\ 2667}# #{x\ 2660}#))))))
-         (#{gen-var\ 492}#
-           (lambda (#{id\ 2686}#)
+                                          #{old\ 2683}#
+                                          #{new\ 2685}#)
+                                      #{x\ 2669}#
+                                      (list->vector #{new\ 2685}#))))))
+                            #{x\ 2669}#))))))
+                 (begin (#{f\ 2668}# #{x\ 2661}#))))))
+         (#{gen-var\ 493}#
+           (lambda (#{id\ 2687}#)
              (begin
-               (let ((#{id\ 2689}#
-                       (if (#{syntax-object?\ 343}# #{id\ 2686}#)
-                         (#{syntax-object-expression\ 345}# #{id\ 2686}#)
-                         #{id\ 2686}#)))
+               (let ((#{id\ 2690}#
+                       (if (#{syntax-object?\ 344}# #{id\ 2687}#)
+                         (#{syntax-object-expression\ 346}# #{id\ 2687}#)
+                         #{id\ 2687}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 2689}#) " "))))))
-         (#{lambda-var-list\ 494}#
-           (lambda (#{vars\ 2691}#)
+                   (string-append (symbol->string #{id\ 2690}#) " "))))))
+         (#{lambda-var-list\ 495}#
+           (lambda (#{vars\ 2692}#)
              (letrec*
-               ((#{lvl\ 2697}#
-                  (lambda (#{vars\ 2698}# #{ls\ 2699}# #{w\ 2700}#)
-                    (if (pair? #{vars\ 2698}#)
-                      (#{lvl\ 2697}#
-                        (cdr #{vars\ 2698}#)
-                        (cons (#{wrap\ 448}#
-                                (car #{vars\ 2698}#)
-                                #{w\ 2700}#
+               ((#{lvl\ 2698}#
+                  (lambda (#{vars\ 2699}# #{ls\ 2700}# #{w\ 2701}#)
+                    (if (pair? #{vars\ 2699}#)
+                      (#{lvl\ 2698}#
+                        (cdr #{vars\ 2699}#)
+                        (cons (#{wrap\ 449}#
+                                (car #{vars\ 2699}#)
+                                #{w\ 2701}#
                                 #f)
-                              #{ls\ 2699}#)
-                        #{w\ 2700}#)
-                      (if (#{id?\ 379}# #{vars\ 2698}#)
-                        (cons (#{wrap\ 448}# #{vars\ 2698}# #{w\ 2700}# #f)
-                              #{ls\ 2699}#)
-                        (if (null? #{vars\ 2698}#)
-                          #{ls\ 2699}#
-                          (if (#{syntax-object?\ 343}# #{vars\ 2698}#)
-                            (#{lvl\ 2697}#
-                              (#{syntax-object-expression\ 345}#
-                                #{vars\ 2698}#)
-                              #{ls\ 2699}#
-                              (#{join-wraps\ 430}#
-                                #{w\ 2700}#
-                                (#{syntax-object-wrap\ 347}# #{vars\ 2698}#)))
-                            (cons #{vars\ 2698}# #{ls\ 2699}#))))))))
+                              #{ls\ 2700}#)
+                        #{w\ 2701}#)
+                      (if (#{id?\ 380}# #{vars\ 2699}#)
+                        (cons (#{wrap\ 449}# #{vars\ 2699}# #{w\ 2701}# #f)
+                              #{ls\ 2700}#)
+                        (if (null? #{vars\ 2699}#)
+                          #{ls\ 2700}#
+                          (if (#{syntax-object?\ 344}# #{vars\ 2699}#)
+                            (#{lvl\ 2698}#
+                              (#{syntax-object-expression\ 346}#
+                                #{vars\ 2699}#)
+                              #{ls\ 2700}#
+                              (#{join-wraps\ 431}#
+                                #{w\ 2701}#
+                                (#{syntax-object-wrap\ 348}# #{vars\ 2699}#)))
+                            (cons #{vars\ 2699}# #{ls\ 2700}#))))))))
                (begin
-                 (#{lvl\ 2697}#
-                   #{vars\ 2691}#
+                 (#{lvl\ 2698}#
+                   #{vars\ 2692}#
                    '()
                    '(())))))))
         (begin
-          (set! #{make-primitive-ref\ 241}#
-            (lambda (#{src\ 703}# #{name\ 704}#)
+          (set! #{make-primitive-ref\ 242}#
+            (lambda (#{src\ 704}# #{name\ 705}#)
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 2)
-                #{src\ 703}#
-                #{name\ 704}#)))
-          (set! #{fx+\ 280}# +)
-          (set! #{fx-\ 282}# -)
-          (set! #{fx=\ 284}# =)
-          (set! #{fx<\ 286}# <)
-          (set! #{set-syntax-object-expression!\ 351}#
-            (lambda (#{x\ 1081}# #{update\ 1082}#)
-              (vector-set! #{x\ 1081}# 1 #{update\ 1082}#)))
-          (set! #{set-syntax-object-wrap!\ 353}#
-            (lambda (#{x\ 1085}# #{update\ 1086}#)
-              (vector-set! #{x\ 1085}# 2 #{update\ 1086}#)))
-          (set! #{set-syntax-object-module!\ 355}#
-            (lambda (#{x\ 1089}# #{update\ 1090}#)
-              (vector-set! #{x\ 1089}# 3 #{update\ 1090}#)))
-          (set! #{binding-type\ 362}# car)
-          (set! #{binding-value\ 364}# cdr)
-          (set! #{make-wrap\ 384}# cons)
-          (set! #{wrap-marks\ 386}# car)
-          (set! #{wrap-subst\ 388}# cdr)
-          (set! #{ribcage?\ 402}#
-            (lambda (#{x\ 1167}#)
-              (if (vector? #{x\ 1167}#)
-                (if (= (vector-length #{x\ 1167}#) 4)
-                  (eq? (vector-ref #{x\ 1167}# 0) (quote ribcage))
+                #{src\ 704}#
+                #{name\ 705}#)))
+          (set! #{fx+\ 281}# +)
+          (set! #{fx-\ 283}# -)
+          (set! #{fx=\ 285}# =)
+          (set! #{fx<\ 287}# <)
+          (set! #{set-syntax-object-expression!\ 352}#
+            (lambda (#{x\ 1082}# #{update\ 1083}#)
+              (vector-set! #{x\ 1082}# 1 #{update\ 1083}#)))
+          (set! #{set-syntax-object-wrap!\ 354}#
+            (lambda (#{x\ 1086}# #{update\ 1087}#)
+              (vector-set! #{x\ 1086}# 2 #{update\ 1087}#)))
+          (set! #{set-syntax-object-module!\ 356}#
+            (lambda (#{x\ 1090}# #{update\ 1091}#)
+              (vector-set! #{x\ 1090}# 3 #{update\ 1091}#)))
+          (set! #{binding-type\ 363}# car)
+          (set! #{binding-value\ 365}# cdr)
+          (set! #{make-wrap\ 385}# cons)
+          (set! #{wrap-marks\ 387}# car)
+          (set! #{wrap-subst\ 389}# cdr)
+          (set! #{ribcage?\ 403}#
+            (lambda (#{x\ 1168}#)
+              (if (vector? #{x\ 1168}#)
+                (if (= (vector-length #{x\ 1168}#) 4)
+                  (eq? (vector-ref #{x\ 1168}# 0) (quote ribcage))
                   #f)
                 #f)))
           (begin
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'local-syntax
               'letrec-syntax
               #t)
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'local-syntax
               'let-syntax
               #f)
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'core
               'fluid-let-syntax
-              (lambda (#{e\ 2711}#
-                       #{r\ 2712}#
-                       #{w\ 2713}#
-                       #{s\ 2714}#
-                       #{mod\ 2715}#)
-                (let ((#{tmp\ 2721}# #{e\ 2711}#))
-                  (let ((#{tmp\ 2722}#
+              (lambda (#{e\ 2712}#
+                       #{r\ 2713}#
+                       #{w\ 2714}#
+                       #{s\ 2715}#
+                       #{mod\ 2716}#)
+                (let ((#{tmp\ 2722}# #{e\ 2712}#))
+                  (let ((#{tmp\ 2723}#
                           ($sc-dispatch
-                            #{tmp\ 2721}#
+                            #{tmp\ 2722}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if (if #{tmp\ 2722}#
+                    (if (if #{tmp\ 2723}#
                           (@apply
-                            (lambda (#{var\ 2727}#
-                                     #{val\ 2728}#
-                                     #{e1\ 2729}#
-                                     #{e2\ 2730}#)
-                              (#{valid-bound-ids?\ 442}# #{var\ 2727}#))
-                            #{tmp\ 2722}#)
+                            (lambda (#{var\ 2728}#
+                                     #{val\ 2729}#
+                                     #{e1\ 2730}#
+                                     #{e2\ 2731}#)
+                              (#{valid-bound-ids?\ 443}# #{var\ 2728}#))
+                            #{tmp\ 2723}#)
                           #f)
                       (@apply
-                        (lambda (#{var\ 2736}#
-                                 #{val\ 2737}#
-                                 #{e1\ 2738}#
-                                 #{e2\ 2739}#)
+                        (lambda (#{var\ 2737}#
+                                 #{val\ 2738}#
+                                 #{e1\ 2739}#
+                                 #{e2\ 2740}#)
                           (begin
-                            (let ((#{names\ 2741}#
-                                    (map (lambda (#{x\ 2742}#)
-                                           (#{id-var-name\ 436}#
-                                             #{x\ 2742}#
-                                             #{w\ 2713}#))
-                                         #{var\ 2736}#)))
+                            (let ((#{names\ 2742}#
+                                    (map (lambda (#{x\ 2743}#)
+                                           (#{id-var-name\ 437}#
+                                             #{x\ 2743}#
+                                             #{w\ 2714}#))
+                                         #{var\ 2737}#)))
                               (begin
                                 (for-each
-                                  (lambda (#{id\ 2745}# #{n\ 2746}#)
+                                  (lambda (#{id\ 2746}# #{n\ 2747}#)
                                     (begin
-                                      (let ((#{atom-key\ 2751}#
-                                              (#{binding-type\ 362}#
-                                                (#{lookup\ 373}#
-                                                  #{n\ 2746}#
-                                                  #{r\ 2712}#
-                                                  #{mod\ 2715}#))))
-                                        (if (eqv? #{atom-key\ 2751}#
+                                      (let ((#{atom-key\ 2752}#
+                                              (#{binding-type\ 363}#
+                                                (#{lookup\ 374}#
+                                                  #{n\ 2747}#
+                                                  #{r\ 2713}#
+                                                  #{mod\ 2716}#))))
+                                        (if (eqv? #{atom-key\ 2752}#
                                                   'displaced-lexical)
                                           (syntax-violation
                                             'fluid-let-syntax
                                             "identifier out of context"
-                                            #{e\ 2711}#
-                                            (#{source-wrap\ 450}#
-                                              #{id\ 2745}#
-                                              #{w\ 2713}#
-                                              #{s\ 2714}#
-                                              #{mod\ 2715}#))))))
-                                  #{var\ 2736}#
-                                  #{names\ 2741}#)
-                                (#{chi-body\ 472}#
-                                  (cons #{e1\ 2738}# #{e2\ 2739}#)
-                                  (#{source-wrap\ 450}#
-                                    #{e\ 2711}#
-                                    #{w\ 2713}#
-                                    #{s\ 2714}#
-                                    #{mod\ 2715}#)
-                                  (#{extend-env\ 367}#
-                                    #{names\ 2741}#
+                                            #{e\ 2712}#
+                                            (#{source-wrap\ 451}#
+                                              #{id\ 2746}#
+                                              #{w\ 2714}#
+                                              #{s\ 2715}#
+                                              #{mod\ 2716}#))))))
+                                  #{var\ 2737}#
+                                  #{names\ 2742}#)
+                                (#{chi-body\ 473}#
+                                  (cons #{e1\ 2739}# #{e2\ 2740}#)
+                                  (#{source-wrap\ 451}#
+                                    #{e\ 2712}#
+                                    #{w\ 2714}#
+                                    #{s\ 2715}#
+                                    #{mod\ 2716}#)
+                                  (#{extend-env\ 368}#
+                                    #{names\ 2742}#
                                     (begin
-                                      (let ((#{trans-r\ 2756}#
-                                              (#{macros-only-env\ 371}#
-                                                #{r\ 2712}#)))
-                                        (map (lambda (#{x\ 2757}#)
+                                      (let ((#{trans-r\ 2757}#
+                                              (#{macros-only-env\ 372}#
+                                                #{r\ 2713}#)))
+                                        (map (lambda (#{x\ 2758}#)
                                                (cons 'macro
-                                                     
(#{eval-local-transformer\ 476}#
-                                                       (#{chi\ 464}#
-                                                         #{x\ 2757}#
-                                                         #{trans-r\ 2756}#
-                                                         #{w\ 2713}#
-                                                         #{mod\ 2715}#)
-                                                       #{mod\ 2715}#)))
-                                             #{val\ 2737}#)))
-                                    #{r\ 2712}#)
-                                  #{w\ 2713}#
-                                  #{mod\ 2715}#)))))
-                        #{tmp\ 2722}#)
-                      (let ((#{_\ 2762}# #{tmp\ 2721}#))
+                                                     
(#{eval-local-transformer\ 477}#
+                                                       (#{chi\ 465}#
+                                                         #{x\ 2758}#
+                                                         #{trans-r\ 2757}#
+                                                         #{w\ 2714}#
+                                                         #{mod\ 2716}#)
+                                                       #{mod\ 2716}#)))
+                                             #{val\ 2738}#)))
+                                    #{r\ 2713}#)
+                                  #{w\ 2714}#
+                                  #{mod\ 2716}#)))))
+                        #{tmp\ 2723}#)
+                      (let ((#{_\ 2763}# #{tmp\ 2722}#))
                         (syntax-violation
                           'fluid-let-syntax
                           "bad syntax"
-                          (#{source-wrap\ 450}#
-                            #{e\ 2711}#
-                            #{w\ 2713}#
-                            #{s\ 2714}#
-                            #{mod\ 2715}#))))))))
-            (#{global-extend\ 375}#
+                          (#{source-wrap\ 451}#
+                            #{e\ 2712}#
+                            #{w\ 2714}#
+                            #{s\ 2715}#
+                            #{mod\ 2716}#))))))))
+            (#{global-extend\ 376}#
               'core
               'quote
-              (lambda (#{e\ 2763}#
-                       #{r\ 2764}#
-                       #{w\ 2765}#
-                       #{s\ 2766}#
-                       #{mod\ 2767}#)
-                (let ((#{tmp\ 2773}# #{e\ 2763}#))
-                  (let ((#{tmp\ 2774}#
-                          ($sc-dispatch #{tmp\ 2773}# (quote (_ any)))))
-                    (if #{tmp\ 2774}#
+              (lambda (#{e\ 2764}#
+                       #{r\ 2765}#
+                       #{w\ 2766}#
+                       #{s\ 2767}#
+                       #{mod\ 2768}#)
+                (let ((#{tmp\ 2774}# #{e\ 2764}#))
+                  (let ((#{tmp\ 2775}#
+                          ($sc-dispatch #{tmp\ 2774}# (quote (_ any)))))
+                    (if #{tmp\ 2775}#
                       (@apply
-                        (lambda (#{e\ 2776}#)
-                          (#{build-data\ 329}#
-                            #{s\ 2766}#
-                            (#{strip\ 490}# #{e\ 2776}# #{w\ 2765}#)))
-                        #{tmp\ 2774}#)
-                      (let ((#{_\ 2778}# #{tmp\ 2773}#))
+                        (lambda (#{e\ 2777}#)
+                          (#{build-data\ 330}#
+                            #{s\ 2767}#
+                            (#{strip\ 491}# #{e\ 2777}# #{w\ 2766}#)))
+                        #{tmp\ 2775}#)
+                      (let ((#{_\ 2779}# #{tmp\ 2774}#))
                         (syntax-violation
                           'quote
                           "bad syntax"
-                          (#{source-wrap\ 450}#
-                            #{e\ 2763}#
-                            #{w\ 2765}#
-                            #{s\ 2766}#
-                            #{mod\ 2767}#))))))))
-            (#{global-extend\ 375}#
+                          (#{source-wrap\ 451}#
+                            #{e\ 2764}#
+                            #{w\ 2766}#
+                            #{s\ 2767}#
+                            #{mod\ 2768}#))))))))
+            (#{global-extend\ 376}#
               'core
               'syntax
               (letrec*
-                ((#{gen-syntax\ 2780}#
-                   (lambda (#{src\ 2795}#
-                            #{e\ 2796}#
-                            #{r\ 2797}#
-                            #{maps\ 2798}#
-                            #{ellipsis?\ 2799}#
-                            #{mod\ 2800}#)
-                     (if (#{id?\ 379}# #{e\ 2796}#)
+                ((#{gen-syntax\ 2781}#
+                   (lambda (#{src\ 2796}#
+                            #{e\ 2797}#
+                            #{r\ 2798}#
+                            #{maps\ 2799}#
+                            #{ellipsis?\ 2800}#
+                            #{mod\ 2801}#)
+                     (if (#{id?\ 380}# #{e\ 2797}#)
                        (begin
-                         (let ((#{label\ 2808}#
-                                 (#{id-var-name\ 436}#
-                                   #{e\ 2796}#
+                         (let ((#{label\ 2809}#
+                                 (#{id-var-name\ 437}#
+                                   #{e\ 2797}#
                                    '(()))))
                            (begin
-                             (let ((#{b\ 2811}#
-                                     (#{lookup\ 373}#
-                                       #{label\ 2808}#
-                                       #{r\ 2797}#
-                                       #{mod\ 2800}#)))
-                               (if (eq? (#{binding-type\ 362}# #{b\ 2811}#)
+                             (let ((#{b\ 2812}#
+                                     (#{lookup\ 374}#
+                                       #{label\ 2809}#
+                                       #{r\ 2798}#
+                                       #{mod\ 2801}#)))
+                               (if (eq? (#{binding-type\ 363}# #{b\ 2812}#)
                                         'syntax)
                                  (call-with-values
                                    (lambda ()
                                      (begin
-                                       (let ((#{var.lev\ 2813}#
-                                               (#{binding-value\ 364}#
-                                                 #{b\ 2811}#)))
-                                         (#{gen-ref\ 2782}#
-                                           #{src\ 2795}#
-                                           (car #{var.lev\ 2813}#)
-                                           (cdr #{var.lev\ 2813}#)
-                                           #{maps\ 2798}#))))
-                                   (lambda (#{var\ 2814}# #{maps\ 2815}#)
+                                       (let ((#{var.lev\ 2814}#
+                                               (#{binding-value\ 365}#
+                                                 #{b\ 2812}#)))
+                                         (#{gen-ref\ 2783}#
+                                           #{src\ 2796}#
+                                           (car #{var.lev\ 2814}#)
+                                           (cdr #{var.lev\ 2814}#)
+                                           #{maps\ 2799}#))))
+                                   (lambda (#{var\ 2815}# #{maps\ 2816}#)
                                      (values
-                                       (list (quote ref) #{var\ 2814}#)
-                                       #{maps\ 2815}#)))
-                                 (if (#{ellipsis?\ 2799}# #{e\ 2796}#)
+                                       (list (quote ref) #{var\ 2815}#)
+                                       #{maps\ 2816}#)))
+                                 (if (#{ellipsis?\ 2800}# #{e\ 2797}#)
                                    (syntax-violation
                                      'syntax
                                      "misplaced ellipsis"
-                                     #{src\ 2795}#)
+                                     #{src\ 2796}#)
                                    (values
-                                     (list (quote quote) #{e\ 2796}#)
-                                     #{maps\ 2798}#)))))))
-                       (let ((#{tmp\ 2820}# #{e\ 2796}#))
-                         (let ((#{tmp\ 2821}#
+                                     (list (quote quote) #{e\ 2797}#)
+                                     #{maps\ 2799}#)))))))
+                       (let ((#{tmp\ 2821}# #{e\ 2797}#))
+                         (let ((#{tmp\ 2822}#
                                  ($sc-dispatch
-                                   #{tmp\ 2820}#
+                                   #{tmp\ 2821}#
                                    '(any any))))
-                           (if (if #{tmp\ 2821}#
+                           (if (if #{tmp\ 2822}#
                                  (@apply
-                                   (lambda (#{dots\ 2824}# #{e\ 2825}#)
-                                     (#{ellipsis?\ 2799}# #{dots\ 2824}#))
-                                   #{tmp\ 2821}#)
+                                   (lambda (#{dots\ 2825}# #{e\ 2826}#)
+                                     (#{ellipsis?\ 2800}# #{dots\ 2825}#))
+                                   #{tmp\ 2822}#)
                                  #f)
                              (@apply
-                               (lambda (#{dots\ 2828}# #{e\ 2829}#)
-                                 (#{gen-syntax\ 2780}#
-                                   #{src\ 2795}#
-                                   #{e\ 2829}#
-                                   #{r\ 2797}#
-                                   #{maps\ 2798}#
-                                   (lambda (#{x\ 2830}#) #f)
-                                   #{mod\ 2800}#))
-                               #{tmp\ 2821}#)
-                             (let ((#{tmp\ 2832}#
+                               (lambda (#{dots\ 2829}# #{e\ 2830}#)
+                                 (#{gen-syntax\ 2781}#
+                                   #{src\ 2796}#
+                                   #{e\ 2830}#
+                                   #{r\ 2798}#
+                                   #{maps\ 2799}#
+                                   (lambda (#{x\ 2831}#) #f)
+                                   #{mod\ 2801}#))
+                               #{tmp\ 2822}#)
+                             (let ((#{tmp\ 2833}#
                                      ($sc-dispatch
-                                       #{tmp\ 2820}#
+                                       #{tmp\ 2821}#
                                        '(any any . any))))
-                               (if (if #{tmp\ 2832}#
+                               (if (if #{tmp\ 2833}#
                                      (@apply
-                                       (lambda (#{x\ 2836}#
-                                                #{dots\ 2837}#
-                                                #{y\ 2838}#)
-                                         (#{ellipsis?\ 2799}# #{dots\ 2837}#))
-                                       #{tmp\ 2832}#)
+                                       (lambda (#{x\ 2837}#
+                                                #{dots\ 2838}#
+                                                #{y\ 2839}#)
+                                         (#{ellipsis?\ 2800}# #{dots\ 2838}#))
+                                       #{tmp\ 2833}#)
                                      #f)
                                  (@apply
-                                   (lambda (#{x\ 2842}#
-                                            #{dots\ 2843}#
-                                            #{y\ 2844}#)
+                                   (lambda (#{x\ 2843}#
+                                            #{dots\ 2844}#
+                                            #{y\ 2845}#)
                                      (letrec*
-                                       ((#{f\ 2848}#
-                                          (lambda (#{y\ 2849}# #{k\ 2850}#)
-                                            (let ((#{tmp\ 2857}# #{y\ 2849}#))
-                                              (let ((#{tmp\ 2858}#
+                                       ((#{f\ 2849}#
+                                          (lambda (#{y\ 2850}# #{k\ 2851}#)
+                                            (let ((#{tmp\ 2858}# #{y\ 2850}#))
+                                              (let ((#{tmp\ 2859}#
                                                       ($sc-dispatch
-                                                        #{tmp\ 2857}#
+                                                        #{tmp\ 2858}#
                                                         '(any . any))))
-                                                (if (if #{tmp\ 2858}#
+                                                (if (if #{tmp\ 2859}#
                                                       (@apply
-                                                        (lambda (#{dots\ 2861}#
-                                                                 #{y\ 2862}#)
-                                                          (#{ellipsis?\ 2799}#
-                                                            #{dots\ 2861}#))
-                                                        #{tmp\ 2858}#)
+                                                        (lambda (#{dots\ 2862}#
+                                                                 #{y\ 2863}#)
+                                                          (#{ellipsis?\ 2800}#
+                                                            #{dots\ 2862}#))
+                                                        #{tmp\ 2859}#)
                                                       #f)
                                                   (@apply
-                                                    (lambda (#{dots\ 2865}#
-                                                             #{y\ 2866}#)
-                                                      (#{f\ 2848}#
-                                                        #{y\ 2866}#
-                                                        (lambda (#{maps\ 
2867}#)
+                                                    (lambda (#{dots\ 2866}#
+                                                             #{y\ 2867}#)
+                                                      (#{f\ 2849}#
+                                                        #{y\ 2867}#
+                                                        (lambda (#{maps\ 
2868}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{k\ 2850}#
+                                                              (#{k\ 2851}#
                                                                 (cons '()
-                                                                      #{maps\ 
2867}#)))
-                                                            (lambda (#{x\ 
2869}#
-                                                                     #{maps\ 
2870}#)
-                                                              (if (null? (car 
#{maps\ 2870}#))
+                                                                      #{maps\ 
2868}#)))
+                                                            (lambda (#{x\ 
2870}#
+                                                                     #{maps\ 
2871}#)
+                                                              (if (null? (car 
#{maps\ 2871}#))
                                                                 
(syntax-violation
                                                                   'syntax
                                                                   "extra 
ellipsis"
-                                                                  #{src\ 
2795}#)
+                                                                  #{src\ 
2796}#)
                                                                 (values
-                                                                  
(#{gen-mappend\ 2784}#
-                                                                    #{x\ 2869}#
-                                                                    (car 
#{maps\ 2870}#))
-                                                                  (cdr #{maps\ 
2870}#))))))))
-                                                    #{tmp\ 2858}#)
-                                                  (let ((#{_\ 2874}#
-                                                          #{tmp\ 2857}#))
+                                                                  
(#{gen-mappend\ 2785}#
+                                                                    #{x\ 2870}#
+                                                                    (car 
#{maps\ 2871}#))
+                                                                  (cdr #{maps\ 
2871}#))))))))
+                                                    #{tmp\ 2859}#)
+                                                  (let ((#{_\ 2875}#
+                                                          #{tmp\ 2858}#))
                                                     (call-with-values
                                                       (lambda ()
-                                                        (#{gen-syntax\ 2780}#
-                                                          #{src\ 2795}#
-                                                          #{y\ 2849}#
-                                                          #{r\ 2797}#
-                                                          #{maps\ 2798}#
-                                                          #{ellipsis?\ 2799}#
-                                                          #{mod\ 2800}#))
-                                                      (lambda (#{y\ 2875}#
-                                                               #{maps\ 2876}#)
+                                                        (#{gen-syntax\ 2781}#
+                                                          #{src\ 2796}#
+                                                          #{y\ 2850}#
+                                                          #{r\ 2798}#
+                                                          #{maps\ 2799}#
+                                                          #{ellipsis?\ 2800}#
+                                                          #{mod\ 2801}#))
+                                                      (lambda (#{y\ 2876}#
+                                                               #{maps\ 2877}#)
                                                         (call-with-values
                                                           (lambda ()
-                                                            (#{k\ 2850}#
-                                                              #{maps\ 2876}#))
-                                                          (lambda (#{x\ 2879}#
-                                                                   #{maps\ 
2880}#)
+                                                            (#{k\ 2851}#
+                                                              #{maps\ 2877}#))
+                                                          (lambda (#{x\ 2880}#
+                                                                   #{maps\ 
2881}#)
                                                             (values
-                                                              (#{gen-append\ 
2790}#
-                                                                #{x\ 2879}#
-                                                                #{y\ 2875}#)
-                                                              #{maps\ 
2880}#))))))))))))
+                                                              (#{gen-append\ 
2791}#
+                                                                #{x\ 2880}#
+                                                                #{y\ 2876}#)
+                                                              #{maps\ 
2881}#))))))))))))
                                        (begin
-                                         (#{f\ 2848}#
-                                           #{y\ 2844}#
-                                           (lambda (#{maps\ 2851}#)
+                                         (#{f\ 2849}#
+                                           #{y\ 2845}#
+                                           (lambda (#{maps\ 2852}#)
                                              (call-with-values
                                                (lambda ()
-                                                 (#{gen-syntax\ 2780}#
-                                                   #{src\ 2795}#
-                                                   #{x\ 2842}#
-                                                   #{r\ 2797}#
+                                                 (#{gen-syntax\ 2781}#
+                                                   #{src\ 2796}#
+                                                   #{x\ 2843}#
+                                                   #{r\ 2798}#
                                                    (cons '()
-                                                         #{maps\ 2851}#)
-                                                   #{ellipsis?\ 2799}#
-                                                   #{mod\ 2800}#))
-                                               (lambda (#{x\ 2853}#
-                                                        #{maps\ 2854}#)
-                                                 (if (null? (car #{maps\ 
2854}#))
+                                                         #{maps\ 2852}#)
+                                                   #{ellipsis?\ 2800}#
+                                                   #{mod\ 2801}#))
+                                               (lambda (#{x\ 2854}#
+                                                        #{maps\ 2855}#)
+                                                 (if (null? (car #{maps\ 
2855}#))
                                                    (syntax-violation
                                                      'syntax
                                                      "extra ellipsis"
-                                                     #{src\ 2795}#)
+                                                     #{src\ 2796}#)
                                                    (values
-                                                     (#{gen-map\ 2786}#
-                                                       #{x\ 2853}#
-                                                       (car #{maps\ 2854}#))
-                                                     (cdr #{maps\ 
2854}#))))))))))
-                                   #{tmp\ 2832}#)
-                                 (let ((#{tmp\ 2883}#
+                                                     (#{gen-map\ 2787}#
+                                                       #{x\ 2854}#
+                                                       (car #{maps\ 2855}#))
+                                                     (cdr #{maps\ 
2855}#))))))))))
+                                   #{tmp\ 2833}#)
+                                 (let ((#{tmp\ 2884}#
                                          ($sc-dispatch
-                                           #{tmp\ 2820}#
+                                           #{tmp\ 2821}#
                                            '(any . any))))
-                                   (if #{tmp\ 2883}#
+                                   (if #{tmp\ 2884}#
                                      (@apply
-                                       (lambda (#{x\ 2886}# #{y\ 2887}#)
+                                       (lambda (#{x\ 2887}# #{y\ 2888}#)
                                          (call-with-values
                                            (lambda ()
-                                             (#{gen-syntax\ 2780}#
-                                               #{src\ 2795}#
-                                               #{x\ 2886}#
-                                               #{r\ 2797}#
-                                               #{maps\ 2798}#
-                                               #{ellipsis?\ 2799}#
-                                               #{mod\ 2800}#))
-                                           (lambda (#{x\ 2888}# #{maps\ 2889}#)
+                                             (#{gen-syntax\ 2781}#
+                                               #{src\ 2796}#
+                                               #{x\ 2887}#
+                                               #{r\ 2798}#
+                                               #{maps\ 2799}#
+                                               #{ellipsis?\ 2800}#
+                                               #{mod\ 2801}#))
+                                           (lambda (#{x\ 2889}# #{maps\ 2890}#)
                                              (call-with-values
                                                (lambda ()
-                                                 (#{gen-syntax\ 2780}#
-                                                   #{src\ 2795}#
-                                                   #{y\ 2887}#
-                                                   #{r\ 2797}#
-                                                   #{maps\ 2889}#
-                                                   #{ellipsis?\ 2799}#
-                                                   #{mod\ 2800}#))
-                                               (lambda (#{y\ 2892}#
-                                                        #{maps\ 2893}#)
+                                                 (#{gen-syntax\ 2781}#
+                                                   #{src\ 2796}#
+                                                   #{y\ 2888}#
+                                                   #{r\ 2798}#
+                                                   #{maps\ 2890}#
+                                                   #{ellipsis?\ 2800}#
+                                                   #{mod\ 2801}#))
+                                               (lambda (#{y\ 2893}#
+                                                        #{maps\ 2894}#)
                                                  (values
-                                                   (#{gen-cons\ 2788}#
-                                                     #{x\ 2888}#
-                                                     #{y\ 2892}#)
-                                                   #{maps\ 2893}#))))))
-                                       #{tmp\ 2883}#)
-                                     (let ((#{tmp\ 2896}#
+                                                   (#{gen-cons\ 2789}#
+                                                     #{x\ 2889}#
+                                                     #{y\ 2893}#)
+                                                   #{maps\ 2894}#))))))
+                                       #{tmp\ 2884}#)
+                                     (let ((#{tmp\ 2897}#
                                              ($sc-dispatch
-                                               #{tmp\ 2820}#
+                                               #{tmp\ 2821}#
                                                '#(vector (any . each-any)))))
-                                       (if #{tmp\ 2896}#
+                                       (if #{tmp\ 2897}#
                                          (@apply
-                                           (lambda (#{e1\ 2899}# #{e2\ 2900}#)
+                                           (lambda (#{e1\ 2900}# #{e2\ 2901}#)
                                              (call-with-values
                                                (lambda ()
-                                                 (#{gen-syntax\ 2780}#
-                                                   #{src\ 2795}#
-                                                   (cons #{e1\ 2899}#
-                                                         #{e2\ 2900}#)
-                                                   #{r\ 2797}#
-                                                   #{maps\ 2798}#
-                                                   #{ellipsis?\ 2799}#
-                                                   #{mod\ 2800}#))
-                                               (lambda (#{e\ 2902}#
-                                                        #{maps\ 2903}#)
+                                                 (#{gen-syntax\ 2781}#
+                                                   #{src\ 2796}#
+                                                   (cons #{e1\ 2900}#
+                                                         #{e2\ 2901}#)
+                                                   #{r\ 2798}#
+                                                   #{maps\ 2799}#
+                                                   #{ellipsis?\ 2800}#
+                                                   #{mod\ 2801}#))
+                                               (lambda (#{e\ 2903}#
+                                                        #{maps\ 2904}#)
                                                  (values
-                                                   (#{gen-vector\ 2792}#
-                                                     #{e\ 2902}#)
-                                                   #{maps\ 2903}#))))
-                                           #{tmp\ 2896}#)
-                                         (let ((#{_\ 2907}# #{tmp\ 2820}#))
+                                                   (#{gen-vector\ 2793}#
+                                                     #{e\ 2903}#)
+                                                   #{maps\ 2904}#))))
+                                           #{tmp\ 2897}#)
+                                         (let ((#{_\ 2908}# #{tmp\ 2821}#))
                                            (values
-                                             (list (quote quote) #{e\ 2796}#)
-                                             #{maps\ 2798}#))))))))))))))
-                 (#{gen-ref\ 2782}#
-                   (lambda (#{src\ 2909}#
-                            #{var\ 2910}#
-                            #{level\ 2911}#
-                            #{maps\ 2912}#)
-                     (if (#{fx=\ 284}# #{level\ 2911}# 0)
-                       (values #{var\ 2910}# #{maps\ 2912}#)
-                       (if (null? #{maps\ 2912}#)
+                                             (list (quote quote) #{e\ 2797}#)
+                                             #{maps\ 2799}#))))))))))))))
+                 (#{gen-ref\ 2783}#
+                   (lambda (#{src\ 2910}#
+                            #{var\ 2911}#
+                            #{level\ 2912}#
+                            #{maps\ 2913}#)
+                     (if (#{fx=\ 285}# #{level\ 2912}# 0)
+                       (values #{var\ 2911}# #{maps\ 2913}#)
+                       (if (null? #{maps\ 2913}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 2909}#)
+                           #{src\ 2910}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 2782}#
-                               #{src\ 2909}#
-                               #{var\ 2910}#
-                               (#{fx-\ 282}# #{level\ 2911}# 1)
-                               (cdr #{maps\ 2912}#)))
-                           (lambda (#{outer-var\ 2917}# #{outer-maps\ 2918}#)
+                             (#{gen-ref\ 2783}#
+                               #{src\ 2910}#
+                               #{var\ 2911}#
+                               (#{fx-\ 283}# #{level\ 2912}# 1)
+                               (cdr #{maps\ 2913}#)))
+                           (lambda (#{outer-var\ 2918}# #{outer-maps\ 2919}#)
                              (begin
-                               (let ((#{b\ 2922}#
-                                       (assq #{outer-var\ 2917}#
-                                             (car #{maps\ 2912}#))))
-                                 (if #{b\ 2922}#
-                                   (values (cdr #{b\ 2922}#) #{maps\ 2912}#)
+                               (let ((#{b\ 2923}#
+                                       (assq #{outer-var\ 2918}#
+                                             (car #{maps\ 2913}#))))
+                                 (if #{b\ 2923}#
+                                   (values (cdr #{b\ 2923}#) #{maps\ 2913}#)
                                    (begin
-                                     (let ((#{inner-var\ 2924}#
-                                             (#{gen-var\ 492}# (quote tmp))))
+                                     (let ((#{inner-var\ 2925}#
+                                             (#{gen-var\ 493}# (quote tmp))))
                                        (values
-                                         #{inner-var\ 2924}#
-                                         (cons (cons (cons #{outer-var\ 2917}#
-                                                           #{inner-var\ 2924}#)
-                                                     (car #{maps\ 2912}#))
-                                               #{outer-maps\ 
2918}#)))))))))))))
-                 (#{gen-mappend\ 2784}#
-                   (lambda (#{e\ 2925}# #{map-env\ 2926}#)
+                                         #{inner-var\ 2925}#
+                                         (cons (cons (cons #{outer-var\ 2918}#
+                                                           #{inner-var\ 2925}#)
+                                                     (car #{maps\ 2913}#))
+                                               #{outer-maps\ 
2919}#)))))))))))))
+                 (#{gen-mappend\ 2785}#
+                   (lambda (#{e\ 2926}# #{map-env\ 2927}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 2786}# #{e\ 2925}# #{map-env\ 2926}#))))
-                 (#{gen-map\ 2786}#
-                   (lambda (#{e\ 2930}# #{map-env\ 2931}#)
+                           (#{gen-map\ 2787}# #{e\ 2926}# #{map-env\ 2927}#))))
+                 (#{gen-map\ 2787}#
+                   (lambda (#{e\ 2931}# #{map-env\ 2932}#)
                      (begin
-                       (let ((#{formals\ 2936}# (map cdr #{map-env\ 2931}#))
-                             (#{actuals\ 2937}#
-                               (map (lambda (#{x\ 2938}#)
-                                      (list (quote ref) (car #{x\ 2938}#)))
-                                    #{map-env\ 2931}#)))
-                         (if (eq? (car #{e\ 2930}#) (quote ref))
-                           (car #{actuals\ 2937}#)
+                       (let ((#{formals\ 2937}# (map cdr #{map-env\ 2932}#))
+                             (#{actuals\ 2938}#
+                               (map (lambda (#{x\ 2939}#)
+                                      (list (quote ref) (car #{x\ 2939}#)))
+                                    #{map-env\ 2932}#)))
+                         (if (eq? (car #{e\ 2931}#) (quote ref))
+                           (car #{actuals\ 2938}#)
                            (if (and-map
-                                 (lambda (#{x\ 2945}#)
-                                   (if (eq? (car #{x\ 2945}#) (quote ref))
-                                     (memq (car (cdr #{x\ 2945}#))
-                                           #{formals\ 2936}#)
+                                 (lambda (#{x\ 2946}#)
+                                   (if (eq? (car #{x\ 2946}#) (quote ref))
+                                     (memq (car (cdr #{x\ 2946}#))
+                                           #{formals\ 2937}#)
                                      #f))
-                                 (cdr #{e\ 2930}#))
+                                 (cdr #{e\ 2931}#))
                              (cons 'map
                                    (cons (list 'primitive
-                                               (car #{e\ 2930}#))
+                                               (car #{e\ 2931}#))
                                          (map (begin
-                                                (let ((#{r\ 2951}#
+                                                (let ((#{r\ 2952}#
                                                         (map cons
-                                                             #{formals\ 2936}#
-                                                             #{actuals\ 
2937}#)))
-                                                  (lambda (#{x\ 2952}#)
-                                                    (cdr (assq (car (cdr #{x\ 
2952}#))
-                                                               #{r\ 2951}#)))))
-                                              (cdr #{e\ 2930}#))))
+                                                             #{formals\ 2937}#
+                                                             #{actuals\ 
2938}#)))
+                                                  (lambda (#{x\ 2953}#)
+                                                    (cdr (assq (car (cdr #{x\ 
2953}#))
+                                                               #{r\ 2952}#)))))
+                                              (cdr #{e\ 2931}#))))
                              (cons 'map
                                    (cons (list 'lambda
-                                               #{formals\ 2936}#
-                                               #{e\ 2930}#)
-                                         #{actuals\ 2937}#))))))))
-                 (#{gen-cons\ 2788}#
-                   (lambda (#{x\ 2956}# #{y\ 2957}#)
+                                               #{formals\ 2937}#
+                                               #{e\ 2931}#)
+                                         #{actuals\ 2938}#))))))))
+                 (#{gen-cons\ 2789}#
+                   (lambda (#{x\ 2957}# #{y\ 2958}#)
                      (begin
-                       (let ((#{atom-key\ 2962}# (car #{y\ 2957}#)))
-                         (if (eqv? #{atom-key\ 2962}# (quote quote))
-                           (if (eq? (car #{x\ 2956}#) (quote quote))
+                       (let ((#{atom-key\ 2963}# (car #{y\ 2958}#)))
+                         (if (eqv? #{atom-key\ 2963}# (quote quote))
+                           (if (eq? (car #{x\ 2957}#) (quote quote))
                              (list 'quote
-                                   (cons (car (cdr #{x\ 2956}#))
-                                         (car (cdr #{y\ 2957}#))))
-                             (if (eq? (car (cdr #{y\ 2957}#)) (quote ()))
-                               (list (quote list) #{x\ 2956}#)
-                               (list (quote cons) #{x\ 2956}# #{y\ 2957}#)))
-                           (if (eqv? #{atom-key\ 2962}# (quote list))
+                                   (cons (car (cdr #{x\ 2957}#))
+                                         (car (cdr #{y\ 2958}#))))
+                             (if (eq? (car (cdr #{y\ 2958}#)) (quote ()))
+                               (list (quote list) #{x\ 2957}#)
+                               (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))
+                           (if (eqv? #{atom-key\ 2963}# (quote list))
                              (cons 'list
-                                   (cons #{x\ 2956}# (cdr #{y\ 2957}#)))
-                             (list (quote cons) #{x\ 2956}# #{y\ 2957}#)))))))
-                 (#{gen-append\ 2790}#
-                   (lambda (#{x\ 2971}# #{y\ 2972}#)
-                     (if (equal? #{y\ 2972}# (quote (quote ())))
-                       #{x\ 2971}#
-                       (list (quote append) #{x\ 2971}# #{y\ 2972}#))))
-                 (#{gen-vector\ 2792}#
-                   (lambda (#{x\ 2976}#)
-                     (if (eq? (car #{x\ 2976}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 2976}#))
-                       (if (eq? (car #{x\ 2976}#) (quote quote))
+                                   (cons #{x\ 2957}# (cdr #{y\ 2958}#)))
+                             (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))))))
+                 (#{gen-append\ 2791}#
+                   (lambda (#{x\ 2972}# #{y\ 2973}#)
+                     (if (equal? #{y\ 2973}# (quote (quote ())))
+                       #{x\ 2972}#
+                       (list (quote append) #{x\ 2972}# #{y\ 2973}#))))
+                 (#{gen-vector\ 2793}#
+                   (lambda (#{x\ 2977}#)
+                     (if (eq? (car #{x\ 2977}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 2977}#))
+                       (if (eq? (car #{x\ 2977}#) (quote quote))
                          (list 'quote
-                               (list->vector (car (cdr #{x\ 2976}#))))
-                         (list (quote list->vector) #{x\ 2976}#)))))
-                 (#{regen\ 2794}#
-                   (lambda (#{x\ 2986}#)
+                               (list->vector (car (cdr #{x\ 2977}#))))
+                         (list (quote list->vector) #{x\ 2977}#)))))
+                 (#{regen\ 2795}#
+                   (lambda (#{x\ 2987}#)
                      (begin
-                       (let ((#{atom-key\ 2990}# (car #{x\ 2986}#)))
-                         (if (eqv? #{atom-key\ 2990}# (quote ref))
-                           (#{build-lexical-reference\ 309}#
+                       (let ((#{atom-key\ 2991}# (car #{x\ 2987}#)))
+                         (if (eqv? #{atom-key\ 2991}# (quote ref))
+                           (#{build-lexical-reference\ 310}#
                              'value
                              #f
-                             (car (cdr #{x\ 2986}#))
-                             (car (cdr #{x\ 2986}#)))
-                           (if (eqv? #{atom-key\ 2990}# (quote primitive))
-                             (#{build-primref\ 327}#
+                             (car (cdr #{x\ 2987}#))
+                             (car (cdr #{x\ 2987}#)))
+                           (if (eqv? #{atom-key\ 2991}# (quote primitive))
+                             (#{build-primref\ 328}#
                                #f
-                               (car (cdr #{x\ 2986}#)))
-                             (if (eqv? #{atom-key\ 2990}# (quote quote))
-                               (#{build-data\ 329}# #f (car (cdr #{x\ 2986}#)))
-                               (if (eqv? #{atom-key\ 2990}# (quote lambda))
-                                 (if (list? (car (cdr #{x\ 2986}#)))
-                                   (#{build-simple-lambda\ 321}#
+                               (car (cdr #{x\ 2987}#)))
+                             (if (eqv? #{atom-key\ 2991}# (quote quote))
+                               (#{build-data\ 330}# #f (car (cdr #{x\ 2987}#)))
+                               (if (eqv? #{atom-key\ 2991}# (quote lambda))
+                                 (if (list? (car (cdr #{x\ 2987}#)))
+                                   (#{build-simple-lambda\ 322}#
                                      #f
-                                     (car (cdr #{x\ 2986}#))
+                                     (car (cdr #{x\ 2987}#))
                                      #f
-                                     (car (cdr #{x\ 2986}#))
+                                     (car (cdr #{x\ 2987}#))
                                      '()
-                                     (#{regen\ 2794}#
-                                       (car (cdr (cdr #{x\ 2986}#)))))
-                                   (error "how did we get here" #{x\ 2986}#))
-                                 (#{build-application\ 303}#
+                                     (#{regen\ 2795}#
+                                       (car (cdr (cdr #{x\ 2987}#)))))
+                                   (error "how did we get here" #{x\ 2987}#))
+                                 (#{build-application\ 304}#
                                    #f
-                                   (#{build-primref\ 327}#
+                                   (#{build-primref\ 328}#
                                      #f
-                                     (car #{x\ 2986}#))
-                                   (map #{regen\ 2794}#
-                                        (cdr #{x\ 2986}#))))))))))))
+                                     (car #{x\ 2987}#))
+                                   (map #{regen\ 2795}#
+                                        (cdr #{x\ 2987}#))))))))))))
                 (begin
-                  (lambda (#{e\ 3002}#
-                           #{r\ 3003}#
-                           #{w\ 3004}#
-                           #{s\ 3005}#
-                           #{mod\ 3006}#)
+                  (lambda (#{e\ 3003}#
+                           #{r\ 3004}#
+                           #{w\ 3005}#
+                           #{s\ 3006}#
+                           #{mod\ 3007}#)
                     (begin
-                      (let ((#{e\ 3013}#
-                              (#{source-wrap\ 450}#
-                                #{e\ 3002}#
-                                #{w\ 3004}#
-                                #{s\ 3005}#
-                                #{mod\ 3006}#)))
-                        (let ((#{tmp\ 3014}# #{e\ 3013}#))
-                          (let ((#{tmp\ 3015}#
+                      (let ((#{e\ 3014}#
+                              (#{source-wrap\ 451}#
+                                #{e\ 3003}#
+                                #{w\ 3005}#
+                                #{s\ 3006}#
+                                #{mod\ 3007}#)))
+                        (let ((#{tmp\ 3015}# #{e\ 3014}#))
+                          (let ((#{tmp\ 3016}#
                                   ($sc-dispatch
-                                    #{tmp\ 3014}#
+                                    #{tmp\ 3015}#
                                     '(_ any))))
-                            (if #{tmp\ 3015}#
+                            (if #{tmp\ 3016}#
                               (@apply
-                                (lambda (#{x\ 3017}#)
+                                (lambda (#{x\ 3018}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{gen-syntax\ 2780}#
-                                        #{e\ 3013}#
-                                        #{x\ 3017}#
-                                        #{r\ 3003}#
+                                      (#{gen-syntax\ 2781}#
+                                        #{e\ 3014}#
+                                        #{x\ 3018}#
+                                        #{r\ 3004}#
                                         '()
-                                        #{ellipsis?\ 480}#
-                                        #{mod\ 3006}#))
-                                    (lambda (#{e\ 3018}# #{maps\ 3019}#)
-                                      (#{regen\ 2794}# #{e\ 3018}#))))
-                                #{tmp\ 3015}#)
-                              (let ((#{_\ 3023}# #{tmp\ 3014}#))
+                                        #{ellipsis?\ 481}#
+                                        #{mod\ 3007}#))
+                                    (lambda (#{e\ 3019}# #{maps\ 3020}#)
+                                      (#{regen\ 2795}# #{e\ 3019}#))))
+                                #{tmp\ 3016}#)
+                              (let ((#{_\ 3024}# #{tmp\ 3015}#))
                                 (syntax-violation
                                   'syntax
                                   "bad `syntax' form"
-                                  #{e\ 3013}#)))))))))))
-            (#{global-extend\ 375}#
+                                  #{e\ 3014}#)))))))))))
+            (#{global-extend\ 376}#
               'core
               'lambda
-              (lambda (#{e\ 3024}#
-                       #{r\ 3025}#
-                       #{w\ 3026}#
-                       #{s\ 3027}#
-                       #{mod\ 3028}#)
-                (let ((#{tmp\ 3034}# #{e\ 3024}#))
-                  (let ((#{tmp\ 3035}#
+              (lambda (#{e\ 3025}#
+                       #{r\ 3026}#
+                       #{w\ 3027}#
+                       #{s\ 3028}#
+                       #{mod\ 3029}#)
+                (let ((#{tmp\ 3035}# #{e\ 3025}#))
+                  (let ((#{tmp\ 3036}#
                           ($sc-dispatch
-                            #{tmp\ 3034}#
+                            #{tmp\ 3035}#
                             '(_ any any . each-any))))
-                    (if #{tmp\ 3035}#
+                    (if #{tmp\ 3036}#
                       (@apply
-                        (lambda (#{args\ 3039}# #{e1\ 3040}# #{e2\ 3041}#)
+                        (lambda (#{args\ 3040}# #{e1\ 3041}# #{e2\ 3042}#)
                           (call-with-values
                             (lambda ()
-                              (#{lambda-formals\ 482}# #{args\ 3039}#))
-                            (lambda (#{req\ 3042}#
-                                     #{opt\ 3043}#
-                                     #{rest\ 3044}#
-                                     #{kw\ 3045}#)
+                              (#{lambda-formals\ 483}# #{args\ 3040}#))
+                            (lambda (#{req\ 3043}#
+                                     #{opt\ 3044}#
+                                     #{rest\ 3045}#
+                                     #{kw\ 3046}#)
                               (letrec*
-                                ((#{lp\ 3053}#
-                                   (lambda (#{body\ 3054}# #{meta\ 3055}#)
-                                     (let ((#{tmp\ 3057}# #{body\ 3054}#))
-                                       (let ((#{tmp\ 3058}#
+                                ((#{lp\ 3054}#
+                                   (lambda (#{body\ 3055}# #{meta\ 3056}#)
+                                     (let ((#{tmp\ 3058}# #{body\ 3055}#))
+                                       (let ((#{tmp\ 3059}#
                                                ($sc-dispatch
-                                                 #{tmp\ 3057}#
+                                                 #{tmp\ 3058}#
                                                  '(any any . each-any))))
-                                         (if (if #{tmp\ 3058}#
+                                         (if (if #{tmp\ 3059}#
                                                (@apply
-                                                 (lambda (#{docstring\ 3062}#
-                                                          #{e1\ 3063}#
-                                                          #{e2\ 3064}#)
+                                                 (lambda (#{docstring\ 3063}#
+                                                          #{e1\ 3064}#
+                                                          #{e2\ 3065}#)
                                                    (string?
                                                      (syntax->datum
-                                                       #{docstring\ 3062}#)))
-                                                 #{tmp\ 3058}#)
+                                                       #{docstring\ 3063}#)))
+                                                 #{tmp\ 3059}#)
                                                #f)
                                            (@apply
-                                             (lambda (#{docstring\ 3068}#
-                                                      #{e1\ 3069}#
-                                                      #{e2\ 3070}#)
-                                               (#{lp\ 3053}#
-                                                 (cons #{e1\ 3069}#
-                                                       #{e2\ 3070}#)
+                                             (lambda (#{docstring\ 3069}#
+                                                      #{e1\ 3070}#
+                                                      #{e2\ 3071}#)
+                                               (#{lp\ 3054}#
+                                                 (cons #{e1\ 3070}#
+                                                       #{e2\ 3071}#)
                                                  (append
-                                                   #{meta\ 3055}#
+                                                   #{meta\ 3056}#
                                                    (list (cons 'documentation
                                                                (syntax->datum
-                                                                 #{docstring\ 
3068}#))))))
-                                             #{tmp\ 3058}#)
-                                           (let ((#{tmp\ 3073}#
+                                                                 #{docstring\ 
3069}#))))))
+                                             #{tmp\ 3059}#)
+                                           (let ((#{tmp\ 3074}#
                                                    ($sc-dispatch
-                                                     #{tmp\ 3057}#
+                                                     #{tmp\ 3058}#
                                                      '(#(vector
                                                          #(each (any . any)))
                                                        any
                                                        .
                                                        each-any))))
-                                             (if #{tmp\ 3073}#
+                                             (if #{tmp\ 3074}#
                                                (@apply
-                                                 (lambda (#{k\ 3078}#
-                                                          #{v\ 3079}#
-                                                          #{e1\ 3080}#
-                                                          #{e2\ 3081}#)
-                                                   (#{lp\ 3053}#
-                                                     (cons #{e1\ 3080}#
-                                                           #{e2\ 3081}#)
+                                                 (lambda (#{k\ 3079}#
+                                                          #{v\ 3080}#
+                                                          #{e1\ 3081}#
+                                                          #{e2\ 3082}#)
+                                                   (#{lp\ 3054}#
+                                                     (cons #{e1\ 3081}#
+                                                           #{e2\ 3082}#)
                                                      (append
-                                                       #{meta\ 3055}#
+                                                       #{meta\ 3056}#
                                                        (syntax->datum
                                                          (map cons
-                                                              #{k\ 3078}#
-                                                              #{v\ 3079}#)))))
-                                                 #{tmp\ 3073}#)
-                                               (let ((#{_\ 3086}#
-                                                       #{tmp\ 3057}#))
-                                                 (#{chi-simple-lambda\ 484}#
-                                                   #{e\ 3024}#
-                                                   #{r\ 3025}#
-                                                   #{w\ 3026}#
-                                                   #{s\ 3027}#
-                                                   #{mod\ 3028}#
-                                                   #{req\ 3042}#
-                                                   #{rest\ 3044}#
-                                                   #{meta\ 3055}#
-                                                   #{body\ 3054}#))))))))))
+                                                              #{k\ 3079}#
+                                                              #{v\ 3080}#)))))
+                                                 #{tmp\ 3074}#)
+                                               (let ((#{_\ 3087}#
+                                                       #{tmp\ 3058}#))
+                                                 (#{chi-simple-lambda\ 485}#
+                                                   #{e\ 3025}#
+                                                   #{r\ 3026}#
+                                                   #{w\ 3027}#
+                                                   #{s\ 3028}#
+                                                   #{mod\ 3029}#
+                                                   #{req\ 3043}#
+                                                   #{rest\ 3045}#
+                                                   #{meta\ 3056}#
+                                                   #{body\ 3055}#))))))))))
                                 (begin
-                                  (#{lp\ 3053}#
-                                    (cons #{e1\ 3040}# #{e2\ 3041}#)
+                                  (#{lp\ 3054}#
+                                    (cons #{e1\ 3041}# #{e2\ 3042}#)
                                     '()))))))
-                        #{tmp\ 3035}#)
-                      (let ((#{_\ 3088}# #{tmp\ 3034}#))
+                        #{tmp\ 3036}#)
+                      (let ((#{_\ 3089}# #{tmp\ 3035}#))
                         (syntax-violation
                           'lambda
                           "bad lambda"
-                          #{e\ 3024}#)))))))
-            (#{global-extend\ 375}#
+                          #{e\ 3025}#)))))))
+            (#{global-extend\ 376}#
               'core
               'lambda*
-              (lambda (#{e\ 3089}#
-                       #{r\ 3090}#
-                       #{w\ 3091}#
-                       #{s\ 3092}#
-                       #{mod\ 3093}#)
-                (let ((#{tmp\ 3099}# #{e\ 3089}#))
-                  (let ((#{tmp\ 3100}#
+              (lambda (#{e\ 3090}#
+                       #{r\ 3091}#
+                       #{w\ 3092}#
+                       #{s\ 3093}#
+                       #{mod\ 3094}#)
+                (let ((#{tmp\ 3100}# #{e\ 3090}#))
+                  (let ((#{tmp\ 3101}#
                           ($sc-dispatch
-                            #{tmp\ 3099}#
+                            #{tmp\ 3100}#
                             '(_ any any . each-any))))
-                    (if #{tmp\ 3100}#
+                    (if #{tmp\ 3101}#
                       (@apply
-                        (lambda (#{args\ 3104}# #{e1\ 3105}# #{e2\ 3106}#)
+                        (lambda (#{args\ 3105}# #{e1\ 3106}# #{e2\ 3107}#)
                           (call-with-values
                             (lambda ()
-                              (#{chi-lambda-case\ 488}#
-                                #{e\ 3089}#
-                                #{r\ 3090}#
-                                #{w\ 3091}#
-                                #{s\ 3092}#
-                                #{mod\ 3093}#
-                                #{lambda*-formals\ 486}#
-                                (list (cons #{args\ 3104}#
-                                            (cons #{e1\ 3105}#
-                                                  #{e2\ 3106}#)))))
-                            (lambda (#{meta\ 3108}# #{lcase\ 3109}#)
-                              (#{build-case-lambda\ 323}#
-                                #{s\ 3092}#
-                                #{meta\ 3108}#
-                                #{lcase\ 3109}#))))
-                        #{tmp\ 3100}#)
-                      (let ((#{_\ 3113}# #{tmp\ 3099}#))
+                              (#{chi-lambda-case\ 489}#
+                                #{e\ 3090}#
+                                #{r\ 3091}#
+                                #{w\ 3092}#
+                                #{s\ 3093}#
+                                #{mod\ 3094}#
+                                #{lambda*-formals\ 487}#
+                                (list (cons #{args\ 3105}#
+                                            (cons #{e1\ 3106}#
+                                                  #{e2\ 3107}#)))))
+                            (lambda (#{meta\ 3109}# #{lcase\ 3110}#)
+                              (#{build-case-lambda\ 324}#
+                                #{s\ 3093}#
+                                #{meta\ 3109}#
+                                #{lcase\ 3110}#))))
+                        #{tmp\ 3101}#)
+                      (let ((#{_\ 3114}# #{tmp\ 3100}#))
                         (syntax-violation
                           'lambda
                           "bad lambda*"
-                          #{e\ 3089}#)))))))
-            (#{global-extend\ 375}#
+                          #{e\ 3090}#)))))))
+            (#{global-extend\ 376}#
               'core
               'case-lambda
-              (lambda (#{e\ 3114}#
-                       #{r\ 3115}#
-                       #{w\ 3116}#
-                       #{s\ 3117}#
-                       #{mod\ 3118}#)
-                (let ((#{tmp\ 3124}# #{e\ 3114}#))
-                  (let ((#{tmp\ 3125}#
+              (lambda (#{e\ 3115}#
+                       #{r\ 3116}#
+                       #{w\ 3117}#
+                       #{s\ 3118}#
+                       #{mod\ 3119}#)
+                (let ((#{tmp\ 3125}# #{e\ 3115}#))
+                  (let ((#{tmp\ 3126}#
                           ($sc-dispatch
-                            #{tmp\ 3124}#
+                            #{tmp\ 3125}#
                             '(_ (any any . each-any)
                                 .
                                 #(each (any any . each-any))))))
-                    (if #{tmp\ 3125}#
+                    (if #{tmp\ 3126}#
                       (@apply
-                        (lambda (#{args\ 3132}#
-                                 #{e1\ 3133}#
-                                 #{e2\ 3134}#
-                                 #{args*\ 3135}#
-                                 #{e1*\ 3136}#
-                                 #{e2*\ 3137}#)
+                        (lambda (#{args\ 3133}#
+                                 #{e1\ 3134}#
+                                 #{e2\ 3135}#
+                                 #{args*\ 3136}#
+                                 #{e1*\ 3137}#
+                                 #{e2*\ 3138}#)
                           (call-with-values
                             (lambda ()
-                              (#{chi-lambda-case\ 488}#
-                                #{e\ 3114}#
-                                #{r\ 3115}#
-                                #{w\ 3116}#
-                                #{s\ 3117}#
-                                #{mod\ 3118}#
-                                #{lambda-formals\ 482}#
-                                (cons (cons #{args\ 3132}#
-                                            (cons #{e1\ 3133}# #{e2\ 3134}#))
-                                      (map (lambda (#{tmp\ 3141}#
-                                                    #{tmp\ 3140}#
-                                                    #{tmp\ 3139}#)
-                                             (cons #{tmp\ 3139}#
-                                                   (cons #{tmp\ 3140}#
-                                                         #{tmp\ 3141}#)))
-                                           #{e2*\ 3137}#
-                                           #{e1*\ 3136}#
-                                           #{args*\ 3135}#))))
-                            (lambda (#{meta\ 3143}# #{lcase\ 3144}#)
-                              (#{build-case-lambda\ 323}#
-                                #{s\ 3117}#
-                                #{meta\ 3143}#
-                                #{lcase\ 3144}#))))
-                        #{tmp\ 3125}#)
-                      (let ((#{_\ 3148}# #{tmp\ 3124}#))
+                              (#{chi-lambda-case\ 489}#
+                                #{e\ 3115}#
+                                #{r\ 3116}#
+                                #{w\ 3117}#
+                                #{s\ 3118}#
+                                #{mod\ 3119}#
+                                #{lambda-formals\ 483}#
+                                (cons (cons #{args\ 3133}#
+                                            (cons #{e1\ 3134}# #{e2\ 3135}#))
+                                      (map (lambda (#{tmp\ 3142}#
+                                                    #{tmp\ 3141}#
+                                                    #{tmp\ 3140}#)
+                                             (cons #{tmp\ 3140}#
+                                                   (cons #{tmp\ 3141}#
+                                                         #{tmp\ 3142}#)))
+                                           #{e2*\ 3138}#
+                                           #{e1*\ 3137}#
+                                           #{args*\ 3136}#))))
+                            (lambda (#{meta\ 3144}# #{lcase\ 3145}#)
+                              (#{build-case-lambda\ 324}#
+                                #{s\ 3118}#
+                                #{meta\ 3144}#
+                                #{lcase\ 3145}#))))
+                        #{tmp\ 3126}#)
+                      (let ((#{_\ 3149}# #{tmp\ 3125}#))
                         (syntax-violation
                           'case-lambda
                           "bad case-lambda"
-                          #{e\ 3114}#)))))))
-            (#{global-extend\ 375}#
+                          #{e\ 3115}#)))))))
+            (#{global-extend\ 376}#
               'core
               'case-lambda*
-              (lambda (#{e\ 3149}#
-                       #{r\ 3150}#
-                       #{w\ 3151}#
-                       #{s\ 3152}#
-                       #{mod\ 3153}#)
-                (let ((#{tmp\ 3159}# #{e\ 3149}#))
-                  (let ((#{tmp\ 3160}#
+              (lambda (#{e\ 3150}#
+                       #{r\ 3151}#
+                       #{w\ 3152}#
+                       #{s\ 3153}#
+                       #{mod\ 3154}#)
+                (let ((#{tmp\ 3160}# #{e\ 3150}#))
+                  (let ((#{tmp\ 3161}#
                           ($sc-dispatch
-                            #{tmp\ 3159}#
+                            #{tmp\ 3160}#
                             '(_ (any any . each-any)
                                 .
                                 #(each (any any . each-any))))))
-                    (if #{tmp\ 3160}#
+                    (if #{tmp\ 3161}#
                       (@apply
-                        (lambda (#{args\ 3167}#
-                                 #{e1\ 3168}#
-                                 #{e2\ 3169}#
-                                 #{args*\ 3170}#
-                                 #{e1*\ 3171}#
-                                 #{e2*\ 3172}#)
+                        (lambda (#{args\ 3168}#
+                                 #{e1\ 3169}#
+                                 #{e2\ 3170}#
+                                 #{args*\ 3171}#
+                                 #{e1*\ 3172}#
+                                 #{e2*\ 3173}#)
                           (call-with-values
                             (lambda ()
-                              (#{chi-lambda-case\ 488}#
-                                #{e\ 3149}#
-                                #{r\ 3150}#
-                                #{w\ 3151}#
-                                #{s\ 3152}#
-                                #{mod\ 3153}#
-                                #{lambda*-formals\ 486}#
-                                (cons (cons #{args\ 3167}#
-                                            (cons #{e1\ 3168}# #{e2\ 3169}#))
-                                      (map (lambda (#{tmp\ 3176}#
-                                                    #{tmp\ 3175}#
-                                                    #{tmp\ 3174}#)
-                                             (cons #{tmp\ 3174}#
-                                                   (cons #{tmp\ 3175}#
-                                                         #{tmp\ 3176}#)))
-                                           #{e2*\ 3172}#
-                                           #{e1*\ 3171}#
-                                           #{args*\ 3170}#))))
-                            (lambda (#{meta\ 3178}# #{lcase\ 3179}#)
-                              (#{build-case-lambda\ 323}#
-                                #{s\ 3152}#
-                                #{meta\ 3178}#
-                                #{lcase\ 3179}#))))
-                        #{tmp\ 3160}#)
-                      (let ((#{_\ 3183}# #{tmp\ 3159}#))
+                              (#{chi-lambda-case\ 489}#
+                                #{e\ 3150}#
+                                #{r\ 3151}#
+                                #{w\ 3152}#
+                                #{s\ 3153}#
+                                #{mod\ 3154}#
+                                #{lambda*-formals\ 487}#
+                                (cons (cons #{args\ 3168}#
+                                            (cons #{e1\ 3169}# #{e2\ 3170}#))
+                                      (map (lambda (#{tmp\ 3177}#
+                                                    #{tmp\ 3176}#
+                                                    #{tmp\ 3175}#)
+                                             (cons #{tmp\ 3175}#
+                                                   (cons #{tmp\ 3176}#
+                                                         #{tmp\ 3177}#)))
+                                           #{e2*\ 3173}#
+                                           #{e1*\ 3172}#
+                                           #{args*\ 3171}#))))
+                            (lambda (#{meta\ 3179}# #{lcase\ 3180}#)
+                              (#{build-case-lambda\ 324}#
+                                #{s\ 3153}#
+                                #{meta\ 3179}#
+                                #{lcase\ 3180}#))))
+                        #{tmp\ 3161}#)
+                      (let ((#{_\ 3184}# #{tmp\ 3160}#))
                         (syntax-violation
                           'case-lambda
                           "bad case-lambda*"
-                          #{e\ 3149}#)))))))
-            (#{global-extend\ 375}#
+                          #{e\ 3150}#)))))))
+            (#{global-extend\ 376}#
               'core
               'let
               (letrec*
-                ((#{chi-let\ 3185}#
-                   (lambda (#{e\ 3186}#
-                            #{r\ 3187}#
-                            #{w\ 3188}#
-                            #{s\ 3189}#
-                            #{mod\ 3190}#
-                            #{constructor\ 3191}#
-                            #{ids\ 3192}#
-                            #{vals\ 3193}#
-                            #{exps\ 3194}#)
-                     (if (not (#{valid-bound-ids?\ 442}# #{ids\ 3192}#))
+                ((#{chi-let\ 3186}#
+                   (lambda (#{e\ 3187}#
+                            #{r\ 3188}#
+                            #{w\ 3189}#
+                            #{s\ 3190}#
+                            #{mod\ 3191}#
+                            #{constructor\ 3192}#
+                            #{ids\ 3193}#
+                            #{vals\ 3194}#
+                            #{exps\ 3195}#)
+                     (if (not (#{valid-bound-ids?\ 443}# #{ids\ 3193}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 3186}#)
+                         #{e\ 3187}#)
                        (begin
-                         (let ((#{labels\ 3206}#
-                                 (#{gen-labels\ 397}# #{ids\ 3192}#))
-                               (#{new-vars\ 3207}#
-                                 (map #{gen-var\ 492}# #{ids\ 3192}#)))
+                         (let ((#{labels\ 3207}#
+                                 (#{gen-labels\ 398}# #{ids\ 3193}#))
+                               (#{new-vars\ 3208}#
+                                 (map #{gen-var\ 493}# #{ids\ 3193}#)))
                            (begin
-                             (let ((#{nw\ 3210}#
-                                     (#{make-binding-wrap\ 426}#
-                                       #{ids\ 3192}#
-                                       #{labels\ 3206}#
-                                       #{w\ 3188}#))
-                                   (#{nr\ 3211}#
-                                     (#{extend-var-env\ 369}#
-                                       #{labels\ 3206}#
-                                       #{new-vars\ 3207}#
-                                       #{r\ 3187}#)))
-                               (#{constructor\ 3191}#
-                                 #{s\ 3189}#
-                                 (map syntax->datum #{ids\ 3192}#)
-                                 #{new-vars\ 3207}#
-                                 (map (lambda (#{x\ 3212}#)
-                                        (#{chi\ 464}#
-                                          #{x\ 3212}#
-                                          #{r\ 3187}#
-                                          #{w\ 3188}#
-                                          #{mod\ 3190}#))
-                                      #{vals\ 3193}#)
-                                 (#{chi-body\ 472}#
-                                   #{exps\ 3194}#
-                                   (#{source-wrap\ 450}#
-                                     #{e\ 3186}#
-                                     #{nw\ 3210}#
-                                     #{s\ 3189}#
-                                     #{mod\ 3190}#)
-                                   #{nr\ 3211}#
-                                   #{nw\ 3210}#
-                                   #{mod\ 3190}#))))))))))
+                             (let ((#{nw\ 3211}#
+                                     (#{make-binding-wrap\ 427}#
+                                       #{ids\ 3193}#
+                                       #{labels\ 3207}#
+                                       #{w\ 3189}#))
+                                   (#{nr\ 3212}#
+                                     (#{extend-var-env\ 370}#
+                                       #{labels\ 3207}#
+                                       #{new-vars\ 3208}#
+                                       #{r\ 3188}#)))
+                               (#{constructor\ 3192}#
+                                 #{s\ 3190}#
+                                 (map syntax->datum #{ids\ 3193}#)
+                                 #{new-vars\ 3208}#
+                                 (map (lambda (#{x\ 3213}#)
+                                        (#{chi\ 465}#
+                                          #{x\ 3213}#
+                                          #{r\ 3188}#
+                                          #{w\ 3189}#
+                                          #{mod\ 3191}#))
+                                      #{vals\ 3194}#)
+                                 (#{chi-body\ 473}#
+                                   #{exps\ 3195}#
+                                   (#{source-wrap\ 451}#
+                                     #{e\ 3187}#
+                                     #{nw\ 3211}#
+                                     #{s\ 3190}#
+                                     #{mod\ 3191}#)
+                                   #{nr\ 3212}#
+                                   #{nw\ 3211}#
+                                   #{mod\ 3191}#))))))))))
                 (begin
-                  (lambda (#{e\ 3214}#
-                           #{r\ 3215}#
-                           #{w\ 3216}#
-                           #{s\ 3217}#
-                           #{mod\ 3218}#)
-                    (let ((#{tmp\ 3224}# #{e\ 3214}#))
-                      (let ((#{tmp\ 3225}#
+                  (lambda (#{e\ 3215}#
+                           #{r\ 3216}#
+                           #{w\ 3217}#
+                           #{s\ 3218}#
+                           #{mod\ 3219}#)
+                    (let ((#{tmp\ 3225}# #{e\ 3215}#))
+                      (let ((#{tmp\ 3226}#
                               ($sc-dispatch
-                                #{tmp\ 3224}#
+                                #{tmp\ 3225}#
                                 '(_ #(each (any any)) any . each-any))))
-                        (if (if #{tmp\ 3225}#
+                        (if (if #{tmp\ 3226}#
                               (@apply
-                                (lambda (#{id\ 3230}#
-                                         #{val\ 3231}#
-                                         #{e1\ 3232}#
-                                         #{e2\ 3233}#)
-                                  (and-map #{id?\ 379}# #{id\ 3230}#))
-                                #{tmp\ 3225}#)
+                                (lambda (#{id\ 3231}#
+                                         #{val\ 3232}#
+                                         #{e1\ 3233}#
+                                         #{e2\ 3234}#)
+                                  (and-map #{id?\ 380}# #{id\ 3231}#))
+                                #{tmp\ 3226}#)
                               #f)
                           (@apply
-                            (lambda (#{id\ 3239}#
-                                     #{val\ 3240}#
-                                     #{e1\ 3241}#
-                                     #{e2\ 3242}#)
-                              (#{chi-let\ 3185}#
-                                #{e\ 3214}#
-                                #{r\ 3215}#
-                                #{w\ 3216}#
-                                #{s\ 3217}#
-                                #{mod\ 3218}#
-                                #{build-let\ 333}#
-                                #{id\ 3239}#
-                                #{val\ 3240}#
-                                (cons #{e1\ 3241}# #{e2\ 3242}#)))
-                            #{tmp\ 3225}#)
-                          (let ((#{tmp\ 3246}#
+                            (lambda (#{id\ 3240}#
+                                     #{val\ 3241}#
+                                     #{e1\ 3242}#
+                                     #{e2\ 3243}#)
+                              (#{chi-let\ 3186}#
+                                #{e\ 3215}#
+                                #{r\ 3216}#
+                                #{w\ 3217}#
+                                #{s\ 3218}#
+                                #{mod\ 3219}#
+                                #{build-let\ 334}#
+                                #{id\ 3240}#
+                                #{val\ 3241}#
+                                (cons #{e1\ 3242}# #{e2\ 3243}#)))
+                            #{tmp\ 3226}#)
+                          (let ((#{tmp\ 3247}#
                                   ($sc-dispatch
-                                    #{tmp\ 3224}#
+                                    #{tmp\ 3225}#
                                     '(_ any
                                         #(each (any any))
                                         any
                                         .
                                         each-any))))
-                            (if (if #{tmp\ 3246}#
+                            (if (if #{tmp\ 3247}#
                                   (@apply
-                                    (lambda (#{f\ 3252}#
-                                             #{id\ 3253}#
-                                             #{val\ 3254}#
-                                             #{e1\ 3255}#
-                                             #{e2\ 3256}#)
-                                      (if (#{id?\ 379}# #{f\ 3252}#)
-                                        (and-map #{id?\ 379}# #{id\ 3253}#)
+                                    (lambda (#{f\ 3253}#
+                                             #{id\ 3254}#
+                                             #{val\ 3255}#
+                                             #{e1\ 3256}#
+                                             #{e2\ 3257}#)
+                                      (if (#{id?\ 380}# #{f\ 3253}#)
+                                        (and-map #{id?\ 380}# #{id\ 3254}#)
                                         #f))
-                                    #{tmp\ 3246}#)
+                                    #{tmp\ 3247}#)
                                   #f)
                               (@apply
-                                (lambda (#{f\ 3265}#
-                                         #{id\ 3266}#
-                                         #{val\ 3267}#
-                                         #{e1\ 3268}#
-                                         #{e2\ 3269}#)
-                                  (#{chi-let\ 3185}#
-                                    #{e\ 3214}#
-                                    #{r\ 3215}#
-                                    #{w\ 3216}#
-                                    #{s\ 3217}#
-                                    #{mod\ 3218}#
-                                    #{build-named-let\ 335}#
-                                    (cons #{f\ 3265}# #{id\ 3266}#)
-                                    #{val\ 3267}#
-                                    (cons #{e1\ 3268}# #{e2\ 3269}#)))
-                                #{tmp\ 3246}#)
-                              (let ((#{_\ 3274}# #{tmp\ 3224}#))
+                                (lambda (#{f\ 3266}#
+                                         #{id\ 3267}#
+                                         #{val\ 3268}#
+                                         #{e1\ 3269}#
+                                         #{e2\ 3270}#)
+                                  (#{chi-let\ 3186}#
+                                    #{e\ 3215}#
+                                    #{r\ 3216}#
+                                    #{w\ 3217}#
+                                    #{s\ 3218}#
+                                    #{mod\ 3219}#
+                                    #{build-named-let\ 336}#
+                                    (cons #{f\ 3266}# #{id\ 3267}#)
+                                    #{val\ 3268}#
+                                    (cons #{e1\ 3269}# #{e2\ 3270}#)))
+                                #{tmp\ 3247}#)
+                              (let ((#{_\ 3275}# #{tmp\ 3225}#))
                                 (syntax-violation
                                   'let
                                   "bad let"
-                                  (#{source-wrap\ 450}#
-                                    #{e\ 3214}#
-                                    #{w\ 3216}#
-                                    #{s\ 3217}#
-                                    #{mod\ 3218}#))))))))))))
-            (#{global-extend\ 375}#
+                                  (#{source-wrap\ 451}#
+                                    #{e\ 3215}#
+                                    #{w\ 3217}#
+                                    #{s\ 3218}#
+                                    #{mod\ 3219}#))))))))))))
+            (#{global-extend\ 376}#
               'core
               'letrec
-              (lambda (#{e\ 3275}#
-                       #{r\ 3276}#
-                       #{w\ 3277}#
-                       #{s\ 3278}#
-                       #{mod\ 3279}#)
-                (let ((#{tmp\ 3285}# #{e\ 3275}#))
-                  (let ((#{tmp\ 3286}#
+              (lambda (#{e\ 3276}#
+                       #{r\ 3277}#
+                       #{w\ 3278}#
+                       #{s\ 3279}#
+                       #{mod\ 3280}#)
+                (let ((#{tmp\ 3286}# #{e\ 3276}#))
+                  (let ((#{tmp\ 3287}#
                           ($sc-dispatch
-                            #{tmp\ 3285}#
+                            #{tmp\ 3286}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if (if #{tmp\ 3286}#
+                    (if (if #{tmp\ 3287}#
                           (@apply
-                            (lambda (#{id\ 3291}#
-                                     #{val\ 3292}#
-                                     #{e1\ 3293}#
-                                     #{e2\ 3294}#)
-                              (and-map #{id?\ 379}# #{id\ 3291}#))
-                            #{tmp\ 3286}#)
+                            (lambda (#{id\ 3292}#
+                                     #{val\ 3293}#
+                                     #{e1\ 3294}#
+                                     #{e2\ 3295}#)
+                              (and-map #{id?\ 380}# #{id\ 3292}#))
+                            #{tmp\ 3287}#)
                           #f)
                       (@apply
-                        (lambda (#{id\ 3300}#
-                                 #{val\ 3301}#
-                                 #{e1\ 3302}#
-                                 #{e2\ 3303}#)
+                        (lambda (#{id\ 3301}#
+                                 #{val\ 3302}#
+                                 #{e1\ 3303}#
+                                 #{e2\ 3304}#)
                           (begin
-                            (let ((#{ids\ 3305}# #{id\ 3300}#))
-                              (if (not (#{valid-bound-ids?\ 442}#
-                                         #{ids\ 3305}#))
+                            (let ((#{ids\ 3306}# #{id\ 3301}#))
+                              (if (not (#{valid-bound-ids?\ 443}#
+                                         #{ids\ 3306}#))
                                 (syntax-violation
                                   'letrec
                                   "duplicate bound variable"
-                                  #{e\ 3275}#)
+                                  #{e\ 3276}#)
                                 (begin
-                                  (let ((#{labels\ 3309}#
-                                          (#{gen-labels\ 397}# #{ids\ 3305}#))
-                                        (#{new-vars\ 3310}#
-                                          (map #{gen-var\ 492}#
-                                               #{ids\ 3305}#)))
+                                  (let ((#{labels\ 3310}#
+                                          (#{gen-labels\ 398}# #{ids\ 3306}#))
+                                        (#{new-vars\ 3311}#
+                                          (map #{gen-var\ 493}#
+                                               #{ids\ 3306}#)))
                                     (begin
-                                      (let ((#{w\ 3313}#
-                                              (#{make-binding-wrap\ 426}#
-                                                #{ids\ 3305}#
-                                                #{labels\ 3309}#
-                                                #{w\ 3277}#))
-                                            (#{r\ 3314}#
-                                              (#{extend-var-env\ 369}#
-                                                #{labels\ 3309}#
-                                                #{new-vars\ 3310}#
-                                                #{r\ 3276}#)))
-                                        (#{build-letrec\ 337}#
-                                          #{s\ 3278}#
+                                      (let ((#{w\ 3314}#
+                                              (#{make-binding-wrap\ 427}#
+                                                #{ids\ 3306}#
+                                                #{labels\ 3310}#
+                                                #{w\ 3278}#))
+                                            (#{r\ 3315}#
+                                              (#{extend-var-env\ 370}#
+                                                #{labels\ 3310}#
+                                                #{new-vars\ 3311}#
+                                                #{r\ 3277}#)))
+                                        (#{build-letrec\ 338}#
+                                          #{s\ 3279}#
                                           #f
-                                          (map syntax->datum #{ids\ 3305}#)
-                                          #{new-vars\ 3310}#
-                                          (map (lambda (#{x\ 3315}#)
-                                                 (#{chi\ 464}#
-                                                   #{x\ 3315}#
-                                                   #{r\ 3314}#
-                                                   #{w\ 3313}#
-                                                   #{mod\ 3279}#))
-                                               #{val\ 3301}#)
-                                          (#{chi-body\ 472}#
-                                            (cons #{e1\ 3302}# #{e2\ 3303}#)
-                                            (#{source-wrap\ 450}#
-                                              #{e\ 3275}#
-                                              #{w\ 3313}#
-                                              #{s\ 3278}#
-                                              #{mod\ 3279}#)
-                                            #{r\ 3314}#
-                                            #{w\ 3313}#
-                                            #{mod\ 3279}#))))))))))
-                        #{tmp\ 3286}#)
-                      (let ((#{_\ 3320}# #{tmp\ 3285}#))
+                                          (map syntax->datum #{ids\ 3306}#)
+                                          #{new-vars\ 3311}#
+                                          (map (lambda (#{x\ 3316}#)
+                                                 (#{chi\ 465}#
+                                                   #{x\ 3316}#
+                                                   #{r\ 3315}#
+                                                   #{w\ 3314}#
+                                                   #{mod\ 3280}#))
+                                               #{val\ 3302}#)
+                                          (#{chi-body\ 473}#
+                                            (cons #{e1\ 3303}# #{e2\ 3304}#)
+                                            (#{source-wrap\ 451}#
+                                              #{e\ 3276}#
+                                              #{w\ 3314}#
+                                              #{s\ 3279}#
+                                              #{mod\ 3280}#)
+                                            #{r\ 3315}#
+                                            #{w\ 3314}#
+                                            #{mod\ 3280}#))))))))))
+                        #{tmp\ 3287}#)
+                      (let ((#{_\ 3321}# #{tmp\ 3286}#))
                         (syntax-violation
                           'letrec
                           "bad letrec"
-                          (#{source-wrap\ 450}#
-                            #{e\ 3275}#
-                            #{w\ 3277}#
-                            #{s\ 3278}#
-                            #{mod\ 3279}#))))))))
-            (#{global-extend\ 375}#
+                          (#{source-wrap\ 451}#
+                            #{e\ 3276}#
+                            #{w\ 3278}#
+                            #{s\ 3279}#
+                            #{mod\ 3280}#))))))))
+            (#{global-extend\ 376}#
               'core
               'letrec*
-              (lambda (#{e\ 3321}#
-                       #{r\ 3322}#
-                       #{w\ 3323}#
-                       #{s\ 3324}#
-                       #{mod\ 3325}#)
-                (let ((#{tmp\ 3331}# #{e\ 3321}#))
-                  (let ((#{tmp\ 3332}#
+              (lambda (#{e\ 3322}#
+                       #{r\ 3323}#
+                       #{w\ 3324}#
+                       #{s\ 3325}#
+                       #{mod\ 3326}#)
+                (let ((#{tmp\ 3332}# #{e\ 3322}#))
+                  (let ((#{tmp\ 3333}#
                           ($sc-dispatch
-                            #{tmp\ 3331}#
+                            #{tmp\ 3332}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if (if #{tmp\ 3332}#
+                    (if (if #{tmp\ 3333}#
                           (@apply
-                            (lambda (#{id\ 3337}#
-                                     #{val\ 3338}#
-                                     #{e1\ 3339}#
-                                     #{e2\ 3340}#)
-                              (and-map #{id?\ 379}# #{id\ 3337}#))
-                            #{tmp\ 3332}#)
+                            (lambda (#{id\ 3338}#
+                                     #{val\ 3339}#
+                                     #{e1\ 3340}#
+                                     #{e2\ 3341}#)
+                              (and-map #{id?\ 380}# #{id\ 3338}#))
+                            #{tmp\ 3333}#)
                           #f)
                       (@apply
-                        (lambda (#{id\ 3346}#
-                                 #{val\ 3347}#
-                                 #{e1\ 3348}#
-                                 #{e2\ 3349}#)
+                        (lambda (#{id\ 3347}#
+                                 #{val\ 3348}#
+                                 #{e1\ 3349}#
+                                 #{e2\ 3350}#)
                           (begin
-                            (let ((#{ids\ 3351}# #{id\ 3346}#))
-                              (if (not (#{valid-bound-ids?\ 442}#
-                                         #{ids\ 3351}#))
+                            (let ((#{ids\ 3352}# #{id\ 3347}#))
+                              (if (not (#{valid-bound-ids?\ 443}#
+                                         #{ids\ 3352}#))
                                 (syntax-violation
                                   'letrec*
                                   "duplicate bound variable"
-                                  #{e\ 3321}#)
+                                  #{e\ 3322}#)
                                 (begin
-                                  (let ((#{labels\ 3355}#
-                                          (#{gen-labels\ 397}# #{ids\ 3351}#))
-                                        (#{new-vars\ 3356}#
-                                          (map #{gen-var\ 492}#
-                                               #{ids\ 3351}#)))
+                                  (let ((#{labels\ 3356}#
+                                          (#{gen-labels\ 398}# #{ids\ 3352}#))
+                                        (#{new-vars\ 3357}#
+                                          (map #{gen-var\ 493}#
+                                               #{ids\ 3352}#)))
                                     (begin
-                                      (let ((#{w\ 3359}#
-                                              (#{make-binding-wrap\ 426}#
-                                                #{ids\ 3351}#
-                                                #{labels\ 3355}#
-                                                #{w\ 3323}#))
-                                            (#{r\ 3360}#
-                                              (#{extend-var-env\ 369}#
-                                                #{labels\ 3355}#
-                                                #{new-vars\ 3356}#
-                                                #{r\ 3322}#)))
-                                        (#{build-letrec\ 337}#
-                                          #{s\ 3324}#
+                                      (let ((#{w\ 3360}#
+                                              (#{make-binding-wrap\ 427}#
+                                                #{ids\ 3352}#
+                                                #{labels\ 3356}#
+                                                #{w\ 3324}#))
+                                            (#{r\ 3361}#
+                                              (#{extend-var-env\ 370}#
+                                                #{labels\ 3356}#
+                                                #{new-vars\ 3357}#
+                                                #{r\ 3323}#)))
+                                        (#{build-letrec\ 338}#
+                                          #{s\ 3325}#
                                           #t
-                                          (map syntax->datum #{ids\ 3351}#)
-                                          #{new-vars\ 3356}#
-                                          (map (lambda (#{x\ 3361}#)
-                                                 (#{chi\ 464}#
-                                                   #{x\ 3361}#
-                                                   #{r\ 3360}#
-                                                   #{w\ 3359}#
-                                                   #{mod\ 3325}#))
-                                               #{val\ 3347}#)
-                                          (#{chi-body\ 472}#
-                                            (cons #{e1\ 3348}# #{e2\ 3349}#)
-                                            (#{source-wrap\ 450}#
-                                              #{e\ 3321}#
-                                              #{w\ 3359}#
-                                              #{s\ 3324}#
-                                              #{mod\ 3325}#)
-                                            #{r\ 3360}#
-                                            #{w\ 3359}#
-                                            #{mod\ 3325}#))))))))))
-                        #{tmp\ 3332}#)
-                      (let ((#{_\ 3366}# #{tmp\ 3331}#))
+                                          (map syntax->datum #{ids\ 3352}#)
+                                          #{new-vars\ 3357}#
+                                          (map (lambda (#{x\ 3362}#)
+                                                 (#{chi\ 465}#
+                                                   #{x\ 3362}#
+                                                   #{r\ 3361}#
+                                                   #{w\ 3360}#
+                                                   #{mod\ 3326}#))
+                                               #{val\ 3348}#)
+                                          (#{chi-body\ 473}#
+                                            (cons #{e1\ 3349}# #{e2\ 3350}#)
+                                            (#{source-wrap\ 451}#
+                                              #{e\ 3322}#
+                                              #{w\ 3360}#
+                                              #{s\ 3325}#
+                                              #{mod\ 3326}#)
+                                            #{r\ 3361}#
+                                            #{w\ 3360}#
+                                            #{mod\ 3326}#))))))))))
+                        #{tmp\ 3333}#)
+                      (let ((#{_\ 3367}# #{tmp\ 3332}#))
                         (syntax-violation
                           'letrec*
                           "bad letrec*"
-                          (#{source-wrap\ 450}#
-                            #{e\ 3321}#
-                            #{w\ 3323}#
-                            #{s\ 3324}#
-                            #{mod\ 3325}#))))))))
-            (#{global-extend\ 375}#
+                          (#{source-wrap\ 451}#
+                            #{e\ 3322}#
+                            #{w\ 3324}#
+                            #{s\ 3325}#
+                            #{mod\ 3326}#))))))))
+            (#{global-extend\ 376}#
               'core
               'set!
-              (lambda (#{e\ 3367}#
-                       #{r\ 3368}#
-                       #{w\ 3369}#
-                       #{s\ 3370}#
-                       #{mod\ 3371}#)
-                (let ((#{tmp\ 3377}# #{e\ 3367}#))
-                  (let ((#{tmp\ 3378}#
-                          ($sc-dispatch #{tmp\ 3377}# (quote (_ any any)))))
-                    (if (if #{tmp\ 3378}#
+              (lambda (#{e\ 3368}#
+                       #{r\ 3369}#
+                       #{w\ 3370}#
+                       #{s\ 3371}#
+                       #{mod\ 3372}#)
+                (let ((#{tmp\ 3378}# #{e\ 3368}#))
+                  (let ((#{tmp\ 3379}#
+                          ($sc-dispatch #{tmp\ 3378}# (quote (_ any any)))))
+                    (if (if #{tmp\ 3379}#
                           (@apply
-                            (lambda (#{id\ 3381}# #{val\ 3382}#)
-                              (#{id?\ 379}# #{id\ 3381}#))
-                            #{tmp\ 3378}#)
+                            (lambda (#{id\ 3382}# #{val\ 3383}#)
+                              (#{id?\ 380}# #{id\ 3382}#))
+                            #{tmp\ 3379}#)
                           #f)
                       (@apply
-                        (lambda (#{id\ 3385}# #{val\ 3386}#)
+                        (lambda (#{id\ 3386}# #{val\ 3387}#)
                           (begin
-                            (let ((#{n\ 3389}#
-                                    (#{id-var-name\ 436}#
-                                      #{id\ 3385}#
-                                      #{w\ 3369}#))
-                                  (#{id-mod\ 3390}#
-                                    (if (#{syntax-object?\ 343}# #{id\ 3385}#)
-                                      (#{syntax-object-module\ 349}#
-                                        #{id\ 3385}#)
-                                      #{mod\ 3371}#)))
+                            (let ((#{n\ 3390}#
+                                    (#{id-var-name\ 437}#
+                                      #{id\ 3386}#
+                                      #{w\ 3370}#))
+                                  (#{id-mod\ 3391}#
+                                    (if (#{syntax-object?\ 344}# #{id\ 3386}#)
+                                      (#{syntax-object-module\ 350}#
+                                        #{id\ 3386}#)
+                                      #{mod\ 3372}#)))
                               (begin
-                                (let ((#{b\ 3392}#
-                                        (#{lookup\ 373}#
-                                          #{n\ 3389}#
-                                          #{r\ 3368}#
-                                          #{id-mod\ 3390}#)))
+                                (let ((#{b\ 3393}#
+                                        (#{lookup\ 374}#
+                                          #{n\ 3390}#
+                                          #{r\ 3369}#
+                                          #{id-mod\ 3391}#)))
                                   (begin
-                                    (let ((#{atom-key\ 3395}#
-                                            (#{binding-type\ 362}#
-                                              #{b\ 3392}#)))
-                                      (if (eqv? #{atom-key\ 3395}#
+                                    (let ((#{atom-key\ 3396}#
+                                            (#{binding-type\ 363}#
+                                              #{b\ 3393}#)))
+                                      (if (eqv? #{atom-key\ 3396}#
                                                 'lexical)
-                                        (#{build-lexical-assignment\ 311}#
-                                          #{s\ 3370}#
-                                          (syntax->datum #{id\ 3385}#)
-                                          (#{binding-value\ 364}# #{b\ 3392}#)
-                                          (#{chi\ 464}#
-                                            #{val\ 3386}#
-                                            #{r\ 3368}#
-                                            #{w\ 3369}#
-                                            #{mod\ 3371}#))
-                                        (if (eqv? #{atom-key\ 3395}#
+                                        (#{build-lexical-assignment\ 312}#
+                                          #{s\ 3371}#
+                                          (syntax->datum #{id\ 3386}#)
+                                          (#{binding-value\ 365}# #{b\ 3393}#)
+                                          (#{chi\ 465}#
+                                            #{val\ 3387}#
+                                            #{r\ 3369}#
+                                            #{w\ 3370}#
+                                            #{mod\ 3372}#))
+                                        (if (eqv? #{atom-key\ 3396}#
                                                   'global)
-                                          (#{build-global-assignment\ 317}#
-                                            #{s\ 3370}#
-                                            #{n\ 3389}#
-                                            (#{chi\ 464}#
-                                              #{val\ 3386}#
-                                              #{r\ 3368}#
-                                              #{w\ 3369}#
-                                              #{mod\ 3371}#)
-                                            #{id-mod\ 3390}#)
-                                          (if (eqv? #{atom-key\ 3395}#
+                                          (#{build-global-assignment\ 318}#
+                                            #{s\ 3371}#
+                                            #{n\ 3390}#
+                                            (#{chi\ 465}#
+                                              #{val\ 3387}#
+                                              #{r\ 3369}#
+                                              #{w\ 3370}#
+                                              #{mod\ 3372}#)
+                                            #{id-mod\ 3391}#)
+                                          (if (eqv? #{atom-key\ 3396}#
                                                     'macro)
                                             (begin
-                                              (let ((#{p\ 3400}#
-                                                      (#{binding-value\ 364}#
-                                                        #{b\ 3392}#)))
+                                              (let ((#{p\ 3401}#
+                                                      (#{binding-value\ 365}#
+                                                        #{b\ 3393}#)))
                                                 (if (procedure-property
-                                                      #{p\ 3400}#
+                                                      #{p\ 3401}#
                                                       'variable-transformer)
-                                                  (#{chi\ 464}#
-                                                    (#{chi-macro\ 470}#
-                                                      #{p\ 3400}#
-                                                      #{e\ 3367}#
-                                                      #{r\ 3368}#
-                                                      #{w\ 3369}#
-                                                      #{s\ 3370}#
+                                                  (#{chi\ 465}#
+                                                    (#{chi-macro\ 471}#
+                                                      #{p\ 3401}#
+                                                      #{e\ 3368}#
+                                                      #{r\ 3369}#
+                                                      #{w\ 3370}#
+                                                      #{s\ 3371}#
                                                       #f
-                                                      #{mod\ 3371}#)
-                                                    #{r\ 3368}#
+                                                      #{mod\ 3372}#)
+                                                    #{r\ 3369}#
                                                     '(())
-                                                    #{mod\ 3371}#)
+                                                    #{mod\ 3372}#)
                                                   (syntax-violation
                                                     'set!
                                                     "not a variable 
transformer"
-                                                    (#{wrap\ 448}#
-                                                      #{e\ 3367}#
-                                                      #{w\ 3369}#
-                                                      #{mod\ 3371}#)
-                                                    (#{wrap\ 448}#
-                                                      #{id\ 3385}#
-                                                      #{w\ 3369}#
-                                                      #{id-mod\ 3390}#)))))
-                                            (if (eqv? #{atom-key\ 3395}#
+                                                    (#{wrap\ 449}#
+                                                      #{e\ 3368}#
+                                                      #{w\ 3370}#
+                                                      #{mod\ 3372}#)
+                                                    (#{wrap\ 449}#
+                                                      #{id\ 3386}#
+                                                      #{w\ 3370}#
+                                                      #{id-mod\ 3391}#)))))
+                                            (if (eqv? #{atom-key\ 3396}#
                                                       'displaced-lexical)
                                               (syntax-violation
                                                 'set!
                                                 "identifier out of context"
-                                                (#{wrap\ 448}#
-                                                  #{id\ 3385}#
-                                                  #{w\ 3369}#
-                                                  #{mod\ 3371}#))
+                                                (#{wrap\ 449}#
+                                                  #{id\ 3386}#
+                                                  #{w\ 3370}#
+                                                  #{mod\ 3372}#))
                                               (syntax-violation
                                                 'set!
                                                 "bad set!"
-                                                (#{source-wrap\ 450}#
-                                                  #{e\ 3367}#
-                                                  #{w\ 3369}#
-                                                  #{s\ 3370}#
-                                                  #{mod\ 3371}#)))))))))))))
-                        #{tmp\ 3378}#)
-                      (let ((#{tmp\ 3404}#
+                                                (#{source-wrap\ 451}#
+                                                  #{e\ 3368}#
+                                                  #{w\ 3370}#
+                                                  #{s\ 3371}#
+                                                  #{mod\ 3372}#)))))))))))))
+                        #{tmp\ 3379}#)
+                      (let ((#{tmp\ 3405}#
                               ($sc-dispatch
-                                #{tmp\ 3377}#
+                                #{tmp\ 3378}#
                                 '(_ (any . each-any) any))))
-                        (if #{tmp\ 3404}#
+                        (if #{tmp\ 3405}#
                           (@apply
-                            (lambda (#{head\ 3408}#
-                                     #{tail\ 3409}#
-                                     #{val\ 3410}#)
+                            (lambda (#{head\ 3409}#
+                                     #{tail\ 3410}#
+                                     #{val\ 3411}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{syntax-type\ 460}#
-                                    #{head\ 3408}#
-                                    #{r\ 3368}#
+                                  (#{syntax-type\ 461}#
+                                    #{head\ 3409}#
+                                    #{r\ 3369}#
                                     '(())
                                     #f
                                     #f
-                                    #{mod\ 3371}#
+                                    #{mod\ 3372}#
                                     #t))
-                                (lambda (#{type\ 3413}#
-                                         #{value\ 3414}#
-                                         #{ee\ 3415}#
-                                         #{ww\ 3416}#
-                                         #{ss\ 3417}#
-                                         #{modmod\ 3418}#)
-                                  (if (eqv? #{type\ 3413}# (quote module-ref))
+                                (lambda (#{type\ 3414}#
+                                         #{value\ 3415}#
+                                         #{ee\ 3416}#
+                                         #{ww\ 3417}#
+                                         #{ss\ 3418}#
+                                         #{modmod\ 3419}#)
+                                  (if (eqv? #{type\ 3414}# (quote module-ref))
                                     (begin
-                                      (let ((#{val\ 3427}#
-                                              (#{chi\ 464}#
-                                                #{val\ 3410}#
-                                                #{r\ 3368}#
-                                                #{w\ 3369}#
-                                                #{mod\ 3371}#)))
+                                      (let ((#{val\ 3428}#
+                                              (#{chi\ 465}#
+                                                #{val\ 3411}#
+                                                #{r\ 3369}#
+                                                #{w\ 3370}#
+                                                #{mod\ 3372}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 3414}#
-                                              (cons #{head\ 3408}#
-                                                    #{tail\ 3409}#)
-                                              #{r\ 3368}#
-                                              #{w\ 3369}#))
-                                          (lambda (#{e\ 3429}#
-                                                   #{r\ 3430}#
-                                                   #{w\ 3431}#
-                                                   #{s*\ 3432}#
-                                                   #{mod\ 3433}#)
-                                            (let ((#{tmp\ 3439}# #{e\ 3429}#))
-                                              (let ((#{tmp\ 3440}#
-                                                      (list #{tmp\ 3439}#)))
-                                                (if (if #{tmp\ 3440}#
+                                            (#{value\ 3415}#
+                                              (cons #{head\ 3409}#
+                                                    #{tail\ 3410}#)
+                                              #{r\ 3369}#
+                                              #{w\ 3370}#))
+                                          (lambda (#{e\ 3430}#
+                                                   #{r\ 3431}#
+                                                   #{w\ 3432}#
+                                                   #{s*\ 3433}#
+                                                   #{mod\ 3434}#)
+                                            (let ((#{tmp\ 3440}# #{e\ 3430}#))
+                                              (let ((#{tmp\ 3441}#
+                                                      (list #{tmp\ 3440}#)))
+                                                (if (if #{tmp\ 3441}#
                                                       (@apply
-                                                        (lambda (#{e\ 3442}#)
-                                                          (#{id?\ 379}#
-                                                            #{e\ 3442}#))
-                                                        #{tmp\ 3440}#)
+                                                        (lambda (#{e\ 3443}#)
+                                                          (#{id?\ 380}#
+                                                            #{e\ 3443}#))
+                                                        #{tmp\ 3441}#)
                                                       #f)
                                                   (@apply
-                                                    (lambda (#{e\ 3444}#)
-                                                      
(#{build-global-assignment\ 317}#
-                                                        #{s\ 3370}#
+                                                    (lambda (#{e\ 3445}#)
+                                                      
(#{build-global-assignment\ 318}#
+                                                        #{s\ 3371}#
                                                         (syntax->datum
-                                                          #{e\ 3444}#)
-                                                        #{val\ 3427}#
-                                                        #{mod\ 3433}#))
-                                                    #{tmp\ 3440}#)
+                                                          #{e\ 3445}#)
+                                                        #{val\ 3428}#
+                                                        #{mod\ 3434}#))
+                                                    #{tmp\ 3441}#)
                                                   (syntax-violation
                                                     #f
                                                     "source expression failed 
to match any pattern"
-                                                    #{tmp\ 3439}#))))))))
-                                    (#{build-application\ 303}#
-                                      #{s\ 3370}#
-                                      (#{chi\ 464}#
+                                                    #{tmp\ 3440}#))))))))
+                                    (#{build-application\ 304}#
+                                      #{s\ 3371}#
+                                      (#{chi\ 465}#
                                         (list '#(syntax-object
                                                  setter
                                                  ((top)
@@ -10281,16 +10281,16 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                    #("i3419"
-                                                      "i3420"
+                                                    #("i3420"
                                                       "i3421"
                                                       "i3422"
                                                       "i3423"
-                                                      "i3424"))
+                                                      "i3424"
+                                                      "i3425"))
                                                   #(ribcage
                                                     #(head tail val)
                                                     #((top) (top) (top))
-                                                    #("i3405" "i3406" "i3407"))
+                                                    #("i3406" "i3407" "i3408"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e r w s mod)
@@ -10299,11 +10299,11 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                    #("i3372"
-                                                      "i3373"
+                                                    #("i3373"
                                                       "i3374"
                                                       "i3375"
-                                                      "i3376"))
+                                                      "i3376"
+                                                      "i3377"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -10579,197 +10579,197 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i493"
-                                                     "i491"
-                                                     "i489"
-                                                     "i487"
-                                                     "i485"
-                                                     "i483"
-                                                     "i481"
-                                                     "i479"
-                                                     "i477"
-                                                     "i475"
-                                                     "i473"
-                                                     "i471"
-                                                     "i469"
-                                                     "i467"
-                                                     "i465"
-                                                     "i463"
-                                                     "i461"
-                                                     "i459"
-                                                     "i457"
-                                                     "i455"
-                                                     "i453"
-                                                     "i451"
-                                                     "i449"
-                                                     "i447"
-                                                     "i445"
-                                                     "i443"
-                                                     "i441"
-                                                     "i439"
-                                                     "i437"
-                                                     "i435"
-                                                     "i433"
-                                                     "i431"
-                                                     "i429"
-                                                     "i427"
-                                                     "i425"
+                                                    ("i494"
+                                                     "i492"
+                                                     "i490"
+                                                     "i488"
+                                                     "i486"
+                                                     "i484"
+                                                     "i482"
+                                                     "i480"
+                                                     "i478"
+                                                     "i476"
+                                                     "i474"
+                                                     "i472"
+                                                     "i470"
+                                                     "i468"
+                                                     "i466"
+                                                     "i464"
+                                                     "i462"
+                                                     "i460"
+                                                     "i458"
+                                                     "i456"
+                                                     "i454"
+                                                     "i452"
+                                                     "i450"
+                                                     "i448"
+                                                     "i446"
+                                                     "i444"
+                                                     "i442"
+                                                     "i440"
+                                                     "i438"
+                                                     "i436"
+                                                     "i434"
+                                                     "i432"
+                                                     "i430"
+                                                     "i428"
+                                                     "i426"
+                                                     "i424"
                                                      "i423"
                                                      "i422"
-                                                     "i421"
+                                                     "i420"
                                                      "i419"
                                                      "i418"
                                                      "i417"
                                                      "i416"
-                                                     "i415"
-                                                     "i413"
-                                                     "i411"
-                                                     "i409"
-                                                     "i407"
-                                                     "i405"
-                                                     "i403"
-                                                     "i401"
-                                                     "i399"
-                                                     "i396"
+                                                     "i414"
+                                                     "i412"
+                                                     "i410"
+                                                     "i408"
+                                                     "i406"
+                                                     "i404"
+                                                     "i402"
+                                                     "i400"
+                                                     "i397"
+                                                     "i395"
                                                      "i394"
                                                      "i393"
                                                      "i392"
                                                      "i391"
                                                      "i390"
-                                                     "i389"
-                                                     "i387"
-                                                     "i385"
-                                                     "i383"
+                                                     "i388"
+                                                     "i386"
+                                                     "i384"
+                                                     "i382"
                                                      "i381"
-                                                     "i380"
-                                                     "i378"
-                                                     "i376"
-                                                     "i374"
-                                                     "i372"
-                                                     "i370"
-                                                     "i368"
+                                                     "i379"
+                                                     "i377"
+                                                     "i375"
+                                                     "i373"
+                                                     "i371"
+                                                     "i369"
+                                                     "i367"
                                                      "i366"
-                                                     "i365"
-                                                     "i363"
+                                                     "i364"
+                                                     "i362"
                                                      "i361"
                                                      "i360"
-                                                     "i359"
+                                                     "i358"
                                                      "i357"
-                                                     "i356"
-                                                     "i354"
-                                                     "i352"
-                                                     "i350"
-                                                     "i348"
-                                                     "i346"
-                                                     "i344"
-                                                     "i342"
-                                                     "i340"
-                                                     "i338"
-                                                     "i336"
-                                                     "i334"
-                                                     "i332"
-                                                     "i330"
-                                                     "i328"
-                                                     "i326"
-                                                     "i324"
-                                                     "i322"
-                                                     "i320"
-                                                     "i318"
-                                                     "i316"
-                                                     "i314"
-                                                     "i312"
-                                                     "i310"
-                                                     "i308"
-                                                     "i306"
-                                                     "i304"
-                                                     "i302"
-                                                     "i300"
-                                                     "i298"
-                                                     "i296"
-                                                     "i294"
+                                                     "i355"
+                                                     "i353"
+                                                     "i351"
+                                                     "i349"
+                                                     "i347"
+                                                     "i345"
+                                                     "i343"
+                                                     "i341"
+                                                     "i339"
+                                                     "i337"
+                                                     "i335"
+                                                     "i333"
+                                                     "i331"
+                                                     "i329"
+                                                     "i327"
+                                                     "i325"
+                                                     "i323"
+                                                     "i321"
+                                                     "i319"
+                                                     "i317"
+                                                     "i315"
+                                                     "i313"
+                                                     "i311"
+                                                     "i309"
+                                                     "i307"
+                                                     "i305"
+                                                     "i303"
+                                                     "i301"
+                                                     "i299"
+                                                     "i297"
+                                                     "i295"
+                                                     "i293"
                                                      "i292"
-                                                     "i291"
-                                                     "i289"
-                                                     "i287"
-                                                     "i285"
-                                                     "i283"
-                                                     "i281"
-                                                     "i279"
-                                                     "i277"
-                                                     "i275"
-                                                     "i273"
-                                                     "i270"
-                                                     "i268"
-                                                     "i266"
-                                                     "i264"
-                                                     "i262"
-                                                     "i260"
-                                                     "i258"
-                                                     "i256"
-                                                     "i254"
-                                                     "i252"
-                                                     "i250"
-                                                     "i248"
-                                                     "i246"
-                                                     "i244"
-                                                     "i242"
-                                                     "i240"
-                                                     "i238"
-                                                     "i236"))
+                                                     "i290"
+                                                     "i288"
+                                                     "i286"
+                                                     "i284"
+                                                     "i282"
+                                                     "i280"
+                                                     "i278"
+                                                     "i276"
+                                                     "i274"
+                                                     "i271"
+                                                     "i269"
+                                                     "i267"
+                                                     "i265"
+                                                     "i263"
+                                                     "i261"
+                                                     "i259"
+                                                     "i257"
+                                                     "i255"
+                                                     "i253"
+                                                     "i251"
+                                                     "i249"
+                                                     "i247"
+                                                     "i245"
+                                                     "i243"
+                                                     "i241"
+                                                     "i239"
+                                                     "i237"))
                                                   #(ribcage
                                                     (define-structure
                                                       
define-expansion-accessors
                                                       
define-expansion-constructors
                                                       and-map*)
                                                     ((top) (top) (top) (top))
-                                                    ("i38" "i37" "i36" "i34")))
+                                                    ("i39" "i38" "i37" "i35")))
                                                  (hygiene guile))
-                                              #{head\ 3408}#)
-                                        #{r\ 3368}#
-                                        #{w\ 3369}#
-                                        #{mod\ 3371}#)
-                                      (map (lambda (#{e\ 3446}#)
-                                             (#{chi\ 464}#
-                                               #{e\ 3446}#
-                                               #{r\ 3368}#
-                                               #{w\ 3369}#
-                                               #{mod\ 3371}#))
+                                              #{head\ 3409}#)
+                                        #{r\ 3369}#
+                                        #{w\ 3370}#
+                                        #{mod\ 3372}#)
+                                      (map (lambda (#{e\ 3447}#)
+                                             (#{chi\ 465}#
+                                               #{e\ 3447}#
+                                               #{r\ 3369}#
+                                               #{w\ 3370}#
+                                               #{mod\ 3372}#))
                                            (append
-                                             #{tail\ 3409}#
-                                             (list #{val\ 3410}#))))))))
-                            #{tmp\ 3404}#)
-                          (let ((#{_\ 3450}# #{tmp\ 3377}#))
+                                             #{tail\ 3410}#
+                                             (list #{val\ 3411}#))))))))
+                            #{tmp\ 3405}#)
+                          (let ((#{_\ 3451}# #{tmp\ 3378}#))
                             (syntax-violation
                               'set!
                               "bad set!"
-                              (#{source-wrap\ 450}#
-                                #{e\ 3367}#
-                                #{w\ 3369}#
-                                #{s\ 3370}#
-                                #{mod\ 3371}#))))))))))
-            (#{global-extend\ 375}#
+                              (#{source-wrap\ 451}#
+                                #{e\ 3368}#
+                                #{w\ 3370}#
+                                #{s\ 3371}#
+                                #{mod\ 3372}#))))))))))
+            (#{global-extend\ 376}#
               'module-ref
               '@
-              (lambda (#{e\ 3451}# #{r\ 3452}# #{w\ 3453}#)
-                (let ((#{tmp\ 3457}# #{e\ 3451}#))
-                  (let ((#{tmp\ 3458}#
+              (lambda (#{e\ 3452}# #{r\ 3453}# #{w\ 3454}#)
+                (let ((#{tmp\ 3458}# #{e\ 3452}#))
+                  (let ((#{tmp\ 3459}#
                           ($sc-dispatch
-                            #{tmp\ 3457}#
+                            #{tmp\ 3458}#
                             '(_ each-any any))))
-                    (if (if #{tmp\ 3458}#
+                    (if (if #{tmp\ 3459}#
                           (@apply
-                            (lambda (#{mod\ 3461}# #{id\ 3462}#)
-                              (if (and-map #{id?\ 379}# #{mod\ 3461}#)
-                                (#{id?\ 379}# #{id\ 3462}#)
+                            (lambda (#{mod\ 3462}# #{id\ 3463}#)
+                              (if (and-map #{id?\ 380}# #{mod\ 3462}#)
+                                (#{id?\ 380}# #{id\ 3463}#)
                                 #f))
-                            #{tmp\ 3458}#)
+                            #{tmp\ 3459}#)
                           #f)
                       (@apply
-                        (lambda (#{mod\ 3468}# #{id\ 3469}#)
+                        (lambda (#{mod\ 3469}# #{id\ 3470}#)
                           (values
-                            (syntax->datum #{id\ 3469}#)
-                            #{r\ 3452}#
-                            #{w\ 3453}#
+                            (syntax->datum #{id\ 3470}#)
+                            #{r\ 3453}#
+                            #{w\ 3454}#
                             #f
                             (syntax->datum
                               (cons '#(syntax-object
@@ -10778,12 +10778,12 @@
                                         #(ribcage
                                           #(mod id)
                                           #((top) (top))
-                                          #("i3466" "i3467"))
+                                          #("i3467" "i3468"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(e r w)
                                           #((top) (top) (top))
-                                          #("i3454" "i3455" "i3456"))
+                                          #("i3455" "i3456" "i3457"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
@@ -11059,222 +11059,222 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("i493"
-                                           "i491"
-                                           "i489"
-                                           "i487"
-                                           "i485"
-                                           "i483"
-                                           "i481"
-                                           "i479"
-                                           "i477"
-                                           "i475"
-                                           "i473"
-                                           "i471"
-                                           "i469"
-                                           "i467"
-                                           "i465"
-                                           "i463"
-                                           "i461"
-                                           "i459"
-                                           "i457"
-                                           "i455"
-                                           "i453"
-                                           "i451"
-                                           "i449"
-                                           "i447"
-                                           "i445"
-                                           "i443"
-                                           "i441"
-                                           "i439"
-                                           "i437"
-                                           "i435"
-                                           "i433"
-                                           "i431"
-                                           "i429"
-                                           "i427"
-                                           "i425"
+                                          ("i494"
+                                           "i492"
+                                           "i490"
+                                           "i488"
+                                           "i486"
+                                           "i484"
+                                           "i482"
+                                           "i480"
+                                           "i478"
+                                           "i476"
+                                           "i474"
+                                           "i472"
+                                           "i470"
+                                           "i468"
+                                           "i466"
+                                           "i464"
+                                           "i462"
+                                           "i460"
+                                           "i458"
+                                           "i456"
+                                           "i454"
+                                           "i452"
+                                           "i450"
+                                           "i448"
+                                           "i446"
+                                           "i444"
+                                           "i442"
+                                           "i440"
+                                           "i438"
+                                           "i436"
+                                           "i434"
+                                           "i432"
+                                           "i430"
+                                           "i428"
+                                           "i426"
+                                           "i424"
                                            "i423"
                                            "i422"
-                                           "i421"
+                                           "i420"
                                            "i419"
                                            "i418"
                                            "i417"
                                            "i416"
-                                           "i415"
-                                           "i413"
-                                           "i411"
-                                           "i409"
-                                           "i407"
-                                           "i405"
-                                           "i403"
-                                           "i401"
-                                           "i399"
-                                           "i396"
+                                           "i414"
+                                           "i412"
+                                           "i410"
+                                           "i408"
+                                           "i406"
+                                           "i404"
+                                           "i402"
+                                           "i400"
+                                           "i397"
+                                           "i395"
                                            "i394"
                                            "i393"
                                            "i392"
                                            "i391"
                                            "i390"
-                                           "i389"
-                                           "i387"
-                                           "i385"
-                                           "i383"
+                                           "i388"
+                                           "i386"
+                                           "i384"
+                                           "i382"
                                            "i381"
-                                           "i380"
-                                           "i378"
-                                           "i376"
-                                           "i374"
-                                           "i372"
-                                           "i370"
-                                           "i368"
+                                           "i379"
+                                           "i377"
+                                           "i375"
+                                           "i373"
+                                           "i371"
+                                           "i369"
+                                           "i367"
                                            "i366"
-                                           "i365"
-                                           "i363"
+                                           "i364"
+                                           "i362"
                                            "i361"
                                            "i360"
-                                           "i359"
+                                           "i358"
                                            "i357"
-                                           "i356"
-                                           "i354"
-                                           "i352"
-                                           "i350"
-                                           "i348"
-                                           "i346"
-                                           "i344"
-                                           "i342"
-                                           "i340"
-                                           "i338"
-                                           "i336"
-                                           "i334"
-                                           "i332"
-                                           "i330"
-                                           "i328"
-                                           "i326"
-                                           "i324"
-                                           "i322"
-                                           "i320"
-                                           "i318"
-                                           "i316"
-                                           "i314"
-                                           "i312"
-                                           "i310"
-                                           "i308"
-                                           "i306"
-                                           "i304"
-                                           "i302"
-                                           "i300"
-                                           "i298"
-                                           "i296"
-                                           "i294"
+                                           "i355"
+                                           "i353"
+                                           "i351"
+                                           "i349"
+                                           "i347"
+                                           "i345"
+                                           "i343"
+                                           "i341"
+                                           "i339"
+                                           "i337"
+                                           "i335"
+                                           "i333"
+                                           "i331"
+                                           "i329"
+                                           "i327"
+                                           "i325"
+                                           "i323"
+                                           "i321"
+                                           "i319"
+                                           "i317"
+                                           "i315"
+                                           "i313"
+                                           "i311"
+                                           "i309"
+                                           "i307"
+                                           "i305"
+                                           "i303"
+                                           "i301"
+                                           "i299"
+                                           "i297"
+                                           "i295"
+                                           "i293"
                                            "i292"
-                                           "i291"
-                                           "i289"
-                                           "i287"
-                                           "i285"
-                                           "i283"
-                                           "i281"
-                                           "i279"
-                                           "i277"
-                                           "i275"
-                                           "i273"
-                                           "i270"
-                                           "i268"
-                                           "i266"
-                                           "i264"
-                                           "i262"
-                                           "i260"
-                                           "i258"
-                                           "i256"
-                                           "i254"
-                                           "i252"
-                                           "i250"
-                                           "i248"
-                                           "i246"
-                                           "i244"
-                                           "i242"
-                                           "i240"
-                                           "i238"
-                                           "i236"))
+                                           "i290"
+                                           "i288"
+                                           "i286"
+                                           "i284"
+                                           "i282"
+                                           "i280"
+                                           "i278"
+                                           "i276"
+                                           "i274"
+                                           "i271"
+                                           "i269"
+                                           "i267"
+                                           "i265"
+                                           "i263"
+                                           "i261"
+                                           "i259"
+                                           "i257"
+                                           "i255"
+                                           "i253"
+                                           "i251"
+                                           "i249"
+                                           "i247"
+                                           "i245"
+                                           "i243"
+                                           "i241"
+                                           "i239"
+                                           "i237"))
                                         #(ribcage
                                           (define-structure
                                             define-expansion-accessors
                                             define-expansion-constructors
                                             and-map*)
                                           ((top) (top) (top) (top))
-                                          ("i38" "i37" "i36" "i34")))
+                                          ("i39" "i38" "i37" "i35")))
                                        (hygiene guile))
-                                    #{mod\ 3468}#))))
-                        #{tmp\ 3458}#)
+                                    #{mod\ 3469}#))))
+                        #{tmp\ 3459}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 3457}#))))))
-            (#{global-extend\ 375}#
+                        #{tmp\ 3458}#))))))
+            (#{global-extend\ 376}#
               'module-ref
               '@@
-              (lambda (#{e\ 3471}# #{r\ 3472}# #{w\ 3473}#)
+              (lambda (#{e\ 3472}# #{r\ 3473}# #{w\ 3474}#)
                 (letrec*
-                  ((#{remodulate\ 3478}#
-                     (lambda (#{x\ 3479}# #{mod\ 3480}#)
-                       (if (pair? #{x\ 3479}#)
-                         (cons (#{remodulate\ 3478}#
-                                 (car #{x\ 3479}#)
-                                 #{mod\ 3480}#)
-                               (#{remodulate\ 3478}#
-                                 (cdr #{x\ 3479}#)
-                                 #{mod\ 3480}#))
-                         (if (#{syntax-object?\ 343}# #{x\ 3479}#)
-                           (#{make-syntax-object\ 341}#
-                             (#{remodulate\ 3478}#
-                               (#{syntax-object-expression\ 345}# #{x\ 3479}#)
-                               #{mod\ 3480}#)
-                             (#{syntax-object-wrap\ 347}# #{x\ 3479}#)
-                             #{mod\ 3480}#)
-                           (if (vector? #{x\ 3479}#)
+                  ((#{remodulate\ 3479}#
+                     (lambda (#{x\ 3480}# #{mod\ 3481}#)
+                       (if (pair? #{x\ 3480}#)
+                         (cons (#{remodulate\ 3479}#
+                                 (car #{x\ 3480}#)
+                                 #{mod\ 3481}#)
+                               (#{remodulate\ 3479}#
+                                 (cdr #{x\ 3480}#)
+                                 #{mod\ 3481}#))
+                         (if (#{syntax-object?\ 344}# #{x\ 3480}#)
+                           (#{make-syntax-object\ 342}#
+                             (#{remodulate\ 3479}#
+                               (#{syntax-object-expression\ 346}# #{x\ 3480}#)
+                               #{mod\ 3481}#)
+                             (#{syntax-object-wrap\ 348}# #{x\ 3480}#)
+                             #{mod\ 3481}#)
+                           (if (vector? #{x\ 3480}#)
                              (begin
-                               (let ((#{n\ 3491}# (vector-length #{x\ 3479}#)))
+                               (let ((#{n\ 3492}# (vector-length #{x\ 3480}#)))
                                  (begin
-                                   (let ((#{v\ 3493}#
-                                           (make-vector #{n\ 3491}#)))
+                                   (let ((#{v\ 3494}#
+                                           (make-vector #{n\ 3492}#)))
                                      (letrec*
-                                       ((#{loop\ 3496}#
-                                          (lambda (#{i\ 3497}#)
-                                            (if (#{fx=\ 284}#
-                                                  #{i\ 3497}#
-                                                  #{n\ 3491}#)
-                                              (begin (if #f #f) #{v\ 3493}#)
+                                       ((#{loop\ 3497}#
+                                          (lambda (#{i\ 3498}#)
+                                            (if (#{fx=\ 285}#
+                                                  #{i\ 3498}#
+                                                  #{n\ 3492}#)
+                                              (begin (if #f #f) #{v\ 3494}#)
                                               (begin
                                                 (vector-set!
-                                                  #{v\ 3493}#
-                                                  #{i\ 3497}#
-                                                  (#{remodulate\ 3478}#
+                                                  #{v\ 3494}#
+                                                  #{i\ 3498}#
+                                                  (#{remodulate\ 3479}#
                                                     (vector-ref
-                                                      #{x\ 3479}#
-                                                      #{i\ 3497}#)
-                                                    #{mod\ 3480}#))
-                                                (#{loop\ 3496}#
-                                                  (#{fx+\ 280}#
-                                                    #{i\ 3497}#
+                                                      #{x\ 3480}#
+                                                      #{i\ 3498}#)
+                                                    #{mod\ 3481}#))
+                                                (#{loop\ 3497}#
+                                                  (#{fx+\ 281}#
+                                                    #{i\ 3498}#
                                                     1)))))))
-                                       (begin (#{loop\ 3496}# 0)))))))
-                             #{x\ 3479}#))))))
+                                       (begin (#{loop\ 3497}# 0)))))))
+                             #{x\ 3480}#))))))
                   (begin
-                    (let ((#{tmp\ 3501}# #{e\ 3471}#))
-                      (let ((#{tmp\ 3502}#
+                    (let ((#{tmp\ 3502}# #{e\ 3472}#))
+                      (let ((#{tmp\ 3503}#
                               ($sc-dispatch
-                                #{tmp\ 3501}#
+                                #{tmp\ 3502}#
                                 '(_ each-any any))))
-                        (if (if #{tmp\ 3502}#
+                        (if (if #{tmp\ 3503}#
                               (@apply
-                                (lambda (#{mod\ 3505}# #{exp\ 3506}#)
-                                  (and-map #{id?\ 379}# #{mod\ 3505}#))
-                                #{tmp\ 3502}#)
+                                (lambda (#{mod\ 3506}# #{exp\ 3507}#)
+                                  (and-map #{id?\ 380}# #{mod\ 3506}#))
+                                #{tmp\ 3503}#)
                               #f)
                           (@apply
-                            (lambda (#{mod\ 3510}# #{exp\ 3511}#)
+                            (lambda (#{mod\ 3511}# #{exp\ 3512}#)
                               (begin
-                                (let ((#{mod\ 3513}#
+                                (let ((#{mod\ 3514}#
                                         (syntax->datum
                                           (cons '#(syntax-object
                                                    private
@@ -11282,17 +11282,17 @@
                                                     #(ribcage
                                                       #(mod exp)
                                                       #((top) (top))
-                                                      #("i3508" "i3509"))
+                                                      #("i3509" "i3510"))
                                                     #(ribcage
                                                       (remodulate)
                                                       ((top))
-                                                      ("i3477"))
+                                                      ("i3478"))
                                                     #(ribcage
                                                       #(e r w)
                                                       #((top) (top) (top))
-                                                      #("i3474"
-                                                        "i3475"
-                                                        "i3476"))
+                                                      #("i3475"
+                                                        "i3476"
+                                                        "i3477"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -11568,332 +11568,332 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i493"
-                                                       "i491"
-                                                       "i489"
-                                                       "i487"
-                                                       "i485"
-                                                       "i483"
-                                                       "i481"
-                                                       "i479"
-                                                       "i477"
-                                                       "i475"
-                                                       "i473"
-                                                       "i471"
-                                                       "i469"
-                                                       "i467"
-                                                       "i465"
-                                                       "i463"
-                                                       "i461"
-                                                       "i459"
-                                                       "i457"
-                                                       "i455"
-                                                       "i453"
-                                                       "i451"
-                                                       "i449"
-                                                       "i447"
-                                                       "i445"
-                                                       "i443"
-                                                       "i441"
-                                                       "i439"
-                                                       "i437"
-                                                       "i435"
-                                                       "i433"
-                                                       "i431"
-                                                       "i429"
-                                                       "i427"
-                                                       "i425"
+                                                      ("i494"
+                                                       "i492"
+                                                       "i490"
+                                                       "i488"
+                                                       "i486"
+                                                       "i484"
+                                                       "i482"
+                                                       "i480"
+                                                       "i478"
+                                                       "i476"
+                                                       "i474"
+                                                       "i472"
+                                                       "i470"
+                                                       "i468"
+                                                       "i466"
+                                                       "i464"
+                                                       "i462"
+                                                       "i460"
+                                                       "i458"
+                                                       "i456"
+                                                       "i454"
+                                                       "i452"
+                                                       "i450"
+                                                       "i448"
+                                                       "i446"
+                                                       "i444"
+                                                       "i442"
+                                                       "i440"
+                                                       "i438"
+                                                       "i436"
+                                                       "i434"
+                                                       "i432"
+                                                       "i430"
+                                                       "i428"
+                                                       "i426"
+                                                       "i424"
                                                        "i423"
                                                        "i422"
-                                                       "i421"
+                                                       "i420"
                                                        "i419"
                                                        "i418"
                                                        "i417"
                                                        "i416"
-                                                       "i415"
-                                                       "i413"
-                                                       "i411"
-                                                       "i409"
-                                                       "i407"
-                                                       "i405"
-                                                       "i403"
-                                                       "i401"
-                                                       "i399"
-                                                       "i396"
+                                                       "i414"
+                                                       "i412"
+                                                       "i410"
+                                                       "i408"
+                                                       "i406"
+                                                       "i404"
+                                                       "i402"
+                                                       "i400"
+                                                       "i397"
+                                                       "i395"
                                                        "i394"
                                                        "i393"
                                                        "i392"
                                                        "i391"
                                                        "i390"
-                                                       "i389"
-                                                       "i387"
-                                                       "i385"
-                                                       "i383"
+                                                       "i388"
+                                                       "i386"
+                                                       "i384"
+                                                       "i382"
                                                        "i381"
-                                                       "i380"
-                                                       "i378"
-                                                       "i376"
-                                                       "i374"
-                                                       "i372"
-                                                       "i370"
-                                                       "i368"
+                                                       "i379"
+                                                       "i377"
+                                                       "i375"
+                                                       "i373"
+                                                       "i371"
+                                                       "i369"
+                                                       "i367"
                                                        "i366"
-                                                       "i365"
-                                                       "i363"
+                                                       "i364"
+                                                       "i362"
                                                        "i361"
                                                        "i360"
-                                                       "i359"
+                                                       "i358"
                                                        "i357"
-                                                       "i356"
-                                                       "i354"
-                                                       "i352"
-                                                       "i350"
-                                                       "i348"
-                                                       "i346"
-                                                       "i344"
-                                                       "i342"
-                                                       "i340"
-                                                       "i338"
-                                                       "i336"
-                                                       "i334"
-                                                       "i332"
-                                                       "i330"
-                                                       "i328"
-                                                       "i326"
-                                                       "i324"
-                                                       "i322"
-                                                       "i320"
-                                                       "i318"
-                                                       "i316"
-                                                       "i314"
-                                                       "i312"
-                                                       "i310"
-                                                       "i308"
-                                                       "i306"
-                                                       "i304"
-                                                       "i302"
-                                                       "i300"
-                                                       "i298"
-                                                       "i296"
-                                                       "i294"
+                                                       "i355"
+                                                       "i353"
+                                                       "i351"
+                                                       "i349"
+                                                       "i347"
+                                                       "i345"
+                                                       "i343"
+                                                       "i341"
+                                                       "i339"
+                                                       "i337"
+                                                       "i335"
+                                                       "i333"
+                                                       "i331"
+                                                       "i329"
+                                                       "i327"
+                                                       "i325"
+                                                       "i323"
+                                                       "i321"
+                                                       "i319"
+                                                       "i317"
+                                                       "i315"
+                                                       "i313"
+                                                       "i311"
+                                                       "i309"
+                                                       "i307"
+                                                       "i305"
+                                                       "i303"
+                                                       "i301"
+                                                       "i299"
+                                                       "i297"
+                                                       "i295"
+                                                       "i293"
                                                        "i292"
-                                                       "i291"
-                                                       "i289"
-                                                       "i287"
-                                                       "i285"
-                                                       "i283"
-                                                       "i281"
-                                                       "i279"
-                                                       "i277"
-                                                       "i275"
-                                                       "i273"
-                                                       "i270"
-                                                       "i268"
-                                                       "i266"
-                                                       "i264"
-                                                       "i262"
-                                                       "i260"
-                                                       "i258"
-                                                       "i256"
-                                                       "i254"
-                                                       "i252"
-                                                       "i250"
-                                                       "i248"
-                                                       "i246"
-                                                       "i244"
-                                                       "i242"
-                                                       "i240"
-                                                       "i238"
-                                                       "i236"))
+                                                       "i290"
+                                                       "i288"
+                                                       "i286"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i278"
+                                                       "i276"
+                                                       "i274"
+                                                       "i271"
+                                                       "i269"
+                                                       "i267"
+                                                       "i265"
+                                                       "i263"
+                                                       "i261"
+                                                       "i259"
+                                                       "i257"
+                                                       "i255"
+                                                       "i253"
+                                                       "i251"
+                                                       "i249"
+                                                       "i247"
+                                                       "i245"
+                                                       "i243"
+                                                       "i241"
+                                                       "i239"
+                                                       "i237"))
                                                     #(ribcage
                                                       (define-structure
                                                         
define-expansion-accessors
                                                         
define-expansion-constructors
                                                         and-map*)
                                                       ((top) (top) (top) (top))
-                                                      ("i38"
+                                                      ("i39"
+                                                       "i38"
                                                        "i37"
-                                                       "i36"
-                                                       "i34")))
+                                                       "i35")))
                                                    (hygiene guile))
-                                                #{mod\ 3510}#))))
+                                                #{mod\ 3511}#))))
                                   (values
-                                    (#{remodulate\ 3478}#
-                                      #{exp\ 3511}#
-                                      #{mod\ 3513}#)
-                                    #{r\ 3472}#
-                                    #{w\ 3473}#
-                                    (#{source-annotation\ 358}# #{exp\ 3511}#)
-                                    #{mod\ 3513}#))))
-                            #{tmp\ 3502}#)
+                                    (#{remodulate\ 3479}#
+                                      #{exp\ 3512}#
+                                      #{mod\ 3514}#)
+                                    #{r\ 3473}#
+                                    #{w\ 3474}#
+                                    (#{source-annotation\ 359}# #{exp\ 3512}#)
+                                    #{mod\ 3514}#))))
+                            #{tmp\ 3503}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{tmp\ 3501}#))))))))
-            (#{global-extend\ 375}#
+                            #{tmp\ 3502}#))))))))
+            (#{global-extend\ 376}#
               'core
               'if
-              (lambda (#{e\ 3515}#
-                       #{r\ 3516}#
-                       #{w\ 3517}#
-                       #{s\ 3518}#
-                       #{mod\ 3519}#)
-                (let ((#{tmp\ 3525}# #{e\ 3515}#))
-                  (let ((#{tmp\ 3526}#
-                          ($sc-dispatch #{tmp\ 3525}# (quote (_ any any)))))
-                    (if #{tmp\ 3526}#
+              (lambda (#{e\ 3516}#
+                       #{r\ 3517}#
+                       #{w\ 3518}#
+                       #{s\ 3519}#
+                       #{mod\ 3520}#)
+                (let ((#{tmp\ 3526}# #{e\ 3516}#))
+                  (let ((#{tmp\ 3527}#
+                          ($sc-dispatch #{tmp\ 3526}# (quote (_ any any)))))
+                    (if #{tmp\ 3527}#
                       (@apply
-                        (lambda (#{test\ 3529}# #{then\ 3530}#)
-                          (#{build-conditional\ 305}#
-                            #{s\ 3518}#
-                            (#{chi\ 464}#
-                              #{test\ 3529}#
-                              #{r\ 3516}#
-                              #{w\ 3517}#
-                              #{mod\ 3519}#)
-                            (#{chi\ 464}#
-                              #{then\ 3530}#
-                              #{r\ 3516}#
-                              #{w\ 3517}#
-                              #{mod\ 3519}#)
-                            (#{build-void\ 301}# #f)))
-                        #{tmp\ 3526}#)
-                      (let ((#{tmp\ 3532}#
+                        (lambda (#{test\ 3530}# #{then\ 3531}#)
+                          (#{build-conditional\ 306}#
+                            #{s\ 3519}#
+                            (#{chi\ 465}#
+                              #{test\ 3530}#
+                              #{r\ 3517}#
+                              #{w\ 3518}#
+                              #{mod\ 3520}#)
+                            (#{chi\ 465}#
+                              #{then\ 3531}#
+                              #{r\ 3517}#
+                              #{w\ 3518}#
+                              #{mod\ 3520}#)
+                            (#{build-void\ 302}# #f)))
+                        #{tmp\ 3527}#)
+                      (let ((#{tmp\ 3533}#
                               ($sc-dispatch
-                                #{tmp\ 3525}#
+                                #{tmp\ 3526}#
                                 '(_ any any any))))
-                        (if #{tmp\ 3532}#
+                        (if #{tmp\ 3533}#
                           (@apply
-                            (lambda (#{test\ 3536}#
-                                     #{then\ 3537}#
-                                     #{else\ 3538}#)
-                              (#{build-conditional\ 305}#
-                                #{s\ 3518}#
-                                (#{chi\ 464}#
-                                  #{test\ 3536}#
-                                  #{r\ 3516}#
-                                  #{w\ 3517}#
-                                  #{mod\ 3519}#)
-                                (#{chi\ 464}#
-                                  #{then\ 3537}#
-                                  #{r\ 3516}#
-                                  #{w\ 3517}#
-                                  #{mod\ 3519}#)
-                                (#{chi\ 464}#
-                                  #{else\ 3538}#
-                                  #{r\ 3516}#
-                                  #{w\ 3517}#
-                                  #{mod\ 3519}#)))
-                            #{tmp\ 3532}#)
+                            (lambda (#{test\ 3537}#
+                                     #{then\ 3538}#
+                                     #{else\ 3539}#)
+                              (#{build-conditional\ 306}#
+                                #{s\ 3519}#
+                                (#{chi\ 465}#
+                                  #{test\ 3537}#
+                                  #{r\ 3517}#
+                                  #{w\ 3518}#
+                                  #{mod\ 3520}#)
+                                (#{chi\ 465}#
+                                  #{then\ 3538}#
+                                  #{r\ 3517}#
+                                  #{w\ 3518}#
+                                  #{mod\ 3520}#)
+                                (#{chi\ 465}#
+                                  #{else\ 3539}#
+                                  #{r\ 3517}#
+                                  #{w\ 3518}#
+                                  #{mod\ 3520}#)))
+                            #{tmp\ 3533}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{tmp\ 3525}#))))))))
-            (#{global-extend\ 375}#
+                            #{tmp\ 3526}#))))))))
+            (#{global-extend\ 376}#
               'core
               'with-fluids
-              (lambda (#{e\ 3539}#
-                       #{r\ 3540}#
-                       #{w\ 3541}#
-                       #{s\ 3542}#
-                       #{mod\ 3543}#)
-                (let ((#{tmp\ 3549}# #{e\ 3539}#))
-                  (let ((#{tmp\ 3550}#
+              (lambda (#{e\ 3540}#
+                       #{r\ 3541}#
+                       #{w\ 3542}#
+                       #{s\ 3543}#
+                       #{mod\ 3544}#)
+                (let ((#{tmp\ 3550}# #{e\ 3540}#))
+                  (let ((#{tmp\ 3551}#
                           ($sc-dispatch
-                            #{tmp\ 3549}#
+                            #{tmp\ 3550}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if #{tmp\ 3550}#
+                    (if #{tmp\ 3551}#
                       (@apply
-                        (lambda (#{fluid\ 3555}#
-                                 #{val\ 3556}#
-                                 #{b\ 3557}#
-                                 #{b*\ 3558}#)
-                          (#{build-dynlet\ 307}#
-                            #{s\ 3542}#
-                            (map (lambda (#{x\ 3559}#)
-                                   (#{chi\ 464}#
-                                     #{x\ 3559}#
-                                     #{r\ 3540}#
-                                     #{w\ 3541}#
-                                     #{mod\ 3543}#))
-                                 #{fluid\ 3555}#)
-                            (map (lambda (#{x\ 3562}#)
-                                   (#{chi\ 464}#
-                                     #{x\ 3562}#
-                                     #{r\ 3540}#
-                                     #{w\ 3541}#
-                                     #{mod\ 3543}#))
-                                 #{val\ 3556}#)
-                            (#{chi-body\ 472}#
-                              (cons #{b\ 3557}# #{b*\ 3558}#)
-                              (#{source-wrap\ 450}#
-                                #{e\ 3539}#
-                                #{w\ 3541}#
-                                #{s\ 3542}#
-                                #{mod\ 3543}#)
-                              #{r\ 3540}#
-                              #{w\ 3541}#
-                              #{mod\ 3543}#)))
-                        #{tmp\ 3550}#)
+                        (lambda (#{fluid\ 3556}#
+                                 #{val\ 3557}#
+                                 #{b\ 3558}#
+                                 #{b*\ 3559}#)
+                          (#{build-dynlet\ 308}#
+                            #{s\ 3543}#
+                            (map (lambda (#{x\ 3560}#)
+                                   (#{chi\ 465}#
+                                     #{x\ 3560}#
+                                     #{r\ 3541}#
+                                     #{w\ 3542}#
+                                     #{mod\ 3544}#))
+                                 #{fluid\ 3556}#)
+                            (map (lambda (#{x\ 3563}#)
+                                   (#{chi\ 465}#
+                                     #{x\ 3563}#
+                                     #{r\ 3541}#
+                                     #{w\ 3542}#
+                                     #{mod\ 3544}#))
+                                 #{val\ 3557}#)
+                            (#{chi-body\ 473}#
+                              (cons #{b\ 3558}# #{b*\ 3559}#)
+                              (#{source-wrap\ 451}#
+                                #{e\ 3540}#
+                                #{w\ 3542}#
+                                #{s\ 3543}#
+                                #{mod\ 3544}#)
+                              #{r\ 3541}#
+                              #{w\ 3542}#
+                              #{mod\ 3544}#)))
+                        #{tmp\ 3551}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 3549}#))))))
-            (#{global-extend\ 375}#
+                        #{tmp\ 3550}#))))))
+            (#{global-extend\ 376}#
               'begin
               'begin
               '())
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'define
               'define
               '())
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'define-syntax
               'define-syntax
               '())
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'eval-when
               'eval-when
               '())
-            (#{global-extend\ 375}#
+            (#{global-extend\ 376}#
               'core
               'syntax-case
               (letrec*
-                ((#{convert-pattern\ 3567}#
-                   (lambda (#{pattern\ 3574}# #{keys\ 3575}#)
+                ((#{convert-pattern\ 3568}#
+                   (lambda (#{pattern\ 3575}# #{keys\ 3576}#)
                      (letrec*
-                       ((#{cvt*\ 3579}#
-                          (lambda (#{p*\ 3582}# #{n\ 3583}# #{ids\ 3584}#)
-                            (if (null? #{p*\ 3582}#)
-                              (values (quote ()) #{ids\ 3584}#)
+                       ((#{cvt*\ 3580}#
+                          (lambda (#{p*\ 3583}# #{n\ 3584}# #{ids\ 3585}#)
+                            (if (null? #{p*\ 3583}#)
+                              (values (quote ()) #{ids\ 3585}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{cvt*\ 3579}#
-                                    (cdr #{p*\ 3582}#)
-                                    #{n\ 3583}#
-                                    #{ids\ 3584}#))
-                                (lambda (#{y\ 3588}# #{ids\ 3589}#)
+                                  (#{cvt*\ 3580}#
+                                    (cdr #{p*\ 3583}#)
+                                    #{n\ 3584}#
+                                    #{ids\ 3585}#))
+                                (lambda (#{y\ 3589}# #{ids\ 3590}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{cvt\ 3581}#
-                                        (car #{p*\ 3582}#)
-                                        #{n\ 3583}#
-                                        #{ids\ 3589}#))
-                                    (lambda (#{x\ 3592}# #{ids\ 3593}#)
+                                      (#{cvt\ 3582}#
+                                        (car #{p*\ 3583}#)
+                                        #{n\ 3584}#
+                                        #{ids\ 3590}#))
+                                    (lambda (#{x\ 3593}# #{ids\ 3594}#)
                                       (values
-                                        (cons #{x\ 3592}# #{y\ 3588}#)
-                                        #{ids\ 3593}#))))))))
-                        (#{cvt\ 3581}#
-                          (lambda (#{p\ 3596}# #{n\ 3597}# #{ids\ 3598}#)
-                            (if (#{id?\ 379}# #{p\ 3596}#)
-                              (if (#{bound-id-member?\ 446}#
-                                    #{p\ 3596}#
-                                    #{keys\ 3575}#)
+                                        (cons #{x\ 3593}# #{y\ 3589}#)
+                                        #{ids\ 3594}#))))))))
+                        (#{cvt\ 3582}#
+                          (lambda (#{p\ 3597}# #{n\ 3598}# #{ids\ 3599}#)
+                            (if (#{id?\ 380}# #{p\ 3597}#)
+                              (if (#{bound-id-member?\ 447}#
+                                    #{p\ 3597}#
+                                    #{keys\ 3576}#)
                                 (values
-                                  (vector (quote free-id) #{p\ 3596}#)
-                                  #{ids\ 3598}#)
-                                (if (#{free-id=?\ 438}#
-                                      #{p\ 3596}#
+                                  (vector (quote free-id) #{p\ 3597}#)
+                                  #{ids\ 3599}#)
+                                (if (#{free-id=?\ 439}#
+                                      #{p\ 3597}#
                                       '#(syntax-object
                                          _
                                          ((top)
@@ -11901,22 +11901,22 @@
                                           #(ribcage
                                             #(p n ids)
                                             #((top) (top) (top))
-                                            #("i3599" "i3600" "i3601"))
+                                            #("i3600" "i3601" "i3602"))
                                           #(ribcage
                                             (cvt cvt*)
                                             ((top) (top))
-                                            ("i3580" "i3578"))
+                                            ("i3581" "i3579"))
                                           #(ribcage
                                             #(pattern keys)
                                             #((top) (top))
-                                            #("i3576" "i3577"))
+                                            #("i3577" "i3578"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
-                                            ("i3572" "i3570" "i3568" "i3566"))
+                                            ("i3573" "i3571" "i3569" "i3567"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
@@ -12192,480 +12192,480 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("i493"
-                                             "i491"
-                                             "i489"
-                                             "i487"
-                                             "i485"
-                                             "i483"
-                                             "i481"
-                                             "i479"
-                                             "i477"
-                                             "i475"
-                                             "i473"
-                                             "i471"
-                                             "i469"
-                                             "i467"
-                                             "i465"
-                                             "i463"
-                                             "i461"
-                                             "i459"
-                                             "i457"
-                                             "i455"
-                                             "i453"
-                                             "i451"
-                                             "i449"
-                                             "i447"
-                                             "i445"
-                                             "i443"
-                                             "i441"
-                                             "i439"
-                                             "i437"
-                                             "i435"
-                                             "i433"
-                                             "i431"
-                                             "i429"
-                                             "i427"
-                                             "i425"
+                                            ("i494"
+                                             "i492"
+                                             "i490"
+                                             "i488"
+                                             "i486"
+                                             "i484"
+                                             "i482"
+                                             "i480"
+                                             "i478"
+                                             "i476"
+                                             "i474"
+                                             "i472"
+                                             "i470"
+                                             "i468"
+                                             "i466"
+                                             "i464"
+                                             "i462"
+                                             "i460"
+                                             "i458"
+                                             "i456"
+                                             "i454"
+                                             "i452"
+                                             "i450"
+                                             "i448"
+                                             "i446"
+                                             "i444"
+                                             "i442"
+                                             "i440"
+                                             "i438"
+                                             "i436"
+                                             "i434"
+                                             "i432"
+                                             "i430"
+                                             "i428"
+                                             "i426"
+                                             "i424"
                                              "i423"
                                              "i422"
-                                             "i421"
+                                             "i420"
                                              "i419"
                                              "i418"
                                              "i417"
                                              "i416"
-                                             "i415"
-                                             "i413"
-                                             "i411"
-                                             "i409"
-                                             "i407"
-                                             "i405"
-                                             "i403"
-                                             "i401"
-                                             "i399"
-                                             "i396"
+                                             "i414"
+                                             "i412"
+                                             "i410"
+                                             "i408"
+                                             "i406"
+                                             "i404"
+                                             "i402"
+                                             "i400"
+                                             "i397"
+                                             "i395"
                                              "i394"
                                              "i393"
                                              "i392"
                                              "i391"
                                              "i390"
-                                             "i389"
-                                             "i387"
-                                             "i385"
-                                             "i383"
+                                             "i388"
+                                             "i386"
+                                             "i384"
+                                             "i382"
                                              "i381"
-                                             "i380"
-                                             "i378"
-                                             "i376"
-                                             "i374"
-                                             "i372"
-                                             "i370"
-                                             "i368"
+                                             "i379"
+                                             "i377"
+                                             "i375"
+                                             "i373"
+                                             "i371"
+                                             "i369"
+                                             "i367"
                                              "i366"
-                                             "i365"
-                                             "i363"
+                                             "i364"
+                                             "i362"
                                              "i361"
                                              "i360"
-                                             "i359"
+                                             "i358"
                                              "i357"
-                                             "i356"
-                                             "i354"
-                                             "i352"
-                                             "i350"
-                                             "i348"
-                                             "i346"
-                                             "i344"
-                                             "i342"
-                                             "i340"
-                                             "i338"
-                                             "i336"
-                                             "i334"
-                                             "i332"
-                                             "i330"
-                                             "i328"
-                                             "i326"
-                                             "i324"
-                                             "i322"
-                                             "i320"
-                                             "i318"
-                                             "i316"
-                                             "i314"
-                                             "i312"
-                                             "i310"
-                                             "i308"
-                                             "i306"
-                                             "i304"
-                                             "i302"
-                                             "i300"
-                                             "i298"
-                                             "i296"
-                                             "i294"
+                                             "i355"
+                                             "i353"
+                                             "i351"
+                                             "i349"
+                                             "i347"
+                                             "i345"
+                                             "i343"
+                                             "i341"
+                                             "i339"
+                                             "i337"
+                                             "i335"
+                                             "i333"
+                                             "i331"
+                                             "i329"
+                                             "i327"
+                                             "i325"
+                                             "i323"
+                                             "i321"
+                                             "i319"
+                                             "i317"
+                                             "i315"
+                                             "i313"
+                                             "i311"
+                                             "i309"
+                                             "i307"
+                                             "i305"
+                                             "i303"
+                                             "i301"
+                                             "i299"
+                                             "i297"
+                                             "i295"
+                                             "i293"
                                              "i292"
-                                             "i291"
-                                             "i289"
-                                             "i287"
-                                             "i285"
-                                             "i283"
-                                             "i281"
-                                             "i279"
-                                             "i277"
-                                             "i275"
-                                             "i273"
-                                             "i270"
-                                             "i268"
-                                             "i266"
-                                             "i264"
-                                             "i262"
-                                             "i260"
-                                             "i258"
-                                             "i256"
-                                             "i254"
-                                             "i252"
-                                             "i250"
-                                             "i248"
-                                             "i246"
-                                             "i244"
-                                             "i242"
-                                             "i240"
-                                             "i238"
-                                             "i236"))
+                                             "i290"
+                                             "i288"
+                                             "i286"
+                                             "i284"
+                                             "i282"
+                                             "i280"
+                                             "i278"
+                                             "i276"
+                                             "i274"
+                                             "i271"
+                                             "i269"
+                                             "i267"
+                                             "i265"
+                                             "i263"
+                                             "i261"
+                                             "i259"
+                                             "i257"
+                                             "i255"
+                                             "i253"
+                                             "i251"
+                                             "i249"
+                                             "i247"
+                                             "i245"
+                                             "i243"
+                                             "i241"
+                                             "i239"
+                                             "i237"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors
                                               and-map*)
                                             ((top) (top) (top) (top))
-                                            ("i38" "i37" "i36" "i34")))
+                                            ("i39" "i38" "i37" "i35")))
                                          (hygiene guile)))
-                                  (values (quote _) #{ids\ 3598}#)
+                                  (values (quote _) #{ids\ 3599}#)
                                   (values
                                     'any
-                                    (cons (cons #{p\ 3596}# #{n\ 3597}#)
-                                          #{ids\ 3598}#))))
-                              (let ((#{tmp\ 3607}# #{p\ 3596}#))
-                                (let ((#{tmp\ 3608}#
+                                    (cons (cons #{p\ 3597}# #{n\ 3598}#)
+                                          #{ids\ 3599}#))))
+                              (let ((#{tmp\ 3608}# #{p\ 3597}#))
+                                (let ((#{tmp\ 3609}#
                                         ($sc-dispatch
-                                          #{tmp\ 3607}#
+                                          #{tmp\ 3608}#
                                           '(any any))))
-                                  (if (if #{tmp\ 3608}#
+                                  (if (if #{tmp\ 3609}#
                                         (@apply
-                                          (lambda (#{x\ 3611}# #{dots\ 3612}#)
-                                            (#{ellipsis?\ 480}#
-                                              #{dots\ 3612}#))
-                                          #{tmp\ 3608}#)
+                                          (lambda (#{x\ 3612}# #{dots\ 3613}#)
+                                            (#{ellipsis?\ 481}#
+                                              #{dots\ 3613}#))
+                                          #{tmp\ 3609}#)
                                         #f)
                                     (@apply
-                                      (lambda (#{x\ 3615}# #{dots\ 3616}#)
+                                      (lambda (#{x\ 3616}# #{dots\ 3617}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 3581}#
-                                              #{x\ 3615}#
-                                              (#{fx+\ 280}# #{n\ 3597}# 1)
-                                              #{ids\ 3598}#))
-                                          (lambda (#{p\ 3617}# #{ids\ 3618}#)
+                                            (#{cvt\ 3582}#
+                                              #{x\ 3616}#
+                                              (#{fx+\ 281}# #{n\ 3598}# 1)
+                                              #{ids\ 3599}#))
+                                          (lambda (#{p\ 3618}# #{ids\ 3619}#)
                                             (values
-                                              (if (eq? #{p\ 3617}# (quote any))
+                                              (if (eq? #{p\ 3618}# (quote any))
                                                 'each-any
                                                 (vector
                                                   'each
-                                                  #{p\ 3617}#))
-                                              #{ids\ 3618}#))))
-                                      #{tmp\ 3608}#)
-                                    (let ((#{tmp\ 3621}#
+                                                  #{p\ 3618}#))
+                                              #{ids\ 3619}#))))
+                                      #{tmp\ 3609}#)
+                                    (let ((#{tmp\ 3622}#
                                             ($sc-dispatch
-                                              #{tmp\ 3607}#
+                                              #{tmp\ 3608}#
                                               '(any any . each-any))))
-                                      (if (if #{tmp\ 3621}#
+                                      (if (if #{tmp\ 3622}#
                                             (@apply
-                                              (lambda (#{x\ 3625}#
-                                                       #{dots\ 3626}#
-                                                       #{ys\ 3627}#)
-                                                (#{ellipsis?\ 480}#
-                                                  #{dots\ 3626}#))
-                                              #{tmp\ 3621}#)
+                                              (lambda (#{x\ 3626}#
+                                                       #{dots\ 3627}#
+                                                       #{ys\ 3628}#)
+                                                (#{ellipsis?\ 481}#
+                                                  #{dots\ 3627}#))
+                                              #{tmp\ 3622}#)
                                             #f)
                                         (@apply
-                                          (lambda (#{x\ 3631}#
-                                                   #{dots\ 3632}#
-                                                   #{ys\ 3633}#)
+                                          (lambda (#{x\ 3632}#
+                                                   #{dots\ 3633}#
+                                                   #{ys\ 3634}#)
                                             (call-with-values
                                               (lambda ()
-                                                (#{cvt*\ 3579}#
-                                                  #{ys\ 3633}#
-                                                  #{n\ 3597}#
-                                                  #{ids\ 3598}#))
-                                              (lambda (#{ys\ 3635}#
-                                                       #{ids\ 3636}#)
+                                                (#{cvt*\ 3580}#
+                                                  #{ys\ 3634}#
+                                                  #{n\ 3598}#
+                                                  #{ids\ 3599}#))
+                                              (lambda (#{ys\ 3636}#
+                                                       #{ids\ 3637}#)
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{cvt\ 3581}#
-                                                      #{x\ 3631}#
-                                                      (1+ #{n\ 3597}#)
-                                                      #{ids\ 3636}#))
-                                                  (lambda (#{x\ 3639}#
-                                                           #{ids\ 3640}#)
+                                                    (#{cvt\ 3582}#
+                                                      #{x\ 3632}#
+                                                      (1+ #{n\ 3598}#)
+                                                      #{ids\ 3637}#))
+                                                  (lambda (#{x\ 3640}#
+                                                           #{ids\ 3641}#)
                                                     (values
                                                       (list->vector
                                                         (cons 'each+
-                                                              (cons #{x\ 3639}#
+                                                              (cons #{x\ 3640}#
                                                                     (cons 
(reverse
-                                                                            
#{ys\ 3635}#)
+                                                                            
#{ys\ 3636}#)
                                                                           
'(())))))
-                                                      #{ids\ 3640}#))))))
-                                          #{tmp\ 3621}#)
-                                        (let ((#{tmp\ 3644}#
+                                                      #{ids\ 3641}#))))))
+                                          #{tmp\ 3622}#)
+                                        (let ((#{tmp\ 3645}#
                                                 ($sc-dispatch
-                                                  #{tmp\ 3607}#
+                                                  #{tmp\ 3608}#
                                                   '(any . any))))
-                                          (if #{tmp\ 3644}#
+                                          (if #{tmp\ 3645}#
                                             (@apply
-                                              (lambda (#{x\ 3647}# #{y\ 3648}#)
+                                              (lambda (#{x\ 3648}# #{y\ 3649}#)
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{cvt\ 3581}#
-                                                      #{y\ 3648}#
-                                                      #{n\ 3597}#
-                                                      #{ids\ 3598}#))
-                                                  (lambda (#{y\ 3649}#
-                                                           #{ids\ 3650}#)
+                                                    (#{cvt\ 3582}#
+                                                      #{y\ 3649}#
+                                                      #{n\ 3598}#
+                                                      #{ids\ 3599}#))
+                                                  (lambda (#{y\ 3650}#
+                                                           #{ids\ 3651}#)
                                                     (call-with-values
                                                       (lambda ()
-                                                        (#{cvt\ 3581}#
-                                                          #{x\ 3647}#
-                                                          #{n\ 3597}#
-                                                          #{ids\ 3650}#))
-                                                      (lambda (#{x\ 3653}#
-                                                               #{ids\ 3654}#)
+                                                        (#{cvt\ 3582}#
+                                                          #{x\ 3648}#
+                                                          #{n\ 3598}#
+                                                          #{ids\ 3651}#))
+                                                      (lambda (#{x\ 3654}#
+                                                               #{ids\ 3655}#)
                                                         (values
-                                                          (cons #{x\ 3653}#
-                                                                #{y\ 3649}#)
-                                                          #{ids\ 3654}#))))))
-                                              #{tmp\ 3644}#)
-                                            (let ((#{tmp\ 3657}#
+                                                          (cons #{x\ 3654}#
+                                                                #{y\ 3650}#)
+                                                          #{ids\ 3655}#))))))
+                                              #{tmp\ 3645}#)
+                                            (let ((#{tmp\ 3658}#
                                                     ($sc-dispatch
-                                                      #{tmp\ 3607}#
+                                                      #{tmp\ 3608}#
                                                       '())))
-                                              (if #{tmp\ 3657}#
+                                              (if #{tmp\ 3658}#
                                                 (@apply
                                                   (lambda ()
                                                     (values
                                                       '()
-                                                      #{ids\ 3598}#))
-                                                  #{tmp\ 3657}#)
-                                                (let ((#{tmp\ 3658}#
+                                                      #{ids\ 3599}#))
+                                                  #{tmp\ 3658}#)
+                                                (let ((#{tmp\ 3659}#
                                                         ($sc-dispatch
-                                                          #{tmp\ 3607}#
+                                                          #{tmp\ 3608}#
                                                           '#(vector
                                                              each-any))))
-                                                  (if #{tmp\ 3658}#
+                                                  (if #{tmp\ 3659}#
                                                     (@apply
-                                                      (lambda (#{x\ 3660}#)
+                                                      (lambda (#{x\ 3661}#)
                                                         (call-with-values
                                                           (lambda ()
-                                                            (#{cvt\ 3581}#
-                                                              #{x\ 3660}#
-                                                              #{n\ 3597}#
-                                                              #{ids\ 3598}#))
-                                                          (lambda (#{p\ 3662}#
-                                                                   #{ids\ 
3663}#)
+                                                            (#{cvt\ 3582}#
+                                                              #{x\ 3661}#
+                                                              #{n\ 3598}#
+                                                              #{ids\ 3599}#))
+                                                          (lambda (#{p\ 3663}#
+                                                                   #{ids\ 
3664}#)
                                                             (values
                                                               (vector
                                                                 'vector
-                                                                #{p\ 3662}#)
-                                                              #{ids\ 3663}#))))
-                                                      #{tmp\ 3658}#)
-                                                    (let ((#{x\ 3667}#
-                                                            #{tmp\ 3607}#))
+                                                                #{p\ 3663}#)
+                                                              #{ids\ 3664}#))))
+                                                      #{tmp\ 3659}#)
+                                                    (let ((#{x\ 3668}#
+                                                            #{tmp\ 3608}#))
                                                       (values
                                                         (vector
                                                           'atom
-                                                          (#{strip\ 490}#
-                                                            #{p\ 3596}#
+                                                          (#{strip\ 491}#
+                                                            #{p\ 3597}#
                                                             '(())))
-                                                        #{ids\ 
3598}#)))))))))))))))))
+                                                        #{ids\ 
3599}#)))))))))))))))))
                        (begin
-                         (#{cvt\ 3581}# #{pattern\ 3574}# 0 (quote ()))))))
-                 (#{build-dispatch-call\ 3569}#
-                   (lambda (#{pvars\ 3669}#
-                            #{exp\ 3670}#
-                            #{y\ 3671}#
-                            #{r\ 3672}#
-                            #{mod\ 3673}#)
+                         (#{cvt\ 3582}# #{pattern\ 3575}# 0 (quote ()))))))
+                 (#{build-dispatch-call\ 3570}#
+                   (lambda (#{pvars\ 3670}#
+                            #{exp\ 3671}#
+                            #{y\ 3672}#
+                            #{r\ 3673}#
+                            #{mod\ 3674}#)
                      (begin
-                       (map cdr #{pvars\ 3669}#)
-                       (let ((#{ids\ 3681}# (map car #{pvars\ 3669}#)))
+                       (map cdr #{pvars\ 3670}#)
+                       (let ((#{ids\ 3682}# (map car #{pvars\ 3670}#)))
                          (begin
-                           (let ((#{labels\ 3685}#
-                                   (#{gen-labels\ 397}# #{ids\ 3681}#))
-                                 (#{new-vars\ 3686}#
-                                   (map #{gen-var\ 492}# #{ids\ 3681}#)))
-                             (#{build-application\ 303}#
+                           (let ((#{labels\ 3686}#
+                                   (#{gen-labels\ 398}# #{ids\ 3682}#))
+                                 (#{new-vars\ 3687}#
+                                   (map #{gen-var\ 493}# #{ids\ 3682}#)))
+                             (#{build-application\ 304}#
                                #f
-                               (#{build-primref\ 327}# #f (quote apply))
-                               (list (#{build-simple-lambda\ 321}#
+                               (#{build-primref\ 328}# #f (quote apply))
+                               (list (#{build-simple-lambda\ 322}#
                                        #f
-                                       (map syntax->datum #{ids\ 3681}#)
+                                       (map syntax->datum #{ids\ 3682}#)
                                        #f
-                                       #{new-vars\ 3686}#
+                                       #{new-vars\ 3687}#
                                        '()
-                                       (#{chi\ 464}#
-                                         #{exp\ 3670}#
-                                         (#{extend-env\ 367}#
-                                           #{labels\ 3685}#
-                                           (map (lambda (#{var\ 3690}#
-                                                         #{level\ 3691}#)
+                                       (#{chi\ 465}#
+                                         #{exp\ 3671}#
+                                         (#{extend-env\ 368}#
+                                           #{labels\ 3686}#
+                                           (map (lambda (#{var\ 3691}#
+                                                         #{level\ 3692}#)
                                                   (cons 'syntax
-                                                        (cons #{var\ 3690}#
-                                                              #{level\ 
3691}#)))
-                                                #{new-vars\ 3686}#
-                                                (map cdr #{pvars\ 3669}#))
-                                           #{r\ 3672}#)
-                                         (#{make-binding-wrap\ 426}#
-                                           #{ids\ 3681}#
-                                           #{labels\ 3685}#
+                                                        (cons #{var\ 3691}#
+                                                              #{level\ 
3692}#)))
+                                                #{new-vars\ 3687}#
+                                                (map cdr #{pvars\ 3670}#))
+                                           #{r\ 3673}#)
+                                         (#{make-binding-wrap\ 427}#
+                                           #{ids\ 3682}#
+                                           #{labels\ 3686}#
                                            '(()))
-                                         #{mod\ 3673}#))
-                                     #{y\ 3671}#))))))))
-                 (#{gen-clause\ 3571}#
-                   (lambda (#{x\ 3697}#
-                            #{keys\ 3698}#
-                            #{clauses\ 3699}#
-                            #{r\ 3700}#
-                            #{pat\ 3701}#
-                            #{fender\ 3702}#
-                            #{exp\ 3703}#
-                            #{mod\ 3704}#)
+                                         #{mod\ 3674}#))
+                                     #{y\ 3672}#))))))))
+                 (#{gen-clause\ 3572}#
+                   (lambda (#{x\ 3698}#
+                            #{keys\ 3699}#
+                            #{clauses\ 3700}#
+                            #{r\ 3701}#
+                            #{pat\ 3702}#
+                            #{fender\ 3703}#
+                            #{exp\ 3704}#
+                            #{mod\ 3705}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 3567}#
-                           #{pat\ 3701}#
-                           #{keys\ 3698}#))
-                       (lambda (#{p\ 3713}# #{pvars\ 3714}#)
-                         (if (not (#{distinct-bound-ids?\ 444}#
-                                    (map car #{pvars\ 3714}#)))
+                         (#{convert-pattern\ 3568}#
+                           #{pat\ 3702}#
+                           #{keys\ 3699}#))
+                       (lambda (#{p\ 3714}# #{pvars\ 3715}#)
+                         (if (not (#{distinct-bound-ids?\ 445}#
+                                    (map car #{pvars\ 3715}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 3701}#)
+                             #{pat\ 3702}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 3721}#)
-                                        (not (#{ellipsis?\ 480}#
-                                               (car #{x\ 3721}#))))
-                                      #{pvars\ 3714}#))
+                                      (lambda (#{x\ 3722}#)
+                                        (not (#{ellipsis?\ 481}#
+                                               (car #{x\ 3722}#))))
+                                      #{pvars\ 3715}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 3701}#)
+                               #{pat\ 3702}#)
                              (begin
-                               (let ((#{y\ 3725}#
-                                       (#{gen-var\ 492}# (quote tmp))))
-                                 (#{build-application\ 303}#
+                               (let ((#{y\ 3726}#
+                                       (#{gen-var\ 493}# (quote tmp))))
+                                 (#{build-application\ 304}#
                                    #f
-                                   (#{build-simple-lambda\ 321}#
+                                   (#{build-simple-lambda\ 322}#
                                      #f
                                      (list (quote tmp))
                                      #f
-                                     (list #{y\ 3725}#)
+                                     (list #{y\ 3726}#)
                                      '()
                                      (begin
-                                       (let ((#{y\ 3729}#
-                                               (#{build-lexical-reference\ 
309}#
+                                       (let ((#{y\ 3730}#
+                                               (#{build-lexical-reference\ 
310}#
                                                  'value
                                                  #f
                                                  'tmp
-                                                 #{y\ 3725}#)))
-                                         (#{build-conditional\ 305}#
+                                                 #{y\ 3726}#)))
+                                         (#{build-conditional\ 306}#
                                            #f
-                                           (let ((#{tmp\ 3732}#
-                                                   #{fender\ 3702}#))
-                                             (let ((#{tmp\ 3733}#
+                                           (let ((#{tmp\ 3733}#
+                                                   #{fender\ 3703}#))
+                                             (let ((#{tmp\ 3734}#
                                                      ($sc-dispatch
-                                                       #{tmp\ 3732}#
+                                                       #{tmp\ 3733}#
                                                        '#(atom #t))))
-                                               (if #{tmp\ 3733}#
+                                               (if #{tmp\ 3734}#
                                                  (@apply
-                                                   (lambda () #{y\ 3729}#)
-                                                   #{tmp\ 3733}#)
-                                                 (let ((#{_\ 3735}#
-                                                         #{tmp\ 3732}#))
-                                                   (#{build-conditional\ 305}#
+                                                   (lambda () #{y\ 3730}#)
+                                                   #{tmp\ 3734}#)
+                                                 (let ((#{_\ 3736}#
+                                                         #{tmp\ 3733}#))
+                                                   (#{build-conditional\ 306}#
                                                      #f
-                                                     #{y\ 3729}#
-                                                     (#{build-dispatch-call\ 
3569}#
-                                                       #{pvars\ 3714}#
-                                                       #{fender\ 3702}#
-                                                       #{y\ 3729}#
-                                                       #{r\ 3700}#
-                                                       #{mod\ 3704}#)
-                                                     (#{build-data\ 329}#
+                                                     #{y\ 3730}#
+                                                     (#{build-dispatch-call\ 
3570}#
+                                                       #{pvars\ 3715}#
+                                                       #{fender\ 3703}#
+                                                       #{y\ 3730}#
+                                                       #{r\ 3701}#
+                                                       #{mod\ 3705}#)
+                                                     (#{build-data\ 330}#
                                                        #f
                                                        #f))))))
-                                           (#{build-dispatch-call\ 3569}#
-                                             #{pvars\ 3714}#
-                                             #{exp\ 3703}#
-                                             #{y\ 3729}#
-                                             #{r\ 3700}#
-                                             #{mod\ 3704}#)
-                                           (#{gen-syntax-case\ 3573}#
-                                             #{x\ 3697}#
-                                             #{keys\ 3698}#
-                                             #{clauses\ 3699}#
-                                             #{r\ 3700}#
-                                             #{mod\ 3704}#)))))
-                                   (list (if (eq? #{p\ 3713}# (quote any))
-                                           (#{build-application\ 303}#
+                                           (#{build-dispatch-call\ 3570}#
+                                             #{pvars\ 3715}#
+                                             #{exp\ 3704}#
+                                             #{y\ 3730}#
+                                             #{r\ 3701}#
+                                             #{mod\ 3705}#)
+                                           (#{gen-syntax-case\ 3574}#
+                                             #{x\ 3698}#
+                                             #{keys\ 3699}#
+                                             #{clauses\ 3700}#
+                                             #{r\ 3701}#
+                                             #{mod\ 3705}#)))))
+                                   (list (if (eq? #{p\ 3714}# (quote any))
+                                           (#{build-application\ 304}#
                                              #f
-                                             (#{build-primref\ 327}#
+                                             (#{build-primref\ 328}#
                                                #f
                                                'list)
-                                             (list #{x\ 3697}#))
-                                           (#{build-application\ 303}#
+                                             (list #{x\ 3698}#))
+                                           (#{build-application\ 304}#
                                              #f
-                                             (#{build-primref\ 327}#
+                                             (#{build-primref\ 328}#
                                                #f
                                                '$sc-dispatch)
-                                             (list #{x\ 3697}#
-                                                   (#{build-data\ 329}#
+                                             (list #{x\ 3698}#
+                                                   (#{build-data\ 330}#
                                                      #f
-                                                     #{p\ 3713}#))))))))))))))
-                 (#{gen-syntax-case\ 3573}#
-                   (lambda (#{x\ 3743}#
-                            #{keys\ 3744}#
-                            #{clauses\ 3745}#
-                            #{r\ 3746}#
-                            #{mod\ 3747}#)
-                     (if (null? #{clauses\ 3745}#)
-                       (#{build-application\ 303}#
+                                                     #{p\ 3714}#))))))))))))))
+                 (#{gen-syntax-case\ 3574}#
+                   (lambda (#{x\ 3744}#
+                            #{keys\ 3745}#
+                            #{clauses\ 3746}#
+                            #{r\ 3747}#
+                            #{mod\ 3748}#)
+                     (if (null? #{clauses\ 3746}#)
+                       (#{build-application\ 304}#
                          #f
-                         (#{build-primref\ 327}#
+                         (#{build-primref\ 328}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 329}# #f #f)
-                               (#{build-data\ 329}#
+                         (list (#{build-data\ 330}# #f #f)
+                               (#{build-data\ 330}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 3743}#))
-                       (let ((#{tmp\ 3757}# (car #{clauses\ 3745}#)))
-                         (let ((#{tmp\ 3758}#
+                               #{x\ 3744}#))
+                       (let ((#{tmp\ 3758}# (car #{clauses\ 3746}#)))
+                         (let ((#{tmp\ 3759}#
                                  ($sc-dispatch
-                                   #{tmp\ 3757}#
+                                   #{tmp\ 3758}#
                                    '(any any))))
-                           (if #{tmp\ 3758}#
+                           (if #{tmp\ 3759}#
                              (@apply
-                               (lambda (#{pat\ 3761}# #{exp\ 3762}#)
-                                 (if (if (#{id?\ 379}# #{pat\ 3761}#)
+                               (lambda (#{pat\ 3762}# #{exp\ 3763}#)
+                                 (if (if (#{id?\ 380}# #{pat\ 3762}#)
                                        (and-map
-                                         (lambda (#{x\ 3765}#)
-                                           (not (#{free-id=?\ 438}#
-                                                  #{pat\ 3761}#
-                                                  #{x\ 3765}#)))
+                                         (lambda (#{x\ 3766}#)
+                                           (not (#{free-id=?\ 439}#
+                                                  #{pat\ 3762}#
+                                                  #{x\ 3766}#)))
                                          (cons '#(syntax-object
                                                   ...
                                                   ((top)
                                                    #(ribcage
                                                      #(pat exp)
                                                      #((top) (top))
-                                                     #("i3759" "i3760"))
+                                                     #("i3760" "i3761"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x keys clauses r mod)
@@ -12674,21 +12674,21 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                     #("i3748"
-                                                       "i3749"
+                                                     #("i3749"
                                                        "i3750"
                                                        "i3751"
-                                                       "i3752"))
+                                                       "i3752"
+                                                       "i3753"))
                                                    #(ribcage
                                                      (gen-syntax-case
                                                        gen-clause
                                                        build-dispatch-call
                                                        convert-pattern)
                                                      ((top) (top) (top) (top))
-                                                     ("i3572"
-                                                      "i3570"
-                                                      "i3568"
-                                                      "i3566"))
+                                                     ("i3573"
+                                                      "i3571"
+                                                      "i3569"
+                                                      "i3567"))
                                                    #(ribcage
                                                      (lambda-var-list
                                                        gen-var
@@ -12964,183 +12964,183 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("i493"
-                                                      "i491"
-                                                      "i489"
-                                                      "i487"
-                                                      "i485"
-                                                      "i483"
-                                                      "i481"
-                                                      "i479"
-                                                      "i477"
-                                                      "i475"
-                                                      "i473"
-                                                      "i471"
-                                                      "i469"
-                                                      "i467"
-                                                      "i465"
-                                                      "i463"
-                                                      "i461"
-                                                      "i459"
-                                                      "i457"
-                                                      "i455"
-                                                      "i453"
-                                                      "i451"
-                                                      "i449"
-                                                      "i447"
-                                                      "i445"
-                                                      "i443"
-                                                      "i441"
-                                                      "i439"
-                                                      "i437"
-                                                      "i435"
-                                                      "i433"
-                                                      "i431"
-                                                      "i429"
-                                                      "i427"
-                                                      "i425"
+                                                     ("i494"
+                                                      "i492"
+                                                      "i490"
+                                                      "i488"
+                                                      "i486"
+                                                      "i484"
+                                                      "i482"
+                                                      "i480"
+                                                      "i478"
+                                                      "i476"
+                                                      "i474"
+                                                      "i472"
+                                                      "i470"
+                                                      "i468"
+                                                      "i466"
+                                                      "i464"
+                                                      "i462"
+                                                      "i460"
+                                                      "i458"
+                                                      "i456"
+                                                      "i454"
+                                                      "i452"
+                                                      "i450"
+                                                      "i448"
+                                                      "i446"
+                                                      "i444"
+                                                      "i442"
+                                                      "i440"
+                                                      "i438"
+                                                      "i436"
+                                                      "i434"
+                                                      "i432"
+                                                      "i430"
+                                                      "i428"
+                                                      "i426"
+                                                      "i424"
                                                       "i423"
                                                       "i422"
-                                                      "i421"
+                                                      "i420"
                                                       "i419"
                                                       "i418"
                                                       "i417"
                                                       "i416"
-                                                      "i415"
-                                                      "i413"
-                                                      "i411"
-                                                      "i409"
-                                                      "i407"
-                                                      "i405"
-                                                      "i403"
-                                                      "i401"
-                                                      "i399"
-                                                      "i396"
+                                                      "i414"
+                                                      "i412"
+                                                      "i410"
+                                                      "i408"
+                                                      "i406"
+                                                      "i404"
+                                                      "i402"
+                                                      "i400"
+                                                      "i397"
+                                                      "i395"
                                                       "i394"
                                                       "i393"
                                                       "i392"
                                                       "i391"
                                                       "i390"
-                                                      "i389"
-                                                      "i387"
-                                                      "i385"
-                                                      "i383"
+                                                      "i388"
+                                                      "i386"
+                                                      "i384"
+                                                      "i382"
                                                       "i381"
-                                                      "i380"
-                                                      "i378"
-                                                      "i376"
-                                                      "i374"
-                                                      "i372"
-                                                      "i370"
-                                                      "i368"
+                                                      "i379"
+                                                      "i377"
+                                                      "i375"
+                                                      "i373"
+                                                      "i371"
+                                                      "i369"
+                                                      "i367"
                                                       "i366"
-                                                      "i365"
-                                                      "i363"
+                                                      "i364"
+                                                      "i362"
                                                       "i361"
                                                       "i360"
-                                                      "i359"
+                                                      "i358"
                                                       "i357"
-                                                      "i356"
-                                                      "i354"
-                                                      "i352"
-                                                      "i350"
-                                                      "i348"
-                                                      "i346"
-                                                      "i344"
-                                                      "i342"
-                                                      "i340"
-                                                      "i338"
-                                                      "i336"
-                                                      "i334"
-                                                      "i332"
-                                                      "i330"
-                                                      "i328"
-                                                      "i326"
-                                                      "i324"
-                                                      "i322"
-                                                      "i320"
-                                                      "i318"
-                                                      "i316"
-                                                      "i314"
-                                                      "i312"
-                                                      "i310"
-                                                      "i308"
-                                                      "i306"
-                                                      "i304"
-                                                      "i302"
-                                                      "i300"
-                                                      "i298"
-                                                      "i296"
-                                                      "i294"
+                                                      "i355"
+                                                      "i353"
+                                                      "i351"
+                                                      "i349"
+                                                      "i347"
+                                                      "i345"
+                                                      "i343"
+                                                      "i341"
+                                                      "i339"
+                                                      "i337"
+                                                      "i335"
+                                                      "i333"
+                                                      "i331"
+                                                      "i329"
+                                                      "i327"
+                                                      "i325"
+                                                      "i323"
+                                                      "i321"
+                                                      "i319"
+                                                      "i317"
+                                                      "i315"
+                                                      "i313"
+                                                      "i311"
+                                                      "i309"
+                                                      "i307"
+                                                      "i305"
+                                                      "i303"
+                                                      "i301"
+                                                      "i299"
+                                                      "i297"
+                                                      "i295"
+                                                      "i293"
                                                       "i292"
-                                                      "i291"
-                                                      "i289"
-                                                      "i287"
-                                                      "i285"
-                                                      "i283"
-                                                      "i281"
-                                                      "i279"
-                                                      "i277"
-                                                      "i275"
-                                                      "i273"
-                                                      "i270"
-                                                      "i268"
-                                                      "i266"
-                                                      "i264"
-                                                      "i262"
-                                                      "i260"
-                                                      "i258"
-                                                      "i256"
-                                                      "i254"
-                                                      "i252"
-                                                      "i250"
-                                                      "i248"
-                                                      "i246"
-                                                      "i244"
-                                                      "i242"
-                                                      "i240"
-                                                      "i238"
-                                                      "i236"))
+                                                      "i290"
+                                                      "i288"
+                                                      "i286"
+                                                      "i284"
+                                                      "i282"
+                                                      "i280"
+                                                      "i278"
+                                                      "i276"
+                                                      "i274"
+                                                      "i271"
+                                                      "i269"
+                                                      "i267"
+                                                      "i265"
+                                                      "i263"
+                                                      "i261"
+                                                      "i259"
+                                                      "i257"
+                                                      "i255"
+                                                      "i253"
+                                                      "i251"
+                                                      "i249"
+                                                      "i247"
+                                                      "i245"
+                                                      "i243"
+                                                      "i241"
+                                                      "i239"
+                                                      "i237"))
                                                    #(ribcage
                                                      (define-structure
                                                        
define-expansion-accessors
                                                        
define-expansion-constructors
                                                        and-map*)
                                                      ((top) (top) (top) (top))
-                                                     ("i38"
+                                                     ("i39"
+                                                      "i38"
                                                       "i37"
-                                                      "i36"
-                                                      "i34")))
+                                                      "i35")))
                                                   (hygiene guile))
-                                               #{keys\ 3744}#))
+                                               #{keys\ 3745}#))
                                        #f)
-                                   (if (#{free-id=?\ 438}#
+                                   (if (#{free-id=?\ 439}#
                                          '#(syntax-object
                                             pad
                                             ((top)
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
-                                               #("i3759" "i3760"))
+                                               #("i3760" "i3761"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top) (top) (top) (top) (top))
-                                               #("i3748"
-                                                 "i3749"
+                                               #("i3749"
                                                  "i3750"
                                                  "i3751"
-                                                 "i3752"))
+                                                 "i3752"
+                                                 "i3753"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
-                                               ("i3572"
-                                                "i3570"
-                                                "i3568"
-                                                "i3566"))
+                                               ("i3573"
+                                                "i3571"
+                                                "i3569"
+                                                "i3567"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -13416,150 +13416,150 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i493"
-                                                "i491"
-                                                "i489"
-                                                "i487"
-                                                "i485"
-                                                "i483"
-                                                "i481"
-                                                "i479"
-                                                "i477"
-                                                "i475"
-                                                "i473"
-                                                "i471"
-                                                "i469"
-                                                "i467"
-                                                "i465"
-                                                "i463"
-                                                "i461"
-                                                "i459"
-                                                "i457"
-                                                "i455"
-                                                "i453"
-                                                "i451"
-                                                "i449"
-                                                "i447"
-                                                "i445"
-                                                "i443"
-                                                "i441"
-                                                "i439"
-                                                "i437"
-                                                "i435"
-                                                "i433"
-                                                "i431"
-                                                "i429"
-                                                "i427"
-                                                "i425"
+                                               ("i494"
+                                                "i492"
+                                                "i490"
+                                                "i488"
+                                                "i486"
+                                                "i484"
+                                                "i482"
+                                                "i480"
+                                                "i478"
+                                                "i476"
+                                                "i474"
+                                                "i472"
+                                                "i470"
+                                                "i468"
+                                                "i466"
+                                                "i464"
+                                                "i462"
+                                                "i460"
+                                                "i458"
+                                                "i456"
+                                                "i454"
+                                                "i452"
+                                                "i450"
+                                                "i448"
+                                                "i446"
+                                                "i444"
+                                                "i442"
+                                                "i440"
+                                                "i438"
+                                                "i436"
+                                                "i434"
+                                                "i432"
+                                                "i430"
+                                                "i428"
+                                                "i426"
+                                                "i424"
                                                 "i423"
                                                 "i422"
-                                                "i421"
+                                                "i420"
                                                 "i419"
                                                 "i418"
                                                 "i417"
                                                 "i416"
-                                                "i415"
-                                                "i413"
-                                                "i411"
-                                                "i409"
-                                                "i407"
-                                                "i405"
-                                                "i403"
-                                                "i401"
-                                                "i399"
-                                                "i396"
+                                                "i414"
+                                                "i412"
+                                                "i410"
+                                                "i408"
+                                                "i406"
+                                                "i404"
+                                                "i402"
+                                                "i400"
+                                                "i397"
+                                                "i395"
                                                 "i394"
                                                 "i393"
                                                 "i392"
                                                 "i391"
                                                 "i390"
-                                                "i389"
-                                                "i387"
-                                                "i385"
-                                                "i383"
+                                                "i388"
+                                                "i386"
+                                                "i384"
+                                                "i382"
                                                 "i381"
-                                                "i380"
-                                                "i378"
-                                                "i376"
-                                                "i374"
-                                                "i372"
-                                                "i370"
-                                                "i368"
+                                                "i379"
+                                                "i377"
+                                                "i375"
+                                                "i373"
+                                                "i371"
+                                                "i369"
+                                                "i367"
                                                 "i366"
-                                                "i365"
-                                                "i363"
+                                                "i364"
+                                                "i362"
                                                 "i361"
                                                 "i360"
-                                                "i359"
+                                                "i358"
                                                 "i357"
-                                                "i356"
-                                                "i354"
-                                                "i352"
-                                                "i350"
-                                                "i348"
-                                                "i346"
-                                                "i344"
-                                                "i342"
-                                                "i340"
-                                                "i338"
-                                                "i336"
-                                                "i334"
-                                                "i332"
-                                                "i330"
-                                                "i328"
-                                                "i326"
-                                                "i324"
-                                                "i322"
-                                                "i320"
-                                                "i318"
-                                                "i316"
-                                                "i314"
-                                                "i312"
-                                                "i310"
-                                                "i308"
-                                                "i306"
-                                                "i304"
-                                                "i302"
-                                                "i300"
-                                                "i298"
-                                                "i296"
-                                                "i294"
+                                                "i355"
+                                                "i353"
+                                                "i351"
+                                                "i349"
+                                                "i347"
+                                                "i345"
+                                                "i343"
+                                                "i341"
+                                                "i339"
+                                                "i337"
+                                                "i335"
+                                                "i333"
+                                                "i331"
+                                                "i329"
+                                                "i327"
+                                                "i325"
+                                                "i323"
+                                                "i321"
+                                                "i319"
+                                                "i317"
+                                                "i315"
+                                                "i313"
+                                                "i311"
+                                                "i309"
+                                                "i307"
+                                                "i305"
+                                                "i303"
+                                                "i301"
+                                                "i299"
+                                                "i297"
+                                                "i295"
+                                                "i293"
                                                 "i292"
-                                                "i291"
-                                                "i289"
-                                                "i287"
-                                                "i285"
-                                                "i283"
-                                                "i281"
-                                                "i279"
-                                                "i277"
-                                                "i275"
-                                                "i273"
-                                                "i270"
-                                                "i268"
-                                                "i266"
-                                                "i264"
-                                                "i262"
-                                                "i260"
-                                                "i258"
-                                                "i256"
-                                                "i254"
-                                                "i252"
-                                                "i250"
-                                                "i248"
-                                                "i246"
-                                                "i244"
-                                                "i242"
-                                                "i240"
-                                                "i238"
-                                                "i236"))
+                                                "i290"
+                                                "i288"
+                                                "i286"
+                                                "i284"
+                                                "i282"
+                                                "i280"
+                                                "i278"
+                                                "i276"
+                                                "i274"
+                                                "i271"
+                                                "i269"
+                                                "i267"
+                                                "i265"
+                                                "i263"
+                                                "i261"
+                                                "i259"
+                                                "i257"
+                                                "i255"
+                                                "i253"
+                                                "i251"
+                                                "i249"
+                                                "i247"
+                                                "i245"
+                                                "i243"
+                                                "i241"
+                                                "i239"
+                                                "i237"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors
                                                  and-map*)
                                                ((top) (top) (top) (top))
-                                               ("i38" "i37" "i36" "i34")))
+                                               ("i39" "i38" "i37" "i35")))
                                             (hygiene guile))
                                          '#(syntax-object
                                             _
@@ -13567,26 +13567,26 @@
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
-                                               #("i3759" "i3760"))
+                                               #("i3760" "i3761"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top) (top) (top) (top) (top))
-                                               #("i3748"
-                                                 "i3749"
+                                               #("i3749"
                                                  "i3750"
                                                  "i3751"
-                                                 "i3752"))
+                                                 "i3752"
+                                                 "i3753"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
-                                               ("i3572"
-                                                "i3570"
-                                                "i3568"
-                                                "i3566"))
+                                               ("i3573"
+                                                "i3571"
+                                                "i3569"
+                                                "i3567"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -13862,750 +13862,750 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("i493"
-                                                "i491"
-                                                "i489"
-                                                "i487"
-                                                "i485"
-                                                "i483"
-                                                "i481"
-                                                "i479"
-                                                "i477"
-                                                "i475"
-                                                "i473"
-                                                "i471"
-                                                "i469"
-                                                "i467"
-                                                "i465"
-                                                "i463"
-                                                "i461"
-                                                "i459"
-                                                "i457"
-                                                "i455"
-                                                "i453"
-                                                "i451"
-                                                "i449"
-                                                "i447"
-                                                "i445"
-                                                "i443"
-                                                "i441"
-                                                "i439"
-                                                "i437"
-                                                "i435"
-                                                "i433"
-                                                "i431"
-                                                "i429"
-                                                "i427"
-                                                "i425"
+                                               ("i494"
+                                                "i492"
+                                                "i490"
+                                                "i488"
+                                                "i486"
+                                                "i484"
+                                                "i482"
+                                                "i480"
+                                                "i478"
+                                                "i476"
+                                                "i474"
+                                                "i472"
+                                                "i470"
+                                                "i468"
+                                                "i466"
+                                                "i464"
+                                                "i462"
+                                                "i460"
+                                                "i458"
+                                                "i456"
+                                                "i454"
+                                                "i452"
+                                                "i450"
+                                                "i448"
+                                                "i446"
+                                                "i444"
+                                                "i442"
+                                                "i440"
+                                                "i438"
+                                                "i436"
+                                                "i434"
+                                                "i432"
+                                                "i430"
+                                                "i428"
+                                                "i426"
+                                                "i424"
                                                 "i423"
                                                 "i422"
-                                                "i421"
+                                                "i420"
                                                 "i419"
                                                 "i418"
                                                 "i417"
                                                 "i416"
-                                                "i415"
-                                                "i413"
-                                                "i411"
-                                                "i409"
-                                                "i407"
-                                                "i405"
-                                                "i403"
-                                                "i401"
-                                                "i399"
-                                                "i396"
+                                                "i414"
+                                                "i412"
+                                                "i410"
+                                                "i408"
+                                                "i406"
+                                                "i404"
+                                                "i402"
+                                                "i400"
+                                                "i397"
+                                                "i395"
                                                 "i394"
                                                 "i393"
                                                 "i392"
                                                 "i391"
                                                 "i390"
-                                                "i389"
-                                                "i387"
-                                                "i385"
-                                                "i383"
+                                                "i388"
+                                                "i386"
+                                                "i384"
+                                                "i382"
                                                 "i381"
-                                                "i380"
-                                                "i378"
-                                                "i376"
-                                                "i374"
-                                                "i372"
-                                                "i370"
-                                                "i368"
+                                                "i379"
+                                                "i377"
+                                                "i375"
+                                                "i373"
+                                                "i371"
+                                                "i369"
+                                                "i367"
                                                 "i366"
-                                                "i365"
-                                                "i363"
+                                                "i364"
+                                                "i362"
                                                 "i361"
                                                 "i360"
-                                                "i359"
+                                                "i358"
                                                 "i357"
-                                                "i356"
-                                                "i354"
-                                                "i352"
-                                                "i350"
-                                                "i348"
-                                                "i346"
-                                                "i344"
-                                                "i342"
-                                                "i340"
-                                                "i338"
-                                                "i336"
-                                                "i334"
-                                                "i332"
-                                                "i330"
-                                                "i328"
-                                                "i326"
-                                                "i324"
-                                                "i322"
-                                                "i320"
-                                                "i318"
-                                                "i316"
-                                                "i314"
-                                                "i312"
-                                                "i310"
-                                                "i308"
-                                                "i306"
-                                                "i304"
-                                                "i302"
-                                                "i300"
-                                                "i298"
-                                                "i296"
-                                                "i294"
+                                                "i355"
+                                                "i353"
+                                                "i351"
+                                                "i349"
+                                                "i347"
+                                                "i345"
+                                                "i343"
+                                                "i341"
+                                                "i339"
+                                                "i337"
+                                                "i335"
+                                                "i333"
+                                                "i331"
+                                                "i329"
+                                                "i327"
+                                                "i325"
+                                                "i323"
+                                                "i321"
+                                                "i319"
+                                                "i317"
+                                                "i315"
+                                                "i313"
+                                                "i311"
+                                                "i309"
+                                                "i307"
+                                                "i305"
+                                                "i303"
+                                                "i301"
+                                                "i299"
+                                                "i297"
+                                                "i295"
+                                                "i293"
                                                 "i292"
-                                                "i291"
-                                                "i289"
-                                                "i287"
-                                                "i285"
-                                                "i283"
-                                                "i281"
-                                                "i279"
-                                                "i277"
-                                                "i275"
-                                                "i273"
-                                                "i270"
-                                                "i268"
-                                                "i266"
-                                                "i264"
-                                                "i262"
-                                                "i260"
-                                                "i258"
-                                                "i256"
-                                                "i254"
-                                                "i252"
-                                                "i250"
-                                                "i248"
-                                                "i246"
-                                                "i244"
-                                                "i242"
-                                                "i240"
-                                                "i238"
-                                                "i236"))
+                                                "i290"
+                                                "i288"
+                                                "i286"
+                                                "i284"
+                                                "i282"
+                                                "i280"
+                                                "i278"
+                                                "i276"
+                                                "i274"
+                                                "i271"
+                                                "i269"
+                                                "i267"
+                                                "i265"
+                                                "i263"
+                                                "i261"
+                                                "i259"
+                                                "i257"
+                                                "i255"
+                                                "i253"
+                                                "i251"
+                                                "i249"
+                                                "i247"
+                                                "i245"
+                                                "i243"
+                                                "i241"
+                                                "i239"
+                                                "i237"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors
                                                  and-map*)
                                                ((top) (top) (top) (top))
-                                               ("i38" "i37" "i36" "i34")))
+                                               ("i39" "i38" "i37" "i35")))
                                             (hygiene guile)))
-                                     (#{chi\ 464}#
-                                       #{exp\ 3762}#
-                                       #{r\ 3746}#
+                                     (#{chi\ 465}#
+                                       #{exp\ 3763}#
+                                       #{r\ 3747}#
                                        '(())
-                                       #{mod\ 3747}#)
+                                       #{mod\ 3748}#)
                                      (begin
-                                       (let ((#{labels\ 3770}#
-                                               (list (#{gen-label\ 395}#)))
-                                             (#{var\ 3771}#
-                                               (#{gen-var\ 492}#
-                                                 #{pat\ 3761}#)))
-                                         (#{build-application\ 303}#
+                                       (let ((#{labels\ 3771}#
+                                               (list (#{gen-label\ 396}#)))
+                                             (#{var\ 3772}#
+                                               (#{gen-var\ 493}#
+                                                 #{pat\ 3762}#)))
+                                         (#{build-application\ 304}#
                                            #f
-                                           (#{build-simple-lambda\ 321}#
+                                           (#{build-simple-lambda\ 322}#
                                              #f
                                              (list (syntax->datum
-                                                     #{pat\ 3761}#))
+                                                     #{pat\ 3762}#))
                                              #f
-                                             (list #{var\ 3771}#)
+                                             (list #{var\ 3772}#)
                                              '()
-                                             (#{chi\ 464}#
-                                               #{exp\ 3762}#
-                                               (#{extend-env\ 367}#
-                                                 #{labels\ 3770}#
+                                             (#{chi\ 465}#
+                                               #{exp\ 3763}#
+                                               (#{extend-env\ 368}#
+                                                 #{labels\ 3771}#
                                                  (list (cons 'syntax
-                                                             (cons #{var\ 
3771}#
+                                                             (cons #{var\ 
3772}#
                                                                    0)))
-                                                 #{r\ 3746}#)
-                                               (#{make-binding-wrap\ 426}#
-                                                 (list #{pat\ 3761}#)
-                                                 #{labels\ 3770}#
+                                                 #{r\ 3747}#)
+                                               (#{make-binding-wrap\ 427}#
+                                                 (list #{pat\ 3762}#)
+                                                 #{labels\ 3771}#
                                                  '(()))
-                                               #{mod\ 3747}#))
-                                           (list #{x\ 3743}#)))))
-                                   (#{gen-clause\ 3571}#
-                                     #{x\ 3743}#
-                                     #{keys\ 3744}#
-                                     (cdr #{clauses\ 3745}#)
-                                     #{r\ 3746}#
-                                     #{pat\ 3761}#
+                                               #{mod\ 3748}#))
+                                           (list #{x\ 3744}#)))))
+                                   (#{gen-clause\ 3572}#
+                                     #{x\ 3744}#
+                                     #{keys\ 3745}#
+                                     (cdr #{clauses\ 3746}#)
+                                     #{r\ 3747}#
+                                     #{pat\ 3762}#
                                      #t
-                                     #{exp\ 3762}#
-                                     #{mod\ 3747}#)))
-                               #{tmp\ 3758}#)
-                             (let ((#{tmp\ 3777}#
+                                     #{exp\ 3763}#
+                                     #{mod\ 3748}#)))
+                               #{tmp\ 3759}#)
+                             (let ((#{tmp\ 3778}#
                                      ($sc-dispatch
-                                       #{tmp\ 3757}#
+                                       #{tmp\ 3758}#
                                        '(any any any))))
-                               (if #{tmp\ 3777}#
+                               (if #{tmp\ 3778}#
                                  (@apply
-                                   (lambda (#{pat\ 3781}#
-                                            #{fender\ 3782}#
-                                            #{exp\ 3783}#)
-                                     (#{gen-clause\ 3571}#
-                                       #{x\ 3743}#
-                                       #{keys\ 3744}#
-                                       (cdr #{clauses\ 3745}#)
-                                       #{r\ 3746}#
-                                       #{pat\ 3781}#
-                                       #{fender\ 3782}#
-                                       #{exp\ 3783}#
-                                       #{mod\ 3747}#))
-                                   #{tmp\ 3777}#)
-                                 (let ((#{_\ 3785}# #{tmp\ 3757}#))
+                                   (lambda (#{pat\ 3782}#
+                                            #{fender\ 3783}#
+                                            #{exp\ 3784}#)
+                                     (#{gen-clause\ 3572}#
+                                       #{x\ 3744}#
+                                       #{keys\ 3745}#
+                                       (cdr #{clauses\ 3746}#)
+                                       #{r\ 3747}#
+                                       #{pat\ 3782}#
+                                       #{fender\ 3783}#
+                                       #{exp\ 3784}#
+                                       #{mod\ 3748}#))
+                                   #{tmp\ 3778}#)
+                                 (let ((#{_\ 3786}# #{tmp\ 3758}#))
                                    (syntax-violation
                                      'syntax-case
                                      "invalid clause"
-                                     (car #{clauses\ 3745}#))))))))))))
+                                     (car #{clauses\ 3746}#))))))))))))
                 (begin
-                  (lambda (#{e\ 3786}#
-                           #{r\ 3787}#
-                           #{w\ 3788}#
-                           #{s\ 3789}#
-                           #{mod\ 3790}#)
+                  (lambda (#{e\ 3787}#
+                           #{r\ 3788}#
+                           #{w\ 3789}#
+                           #{s\ 3790}#
+                           #{mod\ 3791}#)
                     (begin
-                      (let ((#{e\ 3797}#
-                              (#{source-wrap\ 450}#
-                                #{e\ 3786}#
-                                #{w\ 3788}#
-                                #{s\ 3789}#
-                                #{mod\ 3790}#)))
-                        (let ((#{tmp\ 3798}# #{e\ 3797}#))
-                          (let ((#{tmp\ 3799}#
+                      (let ((#{e\ 3798}#
+                              (#{source-wrap\ 451}#
+                                #{e\ 3787}#
+                                #{w\ 3789}#
+                                #{s\ 3790}#
+                                #{mod\ 3791}#)))
+                        (let ((#{tmp\ 3799}# #{e\ 3798}#))
+                          (let ((#{tmp\ 3800}#
                                   ($sc-dispatch
-                                    #{tmp\ 3798}#
+                                    #{tmp\ 3799}#
                                     '(_ any each-any . each-any))))
-                            (if #{tmp\ 3799}#
+                            (if #{tmp\ 3800}#
                               (@apply
-                                (lambda (#{val\ 3803}#
-                                         #{key\ 3804}#
-                                         #{m\ 3805}#)
+                                (lambda (#{val\ 3804}#
+                                         #{key\ 3805}#
+                                         #{m\ 3806}#)
                                   (if (and-map
-                                        (lambda (#{x\ 3806}#)
-                                          (if (#{id?\ 379}# #{x\ 3806}#)
-                                            (not (#{ellipsis?\ 480}#
-                                                   #{x\ 3806}#))
+                                        (lambda (#{x\ 3807}#)
+                                          (if (#{id?\ 380}# #{x\ 3807}#)
+                                            (not (#{ellipsis?\ 481}#
+                                                   #{x\ 3807}#))
                                             #f))
-                                        #{key\ 3804}#)
+                                        #{key\ 3805}#)
                                     (begin
-                                      (let ((#{x\ 3812}#
-                                              (#{gen-var\ 492}# (quote tmp))))
-                                        (#{build-application\ 303}#
-                                          #{s\ 3789}#
-                                          (#{build-simple-lambda\ 321}#
+                                      (let ((#{x\ 3813}#
+                                              (#{gen-var\ 493}# (quote tmp))))
+                                        (#{build-application\ 304}#
+                                          #{s\ 3790}#
+                                          (#{build-simple-lambda\ 322}#
                                             #f
                                             (list (quote tmp))
                                             #f
-                                            (list #{x\ 3812}#)
+                                            (list #{x\ 3813}#)
                                             '()
-                                            (#{gen-syntax-case\ 3573}#
-                                              (#{build-lexical-reference\ 309}#
+                                            (#{gen-syntax-case\ 3574}#
+                                              (#{build-lexical-reference\ 310}#
                                                 'value
                                                 #f
                                                 'tmp
-                                                #{x\ 3812}#)
-                                              #{key\ 3804}#
-                                              #{m\ 3805}#
-                                              #{r\ 3787}#
-                                              #{mod\ 3790}#))
-                                          (list (#{chi\ 464}#
-                                                  #{val\ 3803}#
-                                                  #{r\ 3787}#
+                                                #{x\ 3813}#)
+                                              #{key\ 3805}#
+                                              #{m\ 3806}#
+                                              #{r\ 3788}#
+                                              #{mod\ 3791}#))
+                                          (list (#{chi\ 465}#
+                                                  #{val\ 3804}#
+                                                  #{r\ 3788}#
                                                   '(())
-                                                  #{mod\ 3790}#)))))
+                                                  #{mod\ 3791}#)))))
                                     (syntax-violation
                                       'syntax-case
                                       "invalid literals list"
-                                      #{e\ 3797}#)))
-                                #{tmp\ 3799}#)
+                                      #{e\ 3798}#)))
+                                #{tmp\ 3800}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 3798}#))))))))))
+                                #{tmp\ 3799}#))))))))))
             (set! macroexpand
               (lambda*
-                (#{x\ 3818}#
+                (#{x\ 3819}#
                   #:optional
-                  (#{m\ 3820}# (quote e))
-                  (#{esew\ 3822}# (quote (eval))))
-                (#{chi-top\ 462}#
-                  #{x\ 3818}#
+                  (#{m\ 3821}# (quote e))
+                  (#{esew\ 3823}# (quote (eval))))
+                (#{chi-top\ 463}#
+                  #{x\ 3819}#
                   '()
                   '((top))
-                  #{m\ 3820}#
-                  #{esew\ 3822}#
+                  #{m\ 3821}#
+                  #{esew\ 3823}#
                   (cons 'hygiene
                         (module-name (current-module))))))
             (set! identifier?
-              (lambda (#{x\ 3826}#)
-                (#{nonsymbol-id?\ 377}# #{x\ 3826}#)))
+              (lambda (#{x\ 3827}#)
+                (#{nonsymbol-id?\ 378}# #{x\ 3827}#)))
             (set! datum->syntax
-              (lambda (#{id\ 3828}# #{datum\ 3829}#)
-                (#{make-syntax-object\ 341}#
-                  #{datum\ 3829}#
-                  (#{syntax-object-wrap\ 347}# #{id\ 3828}#)
-                  (#{syntax-object-module\ 349}# #{id\ 3828}#))))
+              (lambda (#{id\ 3829}# #{datum\ 3830}#)
+                (#{make-syntax-object\ 342}#
+                  #{datum\ 3830}#
+                  (#{syntax-object-wrap\ 348}# #{id\ 3829}#)
+                  (#{syntax-object-module\ 350}# #{id\ 3829}#))))
             (set! syntax->datum
-              (lambda (#{x\ 3832}#)
-                (#{strip\ 490}# #{x\ 3832}# (quote (())))))
+              (lambda (#{x\ 3833}#)
+                (#{strip\ 491}# #{x\ 3833}# (quote (())))))
             (set! syntax-source
-              (lambda (#{x\ 3835}#)
-                (#{source-annotation\ 358}# #{x\ 3835}#)))
+              (lambda (#{x\ 3836}#)
+                (#{source-annotation\ 359}# #{x\ 3836}#)))
             (set! generate-temporaries
-              (lambda (#{ls\ 3837}#)
+              (lambda (#{ls\ 3838}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3841}# #{ls\ 3837}#))
-                      (if (not (list? #{x\ 3841}#))
+                    (let ((#{x\ 3842}# #{ls\ 3838}#))
+                      (if (not (list? #{x\ 3842}#))
                         (syntax-violation
                           'generate-temporaries
                           "invalid argument"
-                          #{x\ 3841}#))))
-                  (map (lambda (#{x\ 3842}#)
-                         (#{wrap\ 448}# (gensym) (quote ((top))) #f))
-                       #{ls\ 3837}#))))
+                          #{x\ 3842}#))))
+                  (map (lambda (#{x\ 3843}#)
+                         (#{wrap\ 449}# (gensym) (quote ((top))) #f))
+                       #{ls\ 3838}#))))
             (set! free-identifier=?
-              (lambda (#{x\ 3846}# #{y\ 3847}#)
+              (lambda (#{x\ 3847}# #{y\ 3848}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3852}# #{x\ 3846}#))
-                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3852}#))
+                    (let ((#{x\ 3853}# #{x\ 3847}#))
+                      (if (not (#{nonsymbol-id?\ 378}# #{x\ 3853}#))
                         (syntax-violation
                           'free-identifier=?
                           "invalid argument"
-                          #{x\ 3852}#))))
+                          #{x\ 3853}#))))
                   (begin
-                    (let ((#{x\ 3855}# #{y\ 3847}#))
-                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3855}#))
+                    (let ((#{x\ 3856}# #{y\ 3848}#))
+                      (if (not (#{nonsymbol-id?\ 378}# #{x\ 3856}#))
                         (syntax-violation
                           'free-identifier=?
                           "invalid argument"
-                          #{x\ 3855}#))))
-                  (#{free-id=?\ 438}# #{x\ 3846}# #{y\ 3847}#))))
+                          #{x\ 3856}#))))
+                  (#{free-id=?\ 439}# #{x\ 3847}# #{y\ 3848}#))))
             (set! bound-identifier=?
-              (lambda (#{x\ 3856}# #{y\ 3857}#)
+              (lambda (#{x\ 3857}# #{y\ 3858}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3862}# #{x\ 3856}#))
-                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3862}#))
+                    (let ((#{x\ 3863}# #{x\ 3857}#))
+                      (if (not (#{nonsymbol-id?\ 378}# #{x\ 3863}#))
                         (syntax-violation
                           'bound-identifier=?
                           "invalid argument"
-                          #{x\ 3862}#))))
+                          #{x\ 3863}#))))
                   (begin
-                    (let ((#{x\ 3865}# #{y\ 3857}#))
-                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3865}#))
+                    (let ((#{x\ 3866}# #{y\ 3858}#))
+                      (if (not (#{nonsymbol-id?\ 378}# #{x\ 3866}#))
                         (syntax-violation
                           'bound-identifier=?
                           "invalid argument"
-                          #{x\ 3865}#))))
-                  (#{bound-id=?\ 440}# #{x\ 3856}# #{y\ 3857}#))))
+                          #{x\ 3866}#))))
+                  (#{bound-id=?\ 441}# #{x\ 3857}# #{y\ 3858}#))))
             (set! syntax-violation
-              (lambda (#{who\ 3866}#
-                       #{message\ 3867}#
-                       #{form\ 3868}#
+              (lambda (#{who\ 3867}#
+                       #{message\ 3868}#
+                       #{form\ 3869}#
                        .
-                       #{subform\ 3869}#)
+                       #{subform\ 3870}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3876}# #{who\ 3866}#))
-                      (if (not (let ((#{x\ 3877}# #{x\ 3876}#))
+                    (let ((#{x\ 3877}# #{who\ 3867}#))
+                      (if (not (let ((#{x\ 3878}# #{x\ 3877}#))
                                  (begin
-                                   (let ((#{t\ 3881}# (not #{x\ 3877}#)))
-                                     (if #{t\ 3881}#
-                                       #{t\ 3881}#
+                                   (let ((#{t\ 3882}# (not #{x\ 3878}#)))
+                                     (if #{t\ 3882}#
+                                       #{t\ 3882}#
                                        (begin
-                                         (let ((#{t\ 3884}#
-                                                 (string? #{x\ 3877}#)))
-                                           (if #{t\ 3884}#
-                                             #{t\ 3884}#
-                                             (symbol? #{x\ 3877}#)))))))))
+                                         (let ((#{t\ 3885}#
+                                                 (string? #{x\ 3878}#)))
+                                           (if #{t\ 3885}#
+                                             #{t\ 3885}#
+                                             (symbol? #{x\ 3878}#)))))))))
                         (syntax-violation
                           'syntax-violation
                           "invalid argument"
-                          #{x\ 3876}#))))
+                          #{x\ 3877}#))))
                   (begin
-                    (let ((#{x\ 3888}# #{message\ 3867}#))
-                      (if (not (string? #{x\ 3888}#))
+                    (let ((#{x\ 3889}# #{message\ 3868}#))
+                      (if (not (string? #{x\ 3889}#))
                         (syntax-violation
                           'syntax-violation
                           "invalid argument"
-                          #{x\ 3888}#))))
+                          #{x\ 3889}#))))
                   (scm-error
                     'syntax-error
                     'macroexpand
                     (string-append
-                      (if #{who\ 3866}# "~a: " "")
+                      (if #{who\ 3867}# "~a: " "")
                       "~a "
-                      (if (null? #{subform\ 3869}#)
+                      (if (null? #{subform\ 3870}#)
                         "in ~a"
                         "in subform `~s' of `~s'"))
                     (begin
-                      (let ((#{tail\ 3890}#
-                              (cons #{message\ 3867}#
-                                    (map (lambda (#{x\ 3891}#)
-                                           (#{strip\ 490}#
-                                             #{x\ 3891}#
+                      (let ((#{tail\ 3891}#
+                              (cons #{message\ 3868}#
+                                    (map (lambda (#{x\ 3892}#)
+                                           (#{strip\ 491}#
+                                             #{x\ 3892}#
                                              '(())))
                                          (append
-                                           #{subform\ 3869}#
-                                           (list #{form\ 3868}#))))))
-                        (if #{who\ 3866}#
-                          (cons #{who\ 3866}# #{tail\ 3890}#)
-                          #{tail\ 3890}#)))
+                                           #{subform\ 3870}#
+                                           (list #{form\ 3869}#))))))
+                        (if #{who\ 3867}#
+                          (cons #{who\ 3867}# #{tail\ 3891}#)
+                          #{tail\ 3891}#)))
                     #f))))
             (letrec*
-              ((#{match-each\ 3895}#
-                 (lambda (#{e\ 3908}#
-                          #{p\ 3909}#
-                          #{w\ 3910}#
-                          #{mod\ 3911}#)
-                   (if (pair? #{e\ 3908}#)
+              ((#{match-each\ 3896}#
+                 (lambda (#{e\ 3909}#
+                          #{p\ 3910}#
+                          #{w\ 3911}#
+                          #{mod\ 3912}#)
+                   (if (pair? #{e\ 3909}#)
                      (begin
-                       (let ((#{first\ 3919}#
-                               (#{match\ 3907}#
-                                 (car #{e\ 3908}#)
-                                 #{p\ 3909}#
-                                 #{w\ 3910}#
+                       (let ((#{first\ 3920}#
+                               (#{match\ 3908}#
+                                 (car #{e\ 3909}#)
+                                 #{p\ 3910}#
+                                 #{w\ 3911}#
                                  '()
-                                 #{mod\ 3911}#)))
-                         (if #{first\ 3919}#
+                                 #{mod\ 3912}#)))
+                         (if #{first\ 3920}#
                            (begin
-                             (let ((#{rest\ 3923}#
-                                     (#{match-each\ 3895}#
-                                       (cdr #{e\ 3908}#)
-                                       #{p\ 3909}#
-                                       #{w\ 3910}#
-                                       #{mod\ 3911}#)))
-                               (if #{rest\ 3923}#
-                                 (cons #{first\ 3919}# #{rest\ 3923}#)
+                             (let ((#{rest\ 3924}#
+                                     (#{match-each\ 3896}#
+                                       (cdr #{e\ 3909}#)
+                                       #{p\ 3910}#
+                                       #{w\ 3911}#
+                                       #{mod\ 3912}#)))
+                               (if #{rest\ 3924}#
+                                 (cons #{first\ 3920}# #{rest\ 3924}#)
                                  #f)))
                            #f)))
-                     (if (null? #{e\ 3908}#)
+                     (if (null? #{e\ 3909}#)
                        '()
-                       (if (#{syntax-object?\ 343}# #{e\ 3908}#)
-                         (#{match-each\ 3895}#
-                           (#{syntax-object-expression\ 345}# #{e\ 3908}#)
-                           #{p\ 3909}#
-                           (#{join-wraps\ 430}#
-                             #{w\ 3910}#
-                             (#{syntax-object-wrap\ 347}# #{e\ 3908}#))
-                           (#{syntax-object-module\ 349}# #{e\ 3908}#))
+                       (if (#{syntax-object?\ 344}# #{e\ 3909}#)
+                         (#{match-each\ 3896}#
+                           (#{syntax-object-expression\ 346}# #{e\ 3909}#)
+                           #{p\ 3910}#
+                           (#{join-wraps\ 431}#
+                             #{w\ 3911}#
+                             (#{syntax-object-wrap\ 348}# #{e\ 3909}#))
+                           (#{syntax-object-module\ 350}# #{e\ 3909}#))
                          #f)))))
-               (#{match-each+\ 3897}#
-                 (lambda (#{e\ 3931}#
-                          #{x-pat\ 3932}#
-                          #{y-pat\ 3933}#
-                          #{z-pat\ 3934}#
-                          #{w\ 3935}#
-                          #{r\ 3936}#
-                          #{mod\ 3937}#)
+               (#{match-each+\ 3898}#
+                 (lambda (#{e\ 3932}#
+                          #{x-pat\ 3933}#
+                          #{y-pat\ 3934}#
+                          #{z-pat\ 3935}#
+                          #{w\ 3936}#
+                          #{r\ 3937}#
+                          #{mod\ 3938}#)
                    (letrec*
-                     ((#{f\ 3948}#
-                        (lambda (#{e\ 3949}# #{w\ 3950}#)
-                          (if (pair? #{e\ 3949}#)
+                     ((#{f\ 3949}#
+                        (lambda (#{e\ 3950}# #{w\ 3951}#)
+                          (if (pair? #{e\ 3950}#)
                             (call-with-values
                               (lambda ()
-                                (#{f\ 3948}# (cdr #{e\ 3949}#) #{w\ 3950}#))
-                              (lambda (#{xr*\ 3953}#
-                                       #{y-pat\ 3954}#
-                                       #{r\ 3955}#)
-                                (if #{r\ 3955}#
-                                  (if (null? #{y-pat\ 3954}#)
+                                (#{f\ 3949}# (cdr #{e\ 3950}#) #{w\ 3951}#))
+                              (lambda (#{xr*\ 3954}#
+                                       #{y-pat\ 3955}#
+                                       #{r\ 3956}#)
+                                (if #{r\ 3956}#
+                                  (if (null? #{y-pat\ 3955}#)
                                     (begin
-                                      (let ((#{xr\ 3960}#
-                                              (#{match\ 3907}#
-                                                (car #{e\ 3949}#)
-                                                #{x-pat\ 3932}#
-                                                #{w\ 3950}#
+                                      (let ((#{xr\ 3961}#
+                                              (#{match\ 3908}#
+                                                (car #{e\ 3950}#)
+                                                #{x-pat\ 3933}#
+                                                #{w\ 3951}#
                                                 '()
-                                                #{mod\ 3937}#)))
-                                        (if #{xr\ 3960}#
+                                                #{mod\ 3938}#)))
+                                        (if #{xr\ 3961}#
                                           (values
-                                            (cons #{xr\ 3960}# #{xr*\ 3953}#)
-                                            #{y-pat\ 3954}#
-                                            #{r\ 3955}#)
+                                            (cons #{xr\ 3961}# #{xr*\ 3954}#)
+                                            #{y-pat\ 3955}#
+                                            #{r\ 3956}#)
                                           (values #f #f #f))))
                                     (values
                                       '()
-                                      (cdr #{y-pat\ 3954}#)
-                                      (#{match\ 3907}#
-                                        (car #{e\ 3949}#)
-                                        (car #{y-pat\ 3954}#)
-                                        #{w\ 3950}#
-                                        #{r\ 3955}#
-                                        #{mod\ 3937}#)))
+                                      (cdr #{y-pat\ 3955}#)
+                                      (#{match\ 3908}#
+                                        (car #{e\ 3950}#)
+                                        (car #{y-pat\ 3955}#)
+                                        #{w\ 3951}#
+                                        #{r\ 3956}#
+                                        #{mod\ 3938}#)))
                                   (values #f #f #f))))
-                            (if (#{syntax-object?\ 343}# #{e\ 3949}#)
-                              (#{f\ 3948}#
-                                (#{syntax-object-expression\ 345}# #{e\ 3949}#)
-                                (#{join-wraps\ 430}# #{w\ 3950}# #{e\ 3949}#))
+                            (if (#{syntax-object?\ 344}# #{e\ 3950}#)
+                              (#{f\ 3949}#
+                                (#{syntax-object-expression\ 346}# #{e\ 3950}#)
+                                (#{join-wraps\ 431}# #{w\ 3951}# #{e\ 3950}#))
                               (values
                                 '()
-                                #{y-pat\ 3933}#
-                                (#{match\ 3907}#
-                                  #{e\ 3949}#
-                                  #{z-pat\ 3934}#
-                                  #{w\ 3950}#
-                                  #{r\ 3936}#
-                                  #{mod\ 3937}#)))))))
-                     (begin (#{f\ 3948}# #{e\ 3931}# #{w\ 3935}#)))))
-               (#{match-each-any\ 3899}#
-                 (lambda (#{e\ 3964}# #{w\ 3965}# #{mod\ 3966}#)
-                   (if (pair? #{e\ 3964}#)
+                                #{y-pat\ 3934}#
+                                (#{match\ 3908}#
+                                  #{e\ 3950}#
+                                  #{z-pat\ 3935}#
+                                  #{w\ 3951}#
+                                  #{r\ 3937}#
+                                  #{mod\ 3938}#)))))))
+                     (begin (#{f\ 3949}# #{e\ 3932}# #{w\ 3936}#)))))
+               (#{match-each-any\ 3900}#
+                 (lambda (#{e\ 3965}# #{w\ 3966}# #{mod\ 3967}#)
+                   (if (pair? #{e\ 3965}#)
                      (begin
-                       (let ((#{l\ 3973}#
-                               (#{match-each-any\ 3899}#
-                                 (cdr #{e\ 3964}#)
-                                 #{w\ 3965}#
-                                 #{mod\ 3966}#)))
-                         (if #{l\ 3973}#
-                           (cons (#{wrap\ 448}#
-                                   (car #{e\ 3964}#)
-                                   #{w\ 3965}#
-                                   #{mod\ 3966}#)
-                                 #{l\ 3973}#)
+                       (let ((#{l\ 3974}#
+                               (#{match-each-any\ 3900}#
+                                 (cdr #{e\ 3965}#)
+                                 #{w\ 3966}#
+                                 #{mod\ 3967}#)))
+                         (if #{l\ 3974}#
+                           (cons (#{wrap\ 449}#
+                                   (car #{e\ 3965}#)
+                                   #{w\ 3966}#
+                                   #{mod\ 3967}#)
+                                 #{l\ 3974}#)
                            #f)))
-                     (if (null? #{e\ 3964}#)
+                     (if (null? #{e\ 3965}#)
                        '()
-                       (if (#{syntax-object?\ 343}# #{e\ 3964}#)
-                         (#{match-each-any\ 3899}#
-                           (#{syntax-object-expression\ 345}# #{e\ 3964}#)
-                           (#{join-wraps\ 430}#
-                             #{w\ 3965}#
-                             (#{syntax-object-wrap\ 347}# #{e\ 3964}#))
-                           #{mod\ 3966}#)
+                       (if (#{syntax-object?\ 344}# #{e\ 3965}#)
+                         (#{match-each-any\ 3900}#
+                           (#{syntax-object-expression\ 346}# #{e\ 3965}#)
+                           (#{join-wraps\ 431}#
+                             #{w\ 3966}#
+                             (#{syntax-object-wrap\ 348}# #{e\ 3965}#))
+                           #{mod\ 3967}#)
                          #f)))))
-               (#{match-empty\ 3901}#
-                 (lambda (#{p\ 3981}# #{r\ 3982}#)
-                   (if (null? #{p\ 3981}#)
-                     #{r\ 3982}#
-                     (if (eq? #{p\ 3981}# (quote _))
-                       #{r\ 3982}#
-                       (if (eq? #{p\ 3981}# (quote any))
-                         (cons (quote ()) #{r\ 3982}#)
-                         (if (pair? #{p\ 3981}#)
-                           (#{match-empty\ 3901}#
-                             (car #{p\ 3981}#)
-                             (#{match-empty\ 3901}#
-                               (cdr #{p\ 3981}#)
-                               #{r\ 3982}#))
-                           (if (eq? #{p\ 3981}# (quote each-any))
-                             (cons (quote ()) #{r\ 3982}#)
+               (#{match-empty\ 3902}#
+                 (lambda (#{p\ 3982}# #{r\ 3983}#)
+                   (if (null? #{p\ 3982}#)
+                     #{r\ 3983}#
+                     (if (eq? #{p\ 3982}# (quote _))
+                       #{r\ 3983}#
+                       (if (eq? #{p\ 3982}# (quote any))
+                         (cons (quote ()) #{r\ 3983}#)
+                         (if (pair? #{p\ 3982}#)
+                           (#{match-empty\ 3902}#
+                             (car #{p\ 3982}#)
+                             (#{match-empty\ 3902}#
+                               (cdr #{p\ 3982}#)
+                               #{r\ 3983}#))
+                           (if (eq? #{p\ 3982}# (quote each-any))
+                             (cons (quote ()) #{r\ 3983}#)
                              (begin
-                               (let ((#{atom-key\ 3998}#
-                                       (vector-ref #{p\ 3981}# 0)))
-                                 (if (eqv? #{atom-key\ 3998}# (quote each))
-                                   (#{match-empty\ 3901}#
-                                     (vector-ref #{p\ 3981}# 1)
-                                     #{r\ 3982}#)
-                                   (if (eqv? #{atom-key\ 3998}# (quote each+))
-                                     (#{match-empty\ 3901}#
-                                       (vector-ref #{p\ 3981}# 1)
-                                       (#{match-empty\ 3901}#
-                                         (reverse (vector-ref #{p\ 3981}# 2))
-                                         (#{match-empty\ 3901}#
-                                           (vector-ref #{p\ 3981}# 3)
-                                           #{r\ 3982}#)))
-                                     (if (if (eqv? #{atom-key\ 3998}#
+                               (let ((#{atom-key\ 3999}#
+                                       (vector-ref #{p\ 3982}# 0)))
+                                 (if (eqv? #{atom-key\ 3999}# (quote each))
+                                   (#{match-empty\ 3902}#
+                                     (vector-ref #{p\ 3982}# 1)
+                                     #{r\ 3983}#)
+                                   (if (eqv? #{atom-key\ 3999}# (quote each+))
+                                     (#{match-empty\ 3902}#
+                                       (vector-ref #{p\ 3982}# 1)
+                                       (#{match-empty\ 3902}#
+                                         (reverse (vector-ref #{p\ 3982}# 2))
+                                         (#{match-empty\ 3902}#
+                                           (vector-ref #{p\ 3982}# 3)
+                                           #{r\ 3983}#)))
+                                     (if (if (eqv? #{atom-key\ 3999}#
                                                    'free-id)
                                            #t
-                                           (eqv? #{atom-key\ 3998}#
+                                           (eqv? #{atom-key\ 3999}#
                                                  'atom))
-                                       #{r\ 3982}#
-                                       (if (eqv? #{atom-key\ 3998}#
+                                       #{r\ 3983}#
+                                       (if (eqv? #{atom-key\ 3999}#
                                                  'vector)
-                                         (#{match-empty\ 3901}#
-                                           (vector-ref #{p\ 3981}# 1)
-                                           #{r\ 3982}#))))))))))))))
-               (#{combine\ 3903}#
-                 (lambda (#{r*\ 4003}# #{r\ 4004}#)
-                   (if (null? (car #{r*\ 4003}#))
-                     #{r\ 4004}#
-                     (cons (map car #{r*\ 4003}#)
-                           (#{combine\ 3903}#
-                             (map cdr #{r*\ 4003}#)
-                             #{r\ 4004}#)))))
-               (#{match*\ 3905}#
-                 (lambda (#{e\ 4007}#
-                          #{p\ 4008}#
-                          #{w\ 4009}#
-                          #{r\ 4010}#
-                          #{mod\ 4011}#)
-                   (if (null? #{p\ 4008}#)
-                     (if (null? #{e\ 4007}#) #{r\ 4010}# #f)
-                     (if (pair? #{p\ 4008}#)
-                       (if (pair? #{e\ 4007}#)
-                         (#{match\ 3907}#
-                           (car #{e\ 4007}#)
-                           (car #{p\ 4008}#)
-                           #{w\ 4009}#
-                           (#{match\ 3907}#
-                             (cdr #{e\ 4007}#)
-                             (cdr #{p\ 4008}#)
-                             #{w\ 4009}#
-                             #{r\ 4010}#
-                             #{mod\ 4011}#)
-                           #{mod\ 4011}#)
+                                         (#{match-empty\ 3902}#
+                                           (vector-ref #{p\ 3982}# 1)
+                                           #{r\ 3983}#))))))))))))))
+               (#{combine\ 3904}#
+                 (lambda (#{r*\ 4004}# #{r\ 4005}#)
+                   (if (null? (car #{r*\ 4004}#))
+                     #{r\ 4005}#
+                     (cons (map car #{r*\ 4004}#)
+                           (#{combine\ 3904}#
+                             (map cdr #{r*\ 4004}#)
+                             #{r\ 4005}#)))))
+               (#{match*\ 3906}#
+                 (lambda (#{e\ 4008}#
+                          #{p\ 4009}#
+                          #{w\ 4010}#
+                          #{r\ 4011}#
+                          #{mod\ 4012}#)
+                   (if (null? #{p\ 4009}#)
+                     (if (null? #{e\ 4008}#) #{r\ 4011}# #f)
+                     (if (pair? #{p\ 4009}#)
+                       (if (pair? #{e\ 4008}#)
+                         (#{match\ 3908}#
+                           (car #{e\ 4008}#)
+                           (car #{p\ 4009}#)
+                           #{w\ 4010}#
+                           (#{match\ 3908}#
+                             (cdr #{e\ 4008}#)
+                             (cdr #{p\ 4009}#)
+                             #{w\ 4010}#
+                             #{r\ 4011}#
+                             #{mod\ 4012}#)
+                           #{mod\ 4012}#)
                          #f)
-                       (if (eq? #{p\ 4008}# (quote each-any))
+                       (if (eq? #{p\ 4009}# (quote each-any))
                          (begin
-                           (let ((#{l\ 4028}#
-                                   (#{match-each-any\ 3899}#
-                                     #{e\ 4007}#
-                                     #{w\ 4009}#
-                                     #{mod\ 4011}#)))
-                             (if #{l\ 4028}#
-                               (cons #{l\ 4028}# #{r\ 4010}#)
+                           (let ((#{l\ 4029}#
+                                   (#{match-each-any\ 3900}#
+                                     #{e\ 4008}#
+                                     #{w\ 4010}#
+                                     #{mod\ 4012}#)))
+                             (if #{l\ 4029}#
+                               (cons #{l\ 4029}# #{r\ 4011}#)
                                #f)))
                          (begin
-                           (let ((#{atom-key\ 4034}#
-                                   (vector-ref #{p\ 4008}# 0)))
-                             (if (eqv? #{atom-key\ 4034}# (quote each))
-                               (if (null? #{e\ 4007}#)
-                                 (#{match-empty\ 3901}#
-                                   (vector-ref #{p\ 4008}# 1)
-                                   #{r\ 4010}#)
+                           (let ((#{atom-key\ 4035}#
+                                   (vector-ref #{p\ 4009}# 0)))
+                             (if (eqv? #{atom-key\ 4035}# (quote each))
+                               (if (null? #{e\ 4008}#)
+                                 (#{match-empty\ 3902}#
+                                   (vector-ref #{p\ 4009}# 1)
+                                   #{r\ 4011}#)
                                  (begin
-                                   (let ((#{l\ 4037}#
-                                           (#{match-each\ 3895}#
-                                             #{e\ 4007}#
-                                             (vector-ref #{p\ 4008}# 1)
-                                             #{w\ 4009}#
-                                             #{mod\ 4011}#)))
-                                     (if #{l\ 4037}#
+                                   (let ((#{l\ 4038}#
+                                           (#{match-each\ 3896}#
+                                             #{e\ 4008}#
+                                             (vector-ref #{p\ 4009}# 1)
+                                             #{w\ 4010}#
+                                             #{mod\ 4012}#)))
+                                     (if #{l\ 4038}#
                                        (letrec*
-                                         ((#{collect\ 4042}#
-                                            (lambda (#{l\ 4043}#)
-                                              (if (null? (car #{l\ 4043}#))
-                                                #{r\ 4010}#
-                                                (cons (map car #{l\ 4043}#)
-                                                      (#{collect\ 4042}#
+                                         ((#{collect\ 4043}#
+                                            (lambda (#{l\ 4044}#)
+                                              (if (null? (car #{l\ 4044}#))
+                                                #{r\ 4011}#
+                                                (cons (map car #{l\ 4044}#)
+                                                      (#{collect\ 4043}#
                                                         (map cdr
-                                                             #{l\ 4043}#)))))))
+                                                             #{l\ 4044}#)))))))
                                          (begin
-                                           (#{collect\ 4042}# #{l\ 4037}#)))
+                                           (#{collect\ 4043}# #{l\ 4038}#)))
                                        #f))))
-                               (if (eqv? #{atom-key\ 4034}# (quote each+))
+                               (if (eqv? #{atom-key\ 4035}# (quote each+))
                                  (call-with-values
                                    (lambda ()
-                                     (#{match-each+\ 3897}#
-                                       #{e\ 4007}#
-                                       (vector-ref #{p\ 4008}# 1)
-                                       (vector-ref #{p\ 4008}# 2)
-                                       (vector-ref #{p\ 4008}# 3)
-                                       #{w\ 4009}#
-                                       #{r\ 4010}#
-                                       #{mod\ 4011}#))
-                                   (lambda (#{xr*\ 4045}#
-                                            #{y-pat\ 4046}#
-                                            #{r\ 4047}#)
-                                     (if #{r\ 4047}#
-                                       (if (null? #{y-pat\ 4046}#)
-                                         (if (null? #{xr*\ 4045}#)
-                                           (#{match-empty\ 3901}#
-                                             (vector-ref #{p\ 4008}# 1)
-                                             #{r\ 4047}#)
-                                           (#{combine\ 3903}#
-                                             #{xr*\ 4045}#
-                                             #{r\ 4047}#))
+                                     (#{match-each+\ 3898}#
+                                       #{e\ 4008}#
+                                       (vector-ref #{p\ 4009}# 1)
+                                       (vector-ref #{p\ 4009}# 2)
+                                       (vector-ref #{p\ 4009}# 3)
+                                       #{w\ 4010}#
+                                       #{r\ 4011}#
+                                       #{mod\ 4012}#))
+                                   (lambda (#{xr*\ 4046}#
+                                            #{y-pat\ 4047}#
+                                            #{r\ 4048}#)
+                                     (if #{r\ 4048}#
+                                       (if (null? #{y-pat\ 4047}#)
+                                         (if (null? #{xr*\ 4046}#)
+                                           (#{match-empty\ 3902}#
+                                             (vector-ref #{p\ 4009}# 1)
+                                             #{r\ 4048}#)
+                                           (#{combine\ 3904}#
+                                             #{xr*\ 4046}#
+                                             #{r\ 4048}#))
                                          #f)
                                        #f)))
-                                 (if (eqv? #{atom-key\ 4034}# (quote free-id))
-                                   (if (#{id?\ 379}# #{e\ 4007}#)
-                                     (if (#{free-id=?\ 438}#
-                                           (#{wrap\ 448}#
-                                             #{e\ 4007}#
-                                             #{w\ 4009}#
-                                             #{mod\ 4011}#)
-                                           (vector-ref #{p\ 4008}# 1))
-                                       #{r\ 4010}#
+                                 (if (eqv? #{atom-key\ 4035}# (quote free-id))
+                                   (if (#{id?\ 380}# #{e\ 4008}#)
+                                     (if (#{free-id=?\ 439}#
+                                           (#{wrap\ 449}#
+                                             #{e\ 4008}#
+                                             #{w\ 4010}#
+                                             #{mod\ 4012}#)
+                                           (vector-ref #{p\ 4009}# 1))
+                                       #{r\ 4011}#
                                        #f)
                                      #f)
-                                   (if (eqv? #{atom-key\ 4034}# (quote atom))
+                                   (if (eqv? #{atom-key\ 4035}# (quote atom))
                                      (if (equal?
-                                           (vector-ref #{p\ 4008}# 1)
-                                           (#{strip\ 490}#
-                                             #{e\ 4007}#
-                                             #{w\ 4009}#))
-                                       #{r\ 4010}#
+                                           (vector-ref #{p\ 4009}# 1)
+                                           (#{strip\ 491}#
+                                             #{e\ 4008}#
+                                             #{w\ 4010}#))
+                                       #{r\ 4011}#
                                        #f)
-                                     (if (eqv? #{atom-key\ 4034}#
+                                     (if (eqv? #{atom-key\ 4035}#
                                                'vector)
-                                       (if (vector? #{e\ 4007}#)
-                                         (#{match\ 3907}#
-                                           (vector->list #{e\ 4007}#)
-                                           (vector-ref #{p\ 4008}# 1)
-                                           #{w\ 4009}#
-                                           #{r\ 4010}#
-                                           #{mod\ 4011}#)
+                                       (if (vector? #{e\ 4008}#)
+                                         (#{match\ 3908}#
+                                           (vector->list #{e\ 4008}#)
+                                           (vector-ref #{p\ 4009}# 1)
+                                           #{w\ 4010}#
+                                           #{r\ 4011}#
+                                           #{mod\ 4012}#)
                                          #f)))))))))))))
-               (#{match\ 3907}#
-                 (lambda (#{e\ 4064}#
-                          #{p\ 4065}#
-                          #{w\ 4066}#
-                          #{r\ 4067}#
-                          #{mod\ 4068}#)
-                   (if (not #{r\ 4067}#)
+               (#{match\ 3908}#
+                 (lambda (#{e\ 4065}#
+                          #{p\ 4066}#
+                          #{w\ 4067}#
+                          #{r\ 4068}#
+                          #{mod\ 4069}#)
+                   (if (not #{r\ 4068}#)
                      #f
-                     (if (eq? #{p\ 4065}# (quote _))
-                       #{r\ 4067}#
-                       (if (eq? #{p\ 4065}# (quote any))
-                         (cons (#{wrap\ 448}#
-                                 #{e\ 4064}#
-                                 #{w\ 4066}#
-                                 #{mod\ 4068}#)
-                               #{r\ 4067}#)
-                         (if (#{syntax-object?\ 343}# #{e\ 4064}#)
-                           (#{match*\ 3905}#
-                             (#{syntax-object-expression\ 345}# #{e\ 4064}#)
-                             #{p\ 4065}#
-                             (#{join-wraps\ 430}#
-                               #{w\ 4066}#
-                               (#{syntax-object-wrap\ 347}# #{e\ 4064}#))
-                             #{r\ 4067}#
-                             (#{syntax-object-module\ 349}# #{e\ 4064}#))
-                           (#{match*\ 3905}#
-                             #{e\ 4064}#
-                             #{p\ 4065}#
-                             #{w\ 4066}#
-                             #{r\ 4067}#
-                             #{mod\ 4068}#))))))))
+                     (if (eq? #{p\ 4066}# (quote _))
+                       #{r\ 4068}#
+                       (if (eq? #{p\ 4066}# (quote any))
+                         (cons (#{wrap\ 449}#
+                                 #{e\ 4065}#
+                                 #{w\ 4067}#
+                                 #{mod\ 4069}#)
+                               #{r\ 4068}#)
+                         (if (#{syntax-object?\ 344}# #{e\ 4065}#)
+                           (#{match*\ 3906}#
+                             (#{syntax-object-expression\ 346}# #{e\ 4065}#)
+                             #{p\ 4066}#
+                             (#{join-wraps\ 431}#
+                               #{w\ 4067}#
+                               (#{syntax-object-wrap\ 348}# #{e\ 4065}#))
+                             #{r\ 4068}#
+                             (#{syntax-object-module\ 350}# #{e\ 4065}#))
+                           (#{match*\ 3906}#
+                             #{e\ 4065}#
+                             #{p\ 4066}#
+                             #{w\ 4067}#
+                             #{r\ 4068}#
+                             #{mod\ 4069}#))))))))
               (begin
                 (set! $sc-dispatch
-                  (lambda (#{e\ 4083}# #{p\ 4084}#)
-                    (if (eq? #{p\ 4084}# (quote any))
-                      (list #{e\ 4083}#)
-                      (if (eq? #{p\ 4084}# (quote _))
+                  (lambda (#{e\ 4084}# #{p\ 4085}#)
+                    (if (eq? #{p\ 4085}# (quote any))
+                      (list #{e\ 4084}#)
+                      (if (eq? #{p\ 4085}# (quote _))
                         '()
-                        (if (#{syntax-object?\ 343}# #{e\ 4083}#)
-                          (#{match*\ 3905}#
-                            (#{syntax-object-expression\ 345}# #{e\ 4083}#)
-                            #{p\ 4084}#
-                            (#{syntax-object-wrap\ 347}# #{e\ 4083}#)
+                        (if (#{syntax-object?\ 344}# #{e\ 4084}#)
+                          (#{match*\ 3906}#
+                            (#{syntax-object-expression\ 346}# #{e\ 4084}#)
+                            #{p\ 4085}#
+                            (#{syntax-object-wrap\ 348}# #{e\ 4084}#)
                             '()
-                            (#{syntax-object-module\ 349}# #{e\ 4083}#))
-                          (#{match*\ 3905}#
-                            #{e\ 4083}#
-                            #{p\ 4084}#
+                            (#{syntax-object-module\ 350}# #{e\ 4084}#))
+                          (#{match*\ 3906}#
+                            #{e\ 4084}#
+                            #{p\ 4085}#
                             '(())
                             '()
                             #f))))))))))))))
@@ -14614,81 +14614,81 @@
   (make-syntax-transformer
     'with-syntax
     'macro
-    (lambda (#{x\ 4095}#)
-      (let ((#{tmp\ 4097}# #{x\ 4095}#))
-        (let ((#{tmp\ 4098}#
+    (lambda (#{x\ 4096}#)
+      (let ((#{tmp\ 4098}# #{x\ 4096}#))
+        (let ((#{tmp\ 4099}#
                 ($sc-dispatch
-                  #{tmp\ 4097}#
+                  #{tmp\ 4098}#
                   '(_ () any . each-any))))
-          (if #{tmp\ 4098}#
+          (if #{tmp\ 4099}#
             (@apply
-              (lambda (#{e1\ 4101}# #{e2\ 4102}#)
+              (lambda (#{e1\ 4102}# #{e2\ 4103}#)
                 (cons '#(syntax-object
                          begin
                          ((top)
                           #(ribcage
                             #(e1 e2)
                             #((top) (top))
-                            #("i4099" "i4100"))
+                            #("i4100" "i4101"))
                           #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i4096")))
+                          #(ribcage #(x) #((top)) #("i4097")))
                          (hygiene guile))
-                      (cons #{e1\ 4101}# #{e2\ 4102}#)))
-              #{tmp\ 4098}#)
-            (let ((#{tmp\ 4104}#
+                      (cons #{e1\ 4102}# #{e2\ 4103}#)))
+              #{tmp\ 4099}#)
+            (let ((#{tmp\ 4105}#
                     ($sc-dispatch
-                      #{tmp\ 4097}#
+                      #{tmp\ 4098}#
                       '(_ ((any any)) any . each-any))))
-              (if #{tmp\ 4104}#
+              (if #{tmp\ 4105}#
                 (@apply
-                  (lambda (#{out\ 4109}#
-                           #{in\ 4110}#
-                           #{e1\ 4111}#
-                           #{e2\ 4112}#)
+                  (lambda (#{out\ 4110}#
+                           #{in\ 4111}#
+                           #{e1\ 4112}#
+                           #{e2\ 4113}#)
                     (list '#(syntax-object
                              syntax-case
                              ((top)
                               #(ribcage
                                 #(out in e1 e2)
                                 #((top) (top) (top) (top))
-                                #("i4105" "i4106" "i4107" "i4108"))
+                                #("i4106" "i4107" "i4108" "i4109"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i4096")))
+                              #(ribcage #(x) #((top)) #("i4097")))
                              (hygiene guile))
-                          #{in\ 4110}#
+                          #{in\ 4111}#
                           '()
-                          (list #{out\ 4109}#
+                          (list #{out\ 4110}#
                                 (cons '#(syntax-object
                                          begin
                                          ((top)
                                           #(ribcage
                                             #(out in e1 e2)
                                             #((top) (top) (top) (top))
-                                            #("i4105" "i4106" "i4107" "i4108"))
+                                            #("i4106" "i4107" "i4108" "i4109"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i4096")))
+                                          #(ribcage #(x) #((top)) #("i4097")))
                                          (hygiene guile))
-                                      (cons #{e1\ 4111}# #{e2\ 4112}#)))))
-                  #{tmp\ 4104}#)
-                (let ((#{tmp\ 4114}#
+                                      (cons #{e1\ 4112}# #{e2\ 4113}#)))))
+                  #{tmp\ 4105}#)
+                (let ((#{tmp\ 4115}#
                         ($sc-dispatch
-                          #{tmp\ 4097}#
+                          #{tmp\ 4098}#
                           '(_ #(each (any any)) any . each-any))))
-                  (if #{tmp\ 4114}#
+                  (if #{tmp\ 4115}#
                     (@apply
-                      (lambda (#{out\ 4119}#
-                               #{in\ 4120}#
-                               #{e1\ 4121}#
-                               #{e2\ 4122}#)
+                      (lambda (#{out\ 4120}#
+                               #{in\ 4121}#
+                               #{e1\ 4122}#
+                               #{e2\ 4123}#)
                         (list '#(syntax-object
                                  syntax-case
                                  ((top)
                                   #(ribcage
                                     #(out in e1 e2)
                                     #((top) (top) (top) (top))
-                                    #("i4115" "i4116" "i4117" "i4118"))
+                                    #("i4116" "i4117" "i4118" "i4119"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i4096")))
+                                  #(ribcage #(x) #((top)) #("i4097")))
                                  (hygiene guile))
                               (cons '#(syntax-object
                                        list
@@ -14696,61 +14696,61 @@
                                         #(ribcage
                                           #(out in e1 e2)
                                           #((top) (top) (top) (top))
-                                          #("i4115" "i4116" "i4117" "i4118"))
+                                          #("i4116" "i4117" "i4118" "i4119"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i4096")))
+                                        #(ribcage #(x) #((top)) #("i4097")))
                                        (hygiene guile))
-                                    #{in\ 4120}#)
+                                    #{in\ 4121}#)
                               '()
-                              (list #{out\ 4119}#
+                              (list #{out\ 4120}#
                                     (cons '#(syntax-object
                                              begin
                                              ((top)
                                               #(ribcage
                                                 #(out in e1 e2)
                                                 #((top) (top) (top) (top))
-                                                #("i4115"
-                                                  "i4116"
+                                                #("i4116"
                                                   "i4117"
-                                                  "i4118"))
+                                                  "i4118"
+                                                  "i4119"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i4096")))
+                                                #("i4097")))
                                              (hygiene guile))
-                                          (cons #{e1\ 4121}# #{e2\ 4122}#)))))
-                      #{tmp\ 4114}#)
+                                          (cons #{e1\ 4122}# #{e2\ 4123}#)))))
+                      #{tmp\ 4115}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 4097}#)))))))))))
+                      #{tmp\ 4098}#)))))))))))
 
 (define syntax-rules
   (make-syntax-transformer
     'syntax-rules
     'macro
-    (lambda (#{x\ 4126}#)
-      (let ((#{tmp\ 4128}# #{x\ 4126}#))
-        (let ((#{tmp\ 4129}#
+    (lambda (#{x\ 4127}#)
+      (let ((#{tmp\ 4129}# #{x\ 4127}#))
+        (let ((#{tmp\ 4130}#
                 ($sc-dispatch
-                  #{tmp\ 4128}#
+                  #{tmp\ 4129}#
                   '(_ each-any . #(each ((any . any) any))))))
-          (if #{tmp\ 4129}#
+          (if #{tmp\ 4130}#
             (@apply
-              (lambda (#{k\ 4134}#
-                       #{keyword\ 4135}#
-                       #{pattern\ 4136}#
-                       #{template\ 4137}#)
+              (lambda (#{k\ 4135}#
+                       #{keyword\ 4136}#
+                       #{pattern\ 4137}#
+                       #{template\ 4138}#)
                 (list '#(syntax-object
                          lambda
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
-                            #("i4130" "i4131" "i4132" "i4133"))
+                            #("i4131" "i4132" "i4133" "i4134"))
                           #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i4127")))
+                          #(ribcage #(x) #((top)) #("i4128")))
                          (hygiene guile))
                       '(#(syntax-object
                           x
@@ -14758,9 +14758,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i4130" "i4131" "i4132" "i4133"))
+                             #("i4131" "i4132" "i4133" "i4134"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i4127")))
+                           #(ribcage #(x) #((top)) #("i4128")))
                           (hygiene guile)))
                       (vector
                         '(#(syntax-object
@@ -14769,9 +14769,9 @@
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
-                               #("i4130" "i4131" "i4132" "i4133"))
+                               #("i4131" "i4132" "i4133" "i4134"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i4127")))
+                             #(ribcage #(x) #((top)) #("i4128")))
                             (hygiene guile))
                           .
                           #(syntax-object
@@ -14780,9 +14780,9 @@
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
-                               #("i4130" "i4131" "i4132" "i4133"))
+                               #("i4131" "i4132" "i4133" "i4134"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i4127")))
+                             #(ribcage #(x) #((top)) #("i4128")))
                             (hygiene guile)))
                         (cons '#(syntax-object
                                  patterns
@@ -14790,20 +14790,20 @@
                                   #(ribcage
                                     #(k keyword pattern template)
                                     #((top) (top) (top) (top))
-                                    #("i4130" "i4131" "i4132" "i4133"))
+                                    #("i4131" "i4132" "i4133" "i4134"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i4127")))
+                                  #(ribcage #(x) #((top)) #("i4128")))
                                  (hygiene guile))
-                              #{pattern\ 4136}#))
+                              #{pattern\ 4137}#))
                       (cons '#(syntax-object
                                syntax-case
                                ((top)
                                 #(ribcage
                                   #(k keyword pattern template)
                                   #((top) (top) (top) (top))
-                                  #("i4130" "i4131" "i4132" "i4133"))
+                                  #("i4131" "i4132" "i4133" "i4134"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i4127")))
+                                #(ribcage #(x) #((top)) #("i4128")))
                                (hygiene guile))
                             (cons '#(syntax-object
                                      x
@@ -14811,13 +14811,13 @@
                                       #(ribcage
                                         #(k keyword pattern template)
                                         #((top) (top) (top) (top))
-                                        #("i4130" "i4131" "i4132" "i4133"))
+                                        #("i4131" "i4132" "i4133" "i4134"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i4127")))
+                                      #(ribcage #(x) #((top)) #("i4128")))
                                      (hygiene guile))
-                                  (cons #{k\ 4134}#
-                                        (map (lambda (#{tmp\ 4141}#
-                                                      #{tmp\ 4140}#)
+                                  (cons #{k\ 4135}#
+                                        (map (lambda (#{tmp\ 4142}#
+                                                      #{tmp\ 4141}#)
                                                (list (cons '#(syntax-object
                                                               dummy
                                                               ((top)
@@ -14830,10 +14830,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i4130"
-                                                                   "i4131"
+                                                                 #("i4131"
                                                                    "i4132"
-                                                                   "i4133"))
+                                                                   "i4133"
+                                                                   "i4134"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -14841,9 +14841,9 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i4127")))
+                                                                 #("i4128")))
                                                               (hygiene guile))
-                                                           #{tmp\ 4140}#)
+                                                           #{tmp\ 4141}#)
                                                      (list '#(syntax-object
                                                               syntax
                                                               ((top)
@@ -14856,10 +14856,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i4130"
-                                                                   "i4131"
+                                                                 #("i4131"
                                                                    "i4132"
-                                                                   "i4133"))
+                                                                   "i4133"
+                                                                   "i4134"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -14867,47 +14867,223 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i4127")))
+                                                                 #("i4128")))
                                                               (hygiene guile))
-                                                           #{tmp\ 4141}#)))
-                                             #{template\ 4137}#
-                                             #{pattern\ 4136}#))))))
-              #{tmp\ 4129}#)
-            (syntax-violation
-              #f
-              "source expression failed to match any pattern"
-              #{tmp\ 4128}#)))))))
+                                                           #{tmp\ 4142}#)))
+                                             #{template\ 4138}#
+                                             #{pattern\ 4137}#))))))