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-13-56-g20


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-13-56-g2090f90
Date: Tue, 16 Nov 2010 01:54:15 +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=2090f909b4675286b0de11936771a77a515d885e

The branch, master has been updated
       via  2090f909b4675286b0de11936771a77a515d885e (commit)
       via  6cb423613ebf6103d15be355041bdd789c3cb05a (commit)
       via  1811d0332f145f8e393c790cf21529c92626bf3e (commit)
       via  8f1870f20f3a6dcd74078d7cc52523dfa2a2a494 (commit)
      from  a6f3af1618bb28b96ac44b77f6a69afe97995516 (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 2090f909b4675286b0de11936771a77a515d885e
Author: Andy Wingo <address@hidden>
Date:   Tue Nov 16 02:56:43 2010 +0100

    add proper pretty-printing for syntax errors
    
    * module/system/repl/repl.scm (display-syntax-error): New helper,
      displays a syntax error.
      (abort-on-error, run-repl): Use it.
    
    * libguile/throw.c (handler_message): Re-code the same thing in C.

commit 6cb423613ebf6103d15be355041bdd789c3cb05a
Author: Andy Wingo <address@hidden>
Date:   Tue Nov 16 02:55:46 2010 +0100

    remove syntax-error and call-with-compile-error-catch from compile.scm
    
    * module/system/base/compile.scm: Remove unused syntax-error and
      call-with-compile-error-catch exports.

commit 1811d0332f145f8e393c790cf21529c92626bf3e
Author: Andy Wingo <address@hidden>
Date:   Tue Nov 16 02:09:39 2010 +0100

    ecmascript syntax errors throw to 'syntax-error
    
    * module/language/ecmascript/parse.scm (syntax-error):
    * module/language/ecmascript/tokenize.scm (syntax-error): Throw to
      'syntax-error as psyntax does.

commit 8f1870f20f3a6dcd74078d7cc52523dfa2a2a494
Author: Andy Wingo <address@hidden>
Date:   Tue Nov 16 02:09:03 2010 +0100

    syntax-violation uses lambda*, throws a structured message
    
    * module/ice-9/psyntax.scm (syntax-violation): Use lambda* for subform
      arg. Instead of using scm-error, just throw to 'syntax-error with all
      we got.
    
    * module/ice-9/psyntax-pp.scm (#{and-map*\ 37}): Regenerated.

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

Summary of changes:
 libguile/throw.c                        |   55 +-
 module/ice-9/psyntax-pp.scm             |16489 +++++++++++++++----------------
 module/ice-9/psyntax.scm                |   16 +-
 module/language/ecmascript/parse.scm    |    2 +-
 module/language/ecmascript/tokenize.scm |    2 +-
 module/system/base/compile.scm          |   26 +-
 module/system/repl/repl.scm             |   27 +-
 7 files changed, 8280 insertions(+), 8337 deletions(-)

diff --git a/libguile/throw.c b/libguile/throw.c
index 238c52c..6234077 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -341,7 +341,60 @@ handler_message (void *handler_data, SCM tag, SCM args)
   char *prog_name = (char *) handler_data;
   SCM p = scm_current_error_port ();
 
-  if (scm_ilength (args) == 4)
+  if (scm_is_eq (tag, scm_from_locale_symbol ("syntax-error"))
+      && scm_ilength (args) >= 5)
+    {
+      SCM who = SCM_CAR (args);
+      SCM what = SCM_CADR (args);
+      SCM where = SCM_CADDR (args);
+      SCM form = SCM_CADDDR (args);
+      SCM subform = SCM_CAR (SCM_CDDDDR (args));
+
+      scm_puts ("Syntax error:\n", p);
+
+      if (scm_is_true (where))
+        {
+          SCM file, line, col;
+
+          file = scm_assq_ref (where, scm_sym_filename);
+          line = scm_assq_ref (where, scm_sym_line);
+          col = scm_assq_ref (where, scm_sym_column);
+
+          if (scm_is_true (file))
+            scm_display (file, p);
+          else
+            scm_puts ("unknown file", p);
+          scm_puts (": ", p);
+          scm_display (line, p);
+          scm_puts (": ", p);
+          scm_display (col, p);
+          scm_puts (": ", p);
+        }
+      else
+        scm_puts ("unknown location: ", p);
+
+      if (scm_is_true (who))
+        {
+          scm_display (who, p);
+          scm_puts (": ", p);
+        }
+      
+      scm_display (what, p);
+
+      if (scm_is_true (subform))
+        {
+          scm_puts (" in subform ", p);
+          scm_write (subform, p);
+          scm_puts (" of ", p);
+          scm_write (form, p);
+        }
+      else if (scm_is_true (form))
+        {
+          scm_puts (" in form ", p);
+          scm_write (form, p);
+        }
+    }
+  else if (scm_ilength (args) == 4)
     {
       SCM stack   = scm_make_stack (SCM_BOOL_T, SCM_EOL);
       SCM subr    = SCM_CAR (args);
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 9bcc25d..098fb32 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1207 +2,1203 @@
 (if #f #f)
 
 (letrec*
-  ((#{and-map*\ 36}#
-     (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
+  ((#{and-map*\ 37}#
+     (lambda (#{f\ 201}# #{first\ 202}# . #{rest\ 203}#)
        (begin
-         (let ((#{t\ 208}# (null? #{first\ 201}#)))
-           (if #{t\ 208}#
-             #{t\ 208}#
-             (if (null? #{rest\ 202}#)
+         (let ((#{t\ 209}# (null? #{first\ 202}#)))
+           (if #{t\ 209}#
+             #{t\ 209}#
+             (if (null? #{rest\ 203}#)
                (letrec*
-                 ((#{andmap\ 212}#
-                    (lambda (#{first\ 213}#)
+                 ((#{andmap\ 213}#
+                    (lambda (#{first\ 214}#)
                       (begin
-                        (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}#)
+                        (let ((#{x\ 217}# (car #{first\ 214}#))
+                              (#{first\ 218}# (cdr #{first\ 214}#)))
+                          (if (null? #{first\ 218}#)
+                            (#{f\ 201}# #{x\ 217}#)
+                            (if (#{f\ 201}# #{x\ 217}#)
+                              (#{andmap\ 213}# #{first\ 218}#)
                               #f)))))))
-                 (begin (#{andmap\ 212}# #{first\ 201}#)))
+                 (begin (#{andmap\ 213}# #{first\ 202}#)))
                (letrec*
-                 ((#{andmap\ 223}#
-                    (lambda (#{first\ 224}# #{rest\ 225}#)
+                 ((#{andmap\ 224}#
+                    (lambda (#{first\ 225}# #{rest\ 226}#)
                       (begin
-                        (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}#)
+                        (let ((#{x\ 231}# (car #{first\ 225}#))
+                              (#{xr\ 232}# (map car #{rest\ 226}#))
+                              (#{first\ 233}# (cdr #{first\ 225}#))
+                              (#{rest\ 234}# (map cdr #{rest\ 226}#)))
+                          (if (null? #{first\ 233}#)
+                            (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#)
+                            (if (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#)
+                              (#{andmap\ 224}# #{first\ 233}# #{rest\ 234}#)
                               #f)))))))
                  (begin
-                   (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
+                   (#{andmap\ 224}# #{first\ 202}# #{rest\ 203}#))))))))))
   (begin
-    (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}#
+    (let ((#{make-primitive-ref\ 243}# (if #f #f))
+          (#{fx+\ 282}# (if #f #f))
+          (#{fx-\ 284}# (if #f #f))
+          (#{fx=\ 286}# (if #f #f))
+          (#{fx<\ 288}# (if #f #f))
+          (#{set-syntax-object-expression!\ 353}#
             (if #f #f))
-          (#{set-syntax-object-wrap!\ 354}# (if #f #f))
-          (#{set-syntax-object-module!\ 356}# (if #f #f))
-          (#{ribcage?\ 398}# (if #f #f)))
+          (#{set-syntax-object-wrap!\ 355}# (if #f #f))
+          (#{set-syntax-object-module!\ 357}# (if #f #f))
+          (#{ribcage?\ 399}# (if #f #f)))
       (letrec*
-        ((#{make-void\ 238}#
-           (lambda (#{src\ 750}#)
+        ((#{make-void\ 239}#
+           (lambda (#{src\ 751}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 0)
-               #{src\ 750}#)))
-         (#{make-const\ 240}#
-           (lambda (#{src\ 752}# #{exp\ 753}#)
+               #{src\ 751}#)))
+         (#{make-const\ 241}#
+           (lambda (#{src\ 753}# #{exp\ 754}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 1)
-               #{src\ 752}#
-               #{exp\ 753}#)))
-         (#{make-lexical-ref\ 244}#
-           (lambda (#{src\ 760}# #{name\ 761}# #{gensym\ 762}#)
+               #{src\ 753}#
+               #{exp\ 754}#)))
+         (#{make-lexical-ref\ 245}#
+           (lambda (#{src\ 761}# #{name\ 762}# #{gensym\ 763}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 3)
-               #{src\ 760}#
-               #{name\ 761}#
-               #{gensym\ 762}#)))
-         (#{make-lexical-set\ 246}#
-           (lambda (#{src\ 766}#
-                    #{name\ 767}#
-                    #{gensym\ 768}#
-                    #{exp\ 769}#)
+               #{src\ 761}#
+               #{name\ 762}#
+               #{gensym\ 763}#)))
+         (#{make-lexical-set\ 247}#
+           (lambda (#{src\ 767}#
+                    #{name\ 768}#
+                    #{gensym\ 769}#
+                    #{exp\ 770}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 4)
-               #{src\ 766}#
-               #{name\ 767}#
-               #{gensym\ 768}#
-               #{exp\ 769}#)))
-         (#{make-module-ref\ 248}#
-           (lambda (#{src\ 774}#
-                    #{mod\ 775}#
-                    #{name\ 776}#
-                    #{public?\ 777}#)
+               #{src\ 767}#
+               #{name\ 768}#
+               #{gensym\ 769}#
+               #{exp\ 770}#)))
+         (#{make-module-ref\ 249}#
+           (lambda (#{src\ 775}#
+                    #{mod\ 776}#
+                    #{name\ 777}#
+                    #{public?\ 778}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 5)
-               #{src\ 774}#
-               #{mod\ 775}#
-               #{name\ 776}#
-               #{public?\ 777}#)))
-         (#{make-module-set\ 250}#
-           (lambda (#{src\ 782}#
-                    #{mod\ 783}#
-                    #{name\ 784}#
-                    #{public?\ 785}#
-                    #{exp\ 786}#)
+               #{src\ 775}#
+               #{mod\ 776}#
+               #{name\ 777}#
+               #{public?\ 778}#)))
+         (#{make-module-set\ 251}#
+           (lambda (#{src\ 783}#
+                    #{mod\ 784}#
+                    #{name\ 785}#
+                    #{public?\ 786}#
+                    #{exp\ 787}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 6)
-               #{src\ 782}#
-               #{mod\ 783}#
-               #{name\ 784}#
-               #{public?\ 785}#
-               #{exp\ 786}#)))
-         (#{make-toplevel-ref\ 252}#
-           (lambda (#{src\ 792}# #{name\ 793}#)
+               #{src\ 783}#
+               #{mod\ 784}#
+               #{name\ 785}#
+               #{public?\ 786}#
+               #{exp\ 787}#)))
+         (#{make-toplevel-ref\ 253}#
+           (lambda (#{src\ 793}# #{name\ 794}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 7)
-               #{src\ 792}#
-               #{name\ 793}#)))
-         (#{make-toplevel-set\ 254}#
-           (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#)
+               #{src\ 793}#
+               #{name\ 794}#)))
+         (#{make-toplevel-set\ 255}#
+           (lambda (#{src\ 797}# #{name\ 798}# #{exp\ 799}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 8)
-               #{src\ 796}#
-               #{name\ 797}#
-               #{exp\ 798}#)))
-         (#{make-toplevel-define\ 256}#
-           (lambda (#{src\ 802}# #{name\ 803}# #{exp\ 804}#)
+               #{src\ 797}#
+               #{name\ 798}#
+               #{exp\ 799}#)))
+         (#{make-toplevel-define\ 257}#
+           (lambda (#{src\ 803}# #{name\ 804}# #{exp\ 805}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 9)
-               #{src\ 802}#
-               #{name\ 803}#
-               #{exp\ 804}#)))
-         (#{make-conditional\ 258}#
-           (lambda (#{src\ 808}#
-                    #{test\ 809}#
-                    #{consequent\ 810}#
-                    #{alternate\ 811}#)
+               #{src\ 803}#
+               #{name\ 804}#
+               #{exp\ 805}#)))
+         (#{make-conditional\ 259}#
+           (lambda (#{src\ 809}#
+                    #{test\ 810}#
+                    #{consequent\ 811}#
+                    #{alternate\ 812}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 10)
-               #{src\ 808}#
-               #{test\ 809}#
-               #{consequent\ 810}#
-               #{alternate\ 811}#)))
-         (#{make-application\ 260}#
-           (lambda (#{src\ 816}# #{proc\ 817}# #{args\ 818}#)
+               #{src\ 809}#
+               #{test\ 810}#
+               #{consequent\ 811}#
+               #{alternate\ 812}#)))
+         (#{make-application\ 261}#
+           (lambda (#{src\ 817}# #{proc\ 818}# #{args\ 819}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 11)
-               #{src\ 816}#
-               #{proc\ 817}#
-               #{args\ 818}#)))
-         (#{make-sequence\ 262}#
-           (lambda (#{src\ 822}# #{exps\ 823}#)
+               #{src\ 817}#
+               #{proc\ 818}#
+               #{args\ 819}#)))
+         (#{make-sequence\ 263}#
+           (lambda (#{src\ 823}# #{exps\ 824}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 12)
-               #{src\ 822}#
-               #{exps\ 823}#)))
-         (#{make-lambda\ 264}#
-           (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#)
+               #{src\ 823}#
+               #{exps\ 824}#)))
+         (#{make-lambda\ 265}#
+           (lambda (#{src\ 827}# #{meta\ 828}# #{body\ 829}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 13)
-               #{src\ 826}#
-               #{meta\ 827}#
-               #{body\ 828}#)))
-         (#{make-lambda-case\ 266}#
-           (lambda (#{src\ 832}#
-                    #{req\ 833}#
-                    #{opt\ 834}#
-                    #{rest\ 835}#
-                    #{kw\ 836}#
-                    #{inits\ 837}#
-                    #{gensyms\ 838}#
-                    #{body\ 839}#
-                    #{alternate\ 840}#)
+               #{src\ 827}#
+               #{meta\ 828}#
+               #{body\ 829}#)))
+         (#{make-lambda-case\ 267}#
+           (lambda (#{src\ 833}#
+                    #{req\ 834}#
+                    #{opt\ 835}#
+                    #{rest\ 836}#
+                    #{kw\ 837}#
+                    #{inits\ 838}#
+                    #{gensyms\ 839}#
+                    #{body\ 840}#
+                    #{alternate\ 841}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 14)
-               #{src\ 832}#
-               #{req\ 833}#
-               #{opt\ 834}#
-               #{rest\ 835}#
-               #{kw\ 836}#
-               #{inits\ 837}#
-               #{gensyms\ 838}#
-               #{body\ 839}#
-               #{alternate\ 840}#)))
-         (#{make-let\ 268}#
-           (lambda (#{src\ 850}#
-                    #{names\ 851}#
-                    #{gensyms\ 852}#
-                    #{vals\ 853}#
-                    #{body\ 854}#)
+               #{src\ 833}#
+               #{req\ 834}#
+               #{opt\ 835}#
+               #{rest\ 836}#
+               #{kw\ 837}#
+               #{inits\ 838}#
+               #{gensyms\ 839}#
+               #{body\ 840}#
+               #{alternate\ 841}#)))
+         (#{make-let\ 269}#
+           (lambda (#{src\ 851}#
+                    #{names\ 852}#
+                    #{gensyms\ 853}#
+                    #{vals\ 854}#
+                    #{body\ 855}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 15)
-               #{src\ 850}#
-               #{names\ 851}#
-               #{gensyms\ 852}#
-               #{vals\ 853}#
-               #{body\ 854}#)))
-         (#{make-letrec\ 270}#
-           (lambda (#{src\ 860}#
-                    #{in-order?\ 861}#
-                    #{names\ 862}#
-                    #{gensyms\ 863}#
-                    #{vals\ 864}#
-                    #{body\ 865}#)
+               #{src\ 851}#
+               #{names\ 852}#
+               #{gensyms\ 853}#
+               #{vals\ 854}#
+               #{body\ 855}#)))
+         (#{make-letrec\ 271}#
+           (lambda (#{src\ 861}#
+                    #{in-order?\ 862}#
+                    #{names\ 863}#
+                    #{gensyms\ 864}#
+                    #{vals\ 865}#
+                    #{body\ 866}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 16)
-               #{src\ 860}#
-               #{in-order?\ 861}#
-               #{names\ 862}#
-               #{gensyms\ 863}#
-               #{vals\ 864}#
-               #{body\ 865}#)))
-         (#{make-dynlet\ 272}#
-           (lambda (#{src\ 872}#
-                    #{fluids\ 873}#
-                    #{vals\ 874}#
-                    #{body\ 875}#)
+               #{src\ 861}#
+               #{in-order?\ 862}#
+               #{names\ 863}#
+               #{gensyms\ 864}#
+               #{vals\ 865}#
+               #{body\ 866}#)))
+         (#{make-dynlet\ 273}#
+           (lambda (#{src\ 873}#
+                    #{fluids\ 874}#
+                    #{vals\ 875}#
+                    #{body\ 876}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 17)
-               #{src\ 872}#
-               #{fluids\ 873}#
-               #{vals\ 874}#
-               #{body\ 875}#)))
-         (#{lambda?\ 275}#
-           (lambda (#{x\ 880}#)
-             (if (struct? #{x\ 880}#)
-               (eq? (struct-vtable #{x\ 880}#)
+               #{src\ 873}#
+               #{fluids\ 874}#
+               #{vals\ 875}#
+               #{body\ 876}#)))
+         (#{lambda?\ 276}#
+           (lambda (#{x\ 881}#)
+             (if (struct? #{x\ 881}#)
+               (eq? (struct-vtable #{x\ 881}#)
                     (vector-ref %expanded-vtables 13))
                #f)))
-         (#{lambda-meta\ 277}#
-           (lambda (#{x\ 884}#) (struct-ref #{x\ 884}# 1)))
-         (#{set-lambda-meta!\ 279}#
-           (lambda (#{x\ 886}# #{v\ 887}#)
-             (struct-set! #{x\ 886}# 1 #{v\ 887}#)))
-         (#{top-level-eval-hook\ 289}#
-           (lambda (#{x\ 890}# #{mod\ 891}#)
-             (primitive-eval #{x\ 890}#)))
-         (#{local-eval-hook\ 291}#
-           (lambda (#{x\ 894}# #{mod\ 895}#)
-             (primitive-eval #{x\ 894}#)))
-         (#{put-global-definition-hook\ 294}#
-           (lambda (#{symbol\ 898}# #{type\ 899}# #{val\ 900}#)
+         (#{lambda-meta\ 278}#
+           (lambda (#{x\ 885}#) (struct-ref #{x\ 885}# 1)))
+         (#{set-lambda-meta!\ 280}#
+           (lambda (#{x\ 887}# #{v\ 888}#)
+             (struct-set! #{x\ 887}# 1 #{v\ 888}#)))
+         (#{top-level-eval-hook\ 290}#
+           (lambda (#{x\ 891}# #{mod\ 892}#)
+             (primitive-eval #{x\ 891}#)))
+         (#{local-eval-hook\ 292}#
+           (lambda (#{x\ 895}# #{mod\ 896}#)
+             (primitive-eval #{x\ 895}#)))
+         (#{put-global-definition-hook\ 295}#
+           (lambda (#{symbol\ 899}# #{type\ 900}# #{val\ 901}#)
              (module-define!
                (current-module)
-               #{symbol\ 898}#
+               #{symbol\ 899}#
                (make-syntax-transformer
-                 #{symbol\ 898}#
-                 #{type\ 899}#
-                 #{val\ 900}#))))
-         (#{get-global-definition-hook\ 296}#
-           (lambda (#{symbol\ 904}# #{module\ 905}#)
+                 #{symbol\ 899}#
+                 #{type\ 900}#
+                 #{val\ 901}#))))
+         (#{get-global-definition-hook\ 297}#
+           (lambda (#{symbol\ 905}# #{module\ 906}#)
              (begin
-               (if (if (not #{module\ 905}#) (current-module) #f)
+               (if (if (not #{module\ 906}#) (current-module) #f)
                  (warn "module system is booted, we should have a module"
-                       #{symbol\ 904}#))
+                       #{symbol\ 905}#))
                (begin
-                 (let ((#{v\ 911}# (module-variable
-                                     (if #{module\ 905}#
-                                       (resolve-module (cdr #{module\ 905}#))
+                 (let ((#{v\ 912}# (module-variable
+                                     (if #{module\ 906}#
+                                       (resolve-module (cdr #{module\ 906}#))
                                        (current-module))
-                                     #{symbol\ 904}#)))
-                   (if #{v\ 911}#
-                     (if (variable-bound? #{v\ 911}#)
+                                     #{symbol\ 905}#)))
+                   (if #{v\ 912}#
+                     (if (variable-bound? #{v\ 912}#)
                        (begin
-                         (let ((#{val\ 916}# (variable-ref #{v\ 911}#)))
-                           (if (macro? #{val\ 916}#)
-                             (if (macro-type #{val\ 916}#)
-                               (cons (macro-type #{val\ 916}#)
-                                     (macro-binding #{val\ 916}#))
+                         (let ((#{val\ 917}# (variable-ref #{v\ 912}#)))
+                           (if (macro? #{val\ 917}#)
+                             (if (macro-type #{val\ 917}#)
+                               (cons (macro-type #{val\ 917}#)
+                                     (macro-binding #{val\ 917}#))
                                #f)
                              #f)))
                        #f)
                      #f))))))
-         (#{decorate-source\ 298}#
-           (lambda (#{e\ 920}# #{s\ 921}#)
+         (#{decorate-source\ 299}#
+           (lambda (#{e\ 921}# #{s\ 922}#)
              (begin
-               (if (if (pair? #{e\ 920}#) #{s\ 921}# #f)
-                 (set-source-properties! #{e\ 920}# #{s\ 921}#))
-               #{e\ 920}#)))
-         (#{maybe-name-value!\ 300}#
-           (lambda (#{name\ 926}# #{val\ 927}#)
-             (if (#{lambda?\ 275}# #{val\ 927}#)
+               (if (if (pair? #{e\ 921}#) #{s\ 922}# #f)
+                 (set-source-properties! #{e\ 921}# #{s\ 922}#))
+               #{e\ 921}#)))
+         (#{maybe-name-value!\ 301}#
+           (lambda (#{name\ 927}# #{val\ 928}#)
+             (if (#{lambda?\ 276}# #{val\ 928}#)
                (begin
-                 (let ((#{meta\ 931}#
-                         (#{lambda-meta\ 277}# #{val\ 927}#)))
-                   (if (not (assq (quote name) #{meta\ 931}#))
-                     (#{set-lambda-meta!\ 279}#
-                       #{val\ 927}#
-                       (cons (cons (quote name) #{name\ 926}#)
-                             #{meta\ 931}#))))))))
-         (#{build-void\ 302}#
-           (lambda (#{source\ 932}#)
-             (#{make-void\ 238}# #{source\ 932}#)))
-         (#{build-application\ 304}#
-           (lambda (#{source\ 934}#
-                    #{fun-exp\ 935}#
-                    #{arg-exps\ 936}#)
-             (#{make-application\ 260}#
-               #{source\ 934}#
-               #{fun-exp\ 935}#
-               #{arg-exps\ 936}#)))
-         (#{build-conditional\ 306}#
-           (lambda (#{source\ 940}#
-                    #{test-exp\ 941}#
-                    #{then-exp\ 942}#
-                    #{else-exp\ 943}#)
-             (#{make-conditional\ 258}#
-               #{source\ 940}#
-               #{test-exp\ 941}#
-               #{then-exp\ 942}#
-               #{else-exp\ 943}#)))
-         (#{build-dynlet\ 308}#
-           (lambda (#{source\ 948}#
-                    #{fluids\ 949}#
-                    #{vals\ 950}#
-                    #{body\ 951}#)
-             (#{make-dynlet\ 272}#
-               #{source\ 948}#
-               #{fluids\ 949}#
-               #{vals\ 950}#
-               #{body\ 951}#)))
-         (#{build-lexical-reference\ 310}#
-           (lambda (#{type\ 956}#
-                    #{source\ 957}#
-                    #{name\ 958}#
-                    #{var\ 959}#)
-             (#{make-lexical-ref\ 244}#
-               #{source\ 957}#
-               #{name\ 958}#
-               #{var\ 959}#)))
-         (#{build-lexical-assignment\ 312}#
-           (lambda (#{source\ 964}#
-                    #{name\ 965}#
-                    #{var\ 966}#
-                    #{exp\ 967}#)
+                 (let ((#{meta\ 932}#
+                         (#{lambda-meta\ 278}# #{val\ 928}#)))
+                   (if (not (assq 'name #{meta\ 932}#))
+                     (#{set-lambda-meta!\ 280}#
+                       #{val\ 928}#
+                       (cons (cons 'name #{name\ 927}#) #{meta\ 932}#))))))))
+         (#{build-void\ 303}#
+           (lambda (#{source\ 933}#)
+             (#{make-void\ 239}# #{source\ 933}#)))
+         (#{build-application\ 305}#
+           (lambda (#{source\ 935}#
+                    #{fun-exp\ 936}#
+                    #{arg-exps\ 937}#)
+             (#{make-application\ 261}#
+               #{source\ 935}#
+               #{fun-exp\ 936}#
+               #{arg-exps\ 937}#)))
+         (#{build-conditional\ 307}#
+           (lambda (#{source\ 941}#
+                    #{test-exp\ 942}#
+                    #{then-exp\ 943}#
+                    #{else-exp\ 944}#)
+             (#{make-conditional\ 259}#
+               #{source\ 941}#
+               #{test-exp\ 942}#
+               #{then-exp\ 943}#
+               #{else-exp\ 944}#)))
+         (#{build-dynlet\ 309}#
+           (lambda (#{source\ 949}#
+                    #{fluids\ 950}#
+                    #{vals\ 951}#
+                    #{body\ 952}#)
+             (#{make-dynlet\ 273}#
+               #{source\ 949}#
+               #{fluids\ 950}#
+               #{vals\ 951}#
+               #{body\ 952}#)))
+         (#{build-lexical-reference\ 311}#
+           (lambda (#{type\ 957}#
+                    #{source\ 958}#
+                    #{name\ 959}#
+                    #{var\ 960}#)
+             (#{make-lexical-ref\ 245}#
+               #{source\ 958}#
+               #{name\ 959}#
+               #{var\ 960}#)))
+         (#{build-lexical-assignment\ 313}#
+           (lambda (#{source\ 965}#
+                    #{name\ 966}#
+                    #{var\ 967}#
+                    #{exp\ 968}#)
              (begin
-               (#{maybe-name-value!\ 300}#
-                 #{name\ 965}#
-                 #{exp\ 967}#)
-               (#{make-lexical-set\ 246}#
-                 #{source\ 964}#
-                 #{name\ 965}#
-                 #{var\ 966}#
-                 #{exp\ 967}#))))
-         (#{analyze-variable\ 314}#
-           (lambda (#{mod\ 972}#
-                    #{var\ 973}#
-                    #{modref-cont\ 974}#
-                    #{bare-cont\ 975}#)
-             (if (not #{mod\ 972}#)
-               (#{bare-cont\ 975}# #{var\ 973}#)
+               (#{maybe-name-value!\ 301}#
+                 #{name\ 966}#
+                 #{exp\ 968}#)
+               (#{make-lexical-set\ 247}#
+                 #{source\ 965}#
+                 #{name\ 966}#
+                 #{var\ 967}#
+                 #{exp\ 968}#))))
+         (#{analyze-variable\ 315}#
+           (lambda (#{mod\ 973}#
+                    #{var\ 974}#
+                    #{modref-cont\ 975}#
+                    #{bare-cont\ 976}#)
+             (if (not #{mod\ 973}#)
+               (#{bare-cont\ 976}# #{var\ 974}#)
                (begin
-                 (let ((#{kind\ 982}# (car #{mod\ 972}#))
-                       (#{mod\ 983}# (cdr #{mod\ 972}#)))
-                   (if (eqv? #{kind\ 982}# (quote public))
-                     (#{modref-cont\ 974}#
-                       #{mod\ 983}#
-                       #{var\ 973}#
+                 (let ((#{kind\ 983}# (car #{mod\ 973}#))
+                       (#{mod\ 984}# (cdr #{mod\ 973}#)))
+                   (if (eqv? #{kind\ 983}# 'public)
+                     (#{modref-cont\ 975}#
+                       #{mod\ 984}#
+                       #{var\ 974}#
                        #t)
-                     (if (eqv? #{kind\ 982}# (quote private))
+                     (if (eqv? #{kind\ 983}# 'private)
                        (if (not (equal?
-                                  #{mod\ 983}#
+                                  #{mod\ 984}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 974}#
-                           #{mod\ 983}#
-                           #{var\ 973}#
+                         (#{modref-cont\ 975}#
+                           #{mod\ 984}#
+                           #{var\ 974}#
                            #f)
-                         (#{bare-cont\ 975}# #{var\ 973}#))
-                       (if (eqv? #{kind\ 982}# (quote bare))
-                         (#{bare-cont\ 975}# #{var\ 973}#)
-                         (if (eqv? #{kind\ 982}# (quote hygiene))
+                         (#{bare-cont\ 976}# #{var\ 974}#))
+                       (if (eqv? #{kind\ 983}# 'bare)
+                         (#{bare-cont\ 976}# #{var\ 974}#)
+                         (if (eqv? #{kind\ 983}# 'hygiene)
                            (if (if (not (equal?
-                                          #{mod\ 983}#
+                                          #{mod\ 984}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 983}#)
-                                   #{var\ 973}#)
+                                   (resolve-module #{mod\ 984}#)
+                                   #{var\ 974}#)
                                  #f)
-                             (#{modref-cont\ 974}#
-                               #{mod\ 983}#
-                               #{var\ 973}#
+                             (#{modref-cont\ 975}#
+                               #{mod\ 984}#
+                               #{var\ 974}#
                                #f)
-                             (#{bare-cont\ 975}# #{var\ 973}#))
+                             (#{bare-cont\ 976}# #{var\ 974}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 973}#
-                             #{mod\ 983}#))))))))))
-         (#{build-global-reference\ 316}#
-           (lambda (#{source\ 991}# #{var\ 992}# #{mod\ 993}#)
-             (#{analyze-variable\ 314}#
-               #{mod\ 993}#
-               #{var\ 992}#
-               (lambda (#{mod\ 997}# #{var\ 998}# #{public?\ 999}#)
-                 (#{make-module-ref\ 248}#
-                   #{source\ 991}#
-                   #{mod\ 997}#
-                   #{var\ 998}#
-                   #{public?\ 999}#))
-               (lambda (#{var\ 1003}#)
-                 (#{make-toplevel-ref\ 252}#
-                   #{source\ 991}#
-                   #{var\ 1003}#)))))
-         (#{build-global-assignment\ 318}#
-           (lambda (#{source\ 1005}#
-                    #{var\ 1006}#
-                    #{exp\ 1007}#
-                    #{mod\ 1008}#)
+                             #{var\ 974}#
+                             #{mod\ 984}#))))))))))
+         (#{build-global-reference\ 317}#
+           (lambda (#{source\ 992}# #{var\ 993}# #{mod\ 994}#)
+             (#{analyze-variable\ 315}#
+               #{mod\ 994}#
+               #{var\ 993}#
+               (lambda (#{mod\ 998}# #{var\ 999}# #{public?\ 1000}#)
+                 (#{make-module-ref\ 249}#
+                   #{source\ 992}#
+                   #{mod\ 998}#
+                   #{var\ 999}#
+                   #{public?\ 1000}#))
+               (lambda (#{var\ 1004}#)
+                 (#{make-toplevel-ref\ 253}#
+                   #{source\ 992}#
+                   #{var\ 1004}#)))))
+         (#{build-global-assignment\ 319}#
+           (lambda (#{source\ 1006}#
+                    #{var\ 1007}#
+                    #{exp\ 1008}#
+                    #{mod\ 1009}#)
              (begin
-               (#{maybe-name-value!\ 300}#
-                 #{var\ 1006}#
-                 #{exp\ 1007}#)
-               (#{analyze-variable\ 314}#
-                 #{mod\ 1008}#
-                 #{var\ 1006}#
-                 (lambda (#{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}#)
-                   (#{make-module-set\ 250}#
-                     #{source\ 1005}#
-                     #{mod\ 1013}#
-                     #{var\ 1014}#
-                     #{public?\ 1015}#
-                     #{exp\ 1007}#))
-                 (lambda (#{var\ 1019}#)
-                   (#{make-toplevel-set\ 254}#
-                     #{source\ 1005}#
-                     #{var\ 1019}#
-                     #{exp\ 1007}#))))))
-         (#{build-global-definition\ 320}#
-           (lambda (#{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#)
+               (#{maybe-name-value!\ 301}#
+                 #{var\ 1007}#
+                 #{exp\ 1008}#)
+               (#{analyze-variable\ 315}#
+                 #{mod\ 1009}#
+                 #{var\ 1007}#
+                 (lambda (#{mod\ 1014}# #{var\ 1015}# #{public?\ 1016}#)
+                   (#{make-module-set\ 251}#
+                     #{source\ 1006}#
+                     #{mod\ 1014}#
+                     #{var\ 1015}#
+                     #{public?\ 1016}#
+                     #{exp\ 1008}#))
+                 (lambda (#{var\ 1020}#)
+                   (#{make-toplevel-set\ 255}#
+                     #{source\ 1006}#
+                     #{var\ 1020}#
+                     #{exp\ 1008}#))))))
+         (#{build-global-definition\ 321}#
+           (lambda (#{source\ 1022}# #{var\ 1023}# #{exp\ 1024}#)
              (begin
-               (#{maybe-name-value!\ 300}#
-                 #{var\ 1022}#
-                 #{exp\ 1023}#)
-               (#{make-toplevel-define\ 256}#
-                 #{source\ 1021}#
-                 #{var\ 1022}#
-                 #{exp\ 1023}#))))
-         (#{build-simple-lambda\ 322}#
-           (lambda (#{src\ 1027}#
-                    #{req\ 1028}#
-                    #{rest\ 1029}#
-                    #{vars\ 1030}#
-                    #{meta\ 1031}#
-                    #{exp\ 1032}#)
-             (#{make-lambda\ 264}#
-               #{src\ 1027}#
-               #{meta\ 1031}#
-               (#{make-lambda-case\ 266}#
-                 #{src\ 1027}#
-                 #{req\ 1028}#
+               (#{maybe-name-value!\ 301}#
+                 #{var\ 1023}#
+                 #{exp\ 1024}#)
+               (#{make-toplevel-define\ 257}#
+                 #{source\ 1022}#
+                 #{var\ 1023}#
+                 #{exp\ 1024}#))))
+         (#{build-simple-lambda\ 323}#
+           (lambda (#{src\ 1028}#
+                    #{req\ 1029}#
+                    #{rest\ 1030}#
+                    #{vars\ 1031}#
+                    #{meta\ 1032}#
+                    #{exp\ 1033}#)
+             (#{make-lambda\ 265}#
+               #{src\ 1028}#
+               #{meta\ 1032}#
+               (#{make-lambda-case\ 267}#
+                 #{src\ 1028}#
+                 #{req\ 1029}#
                  #f
-                 #{rest\ 1029}#
+                 #{rest\ 1030}#
                  #f
                  '()
-                 #{vars\ 1030}#
-                 #{exp\ 1032}#
+                 #{vars\ 1031}#
+                 #{exp\ 1033}#
                  #f))))
-         (#{build-case-lambda\ 324}#
-           (lambda (#{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#)
-             (#{make-lambda\ 264}#
-               #{src\ 1039}#
-               #{meta\ 1040}#
-               #{body\ 1041}#)))
-         (#{build-lambda-case\ 326}#
-           (lambda (#{src\ 1045}#
-                    #{req\ 1046}#
-                    #{opt\ 1047}#
-                    #{rest\ 1048}#
-                    #{kw\ 1049}#
-                    #{inits\ 1050}#
-                    #{vars\ 1051}#
-                    #{body\ 1052}#
-                    #{else-case\ 1053}#)
-             (#{make-lambda-case\ 266}#
-               #{src\ 1045}#
-               #{req\ 1046}#
-               #{opt\ 1047}#
-               #{rest\ 1048}#
-               #{kw\ 1049}#
-               #{inits\ 1050}#
-               #{vars\ 1051}#
-               #{body\ 1052}#
-               #{else-case\ 1053}#)))
-         (#{build-primref\ 328}#
-           (lambda (#{src\ 1063}# #{name\ 1064}#)
-             (if (equal?
-                   (module-name (current-module))
-                   '(guile))
-               (#{make-toplevel-ref\ 252}#
-                 #{src\ 1063}#
-                 #{name\ 1064}#)
-               (#{make-module-ref\ 248}#
-                 #{src\ 1063}#
+         (#{build-case-lambda\ 325}#
+           (lambda (#{src\ 1040}# #{meta\ 1041}# #{body\ 1042}#)
+             (#{make-lambda\ 265}#
+               #{src\ 1040}#
+               #{meta\ 1041}#
+               #{body\ 1042}#)))
+         (#{build-lambda-case\ 327}#
+           (lambda (#{src\ 1046}#
+                    #{req\ 1047}#
+                    #{opt\ 1048}#
+                    #{rest\ 1049}#
+                    #{kw\ 1050}#
+                    #{inits\ 1051}#
+                    #{vars\ 1052}#
+                    #{body\ 1053}#
+                    #{else-case\ 1054}#)
+             (#{make-lambda-case\ 267}#
+               #{src\ 1046}#
+               #{req\ 1047}#
+               #{opt\ 1048}#
+               #{rest\ 1049}#
+               #{kw\ 1050}#
+               #{inits\ 1051}#
+               #{vars\ 1052}#
+               #{body\ 1053}#
+               #{else-case\ 1054}#)))
+         (#{build-primref\ 329}#
+           (lambda (#{src\ 1064}# #{name\ 1065}#)
+             (if (equal? (module-name (current-module)) '(guile))
+               (#{make-toplevel-ref\ 253}#
+                 #{src\ 1064}#
+                 #{name\ 1065}#)
+               (#{make-module-ref\ 249}#
+                 #{src\ 1064}#
                  '(guile)
-                 #{name\ 1064}#
+                 #{name\ 1065}#
                  #f))))
-         (#{build-data\ 330}#
-           (lambda (#{src\ 1067}# #{exp\ 1068}#)
-             (#{make-const\ 240}# #{src\ 1067}# #{exp\ 1068}#)))
-         (#{build-sequence\ 332}#
-           (lambda (#{src\ 1071}# #{exps\ 1072}#)
-             (if (null? (cdr #{exps\ 1072}#))
-               (car #{exps\ 1072}#)
-               (#{make-sequence\ 262}#
-                 #{src\ 1071}#
-                 #{exps\ 1072}#))))
-         (#{build-let\ 334}#
-           (lambda (#{src\ 1075}#
-                    #{ids\ 1076}#
-                    #{vars\ 1077}#
-                    #{val-exps\ 1078}#
-                    #{body-exp\ 1079}#)
+         (#{build-data\ 331}#
+           (lambda (#{src\ 1068}# #{exp\ 1069}#)
+             (#{make-const\ 241}# #{src\ 1068}# #{exp\ 1069}#)))
+         (#{build-sequence\ 333}#
+           (lambda (#{src\ 1072}# #{exps\ 1073}#)
+             (if (null? (cdr #{exps\ 1073}#))
+               (car #{exps\ 1073}#)
+               (#{make-sequence\ 263}#
+                 #{src\ 1072}#
+                 #{exps\ 1073}#))))
+         (#{build-let\ 335}#
+           (lambda (#{src\ 1076}#
+                    #{ids\ 1077}#
+                    #{vars\ 1078}#
+                    #{val-exps\ 1079}#
+                    #{body-exp\ 1080}#)
              (begin
                (for-each
-                 #{maybe-name-value!\ 300}#
-                 #{ids\ 1076}#
-                 #{val-exps\ 1078}#)
-               (if (null? #{vars\ 1077}#)
-                 #{body-exp\ 1079}#
-                 (#{make-let\ 268}#
-                   #{src\ 1075}#
-                   #{ids\ 1076}#
-                   #{vars\ 1077}#
-                   #{val-exps\ 1078}#
-                   #{body-exp\ 1079}#)))))
-         (#{build-named-let\ 336}#
-           (lambda (#{src\ 1085}#
-                    #{ids\ 1086}#
-                    #{vars\ 1087}#
-                    #{val-exps\ 1088}#
-                    #{body-exp\ 1089}#)
+                 #{maybe-name-value!\ 301}#
+                 #{ids\ 1077}#
+                 #{val-exps\ 1079}#)
+               (if (null? #{vars\ 1078}#)
+                 #{body-exp\ 1080}#
+                 (#{make-let\ 269}#
+                   #{src\ 1076}#
+                   #{ids\ 1077}#
+                   #{vars\ 1078}#
+                   #{val-exps\ 1079}#
+                   #{body-exp\ 1080}#)))))
+         (#{build-named-let\ 337}#
+           (lambda (#{src\ 1086}#
+                    #{ids\ 1087}#
+                    #{vars\ 1088}#
+                    #{val-exps\ 1089}#
+                    #{body-exp\ 1090}#)
              (begin
-               (let ((#{f\ 1099}# (car #{vars\ 1087}#))
-                     (#{f-name\ 1100}# (car #{ids\ 1086}#))
-                     (#{vars\ 1101}# (cdr #{vars\ 1087}#))
-                     (#{ids\ 1102}# (cdr #{ids\ 1086}#)))
+               (let ((#{f\ 1100}# (car #{vars\ 1088}#))
+                     (#{f-name\ 1101}# (car #{ids\ 1087}#))
+                     (#{vars\ 1102}# (cdr #{vars\ 1088}#))
+                     (#{ids\ 1103}# (cdr #{ids\ 1087}#)))
                  (begin
-                   (let ((#{proc\ 1104}#
-                           (#{build-simple-lambda\ 322}#
-                             #{src\ 1085}#
-                             #{ids\ 1102}#
+                   (let ((#{proc\ 1105}#
+                           (#{build-simple-lambda\ 323}#
+                             #{src\ 1086}#
+                             #{ids\ 1103}#
                              #f
-                             #{vars\ 1101}#
+                             #{vars\ 1102}#
                              '()
-                             #{body-exp\ 1089}#)))
+                             #{body-exp\ 1090}#)))
                      (begin
-                       (#{maybe-name-value!\ 300}#
-                         #{f-name\ 1100}#
-                         #{proc\ 1104}#)
+                       (#{maybe-name-value!\ 301}#
+                         #{f-name\ 1101}#
+                         #{proc\ 1105}#)
                        (for-each
-                         #{maybe-name-value!\ 300}#
-                         #{ids\ 1102}#
-                         #{val-exps\ 1088}#)
-                       (#{make-letrec\ 270}#
-                         #{src\ 1085}#
+                         #{maybe-name-value!\ 301}#
+                         #{ids\ 1103}#
+                         #{val-exps\ 1089}#)
+                       (#{make-letrec\ 271}#
+                         #{src\ 1086}#
                          #f
-                         (list #{f-name\ 1100}#)
-                         (list #{f\ 1099}#)
-                         (list #{proc\ 1104}#)
-                         (#{build-application\ 304}#
-                           #{src\ 1085}#
-                           (#{build-lexical-reference\ 310}#
+                         (list #{f-name\ 1101}#)
+                         (list #{f\ 1100}#)
+                         (list #{proc\ 1105}#)
+                         (#{build-application\ 305}#
+                           #{src\ 1086}#
+                           (#{build-lexical-reference\ 311}#
                              'fun
-                             #{src\ 1085}#
-                             #{f-name\ 1100}#
-                             #{f\ 1099}#)
-                           #{val-exps\ 1088}#)))))))))
-         (#{build-letrec\ 338}#
-           (lambda (#{src\ 1105}#
-                    #{in-order?\ 1106}#
-                    #{ids\ 1107}#
-                    #{vars\ 1108}#
-                    #{val-exps\ 1109}#
-                    #{body-exp\ 1110}#)
-             (if (null? #{vars\ 1108}#)
-               #{body-exp\ 1110}#
+                             #{src\ 1086}#
+                             #{f-name\ 1101}#
+                             #{f\ 1100}#)
+                           #{val-exps\ 1089}#)))))))))
+         (#{build-letrec\ 339}#
+           (lambda (#{src\ 1106}#
+                    #{in-order?\ 1107}#
+                    #{ids\ 1108}#
+                    #{vars\ 1109}#
+                    #{val-exps\ 1110}#
+                    #{body-exp\ 1111}#)
+             (if (null? #{vars\ 1109}#)
+               #{body-exp\ 1111}#
                (begin
                  (for-each
-                   #{maybe-name-value!\ 300}#
-                   #{ids\ 1107}#
-                   #{val-exps\ 1109}#)
-                 (#{make-letrec\ 270}#
-                   #{src\ 1105}#
-                   #{in-order?\ 1106}#
-                   #{ids\ 1107}#
-                   #{vars\ 1108}#
-                   #{val-exps\ 1109}#
-                   #{body-exp\ 1110}#)))))
-         (#{make-syntax-object\ 342}#
-           (lambda (#{expression\ 1117}#
-                    #{wrap\ 1118}#
-                    #{module\ 1119}#)
+                   #{maybe-name-value!\ 301}#
+                   #{ids\ 1108}#
+                   #{val-exps\ 1110}#)
+                 (#{make-letrec\ 271}#
+                   #{src\ 1106}#
+                   #{in-order?\ 1107}#
+                   #{ids\ 1108}#
+                   #{vars\ 1109}#
+                   #{val-exps\ 1110}#
+                   #{body-exp\ 1111}#)))))
+         (#{make-syntax-object\ 343}#
+           (lambda (#{expression\ 1118}#
+                    #{wrap\ 1119}#
+                    #{module\ 1120}#)
              (vector
                'syntax-object
-               #{expression\ 1117}#
-               #{wrap\ 1118}#
-               #{module\ 1119}#)))
-         (#{syntax-object?\ 344}#
-           (lambda (#{x\ 1123}#)
-             (if (vector? #{x\ 1123}#)
-               (if (= (vector-length #{x\ 1123}#) 4)
-                 (eq? (vector-ref #{x\ 1123}# 0)
-                      'syntax-object)
+               #{expression\ 1118}#
+               #{wrap\ 1119}#
+               #{module\ 1120}#)))
+         (#{syntax-object?\ 345}#
+           (lambda (#{x\ 1124}#)
+             (if (vector? #{x\ 1124}#)
+               (if (= (vector-length #{x\ 1124}#) 4)
+                 (eq? (vector-ref #{x\ 1124}# 0) 'syntax-object)
                  #f)
                #f)))
-         (#{syntax-object-expression\ 346}#
-           (lambda (#{x\ 1128}#) (vector-ref #{x\ 1128}# 1)))
-         (#{syntax-object-wrap\ 348}#
-           (lambda (#{x\ 1130}#) (vector-ref #{x\ 1130}# 2)))
-         (#{syntax-object-module\ 350}#
-           (lambda (#{x\ 1132}#) (vector-ref #{x\ 1132}# 3)))
-         (#{source-annotation\ 359}#
-           (lambda (#{x\ 1146}#)
-             (if (#{syntax-object?\ 344}# #{x\ 1146}#)
-               (#{source-annotation\ 359}#
-                 (#{syntax-object-expression\ 346}# #{x\ 1146}#))
-               (if (pair? #{x\ 1146}#)
+         (#{syntax-object-expression\ 347}#
+           (lambda (#{x\ 1129}#) (vector-ref #{x\ 1129}# 1)))
+         (#{syntax-object-wrap\ 349}#
+           (lambda (#{x\ 1131}#) (vector-ref #{x\ 1131}# 2)))
+         (#{syntax-object-module\ 351}#
+           (lambda (#{x\ 1133}#) (vector-ref #{x\ 1133}# 3)))
+         (#{source-annotation\ 360}#
+           (lambda (#{x\ 1147}#)
+             (if (#{syntax-object?\ 345}# #{x\ 1147}#)
+               (#{source-annotation\ 360}#
+                 (#{syntax-object-expression\ 347}# #{x\ 1147}#))
+               (if (pair? #{x\ 1147}#)
                  (begin
-                   (let ((#{props\ 1153}# (source-properties #{x\ 1146}#)))
-                     (if (pair? #{props\ 1153}#) #{props\ 1153}# #f)))
+                   (let ((#{props\ 1154}# (source-properties #{x\ 1147}#)))
+                     (if (pair? #{props\ 1154}#) #{props\ 1154}# #f)))
                  #f))))
-         (#{extend-env\ 366}#
-           (lambda (#{labels\ 1155}# #{bindings\ 1156}# #{r\ 1157}#)
-             (if (null? #{labels\ 1155}#)
-               #{r\ 1157}#
-               (#{extend-env\ 366}#
-                 (cdr #{labels\ 1155}#)
-                 (cdr #{bindings\ 1156}#)
-                 (cons (cons (car #{labels\ 1155}#)
-                             (car #{bindings\ 1156}#))
-                       #{r\ 1157}#)))))
-         (#{extend-var-env\ 368}#
-           (lambda (#{labels\ 1161}# #{vars\ 1162}# #{r\ 1163}#)
-             (if (null? #{labels\ 1161}#)
-               #{r\ 1163}#
-               (#{extend-var-env\ 368}#
-                 (cdr #{labels\ 1161}#)
-                 (cdr #{vars\ 1162}#)
-                 (cons (cons (car #{labels\ 1161}#)
-                             (cons (quote lexical) (car #{vars\ 1162}#)))
-                       #{r\ 1163}#)))))
-         (#{macros-only-env\ 370}#
-           (lambda (#{r\ 1168}#)
-             (if (null? #{r\ 1168}#)
+         (#{extend-env\ 367}#
+           (lambda (#{labels\ 1156}# #{bindings\ 1157}# #{r\ 1158}#)
+             (if (null? #{labels\ 1156}#)
+               #{r\ 1158}#
+               (#{extend-env\ 367}#
+                 (cdr #{labels\ 1156}#)
+                 (cdr #{bindings\ 1157}#)
+                 (cons (cons (car #{labels\ 1156}#)
+                             (car #{bindings\ 1157}#))
+                       #{r\ 1158}#)))))
+         (#{extend-var-env\ 369}#
+           (lambda (#{labels\ 1162}# #{vars\ 1163}# #{r\ 1164}#)
+             (if (null? #{labels\ 1162}#)
+               #{r\ 1164}#
+               (#{extend-var-env\ 369}#
+                 (cdr #{labels\ 1162}#)
+                 (cdr #{vars\ 1163}#)
+                 (cons (cons (car #{labels\ 1162}#)
+                             (cons 'lexical (car #{vars\ 1163}#)))
+                       #{r\ 1164}#)))))
+         (#{macros-only-env\ 371}#
+           (lambda (#{r\ 1169}#)
+             (if (null? #{r\ 1169}#)
                '()
                (begin
-                 (let ((#{a\ 1171}# (car #{r\ 1168}#)))
-                   (if (eq? (car (cdr #{a\ 1171}#)) (quote macro))
-                     (cons #{a\ 1171}#
-                           (#{macros-only-env\ 370}# (cdr #{r\ 1168}#)))
-                     (#{macros-only-env\ 370}# (cdr #{r\ 1168}#))))))))
-         (#{lookup\ 372}#
-           (lambda (#{x\ 1172}# #{r\ 1173}# #{mod\ 1174}#)
+                 (let ((#{a\ 1172}# (car #{r\ 1169}#)))
+                   (if (eq? (car (cdr #{a\ 1172}#)) 'macro)
+                     (cons #{a\ 1172}#
+                           (#{macros-only-env\ 371}# (cdr #{r\ 1169}#)))
+                     (#{macros-only-env\ 371}# (cdr #{r\ 1169}#))))))))
+         (#{lookup\ 373}#
+           (lambda (#{x\ 1173}# #{r\ 1174}# #{mod\ 1175}#)
              (begin
-               (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#)))
-                 (if #{t\ 1180}#
-                   (cdr #{t\ 1180}#)
-                   (if (symbol? #{x\ 1172}#)
+               (let ((#{t\ 1181}# (assq #{x\ 1173}# #{r\ 1174}#)))
+                 (if #{t\ 1181}#
+                   (cdr #{t\ 1181}#)
+                   (if (symbol? #{x\ 1173}#)
                      (begin
-                       (let ((#{t\ 1186}#
-                               (#{get-global-definition-hook\ 296}#
-                                 #{x\ 1172}#
-                                 #{mod\ 1174}#)))
-                         (if #{t\ 1186}# #{t\ 1186}# (quote (global)))))
+                       (let ((#{t\ 1187}#
+                               (#{get-global-definition-hook\ 297}#
+                                 #{x\ 1173}#
+                                 #{mod\ 1175}#)))
+                         (if #{t\ 1187}# #{t\ 1187}# '(global))))
                      '(displaced-lexical)))))))
-         (#{global-extend\ 374}#
-           (lambda (#{type\ 1191}# #{sym\ 1192}# #{val\ 1193}#)
-             (#{put-global-definition-hook\ 294}#
-               #{sym\ 1192}#
-               #{type\ 1191}#
-               #{val\ 1193}#)))
-         (#{nonsymbol-id?\ 376}#
-           (lambda (#{x\ 1197}#)
-             (if (#{syntax-object?\ 344}# #{x\ 1197}#)
+         (#{global-extend\ 375}#
+           (lambda (#{type\ 1192}# #{sym\ 1193}# #{val\ 1194}#)
+             (#{put-global-definition-hook\ 295}#
+               #{sym\ 1193}#
+               #{type\ 1192}#
+               #{val\ 1194}#)))
+         (#{nonsymbol-id?\ 377}#
+           (lambda (#{x\ 1198}#)
+             (if (#{syntax-object?\ 345}# #{x\ 1198}#)
                (symbol?
-                 (#{syntax-object-expression\ 346}# #{x\ 1197}#))
+                 (#{syntax-object-expression\ 347}# #{x\ 1198}#))
                #f)))
-         (#{id?\ 378}#
-           (lambda (#{x\ 1201}#)
-             (if (symbol? #{x\ 1201}#)
+         (#{id?\ 379}#
+           (lambda (#{x\ 1202}#)
+             (if (symbol? #{x\ 1202}#)
                #t
-               (if (#{syntax-object?\ 344}# #{x\ 1201}#)
+               (if (#{syntax-object?\ 345}# #{x\ 1202}#)
                  (symbol?
-                   (#{syntax-object-expression\ 346}# #{x\ 1201}#))
+                   (#{syntax-object-expression\ 347}# #{x\ 1202}#))
                  #f))))
-         (#{id-sym-name&marks\ 381}#
-           (lambda (#{x\ 1208}# #{w\ 1209}#)
-             (if (#{syntax-object?\ 344}# #{x\ 1208}#)
+         (#{id-sym-name&marks\ 382}#
+           (lambda (#{x\ 1209}# #{w\ 1210}#)
+             (if (#{syntax-object?\ 345}# #{x\ 1209}#)
                (values
-                 (#{syntax-object-expression\ 346}# #{x\ 1208}#)
-                 (#{join-marks\ 428}#
-                   (car #{w\ 1209}#)
-                   (car (#{syntax-object-wrap\ 348}# #{x\ 1208}#))))
-               (values #{x\ 1208}# (car #{w\ 1209}#)))))
-         (#{gen-label\ 391}#
+                 (#{syntax-object-expression\ 347}# #{x\ 1209}#)
+                 (#{join-marks\ 429}#
+                   (car #{w\ 1210}#)
+                   (car (#{syntax-object-wrap\ 349}# #{x\ 1209}#))))
+               (values #{x\ 1209}# (car #{w\ 1210}#)))))
+         (#{gen-label\ 392}#
            (lambda () (symbol->string (gensym "i"))))
-         (#{gen-labels\ 393}#
-           (lambda (#{ls\ 1215}#)
-             (if (null? #{ls\ 1215}#)
+         (#{gen-labels\ 394}#
+           (lambda (#{ls\ 1216}#)
+             (if (null? #{ls\ 1216}#)
                '()
-               (cons (#{gen-label\ 391}#)
-                     (#{gen-labels\ 393}# (cdr #{ls\ 1215}#))))))
-         (#{make-ribcage\ 396}#
-           (lambda (#{symnames\ 1217}#
-                    #{marks\ 1218}#
-                    #{labels\ 1219}#)
+               (cons (#{gen-label\ 392}#)
+                     (#{gen-labels\ 394}# (cdr #{ls\ 1216}#))))))
+         (#{make-ribcage\ 397}#
+           (lambda (#{symnames\ 1218}#
+                    #{marks\ 1219}#
+                    #{labels\ 1220}#)
              (vector
                'ribcage
-               #{symnames\ 1217}#
-               #{marks\ 1218}#
-               #{labels\ 1219}#)))
-         (#{ribcage-symnames\ 400}#
-           (lambda (#{x\ 1228}#) (vector-ref #{x\ 1228}# 1)))
-         (#{ribcage-marks\ 402}#
-           (lambda (#{x\ 1230}#) (vector-ref #{x\ 1230}# 2)))
-         (#{ribcage-labels\ 404}#
-           (lambda (#{x\ 1232}#) (vector-ref #{x\ 1232}# 3)))
-         (#{set-ribcage-symnames!\ 406}#
-           (lambda (#{x\ 1234}# #{update\ 1235}#)
-             (vector-set! #{x\ 1234}# 1 #{update\ 1235}#)))
-         (#{set-ribcage-marks!\ 408}#
-           (lambda (#{x\ 1238}# #{update\ 1239}#)
-             (vector-set! #{x\ 1238}# 2 #{update\ 1239}#)))
-         (#{set-ribcage-labels!\ 410}#
-           (lambda (#{x\ 1242}# #{update\ 1243}#)
-             (vector-set! #{x\ 1242}# 3 #{update\ 1243}#)))
-         (#{anti-mark\ 416}#
-           (lambda (#{w\ 1246}#)
-             (cons (cons #f (car #{w\ 1246}#))
-                   (cons (quote shift) (cdr #{w\ 1246}#)))))
-         (#{extend-ribcage!\ 420}#
-           (lambda (#{ribcage\ 1252}# #{id\ 1253}# #{label\ 1254}#)
+               #{symnames\ 1218}#
+               #{marks\ 1219}#
+               #{labels\ 1220}#)))
+         (#{ribcage-symnames\ 401}#
+           (lambda (#{x\ 1229}#) (vector-ref #{x\ 1229}# 1)))
+         (#{ribcage-marks\ 403}#
+           (lambda (#{x\ 1231}#) (vector-ref #{x\ 1231}# 2)))
+         (#{ribcage-labels\ 405}#
+           (lambda (#{x\ 1233}#) (vector-ref #{x\ 1233}# 3)))
+         (#{set-ribcage-symnames!\ 407}#
+           (lambda (#{x\ 1235}# #{update\ 1236}#)
+             (vector-set! #{x\ 1235}# 1 #{update\ 1236}#)))
+         (#{set-ribcage-marks!\ 409}#
+           (lambda (#{x\ 1239}# #{update\ 1240}#)
+             (vector-set! #{x\ 1239}# 2 #{update\ 1240}#)))
+         (#{set-ribcage-labels!\ 411}#
+           (lambda (#{x\ 1243}# #{update\ 1244}#)
+             (vector-set! #{x\ 1243}# 3 #{update\ 1244}#)))
+         (#{anti-mark\ 417}#
+           (lambda (#{w\ 1247}#)
+             (cons (cons #f (car #{w\ 1247}#))
+                   (cons 'shift (cdr #{w\ 1247}#)))))
+         (#{extend-ribcage!\ 421}#
+           (lambda (#{ribcage\ 1253}# #{id\ 1254}# #{label\ 1255}#)
              (begin
-               (#{set-ribcage-symnames!\ 406}#
-                 #{ribcage\ 1252}#
-                 (cons (#{syntax-object-expression\ 346}# #{id\ 1253}#)
-                       (#{ribcage-symnames\ 400}# #{ribcage\ 1252}#)))
-               (#{set-ribcage-marks!\ 408}#
-                 #{ribcage\ 1252}#
-                 (cons (car (#{syntax-object-wrap\ 348}# #{id\ 1253}#))
-                       (#{ribcage-marks\ 402}# #{ribcage\ 1252}#)))
-               (#{set-ribcage-labels!\ 410}#
-                 #{ribcage\ 1252}#
-                 (cons #{label\ 1254}#
-                       (#{ribcage-labels\ 404}# #{ribcage\ 1252}#))))))
-         (#{make-binding-wrap\ 422}#
-           (lambda (#{ids\ 1259}# #{labels\ 1260}# #{w\ 1261}#)
-             (if (null? #{ids\ 1259}#)
-               #{w\ 1261}#
-               (cons (car #{w\ 1261}#)
+               (#{set-ribcage-symnames!\ 407}#
+                 #{ribcage\ 1253}#
+                 (cons (#{syntax-object-expression\ 347}# #{id\ 1254}#)
+                       (#{ribcage-symnames\ 401}# #{ribcage\ 1253}#)))
+               (#{set-ribcage-marks!\ 409}#
+                 #{ribcage\ 1253}#
+                 (cons (car (#{syntax-object-wrap\ 349}# #{id\ 1254}#))
+                       (#{ribcage-marks\ 403}# #{ribcage\ 1253}#)))
+               (#{set-ribcage-labels!\ 411}#
+                 #{ribcage\ 1253}#
+                 (cons #{label\ 1255}#
+                       (#{ribcage-labels\ 405}# #{ribcage\ 1253}#))))))
+         (#{make-binding-wrap\ 423}#
+           (lambda (#{ids\ 1260}# #{labels\ 1261}# #{w\ 1262}#)
+             (if (null? #{ids\ 1260}#)
+               #{w\ 1262}#
+               (cons (car #{w\ 1262}#)
                      (cons (begin
-                             (let ((#{labelvec\ 1268}#
-                                     (list->vector #{labels\ 1260}#)))
+                             (let ((#{labelvec\ 1269}#
+                                     (list->vector #{labels\ 1261}#)))
                                (begin
-                                 (let ((#{n\ 1270}#
-                                         (vector-length #{labelvec\ 1268}#)))
+                                 (let ((#{n\ 1271}#
+                                         (vector-length #{labelvec\ 1269}#)))
                                    (begin
-                                     (let ((#{symnamevec\ 1273}#
-                                             (make-vector #{n\ 1270}#))
-                                           (#{marksvec\ 1274}#
-                                             (make-vector #{n\ 1270}#)))
+                                     (let ((#{symnamevec\ 1274}#
+                                             (make-vector #{n\ 1271}#))
+                                           (#{marksvec\ 1275}#
+                                             (make-vector #{n\ 1271}#)))
                                        (begin
                                          (letrec*
-                                           ((#{f\ 1278}#
-                                              (lambda (#{ids\ 1279}#
-                                                       #{i\ 1280}#)
-                                                (if (not (null? #{ids\ 1279}#))
+                                           ((#{f\ 1279}#
+                                              (lambda (#{ids\ 1280}#
+                                                       #{i\ 1281}#)
+                                                (if (not (null? #{ids\ 1280}#))
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{id-sym-name&marks\ 
381}#
-                                                        (car #{ids\ 1279}#)
-                                                        #{w\ 1261}#))
-                                                    (lambda (#{symname\ 1281}#
-                                                             #{marks\ 1282}#)
+                                                      (#{id-sym-name&marks\ 
382}#
+                                                        (car #{ids\ 1280}#)
+                                                        #{w\ 1262}#))
+                                                    (lambda (#{symname\ 1282}#
+                                                             #{marks\ 1283}#)
                                                       (begin
                                                         (vector-set!
-                                                          #{symnamevec\ 1273}#
-                                                          #{i\ 1280}#
-                                                          #{symname\ 1281}#)
+                                                          #{symnamevec\ 1274}#
+                                                          #{i\ 1281}#
+                                                          #{symname\ 1282}#)
                                                         (vector-set!
-                                                          #{marksvec\ 1274}#
-                                                          #{i\ 1280}#
-                                                          #{marks\ 1282}#)
-                                                        (#{f\ 1278}#
-                                                          (cdr #{ids\ 1279}#)
-                                                          (#{fx+\ 281}#
-                                                            #{i\ 1280}#
+                                                          #{marksvec\ 1275}#
+                                                          #{i\ 1281}#
+                                                          #{marks\ 1283}#)
+                                                        (#{f\ 1279}#
+                                                          (cdr #{ids\ 1280}#)
+                                                          (#{fx+\ 282}#
+                                                            #{i\ 1281}#
                                                             1)))))))))
                                            (begin
-                                             (#{f\ 1278}# #{ids\ 1259}# 0)))
-                                         (#{make-ribcage\ 396}#
-                                           #{symnamevec\ 1273}#
-                                           #{marksvec\ 1274}#
-                                           #{labelvec\ 1268}#))))))))
-                           (cdr #{w\ 1261}#))))))
-         (#{smart-append\ 424}#
-           (lambda (#{m1\ 1286}# #{m2\ 1287}#)
-             (if (null? #{m2\ 1287}#)
-               #{m1\ 1286}#
-               (append #{m1\ 1286}# #{m2\ 1287}#))))
-         (#{join-wraps\ 426}#
-           (lambda (#{w1\ 1290}# #{w2\ 1291}#)
+                                             (#{f\ 1279}# #{ids\ 1260}# 0)))
+                                         (#{make-ribcage\ 397}#
+                                           #{symnamevec\ 1274}#
+                                           #{marksvec\ 1275}#
+                                           #{labelvec\ 1269}#))))))))
+                           (cdr #{w\ 1262}#))))))
+         (#{smart-append\ 425}#
+           (lambda (#{m1\ 1287}# #{m2\ 1288}#)
+             (if (null? #{m2\ 1288}#)
+               #{m1\ 1287}#
+               (append #{m1\ 1287}# #{m2\ 1288}#))))
+         (#{join-wraps\ 427}#
+           (lambda (#{w1\ 1291}# #{w2\ 1292}#)
              (begin
-               (let ((#{m1\ 1296}# (car #{w1\ 1290}#))
-                     (#{s1\ 1297}# (cdr #{w1\ 1290}#)))
-                 (if (null? #{m1\ 1296}#)
-                   (if (null? #{s1\ 1297}#)
-                     #{w2\ 1291}#
-                     (cons (car #{w2\ 1291}#)
-                           (#{smart-append\ 424}#
-                             #{s1\ 1297}#
-                             (cdr #{w2\ 1291}#))))
-                   (cons (#{smart-append\ 424}#
-                           #{m1\ 1296}#
-                           (car #{w2\ 1291}#))
-                         (#{smart-append\ 424}#
-                           #{s1\ 1297}#
-                           (cdr #{w2\ 1291}#))))))))
-         (#{join-marks\ 428}#
-           (lambda (#{m1\ 1306}# #{m2\ 1307}#)
-             (#{smart-append\ 424}# #{m1\ 1306}# #{m2\ 1307}#)))
-         (#{same-marks?\ 430}#
-           (lambda (#{x\ 1310}# #{y\ 1311}#)
+               (let ((#{m1\ 1297}# (car #{w1\ 1291}#))
+                     (#{s1\ 1298}# (cdr #{w1\ 1291}#)))
+                 (if (null? #{m1\ 1297}#)
+                   (if (null? #{s1\ 1298}#)
+                     #{w2\ 1292}#
+                     (cons (car #{w2\ 1292}#)
+                           (#{smart-append\ 425}#
+                             #{s1\ 1298}#
+                             (cdr #{w2\ 1292}#))))
+                   (cons (#{smart-append\ 425}#
+                           #{m1\ 1297}#
+                           (car #{w2\ 1292}#))
+                         (#{smart-append\ 425}#
+                           #{s1\ 1298}#
+                           (cdr #{w2\ 1292}#))))))))
+         (#{join-marks\ 429}#
+           (lambda (#{m1\ 1307}# #{m2\ 1308}#)
+             (#{smart-append\ 425}# #{m1\ 1307}# #{m2\ 1308}#)))
+         (#{same-marks?\ 431}#
+           (lambda (#{x\ 1311}# #{y\ 1312}#)
              (begin
-               (let ((#{t\ 1316}# (eq? #{x\ 1310}# #{y\ 1311}#)))
-                 (if #{t\ 1316}#
-                   #{t\ 1316}#
-                   (if (not (null? #{x\ 1310}#))
-                     (if (not (null? #{y\ 1311}#))
-                       (if (eq? (car #{x\ 1310}#) (car #{y\ 1311}#))
-                         (#{same-marks?\ 430}#
-                           (cdr #{x\ 1310}#)
-                           (cdr #{y\ 1311}#))
+               (let ((#{t\ 1317}# (eq? #{x\ 1311}# #{y\ 1312}#)))
+                 (if #{t\ 1317}#
+                   #{t\ 1317}#
+                   (if (not (null? #{x\ 1311}#))
+                     (if (not (null? #{y\ 1312}#))
+                       (if (eq? (car #{x\ 1311}#) (car #{y\ 1312}#))
+                         (#{same-marks?\ 431}#
+                           (cdr #{x\ 1311}#)
+                           (cdr #{y\ 1312}#))
                          #f)
                        #f)
                      #f))))))
-         (#{id-var-name\ 432}#
-           (lambda (#{id\ 1322}# #{w\ 1323}#)
+         (#{id-var-name\ 433}#
+           (lambda (#{id\ 1323}# #{w\ 1324}#)
              (letrec*
-               ((#{search\ 1328}#
-                  (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#)
-                    (if (null? #{subst\ 1345}#)
-                      (values #f #{marks\ 1346}#)
+               ((#{search\ 1329}#
+                  (lambda (#{sym\ 1345}# #{subst\ 1346}# #{marks\ 1347}#)
+                    (if (null? #{subst\ 1346}#)
+                      (values #f #{marks\ 1347}#)
                       (begin
-                        (let ((#{fst\ 1351}# (car #{subst\ 1345}#)))
-                          (if (eq? #{fst\ 1351}# (quote shift))
-                            (#{search\ 1328}#
-                              #{sym\ 1344}#
-                              (cdr #{subst\ 1345}#)
-                              (cdr #{marks\ 1346}#))
+                        (let ((#{fst\ 1352}# (car #{subst\ 1346}#)))
+                          (if (eq? #{fst\ 1352}# 'shift)
+                            (#{search\ 1329}#
+                              #{sym\ 1345}#
+                              (cdr #{subst\ 1346}#)
+                              (cdr #{marks\ 1347}#))
                             (begin
-                              (let ((#{symnames\ 1353}#
-                                      (#{ribcage-symnames\ 400}#
-                                        #{fst\ 1351}#)))
-                                (if (vector? #{symnames\ 1353}#)
-                                  (#{search-vector-rib\ 1332}#
-                                    #{sym\ 1344}#
-                                    #{subst\ 1345}#
-                                    #{marks\ 1346}#
-                                    #{symnames\ 1353}#
-                                    #{fst\ 1351}#)
-                                  (#{search-list-rib\ 1330}#
-                                    #{sym\ 1344}#
-                                    #{subst\ 1345}#
-                                    #{marks\ 1346}#
-                                    #{symnames\ 1353}#
-                                    #{fst\ 1351}#))))))))))
-                (#{search-list-rib\ 1330}#
-                  (lambda (#{sym\ 1354}#
-                           #{subst\ 1355}#
-                           #{marks\ 1356}#
-                           #{symnames\ 1357}#
-                           #{ribcage\ 1358}#)
+                              (let ((#{symnames\ 1354}#
+                                      (#{ribcage-symnames\ 401}#
+                                        #{fst\ 1352}#)))
+                                (if (vector? #{symnames\ 1354}#)
+                                  (#{search-vector-rib\ 1333}#
+                                    #{sym\ 1345}#
+                                    #{subst\ 1346}#
+                                    #{marks\ 1347}#
+                                    #{symnames\ 1354}#
+                                    #{fst\ 1352}#)
+                                  (#{search-list-rib\ 1331}#
+                                    #{sym\ 1345}#
+                                    #{subst\ 1346}#
+                                    #{marks\ 1347}#
+                                    #{symnames\ 1354}#
+                                    #{fst\ 1352}#))))))))))
+                (#{search-list-rib\ 1331}#
+                  (lambda (#{sym\ 1355}#
+                           #{subst\ 1356}#
+                           #{marks\ 1357}#
+                           #{symnames\ 1358}#
+                           #{ribcage\ 1359}#)
                     (letrec*
-                      ((#{f\ 1367}#
-                         (lambda (#{symnames\ 1368}# #{i\ 1369}#)
-                           (if (null? #{symnames\ 1368}#)
-                             (#{search\ 1328}#
-                               #{sym\ 1354}#
-                               (cdr #{subst\ 1355}#)
-                               #{marks\ 1356}#)
-                             (if (if (eq? (car #{symnames\ 1368}#)
-                                          #{sym\ 1354}#)
-                                   (#{same-marks?\ 430}#
-                                     #{marks\ 1356}#
+                      ((#{f\ 1368}#
+                         (lambda (#{symnames\ 1369}# #{i\ 1370}#)
+                           (if (null? #{symnames\ 1369}#)
+                             (#{search\ 1329}#
+                               #{sym\ 1355}#
+                               (cdr #{subst\ 1356}#)
+                               #{marks\ 1357}#)
+                             (if (if (eq? (car #{symnames\ 1369}#)
+                                          #{sym\ 1355}#)
+                                   (#{same-marks?\ 431}#
+                                     #{marks\ 1357}#
                                      (list-ref
-                                       (#{ribcage-marks\ 402}#
-                                         #{ribcage\ 1358}#)
-                                       #{i\ 1369}#))
+                                       (#{ribcage-marks\ 403}#
+                                         #{ribcage\ 1359}#)
+                                       #{i\ 1370}#))
                                    #f)
                                (values
                                  (list-ref
-                                   (#{ribcage-labels\ 404}# #{ribcage\ 1358}#)
-                                   #{i\ 1369}#)
-                                 #{marks\ 1356}#)
-                               (#{f\ 1367}#
-                                 (cdr #{symnames\ 1368}#)
-                                 (#{fx+\ 281}# #{i\ 1369}# 1)))))))
-                      (begin (#{f\ 1367}# #{symnames\ 1357}# 0)))))
-                (#{search-vector-rib\ 1332}#
-                  (lambda (#{sym\ 1377}#
-                           #{subst\ 1378}#
-                           #{marks\ 1379}#
-                           #{symnames\ 1380}#
-                           #{ribcage\ 1381}#)
+                                   (#{ribcage-labels\ 405}# #{ribcage\ 1359}#)
+                                   #{i\ 1370}#)
+                                 #{marks\ 1357}#)
+                               (#{f\ 1368}#
+                                 (cdr #{symnames\ 1369}#)
+                                 (#{fx+\ 282}# #{i\ 1370}# 1)))))))
+                      (begin (#{f\ 1368}# #{symnames\ 1358}# 0)))))
+                (#{search-vector-rib\ 1333}#
+                  (lambda (#{sym\ 1378}#
+                           #{subst\ 1379}#
+                           #{marks\ 1380}#
+                           #{symnames\ 1381}#
+                           #{ribcage\ 1382}#)
                     (begin
-                      (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#)))
+                      (let ((#{n\ 1389}# (vector-length #{symnames\ 1381}#)))
                         (letrec*
-                          ((#{f\ 1391}#
-                             (lambda (#{i\ 1392}#)
-                               (if (#{fx=\ 285}# #{i\ 1392}# #{n\ 1388}#)
-                                 (#{search\ 1328}#
-                                   #{sym\ 1377}#
-                                   (cdr #{subst\ 1378}#)
-                                   #{marks\ 1379}#)
+                          ((#{f\ 1392}#
+                             (lambda (#{i\ 1393}#)
+                               (if (#{fx=\ 286}# #{i\ 1393}# #{n\ 1389}#)
+                                 (#{search\ 1329}#
+                                   #{sym\ 1378}#
+                                   (cdr #{subst\ 1379}#)
+                                   #{marks\ 1380}#)
                                  (if (if (eq? (vector-ref
-                                                #{symnames\ 1380}#
-                                                #{i\ 1392}#)
-                                              #{sym\ 1377}#)
-                                       (#{same-marks?\ 430}#
-                                         #{marks\ 1379}#
+                                                #{symnames\ 1381}#
+                                                #{i\ 1393}#)
+                                              #{sym\ 1378}#)
+                                       (#{same-marks?\ 431}#
+                                         #{marks\ 1380}#
                                          (vector-ref
-                                           (#{ribcage-marks\ 402}#
-                                             #{ribcage\ 1381}#)
-                                           #{i\ 1392}#))
+                                           (#{ribcage-marks\ 403}#
+                                             #{ribcage\ 1382}#)
+                                           #{i\ 1393}#))
                                        #f)
                                    (values
                                      (vector-ref
-                                       (#{ribcage-labels\ 404}#
-                                         #{ribcage\ 1381}#)
-                                       #{i\ 1392}#)
-                                     #{marks\ 1379}#)
-                                   (#{f\ 1391}#
-                                     (#{fx+\ 281}# #{i\ 1392}# 1)))))))
-                          (begin (#{f\ 1391}# 0))))))))
+                                       (#{ribcage-labels\ 405}#
+                                         #{ribcage\ 1382}#)
+                                       #{i\ 1393}#)
+                                     #{marks\ 1380}#)
+                                   (#{f\ 1392}#
+                                     (#{fx+\ 282}# #{i\ 1393}# 1)))))))
+                          (begin (#{f\ 1392}# 0))))))))
                (begin
-                 (if (symbol? #{id\ 1322}#)
+                 (if (symbol? #{id\ 1323}#)
                    (begin
-                     (let ((#{t\ 1402}#
+                     (let ((#{t\ 1403}#
                              (call-with-values
                                (lambda ()
-                                 (#{search\ 1328}#
-                                   #{id\ 1322}#
-                                   (cdr #{w\ 1323}#)
-                                   (car #{w\ 1323}#)))
-                               (lambda (#{x\ 1406}# . #{ignore\ 1407}#)
-                                 #{x\ 1406}#))))
-                       (if #{t\ 1402}# #{t\ 1402}# #{id\ 1322}#)))
-                   (if (#{syntax-object?\ 344}# #{id\ 1322}#)
+                                 (#{search\ 1329}#
+                                   #{id\ 1323}#
+                                   (cdr #{w\ 1324}#)
+                                   (car #{w\ 1324}#)))
+                               (lambda (#{x\ 1407}# . #{ignore\ 1408}#)
+                                 #{x\ 1407}#))))
+                       (if #{t\ 1403}# #{t\ 1403}# #{id\ 1323}#)))
+                   (if (#{syntax-object?\ 345}# #{id\ 1323}#)
                      (begin
-                       (let ((#{id\ 1415}#
-                               (#{syntax-object-expression\ 346}#
-                                 #{id\ 1322}#))
-                             (#{w1\ 1416}#
-                               (#{syntax-object-wrap\ 348}# #{id\ 1322}#)))
+                       (let ((#{id\ 1416}#
+                               (#{syntax-object-expression\ 347}#
+                                 #{id\ 1323}#))
+                             (#{w1\ 1417}#
+                               (#{syntax-object-wrap\ 349}# #{id\ 1323}#)))
                          (begin
-                           (let ((#{marks\ 1418}#
-                                   (#{join-marks\ 428}#
-                                     (car #{w\ 1323}#)
-                                     (car #{w1\ 1416}#))))
+                           (let ((#{marks\ 1419}#
+                                   (#{join-marks\ 429}#
+                                     (car #{w\ 1324}#)
+                                     (car #{w1\ 1417}#))))
                              (call-with-values
                                (lambda ()
-                                 (#{search\ 1328}#
-                                   #{id\ 1415}#
-                                   (cdr #{w\ 1323}#)
-                                   #{marks\ 1418}#))
-                               (lambda (#{new-id\ 1422}# #{marks\ 1423}#)
+                                 (#{search\ 1329}#
+                                   #{id\ 1416}#
+                                   (cdr #{w\ 1324}#)
+                                   #{marks\ 1419}#))
+                               (lambda (#{new-id\ 1423}# #{marks\ 1424}#)
                                  (begin
-                                   (let ((#{t\ 1428}# #{new-id\ 1422}#))
-                                     (if #{t\ 1428}#
-                                       #{t\ 1428}#
+                                   (let ((#{t\ 1429}# #{new-id\ 1423}#))
+                                     (if #{t\ 1429}#
+                                       #{t\ 1429}#
                                        (begin
-                                         (let ((#{t\ 1431}#
+                                         (let ((#{t\ 1432}#
                                                  (call-with-values
                                                    (lambda ()
-                                                     (#{search\ 1328}#
-                                                       #{id\ 1415}#
-                                                       (cdr #{w1\ 1416}#)
-                                                       #{marks\ 1423}#))
-                                                   (lambda (#{x\ 1434}#
+                                                     (#{search\ 1329}#
+                                                       #{id\ 1416}#
+                                                       (cdr #{w1\ 1417}#)
+                                                       #{marks\ 1424}#))
+                                                   (lambda (#{x\ 1435}#
                                                             .
-                                                            #{ignore\ 1435}#)
-                                                     #{x\ 1434}#))))
-                                           (if #{t\ 1431}#
-                                             #{t\ 1431}#
-                                             #{id\ 1415}#))))))))))))
+                                                            #{ignore\ 1436}#)
+                                                     #{x\ 1435}#))))
+                                           (if #{t\ 1432}#
+                                             #{t\ 1432}#
+                                             #{id\ 1416}#))))))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 1322}#)))))))
-         (#{free-id=?\ 434}#
-           (lambda (#{i\ 1440}# #{j\ 1441}#)
+                       #{id\ 1323}#)))))))
+         (#{free-id=?\ 435}#
+           (lambda (#{i\ 1441}# #{j\ 1442}#)
              (if (eq? (begin
-                        (let ((#{x\ 1447}# #{i\ 1440}#))
-                          (if (#{syntax-object?\ 344}# #{x\ 1447}#)
-                            (#{syntax-object-expression\ 346}# #{x\ 1447}#)
-                            #{x\ 1447}#)))
+                        (let ((#{x\ 1448}# #{i\ 1441}#))
+                          (if (#{syntax-object?\ 345}# #{x\ 1448}#)
+                            (#{syntax-object-expression\ 347}# #{x\ 1448}#)
+                            #{x\ 1448}#)))
                       (begin
-                        (let ((#{x\ 1450}# #{j\ 1441}#))
-                          (if (#{syntax-object?\ 344}# #{x\ 1450}#)
-                            (#{syntax-object-expression\ 346}# #{x\ 1450}#)
-                            #{x\ 1450}#))))
-               (eq? (#{id-var-name\ 432}# #{i\ 1440}# (quote (())))
-                    (#{id-var-name\ 432}# #{j\ 1441}# (quote (()))))
+                        (let ((#{x\ 1451}# #{j\ 1442}#))
+                          (if (#{syntax-object?\ 345}# #{x\ 1451}#)
+                            (#{syntax-object-expression\ 347}# #{x\ 1451}#)
+                            #{x\ 1451}#))))
+               (eq? (#{id-var-name\ 433}# #{i\ 1441}# '(()))
+                    (#{id-var-name\ 433}# #{j\ 1442}# '(())))
                #f)))
-         (#{bound-id=?\ 436}#
-           (lambda (#{i\ 1454}# #{j\ 1455}#)
-             (if (if (#{syntax-object?\ 344}# #{i\ 1454}#)
-                   (#{syntax-object?\ 344}# #{j\ 1455}#)
+         (#{bound-id=?\ 437}#
+           (lambda (#{i\ 1455}# #{j\ 1456}#)
+             (if (if (#{syntax-object?\ 345}# #{i\ 1455}#)
+                   (#{syntax-object?\ 345}# #{j\ 1456}#)
                    #f)
-               (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1454}#)
-                        (#{syntax-object-expression\ 346}# #{j\ 1455}#))
-                 (#{same-marks?\ 430}#
-                   (car (#{syntax-object-wrap\ 348}# #{i\ 1454}#))
-                   (car (#{syntax-object-wrap\ 348}# #{j\ 1455}#)))
+               (if (eq? (#{syntax-object-expression\ 347}# #{i\ 1455}#)
+                        (#{syntax-object-expression\ 347}# #{j\ 1456}#))
+                 (#{same-marks?\ 431}#
+                   (car (#{syntax-object-wrap\ 349}# #{i\ 1455}#))
+                   (car (#{syntax-object-wrap\ 349}# #{j\ 1456}#)))
                  #f)
-               (eq? #{i\ 1454}# #{j\ 1455}#))))
-         (#{valid-bound-ids?\ 438}#
-           (lambda (#{ids\ 1464}#)
+               (eq? #{i\ 1455}# #{j\ 1456}#))))
+         (#{valid-bound-ids?\ 439}#
+           (lambda (#{ids\ 1465}#)
              (if (letrec*
-                   ((#{all-ids?\ 1469}#
-                      (lambda (#{ids\ 1470}#)
+                   ((#{all-ids?\ 1470}#
+                      (lambda (#{ids\ 1471}#)
                         (begin
-                          (let ((#{t\ 1473}# (null? #{ids\ 1470}#)))
-                            (if #{t\ 1473}#
-                              #{t\ 1473}#
-                              (if (#{id?\ 378}# (car #{ids\ 1470}#))
-                                (#{all-ids?\ 1469}# (cdr #{ids\ 1470}#))
+                          (let ((#{t\ 1474}# (null? #{ids\ 1471}#)))
+                            (if #{t\ 1474}#
+                              #{t\ 1474}#
+                              (if (#{id?\ 379}# (car #{ids\ 1471}#))
+                                (#{all-ids?\ 1470}# (cdr #{ids\ 1471}#))
                                 #f)))))))
-                   (begin (#{all-ids?\ 1469}# #{ids\ 1464}#)))
-               (#{distinct-bound-ids?\ 440}# #{ids\ 1464}#)
+                   (begin (#{all-ids?\ 1470}# #{ids\ 1465}#)))
+               (#{distinct-bound-ids?\ 441}# #{ids\ 1465}#)
                #f)))
-         (#{distinct-bound-ids?\ 440}#
-           (lambda (#{ids\ 1478}#)
+         (#{distinct-bound-ids?\ 441}#
+           (lambda (#{ids\ 1479}#)
              (letrec*
-               ((#{distinct?\ 1482}#
-                  (lambda (#{ids\ 1483}#)
+               ((#{distinct?\ 1483}#
+                  (lambda (#{ids\ 1484}#)
                     (begin
-                      (let ((#{t\ 1486}# (null? #{ids\ 1483}#)))
-                        (if #{t\ 1486}#
-                          #{t\ 1486}#
-                          (if (not (#{bound-id-member?\ 442}#
-                                     (car #{ids\ 1483}#)
-                                     (cdr #{ids\ 1483}#)))
-                            (#{distinct?\ 1482}# (cdr #{ids\ 1483}#))
+                      (let ((#{t\ 1487}# (null? #{ids\ 1484}#)))
+                        (if #{t\ 1487}#
+                          #{t\ 1487}#
+                          (if (not (#{bound-id-member?\ 443}#
+                                     (car #{ids\ 1484}#)
+                                     (cdr #{ids\ 1484}#)))
+                            (#{distinct?\ 1483}# (cdr #{ids\ 1484}#))
                             #f)))))))
-               (begin (#{distinct?\ 1482}# #{ids\ 1478}#)))))
-         (#{bound-id-member?\ 442}#
-           (lambda (#{x\ 1490}# #{list\ 1491}#)
-             (if (not (null? #{list\ 1491}#))
+               (begin (#{distinct?\ 1483}# #{ids\ 1479}#)))))
+         (#{bound-id-member?\ 443}#
+           (lambda (#{x\ 1491}# #{list\ 1492}#)
+             (if (not (null? #{list\ 1492}#))
                (begin
-                 (let ((#{t\ 1498}#
-                         (#{bound-id=?\ 436}#
-                           #{x\ 1490}#
-                           (car #{list\ 1491}#))))
-                   (if #{t\ 1498}#
-                     #{t\ 1498}#
-                     (#{bound-id-member?\ 442}#
-                       #{x\ 1490}#
-                       (cdr #{list\ 1491}#)))))
+                 (let ((#{t\ 1499}#
+                         (#{bound-id=?\ 437}#
+                           #{x\ 1491}#
+                           (car #{list\ 1492}#))))
+                   (if #{t\ 1499}#
+                     #{t\ 1499}#
+                     (#{bound-id-member?\ 443}#
+                       #{x\ 1491}#
+                       (cdr #{list\ 1492}#)))))
                #f)))
-         (#{wrap\ 444}#
-           (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#)
-             (if (if (null? (car #{w\ 1501}#))
-                   (null? (cdr #{w\ 1501}#))
+         (#{wrap\ 445}#
+           (lambda (#{x\ 1501}# #{w\ 1502}# #{defmod\ 1503}#)
+             (if (if (null? (car #{w\ 1502}#))
+                   (null? (cdr #{w\ 1502}#))
                    #f)
-               #{x\ 1500}#
-               (if (#{syntax-object?\ 344}# #{x\ 1500}#)
-                 (#{make-syntax-object\ 342}#
-                   (#{syntax-object-expression\ 346}# #{x\ 1500}#)
-                   (#{join-wraps\ 426}#
-                     #{w\ 1501}#
-                     (#{syntax-object-wrap\ 348}# #{x\ 1500}#))
-                   (#{syntax-object-module\ 350}# #{x\ 1500}#))
-                 (if (null? #{x\ 1500}#)
-                   #{x\ 1500}#
-                   (#{make-syntax-object\ 342}#
-                     #{x\ 1500}#
-                     #{w\ 1501}#
-                     #{defmod\ 1502}#))))))
-         (#{source-wrap\ 446}#
-           (lambda (#{x\ 1517}#
-                    #{w\ 1518}#
-                    #{s\ 1519}#
-                    #{defmod\ 1520}#)
-             (#{wrap\ 444}#
-               (#{decorate-source\ 298}#
-                 #{x\ 1517}#
-                 #{s\ 1519}#)
-               #{w\ 1518}#
-               #{defmod\ 1520}#)))
-         (#{chi-sequence\ 448}#
-           (lambda (#{body\ 1525}#
-                    #{r\ 1526}#
-                    #{w\ 1527}#
-                    #{s\ 1528}#
-                    #{mod\ 1529}#)
-             (#{build-sequence\ 332}#
-               #{s\ 1528}#
+               #{x\ 1501}#
+               (if (#{syntax-object?\ 345}# #{x\ 1501}#)
+                 (#{make-syntax-object\ 343}#
+                   (#{syntax-object-expression\ 347}# #{x\ 1501}#)
+                   (#{join-wraps\ 427}#
+                     #{w\ 1502}#
+                     (#{syntax-object-wrap\ 349}# #{x\ 1501}#))
+                   (#{syntax-object-module\ 351}# #{x\ 1501}#))
+                 (if (null? #{x\ 1501}#)
+                   #{x\ 1501}#
+                   (#{make-syntax-object\ 343}#
+                     #{x\ 1501}#
+                     #{w\ 1502}#
+                     #{defmod\ 1503}#))))))
+         (#{source-wrap\ 447}#
+           (lambda (#{x\ 1518}#
+                    #{w\ 1519}#
+                    #{s\ 1520}#
+                    #{defmod\ 1521}#)
+             (#{wrap\ 445}#
+               (#{decorate-source\ 299}#
+                 #{x\ 1518}#
+                 #{s\ 1520}#)
+               #{w\ 1519}#
+               #{defmod\ 1521}#)))
+         (#{chi-sequence\ 449}#
+           (lambda (#{body\ 1526}#
+                    #{r\ 1527}#
+                    #{w\ 1528}#
+                    #{s\ 1529}#
+                    #{mod\ 1530}#)
+             (#{build-sequence\ 333}#
+               #{s\ 1529}#
                (letrec*
-                 ((#{dobody\ 1540}#
-                    (lambda (#{body\ 1541}#
-                             #{r\ 1542}#
-                             #{w\ 1543}#
-                             #{mod\ 1544}#)
-                      (if (null? #{body\ 1541}#)
+                 ((#{dobody\ 1541}#
+                    (lambda (#{body\ 1542}#
+                             #{r\ 1543}#
+                             #{w\ 1544}#
+                             #{mod\ 1545}#)
+                      (if (null? #{body\ 1542}#)
                         '()
                         (begin
-                          (let ((#{first\ 1546}#
-                                  (#{chi\ 460}#
-                                    (car #{body\ 1541}#)
-                                    #{r\ 1542}#
-                                    #{w\ 1543}#
-                                    #{mod\ 1544}#)))
-                            (cons #{first\ 1546}#
-                                  (#{dobody\ 1540}#
-                                    (cdr #{body\ 1541}#)
-                                    #{r\ 1542}#
-                                    #{w\ 1543}#
-                                    #{mod\ 1544}#))))))))
+                          (let ((#{first\ 1547}#
+                                  (#{chi\ 461}#
+                                    (car #{body\ 1542}#)
+                                    #{r\ 1543}#
+                                    #{w\ 1544}#
+                                    #{mod\ 1545}#)))
+                            (cons #{first\ 1547}#
+                                  (#{dobody\ 1541}#
+                                    (cdr #{body\ 1542}#)
+                                    #{r\ 1543}#
+                                    #{w\ 1544}#
+                                    #{mod\ 1545}#))))))))
                  (begin
-                   (#{dobody\ 1540}#
-                     #{body\ 1525}#
-                     #{r\ 1526}#
-                     #{w\ 1527}#
-                     #{mod\ 1529}#))))))
-         (#{chi-top-sequence\ 450}#
-           (lambda (#{body\ 1547}#
-                    #{r\ 1548}#
-                    #{w\ 1549}#
-                    #{s\ 1550}#
-                    #{m\ 1551}#
-                    #{esew\ 1552}#
-                    #{mod\ 1553}#)
-             (#{build-sequence\ 332}#
-               #{s\ 1550}#
+                   (#{dobody\ 1541}#
+                     #{body\ 1526}#
+                     #{r\ 1527}#
+                     #{w\ 1528}#
+                     #{mod\ 1530}#))))))
+         (#{chi-top-sequence\ 451}#
+           (lambda (#{body\ 1548}#
+                    #{r\ 1549}#
+                    #{w\ 1550}#
+                    #{s\ 1551}#
+                    #{m\ 1552}#
+                    #{esew\ 1553}#
+                    #{mod\ 1554}#)
+             (#{build-sequence\ 333}#
+               #{s\ 1551}#
                (letrec*
-                 ((#{dobody\ 1569}#
-                    (lambda (#{body\ 1570}#
-                             #{r\ 1571}#
-                             #{w\ 1572}#
-                             #{m\ 1573}#
-                             #{esew\ 1574}#
-                             #{mod\ 1575}#
-                             #{out\ 1576}#)
-                      (if (null? #{body\ 1570}#)
-                        (reverse #{out\ 1576}#)
-                        (#{dobody\ 1569}#
-                          (cdr #{body\ 1570}#)
-                          #{r\ 1571}#
-                          #{w\ 1572}#
-                          #{m\ 1573}#
-                          #{esew\ 1574}#
-                          #{mod\ 1575}#
-                          (cons (#{chi-top\ 458}#
-                                  (car #{body\ 1570}#)
-                                  #{r\ 1571}#
-                                  #{w\ 1572}#
-                                  #{m\ 1573}#
-                                  #{esew\ 1574}#
-                                  #{mod\ 1575}#)
-                                #{out\ 1576}#))))))
+                 ((#{dobody\ 1570}#
+                    (lambda (#{body\ 1571}#
+                             #{r\ 1572}#
+                             #{w\ 1573}#
+                             #{m\ 1574}#
+                             #{esew\ 1575}#
+                             #{mod\ 1576}#
+                             #{out\ 1577}#)
+                      (if (null? #{body\ 1571}#)
+                        (reverse #{out\ 1577}#)
+                        (#{dobody\ 1570}#
+                          (cdr #{body\ 1571}#)
+                          #{r\ 1572}#
+                          #{w\ 1573}#
+                          #{m\ 1574}#
+                          #{esew\ 1575}#
+                          #{mod\ 1576}#
+                          (cons (#{chi-top\ 459}#
+                                  (car #{body\ 1571}#)
+                                  #{r\ 1572}#
+                                  #{w\ 1573}#
+                                  #{m\ 1574}#
+                                  #{esew\ 1575}#
+                                  #{mod\ 1576}#)
+                                #{out\ 1577}#))))))
                  (begin
-                   (#{dobody\ 1569}#
-                     #{body\ 1547}#
-                     #{r\ 1548}#
-                     #{w\ 1549}#
-                     #{m\ 1551}#
-                     #{esew\ 1552}#
-                     #{mod\ 1553}#
+                   (#{dobody\ 1570}#
+                     #{body\ 1548}#
+                     #{r\ 1549}#
+                     #{w\ 1550}#
+                     #{m\ 1552}#
+                     #{esew\ 1553}#
+                     #{mod\ 1554}#
                      '()))))))
-         (#{chi-install-global\ 452}#
-           (lambda (#{name\ 1577}# #{e\ 1578}#)
-             (#{build-global-definition\ 320}#
+         (#{chi-install-global\ 453}#
+           (lambda (#{name\ 1578}# #{e\ 1579}#)
+             (#{build-global-definition\ 321}#
                #f
-               #{name\ 1577}#
-               (#{build-application\ 304}#
+               #{name\ 1578}#
+               (#{build-application\ 305}#
                  #f
-                 (#{build-primref\ 328}#
+                 (#{build-primref\ 329}#
                    #f
                    'make-syntax-transformer)
-                 (list (#{build-data\ 330}# #f #{name\ 1577}#)
-                       (#{build-data\ 330}# #f (quote macro))
-                       #{e\ 1578}#)))))
-         (#{chi-when-list\ 454}#
-           (lambda (#{e\ 1586}# #{when-list\ 1587}# #{w\ 1588}#)
+                 (list (#{build-data\ 331}# #f #{name\ 1578}#)
+                       (#{build-data\ 331}# #f 'macro)
+                       #{e\ 1579}#)))))
+         (#{chi-when-list\ 455}#
+           (lambda (#{e\ 1587}# #{when-list\ 1588}# #{w\ 1589}#)
              (letrec*
-               ((#{f\ 1595}#
-                  (lambda (#{when-list\ 1596}# #{situations\ 1597}#)
-                    (if (null? #{when-list\ 1596}#)
-                      #{situations\ 1597}#
-                      (#{f\ 1595}#
-                        (cdr #{when-list\ 1596}#)
+               ((#{f\ 1596}#
+                  (lambda (#{when-list\ 1597}# #{situations\ 1598}#)
+                    (if (null? #{when-list\ 1597}#)
+                      #{situations\ 1598}#
+                      (#{f\ 1596}#
+                        (cdr #{when-list\ 1597}#)
                         (cons (begin
-                                (let ((#{x\ 1599}# (car #{when-list\ 1596}#)))
-                                  (if (#{free-id=?\ 434}#
-                                        #{x\ 1599}#
+                                (let ((#{x\ 1600}# (car #{when-list\ 1597}#)))
+                                  (if (#{free-id=?\ 435}#
+                                        #{x\ 1600}#
                                         '#(syntax-object
                                            compile
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage () () ())
-                                            #(ribcage #(x) #((top)) #("i1598"))
+                                            #(ribcage #(x) #((top)) #("i1599"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(f when-list situations)
                                               #((top) (top) (top))
-                                              #("i1592" "i1593" "i1594"))
+                                              #("i1593" "i1594" "i1595"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(e when-list w)
                                               #((top) (top) (top))
-                                              #("i1589" "i1590" "i1591"))
+                                              #("i1590" "i1591" "i1592"))
                                             #(ribcage
                                               (lambda-var-list
                                                 gen-var
@@ -1478,58 +1474,59 @@
                                                (top)
                                                (top)
                                                (top))
-                                              ("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"
-                                               "i423"
-                                               "i421"
+                                              ("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"
+                                               "i422"
+                                               "i420"
                                                "i419"
                                                "i418"
-                                               "i417"
+                                               "i416"
                                                "i415"
                                                "i414"
                                                "i413"
                                                "i412"
-                                               "i411"
-                                               "i409"
-                                               "i407"
-                                               "i405"
-                                               "i403"
-                                               "i401"
-                                               "i399"
-                                               "i397"
-                                               "i395"
-                                               "i392"
+                                               "i410"
+                                               "i408"
+                                               "i406"
+                                               "i404"
+                                               "i402"
+                                               "i400"
+                                               "i398"
+                                               "i396"
+                                               "i393"
+                                               "i391"
                                                "i390"
                                                "i389"
                                                "i388"
@@ -1538,94 +1535,93 @@
                                                "i385"
                                                "i384"
                                                "i383"
-                                               "i382"
+                                               "i381"
                                                "i380"
-                                               "i379"
-                                               "i377"
-                                               "i375"
-                                               "i373"
-                                               "i371"
-                                               "i369"
-                                               "i367"
+                                               "i378"
+                                               "i376"
+                                               "i374"
+                                               "i372"
+                                               "i370"
+                                               "i368"
+                                               "i366"
                                                "i365"
                                                "i364"
                                                "i363"
                                                "i362"
                                                "i361"
-                                               "i360"
+                                               "i359"
                                                "i358"
-                                               "i357"
-                                               "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"
+                                               "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"
                                                "i293"
-                                               "i292"
-                                               "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"))
+                                               "i291"
+                                               "i289"
+                                               "i287"
+                                               "i285"
+                                               "i283"
+                                               "i281"
+                                               "i279"
+                                               "i277"
+                                               "i275"
+                                               "i272"
+                                               "i270"
+                                               "i268"
+                                               "i266"
+                                               "i264"
+                                               "i262"
+                                               "i260"
+                                               "i258"
+                                               "i256"
+                                               "i254"
+                                               "i252"
+                                               "i250"
+                                               "i248"
+                                               "i246"
+                                               "i244"
+                                               "i242"
+                                               "i240"
+                                               "i238"))
                                             #(ribcage
                                               (define-structure
                                                 define-expansion-accessors
                                                 define-expansion-constructors
                                                 and-map*)
                                               ((top) (top) (top) (top))
-                                              ("i39" "i38" "i37" "i35")))
+                                              ("i40" "i39" "i38" "i36")))
                                            (hygiene guile)))
                                     'compile
-                                    (if (#{free-id=?\ 434}#
-                                          #{x\ 1599}#
+                                    (if (#{free-id=?\ 435}#
+                                          #{x\ 1600}#
                                           '#(syntax-object
                                              load
                                              ((top)
@@ -1635,17 +1631,17 @@
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i1598"))
+                                                #("i1599"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(f when-list situations)
                                                 #((top) (top) (top))
-                                                #("i1592" "i1593" "i1594"))
+                                                #("i1593" "i1594" "i1595"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(e when-list w)
                                                 #((top) (top) (top))
-                                                #("i1589" "i1590" "i1591"))
+                                                #("i1590" "i1591" "i1592"))
                                               #(ribcage
                                                 (lambda-var-list
                                                   gen-var
@@ -1921,58 +1917,59 @@
                                                  (top)
                                                  (top)
                                                  (top))
-                                                ("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"
-                                                 "i423"
-                                                 "i421"
+                                                ("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"
+                                                 "i422"
+                                                 "i420"
                                                  "i419"
                                                  "i418"
-                                                 "i417"
+                                                 "i416"
                                                  "i415"
                                                  "i414"
                                                  "i413"
                                                  "i412"
-                                                 "i411"
-                                                 "i409"
-                                                 "i407"
-                                                 "i405"
-                                                 "i403"
-                                                 "i401"
-                                                 "i399"
-                                                 "i397"
-                                                 "i395"
-                                                 "i392"
+                                                 "i410"
+                                                 "i408"
+                                                 "i406"
+                                                 "i404"
+                                                 "i402"
+                                                 "i400"
+                                                 "i398"
+                                                 "i396"
+                                                 "i393"
+                                                 "i391"
                                                  "i390"
                                                  "i389"
                                                  "i388"
@@ -1981,94 +1978,93 @@
                                                  "i385"
                                                  "i384"
                                                  "i383"
-                                                 "i382"
+                                                 "i381"
                                                  "i380"
-                                                 "i379"
-                                                 "i377"
-                                                 "i375"
-                                                 "i373"
-                                                 "i371"
-                                                 "i369"
-                                                 "i367"
+                                                 "i378"
+                                                 "i376"
+                                                 "i374"
+                                                 "i372"
+                                                 "i370"
+                                                 "i368"
+                                                 "i366"
                                                  "i365"
                                                  "i364"
                                                  "i363"
                                                  "i362"
                                                  "i361"
-                                                 "i360"
+                                                 "i359"
                                                  "i358"
-                                                 "i357"
-                                                 "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"
+                                                 "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"
                                                  "i293"
-                                                 "i292"
-                                                 "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"))
+                                                 "i291"
+                                                 "i289"
+                                                 "i287"
+                                                 "i285"
+                                                 "i283"
+                                                 "i281"
+                                                 "i279"
+                                                 "i277"
+                                                 "i275"
+                                                 "i272"
+                                                 "i270"
+                                                 "i268"
+                                                 "i266"
+                                                 "i264"
+                                                 "i262"
+                                                 "i260"
+                                                 "i258"
+                                                 "i256"
+                                                 "i254"
+                                                 "i252"
+                                                 "i250"
+                                                 "i248"
+                                                 "i246"
+                                                 "i244"
+                                                 "i242"
+                                                 "i240"
+                                                 "i238"))
                                               #(ribcage
                                                 (define-structure
                                                   define-expansion-accessors
                                                   define-expansion-constructors
                                                   and-map*)
                                                 ((top) (top) (top) (top))
-                                                ("i39" "i38" "i37" "i35")))
+                                                ("i40" "i39" "i38" "i36")))
                                              (hygiene guile)))
                                       'load
-                                      (if (#{free-id=?\ 434}#
-                                            #{x\ 1599}#
+                                      (if (#{free-id=?\ 435}#
+                                            #{x\ 1600}#
                                             '#(syntax-object
                                                eval
                                                ((top)
@@ -2078,17 +2074,17 @@
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
-                                                  #("i1598"))
+                                                  #("i1599"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(f when-list situations)
                                                   #((top) (top) (top))
-                                                  #("i1592" "i1593" "i1594"))
+                                                  #("i1593" "i1594" "i1595"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(e when-list w)
                                                   #((top) (top) (top))
-                                                  #("i1589" "i1590" "i1591"))
+                                                  #("i1590" "i1591" "i1592"))
                                                 #(ribcage
                                                   (lambda-var-list
                                                     gen-var
@@ -2364,58 +2360,59 @@
                                                    (top)
                                                    (top)
                                                    (top))
-                                                  ("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"
-                                                   "i423"
-                                                   "i421"
+                                                  ("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"
+                                                   "i422"
+                                                   "i420"
                                                    "i419"
                                                    "i418"
-                                                   "i417"
+                                                   "i416"
                                                    "i415"
                                                    "i414"
                                                    "i413"
                                                    "i412"
-                                                   "i411"
-                                                   "i409"
-                                                   "i407"
-                                                   "i405"
-                                                   "i403"
-                                                   "i401"
-                                                   "i399"
-                                                   "i397"
-                                                   "i395"
-                                                   "i392"
+                                                   "i410"
+                                                   "i408"
+                                                   "i406"
+                                                   "i404"
+                                                   "i402"
+                                                   "i400"
+                                                   "i398"
+                                                   "i396"
+                                                   "i393"
+                                                   "i391"
                                                    "i390"
                                                    "i389"
                                                    "i388"
@@ -2424,94 +2421,93 @@
                                                    "i385"
                                                    "i384"
                                                    "i383"
-                                                   "i382"
+                                                   "i381"
                                                    "i380"
-                                                   "i379"
-                                                   "i377"
-                                                   "i375"
-                                                   "i373"
-                                                   "i371"
-                                                   "i369"
-                                                   "i367"
+                                                   "i378"
+                                                   "i376"
+                                                   "i374"
+                                                   "i372"
+                                                   "i370"
+                                                   "i368"
+                                                   "i366"
                                                    "i365"
                                                    "i364"
                                                    "i363"
                                                    "i362"
                                                    "i361"
-                                                   "i360"
+                                                   "i359"
                                                    "i358"
-                                                   "i357"
-                                                   "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"
+                                                   "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"
                                                    "i293"
-                                                   "i292"
-                                                   "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"))
+                                                   "i291"
+                                                   "i289"
+                                                   "i287"
+                                                   "i285"
+                                                   "i283"
+                                                   "i281"
+                                                   "i279"
+                                                   "i277"
+                                                   "i275"
+                                                   "i272"
+                                                   "i270"
+                                                   "i268"
+                                                   "i266"
+                                                   "i264"
+                                                   "i262"
+                                                   "i260"
+                                                   "i258"
+                                                   "i256"
+                                                   "i254"
+                                                   "i252"
+                                                   "i250"
+                                                   "i248"
+                                                   "i246"
+                                                   "i244"
+                                                   "i242"
+                                                   "i240"
+                                                   "i238"))
                                                 #(ribcage
                                                   (define-structure
                                                     define-expansion-accessors
                                                     
define-expansion-constructors
                                                     and-map*)
                                                   ((top) (top) (top) (top))
-                                                  ("i39" "i38" "i37" "i35")))
+                                                  ("i40" "i39" "i38" "i36")))
                                                (hygiene guile)))
                                         'eval
-                                        (if (#{free-id=?\ 434}#
-                                              #{x\ 1599}#
+                                        (if (#{free-id=?\ 435}#
+                                              #{x\ 1600}#
                                               '#(syntax-object
                                                  expand
                                                  ((top)
@@ -2521,17 +2517,17 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i1598"))
+                                                    #("i1599"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i1592" "i1593" "i1594"))
+                                                    #("i1593" "i1594" "i1595"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i1589" "i1590" "i1591"))
+                                                    #("i1590" "i1591" "i1592"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -2807,58 +2803,59 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("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"
-                                                     "i423"
-                                                     "i421"
+                                                    ("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"
+                                                     "i422"
+                                                     "i420"
                                                      "i419"
                                                      "i418"
-                                                     "i417"
+                                                     "i416"
                                                      "i415"
                                                      "i414"
                                                      "i413"
                                                      "i412"
-                                                     "i411"
-                                                     "i409"
-                                                     "i407"
-                                                     "i405"
-                                                     "i403"
-                                                     "i401"
-                                                     "i399"
-                                                     "i397"
-                                                     "i395"
-                                                     "i392"
+                                                     "i410"
+                                                     "i408"
+                                                     "i406"
+                                                     "i404"
+                                                     "i402"
+                                                     "i400"
+                                                     "i398"
+                                                     "i396"
+                                                     "i393"
+                                                     "i391"
                                                      "i390"
                                                      "i389"
                                                      "i388"
@@ -2867,337 +2864,332 @@
                                                      "i385"
                                                      "i384"
                                                      "i383"
-                                                     "i382"
+                                                     "i381"
                                                      "i380"
-                                                     "i379"
-                                                     "i377"
-                                                     "i375"
-                                                     "i373"
-                                                     "i371"
-                                                     "i369"
-                                                     "i367"
+                                                     "i378"
+                                                     "i376"
+                                                     "i374"
+                                                     "i372"
+                                                     "i370"
+                                                     "i368"
+                                                     "i366"
                                                      "i365"
                                                      "i364"
                                                      "i363"
                                                      "i362"
                                                      "i361"
-                                                     "i360"
+                                                     "i359"
                                                      "i358"
-                                                     "i357"
-                                                     "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"
+                                                     "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"
                                                      "i293"
-                                                     "i292"
-                                                     "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"))
+                                                     "i291"
+                                                     "i289"
+                                                     "i287"
+                                                     "i285"
+                                                     "i283"
+                                                     "i281"
+                                                     "i279"
+                                                     "i277"
+                                                     "i275"
+                                                     "i272"
+                                                     "i270"
+                                                     "i268"
+                                                     "i266"
+                                                     "i264"
+                                                     "i262"
+                                                     "i260"
+                                                     "i258"
+                                                     "i256"
+                                                     "i254"
+                                                     "i252"
+                                                     "i250"
+                                                     "i248"
+                                                     "i246"
+                                                     "i244"
+                                                     "i242"
+                                                     "i240"
+                                                     "i238"))
                                                   #(ribcage
                                                     (define-structure
                                                       
define-expansion-accessors
                                                       
define-expansion-constructors
                                                       and-map*)
                                                     ((top) (top) (top) (top))
-                                                    ("i39" "i38" "i37" "i35")))
+                                                    ("i40" "i39" "i38" "i36")))
                                                  (hygiene guile)))
                                           'expand
                                           (syntax-violation
                                             'eval-when
                                             "invalid situation"
-                                            #{e\ 1586}#
-                                            (#{wrap\ 444}#
-                                              #{x\ 1599}#
-                                              #{w\ 1588}#
+                                            #{e\ 1587}#
+                                            (#{wrap\ 445}#
+                                              #{x\ 1600}#
+                                              #{w\ 1589}#
                                               #f))))))))
-                              #{situations\ 1597}#))))))
+                              #{situations\ 1598}#))))))
+               (begin (#{f\ 1596}# #{when-list\ 1588}# '())))))
+         (#{syntax-type\ 457}#
+           (lambda (#{e\ 1610}#
+                    #{r\ 1611}#
+                    #{w\ 1612}#
+                    #{s\ 1613}#
+                    #{rib\ 1614}#
+                    #{mod\ 1615}#
+                    #{for-car?\ 1616}#)
+             (if (symbol? #{e\ 1610}#)
                (begin
-                 (#{f\ 1595}# #{when-list\ 1587}# (quote ()))))))
-         (#{syntax-type\ 456}#
-           (lambda (#{e\ 1609}#
-                    #{r\ 1610}#
-                    #{w\ 1611}#
-                    #{s\ 1612}#
-                    #{rib\ 1613}#
-                    #{mod\ 1614}#
-                    #{for-car?\ 1615}#)
-             (if (symbol? #{e\ 1609}#)
-               (begin
-                 (let ((#{n\ 1627}#
-                         (#{id-var-name\ 432}# #{e\ 1609}# #{w\ 1611}#)))
+                 (let ((#{n\ 1628}#
+                         (#{id-var-name\ 433}# #{e\ 1610}# #{w\ 1612}#)))
                    (begin
-                     (let ((#{b\ 1629}#
-                             (#{lookup\ 372}#
-                               #{n\ 1627}#
-                               #{r\ 1610}#
-                               #{mod\ 1614}#)))
+                     (let ((#{b\ 1630}#
+                             (#{lookup\ 373}#
+                               #{n\ 1628}#
+                               #{r\ 1611}#
+                               #{mod\ 1615}#)))
                        (begin
-                         (let ((#{type\ 1631}# (car #{b\ 1629}#)))
-                           (if (eqv? #{type\ 1631}# (quote lexical))
+                         (let ((#{type\ 1632}# (car #{b\ 1630}#)))
+                           (if (eqv? #{type\ 1632}# 'lexical)
                              (values
-                               #{type\ 1631}#
-                               (cdr #{b\ 1629}#)
-                               #{e\ 1609}#
-                               #{w\ 1611}#
-                               #{s\ 1612}#
-                               #{mod\ 1614}#)
-                             (if (eqv? #{type\ 1631}# (quote global))
+                               #{type\ 1632}#
+                               (cdr #{b\ 1630}#)
+                               #{e\ 1610}#
+                               #{w\ 1612}#
+                               #{s\ 1613}#
+                               #{mod\ 1615}#)
+                             (if (eqv? #{type\ 1632}# 'global)
                                (values
-                                 #{type\ 1631}#
-                                 #{n\ 1627}#
-                                 #{e\ 1609}#
-                                 #{w\ 1611}#
-                                 #{s\ 1612}#
-                                 #{mod\ 1614}#)
-                               (if (eqv? #{type\ 1631}# (quote macro))
-                                 (if #{for-car?\ 1615}#
+                                 #{type\ 1632}#
+                                 #{n\ 1628}#
+                                 #{e\ 1610}#
+                                 #{w\ 1612}#
+                                 #{s\ 1613}#
+                                 #{mod\ 1615}#)
+                               (if (eqv? #{type\ 1632}# 'macro)
+                                 (if #{for-car?\ 1616}#
                                    (values
-                                     #{type\ 1631}#
-                                     (cdr #{b\ 1629}#)
-                                     #{e\ 1609}#
-                                     #{w\ 1611}#
-                                     #{s\ 1612}#
-                                     #{mod\ 1614}#)
-                                   (#{syntax-type\ 456}#
-                                     (#{chi-macro\ 466}#
-                                       (cdr #{b\ 1629}#)
-                                       #{e\ 1609}#
-                                       #{r\ 1610}#
-                                       #{w\ 1611}#
-                                       #{s\ 1612}#
-                                       #{rib\ 1613}#
-                                       #{mod\ 1614}#)
-                                     #{r\ 1610}#
+                                     #{type\ 1632}#
+                                     (cdr #{b\ 1630}#)
+                                     #{e\ 1610}#
+                                     #{w\ 1612}#
+                                     #{s\ 1613}#
+                                     #{mod\ 1615}#)
+                                   (#{syntax-type\ 457}#
+                                     (#{chi-macro\ 467}#
+                                       (cdr #{b\ 1630}#)
+                                       #{e\ 1610}#
+                                       #{r\ 1611}#
+                                       #{w\ 1612}#
+                                       #{s\ 1613}#
+                                       #{rib\ 1614}#
+                                       #{mod\ 1615}#)
+                                     #{r\ 1611}#
                                      '(())
-                                     #{s\ 1612}#
-                                     #{rib\ 1613}#
-                                     #{mod\ 1614}#
+                                     #{s\ 1613}#
+                                     #{rib\ 1614}#
+                                     #{mod\ 1615}#
                                      #f))
                                  (values
-                                   #{type\ 1631}#
-                                   (cdr #{b\ 1629}#)
-                                   #{e\ 1609}#
-                                   #{w\ 1611}#
-                                   #{s\ 1612}#
-                                   #{mod\ 1614}#))))))))))
-               (if (pair? #{e\ 1609}#)
+                                   #{type\ 1632}#
+                                   (cdr #{b\ 1630}#)
+                                   #{e\ 1610}#
+                                   #{w\ 1612}#
+                                   #{s\ 1613}#
+                                   #{mod\ 1615}#))))))))))
+               (if (pair? #{e\ 1610}#)
                  (begin
-                   (let ((#{first\ 1645}# (car #{e\ 1609}#)))
+                   (let ((#{first\ 1646}# (car #{e\ 1610}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 456}#
-                           #{first\ 1645}#
-                           #{r\ 1610}#
-                           #{w\ 1611}#
-                           #{s\ 1612}#
-                           #{rib\ 1613}#
-                           #{mod\ 1614}#
+                         (#{syntax-type\ 457}#
+                           #{first\ 1646}#
+                           #{r\ 1611}#
+                           #{w\ 1612}#
+                           #{s\ 1613}#
+                           #{rib\ 1614}#
+                           #{mod\ 1615}#
                            #t))
-                       (lambda (#{ftype\ 1646}#
-                                #{fval\ 1647}#
-                                #{fe\ 1648}#
-                                #{fw\ 1649}#
-                                #{fs\ 1650}#
-                                #{fmod\ 1651}#)
-                         (if (eqv? #{ftype\ 1646}# (quote lexical))
+                       (lambda (#{ftype\ 1647}#
+                                #{fval\ 1648}#
+                                #{fe\ 1649}#
+                                #{fw\ 1650}#
+                                #{fs\ 1651}#
+                                #{fmod\ 1652}#)
+                         (if (eqv? #{ftype\ 1647}# 'lexical)
                            (values
                              'lexical-call
-                             #{fval\ 1647}#
-                             #{e\ 1609}#
-                             #{w\ 1611}#
-                             #{s\ 1612}#
-                             #{mod\ 1614}#)
-                           (if (eqv? #{ftype\ 1646}# (quote global))
+                             #{fval\ 1648}#
+                             #{e\ 1610}#
+                             #{w\ 1612}#
+                             #{s\ 1613}#
+                             #{mod\ 1615}#)
+                           (if (eqv? #{ftype\ 1647}# 'global)
                              (values
                                'global-call
-                               (#{make-syntax-object\ 342}#
-                                 #{fval\ 1647}#
-                                 #{w\ 1611}#
-                                 #{fmod\ 1651}#)
-                               #{e\ 1609}#
-                               #{w\ 1611}#
-                               #{s\ 1612}#
-                               #{mod\ 1614}#)
-                             (if (eqv? #{ftype\ 1646}# (quote macro))
-                               (#{syntax-type\ 456}#
-                                 (#{chi-macro\ 466}#
-                                   #{fval\ 1647}#
-                                   #{e\ 1609}#
-                                   #{r\ 1610}#
-                                   #{w\ 1611}#
-                                   #{s\ 1612}#
-                                   #{rib\ 1613}#
-                                   #{mod\ 1614}#)
-                                 #{r\ 1610}#
+                               (#{make-syntax-object\ 343}#
+                                 #{fval\ 1648}#
+                                 #{w\ 1612}#
+                                 #{fmod\ 1652}#)
+                               #{e\ 1610}#
+                               #{w\ 1612}#
+                               #{s\ 1613}#
+                               #{mod\ 1615}#)
+                             (if (eqv? #{ftype\ 1647}# 'macro)
+                               (#{syntax-type\ 457}#
+                                 (#{chi-macro\ 467}#
+                                   #{fval\ 1648}#
+                                   #{e\ 1610}#
+                                   #{r\ 1611}#
+                                   #{w\ 1612}#
+                                   #{s\ 1613}#
+                                   #{rib\ 1614}#
+                                   #{mod\ 1615}#)
+                                 #{r\ 1611}#
                                  '(())
-                                 #{s\ 1612}#
-                                 #{rib\ 1613}#
-                                 #{mod\ 1614}#
-                                 #{for-car?\ 1615}#)
-                               (if (eqv? #{ftype\ 1646}# (quote module-ref))
+                                 #{s\ 1613}#
+                                 #{rib\ 1614}#
+                                 #{mod\ 1615}#
+                                 #{for-car?\ 1616}#)
+                               (if (eqv? #{ftype\ 1647}# 'module-ref)
                                  (call-with-values
                                    (lambda ()
-                                     (#{fval\ 1647}#
-                                       #{e\ 1609}#
-                                       #{r\ 1610}#
-                                       #{w\ 1611}#))
-                                   (lambda (#{e\ 1663}#
-                                            #{r\ 1664}#
-                                            #{w\ 1665}#
-                                            #{s\ 1666}#
-                                            #{mod\ 1667}#)
-                                     (#{syntax-type\ 456}#
-                                       #{e\ 1663}#
-                                       #{r\ 1664}#
-                                       #{w\ 1665}#
-                                       #{s\ 1666}#
-                                       #{rib\ 1613}#
-                                       #{mod\ 1667}#
-                                       #{for-car?\ 1615}#)))
-                                 (if (eqv? #{ftype\ 1646}# (quote core))
+                                     (#{fval\ 1648}#
+                                       #{e\ 1610}#
+                                       #{r\ 1611}#
+                                       #{w\ 1612}#))
+                                   (lambda (#{e\ 1664}#
+                                            #{r\ 1665}#
+                                            #{w\ 1666}#
+                                            #{s\ 1667}#
+                                            #{mod\ 1668}#)
+                                     (#{syntax-type\ 457}#
+                                       #{e\ 1664}#
+                                       #{r\ 1665}#
+                                       #{w\ 1666}#
+                                       #{s\ 1667}#
+                                       #{rib\ 1614}#
+                                       #{mod\ 1668}#
+                                       #{for-car?\ 1616}#)))
+                                 (if (eqv? #{ftype\ 1647}# 'core)
                                    (values
                                      'core-form
-                                     #{fval\ 1647}#
-                                     #{e\ 1609}#
-                                     #{w\ 1611}#
-                                     #{s\ 1612}#
-                                     #{mod\ 1614}#)
-                                   (if (eqv? #{ftype\ 1646}#
-                                             'local-syntax)
+                                     #{fval\ 1648}#
+                                     #{e\ 1610}#
+                                     #{w\ 1612}#
+                                     #{s\ 1613}#
+                                     #{mod\ 1615}#)
+                                   (if (eqv? #{ftype\ 1647}# 'local-syntax)
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 1647}#
-                                       #{e\ 1609}#
-                                       #{w\ 1611}#
-                                       #{s\ 1612}#
-                                       #{mod\ 1614}#)
-                                     (if (eqv? #{ftype\ 1646}# (quote begin))
+                                       #{fval\ 1648}#
+                                       #{e\ 1610}#
+                                       #{w\ 1612}#
+                                       #{s\ 1613}#
+                                       #{mod\ 1615}#)
+                                     (if (eqv? #{ftype\ 1647}# 'begin)
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 1609}#
-                                         #{w\ 1611}#
-                                         #{s\ 1612}#
-                                         #{mod\ 1614}#)
-                                       (if (eqv? #{ftype\ 1646}#
-                                                 'eval-when)
+                                         #{e\ 1610}#
+                                         #{w\ 1612}#
+                                         #{s\ 1613}#
+                                         #{mod\ 1615}#)
+                                       (if (eqv? #{ftype\ 1647}# 'eval-when)
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 1609}#
-                                           #{w\ 1611}#
-                                           #{s\ 1612}#
-                                           #{mod\ 1614}#)
-                                         (if (eqv? #{ftype\ 1646}#
-                                                   'define)
-                                           (let ((#{tmp\ 1678}# #{e\ 1609}#))
-                                             (let ((#{tmp\ 1679}#
+                                           #{e\ 1610}#
+                                           #{w\ 1612}#
+                                           #{s\ 1613}#
+                                           #{mod\ 1615}#)
+                                         (if (eqv? #{ftype\ 1647}# 'define)
+                                           (let ((#{tmp\ 1679}# #{e\ 1610}#))
+                                             (let ((#{tmp\ 1680}#
                                                      ($sc-dispatch
-                                                       #{tmp\ 1678}#
+                                                       #{tmp\ 1679}#
                                                        '(_ any any))))
-                                               (if (if #{tmp\ 1679}#
+                                               (if (if #{tmp\ 1680}#
                                                      (@apply
-                                                       (lambda (#{name\ 1682}#
-                                                                #{val\ 1683}#)
-                                                         (#{id?\ 378}#
-                                                           #{name\ 1682}#))
-                                                       #{tmp\ 1679}#)
+                                                       (lambda (#{name\ 1683}#
+                                                                #{val\ 1684}#)
+                                                         (#{id?\ 379}#
+                                                           #{name\ 1683}#))
+                                                       #{tmp\ 1680}#)
                                                      #f)
                                                  (@apply
-                                                   (lambda (#{name\ 1686}#
-                                                            #{val\ 1687}#)
+                                                   (lambda (#{name\ 1687}#
+                                                            #{val\ 1688}#)
                                                      (values
                                                        'define-form
-                                                       #{name\ 1686}#
-                                                       #{val\ 1687}#
-                                                       #{w\ 1611}#
-                                                       #{s\ 1612}#
-                                                       #{mod\ 1614}#))
-                                                   #{tmp\ 1679}#)
-                                                 (let ((#{tmp\ 1688}#
+                                                       #{name\ 1687}#
+                                                       #{val\ 1688}#
+                                                       #{w\ 1612}#
+                                                       #{s\ 1613}#
+                                                       #{mod\ 1615}#))
+                                                   #{tmp\ 1680}#)
+                                                 (let ((#{tmp\ 1689}#
                                                          ($sc-dispatch
-                                                           #{tmp\ 1678}#
+                                                           #{tmp\ 1679}#
                                                            '(_ (any . any)
                                                                any
                                                                .
                                                                each-any))))
-                                                   (if (if #{tmp\ 1688}#
+                                                   (if (if #{tmp\ 1689}#
                                                          (@apply
-                                                           (lambda (#{name\ 
1693}#
-                                                                    #{args\ 
1694}#
-                                                                    #{e1\ 
1695}#
-                                                                    #{e2\ 
1696}#)
-                                                             (if (#{id?\ 378}#
-                                                                   #{name\ 
1693}#)
-                                                               
(#{valid-bound-ids?\ 438}#
-                                                                 
(#{lambda-var-list\ 490}#
-                                                                   #{args\ 
1694}#))
+                                                           (lambda (#{name\ 
1694}#
+                                                                    #{args\ 
1695}#
+                                                                    #{e1\ 
1696}#
+                                                                    #{e2\ 
1697}#)
+                                                             (if (#{id?\ 379}#
+                                                                   #{name\ 
1694}#)
+                                                               
(#{valid-bound-ids?\ 439}#
+                                                                 
(#{lambda-var-list\ 491}#
+                                                                   #{args\ 
1695}#))
                                                                #f))
-                                                           #{tmp\ 1688}#)
+                                                           #{tmp\ 1689}#)
                                                          #f)
                                                      (@apply
-                                                       (lambda (#{name\ 1703}#
-                                                                #{args\ 1704}#
-                                                                #{e1\ 1705}#
-                                                                #{e2\ 1706}#)
+                                                       (lambda (#{name\ 1704}#
+                                                                #{args\ 1705}#
+                                                                #{e1\ 1706}#
+                                                                #{e2\ 1707}#)
                                                          (values
                                                            'define-form
-                                                           (#{wrap\ 444}#
-                                                             #{name\ 1703}#
-                                                             #{w\ 1611}#
-                                                             #{mod\ 1614}#)
-                                                           (#{decorate-source\ 
298}#
+                                                           (#{wrap\ 445}#
+                                                             #{name\ 1704}#
+                                                             #{w\ 1612}#
+                                                             #{mod\ 1615}#)
+                                                           (#{decorate-source\ 
299}#
                                                              (cons 
'#(syntax-object
                                                                       lambda
                                                                       ((top)
@@ -3210,10 +3202,10 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i1699"
-                                                                           
"i1700"
+                                                                         
#("i1700"
                                                                            
"i1701"
-                                                                           
"i1702"))
+                                                                           
"i1702"
+                                                                           
"i1703"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -3235,12 +3227,12 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i1652"
-                                                                           
"i1653"
+                                                                         
#("i1653"
                                                                            
"i1654"
                                                                            
"i1655"
                                                                            
"i1656"
-                                                                           
"i1657"))
+                                                                           
"i1657"
+                                                                           
"i1658"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -3248,7 +3240,7 @@
                                                                        
#(ribcage
                                                                          
#(first)
                                                                          
#((top))
-                                                                         
#("i1644"))
+                                                                         
#("i1645"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -3276,13 +3268,13 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i1616"
-                                                                           
"i1617"
+                                                                         
#("i1617"
                                                                            
"i1618"
                                                                            
"i1619"
                                                                            
"i1620"
                                                                            
"i1621"
-                                                                           
"i1622"))
+                                                                           
"i1622"
+                                                                           
"i1623"))
                                                                        
#(ribcage
                                                                          
(lambda-var-list
                                                                            
gen-var
@@ -3558,58 +3550,59 @@
                                                                           (top)
                                                                           (top)
                                                                           
(top))
-                                                                         
("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"
-                                                                          
"i423"
-                                                                          
"i421"
+                                                                         
("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"
+                                                                          
"i422"
+                                                                          
"i420"
                                                                           
"i419"
                                                                           
"i418"
-                                                                          
"i417"
+                                                                          
"i416"
                                                                           
"i415"
                                                                           
"i414"
                                                                           
"i413"
                                                                           
"i412"
-                                                                          
"i411"
-                                                                          
"i409"
-                                                                          
"i407"
-                                                                          
"i405"
-                                                                          
"i403"
-                                                                          
"i401"
-                                                                          
"i399"
-                                                                          
"i397"
-                                                                          
"i395"
-                                                                          
"i392"
+                                                                          
"i410"
+                                                                          
"i408"
+                                                                          
"i406"
+                                                                          
"i404"
+                                                                          
"i402"
+                                                                          
"i400"
+                                                                          
"i398"
+                                                                          
"i396"
+                                                                          
"i393"
+                                                                          
"i391"
                                                                           
"i390"
                                                                           
"i389"
                                                                           
"i388"
@@ -3618,83 +3611,82 @@
                                                                           
"i385"
                                                                           
"i384"
                                                                           
"i383"
-                                                                          
"i382"
+                                                                          
"i381"
                                                                           
"i380"
-                                                                          
"i379"
-                                                                          
"i377"
-                                                                          
"i375"
-                                                                          
"i373"
-                                                                          
"i371"
-                                                                          
"i369"
-                                                                          
"i367"
+                                                                          
"i378"
+                                                                          
"i376"
+                                                                          
"i374"
+                                                                          
"i372"
+                                                                          
"i370"
+                                                                          
"i368"
+                                                                          
"i366"
                                                                           
"i365"
                                                                           
"i364"
                                                                           
"i363"
                                                                           
"i362"
                                                                           
"i361"
-                                                                          
"i360"
+                                                                          
"i359"
                                                                           
"i358"
-                                                                          
"i357"
-                                                                          
"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"
+                                                                          
"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"
                                                                           
"i293"
-                                                                          
"i292"
-                                                                          
"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"))
+                                                                          
"i291"
+                                                                          
"i289"
+                                                                          
"i287"
+                                                                          
"i285"
+                                                                          
"i283"
+                                                                          
"i281"
+                                                                          
"i279"
+                                                                          
"i277"
+                                                                          
"i275"
+                                                                          
"i272"
+                                                                          
"i270"
+                                                                          
"i268"
+                                                                          
"i266"
+                                                                          
"i264"
+                                                                          
"i262"
+                                                                          
"i260"
+                                                                          
"i258"
+                                                                          
"i256"
+                                                                          
"i254"
+                                                                          
"i252"
+                                                                          
"i250"
+                                                                          
"i248"
+                                                                          
"i246"
+                                                                          
"i244"
+                                                                          
"i242"
+                                                                          
"i240"
+                                                                          
"i238"))
                                                                        
#(ribcage
                                                                          
(define-structure
                                                                            
define-expansion-accessors
@@ -3704,49 +3696,49 @@
                                                                           (top)
                                                                           (top)
                                                                           
(top))
-                                                                         ("i39"
+                                                                         ("i40"
+                                                                          "i39"
                                                                           "i38"
-                                                                          "i37"
-                                                                          
"i35")))
+                                                                          
"i36")))
                                                                       (hygiene
                                                                         guile))
-                                                                   (#{wrap\ 
444}#
-                                                                     (cons 
#{args\ 1704}#
-                                                                           
(cons #{e1\ 1705}#
-                                                                               
  #{e2\ 1706}#))
-                                                                     #{w\ 
1611}#
-                                                                     #{mod\ 
1614}#))
-                                                             #{s\ 1612}#)
+                                                                   (#{wrap\ 
445}#
+                                                                     (cons 
#{args\ 1705}#
+                                                                           
(cons #{e1\ 1706}#
+                                                                               
  #{e2\ 1707}#))
+                                                                     #{w\ 
1612}#
+                                                                     #{mod\ 
1615}#))
+                                                             #{s\ 1613}#)
                                                            '(())
-                                                           #{s\ 1612}#
-                                                           #{mod\ 1614}#))
-                                                       #{tmp\ 1688}#)
-                                                     (let ((#{tmp\ 1709}#
+                                                           #{s\ 1613}#
+                                                           #{mod\ 1615}#))
+                                                       #{tmp\ 1689}#)
+                                                     (let ((#{tmp\ 1710}#
                                                              ($sc-dispatch
-                                                               #{tmp\ 1678}#
+                                                               #{tmp\ 1679}#
                                                                '(_ any))))
-                                                       (if (if #{tmp\ 1709}#
+                                                       (if (if #{tmp\ 1710}#
                                                              (@apply
-                                                               (lambda 
(#{name\ 1711}#)
-                                                                 (#{id?\ 378}#
-                                                                   #{name\ 
1711}#))
-                                                               #{tmp\ 1709}#)
+                                                               (lambda 
(#{name\ 1712}#)
+                                                                 (#{id?\ 379}#
+                                                                   #{name\ 
1712}#))
+                                                               #{tmp\ 1710}#)
                                                              #f)
                                                          (@apply
-                                                           (lambda (#{name\ 
1713}#)
+                                                           (lambda (#{name\ 
1714}#)
                                                              (values
                                                                'define-form
-                                                               (#{wrap\ 444}#
-                                                                 #{name\ 1713}#
-                                                                 #{w\ 1611}#
-                                                                 #{mod\ 1614}#)
+                                                               (#{wrap\ 445}#
+                                                                 #{name\ 1714}#
+                                                                 #{w\ 1612}#
+                                                                 #{mod\ 1615}#)
                                                                
'(#(syntax-object
                                                                    if
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(name)
                                                                       #((top))
-                                                                      
#("i1712"))
+                                                                      
#("i1713"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -3768,12 +3760,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1652"
-                                                                        "i1653"
+                                                                      #("i1653"
                                                                         "i1654"
                                                                         "i1655"
                                                                         "i1656"
-                                                                        
"i1657"))
+                                                                        "i1657"
+                                                                        
"i1658"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -3781,7 +3773,7 @@
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
-                                                                      
#("i1644"))
+                                                                      
#("i1645"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -3809,13 +3801,13 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1616"
-                                                                        "i1617"
+                                                                      #("i1617"
                                                                         "i1618"
                                                                         "i1619"
                                                                         "i1620"
                                                                         "i1621"
-                                                                        
"i1622"))
+                                                                        "i1622"
+                                                                        
"i1623"))
                                                                     #(ribcage
                                                                       
(lambda-var-list
                                                                         gen-var
@@ -4091,58 +4083,59 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("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"
-                                                                       "i423"
-                                                                       "i421"
+                                                                      ("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"
+                                                                       "i422"
+                                                                       "i420"
                                                                        "i419"
                                                                        "i418"
-                                                                       "i417"
+                                                                       "i416"
                                                                        "i415"
                                                                        "i414"
                                                                        "i413"
                                                                        "i412"
-                                                                       "i411"
-                                                                       "i409"
-                                                                       "i407"
-                                                                       "i405"
-                                                                       "i403"
-                                                                       "i401"
-                                                                       "i399"
-                                                                       "i397"
-                                                                       "i395"
-                                                                       "i392"
+                                                                       "i410"
+                                                                       "i408"
+                                                                       "i406"
+                                                                       "i404"
+                                                                       "i402"
+                                                                       "i400"
+                                                                       "i398"
+                                                                       "i396"
+                                                                       "i393"
+                                                                       "i391"
                                                                        "i390"
                                                                        "i389"
                                                                        "i388"
@@ -4151,83 +4144,82 @@
                                                                        "i385"
                                                                        "i384"
                                                                        "i383"
-                                                                       "i382"
+                                                                       "i381"
                                                                        "i380"
-                                                                       "i379"
-                                                                       "i377"
-                                                                       "i375"
-                                                                       "i373"
-                                                                       "i371"
-                                                                       "i369"
-                                                                       "i367"
+                                                                       "i378"
+                                                                       "i376"
+                                                                       "i374"
+                                                                       "i372"
+                                                                       "i370"
+                                                                       "i368"
+                                                                       "i366"
                                                                        "i365"
                                                                        "i364"
                                                                        "i363"
                                                                        "i362"
                                                                        "i361"
-                                                                       "i360"
+                                                                       "i359"
                                                                        "i358"
-                                                                       "i357"
-                                                                       "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"
+                                                                       "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"
                                                                        "i293"
-                                                                       "i292"
-                                                                       "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"))
+                                                                       "i291"
+                                                                       "i289"
+                                                                       "i287"
+                                                                       "i285"
+                                                                       "i283"
+                                                                       "i281"
+                                                                       "i279"
+                                                                       "i277"
+                                                                       "i275"
+                                                                       "i272"
+                                                                       "i270"
+                                                                       "i268"
+                                                                       "i266"
+                                                                       "i264"
+                                                                       "i262"
+                                                                       "i260"
+                                                                       "i258"
+                                                                       "i256"
+                                                                       "i254"
+                                                                       "i252"
+                                                                       "i250"
+                                                                       "i248"
+                                                                       "i246"
+                                                                       "i244"
+                                                                       "i242"
+                                                                       "i240"
+                                                                       "i238"))
                                                                     #(ribcage
                                                                       
(define-structure
                                                                         
define-expansion-accessors
@@ -4237,10 +4229,10 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i39"
+                                                                      ("i40"
+                                                                       "i39"
                                                                        "i38"
-                                                                       "i37"
-                                                                       "i35")))
+                                                                       "i36")))
                                                                    (hygiene
                                                                      guile))
                                                                  
#(syntax-object
@@ -4249,7 +4241,7 @@
                                                                     #(ribcage
                                                                       #(name)
                                                                       #((top))
-                                                                      
#("i1712"))
+                                                                      
#("i1713"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4271,12 +4263,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1652"
-                                                                        "i1653"
+                                                                      #("i1653"
                                                                         "i1654"
                                                                         "i1655"
                                                                         "i1656"
-                                                                        
"i1657"))
+                                                                        "i1657"
+                                                                        
"i1658"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4284,7 +4276,7 @@
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
-                                                                      
#("i1644"))
+                                                                      
#("i1645"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4312,13 +4304,13 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1616"
-                                                                        "i1617"
+                                                                      #("i1617"
                                                                         "i1618"
                                                                         "i1619"
                                                                         "i1620"
                                                                         "i1621"
-                                                                        
"i1622"))
+                                                                        "i1622"
+                                                                        
"i1623"))
                                                                     #(ribcage
                                                                       
(lambda-var-list
                                                                         gen-var
@@ -4594,58 +4586,59 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("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"
-                                                                       "i423"
-                                                                       "i421"
+                                                                      ("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"
+                                                                       "i422"
+                                                                       "i420"
                                                                        "i419"
                                                                        "i418"
-                                                                       "i417"
+                                                                       "i416"
                                                                        "i415"
                                                                        "i414"
                                                                        "i413"
                                                                        "i412"
-                                                                       "i411"
-                                                                       "i409"
-                                                                       "i407"
-                                                                       "i405"
-                                                                       "i403"
-                                                                       "i401"
-                                                                       "i399"
-                                                                       "i397"
-                                                                       "i395"
-                                                                       "i392"
+                                                                       "i410"
+                                                                       "i408"
+                                                                       "i406"
+                                                                       "i404"
+                                                                       "i402"
+                                                                       "i400"
+                                                                       "i398"
+                                                                       "i396"
+                                                                       "i393"
+                                                                       "i391"
                                                                        "i390"
                                                                        "i389"
                                                                        "i388"
@@ -4654,83 +4647,82 @@
                                                                        "i385"
                                                                        "i384"
                                                                        "i383"
-                                                                       "i382"
+                                                                       "i381"
                                                                        "i380"
-                                                                       "i379"
-                                                                       "i377"
-                                                                       "i375"
-                                                                       "i373"
-                                                                       "i371"
-                                                                       "i369"
-                                                                       "i367"
+                                                                       "i378"
+                                                                       "i376"
+                                                                       "i374"
+                                                                       "i372"
+                                                                       "i370"
+                                                                       "i368"
+                                                                       "i366"
                                                                        "i365"
                                                                        "i364"
                                                                        "i363"
                                                                        "i362"
                                                                        "i361"
-                                                                       "i360"
+                                                                       "i359"
                                                                        "i358"
-                                                                       "i357"
-                                                                       "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"
+                                                                       "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"
                                                                        "i293"
-                                                                       "i292"
-                                                                       "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"))
+                                                                       "i291"
+                                                                       "i289"
+                                                                       "i287"
+                                                                       "i285"
+                                                                       "i283"
+                                                                       "i281"
+                                                                       "i279"
+                                                                       "i277"
+                                                                       "i275"
+                                                                       "i272"
+                                                                       "i270"
+                                                                       "i268"
+                                                                       "i266"
+                                                                       "i264"
+                                                                       "i262"
+                                                                       "i260"
+                                                                       "i258"
+                                                                       "i256"
+                                                                       "i254"
+                                                                       "i252"
+                                                                       "i250"
+                                                                       "i248"
+                                                                       "i246"
+                                                                       "i244"
+                                                                       "i242"
+                                                                       "i240"
+                                                                       "i238"))
                                                                     #(ribcage
                                                                       
(define-structure
                                                                         
define-expansion-accessors
@@ -4740,10 +4732,10 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i39"
+                                                                      ("i40"
+                                                                       "i39"
                                                                        "i38"
-                                                                       "i37"
-                                                                       "i35")))
+                                                                       "i36")))
                                                                    (hygiene
                                                                      guile))
                                                                  
#(syntax-object
@@ -4752,7 +4744,7 @@
                                                                     #(ribcage
                                                                       #(name)
                                                                       #((top))
-                                                                      
#("i1712"))
+                                                                      
#("i1713"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4774,12 +4766,12 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1652"
-                                                                        "i1653"
+                                                                      #("i1653"
                                                                         "i1654"
                                                                         "i1655"
                                                                         "i1656"
-                                                                        
"i1657"))
+                                                                        "i1657"
+                                                                        
"i1658"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4787,7 +4779,7 @@
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
-                                                                      
#("i1644"))
+                                                                      
#("i1645"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
@@ -4815,13 +4807,13 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                      #("i1616"
-                                                                        "i1617"
+                                                                      #("i1617"
                                                                         "i1618"
                                                                         "i1619"
                                                                         "i1620"
                                                                         "i1621"
-                                                                        
"i1622"))
+                                                                        "i1622"
+                                                                        
"i1623"))
                                                                     #(ribcage
                                                                       
(lambda-var-list
                                                                         gen-var
@@ -5097,58 +5089,59 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("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"
-                                                                       "i423"
-                                                                       "i421"
+                                                                      ("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"
+                                                                       "i422"
+                                                                       "i420"
                                                                        "i419"
                                                                        "i418"
-                                                                       "i417"
+                                                                       "i416"
                                                                        "i415"
                                                                        "i414"
                                                                        "i413"
                                                                        "i412"
-                                                                       "i411"
-                                                                       "i409"
-                                                                       "i407"
-                                                                       "i405"
-                                                                       "i403"
-                                                                       "i401"
-                                                                       "i399"
-                                                                       "i397"
-                                                                       "i395"
-                                                                       "i392"
+                                                                       "i410"
+                                                                       "i408"
+                                                                       "i406"
+                                                                       "i404"
+                                                                       "i402"
+                                                                       "i400"
+                                                                       "i398"
+                                                                       "i396"
+                                                                       "i393"
+                                                                       "i391"
                                                                        "i390"
                                                                        "i389"
                                                                        "i388"
@@ -5157,83 +5150,82 @@
                                                                        "i385"
                                                                        "i384"
                                                                        "i383"
-                                                                       "i382"
+                                                                       "i381"
                                                                        "i380"
-                                                                       "i379"
-                                                                       "i377"
-                                                                       "i375"
-                                                                       "i373"
-                                                                       "i371"
-                                                                       "i369"
-                                                                       "i367"
+                                                                       "i378"
+                                                                       "i376"
+                                                                       "i374"
+                                                                       "i372"
+                                                                       "i370"
+                                                                       "i368"
+                                                                       "i366"
                                                                        "i365"
                                                                        "i364"
                                                                        "i363"
                                                                        "i362"
                                                                        "i361"
-                                                                       "i360"
+                                                                       "i359"
                                                                        "i358"
-                                                                       "i357"
-                                                                       "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"
+                                                                       "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"
                                                                        "i293"
-                                                                       "i292"
-                                                                       "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"))
+                                                                       "i291"
+                                                                       "i289"
+                                                                       "i287"
+                                                                       "i285"
+                                                                       "i283"
+                                                                       "i281"
+                                                                       "i279"
+                                                                       "i277"
+                                                                       "i275"
+                                                                       "i272"
+                                                                       "i270"
+                                                                       "i268"
+                                                                       "i266"
+                                                                       "i264"
+                                                                       "i262"
+                                                                       "i260"
+                                                                       "i258"
+                                                                       "i256"
+                                                                       "i254"
+                                                                       "i252"
+                                                                       "i250"
+                                                                       "i248"
+                                                                       "i246"
+                                                                       "i244"
+                                                                       "i242"
+                                                                       "i240"
+                                                                       "i238"))
                                                                     #(ribcage
                                                                       
(define-structure
                                                                         
define-expansion-accessors
@@ -5243,1215 +5235,1201 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                      ("i39"
+                                                                      ("i40"
+                                                                       "i39"
                                                                        "i38"
-                                                                       "i37"
-                                                                       "i35")))
+                                                                       "i36")))
                                                                    (hygiene
                                                                      guile)))
                                                                '(())
-                                                               #{s\ 1612}#
-                                                               #{mod\ 1614}#))
-                                                           #{tmp\ 1709}#)
+                                                               #{s\ 1613}#
+                                                               #{mod\ 1615}#))
+                                                           #{tmp\ 1710}#)
                                                          (syntax-violation
                                                            #f
                                                            "source expression 
failed to match any pattern"
-                                                           #{tmp\ 
1678}#))))))))
-                                           (if (eqv? #{ftype\ 1646}#
+                                                           #{tmp\ 
1679}#))))))))
+                                           (if (eqv? #{ftype\ 1647}#
                                                      'define-syntax)
-                                             (let ((#{tmp\ 1716}# #{e\ 1609}#))
-                                               (let ((#{tmp\ 1717}#
+                                             (let ((#{tmp\ 1717}# #{e\ 1610}#))
+                                               (let ((#{tmp\ 1718}#
                                                        ($sc-dispatch
-                                                         #{tmp\ 1716}#
+                                                         #{tmp\ 1717}#
                                                          '(_ any any))))
-                                                 (if (if #{tmp\ 1717}#
+                                                 (if (if #{tmp\ 1718}#
                                                        (@apply
-                                                         (lambda (#{name\ 
1720}#
-                                                                  #{val\ 
1721}#)
-                                                           (#{id?\ 378}#
-                                                             #{name\ 1720}#))
-                                                         #{tmp\ 1717}#)
+                                                         (lambda (#{name\ 
1721}#
+                                                                  #{val\ 
1722}#)
+                                                           (#{id?\ 379}#
+                                                             #{name\ 1721}#))
+                                                         #{tmp\ 1718}#)
                                                        #f)
                                                    (@apply
-                                                     (lambda (#{name\ 1724}#
-                                                              #{val\ 1725}#)
+                                                     (lambda (#{name\ 1725}#
+                                                              #{val\ 1726}#)
                                                        (values
                                                          'define-syntax-form
-                                                         #{name\ 1724}#
-                                                         #{val\ 1725}#
-                                                         #{w\ 1611}#
-                                                         #{s\ 1612}#
-                                                         #{mod\ 1614}#))
-                                                     #{tmp\ 1717}#)
+                                                         #{name\ 1725}#
+                                                         #{val\ 1726}#
+                                                         #{w\ 1612}#
+                                                         #{s\ 1613}#
+                                                         #{mod\ 1615}#))
+                                                     #{tmp\ 1718}#)
                                                    (syntax-violation
                                                      #f
                                                      "source expression failed 
to match any pattern"
-                                                     #{tmp\ 1716}#))))
+                                                     #{tmp\ 1717}#))))
                                              (values
                                                'call
                                                #f
-                                               #{e\ 1609}#
-                                               #{w\ 1611}#
-                                               #{s\ 1612}#
-                                               #{mod\ 1614}#)))))))))))))))
-                 (if (#{syntax-object?\ 344}# #{e\ 1609}#)
-                   (#{syntax-type\ 456}#
-                     (#{syntax-object-expression\ 346}# #{e\ 1609}#)
-                     #{r\ 1610}#
-                     (#{join-wraps\ 426}#
-                       #{w\ 1611}#
-                       (#{syntax-object-wrap\ 348}# #{e\ 1609}#))
+                                               #{e\ 1610}#
+                                               #{w\ 1612}#
+                                               #{s\ 1613}#
+                                               #{mod\ 1615}#)))))))))))))))
+                 (if (#{syntax-object?\ 345}# #{e\ 1610}#)
+                   (#{syntax-type\ 457}#
+                     (#{syntax-object-expression\ 347}# #{e\ 1610}#)
+                     #{r\ 1611}#
+                     (#{join-wraps\ 427}#
+                       #{w\ 1612}#
+                       (#{syntax-object-wrap\ 349}# #{e\ 1610}#))
                      (begin
-                       (let ((#{t\ 1731}#
-                               (#{source-annotation\ 359}# #{e\ 1609}#)))
-                         (if #{t\ 1731}# #{t\ 1731}# #{s\ 1612}#)))
-                     #{rib\ 1613}#
+                       (let ((#{t\ 1732}#
+                               (#{source-annotation\ 360}# #{e\ 1610}#)))
+                         (if #{t\ 1732}# #{t\ 1732}# #{s\ 1613}#)))
+                     #{rib\ 1614}#
                      (begin
-                       (let ((#{t\ 1735}#
-                               (#{syntax-object-module\ 350}# #{e\ 1609}#)))
-                         (if #{t\ 1735}# #{t\ 1735}# #{mod\ 1614}#)))
-                     #{for-car?\ 1615}#)
-                   (if (self-evaluating? #{e\ 1609}#)
+                       (let ((#{t\ 1736}#
+                               (#{syntax-object-module\ 351}# #{e\ 1610}#)))
+                         (if #{t\ 1736}# #{t\ 1736}# #{mod\ 1615}#)))
+                     #{for-car?\ 1616}#)
+                   (if (self-evaluating? #{e\ 1610}#)
                      (values
                        'constant
                        #f
-                       #{e\ 1609}#
-                       #{w\ 1611}#
-                       #{s\ 1612}#
-                       #{mod\ 1614}#)
+                       #{e\ 1610}#
+                       #{w\ 1612}#
+                       #{s\ 1613}#
+                       #{mod\ 1615}#)
                      (values
                        'other
                        #f
-                       #{e\ 1609}#
-                       #{w\ 1611}#
-                       #{s\ 1612}#
-                       #{mod\ 1614}#)))))))
-         (#{chi-top\ 458}#
-           (lambda (#{e\ 1740}#
-                    #{r\ 1741}#
-                    #{w\ 1742}#
-                    #{m\ 1743}#
-                    #{esew\ 1744}#
-                    #{mod\ 1745}#)
+                       #{e\ 1610}#
+                       #{w\ 1612}#
+                       #{s\ 1613}#
+                       #{mod\ 1615}#)))))))
+         (#{chi-top\ 459}#
+           (lambda (#{e\ 1741}#
+                    #{r\ 1742}#
+                    #{w\ 1743}#
+                    #{m\ 1744}#
+                    #{esew\ 1745}#
+                    #{mod\ 1746}#)
              (call-with-values
                (lambda ()
-                 (#{syntax-type\ 456}#
-                   #{e\ 1740}#
-                   #{r\ 1741}#
-                   #{w\ 1742}#
-                   (#{source-annotation\ 359}# #{e\ 1740}#)
+                 (#{syntax-type\ 457}#
+                   #{e\ 1741}#
+                   #{r\ 1742}#
+                   #{w\ 1743}#
+                   (#{source-annotation\ 360}# #{e\ 1741}#)
                    #f
-                   #{mod\ 1745}#
+                   #{mod\ 1746}#
                    #f))
-               (lambda (#{type\ 1766}#
-                        #{value\ 1767}#
-                        #{e\ 1768}#
-                        #{w\ 1769}#
-                        #{s\ 1770}#
-                        #{mod\ 1771}#)
-                 (if (eqv? #{type\ 1766}# (quote begin-form))
-                   (let ((#{tmp\ 1779}# #{e\ 1768}#))
-                     (let ((#{tmp\ 1780}#
-                             ($sc-dispatch #{tmp\ 1779}# (quote (_)))))
-                       (if #{tmp\ 1780}#
+               (lambda (#{type\ 1767}#
+                        #{value\ 1768}#
+                        #{e\ 1769}#
+                        #{w\ 1770}#
+                        #{s\ 1771}#
+                        #{mod\ 1772}#)
+                 (if (eqv? #{type\ 1767}# 'begin-form)
+                   (let ((#{tmp\ 1780}# #{e\ 1769}#))
+                     (let ((#{tmp\ 1781}# ($sc-dispatch #{tmp\ 1780}# '(_))))
+                       (if #{tmp\ 1781}#
                          (@apply
-                           (lambda () (#{chi-void\ 474}#))
-                           #{tmp\ 1780}#)
-                         (let ((#{tmp\ 1781}#
+                           (lambda () (#{chi-void\ 475}#))
+                           #{tmp\ 1781}#)
+                         (let ((#{tmp\ 1782}#
                                  ($sc-dispatch
-                                   #{tmp\ 1779}#
+                                   #{tmp\ 1780}#
                                    '(_ any . each-any))))
-                           (if #{tmp\ 1781}#
+                           (if #{tmp\ 1782}#
                              (@apply
-                               (lambda (#{e1\ 1784}# #{e2\ 1785}#)
-                                 (#{chi-top-sequence\ 450}#
-                                   (cons #{e1\ 1784}# #{e2\ 1785}#)
-                                   #{r\ 1741}#
-                                   #{w\ 1769}#
-                                   #{s\ 1770}#
-                                   #{m\ 1743}#
-                                   #{esew\ 1744}#
-                                   #{mod\ 1771}#))
-                               #{tmp\ 1781}#)
+                               (lambda (#{e1\ 1785}# #{e2\ 1786}#)
+                                 (#{chi-top-sequence\ 451}#
+                                   (cons #{e1\ 1785}# #{e2\ 1786}#)
+                                   #{r\ 1742}#
+                                   #{w\ 1770}#
+                                   #{s\ 1771}#
+                                   #{m\ 1744}#
+                                   #{esew\ 1745}#
+                                   #{mod\ 1772}#))
+                               #{tmp\ 1782}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{tmp\ 1779}#))))))
-                   (if (eqv? #{type\ 1766}# (quote local-syntax-form))
-                     (#{chi-local-syntax\ 470}#
-                       #{value\ 1767}#
-                       #{e\ 1768}#
-                       #{r\ 1741}#
-                       #{w\ 1769}#
-                       #{s\ 1770}#
-                       #{mod\ 1771}#
-                       (lambda (#{body\ 1788}#
-                                #{r\ 1789}#
-                                #{w\ 1790}#
-                                #{s\ 1791}#
-                                #{mod\ 1792}#)
-                         (#{chi-top-sequence\ 450}#
-                           #{body\ 1788}#
-                           #{r\ 1789}#
-                           #{w\ 1790}#
-                           #{s\ 1791}#
-                           #{m\ 1743}#
-                           #{esew\ 1744}#
-                           #{mod\ 1792}#)))
-                     (if (eqv? #{type\ 1766}# (quote eval-when-form))
-                       (let ((#{tmp\ 1799}# #{e\ 1768}#))
-                         (let ((#{tmp\ 1800}#
+                               #{tmp\ 1780}#))))))
+                   (if (eqv? #{type\ 1767}# 'local-syntax-form)
+                     (#{chi-local-syntax\ 471}#
+                       #{value\ 1768}#
+                       #{e\ 1769}#
+                       #{r\ 1742}#
+                       #{w\ 1770}#
+                       #{s\ 1771}#
+                       #{mod\ 1772}#
+                       (lambda (#{body\ 1789}#
+                                #{r\ 1790}#
+                                #{w\ 1791}#
+                                #{s\ 1792}#
+                                #{mod\ 1793}#)
+                         (#{chi-top-sequence\ 451}#
+                           #{body\ 1789}#
+                           #{r\ 1790}#
+                           #{w\ 1791}#
+                           #{s\ 1792}#
+                           #{m\ 1744}#
+                           #{esew\ 1745}#
+                           #{mod\ 1793}#)))
+                     (if (eqv? #{type\ 1767}# 'eval-when-form)
+                       (let ((#{tmp\ 1800}# #{e\ 1769}#))
+                         (let ((#{tmp\ 1801}#
                                  ($sc-dispatch
-                                   #{tmp\ 1799}#
+                                   #{tmp\ 1800}#
                                    '(_ each-any any . each-any))))
-                           (if #{tmp\ 1800}#
+                           (if #{tmp\ 1801}#
                              (@apply
-                               (lambda (#{x\ 1804}# #{e1\ 1805}# #{e2\ 1806}#)
+                               (lambda (#{x\ 1805}# #{e1\ 1806}# #{e2\ 1807}#)
                                  (begin
-                                   (let ((#{when-list\ 1809}#
-                                           (#{chi-when-list\ 454}#
-                                             #{e\ 1768}#
-                                             #{x\ 1804}#
-                                             #{w\ 1769}#))
-                                         (#{body\ 1810}#
-                                           (cons #{e1\ 1805}# #{e2\ 1806}#)))
-                                     (if (eq? #{m\ 1743}# (quote e))
-                                       (if (memq 'eval
-                                                 #{when-list\ 1809}#)
-                                         (#{chi-top-sequence\ 450}#
-                                           #{body\ 1810}#
-                                           #{r\ 1741}#
-                                           #{w\ 1769}#
-                                           #{s\ 1770}#
+                                   (let ((#{when-list\ 1810}#
+                                           (#{chi-when-list\ 455}#
+                                             #{e\ 1769}#
+                                             #{x\ 1805}#
+                                             #{w\ 1770}#))
+                                         (#{body\ 1811}#
+                                           (cons #{e1\ 1806}# #{e2\ 1807}#)))
+                                     (if (eq? #{m\ 1744}# 'e)
+                                       (if (memq 'eval #{when-list\ 1810}#)
+                                         (#{chi-top-sequence\ 451}#
+                                           #{body\ 1811}#
+                                           #{r\ 1742}#
+                                           #{w\ 1770}#
+                                           #{s\ 1771}#
                                            (if (memq 'expand
-                                                     #{when-list\ 1809}#)
+                                                     #{when-list\ 1810}#)
                                              'c&e
                                              'e)
                                            '(eval)
-                                           #{mod\ 1771}#)
+                                           #{mod\ 1772}#)
                                          (begin
                                            (if (memq 'expand
-                                                     #{when-list\ 1809}#)
-                                             (#{top-level-eval-hook\ 289}#
-                                               (#{chi-top-sequence\ 450}#
-                                                 #{body\ 1810}#
-                                                 #{r\ 1741}#
-                                                 #{w\ 1769}#
-                                                 #{s\ 1770}#
+                                                     #{when-list\ 1810}#)
+                                             (#{top-level-eval-hook\ 290}#
+                                               (#{chi-top-sequence\ 451}#
+                                                 #{body\ 1811}#
+                                                 #{r\ 1742}#
+                                                 #{w\ 1770}#
+                                                 #{s\ 1771}#
                                                  'e
                                                  '(eval)
-                                                 #{mod\ 1771}#)
-                                               #{mod\ 1771}#))
-                                           (#{chi-void\ 474}#)))
-                                       (if (memq 'load
-                                                 #{when-list\ 1809}#)
+                                                 #{mod\ 1772}#)
+                                               #{mod\ 1772}#))
+                                           (#{chi-void\ 475}#)))
+                                       (if (memq 'load #{when-list\ 1810}#)
                                          (if (begin
-                                               (let ((#{t\ 1819}#
+                                               (let ((#{t\ 1820}#
                                                        (memq 'compile
-                                                             #{when-list\ 
1809}#)))
-                                                 (if #{t\ 1819}#
-                                                   #{t\ 1819}#
+                                                             #{when-list\ 
1810}#)))
+                                                 (if #{t\ 1820}#
+                                                   #{t\ 1820}#
                                                    (begin
-                                                     (let ((#{t\ 1822}#
+                                                     (let ((#{t\ 1823}#
                                                              (memq 'expand
-                                                                   
#{when-list\ 1809}#)))
-                                                       (if #{t\ 1822}#
-                                                         #{t\ 1822}#
-                                                         (if (eq? #{m\ 1743}#
+                                                                   
#{when-list\ 1810}#)))
+                                                       (if #{t\ 1823}#
+                                                         #{t\ 1823}#
+                                                         (if (eq? #{m\ 1744}#
                                                                   'c&e)
                                                            (memq 'eval
-                                                                 #{when-list\ 
1809}#)
+                                                                 #{when-list\ 
1810}#)
                                                            #f)))))))
-                                           (#{chi-top-sequence\ 450}#
-                                             #{body\ 1810}#
-                                             #{r\ 1741}#
-                                             #{w\ 1769}#
-                                             #{s\ 1770}#
+                                           (#{chi-top-sequence\ 451}#
+                                             #{body\ 1811}#
+                                             #{r\ 1742}#
+                                             #{w\ 1770}#
+                                             #{s\ 1771}#
                                              'c&e
                                              '(compile load)
-                                             #{mod\ 1771}#)
-                                           (if (if (eq? #{m\ 1743}# (quote c))
+                                             #{mod\ 1772}#)
+                                           (if (if (eq? #{m\ 1744}# 'c)
                                                  #t
-                                                 (eq? #{m\ 1743}# (quote c&e)))
-                                             (#{chi-top-sequence\ 450}#
-                                               #{body\ 1810}#
-                                               #{r\ 1741}#
-                                               #{w\ 1769}#
-                                               #{s\ 1770}#
+                                                 (eq? #{m\ 1744}# 'c&e))
+                                             (#{chi-top-sequence\ 451}#
+                                               #{body\ 1811}#
+                                               #{r\ 1742}#
+                                               #{w\ 1770}#
+                                               #{s\ 1771}#
                                                'c
                                                '(load)
-                                               #{mod\ 1771}#)
-                                             (#{chi-void\ 474}#)))
+                                               #{mod\ 1772}#)
+                                             (#{chi-void\ 475}#)))
                                          (if (begin
-                                               (let ((#{t\ 1830}#
+                                               (let ((#{t\ 1831}#
                                                        (memq 'compile
-                                                             #{when-list\ 
1809}#)))
-                                                 (if #{t\ 1830}#
-                                                   #{t\ 1830}#
+                                                             #{when-list\ 
1810}#)))
+                                                 (if #{t\ 1831}#
+                                                   #{t\ 1831}#
                                                    (begin
-                                                     (let ((#{t\ 1833}#
+                                                     (let ((#{t\ 1834}#
                                                              (memq 'expand
-                                                                   
#{when-list\ 1809}#)))
-                                                       (if #{t\ 1833}#
-                                                         #{t\ 1833}#
-                                                         (if (eq? #{m\ 1743}#
+                                                                   
#{when-list\ 1810}#)))
+                                                       (if #{t\ 1834}#
+                                                         #{t\ 1834}#
+                                                         (if (eq? #{m\ 1744}#
                                                                   'c&e)
                                                            (memq 'eval
-                                                                 #{when-list\ 
1809}#)
+                                                                 #{when-list\ 
1810}#)
                                                            #f)))))))
                                            (begin
-                                             (#{top-level-eval-hook\ 289}#
-                                               (#{chi-top-sequence\ 450}#
-                                                 #{body\ 1810}#
-                                                 #{r\ 1741}#
-                                                 #{w\ 1769}#
-                                                 #{s\ 1770}#
+                                             (#{top-level-eval-hook\ 290}#
+                                               (#{chi-top-sequence\ 451}#
+                                                 #{body\ 1811}#
+                                                 #{r\ 1742}#
+                                                 #{w\ 1770}#
+                                                 #{s\ 1771}#
                                                  'e
                                                  '(eval)
-                                                 #{mod\ 1771}#)
-                                               #{mod\ 1771}#)
-                                             (#{chi-void\ 474}#))
-                                           (#{chi-void\ 474}#)))))))
-                               #{tmp\ 1800}#)
+                                                 #{mod\ 1772}#)
+                                               #{mod\ 1772}#)
+                                             (#{chi-void\ 475}#))
+                                           (#{chi-void\ 475}#)))))))
+                               #{tmp\ 1801}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
-                               #{tmp\ 1799}#))))
-                       (if (eqv? #{type\ 1766}# (quote define-syntax-form))
+                               #{tmp\ 1800}#))))
+                       (if (eqv? #{type\ 1767}# 'define-syntax-form)
                          (begin
-                           (let ((#{n\ 1841}#
-                                   (#{id-var-name\ 432}#
-                                     #{value\ 1767}#
-                                     #{w\ 1769}#))
-                                 (#{r\ 1842}#
-                                   (#{macros-only-env\ 370}# #{r\ 1741}#)))
-                             (if (eqv? #{m\ 1743}# (quote c))
-                               (if (memq (quote compile) #{esew\ 1744}#)
+                           (let ((#{n\ 1842}#
+                                   (#{id-var-name\ 433}#
+                                     #{value\ 1768}#
+                                     #{w\ 1770}#))
+                                 (#{r\ 1843}#
+                                   (#{macros-only-env\ 371}# #{r\ 1742}#)))
+                             (if (eqv? #{m\ 1744}# 'c)
+                               (if (memq 'compile #{esew\ 1745}#)
                                  (begin
-                                   (let ((#{e\ 1845}#
-                                           (#{chi-install-global\ 452}#
-                                             #{n\ 1841}#
-                                             (#{chi\ 460}#
-                                               #{e\ 1768}#
-                                               #{r\ 1842}#
-                                               #{w\ 1769}#
-                                               #{mod\ 1771}#))))
+                                   (let ((#{e\ 1846}#
+                                           (#{chi-install-global\ 453}#
+                                             #{n\ 1842}#
+                                             (#{chi\ 461}#
+                                               #{e\ 1769}#
+                                               #{r\ 1843}#
+                                               #{w\ 1770}#
+                                               #{mod\ 1772}#))))
                                      (begin
-                                       (#{top-level-eval-hook\ 289}#
-                                         #{e\ 1845}#
-                                         #{mod\ 1771}#)
-                                       (if (memq (quote load) #{esew\ 1744}#)
-                                         #{e\ 1845}#
-                                         (#{chi-void\ 474}#)))))
-                                 (if (memq (quote load) #{esew\ 1744}#)
-                                   (#{chi-install-global\ 452}#
-                                     #{n\ 1841}#
-                                     (#{chi\ 460}#
-                                       #{e\ 1768}#
-                                       #{r\ 1842}#
-                                       #{w\ 1769}#
-                                       #{mod\ 1771}#))
-                                   (#{chi-void\ 474}#)))
-                               (if (eqv? #{m\ 1743}# (quote c&e))
+                                       (#{top-level-eval-hook\ 290}#
+                                         #{e\ 1846}#
+                                         #{mod\ 1772}#)
+                                       (if (memq 'load #{esew\ 1745}#)
+                                         #{e\ 1846}#
+                                         (#{chi-void\ 475}#)))))
+                                 (if (memq 'load #{esew\ 1745}#)
+                                   (#{chi-install-global\ 453}#
+                                     #{n\ 1842}#
+                                     (#{chi\ 461}#
+                                       #{e\ 1769}#
+                                       #{r\ 1843}#
+                                       #{w\ 1770}#
+                                       #{mod\ 1772}#))
+                                   (#{chi-void\ 475}#)))
+                               (if (eqv? #{m\ 1744}# 'c&e)
                                  (begin
-                                   (let ((#{e\ 1848}#
-                                           (#{chi-install-global\ 452}#
-                                             #{n\ 1841}#
-                                             (#{chi\ 460}#
-                                               #{e\ 1768}#
-                                               #{r\ 1842}#
-                                               #{w\ 1769}#
-                                               #{mod\ 1771}#))))
+                                   (let ((#{e\ 1849}#
+                                           (#{chi-install-global\ 453}#
+                                             #{n\ 1842}#
+                                             (#{chi\ 461}#
+                                               #{e\ 1769}#
+                                               #{r\ 1843}#
+                                               #{w\ 1770}#
+                                               #{mod\ 1772}#))))
                                      (begin
-                                       (#{top-level-eval-hook\ 289}#
-                                         #{e\ 1848}#
-                                         #{mod\ 1771}#)
-                                       #{e\ 1848}#)))
+                                       (#{top-level-eval-hook\ 290}#
+                                         #{e\ 1849}#
+                                         #{mod\ 1772}#)
+                                       #{e\ 1849}#)))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 1744}#)
-                                     (#{top-level-eval-hook\ 289}#
-                                       (#{chi-install-global\ 452}#
-                                         #{n\ 1841}#
-                                         (#{chi\ 460}#
-                                           #{e\ 1768}#
-                                           #{r\ 1842}#
-                                           #{w\ 1769}#
-                                           #{mod\ 1771}#))
-                                       #{mod\ 1771}#))
-                                   (#{chi-void\ 474}#))))))
-                         (if (eqv? #{type\ 1766}# (quote define-form))
+                                   (if (memq 'eval #{esew\ 1745}#)
+                                     (#{top-level-eval-hook\ 290}#
+                                       (#{chi-install-global\ 453}#
+                                         #{n\ 1842}#
+                                         (#{chi\ 461}#
+                                           #{e\ 1769}#
+                                           #{r\ 1843}#
+                                           #{w\ 1770}#
+                                           #{mod\ 1772}#))
+                                       #{mod\ 1772}#))
+                                   (#{chi-void\ 475}#))))))
+                         (if (eqv? #{type\ 1767}# 'define-form)
                            (begin
-                             (let ((#{n\ 1853}#
-                                     (#{id-var-name\ 432}#
-                                       #{value\ 1767}#
-                                       #{w\ 1769}#)))
+                             (let ((#{n\ 1854}#
+                                     (#{id-var-name\ 433}#
+                                       #{value\ 1768}#
+                                       #{w\ 1770}#)))
                                (begin
-                                 (let ((#{type\ 1855}#
-                                         (car (#{lookup\ 372}#
-                                                #{n\ 1853}#
-                                                #{r\ 1741}#
-                                                #{mod\ 1771}#))))
-                                   (if (if (eqv? #{type\ 1855}# (quote global))
+                                 (let ((#{type\ 1856}#
+                                         (car (#{lookup\ 373}#
+                                                #{n\ 1854}#
+                                                #{r\ 1742}#
+                                                #{mod\ 1772}#))))
+                                   (if (if (eqv? #{type\ 1856}# 'global)
                                          #t
-                                         (if (eqv? #{type\ 1855}# (quote core))
+                                         (if (eqv? #{type\ 1856}# 'core)
                                            #t
-                                           (if (eqv? #{type\ 1855}#
-                                                     'macro)
+                                           (if (eqv? #{type\ 1856}# 'macro)
                                              #t
-                                             (eqv? #{type\ 1855}#
+                                             (eqv? #{type\ 1856}#
                                                    'module-ref))))
                                      (begin
-                                       (if (if (if (eq? #{m\ 1743}# (quote c))
+                                       (if (if (if (eq? #{m\ 1744}# 'c)
                                                  #t
-                                                 (eq? #{m\ 1743}# (quote c&e)))
+                                                 (eq? #{m\ 1744}# 'c&e))
                                              (if (not (module-local-variable
                                                         (current-module)
-                                                        #{n\ 1853}#))
+                                                        #{n\ 1854}#))
                                                (current-module)
                                                #f)
                                              #f)
                                          (begin
-                                           (let ((#{old\ 1862}#
+                                           (let ((#{old\ 1863}#
                                                    (module-variable
                                                      (current-module)
-                                                     #{n\ 1853}#)))
+                                                     #{n\ 1854}#)))
                                              (module-define!
                                                (current-module)
-                                               #{n\ 1853}#
-                                               (if (variable? #{old\ 1862}#)
-                                                 (variable-ref #{old\ 1862}#)
+                                               #{n\ 1854}#
+                                               (if (variable? #{old\ 1863}#)
+                                                 (variable-ref #{old\ 1863}#)
                                                  #f)))))
                                        (begin
-                                         (let ((#{x\ 1865}#
-                                                 (#{build-global-definition\ 
320}#
-                                                   #{s\ 1770}#
-                                                   #{n\ 1853}#
-                                                   (#{chi\ 460}#
-                                                     #{e\ 1768}#
-                                                     #{r\ 1741}#
-                                                     #{w\ 1769}#
-                                                     #{mod\ 1771}#))))
+                                         (let ((#{x\ 1866}#
+                                                 (#{build-global-definition\ 
321}#
+                                                   #{s\ 1771}#
+                                                   #{n\ 1854}#
+                                                   (#{chi\ 461}#
+                                                     #{e\ 1769}#
+                                                     #{r\ 1742}#
+                                                     #{w\ 1770}#
+                                                     #{mod\ 1772}#))))
                                            (begin
-                                             (if (eq? #{m\ 1743}# (quote c&e))
-                                               (#{top-level-eval-hook\ 289}#
-                                                 #{x\ 1865}#
-                                                 #{mod\ 1771}#))
-                                             #{x\ 1865}#))))
-                                     (if (eqv? #{type\ 1855}#
+                                             (if (eq? #{m\ 1744}# 'c&e)
+                                               (#{top-level-eval-hook\ 290}#
+                                                 #{x\ 1866}#
+                                                 #{mod\ 1772}#))
+                                             #{x\ 1866}#))))
+                                     (if (eqv? #{type\ 1856}#
                                                'displaced-lexical)
                                        (syntax-violation
                                          #f
                                          "identifier out of context"
-                                         #{e\ 1768}#
-                                         (#{wrap\ 444}#
-                                           #{value\ 1767}#
-                                           #{w\ 1769}#
-                                           #{mod\ 1771}#))
+                                         #{e\ 1769}#
+                                         (#{wrap\ 445}#
+                                           #{value\ 1768}#
+                                           #{w\ 1770}#
+                                           #{mod\ 1772}#))
                                        (syntax-violation
                                          #f
                                          "cannot define keyword at top level"
-                                         #{e\ 1768}#
-                                         (#{wrap\ 444}#
-                                           #{value\ 1767}#
-                                           #{w\ 1769}#
-                                           #{mod\ 1771}#))))))))
+                                         #{e\ 1769}#
+                                         (#{wrap\ 445}#
+                                           #{value\ 1768}#
+                                           #{w\ 1770}#
+                                           #{mod\ 1772}#))))))))
                            (begin
-                             (let ((#{x\ 1871}#
-                                     (#{chi-expr\ 462}#
-                                       #{type\ 1766}#
-                                       #{value\ 1767}#
-                                       #{e\ 1768}#
-                                       #{r\ 1741}#
-                                       #{w\ 1769}#
-                                       #{s\ 1770}#
-                                       #{mod\ 1771}#)))
+                             (let ((#{x\ 1872}#
+                                     (#{chi-expr\ 463}#
+                                       #{type\ 1767}#
+                                       #{value\ 1768}#
+                                       #{e\ 1769}#
+                                       #{r\ 1742}#
+                                       #{w\ 1770}#
+                                       #{s\ 1771}#
+                                       #{mod\ 1772}#)))
                                (begin
-                                 (if (eq? #{m\ 1743}# (quote c&e))
-                                   (#{top-level-eval-hook\ 289}#
-                                     #{x\ 1871}#
-                                     #{mod\ 1771}#))
-                                 #{x\ 1871}#))))))))))))
-         (#{chi\ 460}#
-           (lambda (#{e\ 1872}#
-                    #{r\ 1873}#
-                    #{w\ 1874}#
-                    #{mod\ 1875}#)
+                                 (if (eq? #{m\ 1744}# 'c&e)
+                                   (#{top-level-eval-hook\ 290}#
+                                     #{x\ 1872}#
+                                     #{mod\ 1772}#))
+                                 #{x\ 1872}#))))))))))))
+         (#{chi\ 461}#
+           (lambda (#{e\ 1873}#
+                    #{r\ 1874}#
+                    #{w\ 1875}#
+                    #{mod\ 1876}#)
              (call-with-values
                (lambda ()
-                 (#{syntax-type\ 456}#
-                   #{e\ 1872}#
-                   #{r\ 1873}#
-                   #{w\ 1874}#
-                   (#{source-annotation\ 359}# #{e\ 1872}#)
+                 (#{syntax-type\ 457}#
+                   #{e\ 1873}#
+                   #{r\ 1874}#
+                   #{w\ 1875}#
+                   (#{source-annotation\ 360}# #{e\ 1873}#)
                    #f
-                   #{mod\ 1875}#
+                   #{mod\ 1876}#
                    #f))
-               (lambda (#{type\ 1880}#
-                        #{value\ 1881}#
-                        #{e\ 1882}#
-                        #{w\ 1883}#
-                        #{s\ 1884}#
-                        #{mod\ 1885}#)
-                 (#{chi-expr\ 462}#
-                   #{type\ 1880}#
-                   #{value\ 1881}#
-                   #{e\ 1882}#
-                   #{r\ 1873}#
-                   #{w\ 1883}#
-                   #{s\ 1884}#
-                   #{mod\ 1885}#)))))
-         (#{chi-expr\ 462}#
-           (lambda (#{type\ 1892}#
-                    #{value\ 1893}#
-                    #{e\ 1894}#
-                    #{r\ 1895}#
-                    #{w\ 1896}#
-                    #{s\ 1897}#
-                    #{mod\ 1898}#)
-             (if (eqv? #{type\ 1892}# (quote lexical))
-               (#{build-lexical-reference\ 310}#
+               (lambda (#{type\ 1881}#
+                        #{value\ 1882}#
+                        #{e\ 1883}#
+                        #{w\ 1884}#
+                        #{s\ 1885}#
+                        #{mod\ 1886}#)
+                 (#{chi-expr\ 463}#
+                   #{type\ 1881}#
+                   #{value\ 1882}#
+                   #{e\ 1883}#
+                   #{r\ 1874}#
+                   #{w\ 1884}#
+                   #{s\ 1885}#
+                   #{mod\ 1886}#)))))
+         (#{chi-expr\ 463}#
+           (lambda (#{type\ 1893}#
+                    #{value\ 1894}#
+                    #{e\ 1895}#
+                    #{r\ 1896}#
+                    #{w\ 1897}#
+                    #{s\ 1898}#
+                    #{mod\ 1899}#)
+             (if (eqv? #{type\ 1893}# 'lexical)
+               (#{build-lexical-reference\ 311}#
                  'value
-                 #{s\ 1897}#
-                 #{e\ 1894}#
-                 #{value\ 1893}#)
-               (if (if (eqv? #{type\ 1892}# (quote core))
+                 #{s\ 1898}#
+                 #{e\ 1895}#
+                 #{value\ 1894}#)
+               (if (if (eqv? #{type\ 1893}# 'core)
                      #t
-                     (eqv? #{type\ 1892}# (quote core-form)))
-                 (#{value\ 1893}#
-                   #{e\ 1894}#
-                   #{r\ 1895}#
-                   #{w\ 1896}#
-                   #{s\ 1897}#
-                   #{mod\ 1898}#)
-                 (if (eqv? #{type\ 1892}# (quote module-ref))
+                     (eqv? #{type\ 1893}# 'core-form))
+                 (#{value\ 1894}#
+                   #{e\ 1895}#
+                   #{r\ 1896}#
+                   #{w\ 1897}#
+                   #{s\ 1898}#
+                   #{mod\ 1899}#)
+                 (if (eqv? #{type\ 1893}# 'module-ref)
                    (call-with-values
                      (lambda ()
-                       (#{value\ 1893}#
-                         #{e\ 1894}#
-                         #{r\ 1895}#
-                         #{w\ 1896}#))
-                     (lambda (#{e\ 1909}#
-                              #{r\ 1910}#
-                              #{w\ 1911}#
-                              #{s\ 1912}#
-                              #{mod\ 1913}#)
-                       (#{chi\ 460}#
-                         #{e\ 1909}#
-                         #{r\ 1910}#
-                         #{w\ 1911}#
-                         #{mod\ 1913}#)))
-                   (if (eqv? #{type\ 1892}# (quote lexical-call))
-                     (#{chi-application\ 464}#
+                       (#{value\ 1894}#
+                         #{e\ 1895}#
+                         #{r\ 1896}#
+                         #{w\ 1897}#))
+                     (lambda (#{e\ 1910}#
+                              #{r\ 1911}#
+                              #{w\ 1912}#
+                              #{s\ 1913}#
+                              #{mod\ 1914}#)
+                       (#{chi\ 461}#
+                         #{e\ 1910}#
+                         #{r\ 1911}#
+                         #{w\ 1912}#
+                         #{mod\ 1914}#)))
+                   (if (eqv? #{type\ 1893}# 'lexical-call)
+                     (#{chi-application\ 465}#
                        (begin
-                         (let ((#{id\ 1921}# (car #{e\ 1894}#)))
-                           (#{build-lexical-reference\ 310}#
+                         (let ((#{id\ 1922}# (car #{e\ 1895}#)))
+                           (#{build-lexical-reference\ 311}#
                              'fun
-                             (#{source-annotation\ 359}# #{id\ 1921}#)
-                             (if (#{syntax-object?\ 344}# #{id\ 1921}#)
-                               (syntax->datum #{id\ 1921}#)
-                               #{id\ 1921}#)
-                             #{value\ 1893}#)))
-                       #{e\ 1894}#
-                       #{r\ 1895}#
-                       #{w\ 1896}#
-                       #{s\ 1897}#
-                       #{mod\ 1898}#)
-                     (if (eqv? #{type\ 1892}# (quote global-call))
-                       (#{chi-application\ 464}#
-                         (#{build-global-reference\ 316}#
-                           (#{source-annotation\ 359}# (car #{e\ 1894}#))
-                           (if (#{syntax-object?\ 344}# #{value\ 1893}#)
-                             (#{syntax-object-expression\ 346}#
-                               #{value\ 1893}#)
-                             #{value\ 1893}#)
-                           (if (#{syntax-object?\ 344}# #{value\ 1893}#)
-                             (#{syntax-object-module\ 350}# #{value\ 1893}#)
-                             #{mod\ 1898}#))
-                         #{e\ 1894}#
-                         #{r\ 1895}#
-                         #{w\ 1896}#
-                         #{s\ 1897}#
-                         #{mod\ 1898}#)
-                       (if (eqv? #{type\ 1892}# (quote constant))
-                         (#{build-data\ 330}#
-                           #{s\ 1897}#
-                           (#{strip\ 486}#
-                             (#{source-wrap\ 446}#
-                               #{e\ 1894}#
-                               #{w\ 1896}#
-                               #{s\ 1897}#
-                               #{mod\ 1898}#)
+                             (#{source-annotation\ 360}# #{id\ 1922}#)
+                             (if (#{syntax-object?\ 345}# #{id\ 1922}#)
+                               (syntax->datum #{id\ 1922}#)
+                               #{id\ 1922}#)
+                             #{value\ 1894}#)))
+                       #{e\ 1895}#
+                       #{r\ 1896}#
+                       #{w\ 1897}#
+                       #{s\ 1898}#
+                       #{mod\ 1899}#)
+                     (if (eqv? #{type\ 1893}# 'global-call)
+                       (#{chi-application\ 465}#
+                         (#{build-global-reference\ 317}#
+                           (#{source-annotation\ 360}# (car #{e\ 1895}#))
+                           (if (#{syntax-object?\ 345}# #{value\ 1894}#)
+                             (#{syntax-object-expression\ 347}#
+                               #{value\ 1894}#)
+                             #{value\ 1894}#)
+                           (if (#{syntax-object?\ 345}# #{value\ 1894}#)
+                             (#{syntax-object-module\ 351}# #{value\ 1894}#)
+                             #{mod\ 1899}#))
+                         #{e\ 1895}#
+                         #{r\ 1896}#
+                         #{w\ 1897}#
+                         #{s\ 1898}#
+                         #{mod\ 1899}#)
+                       (if (eqv? #{type\ 1893}# 'constant)
+                         (#{build-data\ 331}#
+                           #{s\ 1898}#
+                           (#{strip\ 487}#
+                             (#{source-wrap\ 447}#
+                               #{e\ 1895}#
+                               #{w\ 1897}#
+                               #{s\ 1898}#
+                               #{mod\ 1899}#)
                              '(())))
-                         (if (eqv? #{type\ 1892}# (quote global))
-                           (#{build-global-reference\ 316}#
-                             #{s\ 1897}#
-                             #{value\ 1893}#
-                             #{mod\ 1898}#)
-                           (if (eqv? #{type\ 1892}# (quote call))
-                             (#{chi-application\ 464}#
-                               (#{chi\ 460}#
-                                 (car #{e\ 1894}#)
-                                 #{r\ 1895}#
-                                 #{w\ 1896}#
-                                 #{mod\ 1898}#)
-                               #{e\ 1894}#
-                               #{r\ 1895}#
-                               #{w\ 1896}#
-                               #{s\ 1897}#
-                               #{mod\ 1898}#)
-                             (if (eqv? #{type\ 1892}# (quote begin-form))
-                               (let ((#{tmp\ 1928}# #{e\ 1894}#))
-                                 (let ((#{tmp\ 1929}#
+                         (if (eqv? #{type\ 1893}# 'global)
+                           (#{build-global-reference\ 317}#
+                             #{s\ 1898}#
+                             #{value\ 1894}#
+                             #{mod\ 1899}#)
+                           (if (eqv? #{type\ 1893}# 'call)
+                             (#{chi-application\ 465}#
+                               (#{chi\ 461}#
+                                 (car #{e\ 1895}#)
+                                 #{r\ 1896}#
+                                 #{w\ 1897}#
+                                 #{mod\ 1899}#)
+                               #{e\ 1895}#
+                               #{r\ 1896}#
+                               #{w\ 1897}#
+                               #{s\ 1898}#
+                               #{mod\ 1899}#)
+                             (if (eqv? #{type\ 1893}# 'begin-form)
+                               (let ((#{tmp\ 1929}# #{e\ 1895}#))
+                                 (let ((#{tmp\ 1930}#
                                          ($sc-dispatch
-                                           #{tmp\ 1928}#
+                                           #{tmp\ 1929}#
                                            '(_ any . each-any))))
-                                   (if #{tmp\ 1929}#
+                                   (if #{tmp\ 1930}#
                                      (@apply
-                                       (lambda (#{e1\ 1932}# #{e2\ 1933}#)
-                                         (#{chi-sequence\ 448}#
-                                           (cons #{e1\ 1932}# #{e2\ 1933}#)
-                                           #{r\ 1895}#
-                                           #{w\ 1896}#
-                                           #{s\ 1897}#
-                                           #{mod\ 1898}#))
-                                       #{tmp\ 1929}#)
+                                       (lambda (#{e1\ 1933}# #{e2\ 1934}#)
+                                         (#{chi-sequence\ 449}#
+                                           (cons #{e1\ 1933}# #{e2\ 1934}#)
+                                           #{r\ 1896}#
+                                           #{w\ 1897}#
+                                           #{s\ 1898}#
+                                           #{mod\ 1899}#))
+                                       #{tmp\ 1930}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any 
pattern"
-                                       #{tmp\ 1928}#))))
-                               (if (eqv? #{type\ 1892}#
-                                         'local-syntax-form)
-                                 (#{chi-local-syntax\ 470}#
-                                   #{value\ 1893}#
-                                   #{e\ 1894}#
-                                   #{r\ 1895}#
-                                   #{w\ 1896}#
-                                   #{s\ 1897}#
-                                   #{mod\ 1898}#
-                                   #{chi-sequence\ 448}#)
-                                 (if (eqv? #{type\ 1892}#
-                                           'eval-when-form)
-                                   (let ((#{tmp\ 1937}# #{e\ 1894}#))
-                                     (let ((#{tmp\ 1938}#
+                                       #{tmp\ 1929}#))))
+                               (if (eqv? #{type\ 1893}# 'local-syntax-form)
+                                 (#{chi-local-syntax\ 471}#
+                                   #{value\ 1894}#
+                                   #{e\ 1895}#
+                                   #{r\ 1896}#
+                                   #{w\ 1897}#
+                                   #{s\ 1898}#
+                                   #{mod\ 1899}#
+                                   #{chi-sequence\ 449}#)
+                                 (if (eqv? #{type\ 1893}# 'eval-when-form)
+                                   (let ((#{tmp\ 1938}# #{e\ 1895}#))
+                                     (let ((#{tmp\ 1939}#
                                              ($sc-dispatch
-                                               #{tmp\ 1937}#
+                                               #{tmp\ 1938}#
                                                '(_ each-any any . each-any))))
-                                       (if #{tmp\ 1938}#
+                                       (if #{tmp\ 1939}#
                                          (@apply
-                                           (lambda (#{x\ 1942}#
-                                                    #{e1\ 1943}#
-                                                    #{e2\ 1944}#)
+                                           (lambda (#{x\ 1943}#
+                                                    #{e1\ 1944}#
+                                                    #{e2\ 1945}#)
                                              (begin
-                                               (let ((#{when-list\ 1946}#
-                                                       (#{chi-when-list\ 454}#
-                                                         #{e\ 1894}#
-                                                         #{x\ 1942}#
-                                                         #{w\ 1896}#)))
+                                               (let ((#{when-list\ 1947}#
+                                                       (#{chi-when-list\ 455}#
+                                                         #{e\ 1895}#
+                                                         #{x\ 1943}#
+                                                         #{w\ 1897}#)))
                                                  (if (memq 'eval
-                                                           #{when-list\ 1946}#)
-                                                   (#{chi-sequence\ 448}#
-                                                     (cons #{e1\ 1943}#
-                                                           #{e2\ 1944}#)
-                                                     #{r\ 1895}#
-                                                     #{w\ 1896}#
-                                                     #{s\ 1897}#
-                                                     #{mod\ 1898}#)
-                                                   (#{chi-void\ 474}#)))))
-                                           #{tmp\ 1938}#)
+                                                           #{when-list\ 1947}#)
+                                                   (#{chi-sequence\ 449}#
+                                                     (cons #{e1\ 1944}#
+                                                           #{e2\ 1945}#)
+                                                     #{r\ 1896}#
+                                                     #{w\ 1897}#
+                                                     #{s\ 1898}#
+                                                     #{mod\ 1899}#)
+                                                   (#{chi-void\ 475}#)))))
+                                           #{tmp\ 1939}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 1937}#))))
-                                   (if (if (eqv? #{type\ 1892}#
-                                                 'define-form)
+                                           #{tmp\ 1938}#))))
+                                   (if (if (eqv? #{type\ 1893}# 'define-form)
                                          #t
-                                         (eqv? #{type\ 1892}#
+                                         (eqv? #{type\ 1893}#
                                                'define-syntax-form))
                                      (syntax-violation
                                        #f
                                        "definition in expression context"
-                                       #{e\ 1894}#
-                                       (#{wrap\ 444}#
-                                         #{value\ 1893}#
-                                         #{w\ 1896}#
-                                         #{mod\ 1898}#))
-                                     (if (eqv? #{type\ 1892}# (quote syntax))
+                                       #{e\ 1895}#
+                                       (#{wrap\ 445}#
+                                         #{value\ 1894}#
+                                         #{w\ 1897}#
+                                         #{mod\ 1899}#))
+                                     (if (eqv? #{type\ 1893}# 'syntax)
                                        (syntax-violation
                                          #f
                                          "reference to pattern variable 
outside syntax form"
-                                         (#{source-wrap\ 446}#
-                                           #{e\ 1894}#
-                                           #{w\ 1896}#
-                                           #{s\ 1897}#
-                                           #{mod\ 1898}#))
-                                       (if (eqv? #{type\ 1892}#
+                                         (#{source-wrap\ 447}#
+                                           #{e\ 1895}#
+                                           #{w\ 1897}#
+                                           #{s\ 1898}#
+                                           #{mod\ 1899}#))
+                                       (if (eqv? #{type\ 1893}#
                                                  'displaced-lexical)
                                          (syntax-violation
                                            #f
                                            "reference to identifier outside 
its scope"
-                                           (#{source-wrap\ 446}#
-                                             #{e\ 1894}#
-                                             #{w\ 1896}#
-                                             #{s\ 1897}#
-                                             #{mod\ 1898}#))
+                                           (#{source-wrap\ 447}#
+                                             #{e\ 1895}#
+                                             #{w\ 1897}#
+                                             #{s\ 1898}#
+                                             #{mod\ 1899}#))
                                          (syntax-violation
                                            #f
                                            "unexpected syntax"
-                                           (#{source-wrap\ 446}#
-                                             #{e\ 1894}#
-                                             #{w\ 1896}#
-                                             #{s\ 1897}#
-                                             #{mod\ 1898}#))))))))))))))))))
-         (#{chi-application\ 464}#
-           (lambda (#{x\ 1953}#
-                    #{e\ 1954}#
-                    #{r\ 1955}#
-                    #{w\ 1956}#
-                    #{s\ 1957}#
-                    #{mod\ 1958}#)
-             (let ((#{tmp\ 1965}# #{e\ 1954}#))
-               (let ((#{tmp\ 1966}#
-                       ($sc-dispatch
-                         #{tmp\ 1965}#
-                         '(any . each-any))))
-                 (if #{tmp\ 1966}#
+                                           (#{source-wrap\ 447}#
+                                             #{e\ 1895}#
+                                             #{w\ 1897}#
+                                             #{s\ 1898}#
+                                             #{mod\ 1899}#))))))))))))))))))
+         (#{chi-application\ 465}#
+           (lambda (#{x\ 1954}#
+                    #{e\ 1955}#
+                    #{r\ 1956}#
+                    #{w\ 1957}#
+                    #{s\ 1958}#
+                    #{mod\ 1959}#)
+             (let ((#{tmp\ 1966}# #{e\ 1955}#))
+               (let ((#{tmp\ 1967}#
+                       ($sc-dispatch #{tmp\ 1966}# '(any . each-any))))
+                 (if #{tmp\ 1967}#
                    (@apply
-                     (lambda (#{e0\ 1969}# #{e1\ 1970}#)
-                       (#{build-application\ 304}#
-                         #{s\ 1957}#
-                         #{x\ 1953}#
-                         (map (lambda (#{e\ 1971}#)
-                                (#{chi\ 460}#
-                                  #{e\ 1971}#
-                                  #{r\ 1955}#
-                                  #{w\ 1956}#
-                                  #{mod\ 1958}#))
-                              #{e1\ 1970}#)))
-                     #{tmp\ 1966}#)
+                     (lambda (#{e0\ 1970}# #{e1\ 1971}#)
+                       (#{build-application\ 305}#
+                         #{s\ 1958}#
+                         #{x\ 1954}#
+                         (map (lambda (#{e\ 1972}#)
+                                (#{chi\ 461}#
+                                  #{e\ 1972}#
+                                  #{r\ 1956}#
+                                  #{w\ 1957}#
+                                  #{mod\ 1959}#))
+                              #{e1\ 1971}#)))
+                     #{tmp\ 1967}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
-                     #{tmp\ 1965}#))))))
-         (#{chi-macro\ 466}#
-           (lambda (#{p\ 1974}#
-                    #{e\ 1975}#
-                    #{r\ 1976}#
-                    #{w\ 1977}#
-                    #{s\ 1978}#
-                    #{rib\ 1979}#
-                    #{mod\ 1980}#)
+                     #{tmp\ 1966}#))))))
+         (#{chi-macro\ 467}#
+           (lambda (#{p\ 1975}#
+                    #{e\ 1976}#
+                    #{r\ 1977}#
+                    #{w\ 1978}#
+                    #{s\ 1979}#
+                    #{rib\ 1980}#
+                    #{mod\ 1981}#)
              (letrec*
-               ((#{rebuild-macro-output\ 1989}#
-                  (lambda (#{x\ 1990}# #{m\ 1991}#)
-                    (if (pair? #{x\ 1990}#)
-                      (#{decorate-source\ 298}#
-                        (cons (#{rebuild-macro-output\ 1989}#
-                                (car #{x\ 1990}#)
-                                #{m\ 1991}#)
-                              (#{rebuild-macro-output\ 1989}#
-                                (cdr #{x\ 1990}#)
-                                #{m\ 1991}#))
-                        #{s\ 1978}#)
-                      (if (#{syntax-object?\ 344}# #{x\ 1990}#)
+               ((#{rebuild-macro-output\ 1990}#
+                  (lambda (#{x\ 1991}# #{m\ 1992}#)
+                    (if (pair? #{x\ 1991}#)
+                      (#{decorate-source\ 299}#
+                        (cons (#{rebuild-macro-output\ 1990}#
+                                (car #{x\ 1991}#)
+                                #{m\ 1992}#)
+                              (#{rebuild-macro-output\ 1990}#
+                                (cdr #{x\ 1991}#)
+                                #{m\ 1992}#))
+                        #{s\ 1979}#)
+                      (if (#{syntax-object?\ 345}# #{x\ 1991}#)
                         (begin
-                          (let ((#{w\ 1999}#
-                                  (#{syntax-object-wrap\ 348}# #{x\ 1990}#)))
+                          (let ((#{w\ 2000}#
+                                  (#{syntax-object-wrap\ 349}# #{x\ 1991}#)))
                             (begin
-                              (let ((#{ms\ 2002}# (car #{w\ 1999}#))
-                                    (#{s\ 2003}# (cdr #{w\ 1999}#)))
-                                (if (if (pair? #{ms\ 2002}#)
-                                      (eq? (car #{ms\ 2002}#) #f)
+                              (let ((#{ms\ 2003}# (car #{w\ 2000}#))
+                                    (#{s\ 2004}# (cdr #{w\ 2000}#)))
+                                (if (if (pair? #{ms\ 2003}#)
+                                      (eq? (car #{ms\ 2003}#) #f)
                                       #f)
-                                  (#{make-syntax-object\ 342}#
-                                    (#{syntax-object-expression\ 346}#
-                                      #{x\ 1990}#)
-                                    (cons (cdr #{ms\ 2002}#)
-                                          (if #{rib\ 1979}#
-                                            (cons #{rib\ 1979}#
-                                                  (cdr #{s\ 2003}#))
-                                            (cdr #{s\ 2003}#)))
-                                    (#{syntax-object-module\ 350}#
-                                      #{x\ 1990}#))
-                                  (#{make-syntax-object\ 342}#
-                                    (#{decorate-source\ 298}#
-                                      (#{syntax-object-expression\ 346}#
-                                        #{x\ 1990}#)
-                                      #{s\ 2003}#)
-                                    (cons (cons #{m\ 1991}# #{ms\ 2002}#)
-                                          (if #{rib\ 1979}#
-                                            (cons #{rib\ 1979}#
-                                                  (cons 'shift
-                                                        #{s\ 2003}#))
-                                            (cons (quote shift) #{s\ 2003}#)))
-                                    (#{syntax-object-module\ 350}#
-                                      #{x\ 1990}#)))))))
-                        (if (vector? #{x\ 1990}#)
+                                  (#{make-syntax-object\ 343}#
+                                    (#{syntax-object-expression\ 347}#
+                                      #{x\ 1991}#)
+                                    (cons (cdr #{ms\ 2003}#)
+                                          (if #{rib\ 1980}#
+                                            (cons #{rib\ 1980}#
+                                                  (cdr #{s\ 2004}#))
+                                            (cdr #{s\ 2004}#)))
+                                    (#{syntax-object-module\ 351}#
+                                      #{x\ 1991}#))
+                                  (#{make-syntax-object\ 343}#
+                                    (#{decorate-source\ 299}#
+                                      (#{syntax-object-expression\ 347}#
+                                        #{x\ 1991}#)
+                                      #{s\ 2004}#)
+                                    (cons (cons #{m\ 1992}# #{ms\ 2003}#)
+                                          (if #{rib\ 1980}#
+                                            (cons #{rib\ 1980}#
+                                                  (cons 'shift #{s\ 2004}#))
+                                            (cons 'shift #{s\ 2004}#)))
+                                    (#{syntax-object-module\ 351}#
+                                      #{x\ 1991}#)))))))
+                        (if (vector? #{x\ 1991}#)
                           (begin
-                            (let ((#{n\ 2015}# (vector-length #{x\ 1990}#)))
+                            (let ((#{n\ 2016}# (vector-length #{x\ 1991}#)))
                               (begin
-                                (let ((#{v\ 2017}#
-                                        (#{decorate-source\ 298}#
-                                          (make-vector #{n\ 2015}#)
-                                          #{x\ 1990}#)))
+                                (let ((#{v\ 2018}#
+                                        (#{decorate-source\ 299}#
+                                          (make-vector #{n\ 2016}#)
+                                          #{x\ 1991}#)))
                                   (letrec*
-                                    ((#{loop\ 2020}#
-                                       (lambda (#{i\ 2021}#)
-                                         (if (#{fx=\ 285}#
-                                               #{i\ 2021}#
-                                               #{n\ 2015}#)
-                                           (begin (if #f #f) #{v\ 2017}#)
+                                    ((#{loop\ 2021}#
+                                       (lambda (#{i\ 2022}#)
+                                         (if (#{fx=\ 286}#
+                                               #{i\ 2022}#
+                                               #{n\ 2016}#)
+                                           (begin (if #f #f) #{v\ 2018}#)
                                            (begin
                                              (vector-set!
-                                               #{v\ 2017}#
-                                               #{i\ 2021}#
-                                               (#{rebuild-macro-output\ 1989}#
+                                               #{v\ 2018}#
+                                               #{i\ 2022}#
+                                               (#{rebuild-macro-output\ 1990}#
                                                  (vector-ref
-                                                   #{x\ 1990}#
-                                                   #{i\ 2021}#)
-                                                 #{m\ 1991}#))
-                                             (#{loop\ 2020}#
-                                               (#{fx+\ 281}#
-                                                 #{i\ 2021}#
+                                                   #{x\ 1991}#
+                                                   #{i\ 2022}#)
+                                                 #{m\ 1992}#))
+                                             (#{loop\ 2021}#
+                                               (#{fx+\ 282}#
+                                                 #{i\ 2022}#
                                                  1)))))))
-                                    (begin (#{loop\ 2020}# 0)))))))
-                          (if (symbol? #{x\ 1990}#)
+                                    (begin (#{loop\ 2021}# 0)))))))
+                          (if (symbol? #{x\ 1991}#)
                             (syntax-violation
                               #f
                               "encountered raw symbol in macro output"
-                              (#{source-wrap\ 446}#
-                                #{e\ 1975}#
-                                #{w\ 1977}#
-                                (cdr #{w\ 1977}#)
-                                #{mod\ 1980}#)
-                              #{x\ 1990}#)
-                            (#{decorate-source\ 298}#
-                              #{x\ 1990}#
-                              #{s\ 1978}#))))))))
+                              (#{source-wrap\ 447}#
+                                #{e\ 1976}#
+                                #{w\ 1978}#
+                                (cdr #{w\ 1978}#)
+                                #{mod\ 1981}#)
+                              #{x\ 1991}#)
+                            (#{decorate-source\ 299}#
+                              #{x\ 1991}#
+                              #{s\ 1979}#))))))))
                (begin
-                 (#{rebuild-macro-output\ 1989}#
-                   (#{p\ 1974}#
-                     (#{source-wrap\ 446}#
-                       #{e\ 1975}#
-                       (#{anti-mark\ 416}# #{w\ 1977}#)
-                       #{s\ 1978}#
-                       #{mod\ 1980}#))
+                 (#{rebuild-macro-output\ 1990}#
+                   (#{p\ 1975}#
+                     (#{source-wrap\ 447}#
+                       #{e\ 1976}#
+                       (#{anti-mark\ 417}# #{w\ 1978}#)
+                       #{s\ 1979}#
+                       #{mod\ 1981}#))
                    (gensym "m"))))))
-         (#{chi-body\ 468}#
-           (lambda (#{body\ 2029}#
-                    #{outer-form\ 2030}#
-                    #{r\ 2031}#
-                    #{w\ 2032}#
-                    #{mod\ 2033}#)
+         (#{chi-body\ 469}#
+           (lambda (#{body\ 2030}#
+                    #{outer-form\ 2031}#
+                    #{r\ 2032}#
+                    #{w\ 2033}#
+                    #{mod\ 2034}#)
              (begin
-               (let ((#{r\ 2041}#
-                       (cons '("placeholder" placeholder)
-                             #{r\ 2031}#)))
+               (let ((#{r\ 2042}#
+                       (cons '("placeholder" placeholder) #{r\ 2032}#)))
                  (begin
-                   (let ((#{ribcage\ 2043}#
-                           (#{make-ribcage\ 396}#
-                             '()
-                             '()
-                             '())))
+                   (let ((#{ribcage\ 2044}#
+                           (#{make-ribcage\ 397}# '() '() '())))
                      (begin
-                       (let ((#{w\ 2046}#
-                               (cons (car #{w\ 2032}#)
-                                     (cons #{ribcage\ 2043}#
-                                           (cdr #{w\ 2032}#)))))
+                       (let ((#{w\ 2047}#
+                               (cons (car #{w\ 2033}#)
+                                     (cons #{ribcage\ 2044}#
+                                           (cdr #{w\ 2033}#)))))
                          (letrec*
-                           ((#{parse\ 2058}#
-                              (lambda (#{body\ 2059}#
-                                       #{ids\ 2060}#
-                                       #{labels\ 2061}#
-                                       #{var-ids\ 2062}#
-                                       #{vars\ 2063}#
-                                       #{vals\ 2064}#
-                                       #{bindings\ 2065}#)
-                                (if (null? #{body\ 2059}#)
+                           ((#{parse\ 2059}#
+                              (lambda (#{body\ 2060}#
+                                       #{ids\ 2061}#
+                                       #{labels\ 2062}#
+                                       #{var-ids\ 2063}#
+                                       #{vars\ 2064}#
+                                       #{vals\ 2065}#
+                                       #{bindings\ 2066}#)
+                                (if (null? #{body\ 2060}#)
                                   (syntax-violation
                                     #f
                                     "no expressions in body"
-                                    #{outer-form\ 2030}#)
+                                    #{outer-form\ 2031}#)
                                   (begin
-                                    (let ((#{e\ 2070}#
-                                            (cdr (car #{body\ 2059}#)))
-                                          (#{er\ 2071}#
-                                            (car (car #{body\ 2059}#))))
+                                    (let ((#{e\ 2071}#
+                                            (cdr (car #{body\ 2060}#)))
+                                          (#{er\ 2072}#
+                                            (car (car #{body\ 2060}#))))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 456}#
-                                            #{e\ 2070}#
-                                            #{er\ 2071}#
+                                          (#{syntax-type\ 457}#
+                                            #{e\ 2071}#
+                                            #{er\ 2072}#
                                             '(())
-                                            (#{source-annotation\ 359}#
-                                              #{er\ 2071}#)
-                                            #{ribcage\ 2043}#
-                                            #{mod\ 2033}#
+                                            (#{source-annotation\ 360}#
+                                              #{er\ 2072}#)
+                                            #{ribcage\ 2044}#
+                                            #{mod\ 2034}#
                                             #f))
-                                        (lambda (#{type\ 2073}#
-                                                 #{value\ 2074}#
-                                                 #{e\ 2075}#
-                                                 #{w\ 2076}#
-                                                 #{s\ 2077}#
-                                                 #{mod\ 2078}#)
-                                          (if (eqv? #{type\ 2073}#
+                                        (lambda (#{type\ 2074}#
+                                                 #{value\ 2075}#
+                                                 #{e\ 2076}#
+                                                 #{w\ 2077}#
+                                                 #{s\ 2078}#
+                                                 #{mod\ 2079}#)
+                                          (if (eqv? #{type\ 2074}#
                                                     'define-form)
                                             (begin
-                                              (let ((#{id\ 2088}#
-                                                      (#{wrap\ 444}#
-                                                        #{value\ 2074}#
-                                                        #{w\ 2076}#
-                                                        #{mod\ 2078}#))
-                                                    (#{label\ 2089}#
-                                                      (#{gen-label\ 391}#)))
+                                              (let ((#{id\ 2089}#
+                                                      (#{wrap\ 445}#
+                                                        #{value\ 2075}#
+                                                        #{w\ 2077}#
+                                                        #{mod\ 2079}#))
+                                                    (#{label\ 2090}#
+                                                      (#{gen-label\ 392}#)))
                                                 (begin
-                                                  (let ((#{var\ 2091}#
-                                                          (#{gen-var\ 488}#
-                                                            #{id\ 2088}#)))
+                                                  (let ((#{var\ 2092}#
+                                                          (#{gen-var\ 489}#
+                                                            #{id\ 2089}#)))
                                                     (begin
-                                                      (#{extend-ribcage!\ 420}#
-                                                        #{ribcage\ 2043}#
-                                                        #{id\ 2088}#
-                                                        #{label\ 2089}#)
-                                                      (#{parse\ 2058}#
-                                                        (cdr #{body\ 2059}#)
-                                                        (cons #{id\ 2088}#
-                                                              #{ids\ 2060}#)
-                                                        (cons #{label\ 2089}#
-                                                              #{labels\ 2061}#)
-                                                        (cons #{id\ 2088}#
-                                                              #{var-ids\ 
2062}#)
-                                                        (cons #{var\ 2091}#
-                                                              #{vars\ 2063}#)
-                                                        (cons (cons #{er\ 
2071}#
-                                                                    (#{wrap\ 
444}#
-                                                                      #{e\ 
2075}#
-                                                                      #{w\ 
2076}#
-                                                                      #{mod\ 
2078}#))
-                                                              #{vals\ 2064}#)
+                                                      (#{extend-ribcage!\ 421}#
+                                                        #{ribcage\ 2044}#
+                                                        #{id\ 2089}#
+                                                        #{label\ 2090}#)
+                                                      (#{parse\ 2059}#
+                                                        (cdr #{body\ 2060}#)
+                                                        (cons #{id\ 2089}#
+                                                              #{ids\ 2061}#)
+                                                        (cons #{label\ 2090}#
+                                                              #{labels\ 2062}#)
+                                                        (cons #{id\ 2089}#
+                                                              #{var-ids\ 
2063}#)
+                                                        (cons #{var\ 2092}#
+                                                              #{vars\ 2064}#)
+                                                        (cons (cons #{er\ 
2072}#
+                                                                    (#{wrap\ 
445}#
+                                                                      #{e\ 
2076}#
+                                                                      #{w\ 
2077}#
+                                                                      #{mod\ 
2079}#))
+                                                              #{vals\ 2065}#)
                                                         (cons (cons 'lexical
-                                                                    #{var\ 
2091}#)
-                                                              #{bindings\ 
2065}#)))))))
-                                            (if (eqv? #{type\ 2073}#
+                                                                    #{var\ 
2092}#)
+                                                              #{bindings\ 
2066}#)))))))
+                                            (if (eqv? #{type\ 2074}#
                                                       'define-syntax-form)
                                               (begin
-                                                (let ((#{id\ 2096}#
-                                                        (#{wrap\ 444}#
-                                                          #{value\ 2074}#
-                                                          #{w\ 2076}#
-                                                          #{mod\ 2078}#))
-                                                      (#{label\ 2097}#
-                                                        (#{gen-label\ 391}#)))
+                                                (let ((#{id\ 2097}#
+                                                        (#{wrap\ 445}#
+                                                          #{value\ 2075}#
+                                                          #{w\ 2077}#
+                                                          #{mod\ 2079}#))
+                                                      (#{label\ 2098}#
+                                                        (#{gen-label\ 392}#)))
                                                   (begin
-                                                    (#{extend-ribcage!\ 420}#
-                                                      #{ribcage\ 2043}#
-                                                      #{id\ 2096}#
-                                                      #{label\ 2097}#)
-                                                    (#{parse\ 2058}#
-                                                      (cdr #{body\ 2059}#)
-                                                      (cons #{id\ 2096}#
-                                                            #{ids\ 2060}#)
-                                                      (cons #{label\ 2097}#
-                                                            #{labels\ 2061}#)
-                                                      #{var-ids\ 2062}#
-                                                      #{vars\ 2063}#
-                                                      #{vals\ 2064}#
+                                                    (#{extend-ribcage!\ 421}#
+                                                      #{ribcage\ 2044}#
+                                                      #{id\ 2097}#
+                                                      #{label\ 2098}#)
+                                                    (#{parse\ 2059}#
+                                                      (cdr #{body\ 2060}#)
+                                                      (cons #{id\ 2097}#
+                                                            #{ids\ 2061}#)
+                                                      (cons #{label\ 2098}#
+                                                            #{labels\ 2062}#)
+                                                      #{var-ids\ 2063}#
+                                                      #{vars\ 2064}#
+                                                      #{vals\ 2065}#
                                                       (cons (cons 'macro
-                                                                  (cons #{er\ 
2071}#
-                                                                        
(#{wrap\ 444}#
-                                                                          #{e\ 
2075}#
-                                                                          #{w\ 
2076}#
-                                                                          
#{mod\ 2078}#)))
-                                                            #{bindings\ 
2065}#)))))
-                                              (if (eqv? #{type\ 2073}#
+                                                                  (cons #{er\ 
2072}#
+                                                                        
(#{wrap\ 445}#
+                                                                          #{e\ 
2076}#
+                                                                          #{w\ 
2077}#
+                                                                          
#{mod\ 2079}#)))
+                                                            #{bindings\ 
2066}#)))))
+                                              (if (eqv? #{type\ 2074}#
                                                         'begin-form)
-                                                (let ((#{tmp\ 2100}#
-                                                        #{e\ 2075}#))
-                                                  (let ((#{tmp\ 2101}#
+                                                (let ((#{tmp\ 2101}#
+                                                        #{e\ 2076}#))
+                                                  (let ((#{tmp\ 2102}#
                                                           ($sc-dispatch
-                                                            #{tmp\ 2100}#
+                                                            #{tmp\ 2101}#
                                                             '(_ . each-any))))
-                                                    (if #{tmp\ 2101}#
+                                                    (if #{tmp\ 2102}#
                                                       (@apply
-                                                        (lambda (#{e1\ 2103}#)
-                                                          (#{parse\ 2058}#
+                                                        (lambda (#{e1\ 2104}#)
+                                                          (#{parse\ 2059}#
                                                             (letrec*
-                                                              ((#{f\ 2106}#
-                                                                 (lambda 
(#{forms\ 2107}#)
-                                                                   (if (null? 
#{forms\ 2107}#)
-                                                                     (cdr 
#{body\ 2059}#)
-                                                                     (cons 
(cons #{er\ 2071}#
-                                                                               
  (#{wrap\ 444}#
-                                                                               
    (car #{forms\ 2107}#)
-                                                                               
    #{w\ 2076}#
-                                                                               
    #{mod\ 2078}#))
-                                                                           
(#{f\ 2106}#
-                                                                             
(cdr #{forms\ 2107}#)))))))
+                                                              ((#{f\ 2107}#
+                                                                 (lambda 
(#{forms\ 2108}#)
+                                                                   (if (null? 
#{forms\ 2108}#)
+                                                                     (cdr 
#{body\ 2060}#)
+                                                                     (cons 
(cons #{er\ 2072}#
+                                                                               
  (#{wrap\ 445}#
+                                                                               
    (car #{forms\ 2108}#)
+                                                                               
    #{w\ 2077}#
+                                                                               
    #{mod\ 2079}#))
+                                                                           
(#{f\ 2107}#
+                                                                             
(cdr #{forms\ 2108}#)))))))
                                                               (begin
-                                                                (#{f\ 2106}#
-                                                                  #{e1\ 
2103}#)))
-                                                            #{ids\ 2060}#
-                                                            #{labels\ 2061}#
-                                                            #{var-ids\ 2062}#
-                                                            #{vars\ 2063}#
-                                                            #{vals\ 2064}#
-                                                            #{bindings\ 
2065}#))
-                                                        #{tmp\ 2101}#)
+                                                                (#{f\ 2107}#
+                                                                  #{e1\ 
2104}#)))
+                                                            #{ids\ 2061}#
+                                                            #{labels\ 2062}#
+                                                            #{var-ids\ 2063}#
+                                                            #{vars\ 2064}#
+                                                            #{vals\ 2065}#
+                                                            #{bindings\ 
2066}#))
+                                                        #{tmp\ 2102}#)
                                                       (syntax-violation
                                                         #f
                                                         "source expression 
failed to match any pattern"
-                                                        #{tmp\ 2100}#))))
-                                                (if (eqv? #{type\ 2073}#
+                                                        #{tmp\ 2101}#))))
+                                                (if (eqv? #{type\ 2074}#
                                                           'local-syntax-form)
-                                                  (#{chi-local-syntax\ 470}#
-                                                    #{value\ 2074}#
-                                                    #{e\ 2075}#
-                                                    #{er\ 2071}#
-                                                    #{w\ 2076}#
-                                                    #{s\ 2077}#
-                                                    #{mod\ 2078}#
-                                                    (lambda (#{forms\ 2110}#
-                                                             #{er\ 2111}#
-                                                             #{w\ 2112}#
-                                                             #{s\ 2113}#
-                                                             #{mod\ 2114}#)
-                                                      (#{parse\ 2058}#
+                                                  (#{chi-local-syntax\ 471}#
+                                                    #{value\ 2075}#
+                                                    #{e\ 2076}#
+                                                    #{er\ 2072}#
+                                                    #{w\ 2077}#
+                                                    #{s\ 2078}#
+                                                    #{mod\ 2079}#
+                                                    (lambda (#{forms\ 2111}#
+                                                             #{er\ 2112}#
+                                                             #{w\ 2113}#
+                                                             #{s\ 2114}#
+                                                             #{mod\ 2115}#)
+                                                      (#{parse\ 2059}#
                                                         (letrec*
-                                                          ((#{f\ 2122}#
-                                                             (lambda (#{forms\ 
2123}#)
-                                                               (if (null? 
#{forms\ 2123}#)
-                                                                 (cdr #{body\ 
2059}#)
-                                                                 (cons (cons 
#{er\ 2111}#
-                                                                             
(#{wrap\ 444}#
-                                                                               
(car #{forms\ 2123}#)
-                                                                               
#{w\ 2112}#
-                                                                               
#{mod\ 2114}#))
-                                                                       (#{f\ 
2122}#
-                                                                         (cdr 
#{forms\ 2123}#)))))))
+                                                          ((#{f\ 2123}#
+                                                             (lambda (#{forms\ 
2124}#)
+                                                               (if (null? 
#{forms\ 2124}#)
+                                                                 (cdr #{body\ 
2060}#)
+                                                                 (cons (cons 
#{er\ 2112}#
+                                                                             
(#{wrap\ 445}#
+                                                                               
(car #{forms\ 2124}#)
+                                                                               
#{w\ 2113}#
+                                                                               
#{mod\ 2115}#))
+                                                                       (#{f\ 
2123}#
+                                                                         (cdr 
#{forms\ 2124}#)))))))
                                                           (begin
-                                                            (#{f\ 2122}#
-                                                              #{forms\ 
2110}#)))
-                                                        #{ids\ 2060}#
-                                                        #{labels\ 2061}#
-                                                        #{var-ids\ 2062}#
-                                                        #{vars\ 2063}#
-                                                        #{vals\ 2064}#
-                                                        #{bindings\ 2065}#)))
-                                                  (if (null? #{ids\ 2060}#)
-                                                    (#{build-sequence\ 332}#
+                                                            (#{f\ 2123}#
+                                                              #{forms\ 
2111}#)))
+                                                        #{ids\ 2061}#
+                                                        #{labels\ 2062}#
+                                                        #{var-ids\ 2063}#
+                                                        #{vars\ 2064}#
+                                                        #{vals\ 2065}#
+                                                        #{bindings\ 2066}#)))
+                                                  (if (null? #{ids\ 2061}#)
+                                                    (#{build-sequence\ 333}#
                                                       #f
-                                                      (map (lambda (#{x\ 
2126}#)
-                                                             (#{chi\ 460}#
-                                                               (cdr #{x\ 
2126}#)
-                                                               (car #{x\ 
2126}#)
+                                                      (map (lambda (#{x\ 
2127}#)
+                                                             (#{chi\ 461}#
+                                                               (cdr #{x\ 
2127}#)
+                                                               (car #{x\ 
2127}#)
                                                                '(())
-                                                               #{mod\ 2078}#))
-                                                           (cons (cons #{er\ 
2071}#
-                                                                       
(#{source-wrap\ 446}#
-                                                                         #{e\ 
2075}#
-                                                                         #{w\ 
2076}#
-                                                                         #{s\ 
2077}#
-                                                                         
#{mod\ 2078}#))
-                                                                 (cdr #{body\ 
2059}#))))
+                                                               #{mod\ 2079}#))
+                                                           (cons (cons #{er\ 
2072}#
+                                                                       
(#{source-wrap\ 447}#
+                                                                         #{e\ 
2076}#
+                                                                         #{w\ 
2077}#
+                                                                         #{s\ 
2078}#
+                                                                         
#{mod\ 2079}#))
+                                                                 (cdr #{body\ 
2060}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 438}#
-                                                                 #{ids\ 
2060}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 439}#
+                                                                 #{ids\ 
2061}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 
2030}#))
+                                                          #{outer-form\ 
2031}#))
                                                       (letrec*
-                                                        ((#{loop\ 2133}#
-                                                           (lambda (#{bs\ 
2134}#
-                                                                    
#{er-cache\ 2135}#
-                                                                    #{r-cache\ 
2136}#)
-                                                             (if (not (null? 
#{bs\ 2134}#))
+                                                        ((#{loop\ 2134}#
+                                                           (lambda (#{bs\ 
2135}#
+                                                                    
#{er-cache\ 2136}#
+                                                                    #{r-cache\ 
2137}#)
+                                                             (if (not (null? 
#{bs\ 2135}#))
                                                                (begin
-                                                                 (let ((#{b\ 
2139}#
-                                                                         (car 
#{bs\ 2134}#)))
-                                                                   (if (eq? 
(car #{b\ 2139}#)
+                                                                 (let ((#{b\ 
2140}#
+                                                                         (car 
#{bs\ 2135}#)))
+                                                                   (if (eq? 
(car #{b\ 2140}#)
                                                                             
'macro)
                                                                      (begin
-                                                                       (let 
((#{er\ 2142}#
-                                                                               
(car (cdr #{b\ 2139}#))))
+                                                                       (let 
((#{er\ 2143}#
+                                                                               
(car (cdr #{b\ 2140}#))))
                                                                          (begin
-                                                                           
(let ((#{r-cache\ 2144}#
-                                                                               
    (if (eq? #{er\ 2142}#
-                                                                               
             #{er-cache\ 2135}#)
-                                                                               
      #{r-cache\ 2136}#
-                                                                               
      (#{macros-only-env\ 370}#
-                                                                               
        #{er\ 2142}#))))
+                                                                           
(let ((#{r-cache\ 2145}#
+                                                                               
    (if (eq? #{er\ 2143}#
+                                                                               
             #{er-cache\ 2136}#)
+                                                                               
      #{r-cache\ 2137}#
+                                                                               
      (#{macros-only-env\ 371}#
+                                                                               
        #{er\ 2143}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 2139}#
-                                                                               
  (#{eval-local-transformer\ 472}#
-                                                                               
    (#{chi\ 460}#
-                                                                               
      (cdr (cdr #{b\ 2139}#))
-                                                                               
      #{r-cache\ 2144}#
+                                                                               
  #{b\ 2140}#
+                                                                               
  (#{eval-local-transformer\ 473}#
+                                                                               
    (#{chi\ 461}#
+                                                                               
      (cdr (cdr #{b\ 2140}#))
+                                                                               
      #{r-cache\ 2145}#
                                                                                
      '(())
-                                                                               
      #{mod\ 2078}#)
-                                                                               
    #{mod\ 2078}#))
-                                                                               
(#{loop\ 2133}#
-                                                                               
  (cdr #{bs\ 2134}#)
-                                                                               
  #{er\ 2142}#
-                                                                               
  #{r-cache\ 2144}#))))))
-                                                                     (#{loop\ 
2133}#
-                                                                       (cdr 
#{bs\ 2134}#)
-                                                                       
#{er-cache\ 2135}#
-                                                                       
#{r-cache\ 2136}#))))))))
+                                                                               
      #{mod\ 2079}#)
+                                                                               
    #{mod\ 2079}#))
+                                                                               
(#{loop\ 2134}#
+                                                                               
  (cdr #{bs\ 2135}#)
+                                                                               
  #{er\ 2143}#
+                                                                               
  #{r-cache\ 2145}#))))))
+                                                                     (#{loop\ 
2134}#
+                                                                       (cdr 
#{bs\ 2135}#)
+                                                                       
#{er-cache\ 2136}#
+                                                                       
#{r-cache\ 2137}#))))))))
                                                         (begin
-                                                          (#{loop\ 2133}#
-                                                            #{bindings\ 2065}#
+                                                          (#{loop\ 2134}#
+                                                            #{bindings\ 2066}#
                                                             #f
                                                             #f)))
                                                       (set-cdr!
-                                                        #{r\ 2041}#
-                                                        (#{extend-env\ 366}#
-                                                          #{labels\ 2061}#
-                                                          #{bindings\ 2065}#
-                                                          (cdr #{r\ 2041}#)))
-                                                      (#{build-letrec\ 338}#
+                                                        #{r\ 2042}#
+                                                        (#{extend-env\ 367}#
+                                                          #{labels\ 2062}#
+                                                          #{bindings\ 2066}#
+                                                          (cdr #{r\ 2042}#)))
+                                                      (#{build-letrec\ 339}#
                                                         #f
                                                         #t
                                                         (reverse
                                                           (map syntax->datum
-                                                               #{var-ids\ 
2062}#))
+                                                               #{var-ids\ 
2063}#))
                                                         (reverse
-                                                          #{vars\ 2063}#)
-                                                        (map (lambda (#{x\ 
2147}#)
-                                                               (#{chi\ 460}#
-                                                                 (cdr #{x\ 
2147}#)
-                                                                 (car #{x\ 
2147}#)
+                                                          #{vars\ 2064}#)
+                                                        (map (lambda (#{x\ 
2148}#)
+                                                               (#{chi\ 461}#
+                                                                 (cdr #{x\ 
2148}#)
+                                                                 (car #{x\ 
2148}#)
                                                                  '(())
-                                                                 #{mod\ 
2078}#))
+                                                                 #{mod\ 
2079}#))
                                                              (reverse
-                                                               #{vals\ 2064}#))
-                                                        (#{build-sequence\ 
332}#
+                                                               #{vals\ 2065}#))
+                                                        (#{build-sequence\ 
333}#
                                                           #f
-                                                          (map (lambda (#{x\ 
2151}#)
-                                                                 (#{chi\ 460}#
-                                                                   (cdr #{x\ 
2151}#)
-                                                                   (car #{x\ 
2151}#)
+                                                          (map (lambda (#{x\ 
2152}#)
+                                                                 (#{chi\ 461}#
+                                                                   (cdr #{x\ 
2152}#)
+                                                                   (car #{x\ 
2152}#)
                                                                    '(())
-                                                                   #{mod\ 
2078}#))
-                                                               (cons (cons 
#{er\ 2071}#
-                                                                           
(#{source-wrap\ 446}#
-                                                                             
#{e\ 2075}#
-                                                                             
#{w\ 2076}#
-                                                                             
#{s\ 2077}#
-                                                                             
#{mod\ 2078}#))
-                                                                     (cdr 
#{body\ 2059}#)))))))))))))))))))
+                                                                   #{mod\ 
2079}#))
+                                                               (cons (cons 
#{er\ 2072}#
+                                                                           
(#{source-wrap\ 447}#
+                                                                             
#{e\ 2076}#
+                                                                             
#{w\ 2077}#
+                                                                             
#{s\ 2078}#
+                                                                             
#{mod\ 2079}#))
+                                                                     (cdr 
#{body\ 2060}#)))))))))))))))))))
                            (begin
-                             (#{parse\ 2058}#
-                               (map (lambda (#{x\ 2066}#)
-                                      (cons #{r\ 2041}#
-                                            (#{wrap\ 444}#
-                                              #{x\ 2066}#
-                                              #{w\ 2046}#
-                                              #{mod\ 2033}#)))
-                                    #{body\ 2029}#)
+                             (#{parse\ 2059}#
+                               (map (lambda (#{x\ 2067}#)
+                                      (cons #{r\ 2042}#
+                                            (#{wrap\ 445}#
+                                              #{x\ 2067}#
+                                              #{w\ 2047}#
+                                              #{mod\ 2034}#)))
+                                    #{body\ 2030}#)
                                '()
                                '()
                                '()
                                '()
                                '()
                                '())))))))))))
-         (#{chi-local-syntax\ 470}#
-           (lambda (#{rec?\ 2154}#
-                    #{e\ 2155}#
-                    #{r\ 2156}#
-                    #{w\ 2157}#
-                    #{s\ 2158}#
-                    #{mod\ 2159}#
-                    #{k\ 2160}#)
-             (let ((#{tmp\ 2168}# #{e\ 2155}#))
-               (let ((#{tmp\ 2169}#
+         (#{chi-local-syntax\ 471}#
+           (lambda (#{rec?\ 2155}#
+                    #{e\ 2156}#
+                    #{r\ 2157}#
+                    #{w\ 2158}#
+                    #{s\ 2159}#
+                    #{mod\ 2160}#
+                    #{k\ 2161}#)
+             (let ((#{tmp\ 2169}# #{e\ 2156}#))
+               (let ((#{tmp\ 2170}#
                        ($sc-dispatch
-                         #{tmp\ 2168}#
+                         #{tmp\ 2169}#
                          '(_ #(each (any any)) any . each-any))))
-                 (if #{tmp\ 2169}#
+                 (if #{tmp\ 2170}#
                    (@apply
-                     (lambda (#{id\ 2174}#
-                              #{val\ 2175}#
-                              #{e1\ 2176}#
-                              #{e2\ 2177}#)
+                     (lambda (#{id\ 2175}#
+                              #{val\ 2176}#
+                              #{e1\ 2177}#
+                              #{e2\ 2178}#)
                        (begin
-                         (let ((#{ids\ 2179}# #{id\ 2174}#))
-                           (if (not (#{valid-bound-ids?\ 438}# #{ids\ 2179}#))
+                         (let ((#{ids\ 2180}# #{id\ 2175}#))
+                           (if (not (#{valid-bound-ids?\ 439}# #{ids\ 2180}#))
                              (syntax-violation
                                #f
                                "duplicate bound keyword"
-                               #{e\ 2155}#)
+                               #{e\ 2156}#)
                              (begin
-                               (let ((#{labels\ 2182}#
-                                       (#{gen-labels\ 393}# #{ids\ 2179}#)))
+                               (let ((#{labels\ 2183}#
+                                       (#{gen-labels\ 394}# #{ids\ 2180}#)))
                                  (begin
-                                   (let ((#{new-w\ 2184}#
-                                           (#{make-binding-wrap\ 422}#
-                                             #{ids\ 2179}#
-                                             #{labels\ 2182}#
-                                             #{w\ 2157}#)))
-                                     (#{k\ 2160}#
-                                       (cons #{e1\ 2176}# #{e2\ 2177}#)
-                                       (#{extend-env\ 366}#
-                                         #{labels\ 2182}#
+                                   (let ((#{new-w\ 2185}#
+                                           (#{make-binding-wrap\ 423}#
+                                             #{ids\ 2180}#
+                                             #{labels\ 2183}#
+                                             #{w\ 2158}#)))
+                                     (#{k\ 2161}#
+                                       (cons #{e1\ 2177}# #{e2\ 2178}#)
+                                       (#{extend-env\ 367}#
+                                         #{labels\ 2183}#
                                          (begin
-                                           (let ((#{w\ 2188}#
-                                                   (if #{rec?\ 2154}#
-                                                     #{new-w\ 2184}#
-                                                     #{w\ 2157}#))
-                                                 (#{trans-r\ 2189}#
-                                                   (#{macros-only-env\ 370}#
-                                                     #{r\ 2156}#)))
-                                             (map (lambda (#{x\ 2190}#)
+                                           (let ((#{w\ 2189}#
+                                                   (if #{rec?\ 2155}#
+                                                     #{new-w\ 2185}#
+                                                     #{w\ 2158}#))
+                                                 (#{trans-r\ 2190}#
+                                                   (#{macros-only-env\ 371}#
+                                                     #{r\ 2157}#)))
+                                             (map (lambda (#{x\ 2191}#)
                                                     (cons 'macro
-                                                          
(#{eval-local-transformer\ 472}#
-                                                            (#{chi\ 460}#
-                                                              #{x\ 2190}#
-                                                              #{trans-r\ 2189}#
-                                                              #{w\ 2188}#
-                                                              #{mod\ 2159}#)
-                                                            #{mod\ 2159}#)))
-                                                  #{val\ 2175}#)))
-                                         #{r\ 2156}#)
-                                       #{new-w\ 2184}#
-                                       #{s\ 2158}#
-                                       #{mod\ 2159}#)))))))))
-                     #{tmp\ 2169}#)
-                   (let ((#{_\ 2195}# #{tmp\ 2168}#))
+                                                          
(#{eval-local-transformer\ 473}#
+                                                            (#{chi\ 461}#
+                                                              #{x\ 2191}#
+                                                              #{trans-r\ 2190}#
+                                                              #{w\ 2189}#
+                                                              #{mod\ 2160}#)
+                                                            #{mod\ 2160}#)))
+                                                  #{val\ 2176}#)))
+                                         #{r\ 2157}#)
+                                       #{new-w\ 2185}#
+                                       #{s\ 2159}#
+                                       #{mod\ 2160}#)))))))))
+                     #{tmp\ 2170}#)
+                   (let ((#{_\ 2196}# #{tmp\ 2169}#))
                      (syntax-violation
                        #f
                        "bad local syntax definition"
-                       (#{source-wrap\ 446}#
-                         #{e\ 2155}#
-                         #{w\ 2157}#
-                         #{s\ 2158}#
-                         #{mod\ 2159}#))))))))
-         (#{eval-local-transformer\ 472}#
-           (lambda (#{expanded\ 2196}# #{mod\ 2197}#)
+                       (#{source-wrap\ 447}#
+                         #{e\ 2156}#
+                         #{w\ 2158}#
+                         #{s\ 2159}#
+                         #{mod\ 2160}#))))))))
+         (#{eval-local-transformer\ 473}#
+           (lambda (#{expanded\ 2197}# #{mod\ 2198}#)
              (begin
-               (let ((#{p\ 2201}#
-                       (#{local-eval-hook\ 291}#
-                         #{expanded\ 2196}#
-                         #{mod\ 2197}#)))
-                 (if (procedure? #{p\ 2201}#)
-                   #{p\ 2201}#
+               (let ((#{p\ 2202}#
+                       (#{local-eval-hook\ 292}#
+                         #{expanded\ 2197}#
+                         #{mod\ 2198}#)))
+                 (if (procedure? #{p\ 2202}#)
+                   #{p\ 2202}#
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 2201}#))))))
-         (#{chi-void\ 474}#
-           (lambda () (#{build-void\ 302}# #f)))
-         (#{ellipsis?\ 476}#
-           (lambda (#{x\ 2203}#)
-             (if (#{nonsymbol-id?\ 376}# #{x\ 2203}#)
-               (#{free-id=?\ 434}#
-                 #{x\ 2203}#
+                     #{p\ 2202}#))))))
+         (#{chi-void\ 475}#
+           (lambda () (#{build-void\ 303}# #f)))
+         (#{ellipsis?\ 477}#
+           (lambda (#{x\ 2204}#)
+             (if (#{nonsymbol-id?\ 377}# #{x\ 2204}#)
+               (#{free-id=?\ 435}#
+                 #{x\ 2204}#
                  '#(syntax-object
                     ...
                     ((top)
                      #(ribcage () () ())
                      #(ribcage () () ())
-                     #(ribcage #(x) #((top)) #("i2204"))
+                     #(ribcage #(x) #((top)) #("i2205"))
                      #(ribcage
                        (lambda-var-list
                          gen-var
@@ -6727,58 +6705,59 @@
                         (top)
                         (top)
                         (top))
-                       ("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"
-                        "i423"
-                        "i421"
+                       ("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"
+                        "i422"
+                        "i420"
                         "i419"
                         "i418"
-                        "i417"
+                        "i416"
                         "i415"
                         "i414"
                         "i413"
                         "i412"
-                        "i411"
-                        "i409"
-                        "i407"
-                        "i405"
-                        "i403"
-                        "i401"
-                        "i399"
-                        "i397"
-                        "i395"
-                        "i392"
+                        "i410"
+                        "i408"
+                        "i406"
+                        "i404"
+                        "i402"
+                        "i400"
+                        "i398"
+                        "i396"
+                        "i393"
+                        "i391"
                         "i390"
                         "i389"
                         "i388"
@@ -6787,357 +6766,346 @@
                         "i385"
                         "i384"
                         "i383"
-                        "i382"
+                        "i381"
                         "i380"
-                        "i379"
-                        "i377"
-                        "i375"
-                        "i373"
-                        "i371"
-                        "i369"
-                        "i367"
+                        "i378"
+                        "i376"
+                        "i374"
+                        "i372"
+                        "i370"
+                        "i368"
+                        "i366"
                         "i365"
                         "i364"
                         "i363"
                         "i362"
                         "i361"
-                        "i360"
+                        "i359"
                         "i358"
-                        "i357"
-                        "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"
+                        "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"
                         "i293"
-                        "i292"
-                        "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"))
+                        "i291"
+                        "i289"
+                        "i287"
+                        "i285"
+                        "i283"
+                        "i281"
+                        "i279"
+                        "i277"
+                        "i275"
+                        "i272"
+                        "i270"
+                        "i268"
+                        "i266"
+                        "i264"
+                        "i262"
+                        "i260"
+                        "i258"
+                        "i256"
+                        "i254"
+                        "i252"
+                        "i250"
+                        "i248"
+                        "i246"
+                        "i244"
+                        "i242"
+                        "i240"
+                        "i238"))
                      #(ribcage
                        (define-structure
                          define-expansion-accessors
                          define-expansion-constructors
                          and-map*)
                        ((top) (top) (top) (top))
-                       ("i39" "i38" "i37" "i35")))
+                       ("i40" "i39" "i38" "i36")))
                     (hygiene guile)))
                #f)))
-         (#{lambda-formals\ 478}#
-           (lambda (#{orig-args\ 2207}#)
+         (#{lambda-formals\ 479}#
+           (lambda (#{orig-args\ 2208}#)
              (letrec*
-               ((#{req\ 2210}#
-                  (lambda (#{args\ 2213}# #{rreq\ 2214}#)
-                    (let ((#{tmp\ 2217}# #{args\ 2213}#))
-                      (let ((#{tmp\ 2218}#
-                              ($sc-dispatch #{tmp\ 2217}# (quote ()))))
-                        (if #{tmp\ 2218}#
+               ((#{req\ 2211}#
+                  (lambda (#{args\ 2214}# #{rreq\ 2215}#)
+                    (let ((#{tmp\ 2218}# #{args\ 2214}#))
+                      (let ((#{tmp\ 2219}# ($sc-dispatch #{tmp\ 2218}# '())))
+                        (if #{tmp\ 2219}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2212}# (reverse #{rreq\ 2214}#) #f))
-                            #{tmp\ 2218}#)
-                          (let ((#{tmp\ 2219}#
-                                  ($sc-dispatch
-                                    #{tmp\ 2217}#
-                                    '(any . any))))
-                            (if (if #{tmp\ 2219}#
+                              (#{check\ 2213}# (reverse #{rreq\ 2215}#) #f))
+                            #{tmp\ 2219}#)
+                          (let ((#{tmp\ 2220}#
+                                  ($sc-dispatch #{tmp\ 2218}# '(any . any))))
+                            (if (if #{tmp\ 2220}#
                                   (@apply
-                                    (lambda (#{a\ 2222}# #{b\ 2223}#)
-                                      (#{id?\ 378}# #{a\ 2222}#))
-                                    #{tmp\ 2219}#)
+                                    (lambda (#{a\ 2223}# #{b\ 2224}#)
+                                      (#{id?\ 379}# #{a\ 2223}#))
+                                    #{tmp\ 2220}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2226}# #{b\ 2227}#)
-                                  (#{req\ 2210}#
-                                    #{b\ 2227}#
-                                    (cons #{a\ 2226}# #{rreq\ 2214}#)))
-                                #{tmp\ 2219}#)
-                              (let ((#{tmp\ 2228}# (list #{tmp\ 2217}#)))
-                                (if (if #{tmp\ 2228}#
+                                (lambda (#{a\ 2227}# #{b\ 2228}#)
+                                  (#{req\ 2211}#
+                                    #{b\ 2228}#
+                                    (cons #{a\ 2227}# #{rreq\ 2215}#)))
+                                #{tmp\ 2220}#)
+                              (let ((#{tmp\ 2229}# (list #{tmp\ 2218}#)))
+                                (if (if #{tmp\ 2229}#
                                       (@apply
-                                        (lambda (#{r\ 2230}#)
-                                          (#{id?\ 378}# #{r\ 2230}#))
-                                        #{tmp\ 2228}#)
+                                        (lambda (#{r\ 2231}#)
+                                          (#{id?\ 379}# #{r\ 2231}#))
+                                        #{tmp\ 2229}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{r\ 2232}#)
-                                      (#{check\ 2212}#
-                                        (reverse #{rreq\ 2214}#)
-                                        #{r\ 2232}#))
-                                    #{tmp\ 2228}#)
-                                  (let ((#{else\ 2234}# #{tmp\ 2217}#))
+                                    (lambda (#{r\ 2233}#)
+                                      (#{check\ 2213}#
+                                        (reverse #{rreq\ 2215}#)
+                                        #{r\ 2233}#))
+                                    #{tmp\ 2229}#)
+                                  (let ((#{else\ 2235}# #{tmp\ 2218}#))
                                     (syntax-violation
                                       'lambda
                                       "invalid argument list"
-                                      #{orig-args\ 2207}#
-                                      #{args\ 2213}#)))))))))))
-                (#{check\ 2212}#
-                  (lambda (#{req\ 2235}# #{rest\ 2236}#)
-                    (if (#{distinct-bound-ids?\ 440}#
-                          (if #{rest\ 2236}#
-                            (cons #{rest\ 2236}# #{req\ 2235}#)
-                            #{req\ 2235}#))
-                      (values #{req\ 2235}# #f #{rest\ 2236}# #f)
+                                      #{orig-args\ 2208}#
+                                      #{args\ 2214}#)))))))))))
+                (#{check\ 2213}#
+                  (lambda (#{req\ 2236}# #{rest\ 2237}#)
+                    (if (#{distinct-bound-ids?\ 441}#
+                          (if #{rest\ 2237}#
+                            (cons #{rest\ 2237}# #{req\ 2236}#)
+                            #{req\ 2236}#))
+                      (values #{req\ 2236}# #f #{rest\ 2237}# #f)
                       (syntax-violation
                         'lambda
                         "duplicate identifier in argument list"
-                        #{orig-args\ 2207}#)))))
-               (begin
-                 (#{req\ 2210}# #{orig-args\ 2207}# (quote ()))))))
-         (#{chi-simple-lambda\ 480}#
-           (lambda (#{e\ 2242}#
-                    #{r\ 2243}#
-                    #{w\ 2244}#
-                    #{s\ 2245}#
-                    #{mod\ 2246}#
-                    #{req\ 2247}#
-                    #{rest\ 2248}#
-                    #{meta\ 2249}#
-                    #{body\ 2250}#)
+                        #{orig-args\ 2208}#)))))
+               (begin (#{req\ 2211}# #{orig-args\ 2208}# '())))))
+         (#{chi-simple-lambda\ 481}#
+           (lambda (#{e\ 2243}#
+                    #{r\ 2244}#
+                    #{w\ 2245}#
+                    #{s\ 2246}#
+                    #{mod\ 2247}#
+                    #{req\ 2248}#
+                    #{rest\ 2249}#
+                    #{meta\ 2250}#
+                    #{body\ 2251}#)
              (begin
-               (let ((#{ids\ 2262}#
-                       (if #{rest\ 2248}#
-                         (append #{req\ 2247}# (list #{rest\ 2248}#))
-                         #{req\ 2247}#)))
+               (let ((#{ids\ 2263}#
+                       (if #{rest\ 2249}#
+                         (append #{req\ 2248}# (list #{rest\ 2249}#))
+                         #{req\ 2248}#)))
                  (begin
-                   (let ((#{vars\ 2264}#
-                           (map #{gen-var\ 488}# #{ids\ 2262}#)))
+                   (let ((#{vars\ 2265}#
+                           (map #{gen-var\ 489}# #{ids\ 2263}#)))
                      (begin
-                       (let ((#{labels\ 2266}#
-                               (#{gen-labels\ 393}# #{ids\ 2262}#)))
-                         (#{build-simple-lambda\ 322}#
-                           #{s\ 2245}#
-                           (map syntax->datum #{req\ 2247}#)
-                           (if #{rest\ 2248}#
-                             (syntax->datum #{rest\ 2248}#)
+                       (let ((#{labels\ 2267}#
+                               (#{gen-labels\ 394}# #{ids\ 2263}#)))
+                         (#{build-simple-lambda\ 323}#
+                           #{s\ 2246}#
+                           (map syntax->datum #{req\ 2248}#)
+                           (if #{rest\ 2249}#
+                             (syntax->datum #{rest\ 2249}#)
                              #f)
-                           #{vars\ 2264}#
-                           #{meta\ 2249}#
-                           (#{chi-body\ 468}#
-                             #{body\ 2250}#
-                             (#{source-wrap\ 446}#
-                               #{e\ 2242}#
-                               #{w\ 2244}#
-                               #{s\ 2245}#
-                               #{mod\ 2246}#)
-                             (#{extend-var-env\ 368}#
-                               #{labels\ 2266}#
-                               #{vars\ 2264}#
-                               #{r\ 2243}#)
-                             (#{make-binding-wrap\ 422}#
-                               #{ids\ 2262}#
-                               #{labels\ 2266}#
-                               #{w\ 2244}#)
-                             #{mod\ 2246}#))))))))))
-         (#{lambda*-formals\ 482}#
-           (lambda (#{orig-args\ 2269}#)
+                           #{vars\ 2265}#
+                           #{meta\ 2250}#
+                           (#{chi-body\ 469}#
+                             #{body\ 2251}#
+                             (#{source-wrap\ 447}#
+                               #{e\ 2243}#
+                               #{w\ 2245}#
+                               #{s\ 2246}#
+                               #{mod\ 2247}#)
+                             (#{extend-var-env\ 369}#
+                               #{labels\ 2267}#
+                               #{vars\ 2265}#
+                               #{r\ 2244}#)
+                             (#{make-binding-wrap\ 423}#
+                               #{ids\ 2263}#
+                               #{labels\ 2267}#
+                               #{w\ 2245}#)
+                             #{mod\ 2247}#))))))))))
+         (#{lambda*-formals\ 483}#
+           (lambda (#{orig-args\ 2270}#)
              (letrec*
-               ((#{req\ 2272}#
-                  (lambda (#{args\ 2281}# #{rreq\ 2282}#)
-                    (let ((#{tmp\ 2285}# #{args\ 2281}#))
-                      (let ((#{tmp\ 2286}#
-                              ($sc-dispatch #{tmp\ 2285}# (quote ()))))
-                        (if #{tmp\ 2286}#
+               ((#{req\ 2273}#
+                  (lambda (#{args\ 2282}# #{rreq\ 2283}#)
+                    (let ((#{tmp\ 2286}# #{args\ 2282}#))
+                      (let ((#{tmp\ 2287}# ($sc-dispatch #{tmp\ 2286}# '())))
+                        (if #{tmp\ 2287}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2280}#
-                                (reverse #{rreq\ 2282}#)
+                              (#{check\ 2281}#
+                                (reverse #{rreq\ 2283}#)
                                 '()
                                 #f
                                 '()))
-                            #{tmp\ 2286}#)
-                          (let ((#{tmp\ 2287}#
-                                  ($sc-dispatch
-                                    #{tmp\ 2285}#
-                                    '(any . any))))
-                            (if (if #{tmp\ 2287}#
+                            #{tmp\ 2287}#)
+                          (let ((#{tmp\ 2288}#
+                                  ($sc-dispatch #{tmp\ 2286}# '(any . any))))
+                            (if (if #{tmp\ 2288}#
                                   (@apply
-                                    (lambda (#{a\ 2290}# #{b\ 2291}#)
-                                      (#{id?\ 378}# #{a\ 2290}#))
-                                    #{tmp\ 2287}#)
+                                    (lambda (#{a\ 2291}# #{b\ 2292}#)
+                                      (#{id?\ 379}# #{a\ 2291}#))
+                                    #{tmp\ 2288}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2294}# #{b\ 2295}#)
-                                  (#{req\ 2272}#
-                                    #{b\ 2295}#
-                                    (cons #{a\ 2294}# #{rreq\ 2282}#)))
-                                #{tmp\ 2287}#)
-                              (let ((#{tmp\ 2296}#
+                                (lambda (#{a\ 2295}# #{b\ 2296}#)
+                                  (#{req\ 2273}#
+                                    #{b\ 2296}#
+                                    (cons #{a\ 2295}# #{rreq\ 2283}#)))
+                                #{tmp\ 2288}#)
+                              (let ((#{tmp\ 2297}#
                                       ($sc-dispatch
-                                        #{tmp\ 2285}#
+                                        #{tmp\ 2286}#
                                         '(any . any))))
-                                (if (if #{tmp\ 2296}#
+                                (if (if #{tmp\ 2297}#
                                       (@apply
-                                        (lambda (#{a\ 2299}# #{b\ 2300}#)
-                                          (eq? (syntax->datum #{a\ 2299}#)
+                                        (lambda (#{a\ 2300}# #{b\ 2301}#)
+                                          (eq? (syntax->datum #{a\ 2300}#)
                                                #:optional))
-                                        #{tmp\ 2296}#)
+                                        #{tmp\ 2297}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a\ 2303}# #{b\ 2304}#)
-                                      (#{opt\ 2274}#
-                                        #{b\ 2304}#
-                                        (reverse #{rreq\ 2282}#)
+                                    (lambda (#{a\ 2304}# #{b\ 2305}#)
+                                      (#{opt\ 2275}#
+                                        #{b\ 2305}#
+                                        (reverse #{rreq\ 2283}#)
                                         '()))
-                                    #{tmp\ 2296}#)
-                                  (let ((#{tmp\ 2305}#
+                                    #{tmp\ 2297}#)
+                                  (let ((#{tmp\ 2306}#
                                           ($sc-dispatch
-                                            #{tmp\ 2285}#
+                                            #{tmp\ 2286}#
                                             '(any . any))))
-                                    (if (if #{tmp\ 2305}#
+                                    (if (if #{tmp\ 2306}#
                                           (@apply
-                                            (lambda (#{a\ 2308}# #{b\ 2309}#)
-                                              (eq? (syntax->datum #{a\ 2308}#)
+                                            (lambda (#{a\ 2309}# #{b\ 2310}#)
+                                              (eq? (syntax->datum #{a\ 2309}#)
                                                    #:key))
-                                            #{tmp\ 2305}#)
+                                            #{tmp\ 2306}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{a\ 2312}# #{b\ 2313}#)
-                                          (#{key\ 2276}#
-                                            #{b\ 2313}#
-                                            (reverse #{rreq\ 2282}#)
+                                        (lambda (#{a\ 2313}# #{b\ 2314}#)
+                                          (#{key\ 2277}#
+                                            #{b\ 2314}#
+                                            (reverse #{rreq\ 2283}#)
                                             '()
                                             '()))
-                                        #{tmp\ 2305}#)
-                                      (let ((#{tmp\ 2314}#
+                                        #{tmp\ 2306}#)
+                                      (let ((#{tmp\ 2315}#
                                               ($sc-dispatch
-                                                #{tmp\ 2285}#
+                                                #{tmp\ 2286}#
                                                 '(any any))))
-                                        (if (if #{tmp\ 2314}#
+                                        (if (if #{tmp\ 2315}#
                                               (@apply
-                                                (lambda (#{a\ 2317}#
-                                                         #{b\ 2318}#)
+                                                (lambda (#{a\ 2318}#
+                                                         #{b\ 2319}#)
                                                   (eq? (syntax->datum
-                                                         #{a\ 2317}#)
+                                                         #{a\ 2318}#)
                                                        #:rest))
-                                                #{tmp\ 2314}#)
+                                                #{tmp\ 2315}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{a\ 2321}# #{b\ 2322}#)
-                                              (#{rest\ 2278}#
-                                                #{b\ 2322}#
-                                                (reverse #{rreq\ 2282}#)
+                                            (lambda (#{a\ 2322}# #{b\ 2323}#)
+                                              (#{rest\ 2279}#
+                                                #{b\ 2323}#
+                                                (reverse #{rreq\ 2283}#)
                                                 '()
                                                 '()))
-                                            #{tmp\ 2314}#)
-                                          (let ((#{tmp\ 2323}#
-                                                  (list #{tmp\ 2285}#)))
-                                            (if (if #{tmp\ 2323}#
+                                            #{tmp\ 2315}#)
+                                          (let ((#{tmp\ 2324}#
+                                                  (list #{tmp\ 2286}#)))
+                                            (if (if #{tmp\ 2324}#
                                                   (@apply
-                                                    (lambda (#{r\ 2325}#)
-                                                      (#{id?\ 378}#
-                                                        #{r\ 2325}#))
-                                                    #{tmp\ 2323}#)
+                                                    (lambda (#{r\ 2326}#)
+                                                      (#{id?\ 379}#
+                                                        #{r\ 2326}#))
+                                                    #{tmp\ 2324}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{r\ 2327}#)
-                                                  (#{rest\ 2278}#
-                                                    #{r\ 2327}#
-                                                    (reverse #{rreq\ 2282}#)
+                                                (lambda (#{r\ 2328}#)
+                                                  (#{rest\ 2279}#
+                                                    #{r\ 2328}#
+                                                    (reverse #{rreq\ 2283}#)
                                                     '()
                                                     '()))
-                                                #{tmp\ 2323}#)
-                                              (let ((#{else\ 2329}#
-                                                      #{tmp\ 2285}#))
+                                                #{tmp\ 2324}#)
+                                              (let ((#{else\ 2330}#
+                                                      #{tmp\ 2286}#))
                                                 (syntax-violation
                                                   'lambda*
                                                   "invalid argument list"
-                                                  #{orig-args\ 2269}#
-                                                  #{args\ 
2281}#)))))))))))))))))
-                (#{opt\ 2274}#
-                  (lambda (#{args\ 2330}# #{req\ 2331}# #{ropt\ 2332}#)
-                    (let ((#{tmp\ 2336}# #{args\ 2330}#))
-                      (let ((#{tmp\ 2337}#
-                              ($sc-dispatch #{tmp\ 2336}# (quote ()))))
-                        (if #{tmp\ 2337}#
+                                                  #{orig-args\ 2270}#
+                                                  #{args\ 
2282}#)))))))))))))))))
+                (#{opt\ 2275}#
+                  (lambda (#{args\ 2331}# #{req\ 2332}# #{ropt\ 2333}#)
+                    (let ((#{tmp\ 2337}# #{args\ 2331}#))
+                      (let ((#{tmp\ 2338}# ($sc-dispatch #{tmp\ 2337}# '())))
+                        (if #{tmp\ 2338}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2280}#
-                                #{req\ 2331}#
-                                (reverse #{ropt\ 2332}#)
+                              (#{check\ 2281}#
+                                #{req\ 2332}#
+                                (reverse #{ropt\ 2333}#)
                                 #f
                                 '()))
-                            #{tmp\ 2337}#)
-                          (let ((#{tmp\ 2338}#
-                                  ($sc-dispatch
-                                    #{tmp\ 2336}#
-                                    '(any . any))))
-                            (if (if #{tmp\ 2338}#
+                            #{tmp\ 2338}#)
+                          (let ((#{tmp\ 2339}#
+                                  ($sc-dispatch #{tmp\ 2337}# '(any . any))))
+                            (if (if #{tmp\ 2339}#
                                   (@apply
-                                    (lambda (#{a\ 2341}# #{b\ 2342}#)
-                                      (#{id?\ 378}# #{a\ 2341}#))
-                                    #{tmp\ 2338}#)
+                                    (lambda (#{a\ 2342}# #{b\ 2343}#)
+                                      (#{id?\ 379}# #{a\ 2342}#))
+                                    #{tmp\ 2339}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2345}# #{b\ 2346}#)
-                                  (#{opt\ 2274}#
-                                    #{b\ 2346}#
-                                    #{req\ 2331}#
-                                    (cons (cons #{a\ 2345}#
+                                (lambda (#{a\ 2346}# #{b\ 2347}#)
+                                  (#{opt\ 2275}#
+                                    #{b\ 2347}#
+                                    #{req\ 2332}#
+                                    (cons (cons #{a\ 2346}#
                                                 '(#(syntax-object
                                                     #f
                                                     ((top)
                                                      #(ribcage
                                                        #(a b)
                                                        #((top) (top))
-                                                       #("i2343" "i2344"))
+                                                       #("i2344" "i2345"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(args req ropt)
                                                        #((top) (top) (top))
-                                                       #("i2333"
-                                                         "i2334"
-                                                         "i2335"))
+                                                       #("i2334"
+                                                         "i2335"
+                                                         "i2336"))
                                                      #(ribcage
                                                        (check rest key opt req)
                                                        ((top)
@@ -7145,15 +7113,15 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i2279"
-                                                        "i2277"
-                                                        "i2275"
-                                                        "i2273"
-                                                        "i2271"))
+                                                       ("i2280"
+                                                        "i2278"
+                                                        "i2276"
+                                                        "i2274"
+                                                        "i2272"))
                                                      #(ribcage
                                                        #(orig-args)
                                                        #((top))
-                                                       #("i2270"))
+                                                       #("i2271"))
                                                      #(ribcage
                                                        (lambda-var-list
                                                          gen-var
@@ -7429,58 +7397,59 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("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"
-                                                        "i423"
-                                                        "i421"
+                                                       ("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"
+                                                        "i422"
+                                                        "i420"
                                                         "i419"
                                                         "i418"
-                                                        "i417"
+                                                        "i416"
                                                         "i415"
                                                         "i414"
                                                         "i413"
                                                         "i412"
-                                                        "i411"
-                                                        "i409"
-                                                        "i407"
-                                                        "i405"
-                                                        "i403"
-                                                        "i401"
-                                                        "i399"
-                                                        "i397"
-                                                        "i395"
-                                                        "i392"
+                                                        "i410"
+                                                        "i408"
+                                                        "i406"
+                                                        "i404"
+                                                        "i402"
+                                                        "i400"
+                                                        "i398"
+                                                        "i396"
+                                                        "i393"
+                                                        "i391"
                                                         "i390"
                                                         "i389"
                                                         "i388"
@@ -7489,83 +7458,82 @@
                                                         "i385"
                                                         "i384"
                                                         "i383"
-                                                        "i382"
+                                                        "i381"
                                                         "i380"
-                                                        "i379"
-                                                        "i377"
-                                                        "i375"
-                                                        "i373"
-                                                        "i371"
-                                                        "i369"
-                                                        "i367"
+                                                        "i378"
+                                                        "i376"
+                                                        "i374"
+                                                        "i372"
+                                                        "i370"
+                                                        "i368"
+                                                        "i366"
                                                         "i365"
                                                         "i364"
                                                         "i363"
                                                         "i362"
                                                         "i361"
-                                                        "i360"
+                                                        "i359"
                                                         "i358"
-                                                        "i357"
-                                                        "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"
+                                                        "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"
                                                         "i293"
-                                                        "i292"
-                                                        "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"))
+                                                        "i291"
+                                                        "i289"
+                                                        "i287"
+                                                        "i285"
+                                                        "i283"
+                                                        "i281"
+                                                        "i279"
+                                                        "i277"
+                                                        "i275"
+                                                        "i272"
+                                                        "i270"
+                                                        "i268"
+                                                        "i266"
+                                                        "i264"
+                                                        "i262"
+                                                        "i260"
+                                                        "i258"
+                                                        "i256"
+                                                        "i254"
+                                                        "i252"
+                                                        "i250"
+                                                        "i248"
+                                                        "i246"
+                                                        "i244"
+                                                        "i242"
+                                                        "i240"
+                                                        "i238"))
                                                      #(ribcage
                                                        (define-structure
                                                          
define-expansion-accessors
@@ -7575,150 +7543,147 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                       ("i39"
+                                                       ("i40"
+                                                        "i39"
                                                         "i38"
-                                                        "i37"
-                                                        "i35")))
+                                                        "i36")))
                                                     (hygiene guile))))
-                                          #{ropt\ 2332}#)))
-                                #{tmp\ 2338}#)
-                              (let ((#{tmp\ 2347}#
+                                          #{ropt\ 2333}#)))
+                                #{tmp\ 2339}#)
+                              (let ((#{tmp\ 2348}#
                                       ($sc-dispatch
-                                        #{tmp\ 2336}#
+                                        #{tmp\ 2337}#
                                         '((any any) . any))))
-                                (if (if #{tmp\ 2347}#
+                                (if (if #{tmp\ 2348}#
                                       (@apply
-                                        (lambda (#{a\ 2351}#
-                                                 #{init\ 2352}#
-                                                 #{b\ 2353}#)
-                                          (#{id?\ 378}# #{a\ 2351}#))
-                                        #{tmp\ 2347}#)
+                                        (lambda (#{a\ 2352}#
+                                                 #{init\ 2353}#
+                                                 #{b\ 2354}#)
+                                          (#{id?\ 379}# #{a\ 2352}#))
+                                        #{tmp\ 2348}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a\ 2357}#
-                                             #{init\ 2358}#
-                                             #{b\ 2359}#)
-                                      (#{opt\ 2274}#
-                                        #{b\ 2359}#
-                                        #{req\ 2331}#
-                                        (cons (list #{a\ 2357}# #{init\ 2358}#)
-                                              #{ropt\ 2332}#)))
-                                    #{tmp\ 2347}#)
-                                  (let ((#{tmp\ 2360}#
+                                    (lambda (#{a\ 2358}#
+                                             #{init\ 2359}#
+                                             #{b\ 2360}#)
+                                      (#{opt\ 2275}#
+                                        #{b\ 2360}#
+                                        #{req\ 2332}#
+                                        (cons (list #{a\ 2358}# #{init\ 2359}#)
+                                              #{ropt\ 2333}#)))
+                                    #{tmp\ 2348}#)
+                                  (let ((#{tmp\ 2361}#
                                           ($sc-dispatch
-                                            #{tmp\ 2336}#
+                                            #{tmp\ 2337}#
                                             '(any . any))))
-                                    (if (if #{tmp\ 2360}#
+                                    (if (if #{tmp\ 2361}#
                                           (@apply
-                                            (lambda (#{a\ 2363}# #{b\ 2364}#)
-                                              (eq? (syntax->datum #{a\ 2363}#)
+                                            (lambda (#{a\ 2364}# #{b\ 2365}#)
+                                              (eq? (syntax->datum #{a\ 2364}#)
                                                    #:key))
-                                            #{tmp\ 2360}#)
+                                            #{tmp\ 2361}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{a\ 2367}# #{b\ 2368}#)
-                                          (#{key\ 2276}#
-                                            #{b\ 2368}#
-                                            #{req\ 2331}#
-                                            (reverse #{ropt\ 2332}#)
+                                        (lambda (#{a\ 2368}# #{b\ 2369}#)
+                                          (#{key\ 2277}#
+                                            #{b\ 2369}#
+                                            #{req\ 2332}#
+                                            (reverse #{ropt\ 2333}#)
                                             '()))
-                                        #{tmp\ 2360}#)
-                                      (let ((#{tmp\ 2369}#
+                                        #{tmp\ 2361}#)
+                                      (let ((#{tmp\ 2370}#
                                               ($sc-dispatch
-                                                #{tmp\ 2336}#
+                                                #{tmp\ 2337}#
                                                 '(any any))))
-                                        (if (if #{tmp\ 2369}#
+                                        (if (if #{tmp\ 2370}#
                                               (@apply
-                                                (lambda (#{a\ 2372}#
-                                                         #{b\ 2373}#)
+                                                (lambda (#{a\ 2373}#
+                                                         #{b\ 2374}#)
                                                   (eq? (syntax->datum
-                                                         #{a\ 2372}#)
+                                                         #{a\ 2373}#)
                                                        #:rest))
-                                                #{tmp\ 2369}#)
+                                                #{tmp\ 2370}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{a\ 2376}# #{b\ 2377}#)
-                                              (#{rest\ 2278}#
-                                                #{b\ 2377}#
-                                                #{req\ 2331}#
-                                                (reverse #{ropt\ 2332}#)
+                                            (lambda (#{a\ 2377}# #{b\ 2378}#)
+                                              (#{rest\ 2279}#
+                                                #{b\ 2378}#
+                                                #{req\ 2332}#
+                                                (reverse #{ropt\ 2333}#)
                                                 '()))
-                                            #{tmp\ 2369}#)
-                                          (let ((#{tmp\ 2378}#
-                                                  (list #{tmp\ 2336}#)))
-                                            (if (if #{tmp\ 2378}#
+                                            #{tmp\ 2370}#)
+                                          (let ((#{tmp\ 2379}#
+                                                  (list #{tmp\ 2337}#)))
+                                            (if (if #{tmp\ 2379}#
                                                   (@apply
-                                                    (lambda (#{r\ 2380}#)
-                                                      (#{id?\ 378}#
-                                                        #{r\ 2380}#))
-                                                    #{tmp\ 2378}#)
+                                                    (lambda (#{r\ 2381}#)
+                                                      (#{id?\ 379}#
+                                                        #{r\ 2381}#))
+                                                    #{tmp\ 2379}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{r\ 2382}#)
-                                                  (#{rest\ 2278}#
-                                                    #{r\ 2382}#
-                                                    #{req\ 2331}#
-                                                    (reverse #{ropt\ 2332}#)
+                                                (lambda (#{r\ 2383}#)
+                                                  (#{rest\ 2279}#
+                                                    #{r\ 2383}#
+                                                    #{req\ 2332}#
+                                                    (reverse #{ropt\ 2333}#)
                                                     '()))
-                                                #{tmp\ 2378}#)
-                                              (let ((#{else\ 2384}#
-                                                      #{tmp\ 2336}#))
+                                                #{tmp\ 2379}#)
+                                              (let ((#{else\ 2385}#
+                                                      #{tmp\ 2337}#))
                                                 (syntax-violation
                                                   'lambda*
                                                   "invalid optional argument 
list"
-                                                  #{orig-args\ 2269}#
-                                                  #{args\ 
2330}#)))))))))))))))))
-                (#{key\ 2276}#
-                  (lambda (#{args\ 2385}#
-                           #{req\ 2386}#
-                           #{opt\ 2387}#
-                           #{rkey\ 2388}#)
-                    (let ((#{tmp\ 2393}# #{args\ 2385}#))
-                      (let ((#{tmp\ 2394}#
-                              ($sc-dispatch #{tmp\ 2393}# (quote ()))))
-                        (if #{tmp\ 2394}#
+                                                  #{orig-args\ 2270}#
+                                                  #{args\ 
2331}#)))))))))))))))))
+                (#{key\ 2277}#
+                  (lambda (#{args\ 2386}#
+                           #{req\ 2387}#
+                           #{opt\ 2388}#
+                           #{rkey\ 2389}#)
+                    (let ((#{tmp\ 2394}# #{args\ 2386}#))
+                      (let ((#{tmp\ 2395}# ($sc-dispatch #{tmp\ 2394}# '())))
+                        (if #{tmp\ 2395}#
                           (@apply
                             (lambda ()
-                              (#{check\ 2280}#
-                                #{req\ 2386}#
-                                #{opt\ 2387}#
+                              (#{check\ 2281}#
+                                #{req\ 2387}#
+                                #{opt\ 2388}#
                                 #f
-                                (cons #f (reverse #{rkey\ 2388}#))))
-                            #{tmp\ 2394}#)
-                          (let ((#{tmp\ 2395}#
-                                  ($sc-dispatch
-                                    #{tmp\ 2393}#
-                                    '(any . any))))
-                            (if (if #{tmp\ 2395}#
+                                (cons #f (reverse #{rkey\ 2389}#))))
+                            #{tmp\ 2395}#)
+                          (let ((#{tmp\ 2396}#
+                                  ($sc-dispatch #{tmp\ 2394}# '(any . any))))
+                            (if (if #{tmp\ 2396}#
                                   (@apply
-                                    (lambda (#{a\ 2398}# #{b\ 2399}#)
-                                      (#{id?\ 378}# #{a\ 2398}#))
-                                    #{tmp\ 2395}#)
+                                    (lambda (#{a\ 2399}# #{b\ 2400}#)
+                                      (#{id?\ 379}# #{a\ 2399}#))
+                                    #{tmp\ 2396}#)
                                   #f)
                               (@apply
-                                (lambda (#{a\ 2402}# #{b\ 2403}#)
-                                  (let ((#{tmp\ 2405}#
+                                (lambda (#{a\ 2403}# #{b\ 2404}#)
+                                  (let ((#{tmp\ 2406}#
                                           (symbol->keyword
-                                            (syntax->datum #{a\ 2402}#))))
-                                    (let ((#{k\ 2407}# #{tmp\ 2405}#))
-                                      (#{key\ 2276}#
-                                        #{b\ 2403}#
-                                        #{req\ 2386}#
-                                        #{opt\ 2387}#
-                                        (cons (cons #{k\ 2407}#
-                                                    (cons #{a\ 2402}#
+                                            (syntax->datum #{a\ 2403}#))))
+                                    (let ((#{k\ 2408}# #{tmp\ 2406}#))
+                                      (#{key\ 2277}#
+                                        #{b\ 2404}#
+                                        #{req\ 2387}#
+                                        #{opt\ 2388}#
+                                        (cons (cons #{k\ 2408}#
+                                                    (cons #{a\ 2403}#
                                                           '(#(syntax-object
                                                               #f
                                                               ((top)
                                                                #(ribcage
                                                                  #(k)
                                                                  #((top))
-                                                                 #("i2406"))
+                                                                 #("i2407"))
                                                                #(ribcage
                                                                  #(a b)
                                                                  #((top) (top))
-                                                                 #("i2400"
-                                                                   "i2401"))
+                                                                 #("i2401"
+                                                                   "i2402"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -7732,10 +7697,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i2389"
-                                                                   "i2390"
+                                                                 #("i2390"
                                                                    "i2391"
-                                                                   "i2392"))
+                                                                   "i2392"
+                                                                   "i2393"))
                                                                #(ribcage
                                                                  (check rest
                                                                         key
@@ -7746,15 +7711,15 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                 ("i2279"
-                                                                  "i2277"
-                                                                  "i2275"
-                                                                  "i2273"
-                                                                  "i2271"))
+                                                                 ("i2280"
+                                                                  "i2278"
+                                                                  "i2276"
+                                                                  "i2274"
+                                                                  "i2272"))
                                                                #(ribcage
                                                                  #(orig-args)
                                                                  #((top))
-                                                                 #("i2270"))
+                                                                 #("i2271"))
                                                                #(ribcage
                                                                  
(lambda-var-list
                                                                    gen-var
@@ -8030,58 +7995,59 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                 ("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"
-                                                                  "i423"
-                                                                  "i421"
+                                                                 ("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"
+                                                                  "i422"
+                                                                  "i420"
                                                                   "i419"
                                                                   "i418"
-                                                                  "i417"
+                                                                  "i416"
                                                                   "i415"
                                                                   "i414"
                                                                   "i413"
                                                                   "i412"
-                                                                  "i411"
-                                                                  "i409"
-                                                                  "i407"
-                                                                  "i405"
-                                                                  "i403"
-                                                                  "i401"
-                                                                  "i399"
-                                                                  "i397"
-                                                                  "i395"
-                                                                  "i392"
+                                                                  "i410"
+                                                                  "i408"
+                                                                  "i406"
+                                                                  "i404"
+                                                                  "i402"
+                                                                  "i400"
+                                                                  "i398"
+                                                                  "i396"
+                                                                  "i393"
+                                                                  "i391"
                                                                   "i390"
                                                                   "i389"
                                                                   "i388"
@@ -8090,83 +8056,82 @@
                                                                   "i385"
                                                                   "i384"
                                                                   "i383"
-                                                                  "i382"
+                                                                  "i381"
                                                                   "i380"
-                                                                  "i379"
-                                                                  "i377"
-                                                                  "i375"
-                                                                  "i373"
-                                                                  "i371"
-                                                                  "i369"
-                                                                  "i367"
+                                                                  "i378"
+                                                                  "i376"
+                                                                  "i374"
+                                                                  "i372"
+                                                                  "i370"
+                                                                  "i368"
+                                                                  "i366"
                                                                   "i365"
                                                                   "i364"
                                                                   "i363"
                                                                   "i362"
                                                                   "i361"
-                                                                  "i360"
+                                                                  "i359"
                                                                   "i358"
-                                                                  "i357"
-                                                                  "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"
+                                                                  "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"
                                                                   "i293"
-                                                                  "i292"
-                                                                  "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"))
+                                                                  "i291"
+                                                                  "i289"
+                                                                  "i287"
+                                                                  "i285"
+                                                                  "i283"
+                                                                  "i281"
+                                                                  "i279"
+                                                                  "i277"
+                                                                  "i275"
+                                                                  "i272"
+                                                                  "i270"
+                                                                  "i268"
+                                                                  "i266"
+                                                                  "i264"
+                                                                  "i262"
+                                                                  "i260"
+                                                                  "i258"
+                                                                  "i256"
+                                                                  "i254"
+                                                                  "i252"
+                                                                  "i250"
+                                                                  "i248"
+                                                                  "i246"
+                                                                  "i244"
+                                                                  "i242"
+                                                                  "i240"
+                                                                  "i238"))
                                                                #(ribcage
                                                                  
(define-structure
                                                                    
define-expansion-accessors
@@ -8176,2062 +8141,2038 @@
                                                                   (top)
                                                                   (top)
                                                                   (top))
-                                                                 ("i39"
+                                                                 ("i40"
+                                                                  "i39"
                                                                   "i38"
-                                                                  "i37"
-                                                                  "i35")))
+                                                                  "i36")))
                                                               (hygiene
                                                                 guile)))))
-                                              #{rkey\ 2388}#)))))
-                                #{tmp\ 2395}#)
-                              (let ((#{tmp\ 2408}#
+                                              #{rkey\ 2389}#)))))
+                                #{tmp\ 2396}#)
+                              (let ((#{tmp\ 2409}#
                                       ($sc-dispatch
-                                        #{tmp\ 2393}#
+                                        #{tmp\ 2394}#
                                         '((any any) . any))))
-                                (if (if #{tmp\ 2408}#
+                                (if (if #{tmp\ 2409}#
                                       (@apply
-                                        (lambda (#{a\ 2412}#
-                                                 #{init\ 2413}#
-                                                 #{b\ 2414}#)
-                                          (#{id?\ 378}# #{a\ 2412}#))
-                                        #{tmp\ 2408}#)
+                                        (lambda (#{a\ 2413}#
+                                                 #{init\ 2414}#
+                                                 #{b\ 2415}#)
+                                          (#{id?\ 379}# #{a\ 2413}#))
+                                        #{tmp\ 2409}#)
                                       #f)
                                   (@apply
-                                    (lambda (#{a\ 2418}#
-                                             #{init\ 2419}#
-                                             #{b\ 2420}#)
-                                      (let ((#{tmp\ 2422}#
+                                    (lambda (#{a\ 2419}#
+                                             #{init\ 2420}#
+                                             #{b\ 2421}#)
+                                      (let ((#{tmp\ 2423}#
                                               (symbol->keyword
-                                                (syntax->datum #{a\ 2418}#))))
-                                        (let ((#{k\ 2424}# #{tmp\ 2422}#))
-                                          (#{key\ 2276}#
-                                            #{b\ 2420}#
-                                            #{req\ 2386}#
-                                            #{opt\ 2387}#
-                                            (cons (list #{k\ 2424}#
-                                                        #{a\ 2418}#
-                                                        #{init\ 2419}#)
-                                                  #{rkey\ 2388}#)))))
-                                    #{tmp\ 2408}#)
-                                  (let ((#{tmp\ 2425}#
+                                                (syntax->datum #{a\ 2419}#))))
+                                        (let ((#{k\ 2425}# #{tmp\ 2423}#))
+                                          (#{key\ 2277}#
+                                            #{b\ 2421}#
+                                            #{req\ 2387}#
+                                            #{opt\ 2388}#
+                                            (cons (list #{k\ 2425}#
+                                                        #{a\ 2419}#
+                                                        #{init\ 2420}#)
+                                                  #{rkey\ 2389}#)))))
+                                    #{tmp\ 2409}#)
+                                  (let ((#{tmp\ 2426}#
                                           ($sc-dispatch
-                                            #{tmp\ 2393}#
+                                            #{tmp\ 2394}#
                                             '((any any any) . any))))
-                                    (if (if #{tmp\ 2425}#
+                                    (if (if #{tmp\ 2426}#
                                           (@apply
-                                            (lambda (#{a\ 2430}#
-                                                     #{init\ 2431}#
-                                                     #{k\ 2432}#
-                                                     #{b\ 2433}#)
-                                              (if (#{id?\ 378}# #{a\ 2430}#)
+                                            (lambda (#{a\ 2431}#
+                                                     #{init\ 2432}#
+                                                     #{k\ 2433}#
+                                                     #{b\ 2434}#)
+                                              (if (#{id?\ 379}# #{a\ 2431}#)
                                                 (keyword?
-                                                  (syntax->datum #{k\ 2432}#))
+                                                  (syntax->datum #{k\ 2433}#))
                                                 #f))
-                                            #{tmp\ 2425}#)
+                                            #{tmp\ 2426}#)
                                           #f)
                                       (@apply
-                                        (lambda (#{a\ 2440}#
-                                                 #{init\ 2441}#
-                                                 #{k\ 2442}#
-                                                 #{b\ 2443}#)
-                                          (#{key\ 2276}#
-                                            #{b\ 2443}#
-                                            #{req\ 2386}#
-                                            #{opt\ 2387}#
-                                            (cons (list #{k\ 2442}#
-                                                        #{a\ 2440}#
-                                                        #{init\ 2441}#)
-                                                  #{rkey\ 2388}#)))
-                                        #{tmp\ 2425}#)
-                                      (let ((#{tmp\ 2444}#
+                                        (lambda (#{a\ 2441}#
+                                                 #{init\ 2442}#
+                                                 #{k\ 2443}#
+                                                 #{b\ 2444}#)
+                                          (#{key\ 2277}#
+                                            #{b\ 2444}#
+                                            #{req\ 2387}#
+                                            #{opt\ 2388}#
+                                            (cons (list #{k\ 2443}#
+                                                        #{a\ 2441}#
+                                                        #{init\ 2442}#)
+                                                  #{rkey\ 2389}#)))
+                                        #{tmp\ 2426}#)
+                                      (let ((#{tmp\ 2445}#
                                               ($sc-dispatch
-                                                #{tmp\ 2393}#
+                                                #{tmp\ 2394}#
                                                 '(any))))
-                                        (if (if #{tmp\ 2444}#
+                                        (if (if #{tmp\ 2445}#
                                               (@apply
-                                                (lambda (#{aok\ 2446}#)
+                                                (lambda (#{aok\ 2447}#)
                                                   (eq? (syntax->datum
-                                                         #{aok\ 2446}#)
+                                                         #{aok\ 2447}#)
                                                        #:allow-other-keys))
-                                                #{tmp\ 2444}#)
+                                                #{tmp\ 2445}#)
                                               #f)
                                           (@apply
-                                            (lambda (#{aok\ 2448}#)
-                                              (#{check\ 2280}#
-                                                #{req\ 2386}#
-                                                #{opt\ 2387}#
+                                            (lambda (#{aok\ 2449}#)
+                                              (#{check\ 2281}#
+                                                #{req\ 2387}#
+                                                #{opt\ 2388}#
                                                 #f
                                                 (cons #t
                                                       (reverse
-                                                        #{rkey\ 2388}#))))
-                                            #{tmp\ 2444}#)
-                                          (let ((#{tmp\ 2449}#
+                                                        #{rkey\ 2389}#))))
+                                            #{tmp\ 2445}#)
+                                          (let ((#{tmp\ 2450}#
                                                   ($sc-dispatch
-                                                    #{tmp\ 2393}#
+                                                    #{tmp\ 2394}#
                                                     '(any any any))))
-                                            (if (if #{tmp\ 2449}#
+                                            (if (if #{tmp\ 2450}#
                                                   (@apply
-                                                    (lambda (#{aok\ 2453}#
-                                                             #{a\ 2454}#
-                                                             #{b\ 2455}#)
+                                                    (lambda (#{aok\ 2454}#
+                                                             #{a\ 2455}#
+                                                             #{b\ 2456}#)
                                                       (if (eq? (syntax->datum
-                                                                 #{aok\ 2453}#)
+                                                                 #{aok\ 2454}#)
                                                                
#:allow-other-keys)
                                                         (eq? (syntax->datum
-                                                               #{a\ 2454}#)
+                                                               #{a\ 2455}#)
                                                              #:rest)
                                                         #f))
-                                                    #{tmp\ 2449}#)
+                                                    #{tmp\ 2450}#)
                                                   #f)
                                               (@apply
-                                                (lambda (#{aok\ 2461}#
-                                                         #{a\ 2462}#
-                                                         #{b\ 2463}#)
-                                                  (#{rest\ 2278}#
-                                                    #{b\ 2463}#
-                                                    #{req\ 2386}#
-                                                    #{opt\ 2387}#
+                                                (lambda (#{aok\ 2462}#
+                                                         #{a\ 2463}#
+                                                         #{b\ 2464}#)
+                                                  (#{rest\ 2279}#
+                                                    #{b\ 2464}#
+                                                    #{req\ 2387}#
+                                                    #{opt\ 2388}#
                                                     (cons #t
                                                           (reverse
-                                                            #{rkey\ 2388}#))))
-                                                #{tmp\ 2449}#)
-                                              (let ((#{tmp\ 2464}#
+                                                            #{rkey\ 2389}#))))
+                                                #{tmp\ 2450}#)
+                                              (let ((#{tmp\ 2465}#
                                                       ($sc-dispatch
-                                                        #{tmp\ 2393}#
+                                                        #{tmp\ 2394}#
                                                         '(any . any))))
-                                                (if (if #{tmp\ 2464}#
+                                                (if (if #{tmp\ 2465}#
                                                       (@apply
-                                                        (lambda (#{aok\ 2467}#
-                                                                 #{r\ 2468}#)
+                                                        (lambda (#{aok\ 2468}#
+                                                                 #{r\ 2469}#)
                                                           (if (eq? 
(syntax->datum
-                                                                     #{aok\ 
2467}#)
+                                                                     #{aok\ 
2468}#)
                                                                    
#:allow-other-keys)
-                                                            (#{id?\ 378}#
-                                                              #{r\ 2468}#)
+                                                            (#{id?\ 379}#
+                                                              #{r\ 2469}#)
                                                             #f))
-                                                        #{tmp\ 2464}#)
+                                                        #{tmp\ 2465}#)
                                                       #f)
                                                   (@apply
-                                                    (lambda (#{aok\ 2473}#
-                                                             #{r\ 2474}#)
-                                                      (#{rest\ 2278}#
-                                                        #{r\ 2474}#
-                                                        #{req\ 2386}#
-                                                        #{opt\ 2387}#
+                                                    (lambda (#{aok\ 2474}#
+                                                             #{r\ 2475}#)
+                                                      (#{rest\ 2279}#
+                                                        #{r\ 2475}#
+                                                        #{req\ 2387}#
+                                                        #{opt\ 2388}#
                                                         (cons #t
                                                               (reverse
-                                                                #{rkey\ 
2388}#))))
-                                                    #{tmp\ 2464}#)
-                                                  (let ((#{tmp\ 2475}#
+                                                                #{rkey\ 
2389}#))))
+                                                    #{tmp\ 2465}#)
+                                                  (let ((#{tmp\ 2476}#
                                                           ($sc-dispatch
-                                                            #{tmp\ 2393}#
+                                                            #{tmp\ 2394}#
                                                             '(any any))))
-                                                    (if (if #{tmp\ 2475}#
+                                                    (if (if #{tmp\ 2476}#
                                                           (@apply
-                                                            (lambda (#{a\ 
2478}#
-                                                                     #{b\ 
2479}#)
+                                                            (lambda (#{a\ 
2479}#
+                                                                     #{b\ 
2480}#)
                                                               (eq? 
(syntax->datum
-                                                                     #{a\ 
2478}#)
+                                                                     #{a\ 
2479}#)
                                                                    #:rest))
-                                                            #{tmp\ 2475}#)
+                                                            #{tmp\ 2476}#)
                                                           #f)
                                                       (@apply
-                                                        (lambda (#{a\ 2482}#
-                                                                 #{b\ 2483}#)
-                                                          (#{rest\ 2278}#
-                                                            #{b\ 2483}#
-                                                            #{req\ 2386}#
-                                                            #{opt\ 2387}#
+                                                        (lambda (#{a\ 2483}#
+                                                                 #{b\ 2484}#)
+                                                          (#{rest\ 2279}#
+                                                            #{b\ 2484}#
+                                                            #{req\ 2387}#
+                                                            #{opt\ 2388}#
                                                             (cons #f
                                                                   (reverse
-                                                                    #{rkey\ 
2388}#))))
-                                                        #{tmp\ 2475}#)
-                                                      (let ((#{tmp\ 2484}#
-                                                              (list #{tmp\ 
2393}#)))
-                                                        (if (if #{tmp\ 2484}#
+                                                                    #{rkey\ 
2389}#))))
+                                                        #{tmp\ 2476}#)
+                                                      (let ((#{tmp\ 2485}#
+                                                              (list #{tmp\ 
2394}#)))
+                                                        (if (if #{tmp\ 2485}#
                                                               (@apply
-                                                                (lambda (#{r\ 
2486}#)
-                                                                  (#{id?\ 378}#
-                                                                    #{r\ 
2486}#))
-                                                                #{tmp\ 2484}#)
+                                                                (lambda (#{r\ 
2487}#)
+                                                                  (#{id?\ 379}#
+                                                                    #{r\ 
2487}#))
+                                                                #{tmp\ 2485}#)
                                                               #f)
                                                           (@apply
-                                                            (lambda (#{r\ 
2488}#)
-                                                              (#{rest\ 2278}#
-                                                                #{r\ 2488}#
-                                                                #{req\ 2386}#
-                                                                #{opt\ 2387}#
+                                                            (lambda (#{r\ 
2489}#)
+                                                              (#{rest\ 2279}#
+                                                                #{r\ 2489}#
+                                                                #{req\ 2387}#
+                                                                #{opt\ 2388}#
                                                                 (cons #f
                                                                       (reverse
-                                                                        
#{rkey\ 2388}#))))
-                                                            #{tmp\ 2484}#)
-                                                          (let ((#{else\ 2490}#
-                                                                  #{tmp\ 
2393}#))
+                                                                        
#{rkey\ 2389}#))))
+                                                            #{tmp\ 2485}#)
+                                                          (let ((#{else\ 2491}#
+                                                                  #{tmp\ 
2394}#))
                                                             (syntax-violation
                                                               'lambda*
                                                               "invalid keyword 
argument list"
-                                                              #{orig-args\ 
2269}#
-                                                              #{args\ 
2385}#)))))))))))))))))))))))
-                (#{rest\ 2278}#
-                  (lambda (#{args\ 2491}#
-                           #{req\ 2492}#
-                           #{opt\ 2493}#
-                           #{kw\ 2494}#)
-                    (let ((#{tmp\ 2499}# #{args\ 2491}#))
-                      (let ((#{tmp\ 2500}# (list #{tmp\ 2499}#)))
-                        (if (if #{tmp\ 2500}#
+                                                              #{orig-args\ 
2270}#
+                                                              #{args\ 
2386}#)))))))))))))))))))))))
+                (#{rest\ 2279}#
+                  (lambda (#{args\ 2492}#
+                           #{req\ 2493}#
+                           #{opt\ 2494}#
+                           #{kw\ 2495}#)
+                    (let ((#{tmp\ 2500}# #{args\ 2492}#))
+                      (let ((#{tmp\ 2501}# (list #{tmp\ 2500}#)))
+                        (if (if #{tmp\ 2501}#
                               (@apply
-                                (lambda (#{r\ 2502}#)
-                                  (#{id?\ 378}# #{r\ 2502}#))
-                                #{tmp\ 2500}#)
+                                (lambda (#{r\ 2503}#)
+                                  (#{id?\ 379}# #{r\ 2503}#))
+                                #{tmp\ 2501}#)
                               #f)
                           (@apply
-                            (lambda (#{r\ 2504}#)
-                              (#{check\ 2280}#
-                                #{req\ 2492}#
-                                #{opt\ 2493}#
-                                #{r\ 2504}#
-                                #{kw\ 2494}#))
-                            #{tmp\ 2500}#)
-                          (let ((#{else\ 2506}# #{tmp\ 2499}#))
+                            (lambda (#{r\ 2505}#)
+                              (#{check\ 2281}#
+                                #{req\ 2493}#
+                                #{opt\ 2494}#
+                                #{r\ 2505}#
+                                #{kw\ 2495}#))
+                            #{tmp\ 2501}#)
+                          (let ((#{else\ 2507}# #{tmp\ 2500}#))
                             (syntax-violation
                               'lambda*
                               "invalid rest argument"
-                              #{orig-args\ 2269}#
-                              #{args\ 2491}#)))))))
-                (#{check\ 2280}#
-                  (lambda (#{req\ 2507}#
-                           #{opt\ 2508}#
-                           #{rest\ 2509}#
-                           #{kw\ 2510}#)
-                    (if (#{distinct-bound-ids?\ 440}#
+                              #{orig-args\ 2270}#
+                              #{args\ 2492}#)))))))
+                (#{check\ 2281}#
+                  (lambda (#{req\ 2508}#
+                           #{opt\ 2509}#
+                           #{rest\ 2510}#
+                           #{kw\ 2511}#)
+                    (if (#{distinct-bound-ids?\ 441}#
                           (append
-                            #{req\ 2507}#
-                            (map car #{opt\ 2508}#)
-                            (if #{rest\ 2509}#
-                              (list #{rest\ 2509}#)
-                              '())
-                            (if (pair? #{kw\ 2510}#)
-                              (map cadr (cdr #{kw\ 2510}#))
+                            #{req\ 2508}#
+                            (map car #{opt\ 2509}#)
+                            (if #{rest\ 2510}# (list #{rest\ 2510}#) '())
+                            (if (pair? #{kw\ 2511}#)
+                              (map cadr (cdr #{kw\ 2511}#))
                               '())))
                       (values
-                        #{req\ 2507}#
-                        #{opt\ 2508}#
-                        #{rest\ 2509}#
-                        #{kw\ 2510}#)
+                        #{req\ 2508}#
+                        #{opt\ 2509}#
+                        #{rest\ 2510}#
+                        #{kw\ 2511}#)
                       (syntax-violation
                         'lambda*
                         "duplicate identifier in argument list"
-                        #{orig-args\ 2269}#)))))
-               (begin
-                 (#{req\ 2272}# #{orig-args\ 2269}# (quote ()))))))
-         (#{chi-lambda-case\ 484}#
-           (lambda (#{e\ 2518}#
-                    #{r\ 2519}#
-                    #{w\ 2520}#
-                    #{s\ 2521}#
-                    #{mod\ 2522}#
-                    #{get-formals\ 2523}#
-                    #{clauses\ 2524}#)
+                        #{orig-args\ 2270}#)))))
+               (begin (#{req\ 2273}# #{orig-args\ 2270}# '())))))
+         (#{chi-lambda-case\ 485}#
+           (lambda (#{e\ 2519}#
+                    #{r\ 2520}#
+                    #{w\ 2521}#
+                    #{s\ 2522}#
+                    #{mod\ 2523}#
+                    #{get-formals\ 2524}#
+                    #{clauses\ 2525}#)
              (letrec*
-               ((#{expand-req\ 2533}#
-                  (lambda (#{req\ 2540}#
-                           #{opt\ 2541}#
-                           #{rest\ 2542}#
-                           #{kw\ 2543}#
-                           #{body\ 2544}#)
+               ((#{expand-req\ 2534}#
+                  (lambda (#{req\ 2541}#
+                           #{opt\ 2542}#
+                           #{rest\ 2543}#
+                           #{kw\ 2544}#
+                           #{body\ 2545}#)
                     (begin
-                      (let ((#{vars\ 2552}#
-                              (map #{gen-var\ 488}# #{req\ 2540}#))
-                            (#{labels\ 2553}#
-                              (#{gen-labels\ 393}# #{req\ 2540}#)))
+                      (let ((#{vars\ 2553}#
+                              (map #{gen-var\ 489}# #{req\ 2541}#))
+                            (#{labels\ 2554}#
+                              (#{gen-labels\ 394}# #{req\ 2541}#)))
                         (begin
-                          (let ((#{r*\ 2556}#
-                                  (#{extend-var-env\ 368}#
-                                    #{labels\ 2553}#
-                                    #{vars\ 2552}#
-                                    #{r\ 2519}#))
-                                (#{w*\ 2557}#
-                                  (#{make-binding-wrap\ 422}#
-                                    #{req\ 2540}#
-                                    #{labels\ 2553}#
-                                    #{w\ 2520}#)))
-                            (#{expand-opt\ 2535}#
-                              (map syntax->datum #{req\ 2540}#)
-                              #{opt\ 2541}#
-                              #{rest\ 2542}#
-                              #{kw\ 2543}#
-                              #{body\ 2544}#
-                              (reverse #{vars\ 2552}#)
-                              #{r*\ 2556}#
-                              #{w*\ 2557}#
+                          (let ((#{r*\ 2557}#
+                                  (#{extend-var-env\ 369}#
+                                    #{labels\ 2554}#
+                                    #{vars\ 2553}#
+                                    #{r\ 2520}#))
+                                (#{w*\ 2558}#
+                                  (#{make-binding-wrap\ 423}#
+                                    #{req\ 2541}#
+                                    #{labels\ 2554}#
+                                    #{w\ 2521}#)))
+                            (#{expand-opt\ 2536}#
+                              (map syntax->datum #{req\ 2541}#)
+                              #{opt\ 2542}#
+                              #{rest\ 2543}#
+                              #{kw\ 2544}#
+                              #{body\ 2545}#
+                              (reverse #{vars\ 2553}#)
+                              #{r*\ 2557}#
+                              #{w*\ 2558}#
                               '()
                               '())))))))
-                (#{expand-opt\ 2535}#
-                  (lambda (#{req\ 2558}#
-                           #{opt\ 2559}#
-                           #{rest\ 2560}#
-                           #{kw\ 2561}#
-                           #{body\ 2562}#
-                           #{vars\ 2563}#
-                           #{r*\ 2564}#
-                           #{w*\ 2565}#
-                           #{out\ 2566}#
-                           #{inits\ 2567}#)
-                    (if (pair? #{opt\ 2559}#)
-                      (let ((#{tmp\ 2580}# (car #{opt\ 2559}#)))
-                        (let ((#{tmp\ 2581}#
-                                ($sc-dispatch
-                                  #{tmp\ 2580}#
-                                  '(any any))))
-                          (if #{tmp\ 2581}#
+                (#{expand-opt\ 2536}#
+                  (lambda (#{req\ 2559}#
+                           #{opt\ 2560}#
+                           #{rest\ 2561}#
+                           #{kw\ 2562}#
+                           #{body\ 2563}#
+                           #{vars\ 2564}#
+                           #{r*\ 2565}#
+                           #{w*\ 2566}#
+                           #{out\ 2567}#
+                           #{inits\ 2568}#)
+                    (if (pair? #{opt\ 2560}#)
+                      (let ((#{tmp\ 2581}# (car #{opt\ 2560}#)))
+                        (let ((#{tmp\ 2582}#
+                                ($sc-dispatch #{tmp\ 2581}# '(any any))))
+                          (if #{tmp\ 2582}#
                             (@apply
-                              (lambda (#{id\ 2584}# #{i\ 2585}#)
+                              (lambda (#{id\ 2585}# #{i\ 2586}#)
                                 (begin
-                                  (let ((#{v\ 2588}#
-                                          (#{gen-var\ 488}# #{id\ 2584}#)))
+                                  (let ((#{v\ 2589}#
+                                          (#{gen-var\ 489}# #{id\ 2585}#)))
                                     (begin
-                                      (let ((#{l\ 2590}#
-                                              (#{gen-labels\ 393}#
-                                                (list #{v\ 2588}#))))
+                                      (let ((#{l\ 2591}#
+                                              (#{gen-labels\ 394}#
+                                                (list #{v\ 2589}#))))
                                         (begin
-                                          (let ((#{r**\ 2592}#
-                                                  (#{extend-var-env\ 368}#
-                                                    #{l\ 2590}#
-                                                    (list #{v\ 2588}#)
-                                                    #{r*\ 2564}#)))
+                                          (let ((#{r**\ 2593}#
+                                                  (#{extend-var-env\ 369}#
+                                                    #{l\ 2591}#
+                                                    (list #{v\ 2589}#)
+                                                    #{r*\ 2565}#)))
                                             (begin
-                                              (let ((#{w**\ 2594}#
-                                                      (#{make-binding-wrap\ 
422}#
-                                                        (list #{id\ 2584}#)
-                                                        #{l\ 2590}#
-                                                        #{w*\ 2565}#)))
-                                                (#{expand-opt\ 2535}#
-                                                  #{req\ 2558}#
-                                                  (cdr #{opt\ 2559}#)
-                                                  #{rest\ 2560}#
-                                                  #{kw\ 2561}#
-                                                  #{body\ 2562}#
-                                                  (cons #{v\ 2588}#
-                                                        #{vars\ 2563}#)
-                                                  #{r**\ 2592}#
-                                                  #{w**\ 2594}#
+                                              (let ((#{w**\ 2595}#
+                                                      (#{make-binding-wrap\ 
423}#
+                                                        (list #{id\ 2585}#)
+                                                        #{l\ 2591}#
+                                                        #{w*\ 2566}#)))
+                                                (#{expand-opt\ 2536}#
+                                                  #{req\ 2559}#
+                                                  (cdr #{opt\ 2560}#)
+                                                  #{rest\ 2561}#
+                                                  #{kw\ 2562}#
+                                                  #{body\ 2563}#
+                                                  (cons #{v\ 2589}#
+                                                        #{vars\ 2564}#)
+                                                  #{r**\ 2593}#
+                                                  #{w**\ 2595}#
                                                   (cons (syntax->datum
-                                                          #{id\ 2584}#)
-                                                        #{out\ 2566}#)
-                                                  (cons (#{chi\ 460}#
-                                                          #{i\ 2585}#
-                                                          #{r*\ 2564}#
-                                                          #{w*\ 2565}#
-                                                          #{mod\ 2522}#)
-                                                        #{inits\ 
2567}#)))))))))))
-                              #{tmp\ 2581}#)
+                                                          #{id\ 2585}#)
+                                                        #{out\ 2567}#)
+                                                  (cons (#{chi\ 461}#
+                                                          #{i\ 2586}#
+                                                          #{r*\ 2565}#
+                                                          #{w*\ 2566}#
+                                                          #{mod\ 2523}#)
+                                                        #{inits\ 
2568}#)))))))))))
+                              #{tmp\ 2582}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
-                              #{tmp\ 2580}#))))
-                      (if #{rest\ 2560}#
+                              #{tmp\ 2581}#))))
+                      (if #{rest\ 2561}#
                         (begin
-                          (let ((#{v\ 2599}#
-                                  (#{gen-var\ 488}# #{rest\ 2560}#)))
+                          (let ((#{v\ 2600}#
+                                  (#{gen-var\ 489}# #{rest\ 2561}#)))
                             (begin
-                              (let ((#{l\ 2601}#
-                                      (#{gen-labels\ 393}#
-                                        (list #{v\ 2599}#))))
+                              (let ((#{l\ 2602}#
+                                      (#{gen-labels\ 394}#
+                                        (list #{v\ 2600}#))))
                                 (begin
-                                  (let ((#{r*\ 2603}#
-                                          (#{extend-var-env\ 368}#
-                                            #{l\ 2601}#
-                                            (list #{v\ 2599}#)
-                                            #{r*\ 2564}#)))
+                                  (let ((#{r*\ 2604}#
+                                          (#{extend-var-env\ 369}#
+                                            #{l\ 2602}#
+                                            (list #{v\ 2600}#)
+                                            #{r*\ 2565}#)))
                                     (begin
-                                      (let ((#{w*\ 2605}#
-                                              (#{make-binding-wrap\ 422}#
-                                                (list #{rest\ 2560}#)
-                                                #{l\ 2601}#
-                                                #{w*\ 2565}#)))
-                                        (#{expand-kw\ 2537}#
-                                          #{req\ 2558}#
-                                          (if (pair? #{out\ 2566}#)
-                                            (reverse #{out\ 2566}#)
+                                      (let ((#{w*\ 2606}#
+                                              (#{make-binding-wrap\ 423}#
+                                                (list #{rest\ 2561}#)
+                                                #{l\ 2602}#
+                                                #{w*\ 2566}#)))
+                                        (#{expand-kw\ 2538}#
+                                          #{req\ 2559}#
+                                          (if (pair? #{out\ 2567}#)
+                                            (reverse #{out\ 2567}#)
                                             #f)
-                                          (syntax->datum #{rest\ 2560}#)
-                                          (if (pair? #{kw\ 2561}#)
-                                            (cdr #{kw\ 2561}#)
-                                            #{kw\ 2561}#)
-                                          #{body\ 2562}#
-                                          (cons #{v\ 2599}# #{vars\ 2563}#)
-                                          #{r*\ 2603}#
-                                          #{w*\ 2605}#
-                                          (if (pair? #{kw\ 2561}#)
-                                            (car #{kw\ 2561}#)
+                                          (syntax->datum #{rest\ 2561}#)
+                                          (if (pair? #{kw\ 2562}#)
+                                            (cdr #{kw\ 2562}#)
+                                            #{kw\ 2562}#)
+                                          #{body\ 2563}#
+                                          (cons #{v\ 2600}# #{vars\ 2564}#)
+                                          #{r*\ 2604}#
+                                          #{w*\ 2606}#
+                                          (if (pair? #{kw\ 2562}#)
+                                            (car #{kw\ 2562}#)
                                             #f)
                                           '()
-                                          #{inits\ 2567}#)))))))))
-                        (#{expand-kw\ 2537}#
-                          #{req\ 2558}#
-                          (if (pair? #{out\ 2566}#)
-                            (reverse #{out\ 2566}#)
+                                          #{inits\ 2568}#)))))))))
+                        (#{expand-kw\ 2538}#
+                          #{req\ 2559}#
+                          (if (pair? #{out\ 2567}#)
+                            (reverse #{out\ 2567}#)
                             #f)
                           #f
-                          (if (pair? #{kw\ 2561}#)
-                            (cdr #{kw\ 2561}#)
-                            #{kw\ 2561}#)
-                          #{body\ 2562}#
-                          #{vars\ 2563}#
-                          #{r*\ 2564}#
-                          #{w*\ 2565}#
-                          (if (pair? #{kw\ 2561}#) (car #{kw\ 2561}#) #f)
+                          (if (pair? #{kw\ 2562}#)
+                            (cdr #{kw\ 2562}#)
+                            #{kw\ 2562}#)
+                          #{body\ 2563}#
+                          #{vars\ 2564}#
+                          #{r*\ 2565}#
+                          #{w*\ 2566}#
+                          (if (pair? #{kw\ 2562}#) (car #{kw\ 2562}#) #f)
                           '()
-                          #{inits\ 2567}#)))))
-                (#{expand-kw\ 2537}#
-                  (lambda (#{req\ 2607}#
-                           #{opt\ 2608}#
-                           #{rest\ 2609}#
-                           #{kw\ 2610}#
-                           #{body\ 2611}#
-                           #{vars\ 2612}#
-                           #{r*\ 2613}#
-                           #{w*\ 2614}#
-                           #{aok\ 2615}#
-                           #{out\ 2616}#
-                           #{inits\ 2617}#)
-                    (if (pair? #{kw\ 2610}#)
-                      (let ((#{tmp\ 2631}# (car #{kw\ 2610}#)))
-                        (let ((#{tmp\ 2632}#
-                                ($sc-dispatch
-                                  #{tmp\ 2631}#
-                                  '(any any any))))
-                          (if #{tmp\ 2632}#
+                          #{inits\ 2568}#)))))
+                (#{expand-kw\ 2538}#
+                  (lambda (#{req\ 2608}#
+                           #{opt\ 2609}#
+                           #{rest\ 2610}#
+                           #{kw\ 2611}#
+                           #{body\ 2612}#
+                           #{vars\ 2613}#
+                           #{r*\ 2614}#
+                           #{w*\ 2615}#
+                           #{aok\ 2616}#
+                           #{out\ 2617}#
+                           #{inits\ 2618}#)
+                    (if (pair? #{kw\ 2611}#)
+                      (let ((#{tmp\ 2632}# (car #{kw\ 2611}#)))
+                        (let ((#{tmp\ 2633}#
+                                ($sc-dispatch #{tmp\ 2632}# '(any any any))))
+                          (if #{tmp\ 2633}#
                             (@apply
-                              (lambda (#{k\ 2636}# #{id\ 2637}# #{i\ 2638}#)
+                              (lambda (#{k\ 2637}# #{id\ 2638}# #{i\ 2639}#)
                                 (begin
-                                  (let ((#{v\ 2641}#
-                                          (#{gen-var\ 488}# #{id\ 2637}#)))
+                                  (let ((#{v\ 2642}#
+                                          (#{gen-var\ 489}# #{id\ 2638}#)))
                                     (begin
-                                      (let ((#{l\ 2643}#
-                                              (#{gen-labels\ 393}#
-                                                (list #{v\ 2641}#))))
+                                      (let ((#{l\ 2644}#
+                                              (#{gen-labels\ 394}#
+                                                (list #{v\ 2642}#))))
                                         (begin
-                                          (let ((#{r**\ 2645}#
-                                                  (#{extend-var-env\ 368}#
-                                                    #{l\ 2643}#
-                                                    (list #{v\ 2641}#)
-                                                    #{r*\ 2613}#)))
+                                          (let ((#{r**\ 2646}#
+                                                  (#{extend-var-env\ 369}#
+                                                    #{l\ 2644}#
+                                                    (list #{v\ 2642}#)
+                                                    #{r*\ 2614}#)))
                                             (begin
-                                              (let ((#{w**\ 2647}#
-                                                      (#{make-binding-wrap\ 
422}#
-                                                        (list #{id\ 2637}#)
-                                                        #{l\ 2643}#
-                                                        #{w*\ 2614}#)))
-                                                (#{expand-kw\ 2537}#
-                                                  #{req\ 2607}#
-                                                  #{opt\ 2608}#
-                                                  #{rest\ 2609}#
-                                                  (cdr #{kw\ 2610}#)
-                                                  #{body\ 2611}#
-                                                  (cons #{v\ 2641}#
-                                                        #{vars\ 2612}#)
-                                                  #{r**\ 2645}#
-                                                  #{w**\ 2647}#
-                                                  #{aok\ 2615}#
+                                              (let ((#{w**\ 2648}#
+                                                      (#{make-binding-wrap\ 
423}#
+                                                        (list #{id\ 2638}#)
+                                                        #{l\ 2644}#
+                                                        #{w*\ 2615}#)))
+                                                (#{expand-kw\ 2538}#
+                                                  #{req\ 2608}#
+                                                  #{opt\ 2609}#
+                                                  #{rest\ 2610}#
+                                                  (cdr #{kw\ 2611}#)
+                                                  #{body\ 2612}#
+                                                  (cons #{v\ 2642}#
+                                                        #{vars\ 2613}#)
+                                                  #{r**\ 2646}#
+                                                  #{w**\ 2648}#
+                                                  #{aok\ 2616}#
                                                   (cons (list (syntax->datum
-                                                                #{k\ 2636}#)
+                                                                #{k\ 2637}#)
                                                               (syntax->datum
-                                                                #{id\ 2637}#)
-                                                              #{v\ 2641}#)
-                                                        #{out\ 2616}#)
-                                                  (cons (#{chi\ 460}#
-                                                          #{i\ 2638}#
-                                                          #{r*\ 2613}#
-                                                          #{w*\ 2614}#
-                                                          #{mod\ 2522}#)
-                                                        #{inits\ 
2617}#)))))))))))
-                              #{tmp\ 2632}#)
+                                                                #{id\ 2638}#)
+                                                              #{v\ 2642}#)
+                                                        #{out\ 2617}#)
+                                                  (cons (#{chi\ 461}#
+                                                          #{i\ 2639}#
+                                                          #{r*\ 2614}#
+                                                          #{w*\ 2615}#
+                                                          #{mod\ 2523}#)
+                                                        #{inits\ 
2618}#)))))))))))
+                              #{tmp\ 2633}#)
                             (syntax-violation
                               #f
                               "source expression failed to match any pattern"
-                              #{tmp\ 2631}#))))
-                      (#{expand-body\ 2539}#
-                        #{req\ 2607}#
-                        #{opt\ 2608}#
-                        #{rest\ 2609}#
+                              #{tmp\ 2632}#))))
+                      (#{expand-body\ 2540}#
+                        #{req\ 2608}#
+                        #{opt\ 2609}#
+                        #{rest\ 2610}#
                         (if (begin
-                              (let ((#{t\ 2651}# #{aok\ 2615}#))
-                                (if #{t\ 2651}#
-                                  #{t\ 2651}#
-                                  (pair? #{out\ 2616}#))))
-                          (cons #{aok\ 2615}# (reverse #{out\ 2616}#))
+                              (let ((#{t\ 2652}# #{aok\ 2616}#))
+                                (if #{t\ 2652}#
+                                  #{t\ 2652}#
+                                  (pair? #{out\ 2617}#))))
+                          (cons #{aok\ 2616}# (reverse #{out\ 2617}#))
                           #f)
-                        #{body\ 2611}#
-                        (reverse #{vars\ 2612}#)
-                        #{r*\ 2613}#
-                        #{w*\ 2614}#
-                        (reverse #{inits\ 2617}#)
+                        #{body\ 2612}#
+                        (reverse #{vars\ 2613}#)
+                        #{r*\ 2614}#
+                        #{w*\ 2615}#
+                        (reverse #{inits\ 2618}#)
                         '()))))
-                (#{expand-body\ 2539}#
-                  (lambda (#{req\ 2653}#
-                           #{opt\ 2654}#
-                           #{rest\ 2655}#
-                           #{kw\ 2656}#
-                           #{body\ 2657}#
-                           #{vars\ 2658}#
-                           #{r*\ 2659}#
-                           #{w*\ 2660}#
-                           #{inits\ 2661}#
-                           #{meta\ 2662}#)
-                    (let ((#{tmp\ 2673}# #{body\ 2657}#))
-                      (let ((#{tmp\ 2674}#
+                (#{expand-body\ 2540}#
+                  (lambda (#{req\ 2654}#
+                           #{opt\ 2655}#
+                           #{rest\ 2656}#
+                           #{kw\ 2657}#
+                           #{body\ 2658}#
+                           #{vars\ 2659}#
+                           #{r*\ 2660}#
+                           #{w*\ 2661}#
+                           #{inits\ 2662}#
+                           #{meta\ 2663}#)
+                    (let ((#{tmp\ 2674}# #{body\ 2658}#))
+                      (let ((#{tmp\ 2675}#
                               ($sc-dispatch
-                                #{tmp\ 2673}#
+                                #{tmp\ 2674}#
                                 '(any any . each-any))))
-                        (if (if #{tmp\ 2674}#
+                        (if (if #{tmp\ 2675}#
                               (@apply
-                                (lambda (#{docstring\ 2678}#
-                                         #{e1\ 2679}#
-                                         #{e2\ 2680}#)
+                                (lambda (#{docstring\ 2679}#
+                                         #{e1\ 2680}#
+                                         #{e2\ 2681}#)
                                   (string?
-                                    (syntax->datum #{docstring\ 2678}#)))
-                                #{tmp\ 2674}#)
+                                    (syntax->datum #{docstring\ 2679}#)))
+                                #{tmp\ 2675}#)
                               #f)
                           (@apply
-                            (lambda (#{docstring\ 2684}#
-                                     #{e1\ 2685}#
-                                     #{e2\ 2686}#)
-                              (#{expand-body\ 2539}#
-                                #{req\ 2653}#
-                                #{opt\ 2654}#
-                                #{rest\ 2655}#
-                                #{kw\ 2656}#
-                                (cons #{e1\ 2685}# #{e2\ 2686}#)
-                                #{vars\ 2658}#
-                                #{r*\ 2659}#
-                                #{w*\ 2660}#
-                                #{inits\ 2661}#
+                            (lambda (#{docstring\ 2685}#
+                                     #{e1\ 2686}#
+                                     #{e2\ 2687}#)
+                              (#{expand-body\ 2540}#
+                                #{req\ 2654}#
+                                #{opt\ 2655}#
+                                #{rest\ 2656}#
+                                #{kw\ 2657}#
+                                (cons #{e1\ 2686}# #{e2\ 2687}#)
+                                #{vars\ 2659}#
+                                #{r*\ 2660}#
+                                #{w*\ 2661}#
+                                #{inits\ 2662}#
                                 (append
-                                  #{meta\ 2662}#
+                                  #{meta\ 2663}#
                                   (list (cons 'documentation
                                               (syntax->datum
-                                                #{docstring\ 2684}#))))))
-                            #{tmp\ 2674}#)
-                          (let ((#{tmp\ 2689}#
+                                                #{docstring\ 2685}#))))))
+                            #{tmp\ 2675}#)
+                          (let ((#{tmp\ 2690}#
                                   ($sc-dispatch
-                                    #{tmp\ 2673}#
+                                    #{tmp\ 2674}#
                                     '(#(vector #(each (any . any)))
                                       any
                                       .
                                       each-any))))
-                            (if #{tmp\ 2689}#
+                            (if #{tmp\ 2690}#
                               (@apply
-                                (lambda (#{k\ 2694}#
-                                         #{v\ 2695}#
-                                         #{e1\ 2696}#
-                                         #{e2\ 2697}#)
-                                  (#{expand-body\ 2539}#
-                                    #{req\ 2653}#
-                                    #{opt\ 2654}#
-                                    #{rest\ 2655}#
-                                    #{kw\ 2656}#
-                                    (cons #{e1\ 2696}# #{e2\ 2697}#)
-                                    #{vars\ 2658}#
-                                    #{r*\ 2659}#
-                                    #{w*\ 2660}#
-                                    #{inits\ 2661}#
+                                (lambda (#{k\ 2695}#
+                                         #{v\ 2696}#
+                                         #{e1\ 2697}#
+                                         #{e2\ 2698}#)
+                                  (#{expand-body\ 2540}#
+                                    #{req\ 2654}#
+                                    #{opt\ 2655}#
+                                    #{rest\ 2656}#
+                                    #{kw\ 2657}#
+                                    (cons #{e1\ 2697}# #{e2\ 2698}#)
+                                    #{vars\ 2659}#
+                                    #{r*\ 2660}#
+                                    #{w*\ 2661}#
+                                    #{inits\ 2662}#
                                     (append
-                                      #{meta\ 2662}#
+                                      #{meta\ 2663}#
                                       (syntax->datum
-                                        (map cons #{k\ 2694}# #{v\ 2695}#)))))
-                                #{tmp\ 2689}#)
-                              (let ((#{tmp\ 2701}#
+                                        (map cons #{k\ 2695}# #{v\ 2696}#)))))
+                                #{tmp\ 2690}#)
+                              (let ((#{tmp\ 2702}#
                                       ($sc-dispatch
-                                        #{tmp\ 2673}#
+                                        #{tmp\ 2674}#
                                         '(any . each-any))))
-                                (if #{tmp\ 2701}#
+                                (if #{tmp\ 2702}#
                                   (@apply
-                                    (lambda (#{e1\ 2704}# #{e2\ 2705}#)
+                                    (lambda (#{e1\ 2705}# #{e2\ 2706}#)
                                       (values
-                                        #{meta\ 2662}#
-                                        #{req\ 2653}#
-                                        #{opt\ 2654}#
-                                        #{rest\ 2655}#
-                                        #{kw\ 2656}#
-                                        #{inits\ 2661}#
-                                        #{vars\ 2658}#
-                                        (#{chi-body\ 468}#
-                                          (cons #{e1\ 2704}# #{e2\ 2705}#)
-                                          (#{source-wrap\ 446}#
-                                            #{e\ 2518}#
-                                            #{w\ 2520}#
-                                            #{s\ 2521}#
-                                            #{mod\ 2522}#)
-                                          #{r*\ 2659}#
-                                          #{w*\ 2660}#
-                                          #{mod\ 2522}#)))
-                                    #{tmp\ 2701}#)
+                                        #{meta\ 2663}#
+                                        #{req\ 2654}#
+                                        #{opt\ 2655}#
+                                        #{rest\ 2656}#
+                                        #{kw\ 2657}#
+                                        #{inits\ 2662}#
+                                        #{vars\ 2659}#
+                                        (#{chi-body\ 469}#
+                                          (cons #{e1\ 2705}# #{e2\ 2706}#)
+                                          (#{source-wrap\ 447}#
+                                            #{e\ 2519}#
+                                            #{w\ 2521}#
+                                            #{s\ 2522}#
+                                            #{mod\ 2523}#)
+                                          #{r*\ 2660}#
+                                          #{w*\ 2661}#
+                                          #{mod\ 2523}#)))
+                                    #{tmp\ 2702}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 2673}#)))))))))))
+                                    #{tmp\ 2674}#)))))))))))
                (begin
-                 (let ((#{tmp\ 2707}# #{clauses\ 2524}#))
-                   (let ((#{tmp\ 2708}#
-                           ($sc-dispatch #{tmp\ 2707}# (quote ()))))
-                     (if #{tmp\ 2708}#
+                 (let ((#{tmp\ 2708}# #{clauses\ 2525}#))
+                   (let ((#{tmp\ 2709}# ($sc-dispatch #{tmp\ 2708}# '())))
+                     (if #{tmp\ 2709}#
                        (@apply
-                         (lambda () (values (quote ()) #f))
-                         #{tmp\ 2708}#)
-                       (let ((#{tmp\ 2709}#
+                         (lambda () (values '() #f))
+                         #{tmp\ 2709}#)
+                       (let ((#{tmp\ 2710}#
                                ($sc-dispatch
-                                 #{tmp\ 2707}#
+                                 #{tmp\ 2708}#
                                  '((any any . each-any)
                                    .
                                    #(each (any any . each-any))))))
-                         (if #{tmp\ 2709}#
+                         (if #{tmp\ 2710}#
                            (@apply
-                             (lambda (#{args\ 2716}#
-                                      #{e1\ 2717}#
-                                      #{e2\ 2718}#
-                                      #{args*\ 2719}#
-                                      #{e1*\ 2720}#
-                                      #{e2*\ 2721}#)
+                             (lambda (#{args\ 2717}#
+                                      #{e1\ 2718}#
+                                      #{e2\ 2719}#
+                                      #{args*\ 2720}#
+                                      #{e1*\ 2721}#
+                                      #{e2*\ 2722}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{get-formals\ 2523}# #{args\ 2716}#))
-                                 (lambda (#{req\ 2722}#
-                                          #{opt\ 2723}#
-                                          #{rest\ 2724}#
-                                          #{kw\ 2725}#)
+                                   (#{get-formals\ 2524}# #{args\ 2717}#))
+                                 (lambda (#{req\ 2723}#
+                                          #{opt\ 2724}#
+                                          #{rest\ 2725}#
+                                          #{kw\ 2726}#)
                                    (call-with-values
                                      (lambda ()
-                                       (#{expand-req\ 2533}#
-                                         #{req\ 2722}#
-                                         #{opt\ 2723}#
-                                         #{rest\ 2724}#
-                                         #{kw\ 2725}#
-                                         (cons #{e1\ 2717}# #{e2\ 2718}#)))
-                                     (lambda (#{meta\ 2731}#
-                                              #{req\ 2732}#
-                                              #{opt\ 2733}#
-                                              #{rest\ 2734}#
-                                              #{kw\ 2735}#
-                                              #{inits\ 2736}#
-                                              #{vars\ 2737}#
-                                              #{body\ 2738}#)
+                                       (#{expand-req\ 2534}#
+                                         #{req\ 2723}#
+                                         #{opt\ 2724}#
+                                         #{rest\ 2725}#
+                                         #{kw\ 2726}#
+                                         (cons #{e1\ 2718}# #{e2\ 2719}#)))
+                                     (lambda (#{meta\ 2732}#
+                                              #{req\ 2733}#
+                                              #{opt\ 2734}#
+                                              #{rest\ 2735}#
+                                              #{kw\ 2736}#
+                                              #{inits\ 2737}#
+                                              #{vars\ 2738}#
+                                              #{body\ 2739}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{chi-lambda-case\ 484}#
-                                             #{e\ 2518}#
-                                             #{r\ 2519}#
-                                             #{w\ 2520}#
-                                             #{s\ 2521}#
-                                             #{mod\ 2522}#
-                                             #{get-formals\ 2523}#
-                                             (map (lambda (#{tmp\ 2749}#
-                                                           #{tmp\ 2748}#
-                                                           #{tmp\ 2747}#)
-                                                    (cons #{tmp\ 2747}#
-                                                          (cons #{tmp\ 2748}#
-                                                                #{tmp\ 
2749}#)))
-                                                  #{e2*\ 2721}#
-                                                  #{e1*\ 2720}#
-                                                  #{args*\ 2719}#)))
-                                         (lambda (#{meta*\ 2751}#
-                                                  #{else*\ 2752}#)
+                                           (#{chi-lambda-case\ 485}#
+                                             #{e\ 2519}#
+                                             #{r\ 2520}#
+                                             #{w\ 2521}#
+                                             #{s\ 2522}#
+                                             #{mod\ 2523}#
+                                             #{get-formals\ 2524}#
+                                             (map (lambda (#{tmp\ 2750}#
+                                                           #{tmp\ 2749}#
+                                                           #{tmp\ 2748}#)
+                                                    (cons #{tmp\ 2748}#
+                                                          (cons #{tmp\ 2749}#
+                                                                #{tmp\ 
2750}#)))
+                                                  #{e2*\ 2722}#
+                                                  #{e1*\ 2721}#
+                                                  #{args*\ 2720}#)))
+                                         (lambda (#{meta*\ 2752}#
+                                                  #{else*\ 2753}#)
                                            (values
                                              (append
-                                               #{meta\ 2731}#
-                                               #{meta*\ 2751}#)
-                                             (#{build-lambda-case\ 326}#
-                                               #{s\ 2521}#
-                                               #{req\ 2732}#
-                                               #{opt\ 2733}#
-                                               #{rest\ 2734}#
-                                               #{kw\ 2735}#
-                                               #{inits\ 2736}#
-                                               #{vars\ 2737}#
-                                               #{body\ 2738}#
-                                               #{else*\ 2752}#)))))))))
-                             #{tmp\ 2709}#)
+                                               #{meta\ 2732}#
+                                               #{meta*\ 2752}#)
+                                             (#{build-lambda-case\ 327}#
+                                               #{s\ 2522}#
+                                               #{req\ 2733}#
+                                               #{opt\ 2734}#
+                                               #{rest\ 2735}#
+                                               #{kw\ 2736}#
+                                               #{inits\ 2737}#
+                                               #{vars\ 2738}#
+                                               #{body\ 2739}#
+                                               #{else*\ 2753}#)))))))))
+                             #{tmp\ 2710}#)
                            (syntax-violation
                              #f
                              "source expression failed to match any pattern"
-                             #{tmp\ 2707}#))))))))))
-         (#{strip\ 486}#
-           (lambda (#{x\ 2755}# #{w\ 2756}#)
-             (if (memq (quote top) (car #{w\ 2756}#))
-               #{x\ 2755}#
+                             #{tmp\ 2708}#))))))))))
+         (#{strip\ 487}#
+           (lambda (#{x\ 2756}# #{w\ 2757}#)
+             (if (memq 'top (car #{w\ 2757}#))
+               #{x\ 2756}#
                (letrec*
-                 ((#{f\ 2763}#
-                    (lambda (#{x\ 2764}#)
-                      (if (#{syntax-object?\ 344}# #{x\ 2764}#)
-                        (#{strip\ 486}#
-                          (#{syntax-object-expression\ 346}# #{x\ 2764}#)
-                          (#{syntax-object-wrap\ 348}# #{x\ 2764}#))
-                        (if (pair? #{x\ 2764}#)
+                 ((#{f\ 2764}#
+                    (lambda (#{x\ 2765}#)
+                      (if (#{syntax-object?\ 345}# #{x\ 2765}#)
+                        (#{strip\ 487}#
+                          (#{syntax-object-expression\ 347}# #{x\ 2765}#)
+                          (#{syntax-object-wrap\ 349}# #{x\ 2765}#))
+                        (if (pair? #{x\ 2765}#)
                           (begin
-                            (let ((#{a\ 2771}# (#{f\ 2763}# (car #{x\ 2764}#)))
-                                  (#{d\ 2772}#
-                                    (#{f\ 2763}# (cdr #{x\ 2764}#))))
-                              (if (if (eq? #{a\ 2771}# (car #{x\ 2764}#))
-                                    (eq? #{d\ 2772}# (cdr #{x\ 2764}#))
+                            (let ((#{a\ 2772}# (#{f\ 2764}# (car #{x\ 2765}#)))
+                                  (#{d\ 2773}#
+                                    (#{f\ 2764}# (cdr #{x\ 2765}#))))
+                              (if (if (eq? #{a\ 2772}# (car #{x\ 2765}#))
+                                    (eq? #{d\ 2773}# (cdr #{x\ 2765}#))
                                     #f)
-                                #{x\ 2764}#
-                                (cons #{a\ 2771}# #{d\ 2772}#))))
-                          (if (vector? #{x\ 2764}#)
+                                #{x\ 2765}#
+                                (cons #{a\ 2772}# #{d\ 2773}#))))
+                          (if (vector? #{x\ 2765}#)
                             (begin
-                              (let ((#{old\ 2778}# (vector->list #{x\ 2764}#)))
+                              (let ((#{old\ 2779}# (vector->list #{x\ 2765}#)))
                                 (begin
-                                  (let ((#{new\ 2780}#
-                                          (map #{f\ 2763}# #{old\ 2778}#)))
-                                    (if (#{and-map*\ 36}#
+                                  (let ((#{new\ 2781}#
+                                          (map #{f\ 2764}# #{old\ 2779}#)))
+                                    (if (#{and-map*\ 37}#
                                           eq?
-                                          #{old\ 2778}#
-                                          #{new\ 2780}#)
-                                      #{x\ 2764}#
-                                      (list->vector #{new\ 2780}#))))))
-                            #{x\ 2764}#))))))
-                 (begin (#{f\ 2763}# #{x\ 2755}#))))))
-         (#{gen-var\ 488}#
-           (lambda (#{id\ 2782}#)
+                                          #{old\ 2779}#
+                                          #{new\ 2781}#)
+                                      #{x\ 2765}#
+                                      (list->vector #{new\ 2781}#))))))
+                            #{x\ 2765}#))))))
+                 (begin (#{f\ 2764}# #{x\ 2756}#))))))
+         (#{gen-var\ 489}#
+           (lambda (#{id\ 2783}#)
              (begin
-               (let ((#{id\ 2785}#
-                       (if (#{syntax-object?\ 344}# #{id\ 2782}#)
-                         (#{syntax-object-expression\ 346}# #{id\ 2782}#)
-                         #{id\ 2782}#)))
+               (let ((#{id\ 2786}#
+                       (if (#{syntax-object?\ 345}# #{id\ 2783}#)
+                         (#{syntax-object-expression\ 347}# #{id\ 2783}#)
+                         #{id\ 2783}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 2785}#) " "))))))
-         (#{lambda-var-list\ 490}#
-           (lambda (#{vars\ 2787}#)
+                   (string-append (symbol->string #{id\ 2786}#) " "))))))
+         (#{lambda-var-list\ 491}#
+           (lambda (#{vars\ 2788}#)
              (letrec*
-               ((#{lvl\ 2793}#
-                  (lambda (#{vars\ 2794}# #{ls\ 2795}# #{w\ 2796}#)
-                    (if (pair? #{vars\ 2794}#)
-                      (#{lvl\ 2793}#
-                        (cdr #{vars\ 2794}#)
-                        (cons (#{wrap\ 444}#
-                                (car #{vars\ 2794}#)
-                                #{w\ 2796}#
+               ((#{lvl\ 2794}#
+                  (lambda (#{vars\ 2795}# #{ls\ 2796}# #{w\ 2797}#)
+                    (if (pair? #{vars\ 2795}#)
+                      (#{lvl\ 2794}#
+                        (cdr #{vars\ 2795}#)
+                        (cons (#{wrap\ 445}#
+                                (car #{vars\ 2795}#)
+                                #{w\ 2797}#
                                 #f)
-                              #{ls\ 2795}#)
-                        #{w\ 2796}#)
-                      (if (#{id?\ 378}# #{vars\ 2794}#)
-                        (cons (#{wrap\ 444}# #{vars\ 2794}# #{w\ 2796}# #f)
-                              #{ls\ 2795}#)
-                        (if (null? #{vars\ 2794}#)
-                          #{ls\ 2795}#
-                          (if (#{syntax-object?\ 344}# #{vars\ 2794}#)
-                            (#{lvl\ 2793}#
-                              (#{syntax-object-expression\ 346}#
-                                #{vars\ 2794}#)
-                              #{ls\ 2795}#
-                              (#{join-wraps\ 426}#
-                                #{w\ 2796}#
-                                (#{syntax-object-wrap\ 348}# #{vars\ 2794}#)))
-                            (cons #{vars\ 2794}# #{ls\ 2795}#))))))))
-               (begin
-                 (#{lvl\ 2793}#
-                   #{vars\ 2787}#
-                   '()
-                   '(())))))))
+                              #{ls\ 2796}#)
+                        #{w\ 2797}#)
+                      (if (#{id?\ 379}# #{vars\ 2795}#)
+                        (cons (#{wrap\ 445}# #{vars\ 2795}# #{w\ 2797}# #f)
+                              #{ls\ 2796}#)
+                        (if (null? #{vars\ 2795}#)
+                          #{ls\ 2796}#
+                          (if (#{syntax-object?\ 345}# #{vars\ 2795}#)
+                            (#{lvl\ 2794}#
+                              (#{syntax-object-expression\ 347}#
+                                #{vars\ 2795}#)
+                              #{ls\ 2796}#
+                              (#{join-wraps\ 427}#
+                                #{w\ 2797}#
+                                (#{syntax-object-wrap\ 349}# #{vars\ 2795}#)))
+                            (cons #{vars\ 2795}# #{ls\ 2796}#))))))))
+               (begin (#{lvl\ 2794}# #{vars\ 2788}# '() '(())))))))
         (begin
-          (set! #{make-primitive-ref\ 242}#
-            (lambda (#{src\ 756}# #{name\ 757}#)
+          (set! #{make-primitive-ref\ 243}#
+            (lambda (#{src\ 757}# #{name\ 758}#)
               (make-struct/no-tail
                 (vector-ref %expanded-vtables 2)
-                #{src\ 756}#
-                #{name\ 757}#)))
-          (set! #{fx+\ 281}# +)
-          (set! #{fx-\ 283}# -)
-          (set! #{fx=\ 285}# =)
-          (set! #{fx<\ 287}# <)
-          (set! #{set-syntax-object-expression!\ 352}#
-            (lambda (#{x\ 1134}# #{update\ 1135}#)
-              (vector-set! #{x\ 1134}# 1 #{update\ 1135}#)))
-          (set! #{set-syntax-object-wrap!\ 354}#
-            (lambda (#{x\ 1138}# #{update\ 1139}#)
-              (vector-set! #{x\ 1138}# 2 #{update\ 1139}#)))
-          (set! #{set-syntax-object-module!\ 356}#
-            (lambda (#{x\ 1142}# #{update\ 1143}#)
-              (vector-set! #{x\ 1142}# 3 #{update\ 1143}#)))
-          (set! #{ribcage?\ 398}#
-            (lambda (#{x\ 1223}#)
-              (if (vector? #{x\ 1223}#)
-                (if (= (vector-length #{x\ 1223}#) 4)
-                  (eq? (vector-ref #{x\ 1223}# 0) (quote ribcage))
+                #{src\ 757}#
+                #{name\ 758}#)))
+          (set! #{fx+\ 282}# +)
+          (set! #{fx-\ 284}# -)
+          (set! #{fx=\ 286}# =)
+          (set! #{fx<\ 288}# <)
+          (set! #{set-syntax-object-expression!\ 353}#
+            (lambda (#{x\ 1135}# #{update\ 1136}#)
+              (vector-set! #{x\ 1135}# 1 #{update\ 1136}#)))
+          (set! #{set-syntax-object-wrap!\ 355}#
+            (lambda (#{x\ 1139}# #{update\ 1140}#)
+              (vector-set! #{x\ 1139}# 2 #{update\ 1140}#)))
+          (set! #{set-syntax-object-module!\ 357}#
+            (lambda (#{x\ 1143}# #{update\ 1144}#)
+              (vector-set! #{x\ 1143}# 3 #{update\ 1144}#)))
+          (set! #{ribcage?\ 399}#
+            (lambda (#{x\ 1224}#)
+              (if (vector? #{x\ 1224}#)
+                (if (= (vector-length #{x\ 1224}#) 4)
+                  (eq? (vector-ref #{x\ 1224}# 0) 'ribcage)
                   #f)
                 #f)))
           (begin
-            (#{global-extend\ 374}#
+            (#{global-extend\ 375}#
               'local-syntax
               'letrec-syntax
               #t)
-            (#{global-extend\ 374}#
+            (#{global-extend\ 375}#
               'local-syntax
               'let-syntax
               #f)
-            (#{global-extend\ 374}#
+            (#{global-extend\ 375}#
               'core
               'fluid-let-syntax
-              (lambda (#{e\ 2807}#
-                       #{r\ 2808}#
-                       #{w\ 2809}#
-                       #{s\ 2810}#
-                       #{mod\ 2811}#)
-                (let ((#{tmp\ 2817}# #{e\ 2807}#))
-                  (let ((#{tmp\ 2818}#
+              (lambda (#{e\ 2808}#
+                       #{r\ 2809}#
+                       #{w\ 2810}#
+                       #{s\ 2811}#
+                       #{mod\ 2812}#)
+                (let ((#{tmp\ 2818}# #{e\ 2808}#))
+                  (let ((#{tmp\ 2819}#
                           ($sc-dispatch
-                            #{tmp\ 2817}#
+                            #{tmp\ 2818}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if (if #{tmp\ 2818}#
+                    (if (if #{tmp\ 2819}#
                           (@apply
-                            (lambda (#{var\ 2823}#
-                                     #{val\ 2824}#
-                                     #{e1\ 2825}#
-                                     #{e2\ 2826}#)
-                              (#{valid-bound-ids?\ 438}# #{var\ 2823}#))
-                            #{tmp\ 2818}#)
+                            (lambda (#{var\ 2824}#
+                                     #{val\ 2825}#
+                                     #{e1\ 2826}#
+                                     #{e2\ 2827}#)
+                              (#{valid-bound-ids?\ 439}# #{var\ 2824}#))
+                            #{tmp\ 2819}#)
                           #f)
                       (@apply
-                        (lambda (#{var\ 2832}#
-                                 #{val\ 2833}#
-                                 #{e1\ 2834}#
-                                 #{e2\ 2835}#)
+                        (lambda (#{var\ 2833}#
+                                 #{val\ 2834}#
+                                 #{e1\ 2835}#
+                                 #{e2\ 2836}#)
                           (begin
-                            (let ((#{names\ 2837}#
-                                    (map (lambda (#{x\ 2838}#)
-                                           (#{id-var-name\ 432}#
-                                             #{x\ 2838}#
-                                             #{w\ 2809}#))
-                                         #{var\ 2832}#)))
+                            (let ((#{names\ 2838}#
+                                    (map (lambda (#{x\ 2839}#)
+                                           (#{id-var-name\ 433}#
+                                             #{x\ 2839}#
+                                             #{w\ 2810}#))
+                                         #{var\ 2833}#)))
                               (begin
                                 (for-each
-                                  (lambda (#{id\ 2841}# #{n\ 2842}#)
+                                  (lambda (#{id\ 2842}# #{n\ 2843}#)
                                     (begin
-                                      (let ((#{atom-key\ 2847}#
-                                              (car (#{lookup\ 372}#
-                                                     #{n\ 2842}#
-                                                     #{r\ 2808}#
-                                                     #{mod\ 2811}#))))
-                                        (if (eqv? #{atom-key\ 2847}#
+                                      (let ((#{atom-key\ 2848}#
+                                              (car (#{lookup\ 373}#
+                                                     #{n\ 2843}#
+                                                     #{r\ 2809}#
+                                                     #{mod\ 2812}#))))
+                                        (if (eqv? #{atom-key\ 2848}#
                                                   'displaced-lexical)
                                           (syntax-violation
                                             'fluid-let-syntax
                                             "identifier out of context"
-                                            #{e\ 2807}#
-                                            (#{source-wrap\ 446}#
-                                              #{id\ 2841}#
-                                              #{w\ 2809}#
-                                              #{s\ 2810}#
-                                              #{mod\ 2811}#))))))
-                                  #{var\ 2832}#
-                                  #{names\ 2837}#)
-                                (#{chi-body\ 468}#
-                                  (cons #{e1\ 2834}# #{e2\ 2835}#)
-                                  (#{source-wrap\ 446}#
-                                    #{e\ 2807}#
-                                    #{w\ 2809}#
-                                    #{s\ 2810}#
-                                    #{mod\ 2811}#)
-                                  (#{extend-env\ 366}#
-                                    #{names\ 2837}#
+                                            #{e\ 2808}#
+                                            (#{source-wrap\ 447}#
+                                              #{id\ 2842}#
+                                              #{w\ 2810}#
+                                              #{s\ 2811}#
+                                              #{mod\ 2812}#))))))
+                                  #{var\ 2833}#
+                                  #{names\ 2838}#)
+                                (#{chi-body\ 469}#
+                                  (cons #{e1\ 2835}# #{e2\ 2836}#)
+                                  (#{source-wrap\ 447}#
+                                    #{e\ 2808}#
+                                    #{w\ 2810}#
+                                    #{s\ 2811}#
+                                    #{mod\ 2812}#)
+                                  (#{extend-env\ 367}#
+                                    #{names\ 2838}#
                                     (begin
-                                      (let ((#{trans-r\ 2853}#
-                                              (#{macros-only-env\ 370}#
-                                                #{r\ 2808}#)))
-                                        (map (lambda (#{x\ 2854}#)
+                                      (let ((#{trans-r\ 2854}#
+                                              (#{macros-only-env\ 371}#
+                                                #{r\ 2809}#)))
+                                        (map (lambda (#{x\ 2855}#)
                                                (cons 'macro
-                                                     
(#{eval-local-transformer\ 472}#
-                                                       (#{chi\ 460}#
-                                                         #{x\ 2854}#
-                                                         #{trans-r\ 2853}#
-                                                         #{w\ 2809}#
-                                                         #{mod\ 2811}#)
-                                                       #{mod\ 2811}#)))
-                                             #{val\ 2833}#)))
-                                    #{r\ 2808}#)
-                                  #{w\ 2809}#
-                                  #{mod\ 2811}#)))))
-                        #{tmp\ 2818}#)
-                      (let ((#{_\ 2859}# #{tmp\ 2817}#))
+                                                     
(#{eval-local-transformer\ 473}#
+                                                       (#{chi\ 461}#
+                                                         #{x\ 2855}#
+                                                         #{trans-r\ 2854}#
+                                                         #{w\ 2810}#
+                                                         #{mod\ 2812}#)
+                                                       #{mod\ 2812}#)))
+                                             #{val\ 2834}#)))
+                                    #{r\ 2809}#)
+                                  #{w\ 2810}#
+                                  #{mod\ 2812}#)))))
+                        #{tmp\ 2819}#)
+                      (let ((#{_\ 2860}# #{tmp\ 2818}#))
                         (syntax-violation
                           'fluid-let-syntax
                           "bad syntax"
-                          (#{source-wrap\ 446}#
-                            #{e\ 2807}#
-                            #{w\ 2809}#
-                            #{s\ 2810}#
-                            #{mod\ 2811}#))))))))
-            (#{global-extend\ 374}#
+                          (#{source-wrap\ 447}#
+                            #{e\ 2808}#
+                            #{w\ 2810}#
+                            #{s\ 2811}#
+                            #{mod\ 2812}#))))))))
+            (#{global-extend\ 375}#
               'core
               'quote
-              (lambda (#{e\ 2860}#
-                       #{r\ 2861}#
-                       #{w\ 2862}#
-                       #{s\ 2863}#
-                       #{mod\ 2864}#)
-                (let ((#{tmp\ 2870}# #{e\ 2860}#))
-                  (let ((#{tmp\ 2871}#
-                          ($sc-dispatch #{tmp\ 2870}# (quote (_ any)))))
-                    (if #{tmp\ 2871}#
+              (lambda (#{e\ 2861}#
+                       #{r\ 2862}#
+                       #{w\ 2863}#
+                       #{s\ 2864}#
+                       #{mod\ 2865}#)
+                (let ((#{tmp\ 2871}# #{e\ 2861}#))
+                  (let ((#{tmp\ 2872}#
+                          ($sc-dispatch #{tmp\ 2871}# '(_ any))))
+                    (if #{tmp\ 2872}#
                       (@apply
-                        (lambda (#{e\ 2873}#)
-                          (#{build-data\ 330}#
-                            #{s\ 2863}#
-                            (#{strip\ 486}# #{e\ 2873}# #{w\ 2862}#)))
-                        #{tmp\ 2871}#)
-                      (let ((#{_\ 2875}# #{tmp\ 2870}#))
+                        (lambda (#{e\ 2874}#)
+                          (#{build-data\ 331}#
+                            #{s\ 2864}#
+                            (#{strip\ 487}# #{e\ 2874}# #{w\ 2863}#)))
+                        #{tmp\ 2872}#)
+                      (let ((#{_\ 2876}# #{tmp\ 2871}#))
                         (syntax-violation
                           'quote
                           "bad syntax"
-                          (#{source-wrap\ 446}#
-                            #{e\ 2860}#
-                            #{w\ 2862}#
-                            #{s\ 2863}#
-                            #{mod\ 2864}#))))))))
-            (#{global-extend\ 374}#
+                          (#{source-wrap\ 447}#
+                            #{e\ 2861}#
+                            #{w\ 2863}#
+                            #{s\ 2864}#
+                            #{mod\ 2865}#))))))))
+            (#{global-extend\ 375}#
               'core
               'syntax
               (letrec*
-                ((#{gen-syntax\ 2877}#
-                   (lambda (#{src\ 2892}#
-                            #{e\ 2893}#
-                            #{r\ 2894}#
-                            #{maps\ 2895}#
-                            #{ellipsis?\ 2896}#
-                            #{mod\ 2897}#)
-                     (if (#{id?\ 378}# #{e\ 2893}#)
+                ((#{gen-syntax\ 2878}#
+                   (lambda (#{src\ 2893}#
+                            #{e\ 2894}#
+                            #{r\ 2895}#
+                            #{maps\ 2896}#
+                            #{ellipsis?\ 2897}#
+                            #{mod\ 2898}#)
+                     (if (#{id?\ 379}# #{e\ 2894}#)
                        (begin
-                         (let ((#{label\ 2905}#
-                                 (#{id-var-name\ 432}#
-                                   #{e\ 2893}#
-                                   '(()))))
+                         (let ((#{label\ 2906}#
+                                 (#{id-var-name\ 433}# #{e\ 2894}# '(()))))
                            (begin
-                             (let ((#{b\ 2908}#
-                                     (#{lookup\ 372}#
-                                       #{label\ 2905}#
-                                       #{r\ 2894}#
-                                       #{mod\ 2897}#)))
-                               (if (eq? (car #{b\ 2908}#) (quote syntax))
+                             (let ((#{b\ 2909}#
+                                     (#{lookup\ 373}#
+                                       #{label\ 2906}#
+                                       #{r\ 2895}#
+                                       #{mod\ 2898}#)))
+                               (if (eq? (car #{b\ 2909}#) 'syntax)
                                  (call-with-values
                                    (lambda ()
                                      (begin
-                                       (let ((#{var.lev\ 2911}#
-                                               (cdr #{b\ 2908}#)))
-                                         (#{gen-ref\ 2879}#
-                                           #{src\ 2892}#
-                                           (car #{var.lev\ 2911}#)
-                                           (cdr #{var.lev\ 2911}#)
-                                           #{maps\ 2895}#))))
-                                   (lambda (#{var\ 2913}# #{maps\ 2914}#)
+                                       (let ((#{var.lev\ 2912}#
+                                               (cdr #{b\ 2909}#)))
+                                         (#{gen-ref\ 2880}#
+                                           #{src\ 2893}#
+                                           (car #{var.lev\ 2912}#)
+                                           (cdr #{var.lev\ 2912}#)
+                                           #{maps\ 2896}#))))
+                                   (lambda (#{var\ 2914}# #{maps\ 2915}#)
                                      (values
-                                       (list (quote ref) #{var\ 2913}#)
-                                       #{maps\ 2914}#)))
-                                 (if (#{ellipsis?\ 2896}# #{e\ 2893}#)
+                                       (list 'ref #{var\ 2914}#)
+                                       #{maps\ 2915}#)))
+                                 (if (#{ellipsis?\ 2897}# #{e\ 2894}#)
                                    (syntax-violation
                                      'syntax
                                      "misplaced ellipsis"
-                                     #{src\ 2892}#)
+                                     #{src\ 2893}#)
                                    (values
-                                     (list (quote quote) #{e\ 2893}#)
-                                     #{maps\ 2895}#)))))))
-                       (let ((#{tmp\ 2919}# #{e\ 2893}#))
-                         (let ((#{tmp\ 2920}#
-                                 ($sc-dispatch
-                                   #{tmp\ 2919}#
-                                   '(any any))))
-                           (if (if #{tmp\ 2920}#
+                                     (list 'quote #{e\ 2894}#)
+                                     #{maps\ 2896}#)))))))
+                       (let ((#{tmp\ 2920}# #{e\ 2894}#))
+                         (let ((#{tmp\ 2921}#
+                                 ($sc-dispatch #{tmp\ 2920}# '(any any))))
+                           (if (if #{tmp\ 2921}#
                                  (@apply
-                                   (lambda (#{dots\ 2923}# #{e\ 2924}#)
-                                     (#{ellipsis?\ 2896}# #{dots\ 2923}#))
-                                   #{tmp\ 2920}#)
+                                   (lambda (#{dots\ 2924}# #{e\ 2925}#)
+                                     (#{ellipsis?\ 2897}# #{dots\ 2924}#))
+                                   #{tmp\ 2921}#)
                                  #f)
                              (@apply
-                               (lambda (#{dots\ 2927}# #{e\ 2928}#)
-                                 (#{gen-syntax\ 2877}#
-                                   #{src\ 2892}#
-                                   #{e\ 2928}#
-                                   #{r\ 2894}#
-                                   #{maps\ 2895}#
-                                   (lambda (#{x\ 2929}#) #f)
-                                   #{mod\ 2897}#))
-                               #{tmp\ 2920}#)
-                             (let ((#{tmp\ 2931}#
+                               (lambda (#{dots\ 2928}# #{e\ 2929}#)
+                                 (#{gen-syntax\ 2878}#
+                                   #{src\ 2893}#
+                                   #{e\ 2929}#
+                                   #{r\ 2895}#
+                                   #{maps\ 2896}#
+                                   (lambda (#{x\ 2930}#) #f)
+                                   #{mod\ 2898}#))
+                               #{tmp\ 2921}#)
+                             (let ((#{tmp\ 2932}#
                                      ($sc-dispatch
-                                       #{tmp\ 2919}#
+                                       #{tmp\ 2920}#
                                        '(any any . any))))
-                               (if (if #{tmp\ 2931}#
+                               (if (if #{tmp\ 2932}#
                                      (@apply
-                                       (lambda (#{x\ 2935}#
-                                                #{dots\ 2936}#
-                                                #{y\ 2937}#)
-                                         (#{ellipsis?\ 2896}# #{dots\ 2936}#))
-                                       #{tmp\ 2931}#)
+                                       (lambda (#{x\ 2936}#
+                                                #{dots\ 2937}#
+                                                #{y\ 2938}#)
+                                         (#{ellipsis?\ 2897}# #{dots\ 2937}#))
+                                       #{tmp\ 2932}#)
                                      #f)
                                  (@apply
-                                   (lambda (#{x\ 2941}#
-                                            #{dots\ 2942}#
-                                            #{y\ 2943}#)
+                                   (lambda (#{x\ 2942}#
+                                            #{dots\ 2943}#
+                                            #{y\ 2944}#)
                                      (letrec*
-                                       ((#{f\ 2947}#
-                                          (lambda (#{y\ 2948}# #{k\ 2949}#)
-                                            (let ((#{tmp\ 2956}# #{y\ 2948}#))
-                                              (let ((#{tmp\ 2957}#
+                                       ((#{f\ 2948}#
+                                          (lambda (#{y\ 2949}# #{k\ 2950}#)
+                                            (let ((#{tmp\ 2957}# #{y\ 2949}#))
+                                              (let ((#{tmp\ 2958}#
                                                       ($sc-dispatch
-                                                        #{tmp\ 2956}#
+                                                        #{tmp\ 2957}#
                                                         '(any . any))))
-                                                (if (if #{tmp\ 2957}#
+                                                (if (if #{tmp\ 2958}#
                                                       (@apply
-                                                        (lambda (#{dots\ 2960}#
-                                                                 #{y\ 2961}#)
-                                                          (#{ellipsis?\ 2896}#
-                                                            #{dots\ 2960}#))
-                                                        #{tmp\ 2957}#)
+                                                        (lambda (#{dots\ 2961}#
+                                                                 #{y\ 2962}#)
+                                                          (#{ellipsis?\ 2897}#
+                                                            #{dots\ 2961}#))
+                                                        #{tmp\ 2958}#)
                                                       #f)
                                                   (@apply
-                                                    (lambda (#{dots\ 2964}#
-                                                             #{y\ 2965}#)
-                                                      (#{f\ 2947}#
-                                                        #{y\ 2965}#
-                                                        (lambda (#{maps\ 
2966}#)
+                                                    (lambda (#{dots\ 2965}#
+                                                             #{y\ 2966}#)
+                                                      (#{f\ 2948}#
+                                                        #{y\ 2966}#
+                                                        (lambda (#{maps\ 
2967}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{k\ 2949}#
+                                                              (#{k\ 2950}#
                                                                 (cons '()
-                                                                      #{maps\ 
2966}#)))
-                                                            (lambda (#{x\ 
2968}#
-                                                                     #{maps\ 
2969}#)
-                                                              (if (null? (car 
#{maps\ 2969}#))
+                                                                      #{maps\ 
2967}#)))
+                                                            (lambda (#{x\ 
2969}#
+                                                                     #{maps\ 
2970}#)
+                                                              (if (null? (car 
#{maps\ 2970}#))
                                                                 
(syntax-violation
                                                                   'syntax
                                                                   "extra 
ellipsis"
-                                                                  #{src\ 
2892}#)
+                                                                  #{src\ 
2893}#)
                                                                 (values
-                                                                  
(#{gen-mappend\ 2881}#
-                                                                    #{x\ 2968}#
-                                                                    (car 
#{maps\ 2969}#))
-                                                                  (cdr #{maps\ 
2969}#))))))))
-                                                    #{tmp\ 2957}#)
-                                                  (let ((#{_\ 2973}#
-                                                          #{tmp\ 2956}#))
+                                                                  
(#{gen-mappend\ 2882}#
+                                                                    #{x\ 2969}#
+                                                                    (car 
#{maps\ 2970}#))
+                                                                  (cdr #{maps\ 
2970}#))))))))
+                                                    #{tmp\ 2958}#)
+                                                  (let ((#{_\ 2974}#
+                                                          #{tmp\ 2957}#))
                                                     (call-with-values
                                                       (lambda ()
-                                                        (#{gen-syntax\ 2877}#
-                                                          #{src\ 2892}#
-                                                          #{y\ 2948}#
-                                                          #{r\ 2894}#
-                                                          #{maps\ 2895}#
-                                                          #{ellipsis?\ 2896}#
-                                                          #{mod\ 2897}#))
-                                                      (lambda (#{y\ 2974}#
-                                                               #{maps\ 2975}#)
+                                                        (#{gen-syntax\ 2878}#
+                                                          #{src\ 2893}#
+                                                          #{y\ 2949}#
+                                                          #{r\ 2895}#
+                                                          #{maps\ 2896}#
+                                                          #{ellipsis?\ 2897}#
+                                                          #{mod\ 2898}#))
+                                                      (lambda (#{y\ 2975}#
+                                                               #{maps\ 2976}#)
                                                         (call-with-values
                                                           (lambda ()
-                                                            (#{k\ 2949}#
-                                                              #{maps\ 2975}#))
-                                                          (lambda (#{x\ 2978}#
-                                                                   #{maps\ 
2979}#)
+                                                            (#{k\ 2950}#
+                                                              #{maps\ 2976}#))
+                                                          (lambda (#{x\ 2979}#
+                                                                   #{maps\ 
2980}#)
                                                             (values
-                                                              (#{gen-append\ 
2887}#
-                                                                #{x\ 2978}#
-                                                                #{y\ 2974}#)
-                                                              #{maps\ 
2979}#))))))))))))
+                                                              (#{gen-append\ 
2888}#
+                                                                #{x\ 2979}#
+                                                                #{y\ 2975}#)
+                                                              #{maps\ 
2980}#))))))))))))
                                        (begin
-                                         (#{f\ 2947}#
-                                           #{y\ 2943}#
-                                           (lambda (#{maps\ 2950}#)
+                                         (#{f\ 2948}#
+                                           #{y\ 2944}#
+                                           (lambda (#{maps\ 2951}#)
                                              (call-with-values
                                                (lambda ()
-                                                 (#{gen-syntax\ 2877}#
-                                                   #{src\ 2892}#
-                                                   #{x\ 2941}#
-                                                   #{r\ 2894}#
-                                                   (cons '()
-                                                         #{maps\ 2950}#)
-                                                   #{ellipsis?\ 2896}#
-                                                   #{mod\ 2897}#))
-                                               (lambda (#{x\ 2952}#
-                                                        #{maps\ 2953}#)
-                                                 (if (null? (car #{maps\ 
2953}#))
+                                                 (#{gen-syntax\ 2878}#
+                                                   #{src\ 2893}#
+                                                   #{x\ 2942}#
+                                                   #{r\ 2895}#
+                                                   (cons '() #{maps\ 2951}#)
+                                                   #{ellipsis?\ 2897}#
+                                                   #{mod\ 2898}#))
+                                               (lambda (#{x\ 2953}#
+                                                        #{maps\ 2954}#)
+                                                 (if (null? (car #{maps\ 
2954}#))
                                                    (syntax-violation
                                                      'syntax
                                                      "extra ellipsis"
-                                                     #{src\ 2892}#)
+                                                     #{src\ 2893}#)
                                                    (values
-                                                     (#{gen-map\ 2883}#
-                                                       #{x\ 2952}#
-                                                       (car #{maps\ 2953}#))
-                                                     (cdr #{maps\ 
2953}#))))))))))
-                                   #{tmp\ 2931}#)
-                                 (let ((#{tmp\ 2982}#
+                                                     (#{gen-map\ 2884}#
+                                                       #{x\ 2953}#
+                                                       (car #{maps\ 2954}#))
+                                                     (cdr #{maps\ 
2954}#))))))))))
+                                   #{tmp\ 2932}#)
+                                 (let ((#{tmp\ 2983}#
                                          ($sc-dispatch
-                                           #{tmp\ 2919}#
+                                           #{tmp\ 2920}#
                                            '(any . any))))
-                                   (if #{tmp\ 2982}#
+                                   (if #{tmp\ 2983}#
                                      (@apply
-                                       (lambda (#{x\ 2985}# #{y\ 2986}#)
+                                       (lambda (#{x\ 2986}# #{y\ 2987}#)
                                          (call-with-values
                                            (lambda ()
-                                             (#{gen-syntax\ 2877}#
-                                               #{src\ 2892}#
-                                               #{x\ 2985}#
-                                               #{r\ 2894}#
-                                               #{maps\ 2895}#
-                                               #{ellipsis?\ 2896}#
-                                               #{mod\ 2897}#))
-                                           (lambda (#{x\ 2987}# #{maps\ 2988}#)
+                                             (#{gen-syntax\ 2878}#
+                                               #{src\ 2893}#
+                                               #{x\ 2986}#
+                                               #{r\ 2895}#
+                                               #{maps\ 2896}#
+                                               #{ellipsis?\ 2897}#
+                                               #{mod\ 2898}#))
+                                           (lambda (#{x\ 2988}# #{maps\ 2989}#)
                                              (call-with-values
                                                (lambda ()
-                                                 (#{gen-syntax\ 2877}#
-                                                   #{src\ 2892}#
-                                                   #{y\ 2986}#
-                                                   #{r\ 2894}#
-                                                   #{maps\ 2988}#
-                                                   #{ellipsis?\ 2896}#
-                                                   #{mod\ 2897}#))
-                                               (lambda (#{y\ 2991}#
-                                                        #{maps\ 2992}#)
+                                                 (#{gen-syntax\ 2878}#
+                                                   #{src\ 2893}#
+                                                   #{y\ 2987}#
+                                                   #{r\ 2895}#
+                                                   #{maps\ 2989}#
+                                                   #{ellipsis?\ 2897}#
+                                                   #{mod\ 2898}#))
+                                               (lambda (#{y\ 2992}#
+                                                        #{maps\ 2993}#)
                                                  (values
-                                                   (#{gen-cons\ 2885}#
-                                                     #{x\ 2987}#
-                                                     #{y\ 2991}#)
-                                                   #{maps\ 2992}#))))))
-                                       #{tmp\ 2982}#)
-                                     (let ((#{tmp\ 2995}#
+                                                   (#{gen-cons\ 2886}#
+                                                     #{x\ 2988}#
+                                                     #{y\ 2992}#)
+                                                   #{maps\ 2993}#))))))
+                                       #{tmp\ 2983}#)
+                                     (let ((#{tmp\ 2996}#
                                              ($sc-dispatch
-                                               #{tmp\ 2919}#
+                                               #{tmp\ 2920}#
                                                '#(vector (any . each-any)))))
-                                       (if #{tmp\ 2995}#
+                                       (if #{tmp\ 2996}#
                                          (@apply
-                                           (lambda (#{e1\ 2998}# #{e2\ 2999}#)
+                                           (lambda (#{e1\ 2999}# #{e2\ 3000}#)
                                              (call-with-values
                                                (lambda ()
-                                                 (#{gen-syntax\ 2877}#
-                                                   #{src\ 2892}#
-                                                   (cons #{e1\ 2998}#
-                                                         #{e2\ 2999}#)
-                                                   #{r\ 2894}#
-                                                   #{maps\ 2895}#
-                                                   #{ellipsis?\ 2896}#
-                                                   #{mod\ 2897}#))
-                                               (lambda (#{e\ 3001}#
-                                                        #{maps\ 3002}#)
+                                                 (#{gen-syntax\ 2878}#
+                                                   #{src\ 2893}#
+                                                   (cons #{e1\ 2999}#
+                                                         #{e2\ 3000}#)
+                                                   #{r\ 2895}#
+                                                   #{maps\ 2896}#
+                                                   #{ellipsis?\ 2897}#
+                                                   #{mod\ 2898}#))
+                                               (lambda (#{e\ 3002}#
+                                                        #{maps\ 3003}#)
                                                  (values
-                                                   (#{gen-vector\ 2889}#
-                                                     #{e\ 3001}#)
-                                                   #{maps\ 3002}#))))
-                                           #{tmp\ 2995}#)
-                                         (let ((#{_\ 3006}# #{tmp\ 2919}#))
+                                                   (#{gen-vector\ 2890}#
+                                                     #{e\ 3002}#)
+                                                   #{maps\ 3003}#))))
+                                           #{tmp\ 2996}#)
+                                         (let ((#{_\ 3007}# #{tmp\ 2920}#))
                                            (values
-                                             (list (quote quote) #{e\ 2893}#)
-                                             #{maps\ 2895}#))))))))))))))
-                 (#{gen-ref\ 2879}#
-                   (lambda (#{src\ 3008}#
-                            #{var\ 3009}#
-                            #{level\ 3010}#
-                            #{maps\ 3011}#)
-                     (if (#{fx=\ 285}# #{level\ 3010}# 0)
-                       (values #{var\ 3009}# #{maps\ 3011}#)
-                       (if (null? #{maps\ 3011}#)
+                                             (list 'quote #{e\ 2894}#)
+                                             #{maps\ 2896}#))))))))))))))
+                 (#{gen-ref\ 2880}#
+                   (lambda (#{src\ 3009}#
+                            #{var\ 3010}#
+                            #{level\ 3011}#
+                            #{maps\ 3012}#)
+                     (if (#{fx=\ 286}# #{level\ 3011}# 0)
+                       (values #{var\ 3010}# #{maps\ 3012}#)
+                       (if (null? #{maps\ 3012}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 3008}#)
+                           #{src\ 3009}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 2879}#
-                               #{src\ 3008}#
-                               #{var\ 3009}#
-                               (#{fx-\ 283}# #{level\ 3010}# 1)
-                               (cdr #{maps\ 3011}#)))
-                           (lambda (#{outer-var\ 3016}# #{outer-maps\ 3017}#)
+                             (#{gen-ref\ 2880}#
+                               #{src\ 3009}#
+                               #{var\ 3010}#
+                               (#{fx-\ 284}# #{level\ 3011}# 1)
+                               (cdr #{maps\ 3012}#)))
+                           (lambda (#{outer-var\ 3017}# #{outer-maps\ 3018}#)
                              (begin
-                               (let ((#{b\ 3021}#
-                                       (assq #{outer-var\ 3016}#
-                                             (car #{maps\ 3011}#))))
-                                 (if #{b\ 3021}#
-                                   (values (cdr #{b\ 3021}#) #{maps\ 3011}#)
+                               (let ((#{b\ 3022}#
+                                       (assq #{outer-var\ 3017}#
+                                             (car #{maps\ 3012}#))))
+                                 (if #{b\ 3022}#
+                                   (values (cdr #{b\ 3022}#) #{maps\ 3012}#)
                                    (begin
-                                     (let ((#{inner-var\ 3023}#
-                                             (#{gen-var\ 488}# (quote tmp))))
+                                     (let ((#{inner-var\ 3024}#
+                                             (#{gen-var\ 489}# 'tmp)))
                                        (values
-                                         #{inner-var\ 3023}#
-                                         (cons (cons (cons #{outer-var\ 3016}#
-                                                           #{inner-var\ 3023}#)
-                                                     (car #{maps\ 3011}#))
-                                               #{outer-maps\ 
3017}#)))))))))))))
-                 (#{gen-mappend\ 2881}#
-                   (lambda (#{e\ 3024}# #{map-env\ 3025}#)
+                                         #{inner-var\ 3024}#
+                                         (cons (cons (cons #{outer-var\ 3017}#
+                                                           #{inner-var\ 3024}#)
+                                                     (car #{maps\ 3012}#))
+                                               #{outer-maps\ 
3018}#)))))))))))))
+                 (#{gen-mappend\ 2882}#
+                   (lambda (#{e\ 3025}# #{map-env\ 3026}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 2883}# #{e\ 3024}# #{map-env\ 3025}#))))
-                 (#{gen-map\ 2883}#
-                   (lambda (#{e\ 3029}# #{map-env\ 3030}#)
+                           (#{gen-map\ 2884}# #{e\ 3025}# #{map-env\ 3026}#))))
+                 (#{gen-map\ 2884}#
+                   (lambda (#{e\ 3030}# #{map-env\ 3031}#)
                      (begin
-                       (let ((#{formals\ 3035}# (map cdr #{map-env\ 3030}#))
-                             (#{actuals\ 3036}#
-                               (map (lambda (#{x\ 3037}#)
-                                      (list (quote ref) (car #{x\ 3037}#)))
-                                    #{map-env\ 3030}#)))
-                         (if (eq? (car #{e\ 3029}#) (quote ref))
-                           (car #{actuals\ 3036}#)
+                       (let ((#{formals\ 3036}# (map cdr #{map-env\ 3031}#))
+                             (#{actuals\ 3037}#
+                               (map (lambda (#{x\ 3038}#)
+                                      (list 'ref (car #{x\ 3038}#)))
+                                    #{map-env\ 3031}#)))
+                         (if (eq? (car #{e\ 3030}#) 'ref)
+                           (car #{actuals\ 3037}#)
                            (if (and-map
-                                 (lambda (#{x\ 3044}#)
-                                   (if (eq? (car #{x\ 3044}#) (quote ref))
-                                     (memq (car (cdr #{x\ 3044}#))
-                                           #{formals\ 3035}#)
+                                 (lambda (#{x\ 3045}#)
+                                   (if (eq? (car #{x\ 3045}#) 'ref)
+                                     (memq (car (cdr #{x\ 3045}#))
+                                           #{formals\ 3036}#)
                                      #f))
-                                 (cdr #{e\ 3029}#))
+                                 (cdr #{e\ 3030}#))
                              (cons 'map
-                                   (cons (list 'primitive
-                                               (car #{e\ 3029}#))
+                                   (cons (list 'primitive (car #{e\ 3030}#))
                                          (map (begin
-                                                (let ((#{r\ 3050}#
+                                                (let ((#{r\ 3051}#
                                                         (map cons
-                                                             #{formals\ 3035}#
-                                                             #{actuals\ 
3036}#)))
-                                                  (lambda (#{x\ 3051}#)
-                                                    (cdr (assq (car (cdr #{x\ 
3051}#))
-                                                               #{r\ 3050}#)))))
-                                              (cdr #{e\ 3029}#))))
+                                                             #{formals\ 3036}#
+                                                             #{actuals\ 
3037}#)))
+                                                  (lambda (#{x\ 3052}#)
+                                                    (cdr (assq (car (cdr #{x\ 
3052}#))
+                                                               #{r\ 3051}#)))))
+                                              (cdr #{e\ 3030}#))))
                              (cons 'map
                                    (cons (list 'lambda
-                                               #{formals\ 3035}#
-                                               #{e\ 3029}#)
-                                         #{actuals\ 3036}#))))))))
-                 (#{gen-cons\ 2885}#
-                   (lambda (#{x\ 3055}# #{y\ 3056}#)
+                                               #{formals\ 3036}#
+                                               #{e\ 3030}#)
+                                         #{actuals\ 3037}#))))))))
+                 (#{gen-cons\ 2886}#
+                   (lambda (#{x\ 3056}# #{y\ 3057}#)
                      (begin
-                       (let ((#{atom-key\ 3061}# (car #{y\ 3056}#)))
-                         (if (eqv? #{atom-key\ 3061}# (quote quote))
-                           (if (eq? (car #{x\ 3055}#) (quote quote))
+                       (let ((#{atom-key\ 3062}# (car #{y\ 3057}#)))
+                         (if (eqv? #{atom-key\ 3062}# 'quote)
+                           (if (eq? (car #{x\ 3056}#) 'quote)
                              (list 'quote
-                                   (cons (car (cdr #{x\ 3055}#))
-                                         (car (cdr #{y\ 3056}#))))
-                             (if (eq? (car (cdr #{y\ 3056}#)) (quote ()))
-                               (list (quote list) #{x\ 3055}#)
-                               (list (quote cons) #{x\ 3055}# #{y\ 3056}#)))
-                           (if (eqv? #{atom-key\ 3061}# (quote list))
-                             (cons 'list
-                                   (cons #{x\ 3055}# (cdr #{y\ 3056}#)))
-                             (list (quote cons) #{x\ 3055}# #{y\ 3056}#)))))))
-                 (#{gen-append\ 2887}#
-                   (lambda (#{x\ 3070}# #{y\ 3071}#)
-                     (if (equal? #{y\ 3071}# (quote (quote ())))
-                       #{x\ 3070}#
-                       (list (quote append) #{x\ 3070}# #{y\ 3071}#))))
-                 (#{gen-vector\ 2889}#
-                   (lambda (#{x\ 3075}#)
-                     (if (eq? (car #{x\ 3075}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 3075}#))
-                       (if (eq? (car #{x\ 3075}#) (quote quote))
+                                   (cons (car (cdr #{x\ 3056}#))
+                                         (car (cdr #{y\ 3057}#))))
+                             (if (eq? (car (cdr #{y\ 3057}#)) '())
+                               (list 'list #{x\ 3056}#)
+                               (list 'cons #{x\ 3056}# #{y\ 3057}#)))
+                           (if (eqv? #{atom-key\ 3062}# 'list)
+                             (cons 'list (cons #{x\ 3056}# (cdr #{y\ 3057}#)))
+                             (list 'cons #{x\ 3056}# #{y\ 3057}#)))))))
+                 (#{gen-append\ 2888}#
+                   (lambda (#{x\ 3071}# #{y\ 3072}#)
+                     (if (equal? #{y\ 3072}# ''())
+                       #{x\ 3071}#
+                       (list 'append #{x\ 3071}# #{y\ 3072}#))))
+                 (#{gen-vector\ 2890}#
+                   (lambda (#{x\ 3076}#)
+                     (if (eq? (car #{x\ 3076}#) 'list)
+                       (cons 'vector (cdr #{x\ 3076}#))
+                       (if (eq? (car #{x\ 3076}#) 'quote)
                          (list 'quote
-                               (list->vector (car (cdr #{x\ 3075}#))))
-                         (list (quote list->vector) #{x\ 3075}#)))))
-                 (#{regen\ 2891}#
-                   (lambda (#{x\ 3085}#)
+                               (list->vector (car (cdr #{x\ 3076}#))))
+                         (list 'list->vector #{x\ 3076}#)))))
+                 (#{regen\ 2892}#
+                   (lambda (#{x\ 3086}#)
                      (begin
-                       (let ((#{atom-key\ 3089}# (car #{x\ 3085}#)))
-                         (if (eqv? #{atom-key\ 3089}# (quote ref))
-                           (#{build-lexical-reference\ 310}#
+                       (let ((#{atom-key\ 3090}# (car #{x\ 3086}#)))
+                         (if (eqv? #{atom-key\ 3090}# 'ref)
+                           (#{build-lexical-reference\ 311}#
                              'value
                              #f
-                             (car (cdr #{x\ 3085}#))
-                             (car (cdr #{x\ 3085}#)))
-                           (if (eqv? #{atom-key\ 3089}# (quote primitive))
-                             (#{build-primref\ 328}#
+                             (car (cdr #{x\ 3086}#))
+                             (car (cdr #{x\ 3086}#)))
+                           (if (eqv? #{atom-key\ 3090}# 'primitive)
+                             (#{build-primref\ 329}#
                                #f
-                               (car (cdr #{x\ 3085}#)))
-                             (if (eqv? #{atom-key\ 3089}# (quote quote))
-                               (#{build-data\ 330}# #f (car (cdr #{x\ 3085}#)))
-                               (if (eqv? #{atom-key\ 3089}# (quote lambda))
-                                 (if (list? (car (cdr #{x\ 3085}#)))
-                                   (#{build-simple-lambda\ 322}#
+                               (car (cdr #{x\ 3086}#)))
+                             (if (eqv? #{atom-key\ 3090}# 'quote)
+                               (#{build-data\ 331}# #f (car (cdr #{x\ 3086}#)))
+                               (if (eqv? #{atom-key\ 3090}# 'lambda)
+                                 (if (list? (car (cdr #{x\ 3086}#)))
+                                   (#{build-simple-lambda\ 323}#
                                      #f
-                                     (car (cdr #{x\ 3085}#))
+                                     (car (cdr #{x\ 3086}#))
                                      #f
-                                     (car (cdr #{x\ 3085}#))
+                                     (car (cdr #{x\ 3086}#))
                                      '()
-                                     (#{regen\ 2891}#
-                                       (car (cdr (cdr #{x\ 3085}#)))))
-                                   (error "how did we get here" #{x\ 3085}#))
-                                 (#{build-application\ 304}#
+                                     (#{regen\ 2892}#
+                                       (car (cdr (cdr #{x\ 3086}#)))))
+                                   (error "how did we get here" #{x\ 3086}#))
+                                 (#{build-application\ 305}#
                                    #f
-                                   (#{build-primref\ 328}#
+                                   (#{build-primref\ 329}#
                                      #f
-                                     (car #{x\ 3085}#))
-                                   (map #{regen\ 2891}#
-                                        (cdr #{x\ 3085}#))))))))))))
+                                     (car #{x\ 3086}#))
+                                   (map #{regen\ 2892}#
+                                        (cdr #{x\ 3086}#))))))))))))
                 (begin
-                  (lambda (#{e\ 3101}#
-                           #{r\ 3102}#
-                           #{w\ 3103}#
-                           #{s\ 3104}#
-                           #{mod\ 3105}#)
+                  (lambda (#{e\ 3102}#
+                           #{r\ 3103}#
+                           #{w\ 3104}#
+                           #{s\ 3105}#
+                           #{mod\ 3106}#)
                     (begin
-                      (let ((#{e\ 3112}#
-                              (#{source-wrap\ 446}#
-                                #{e\ 3101}#
-                                #{w\ 3103}#
-                                #{s\ 3104}#
-                                #{mod\ 3105}#)))
-                        (let ((#{tmp\ 3113}# #{e\ 3112}#))
-                          (let ((#{tmp\ 3114}#
-                                  ($sc-dispatch
-                                    #{tmp\ 3113}#
-                                    '(_ any))))
-                            (if #{tmp\ 3114}#
+                      (let ((#{e\ 3113}#
+                              (#{source-wrap\ 447}#
+                                #{e\ 3102}#
+                                #{w\ 3104}#
+                                #{s\ 3105}#
+                                #{mod\ 3106}#)))
+                        (let ((#{tmp\ 3114}# #{e\ 3113}#))
+                          (let ((#{tmp\ 3115}#
+                                  ($sc-dispatch #{tmp\ 3114}# '(_ any))))
+                            (if #{tmp\ 3115}#
                               (@apply
-                                (lambda (#{x\ 3116}#)
+                                (lambda (#{x\ 3117}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{gen-syntax\ 2877}#
-                                        #{e\ 3112}#
-                                        #{x\ 3116}#
-                                        #{r\ 3102}#
+                                      (#{gen-syntax\ 2878}#
+                                        #{e\ 3113}#
+                                        #{x\ 3117}#
+                                        #{r\ 3103}#
                                         '()
-                                        #{ellipsis?\ 476}#
-                                        #{mod\ 3105}#))
-                                    (lambda (#{e\ 3117}# #{maps\ 3118}#)
-                                      (#{regen\ 2891}# #{e\ 3117}#))))
-                                #{tmp\ 3114}#)
-                              (let ((#{_\ 3122}# #{tmp\ 3113}#))
+                                        #{ellipsis?\ 477}#
+                                        #{mod\ 3106}#))
+                                    (lambda (#{e\ 3118}# #{maps\ 3119}#)
+                                      (#{regen\ 2892}# #{e\ 3118}#))))
+                                #{tmp\ 3115}#)
+                              (let ((#{_\ 3123}# #{tmp\ 3114}#))
                                 (syntax-violation
                                   'syntax
                                   "bad `syntax' form"
-                                  #{e\ 3112}#)))))))))))
-            (#{global-extend\ 374}#
+                                  #{e\ 3113}#)))))))))))
+            (#{global-extend\ 375}#
               'core
               'lambda
-              (lambda (#{e\ 3123}#
-                       #{r\ 3124}#
-                       #{w\ 3125}#
-                       #{s\ 3126}#
-                       #{mod\ 3127}#)
-                (let ((#{tmp\ 3133}# #{e\ 3123}#))
-                  (let ((#{tmp\ 3134}#
+              (lambda (#{e\ 3124}#
+                       #{r\ 3125}#
+                       #{w\ 3126}#
+                       #{s\ 3127}#
+                       #{mod\ 3128}#)
+                (let ((#{tmp\ 3134}# #{e\ 3124}#))
+                  (let ((#{tmp\ 3135}#
                           ($sc-dispatch
-                            #{tmp\ 3133}#
+                            #{tmp\ 3134}#
                             '(_ any any . each-any))))
-                    (if #{tmp\ 3134}#
+                    (if #{tmp\ 3135}#
                       (@apply
-                        (lambda (#{args\ 3138}# #{e1\ 3139}# #{e2\ 3140}#)
+                        (lambda (#{args\ 3139}# #{e1\ 3140}# #{e2\ 3141}#)
                           (call-with-values
                             (lambda ()
-                              (#{lambda-formals\ 478}# #{args\ 3138}#))
-                            (lambda (#{req\ 3141}#
-                                     #{opt\ 3142}#
-                                     #{rest\ 3143}#
-                                     #{kw\ 3144}#)
+                              (#{lambda-formals\ 479}# #{args\ 3139}#))
+                            (lambda (#{req\ 3142}#
+                                     #{opt\ 3143}#
+                                     #{rest\ 3144}#
+                                     #{kw\ 3145}#)
                               (letrec*
-                                ((#{lp\ 3152}#
-                                   (lambda (#{body\ 3153}# #{meta\ 3154}#)
-                                     (let ((#{tmp\ 3156}# #{body\ 3153}#))
-                                       (let ((#{tmp\ 3157}#
+                                ((#{lp\ 3153}#
+                                   (lambda (#{body\ 3154}# #{meta\ 3155}#)
+                                     (let ((#{tmp\ 3157}# #{body\ 3154}#))
+                                       (let ((#{tmp\ 3158}#
                                                ($sc-dispatch
-                                                 #{tmp\ 3156}#
+                                                 #{tmp\ 3157}#
                                                  '(any any . each-any))))
-                                         (if (if #{tmp\ 3157}#
+                                         (if (if #{tmp\ 3158}#
                                                (@apply
-                                                 (lambda (#{docstring\ 3161}#
-                                                          #{e1\ 3162}#
-                                                          #{e2\ 3163}#)
+                                                 (lambda (#{docstring\ 3162}#
+                                                          #{e1\ 3163}#
+                                                          #{e2\ 3164}#)
                                                    (string?
                                                      (syntax->datum
-                                                       #{docstring\ 3161}#)))
-                                                 #{tmp\ 3157}#)
+                                                       #{docstring\ 3162}#)))
+                                                 #{tmp\ 3158}#)
                                                #f)
                                            (@apply
-                                             (lambda (#{docstring\ 3167}#
-                                                      #{e1\ 3168}#
-                                                      #{e2\ 3169}#)
-                                               (#{lp\ 3152}#
-                                                 (cons #{e1\ 3168}#
-                                                       #{e2\ 3169}#)
+                                             (lambda (#{docstring\ 3168}#
+                                                      #{e1\ 3169}#
+                                                      #{e2\ 3170}#)
+                                               (#{lp\ 3153}#
+                                                 (cons #{e1\ 3169}#
+                                                       #{e2\ 3170}#)
                                                  (append
-                                                   #{meta\ 3154}#
+                                                   #{meta\ 3155}#
                                                    (list (cons 'documentation
                                                                (syntax->datum
-                                                                 #{docstring\ 
3167}#))))))
-                                             #{tmp\ 3157}#)
-                                           (let ((#{tmp\ 3172}#
+                                                                 #{docstring\ 
3168}#))))))
+                                             #{tmp\ 3158}#)
+                                           (let ((#{tmp\ 3173}#
                                                    ($sc-dispatch
-                                                     #{tmp\ 3156}#
+                                                     #{tmp\ 3157}#
                                                      '(#(vector
                                                          #(each (any . any)))
                                                        any
                                                        .
                                                        each-any))))
-                                             (if #{tmp\ 3172}#
+                                             (if #{tmp\ 3173}#
                                                (@apply
-                                                 (lambda (#{k\ 3177}#
-                                                          #{v\ 3178}#
-                                                          #{e1\ 3179}#
-                                                          #{e2\ 3180}#)
-                                                   (#{lp\ 3152}#
-                                                     (cons #{e1\ 3179}#
-                                                           #{e2\ 3180}#)
+                                                 (lambda (#{k\ 3178}#
+                                                          #{v\ 3179}#
+                                                          #{e1\ 3180}#
+                                                          #{e2\ 3181}#)
+                                                   (#{lp\ 3153}#
+                                                     (cons #{e1\ 3180}#
+                                                           #{e2\ 3181}#)
                                                      (append
-                                                       #{meta\ 3154}#
+                                                       #{meta\ 3155}#
                                                        (syntax->datum
                                                          (map cons
-                                                              #{k\ 3177}#
-                                                              #{v\ 3178}#)))))
-                                                 #{tmp\ 3172}#)
-                                               (let ((#{_\ 3185}#
-                                                       #{tmp\ 3156}#))
-                                                 (#{chi-simple-lambda\ 480}#
-                                                   #{e\ 3123}#
-                                                   #{r\ 3124}#
-                                                   #{w\ 3125}#
-                                                   #{s\ 3126}#
-                                                   #{mod\ 3127}#
-                                                   #{req\ 3141}#
-                                                   #{rest\ 3143}#
-                                                   #{meta\ 3154}#
-                                                   #{body\ 3153}#))))))))))
+                                                              #{k\ 3178}#
+                                                              #{v\ 3179}#)))))
+                                                 #{tmp\ 3173}#)
+                                               (let ((#{_\ 3186}#
+                                                       #{tmp\ 3157}#))
+                                                 (#{chi-simple-lambda\ 481}#
+                                                   #{e\ 3124}#
+                                                   #{r\ 3125}#
+                                                   #{w\ 3126}#
+                                                   #{s\ 3127}#
+                                                   #{mod\ 3128}#
+                                                   #{req\ 3142}#
+                                                   #{rest\ 3144}#
+                                                   #{meta\ 3155}#
+                                                   #{body\ 3154}#))))))))))
                                 (begin
-                                  (#{lp\ 3152}#
-                                    (cons #{e1\ 3139}# #{e2\ 3140}#)
+                                  (#{lp\ 3153}#
+                                    (cons #{e1\ 3140}# #{e2\ 3141}#)
                                     '()))))))
-                        #{tmp\ 3134}#)
-                      (let ((#{_\ 3187}# #{tmp\ 3133}#))
+                        #{tmp\ 3135}#)
+                      (let ((#{_\ 3188}# #{tmp\ 3134}#))
                         (syntax-violation
                           'lambda
                           "bad lambda"
-                          #{e\ 3123}#)))))))
-            (#{global-extend\ 374}#
+                          #{e\ 3124}#)))))))
+            (#{global-extend\ 375}#
               'core
               'lambda*
-              (lambda (#{e\ 3188}#
-                       #{r\ 3189}#
-                       #{w\ 3190}#
-                       #{s\ 3191}#
-                       #{mod\ 3192}#)
-                (let ((#{tmp\ 3198}# #{e\ 3188}#))
-                  (let ((#{tmp\ 3199}#
+              (lambda (#{e\ 3189}#
+                       #{r\ 3190}#
+                       #{w\ 3191}#
+                       #{s\ 3192}#
+                       #{mod\ 3193}#)
+                (let ((#{tmp\ 3199}# #{e\ 3189}#))
+                  (let ((#{tmp\ 3200}#
                           ($sc-dispatch
-                            #{tmp\ 3198}#
+                            #{tmp\ 3199}#
                             '(_ any any . each-any))))
-                    (if #{tmp\ 3199}#
+                    (if #{tmp\ 3200}#
                       (@apply
-                        (lambda (#{args\ 3203}# #{e1\ 3204}# #{e2\ 3205}#)
+                        (lambda (#{args\ 3204}# #{e1\ 3205}# #{e2\ 3206}#)
                           (call-with-values
                             (lambda ()
-                              (#{chi-lambda-case\ 484}#
-                                #{e\ 3188}#
-                                #{r\ 3189}#
-                                #{w\ 3190}#
-                                #{s\ 3191}#
-                                #{mod\ 3192}#
-                                #{lambda*-formals\ 482}#
-                                (list (cons #{args\ 3203}#
-                                            (cons #{e1\ 3204}#
-                                                  #{e2\ 3205}#)))))
-                            (lambda (#{meta\ 3207}# #{lcase\ 3208}#)
-                              (#{build-case-lambda\ 324}#
-                                #{s\ 3191}#
-                                #{meta\ 3207}#
-                                #{lcase\ 3208}#))))
-                        #{tmp\ 3199}#)
-                      (let ((#{_\ 3212}# #{tmp\ 3198}#))
+                              (#{chi-lambda-case\ 485}#
+                                #{e\ 3189}#
+                                #{r\ 3190}#
+                                #{w\ 3191}#
+                                #{s\ 3192}#
+                                #{mod\ 3193}#
+                                #{lambda*-formals\ 483}#
+                                (list (cons #{args\ 3204}#
+                                            (cons #{e1\ 3205}#
+                                                  #{e2\ 3206}#)))))
+                            (lambda (#{meta\ 3208}# #{lcase\ 3209}#)
+                              (#{build-case-lambda\ 325}#
+                                #{s\ 3192}#
+                                #{meta\ 3208}#
+                                #{lcase\ 3209}#))))
+                        #{tmp\ 3200}#)
+                      (let ((#{_\ 3213}# #{tmp\ 3199}#))
                         (syntax-violation
                           'lambda
                           "bad lambda*"
-                          #{e\ 3188}#)))))))
-            (#{global-extend\ 374}#
+                          #{e\ 3189}#)))))))
+            (#{global-extend\ 375}#
               'core
               'case-lambda
-              (lambda (#{e\ 3213}#
-                       #{r\ 3214}#
-                       #{w\ 3215}#
-                       #{s\ 3216}#
-                       #{mod\ 3217}#)
-                (let ((#{tmp\ 3223}# #{e\ 3213}#))
-                  (let ((#{tmp\ 3224}#
+              (lambda (#{e\ 3214}#
+                       #{r\ 3215}#
+                       #{w\ 3216}#
+                       #{s\ 3217}#
+                       #{mod\ 3218}#)
+                (let ((#{tmp\ 3224}# #{e\ 3214}#))
+                  (let ((#{tmp\ 3225}#
                           ($sc-dispatch
-                            #{tmp\ 3223}#
+                            #{tmp\ 3224}#
                             '(_ (any any . each-any)
                                 .
                                 #(each (any any . each-any))))))
-                    (if #{tmp\ 3224}#
+                    (if #{tmp\ 3225}#
                       (@apply
-                        (lambda (#{args\ 3231}#
-                                 #{e1\ 3232}#
-                                 #{e2\ 3233}#
-                                 #{args*\ 3234}#
-                                 #{e1*\ 3235}#
-                                 #{e2*\ 3236}#)
+                        (lambda (#{args\ 3232}#
+                                 #{e1\ 3233}#
+                                 #{e2\ 3234}#
+                                 #{args*\ 3235}#
+                                 #{e1*\ 3236}#
+                                 #{e2*\ 3237}#)
                           (call-with-values
                             (lambda ()
-                              (#{chi-lambda-case\ 484}#
-                                #{e\ 3213}#
-                                #{r\ 3214}#
-                                #{w\ 3215}#
-                                #{s\ 3216}#
-                                #{mod\ 3217}#
-                                #{lambda-formals\ 478}#
-                                (cons (cons #{args\ 3231}#
-                                            (cons #{e1\ 3232}# #{e2\ 3233}#))
-                                      (map (lambda (#{tmp\ 3240}#
-                                                    #{tmp\ 3239}#
-                                                    #{tmp\ 3238}#)
-                                             (cons #{tmp\ 3238}#
-                                                   (cons #{tmp\ 3239}#
-                                                         #{tmp\ 3240}#)))
-                                           #{e2*\ 3236}#
-                                           #{e1*\ 3235}#
-                                           #{args*\ 3234}#))))
-                            (lambda (#{meta\ 3242}# #{lcase\ 3243}#)
-                              (#{build-case-lambda\ 324}#
-                                #{s\ 3216}#
-                                #{meta\ 3242}#
-                                #{lcase\ 3243}#))))
-                        #{tmp\ 3224}#)
-                      (let ((#{_\ 3247}# #{tmp\ 3223}#))
+                              (#{chi-lambda-case\ 485}#
+                                #{e\ 3214}#
+                                #{r\ 3215}#
+                                #{w\ 3216}#
+                                #{s\ 3217}#
+                                #{mod\ 3218}#
+                                #{lambda-formals\ 479}#
+                                (cons (cons #{args\ 3232}#
+                                            (cons #{e1\ 3233}# #{e2\ 3234}#))
+                                      (map (lambda (#{tmp\ 3241}#
+                                                    #{tmp\ 3240}#
+                                                    #{tmp\ 3239}#)
+                                             (cons #{tmp\ 3239}#
+                                                   (cons #{tmp\ 3240}#
+                                                         #{tmp\ 3241}#)))
+                                           #{e2*\ 3237}#
+                                           #{e1*\ 3236}#
+                                           #{args*\ 3235}#))))
+                            (lambda (#{meta\ 3243}# #{lcase\ 3244}#)
+                              (#{build-case-lambda\ 325}#
+                                #{s\ 3217}#
+                                #{meta\ 3243}#
+                                #{lcase\ 3244}#))))
+                        #{tmp\ 3225}#)
+                      (let ((#{_\ 3248}# #{tmp\ 3224}#))
                         (syntax-violation
                           'case-lambda
                           "bad case-lambda"
-                          #{e\ 3213}#)))))))
-            (#{global-extend\ 374}#
+                          #{e\ 3214}#)))))))
+            (#{global-extend\ 375}#
               'core
               'case-lambda*
-              (lambda (#{e\ 3248}#
-                       #{r\ 3249}#
-                       #{w\ 3250}#
-                       #{s\ 3251}#
-                       #{mod\ 3252}#)
-                (let ((#{tmp\ 3258}# #{e\ 3248}#))
-                  (let ((#{tmp\ 3259}#
+              (lambda (#{e\ 3249}#
+                       #{r\ 3250}#
+                       #{w\ 3251}#
+                       #{s\ 3252}#
+                       #{mod\ 3253}#)
+                (let ((#{tmp\ 3259}# #{e\ 3249}#))
+                  (let ((#{tmp\ 3260}#
                           ($sc-dispatch
-                            #{tmp\ 3258}#
+                            #{tmp\ 3259}#
                             '(_ (any any . each-any)
                                 .
                                 #(each (any any . each-any))))))
-                    (if #{tmp\ 3259}#
+                    (if #{tmp\ 3260}#
                       (@apply
-                        (lambda (#{args\ 3266}#
-                                 #{e1\ 3267}#
-                                 #{e2\ 3268}#
-                                 #{args*\ 3269}#
-                                 #{e1*\ 3270}#
-                                 #{e2*\ 3271}#)
+                        (lambda (#{args\ 3267}#
+                                 #{e1\ 3268}#
+                                 #{e2\ 3269}#
+                                 #{args*\ 3270}#
+                                 #{e1*\ 3271}#
+                                 #{e2*\ 3272}#)
                           (call-with-values
                             (lambda ()
-                              (#{chi-lambda-case\ 484}#
-                                #{e\ 3248}#
-                                #{r\ 3249}#
-                                #{w\ 3250}#
-                                #{s\ 3251}#
-                                #{mod\ 3252}#
-                                #{lambda*-formals\ 482}#
-                                (cons (cons #{args\ 3266}#
-                                            (cons #{e1\ 3267}# #{e2\ 3268}#))
-                                      (map (lambda (#{tmp\ 3275}#
-                                                    #{tmp\ 3274}#
-                                                    #{tmp\ 3273}#)
-                                             (cons #{tmp\ 3273}#
-                                                   (cons #{tmp\ 3274}#
-                                                         #{tmp\ 3275}#)))
-                                           #{e2*\ 3271}#
-                                           #{e1*\ 3270}#
-                                           #{args*\ 3269}#))))
-                            (lambda (#{meta\ 3277}# #{lcase\ 3278}#)
-                              (#{build-case-lambda\ 324}#
-                                #{s\ 3251}#
-                                #{meta\ 3277}#
-                                #{lcase\ 3278}#))))
-                        #{tmp\ 3259}#)
-                      (let ((#{_\ 3282}# #{tmp\ 3258}#))
+                              (#{chi-lambda-case\ 485}#
+                                #{e\ 3249}#
+                                #{r\ 3250}#
+                                #{w\ 3251}#
+                                #{s\ 3252}#
+                                #{mod\ 3253}#
+                                #{lambda*-formals\ 483}#
+                                (cons (cons #{args\ 3267}#
+                                            (cons #{e1\ 3268}# #{e2\ 3269}#))
+                                      (map (lambda (#{tmp\ 3276}#
+                                                    #{tmp\ 3275}#
+                                                    #{tmp\ 3274}#)
+                                             (cons #{tmp\ 3274}#
+                                                   (cons #{tmp\ 3275}#
+                                                         #{tmp\ 3276}#)))
+                                           #{e2*\ 3272}#
+                                           #{e1*\ 3271}#
+                                           #{args*\ 3270}#))))
+                            (lambda (#{meta\ 3278}# #{lcase\ 3279}#)
+                              (#{build-case-lambda\ 325}#
+                                #{s\ 3252}#
+                                #{meta\ 3278}#
+                                #{lcase\ 3279}#))))
+                        #{tmp\ 3260}#)
+                      (let ((#{_\ 3283}# #{tmp\ 3259}#))
                         (syntax-violation
                           'case-lambda
                           "bad case-lambda*"
-                          #{e\ 3248}#)))))))
-            (#{global-extend\ 374}#
+                          #{e\ 3249}#)))))))
+            (#{global-extend\ 375}#
               'core
               'let
               (letrec*
-                ((#{chi-let\ 3284}#
-                   (lambda (#{e\ 3285}#
-                            #{r\ 3286}#
-                            #{w\ 3287}#
-                            #{s\ 3288}#
-                            #{mod\ 3289}#
-                            #{constructor\ 3290}#
-                            #{ids\ 3291}#
-                            #{vals\ 3292}#
-                            #{exps\ 3293}#)
-                     (if (not (#{valid-bound-ids?\ 438}# #{ids\ 3291}#))
+                ((#{chi-let\ 3285}#
+                   (lambda (#{e\ 3286}#
+                            #{r\ 3287}#
+                            #{w\ 3288}#
+                            #{s\ 3289}#
+                            #{mod\ 3290}#
+                            #{constructor\ 3291}#
+                            #{ids\ 3292}#
+                            #{vals\ 3293}#
+                            #{exps\ 3294}#)
+                     (if (not (#{valid-bound-ids?\ 439}# #{ids\ 3292}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 3285}#)
+                         #{e\ 3286}#)
                        (begin
-                         (let ((#{labels\ 3305}#
-                                 (#{gen-labels\ 393}# #{ids\ 3291}#))
-                               (#{new-vars\ 3306}#
-                                 (map #{gen-var\ 488}# #{ids\ 3291}#)))
+                         (let ((#{labels\ 3306}#
+                                 (#{gen-labels\ 394}# #{ids\ 3292}#))
+                               (#{new-vars\ 3307}#
+                                 (map #{gen-var\ 489}# #{ids\ 3292}#)))
                            (begin
-                             (let ((#{nw\ 3309}#
-                                     (#{make-binding-wrap\ 422}#
-                                       #{ids\ 3291}#
-                                       #{labels\ 3305}#
-                                       #{w\ 3287}#))
-                                   (#{nr\ 3310}#
-                                     (#{extend-var-env\ 368}#
-                                       #{labels\ 3305}#
-                                       #{new-vars\ 3306}#
-                                       #{r\ 3286}#)))
-                               (#{constructor\ 3290}#
-                                 #{s\ 3288}#
-                                 (map syntax->datum #{ids\ 3291}#)
-                                 #{new-vars\ 3306}#
-                                 (map (lambda (#{x\ 3311}#)
-                                        (#{chi\ 460}#
-                                          #{x\ 3311}#
-                                          #{r\ 3286}#
-                                          #{w\ 3287}#
-                                          #{mod\ 3289}#))
-                                      #{vals\ 3292}#)
-                                 (#{chi-body\ 468}#
-                                   #{exps\ 3293}#
-                                   (#{source-wrap\ 446}#
-                                     #{e\ 3285}#
-                                     #{nw\ 3309}#
-                                     #{s\ 3288}#
-                                     #{mod\ 3289}#)
-                                   #{nr\ 3310}#
-                                   #{nw\ 3309}#
-                                   #{mod\ 3289}#))))))))))
+                             (let ((#{nw\ 3310}#
+                                     (#{make-binding-wrap\ 423}#
+                                       #{ids\ 3292}#
+                                       #{labels\ 3306}#
+                                       #{w\ 3288}#))
+                                   (#{nr\ 3311}#
+                                     (#{extend-var-env\ 369}#
+                                       #{labels\ 3306}#
+                                       #{new-vars\ 3307}#
+                                       #{r\ 3287}#)))
+                               (#{constructor\ 3291}#
+                                 #{s\ 3289}#
+                                 (map syntax->datum #{ids\ 3292}#)
+                                 #{new-vars\ 3307}#
+                                 (map (lambda (#{x\ 3312}#)
+                                        (#{chi\ 461}#
+                                          #{x\ 3312}#
+                                          #{r\ 3287}#
+                                          #{w\ 3288}#
+                                          #{mod\ 3290}#))
+                                      #{vals\ 3293}#)
+                                 (#{chi-body\ 469}#
+                                   #{exps\ 3294}#
+                                   (#{source-wrap\ 447}#
+                                     #{e\ 3286}#
+                                     #{nw\ 3310}#
+                                     #{s\ 3289}#
+                                     #{mod\ 3290}#)
+                                   #{nr\ 3311}#
+                                   #{nw\ 3310}#
+                                   #{mod\ 3290}#))))))))))
                 (begin
-                  (lambda (#{e\ 3313}#
-                           #{r\ 3314}#
-                           #{w\ 3315}#
-                           #{s\ 3316}#
-                           #{mod\ 3317}#)
-                    (let ((#{tmp\ 3323}# #{e\ 3313}#))
-                      (let ((#{tmp\ 3324}#
+                  (lambda (#{e\ 3314}#
+                           #{r\ 3315}#
+                           #{w\ 3316}#
+                           #{s\ 3317}#
+                           #{mod\ 3318}#)
+                    (let ((#{tmp\ 3324}# #{e\ 3314}#))
+                      (let ((#{tmp\ 3325}#
                               ($sc-dispatch
-                                #{tmp\ 3323}#
+                                #{tmp\ 3324}#
                                 '(_ #(each (any any)) any . each-any))))
-                        (if (if #{tmp\ 3324}#
+                        (if (if #{tmp\ 3325}#
                               (@apply
-                                (lambda (#{id\ 3329}#
-                                         #{val\ 3330}#
-                                         #{e1\ 3331}#
-                                         #{e2\ 3332}#)
-                                  (and-map #{id?\ 378}# #{id\ 3329}#))
-                                #{tmp\ 3324}#)
+                                (lambda (#{id\ 3330}#
+                                         #{val\ 3331}#
+                                         #{e1\ 3332}#
+                                         #{e2\ 3333}#)
+                                  (and-map #{id?\ 379}# #{id\ 3330}#))
+                                #{tmp\ 3325}#)
                               #f)
                           (@apply
-                            (lambda (#{id\ 3338}#
-                                     #{val\ 3339}#
-                                     #{e1\ 3340}#
-                                     #{e2\ 3341}#)
-                              (#{chi-let\ 3284}#
-                                #{e\ 3313}#
-                                #{r\ 3314}#
-                                #{w\ 3315}#
-                                #{s\ 3316}#
-                                #{mod\ 3317}#
-                                #{build-let\ 334}#
-                                #{id\ 3338}#
-                                #{val\ 3339}#
-                                (cons #{e1\ 3340}# #{e2\ 3341}#)))
-                            #{tmp\ 3324}#)
-                          (let ((#{tmp\ 3345}#
+                            (lambda (#{id\ 3339}#
+                                     #{val\ 3340}#
+                                     #{e1\ 3341}#
+                                     #{e2\ 3342}#)
+                              (#{chi-let\ 3285}#
+                                #{e\ 3314}#
+                                #{r\ 3315}#
+                                #{w\ 3316}#
+                                #{s\ 3317}#
+                                #{mod\ 3318}#
+                                #{build-let\ 335}#
+                                #{id\ 3339}#
+                                #{val\ 3340}#
+                                (cons #{e1\ 3341}# #{e2\ 3342}#)))
+                            #{tmp\ 3325}#)
+                          (let ((#{tmp\ 3346}#
                                   ($sc-dispatch
-                                    #{tmp\ 3323}#
+                                    #{tmp\ 3324}#
                                     '(_ any
                                         #(each (any any))
                                         any
                                         .
                                         each-any))))
-                            (if (if #{tmp\ 3345}#
+                            (if (if #{tmp\ 3346}#
                                   (@apply
-                                    (lambda (#{f\ 3351}#
-                                             #{id\ 3352}#
-                                             #{val\ 3353}#
-                                             #{e1\ 3354}#
-                                             #{e2\ 3355}#)
-                                      (if (#{id?\ 378}# #{f\ 3351}#)
-                                        (and-map #{id?\ 378}# #{id\ 3352}#)
+                                    (lambda (#{f\ 3352}#
+                                             #{id\ 3353}#
+                                             #{val\ 3354}#
+                                             #{e1\ 3355}#
+                                             #{e2\ 3356}#)
+                                      (if (#{id?\ 379}# #{f\ 3352}#)
+                                        (and-map #{id?\ 379}# #{id\ 3353}#)
                                         #f))
-                                    #{tmp\ 3345}#)
+                                    #{tmp\ 3346}#)
                                   #f)
                               (@apply
-                                (lambda (#{f\ 3364}#
-                                         #{id\ 3365}#
-                                         #{val\ 3366}#
-                                         #{e1\ 3367}#
-                                         #{e2\ 3368}#)
-                                  (#{chi-let\ 3284}#
-                                    #{e\ 3313}#
-                                    #{r\ 3314}#
-                                    #{w\ 3315}#
-                                    #{s\ 3316}#
-                                    #{mod\ 3317}#
-                                    #{build-named-let\ 336}#
-                                    (cons #{f\ 3364}# #{id\ 3365}#)
-                                    #{val\ 3366}#
-                                    (cons #{e1\ 3367}# #{e2\ 3368}#)))
-                                #{tmp\ 3345}#)
-                              (let ((#{_\ 3373}# #{tmp\ 3323}#))
+                                (lambda (#{f\ 3365}#
+                                         #{id\ 3366}#
+                                         #{val\ 3367}#
+                                         #{e1\ 3368}#
+                                         #{e2\ 3369}#)
+                                  (#{chi-let\ 3285}#
+                                    #{e\ 3314}#
+                                    #{r\ 3315}#
+                                    #{w\ 3316}#
+                                    #{s\ 3317}#
+                                    #{mod\ 3318}#
+                                    #{build-named-let\ 337}#
+                                    (cons #{f\ 3365}# #{id\ 3366}#)
+                                    #{val\ 3367}#
+                                    (cons #{e1\ 3368}# #{e2\ 3369}#)))
+                                #{tmp\ 3346}#)
+                              (let ((#{_\ 3374}# #{tmp\ 3324}#))
                                 (syntax-violation
                                   'let
                                   "bad let"
-                                  (#{source-wrap\ 446}#
-                                    #{e\ 3313}#
-                                    #{w\ 3315}#
-                                    #{s\ 3316}#
-                                    #{mod\ 3317}#))))))))))))
-            (#{global-extend\ 374}#
+                                  (#{source-wrap\ 447}#
+                                    #{e\ 3314}#
+                                    #{w\ 3316}#
+                                    #{s\ 3317}#
+                                    #{mod\ 3318}#))))))))))))
+            (#{global-extend\ 375}#
               'core
               'letrec
-              (lambda (#{e\ 3374}#
-                       #{r\ 3375}#
-                       #{w\ 3376}#
-                       #{s\ 3377}#
-                       #{mod\ 3378}#)
-                (let ((#{tmp\ 3384}# #{e\ 3374}#))
-                  (let ((#{tmp\ 3385}#
+              (lambda (#{e\ 3375}#
+                       #{r\ 3376}#
+                       #{w\ 3377}#
+                       #{s\ 3378}#
+                       #{mod\ 3379}#)
+                (let ((#{tmp\ 3385}# #{e\ 3375}#))
+                  (let ((#{tmp\ 3386}#
                           ($sc-dispatch
-                            #{tmp\ 3384}#
+                            #{tmp\ 3385}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if (if #{tmp\ 3385}#
+                    (if (if #{tmp\ 3386}#
                           (@apply
-                            (lambda (#{id\ 3390}#
-                                     #{val\ 3391}#
-                                     #{e1\ 3392}#
-                                     #{e2\ 3393}#)
-                              (and-map #{id?\ 378}# #{id\ 3390}#))
-                            #{tmp\ 3385}#)
+                            (lambda (#{id\ 3391}#
+                                     #{val\ 3392}#
+                                     #{e1\ 3393}#
+                                     #{e2\ 3394}#)
+                              (and-map #{id?\ 379}# #{id\ 3391}#))
+                            #{tmp\ 3386}#)
                           #f)
                       (@apply
-                        (lambda (#{id\ 3399}#
-                                 #{val\ 3400}#
-                                 #{e1\ 3401}#
-                                 #{e2\ 3402}#)
+                        (lambda (#{id\ 3400}#
+                                 #{val\ 3401}#
+                                 #{e1\ 3402}#
+                                 #{e2\ 3403}#)
                           (begin
-                            (let ((#{ids\ 3404}# #{id\ 3399}#))
-                              (if (not (#{valid-bound-ids?\ 438}#
-                                         #{ids\ 3404}#))
+                            (let ((#{ids\ 3405}# #{id\ 3400}#))
+                              (if (not (#{valid-bound-ids?\ 439}#
+                                         #{ids\ 3405}#))
                                 (syntax-violation
                                   'letrec
                                   "duplicate bound variable"
-                                  #{e\ 3374}#)
+                                  #{e\ 3375}#)
                                 (begin
-                                  (let ((#{labels\ 3408}#
-                                          (#{gen-labels\ 393}# #{ids\ 3404}#))
-                                        (#{new-vars\ 3409}#
-                                          (map #{gen-var\ 488}#
-                                               #{ids\ 3404}#)))
+                                  (let ((#{labels\ 3409}#
+                                          (#{gen-labels\ 394}# #{ids\ 3405}#))
+                                        (#{new-vars\ 3410}#
+                                          (map #{gen-var\ 489}#
+                                               #{ids\ 3405}#)))
                                     (begin
-                                      (let ((#{w\ 3412}#
-                                              (#{make-binding-wrap\ 422}#
-                                                #{ids\ 3404}#
-                                                #{labels\ 3408}#
-                                                #{w\ 3376}#))
-                                            (#{r\ 3413}#
-                                              (#{extend-var-env\ 368}#
-                                                #{labels\ 3408}#
-                                                #{new-vars\ 3409}#
-                                                #{r\ 3375}#)))
-                                        (#{build-letrec\ 338}#
-                                          #{s\ 3377}#
+                                      (let ((#{w\ 3413}#
+                                              (#{make-binding-wrap\ 423}#
+                                                #{ids\ 3405}#
+                                                #{labels\ 3409}#
+                                                #{w\ 3377}#))
+                                            (#{r\ 3414}#
+                                              (#{extend-var-env\ 369}#
+                                                #{labels\ 3409}#
+                                                #{new-vars\ 3410}#
+                                                #{r\ 3376}#)))
+                                        (#{build-letrec\ 339}#
+                                          #{s\ 3378}#
                                           #f
-                                          (map syntax->datum #{ids\ 3404}#)
-                                          #{new-vars\ 3409}#
-                                          (map (lambda (#{x\ 3414}#)
-                                                 (#{chi\ 460}#
-                                                   #{x\ 3414}#
-                                                   #{r\ 3413}#
-                                                   #{w\ 3412}#
-                                                   #{mod\ 3378}#))
-                                               #{val\ 3400}#)
-                                          (#{chi-body\ 468}#
-                                            (cons #{e1\ 3401}# #{e2\ 3402}#)
-                                            (#{source-wrap\ 446}#
-                                              #{e\ 3374}#
-                                              #{w\ 3412}#
-                                              #{s\ 3377}#
-                                              #{mod\ 3378}#)
-                                            #{r\ 3413}#
-                                            #{w\ 3412}#
-                                            #{mod\ 3378}#))))))))))
-                        #{tmp\ 3385}#)
-                      (let ((#{_\ 3419}# #{tmp\ 3384}#))
+                                          (map syntax->datum #{ids\ 3405}#)
+                                          #{new-vars\ 3410}#
+                                          (map (lambda (#{x\ 3415}#)
+                                                 (#{chi\ 461}#
+                                                   #{x\ 3415}#
+                                                   #{r\ 3414}#
+                                                   #{w\ 3413}#
+                                                   #{mod\ 3379}#))
+                                               #{val\ 3401}#)
+                                          (#{chi-body\ 469}#
+                                            (cons #{e1\ 3402}# #{e2\ 3403}#)
+                                            (#{source-wrap\ 447}#
+                                              #{e\ 3375}#
+                                              #{w\ 3413}#
+                                              #{s\ 3378}#
+                                              #{mod\ 3379}#)
+                                            #{r\ 3414}#
+                                            #{w\ 3413}#
+                                            #{mod\ 3379}#))))))))))
+                        #{tmp\ 3386}#)
+                      (let ((#{_\ 3420}# #{tmp\ 3385}#))
                         (syntax-violation
                           'letrec
                           "bad letrec"
-                          (#{source-wrap\ 446}#
-                            #{e\ 3374}#
-                            #{w\ 3376}#
-                            #{s\ 3377}#
-                            #{mod\ 3378}#))))))))
-            (#{global-extend\ 374}#
+                          (#{source-wrap\ 447}#
+                            #{e\ 3375}#
+                            #{w\ 3377}#
+                            #{s\ 3378}#
+                            #{mod\ 3379}#))))))))
+            (#{global-extend\ 375}#
               'core
               'letrec*
-              (lambda (#{e\ 3420}#
-                       #{r\ 3421}#
-                       #{w\ 3422}#
-                       #{s\ 3423}#
-                       #{mod\ 3424}#)
-                (let ((#{tmp\ 3430}# #{e\ 3420}#))
-                  (let ((#{tmp\ 3431}#
+              (lambda (#{e\ 3421}#
+                       #{r\ 3422}#
+                       #{w\ 3423}#
+                       #{s\ 3424}#
+                       #{mod\ 3425}#)
+                (let ((#{tmp\ 3431}# #{e\ 3421}#))
+                  (let ((#{tmp\ 3432}#
                           ($sc-dispatch
-                            #{tmp\ 3430}#
+                            #{tmp\ 3431}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if (if #{tmp\ 3431}#
+                    (if (if #{tmp\ 3432}#
                           (@apply
-                            (lambda (#{id\ 3436}#
-                                     #{val\ 3437}#
-                                     #{e1\ 3438}#
-                                     #{e2\ 3439}#)
-                              (and-map #{id?\ 378}# #{id\ 3436}#))
-                            #{tmp\ 3431}#)
+                            (lambda (#{id\ 3437}#
+                                     #{val\ 3438}#
+                                     #{e1\ 3439}#
+                                     #{e2\ 3440}#)
+                              (and-map #{id?\ 379}# #{id\ 3437}#))
+                            #{tmp\ 3432}#)
                           #f)
                       (@apply
-                        (lambda (#{id\ 3445}#
-                                 #{val\ 3446}#
-                                 #{e1\ 3447}#
-                                 #{e2\ 3448}#)
+                        (lambda (#{id\ 3446}#
+                                 #{val\ 3447}#
+                                 #{e1\ 3448}#
+                                 #{e2\ 3449}#)
                           (begin
-                            (let ((#{ids\ 3450}# #{id\ 3445}#))
-                              (if (not (#{valid-bound-ids?\ 438}#
-                                         #{ids\ 3450}#))
+                            (let ((#{ids\ 3451}# #{id\ 3446}#))
+                              (if (not (#{valid-bound-ids?\ 439}#
+                                         #{ids\ 3451}#))
                                 (syntax-violation
                                   'letrec*
                                   "duplicate bound variable"
-                                  #{e\ 3420}#)
+                                  #{e\ 3421}#)
                                 (begin
-                                  (let ((#{labels\ 3454}#
-                                          (#{gen-labels\ 393}# #{ids\ 3450}#))
-                                        (#{new-vars\ 3455}#
-                                          (map #{gen-var\ 488}#
-                                               #{ids\ 3450}#)))
+                                  (let ((#{labels\ 3455}#
+                                          (#{gen-labels\ 394}# #{ids\ 3451}#))
+                                        (#{new-vars\ 3456}#
+                                          (map #{gen-var\ 489}#
+                                               #{ids\ 3451}#)))
                                     (begin
-                                      (let ((#{w\ 3458}#
-                                              (#{make-binding-wrap\ 422}#
-                                                #{ids\ 3450}#
-                                                #{labels\ 3454}#
-                                                #{w\ 3422}#))
-                                            (#{r\ 3459}#
-                                              (#{extend-var-env\ 368}#
-                                                #{labels\ 3454}#
-                                                #{new-vars\ 3455}#
-                                                #{r\ 3421}#)))
-                                        (#{build-letrec\ 338}#
-                                          #{s\ 3423}#
+                                      (let ((#{w\ 3459}#
+                                              (#{make-binding-wrap\ 423}#
+                                                #{ids\ 3451}#
+                                                #{labels\ 3455}#
+                                                #{w\ 3423}#))
+                                            (#{r\ 3460}#
+                                              (#{extend-var-env\ 369}#
+                                                #{labels\ 3455}#
+                                                #{new-vars\ 3456}#
+                                                #{r\ 3422}#)))
+                                        (#{build-letrec\ 339}#
+                                          #{s\ 3424}#
                                           #t
-                                          (map syntax->datum #{ids\ 3450}#)
-                                          #{new-vars\ 3455}#
-                                          (map (lambda (#{x\ 3460}#)
-                                                 (#{chi\ 460}#
-                                                   #{x\ 3460}#
-                                                   #{r\ 3459}#
-                                                   #{w\ 3458}#
-                                                   #{mod\ 3424}#))
-                                               #{val\ 3446}#)
-                                          (#{chi-body\ 468}#
-                                            (cons #{e1\ 3447}# #{e2\ 3448}#)
-                                            (#{source-wrap\ 446}#
-                                              #{e\ 3420}#
-                                              #{w\ 3458}#
-                                              #{s\ 3423}#
-                                              #{mod\ 3424}#)
-                                            #{r\ 3459}#
-                                            #{w\ 3458}#
-                                            #{mod\ 3424}#))))))))))
-                        #{tmp\ 3431}#)
-                      (let ((#{_\ 3465}# #{tmp\ 3430}#))
+                                          (map syntax->datum #{ids\ 3451}#)
+                                          #{new-vars\ 3456}#
+                                          (map (lambda (#{x\ 3461}#)
+                                                 (#{chi\ 461}#
+                                                   #{x\ 3461}#
+                                                   #{r\ 3460}#
+                                                   #{w\ 3459}#
+                                                   #{mod\ 3425}#))
+                                               #{val\ 3447}#)
+                                          (#{chi-body\ 469}#
+                                            (cons #{e1\ 3448}# #{e2\ 3449}#)
+                                            (#{source-wrap\ 447}#
+                                              #{e\ 3421}#
+                                              #{w\ 3459}#
+                                              #{s\ 3424}#
+                                              #{mod\ 3425}#)
+                                            #{r\ 3460}#
+                                            #{w\ 3459}#
+                                            #{mod\ 3425}#))))))))))
+                        #{tmp\ 3432}#)
+                      (let ((#{_\ 3466}# #{tmp\ 3431}#))
                         (syntax-violation
                           'letrec*
                           "bad letrec*"
-                          (#{source-wrap\ 446}#
-                            #{e\ 3420}#
-                            #{w\ 3422}#
-                            #{s\ 3423}#
-                            #{mod\ 3424}#))))))))
-            (#{global-extend\ 374}#
+                          (#{source-wrap\ 447}#
+                            #{e\ 3421}#
+                            #{w\ 3423}#
+                            #{s\ 3424}#
+                            #{mod\ 3425}#))))))))
+            (#{global-extend\ 375}#
               'core
               'set!
-              (lambda (#{e\ 3466}#
-                       #{r\ 3467}#
-                       #{w\ 3468}#
-                       #{s\ 3469}#
-                       #{mod\ 3470}#)
-                (let ((#{tmp\ 3476}# #{e\ 3466}#))
-                  (let ((#{tmp\ 3477}#
-                          ($sc-dispatch #{tmp\ 3476}# (quote (_ any any)))))
-                    (if (if #{tmp\ 3477}#
+              (lambda (#{e\ 3467}#
+                       #{r\ 3468}#
+                       #{w\ 3469}#
+                       #{s\ 3470}#
+                       #{mod\ 3471}#)
+                (let ((#{tmp\ 3477}# #{e\ 3467}#))
+                  (let ((#{tmp\ 3478}#
+                          ($sc-dispatch #{tmp\ 3477}# '(_ any any))))
+                    (if (if #{tmp\ 3478}#
                           (@apply
-                            (lambda (#{id\ 3480}# #{val\ 3481}#)
-                              (#{id?\ 378}# #{id\ 3480}#))
-                            #{tmp\ 3477}#)
+                            (lambda (#{id\ 3481}# #{val\ 3482}#)
+                              (#{id?\ 379}# #{id\ 3481}#))
+                            #{tmp\ 3478}#)
                           #f)
                       (@apply
-                        (lambda (#{id\ 3484}# #{val\ 3485}#)
+                        (lambda (#{id\ 3485}# #{val\ 3486}#)
                           (begin
-                            (let ((#{n\ 3488}#
-                                    (#{id-var-name\ 432}#
-                                      #{id\ 3484}#
-                                      #{w\ 3468}#))
-                                  (#{id-mod\ 3489}#
-                                    (if (#{syntax-object?\ 344}# #{id\ 3484}#)
-                                      (#{syntax-object-module\ 350}#
-                                        #{id\ 3484}#)
-                                      #{mod\ 3470}#)))
+                            (let ((#{n\ 3489}#
+                                    (#{id-var-name\ 433}#
+                                      #{id\ 3485}#
+                                      #{w\ 3469}#))
+                                  (#{id-mod\ 3490}#
+                                    (if (#{syntax-object?\ 345}# #{id\ 3485}#)
+                                      (#{syntax-object-module\ 351}#
+                                        #{id\ 3485}#)
+                                      #{mod\ 3471}#)))
                               (begin
-                                (let ((#{b\ 3491}#
-                                        (#{lookup\ 372}#
-                                          #{n\ 3488}#
-                                          #{r\ 3467}#
-                                          #{id-mod\ 3489}#)))
+                                (let ((#{b\ 3492}#
+                                        (#{lookup\ 373}#
+                                          #{n\ 3489}#
+                                          #{r\ 3468}#
+                                          #{id-mod\ 3490}#)))
                                   (begin
-                                    (let ((#{atom-key\ 3494}#
-                                            (car #{b\ 3491}#)))
-                                      (if (eqv? #{atom-key\ 3494}#
-                                                'lexical)
-                                        (#{build-lexical-assignment\ 312}#
-                                          #{s\ 3469}#
-                                          (syntax->datum #{id\ 3484}#)
-                                          (cdr #{b\ 3491}#)
-                                          (#{chi\ 460}#
-                                            #{val\ 3485}#
-                                            #{r\ 3467}#
-                                            #{w\ 3468}#
-                                            #{mod\ 3470}#))
-                                        (if (eqv? #{atom-key\ 3494}#
-                                                  'global)
-                                          (#{build-global-assignment\ 318}#
-                                            #{s\ 3469}#
-                                            #{n\ 3488}#
-                                            (#{chi\ 460}#
-                                              #{val\ 3485}#
-                                              #{r\ 3467}#
-                                              #{w\ 3468}#
-                                              #{mod\ 3470}#)
-                                            #{id-mod\ 3489}#)
-                                          (if (eqv? #{atom-key\ 3494}#
-                                                    'macro)
+                                    (let ((#{atom-key\ 3495}#
+                                            (car #{b\ 3492}#)))
+                                      (if (eqv? #{atom-key\ 3495}# 'lexical)
+                                        (#{build-lexical-assignment\ 313}#
+                                          #{s\ 3470}#
+                                          (syntax->datum #{id\ 3485}#)
+                                          (cdr #{b\ 3492}#)
+                                          (#{chi\ 461}#
+                                            #{val\ 3486}#
+                                            #{r\ 3468}#
+                                            #{w\ 3469}#
+                                            #{mod\ 3471}#))
+                                        (if (eqv? #{atom-key\ 3495}# 'global)
+                                          (#{build-global-assignment\ 319}#
+                                            #{s\ 3470}#
+                                            #{n\ 3489}#
+                                            (#{chi\ 461}#
+                                              #{val\ 3486}#
+                                              #{r\ 3468}#
+                                              #{w\ 3469}#
+                                              #{mod\ 3471}#)
+                                            #{id-mod\ 3490}#)
+                                          (if (eqv? #{atom-key\ 3495}# 'macro)
                                             (begin
-                                              (let ((#{p\ 3501}#
-                                                      (cdr #{b\ 3491}#)))
+                                              (let ((#{p\ 3502}#
+                                                      (cdr #{b\ 3492}#)))
                                                 (if (procedure-property
-                                                      #{p\ 3501}#
+                                                      #{p\ 3502}#
                                                       'variable-transformer)
-                                                  (#{chi\ 460}#
-                                                    (#{chi-macro\ 466}#
-                                                      #{p\ 3501}#
-                                                      #{e\ 3466}#
-                                                      #{r\ 3467}#
-                                                      #{w\ 3468}#
-                                                      #{s\ 3469}#
+                                                  (#{chi\ 461}#
+                                                    (#{chi-macro\ 467}#
+                                                      #{p\ 3502}#
+                                                      #{e\ 3467}#
+                                                      #{r\ 3468}#
+                                                      #{w\ 3469}#
+                                                      #{s\ 3470}#
                                                       #f
-                                                      #{mod\ 3470}#)
-                                                    #{r\ 3467}#
+                                                      #{mod\ 3471}#)
+                                                    #{r\ 3468}#
                                                     '(())
-                                                    #{mod\ 3470}#)
+                                                    #{mod\ 3471}#)
                                                   (syntax-violation
                                                     'set!
                                                     "not a variable 
transformer"
-                                                    (#{wrap\ 444}#
-                                                      #{e\ 3466}#
-                                                      #{w\ 3468}#
-                                                      #{mod\ 3470}#)
-                                                    (#{wrap\ 444}#
-                                                      #{id\ 3484}#
-                                                      #{w\ 3468}#
-                                                      #{id-mod\ 3489}#)))))
-                                            (if (eqv? #{atom-key\ 3494}#
+                                                    (#{wrap\ 445}#
+                                                      #{e\ 3467}#
+                                                      #{w\ 3469}#
+                                                      #{mod\ 3471}#)
+                                                    (#{wrap\ 445}#
+                                                      #{id\ 3485}#
+                                                      #{w\ 3469}#
+                                                      #{id-mod\ 3490}#)))))
+                                            (if (eqv? #{atom-key\ 3495}#
                                                       'displaced-lexical)
                                               (syntax-violation
                                                 'set!
                                                 "identifier out of context"
-                                                (#{wrap\ 444}#
-                                                  #{id\ 3484}#
-                                                  #{w\ 3468}#
-                                                  #{mod\ 3470}#))
+                                                (#{wrap\ 445}#
+                                                  #{id\ 3485}#
+                                                  #{w\ 3469}#
+                                                  #{mod\ 3471}#))
                                               (syntax-violation
                                                 'set!
                                                 "bad set!"
-                                                (#{source-wrap\ 446}#
-                                                  #{e\ 3466}#
-                                                  #{w\ 3468}#
-                                                  #{s\ 3469}#
-                                                  #{mod\ 3470}#)))))))))))))
-                        #{tmp\ 3477}#)
-                      (let ((#{tmp\ 3506}#
+                                                (#{source-wrap\ 447}#
+                                                  #{e\ 3467}#
+                                                  #{w\ 3469}#
+                                                  #{s\ 3470}#
+                                                  #{mod\ 3471}#)))))))))))))
+                        #{tmp\ 3478}#)
+                      (let ((#{tmp\ 3507}#
                               ($sc-dispatch
-                                #{tmp\ 3476}#
+                                #{tmp\ 3477}#
                                 '(_ (any . each-any) any))))
-                        (if #{tmp\ 3506}#
+                        (if #{tmp\ 3507}#
                           (@apply
-                            (lambda (#{head\ 3510}#
-                                     #{tail\ 3511}#
-                                     #{val\ 3512}#)
+                            (lambda (#{head\ 3511}#
+                                     #{tail\ 3512}#
+                                     #{val\ 3513}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{syntax-type\ 456}#
-                                    #{head\ 3510}#
-                                    #{r\ 3467}#
+                                  (#{syntax-type\ 457}#
+                                    #{head\ 3511}#
+                                    #{r\ 3468}#
                                     '(())
                                     #f
                                     #f
-                                    #{mod\ 3470}#
+                                    #{mod\ 3471}#
                                     #t))
-                                (lambda (#{type\ 3515}#
-                                         #{value\ 3516}#
-                                         #{ee\ 3517}#
-                                         #{ww\ 3518}#
-                                         #{ss\ 3519}#
-                                         #{modmod\ 3520}#)
-                                  (if (eqv? #{type\ 3515}# (quote module-ref))
+                                (lambda (#{type\ 3516}#
+                                         #{value\ 3517}#
+                                         #{ee\ 3518}#
+                                         #{ww\ 3519}#
+                                         #{ss\ 3520}#
+                                         #{modmod\ 3521}#)
+                                  (if (eqv? #{type\ 3516}# 'module-ref)
                                     (begin
-                                      (let ((#{val\ 3529}#
-                                              (#{chi\ 460}#
-                                                #{val\ 3512}#
-                                                #{r\ 3467}#
-                                                #{w\ 3468}#
-                                                #{mod\ 3470}#)))
+                                      (let ((#{val\ 3530}#
+                                              (#{chi\ 461}#
+                                                #{val\ 3513}#
+                                                #{r\ 3468}#
+                                                #{w\ 3469}#
+                                                #{mod\ 3471}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 3516}#
-                                              (cons #{head\ 3510}#
-                                                    #{tail\ 3511}#)
-                                              #{r\ 3467}#
-                                              #{w\ 3468}#))
-                                          (lambda (#{e\ 3531}#
-                                                   #{r\ 3532}#
-                                                   #{w\ 3533}#
-                                                   #{s*\ 3534}#
-                                                   #{mod\ 3535}#)
-                                            (let ((#{tmp\ 3541}# #{e\ 3531}#))
-                                              (let ((#{tmp\ 3542}#
-                                                      (list #{tmp\ 3541}#)))
-                                                (if (if #{tmp\ 3542}#
+                                            (#{value\ 3517}#
+                                              (cons #{head\ 3511}#
+                                                    #{tail\ 3512}#)
+                                              #{r\ 3468}#
+                                              #{w\ 3469}#))
+                                          (lambda (#{e\ 3532}#
+                                                   #{r\ 3533}#
+                                                   #{w\ 3534}#
+                                                   #{s*\ 3535}#
+                                                   #{mod\ 3536}#)
+                                            (let ((#{tmp\ 3542}# #{e\ 3532}#))
+                                              (let ((#{tmp\ 3543}#
+                                                      (list #{tmp\ 3542}#)))
+                                                (if (if #{tmp\ 3543}#
                                                       (@apply
-                                                        (lambda (#{e\ 3544}#)
-                                                          (#{id?\ 378}#
-                                                            #{e\ 3544}#))
-                                                        #{tmp\ 3542}#)
+                                                        (lambda (#{e\ 3545}#)
+                                                          (#{id?\ 379}#
+                                                            #{e\ 3545}#))
+                                                        #{tmp\ 3543}#)
                                                       #f)
                                                   (@apply
-                                                    (lambda (#{e\ 3546}#)
-                                                      
(#{build-global-assignment\ 318}#
-                                                        #{s\ 3469}#
+                                                    (lambda (#{e\ 3547}#)
+                                                      
(#{build-global-assignment\ 319}#
+                                                        #{s\ 3470}#
                                                         (syntax->datum
-                                                          #{e\ 3546}#)
-                                                        #{val\ 3529}#
-                                                        #{mod\ 3535}#))
-                                                    #{tmp\ 3542}#)
+                                                          #{e\ 3547}#)
+                                                        #{val\ 3530}#
+                                                        #{mod\ 3536}#))
+                                                    #{tmp\ 3543}#)
                                                   (syntax-violation
                                                     #f
                                                     "source expression failed 
to match any pattern"
-                                                    #{tmp\ 3541}#))))))))
-                                    (#{build-application\ 304}#
-                                      #{s\ 3469}#
-                                      (#{chi\ 460}#
+                                                    #{tmp\ 3542}#))))))))
+                                    (#{build-application\ 305}#
+                                      #{s\ 3470}#
+                                      (#{chi\ 461}#
                                         (list '#(syntax-object
                                                  setter
                                                  ((top)
@@ -10250,16 +10191,16 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                    #("i3521"
-                                                      "i3522"
+                                                    #("i3522"
                                                       "i3523"
                                                       "i3524"
                                                       "i3525"
-                                                      "i3526"))
+                                                      "i3526"
+                                                      "i3527"))
                                                   #(ribcage
                                                     #(head tail val)
                                                     #((top) (top) (top))
-                                                    #("i3507" "i3508" "i3509"))
+                                                    #("i3508" "i3509" "i3510"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e r w s mod)
@@ -10268,11 +10209,11 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                    #("i3471"
-                                                      "i3472"
+                                                    #("i3472"
                                                       "i3473"
                                                       "i3474"
-                                                      "i3475"))
+                                                      "i3475"
+                                                      "i3476"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -10548,58 +10489,59 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("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"
-                                                     "i423"
-                                                     "i421"
+                                                    ("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"
+                                                     "i422"
+                                                     "i420"
                                                      "i419"
                                                      "i418"
-                                                     "i417"
+                                                     "i416"
                                                      "i415"
                                                      "i414"
                                                      "i413"
                                                      "i412"
-                                                     "i411"
-                                                     "i409"
-                                                     "i407"
-                                                     "i405"
-                                                     "i403"
-                                                     "i401"
-                                                     "i399"
-                                                     "i397"
-                                                     "i395"
-                                                     "i392"
+                                                     "i410"
+                                                     "i408"
+                                                     "i406"
+                                                     "i404"
+                                                     "i402"
+                                                     "i400"
+                                                     "i398"
+                                                     "i396"
+                                                     "i393"
+                                                     "i391"
                                                      "i390"
                                                      "i389"
                                                      "i388"
@@ -10608,137 +10550,134 @@
                                                      "i385"
                                                      "i384"
                                                      "i383"
-                                                     "i382"
+                                                     "i381"
                                                      "i380"
-                                                     "i379"
-                                                     "i377"
-                                                     "i375"
-                                                     "i373"
-                                                     "i371"
-                                                     "i369"
-                                                     "i367"
+                                                     "i378"
+                                                     "i376"
+                                                     "i374"
+                                                     "i372"
+                                                     "i370"
+                                                     "i368"
+                                                     "i366"
                                                      "i365"
                                                      "i364"
                                                      "i363"
                                                      "i362"
                                                      "i361"
-                                                     "i360"
+                                                     "i359"
                                                      "i358"
-                                                     "i357"
-                                                     "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"
+                                                     "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"
                                                      "i293"
-                                                     "i292"
-                                                     "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"))
+                                                     "i291"
+                                                     "i289"
+                                                     "i287"
+                                                     "i285"
+                                                     "i283"
+                                                     "i281"
+                                                     "i279"
+                                                     "i277"
+                                                     "i275"
+                                                     "i272"
+                                                     "i270"
+                                                     "i268"
+                                                     "i266"
+                                                     "i264"
+                                                     "i262"
+                                                     "i260"
+                                                     "i258"
+                                                     "i256"
+                                                     "i254"
+                                                     "i252"
+                                                     "i250"
+                                                     "i248"
+                                                     "i246"
+                                                     "i244"
+                                                     "i242"
+                                                     "i240"
+                                                     "i238"))
                                                   #(ribcage
                                                     (define-structure
                                                       
define-expansion-accessors
                                                       
define-expansion-constructors
                                                       and-map*)
                                                     ((top) (top) (top) (top))
-                                                    ("i39" "i38" "i37" "i35")))
+                                                    ("i40" "i39" "i38" "i36")))
                                                  (hygiene guile))
-                                              #{head\ 3510}#)
-                                        #{r\ 3467}#
-                                        #{w\ 3468}#
-                                        #{mod\ 3470}#)
-                                      (map (lambda (#{e\ 3548}#)
-                                             (#{chi\ 460}#
-                                               #{e\ 3548}#
-                                               #{r\ 3467}#
-                                               #{w\ 3468}#
-                                               #{mod\ 3470}#))
+                                              #{head\ 3511}#)
+                                        #{r\ 3468}#
+                                        #{w\ 3469}#
+                                        #{mod\ 3471}#)
+                                      (map (lambda (#{e\ 3549}#)
+                                             (#{chi\ 461}#
+                                               #{e\ 3549}#
+                                               #{r\ 3468}#
+                                               #{w\ 3469}#
+                                               #{mod\ 3471}#))
                                            (append
-                                             #{tail\ 3511}#
-                                             (list #{val\ 3512}#))))))))
-                            #{tmp\ 3506}#)
-                          (let ((#{_\ 3552}# #{tmp\ 3476}#))
+                                             #{tail\ 3512}#
+                                             (list #{val\ 3513}#))))))))
+                            #{tmp\ 3507}#)
+                          (let ((#{_\ 3553}# #{tmp\ 3477}#))
                             (syntax-violation
                               'set!
                               "bad set!"
-                              (#{source-wrap\ 446}#
-                                #{e\ 3466}#
-                                #{w\ 3468}#
-                                #{s\ 3469}#
-                                #{mod\ 3470}#))))))))))
-            (#{global-extend\ 374}#
+                              (#{source-wrap\ 447}#
+                                #{e\ 3467}#
+                                #{w\ 3469}#
+                                #{s\ 3470}#
+                                #{mod\ 3471}#))))))))))
+            (#{global-extend\ 375}#
               'module-ref
               '@
-              (lambda (#{e\ 3553}# #{r\ 3554}# #{w\ 3555}#)
-                (let ((#{tmp\ 3559}# #{e\ 3553}#))
-                  (let ((#{tmp\ 3560}#
-                          ($sc-dispatch
-                            #{tmp\ 3559}#
-                            '(_ each-any any))))
-                    (if (if #{tmp\ 3560}#
+              (lambda (#{e\ 3554}# #{r\ 3555}# #{w\ 3556}#)
+                (let ((#{tmp\ 3560}# #{e\ 3554}#))
+                  (let ((#{tmp\ 3561}#
+                          ($sc-dispatch #{tmp\ 3560}# '(_ each-any any))))
+                    (if (if #{tmp\ 3561}#
                           (@apply
-                            (lambda (#{mod\ 3563}# #{id\ 3564}#)
-                              (if (and-map #{id?\ 378}# #{mod\ 3563}#)
-                                (#{id?\ 378}# #{id\ 3564}#)
+                            (lambda (#{mod\ 3564}# #{id\ 3565}#)
+                              (if (and-map #{id?\ 379}# #{mod\ 3564}#)
+                                (#{id?\ 379}# #{id\ 3565}#)
                                 #f))
-                            #{tmp\ 3560}#)
+                            #{tmp\ 3561}#)
                           #f)
                       (@apply
-                        (lambda (#{mod\ 3570}# #{id\ 3571}#)
+                        (lambda (#{mod\ 3571}# #{id\ 3572}#)
                           (values
-                            (syntax->datum #{id\ 3571}#)
-                            #{r\ 3554}#
-                            #{w\ 3555}#
+                            (syntax->datum #{id\ 3572}#)
+                            #{r\ 3555}#
+                            #{w\ 3556}#
                             #f
                             (syntax->datum
                               (cons '#(syntax-object
@@ -10747,12 +10686,12 @@
                                         #(ribcage
                                           #(mod id)
                                           #((top) (top))
-                                          #("i3568" "i3569"))
+                                          #("i3569" "i3570"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(e r w)
                                           #((top) (top) (top))
-                                          #("i3556" "i3557" "i3558"))
+                                          #("i3557" "i3558" "i3559"))
                                         #(ribcage
                                           (lambda-var-list
                                             gen-var
@@ -11028,58 +10967,59 @@
                                            (top)
                                            (top)
                                            (top))
-                                          ("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"
-                                           "i423"
-                                           "i421"
+                                          ("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"
+                                           "i422"
+                                           "i420"
                                            "i419"
                                            "i418"
-                                           "i417"
+                                           "i416"
                                            "i415"
                                            "i414"
                                            "i413"
                                            "i412"
-                                           "i411"
-                                           "i409"
-                                           "i407"
-                                           "i405"
-                                           "i403"
-                                           "i401"
-                                           "i399"
-                                           "i397"
-                                           "i395"
-                                           "i392"
+                                           "i410"
+                                           "i408"
+                                           "i406"
+                                           "i404"
+                                           "i402"
+                                           "i400"
+                                           "i398"
+                                           "i396"
+                                           "i393"
+                                           "i391"
                                            "i390"
                                            "i389"
                                            "i388"
@@ -11088,162 +11028,159 @@
                                            "i385"
                                            "i384"
                                            "i383"
-                                           "i382"
+                                           "i381"
                                            "i380"
-                                           "i379"
-                                           "i377"
-                                           "i375"
-                                           "i373"
-                                           "i371"
-                                           "i369"
-                                           "i367"
+                                           "i378"
+                                           "i376"
+                                           "i374"
+                                           "i372"
+                                           "i370"
+                                           "i368"
+                                           "i366"
                                            "i365"
                                            "i364"
                                            "i363"
                                            "i362"
                                            "i361"
-                                           "i360"
+                                           "i359"
                                            "i358"
-                                           "i357"
-                                           "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"
+                                           "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"
                                            "i293"
-                                           "i292"
-                                           "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"))
+                                           "i291"
+                                           "i289"
+                                           "i287"
+                                           "i285"
+                                           "i283"
+                                           "i281"
+                                           "i279"
+                                           "i277"
+                                           "i275"
+                                           "i272"
+                                           "i270"
+                                           "i268"
+                                           "i266"
+                                           "i264"
+                                           "i262"
+                                           "i260"
+                                           "i258"
+                                           "i256"
+                                           "i254"
+                                           "i252"
+                                           "i250"
+                                           "i248"
+                                           "i246"
+                                           "i244"
+                                           "i242"
+                                           "i240"
+                                           "i238"))
                                         #(ribcage
                                           (define-structure
                                             define-expansion-accessors
                                             define-expansion-constructors
                                             and-map*)
                                           ((top) (top) (top) (top))
-                                          ("i39" "i38" "i37" "i35")))
+                                          ("i40" "i39" "i38" "i36")))
                                        (hygiene guile))
-                                    #{mod\ 3570}#))))
-                        #{tmp\ 3560}#)
+                                    #{mod\ 3571}#))))
+                        #{tmp\ 3561}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 3559}#))))))
-            (#{global-extend\ 374}#
+                        #{tmp\ 3560}#))))))
+            (#{global-extend\ 375}#
               'module-ref
               '@@
-              (lambda (#{e\ 3573}# #{r\ 3574}# #{w\ 3575}#)
+              (lambda (#{e\ 3574}# #{r\ 3575}# #{w\ 3576}#)
                 (letrec*
-                  ((#{remodulate\ 3580}#
-                     (lambda (#{x\ 3581}# #{mod\ 3582}#)
-                       (if (pair? #{x\ 3581}#)
-                         (cons (#{remodulate\ 3580}#
-                                 (car #{x\ 3581}#)
-                                 #{mod\ 3582}#)
-                               (#{remodulate\ 3580}#
-                                 (cdr #{x\ 3581}#)
-                                 #{mod\ 3582}#))
-                         (if (#{syntax-object?\ 344}# #{x\ 3581}#)
-                           (#{make-syntax-object\ 342}#
-                             (#{remodulate\ 3580}#
-                               (#{syntax-object-expression\ 346}# #{x\ 3581}#)
-                               #{mod\ 3582}#)
-                             (#{syntax-object-wrap\ 348}# #{x\ 3581}#)
-                             #{mod\ 3582}#)
-                           (if (vector? #{x\ 3581}#)
+                  ((#{remodulate\ 3581}#
+                     (lambda (#{x\ 3582}# #{mod\ 3583}#)
+                       (if (pair? #{x\ 3582}#)
+                         (cons (#{remodulate\ 3581}#
+                                 (car #{x\ 3582}#)
+                                 #{mod\ 3583}#)
+                               (#{remodulate\ 3581}#
+                                 (cdr #{x\ 3582}#)
+                                 #{mod\ 3583}#))
+                         (if (#{syntax-object?\ 345}# #{x\ 3582}#)
+                           (#{make-syntax-object\ 343}#
+                             (#{remodulate\ 3581}#
+                               (#{syntax-object-expression\ 347}# #{x\ 3582}#)
+                               #{mod\ 3583}#)
+                             (#{syntax-object-wrap\ 349}# #{x\ 3582}#)
+                             #{mod\ 3583}#)
+                           (if (vector? #{x\ 3582}#)
                              (begin
-                               (let ((#{n\ 3593}# (vector-length #{x\ 3581}#)))
+                               (let ((#{n\ 3594}# (vector-length #{x\ 3582}#)))
                                  (begin
-                                   (let ((#{v\ 3595}#
-                                           (make-vector #{n\ 3593}#)))
+                                   (let ((#{v\ 3596}#
+                                           (make-vector #{n\ 3594}#)))
                                      (letrec*
-                                       ((#{loop\ 3598}#
-                                          (lambda (#{i\ 3599}#)
-                                            (if (#{fx=\ 285}#
-                                                  #{i\ 3599}#
-                                                  #{n\ 3593}#)
-                                              (begin (if #f #f) #{v\ 3595}#)
+                                       ((#{loop\ 3599}#
+                                          (lambda (#{i\ 3600}#)
+                                            (if (#{fx=\ 286}#
+                                                  #{i\ 3600}#
+                                                  #{n\ 3594}#)
+                                              (begin (if #f #f) #{v\ 3596}#)
                                               (begin
                                                 (vector-set!
-                                                  #{v\ 3595}#
-                                                  #{i\ 3599}#
-                                                  (#{remodulate\ 3580}#
+                                                  #{v\ 3596}#
+                                                  #{i\ 3600}#
+                                                  (#{remodulate\ 3581}#
                                                     (vector-ref
-                                                      #{x\ 3581}#
-                                                      #{i\ 3599}#)
-                                                    #{mod\ 3582}#))
-                                                (#{loop\ 3598}#
-                                                  (#{fx+\ 281}#
-                                                    #{i\ 3599}#
+                                                      #{x\ 3582}#
+                                                      #{i\ 3600}#)
+                                                    #{mod\ 3583}#))
+                                                (#{loop\ 3599}#
+                                                  (#{fx+\ 282}#
+                                                    #{i\ 3600}#
                                                     1)))))))
-                                       (begin (#{loop\ 3598}# 0)))))))
-                             #{x\ 3581}#))))))
+                                       (begin (#{loop\ 3599}# 0)))))))
+                             #{x\ 3582}#))))))
                   (begin
-                    (let ((#{tmp\ 3603}# #{e\ 3573}#))
-                      (let ((#{tmp\ 3604}#
-                              ($sc-dispatch
-                                #{tmp\ 3603}#
-                                '(_ each-any any))))
-                        (if (if #{tmp\ 3604}#
+                    (let ((#{tmp\ 3604}# #{e\ 3574}#))
+                      (let ((#{tmp\ 3605}#
+                              ($sc-dispatch #{tmp\ 3604}# '(_ each-any any))))
+                        (if (if #{tmp\ 3605}#
                               (@apply
-                                (lambda (#{mod\ 3607}# #{exp\ 3608}#)
-                                  (and-map #{id?\ 378}# #{mod\ 3607}#))
-                                #{tmp\ 3604}#)
+                                (lambda (#{mod\ 3608}# #{exp\ 3609}#)
+                                  (and-map #{id?\ 379}# #{mod\ 3608}#))
+                                #{tmp\ 3605}#)
                               #f)
                           (@apply
-                            (lambda (#{mod\ 3612}# #{exp\ 3613}#)
+                            (lambda (#{mod\ 3613}# #{exp\ 3614}#)
                               (begin
-                                (let ((#{mod\ 3615}#
+                                (let ((#{mod\ 3616}#
                                         (syntax->datum
                                           (cons '#(syntax-object
                                                    private
@@ -11251,17 +11188,17 @@
                                                     #(ribcage
                                                       #(mod exp)
                                                       #((top) (top))
-                                                      #("i3610" "i3611"))
+                                                      #("i3611" "i3612"))
                                                     #(ribcage
                                                       (remodulate)
                                                       ((top))
-                                                      ("i3579"))
+                                                      ("i3580"))
                                                     #(ribcage
                                                       #(e r w)
                                                       #((top) (top) (top))
-                                                      #("i3576"
-                                                        "i3577"
-                                                        "i3578"))
+                                                      #("i3577"
+                                                        "i3578"
+                                                        "i3579"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -11537,58 +11474,59 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("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"
-                                                       "i423"
-                                                       "i421"
+                                                      ("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"
+                                                       "i422"
+                                                       "i420"
                                                        "i419"
                                                        "i418"
-                                                       "i417"
+                                                       "i416"
                                                        "i415"
                                                        "i414"
                                                        "i413"
                                                        "i412"
-                                                       "i411"
-                                                       "i409"
-                                                       "i407"
-                                                       "i405"
-                                                       "i403"
-                                                       "i401"
-                                                       "i399"
-                                                       "i397"
-                                                       "i395"
-                                                       "i392"
+                                                       "i410"
+                                                       "i408"
+                                                       "i406"
+                                                       "i404"
+                                                       "i402"
+                                                       "i400"
+                                                       "i398"
+                                                       "i396"
+                                                       "i393"
+                                                       "i391"
                                                        "i390"
                                                        "i389"
                                                        "i388"
@@ -11597,272 +11535,263 @@
                                                        "i385"
                                                        "i384"
                                                        "i383"
-                                                       "i382"
+                                                       "i381"
                                                        "i380"
-                                                       "i379"
-                                                       "i377"
-                                                       "i375"
-                                                       "i373"
-                                                       "i371"
-                                                       "i369"
-                                                       "i367"
+                                                       "i378"
+                                                       "i376"
+                                                       "i374"
+                                                       "i372"
+                                                       "i370"
+                                                       "i368"
+                                                       "i366"
                                                        "i365"
                                                        "i364"
                                                        "i363"
                                                        "i362"
                                                        "i361"
-                                                       "i360"
+                                                       "i359"
                                                        "i358"
-                                                       "i357"
-                                                       "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"
+                                                       "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"
                                                        "i293"
-                                                       "i292"
-                                                       "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"))
+                                                       "i291"
+                                                       "i289"
+                                                       "i287"
+                                                       "i285"
+                                                       "i283"
+                                                       "i281"
+                                                       "i279"
+                                                       "i277"
+                                                       "i275"
+                                                       "i272"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i264"
+                                                       "i262"
+                                                       "i260"
+                                                       "i258"
+                                                       "i256"
+                                                       "i254"
+                                                       "i252"
+                                                       "i250"
+                                                       "i248"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i240"
+                                                       "i238"))
                                                     #(ribcage
                                                       (define-structure
                                                         
define-expansion-accessors
                                                         
define-expansion-constructors
                                                         and-map*)
                                                       ((top) (top) (top) (top))
-                                                      ("i39"
+                                                      ("i40"
+                                                       "i39"
                                                        "i38"
-                                                       "i37"
-                                                       "i35")))
+                                                       "i36")))
                                                    (hygiene guile))
-                                                #{mod\ 3612}#))))
+                                                #{mod\ 3613}#))))
                                   (values
-                                    (#{remodulate\ 3580}#
-                                      #{exp\ 3613}#
-                                      #{mod\ 3615}#)
-                                    #{r\ 3574}#
-                                    #{w\ 3575}#
-                                    (#{source-annotation\ 359}# #{exp\ 3613}#)
-                                    #{mod\ 3615}#))))
-                            #{tmp\ 3604}#)
+                                    (#{remodulate\ 3581}#
+                                      #{exp\ 3614}#
+                                      #{mod\ 3616}#)
+                                    #{r\ 3575}#
+                                    #{w\ 3576}#
+                                    (#{source-annotation\ 360}# #{exp\ 3614}#)
+                                    #{mod\ 3616}#))))
+                            #{tmp\ 3605}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{tmp\ 3603}#))))))))
-            (#{global-extend\ 374}#
+                            #{tmp\ 3604}#))))))))
+            (#{global-extend\ 375}#
               'core
               'if
-              (lambda (#{e\ 3617}#
-                       #{r\ 3618}#
-                       #{w\ 3619}#
-                       #{s\ 3620}#
-                       #{mod\ 3621}#)
-                (let ((#{tmp\ 3627}# #{e\ 3617}#))
-                  (let ((#{tmp\ 3628}#
-                          ($sc-dispatch #{tmp\ 3627}# (quote (_ any any)))))
-                    (if #{tmp\ 3628}#
+              (lambda (#{e\ 3618}#
+                       #{r\ 3619}#
+                       #{w\ 3620}#
+                       #{s\ 3621}#
+                       #{mod\ 3622}#)
+                (let ((#{tmp\ 3628}# #{e\ 3618}#))
+                  (let ((#{tmp\ 3629}#
+                          ($sc-dispatch #{tmp\ 3628}# '(_ any any))))
+                    (if #{tmp\ 3629}#
                       (@apply
-                        (lambda (#{test\ 3631}# #{then\ 3632}#)
-                          (#{build-conditional\ 306}#
-                            #{s\ 3620}#
-                            (#{chi\ 460}#
-                              #{test\ 3631}#
-                              #{r\ 3618}#
-                              #{w\ 3619}#
-                              #{mod\ 3621}#)
-                            (#{chi\ 460}#
-                              #{then\ 3632}#
-                              #{r\ 3618}#
-                              #{w\ 3619}#
-                              #{mod\ 3621}#)
-                            (#{build-void\ 302}# #f)))
-                        #{tmp\ 3628}#)
-                      (let ((#{tmp\ 3634}#
-                              ($sc-dispatch
-                                #{tmp\ 3627}#
-                                '(_ any any any))))
-                        (if #{tmp\ 3634}#
+                        (lambda (#{test\ 3632}# #{then\ 3633}#)
+                          (#{build-conditional\ 307}#
+                            #{s\ 3621}#
+                            (#{chi\ 461}#
+                              #{test\ 3632}#
+                              #{r\ 3619}#
+                              #{w\ 3620}#
+                              #{mod\ 3622}#)
+                            (#{chi\ 461}#
+                              #{then\ 3633}#
+                              #{r\ 3619}#
+                              #{w\ 3620}#
+                              #{mod\ 3622}#)
+                            (#{build-void\ 303}# #f)))
+                        #{tmp\ 3629}#)
+                      (let ((#{tmp\ 3635}#
+                              ($sc-dispatch #{tmp\ 3628}# '(_ any any any))))
+                        (if #{tmp\ 3635}#
                           (@apply
-                            (lambda (#{test\ 3638}#
-                                     #{then\ 3639}#
-                                     #{else\ 3640}#)
-                              (#{build-conditional\ 306}#
-                                #{s\ 3620}#
-                                (#{chi\ 460}#
-                                  #{test\ 3638}#
-                                  #{r\ 3618}#
-                                  #{w\ 3619}#
-                                  #{mod\ 3621}#)
-                                (#{chi\ 460}#
-                                  #{then\ 3639}#
-                                  #{r\ 3618}#
-                                  #{w\ 3619}#
-                                  #{mod\ 3621}#)
-                                (#{chi\ 460}#
-                                  #{else\ 3640}#
-                                  #{r\ 3618}#
-                                  #{w\ 3619}#
-                                  #{mod\ 3621}#)))
-                            #{tmp\ 3634}#)
+                            (lambda (#{test\ 3639}#
+                                     #{then\ 3640}#
+                                     #{else\ 3641}#)
+                              (#{build-conditional\ 307}#
+                                #{s\ 3621}#
+                                (#{chi\ 461}#
+                                  #{test\ 3639}#
+                                  #{r\ 3619}#
+                                  #{w\ 3620}#
+                                  #{mod\ 3622}#)
+                                (#{chi\ 461}#
+                                  #{then\ 3640}#
+                                  #{r\ 3619}#
+                                  #{w\ 3620}#
+                                  #{mod\ 3622}#)
+                                (#{chi\ 461}#
+                                  #{else\ 3641}#
+                                  #{r\ 3619}#
+                                  #{w\ 3620}#
+                                  #{mod\ 3622}#)))
+                            #{tmp\ 3635}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
-                            #{tmp\ 3627}#))))))))
-            (#{global-extend\ 374}#
+                            #{tmp\ 3628}#))))))))
+            (#{global-extend\ 375}#
               'core
               'with-fluids
-              (lambda (#{e\ 3641}#
-                       #{r\ 3642}#
-                       #{w\ 3643}#
-                       #{s\ 3644}#
-                       #{mod\ 3645}#)
-                (let ((#{tmp\ 3651}# #{e\ 3641}#))
-                  (let ((#{tmp\ 3652}#
+              (lambda (#{e\ 3642}#
+                       #{r\ 3643}#
+                       #{w\ 3644}#
+                       #{s\ 3645}#
+                       #{mod\ 3646}#)
+                (let ((#{tmp\ 3652}# #{e\ 3642}#))
+                  (let ((#{tmp\ 3653}#
                           ($sc-dispatch
-                            #{tmp\ 3651}#
+                            #{tmp\ 3652}#
                             '(_ #(each (any any)) any . each-any))))
-                    (if #{tmp\ 3652}#
+                    (if #{tmp\ 3653}#
                       (@apply
-                        (lambda (#{fluid\ 3657}#
-                                 #{val\ 3658}#
-                                 #{b\ 3659}#
-                                 #{b*\ 3660}#)
-                          (#{build-dynlet\ 308}#
-                            #{s\ 3644}#
-                            (map (lambda (#{x\ 3661}#)
-                                   (#{chi\ 460}#
-                                     #{x\ 3661}#
-                                     #{r\ 3642}#
-                                     #{w\ 3643}#
-                                     #{mod\ 3645}#))
-                                 #{fluid\ 3657}#)
-                            (map (lambda (#{x\ 3664}#)
-                                   (#{chi\ 460}#
-                                     #{x\ 3664}#
-                                     #{r\ 3642}#
-                                     #{w\ 3643}#
-                                     #{mod\ 3645}#))
-                                 #{val\ 3658}#)
-                            (#{chi-body\ 468}#
-                              (cons #{b\ 3659}# #{b*\ 3660}#)
-                              (#{source-wrap\ 446}#
-                                #{e\ 3641}#
-                                #{w\ 3643}#
-                                #{s\ 3644}#
-                                #{mod\ 3645}#)
-                              #{r\ 3642}#
-                              #{w\ 3643}#
-                              #{mod\ 3645}#)))
-                        #{tmp\ 3652}#)
+                        (lambda (#{fluid\ 3658}#
+                                 #{val\ 3659}#
+                                 #{b\ 3660}#
+                                 #{b*\ 3661}#)
+                          (#{build-dynlet\ 309}#
+                            #{s\ 3645}#
+                            (map (lambda (#{x\ 3662}#)
+                                   (#{chi\ 461}#
+                                     #{x\ 3662}#
+                                     #{r\ 3643}#
+                                     #{w\ 3644}#
+                                     #{mod\ 3646}#))
+                                 #{fluid\ 3658}#)
+                            (map (lambda (#{x\ 3665}#)
+                                   (#{chi\ 461}#
+                                     #{x\ 3665}#
+                                     #{r\ 3643}#
+                                     #{w\ 3644}#
+                                     #{mod\ 3646}#))
+                                 #{val\ 3659}#)
+                            (#{chi-body\ 469}#
+                              (cons #{b\ 3660}# #{b*\ 3661}#)
+                              (#{source-wrap\ 447}#
+                                #{e\ 3642}#
+                                #{w\ 3644}#
+                                #{s\ 3645}#
+                                #{mod\ 3646}#)
+                              #{r\ 3643}#
+                              #{w\ 3644}#
+                              #{mod\ 3646}#)))
+                        #{tmp\ 3653}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 3651}#))))))
-            (#{global-extend\ 374}#
-              'begin
-              'begin
-              '())
-            (#{global-extend\ 374}#
-              'define
-              'define
-              '())
-            (#{global-extend\ 374}#
+                        #{tmp\ 3652}#))))))
+            (#{global-extend\ 375}# 'begin 'begin '())
+            (#{global-extend\ 375}# 'define 'define '())
+            (#{global-extend\ 375}#
               'define-syntax
               'define-syntax
               '())
-            (#{global-extend\ 374}#
+            (#{global-extend\ 375}#
               'eval-when
               'eval-when
               '())
-            (#{global-extend\ 374}#
+            (#{global-extend\ 375}#
               'core
               'syntax-case
               (letrec*
-                ((#{convert-pattern\ 3669}#
-                   (lambda (#{pattern\ 3676}# #{keys\ 3677}#)
+                ((#{convert-pattern\ 3670}#
+                   (lambda (#{pattern\ 3677}# #{keys\ 3678}#)
                      (letrec*
-                       ((#{cvt*\ 3681}#
-                          (lambda (#{p*\ 3684}# #{n\ 3685}# #{ids\ 3686}#)
-                            (if (null? #{p*\ 3684}#)
-                              (values (quote ()) #{ids\ 3686}#)
+                       ((#{cvt*\ 3682}#
+                          (lambda (#{p*\ 3685}# #{n\ 3686}# #{ids\ 3687}#)
+                            (if (null? #{p*\ 3685}#)
+                              (values '() #{ids\ 3687}#)
                               (call-with-values
                                 (lambda ()
-                                  (#{cvt*\ 3681}#
-                                    (cdr #{p*\ 3684}#)
-                                    #{n\ 3685}#
-                                    #{ids\ 3686}#))
-                                (lambda (#{y\ 3690}# #{ids\ 3691}#)
+                                  (#{cvt*\ 3682}#
+                                    (cdr #{p*\ 3685}#)
+                                    #{n\ 3686}#
+                                    #{ids\ 3687}#))
+                                (lambda (#{y\ 3691}# #{ids\ 3692}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{cvt\ 3683}#
-                                        (car #{p*\ 3684}#)
-                                        #{n\ 3685}#
-                                        #{ids\ 3691}#))
-                                    (lambda (#{x\ 3694}# #{ids\ 3695}#)
+                                      (#{cvt\ 3684}#
+                                        (car #{p*\ 3685}#)
+                                        #{n\ 3686}#
+                                        #{ids\ 3692}#))
+                                    (lambda (#{x\ 3695}# #{ids\ 3696}#)
                                       (values
-                                        (cons #{x\ 3694}# #{y\ 3690}#)
-                                        #{ids\ 3695}#))))))))
-                        (#{cvt\ 3683}#
-                          (lambda (#{p\ 3698}# #{n\ 3699}# #{ids\ 3700}#)
-                            (if (#{id?\ 378}# #{p\ 3698}#)
-                              (if (#{bound-id-member?\ 442}#
-                                    #{p\ 3698}#
-                                    #{keys\ 3677}#)
+                                        (cons #{x\ 3695}# #{y\ 3691}#)
+                                        #{ids\ 3696}#))))))))
+                        (#{cvt\ 3684}#
+                          (lambda (#{p\ 3699}# #{n\ 3700}# #{ids\ 3701}#)
+                            (if (#{id?\ 379}# #{p\ 3699}#)
+                              (if (#{bound-id-member?\ 443}#
+                                    #{p\ 3699}#
+                                    #{keys\ 3678}#)
                                 (values
-                                  (vector (quote free-id) #{p\ 3698}#)
-                                  #{ids\ 3700}#)
-                                (if (#{free-id=?\ 434}#
-                                      #{p\ 3698}#
+                                  (vector 'free-id #{p\ 3699}#)
+                                  #{ids\ 3701}#)
+                                (if (#{free-id=?\ 435}#
+                                      #{p\ 3699}#
                                       '#(syntax-object
                                          _
                                          ((top)
@@ -11870,22 +11799,22 @@
                                           #(ribcage
                                             #(p n ids)
                                             #((top) (top) (top))
-                                            #("i3701" "i3702" "i3703"))
+                                            #("i3702" "i3703" "i3704"))
                                           #(ribcage
                                             (cvt cvt*)
                                             ((top) (top))
-                                            ("i3682" "i3680"))
+                                            ("i3683" "i3681"))
                                           #(ribcage
                                             #(pattern keys)
                                             #((top) (top))
-                                            #("i3678" "i3679"))
+                                            #("i3679" "i3680"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
-                                            ("i3674" "i3672" "i3670" "i3668"))
+                                            ("i3675" "i3673" "i3671" "i3669"))
                                           #(ribcage
                                             (lambda-var-list
                                               gen-var
@@ -12161,58 +12090,59 @@
                                              (top)
                                              (top)
                                              (top))
-                                            ("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"
-                                             "i423"
-                                             "i421"
+                                            ("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"
+                                             "i422"
+                                             "i420"
                                              "i419"
                                              "i418"
-                                             "i417"
+                                             "i416"
                                              "i415"
                                              "i414"
                                              "i413"
                                              "i412"
-                                             "i411"
-                                             "i409"
-                                             "i407"
-                                             "i405"
-                                             "i403"
-                                             "i401"
-                                             "i399"
-                                             "i397"
-                                             "i395"
-                                             "i392"
+                                             "i410"
+                                             "i408"
+                                             "i406"
+                                             "i404"
+                                             "i402"
+                                             "i400"
+                                             "i398"
+                                             "i396"
+                                             "i393"
+                                             "i391"
                                              "i390"
                                              "i389"
                                              "i388"
@@ -12221,420 +12151,407 @@
                                              "i385"
                                              "i384"
                                              "i383"
-                                             "i382"
+                                             "i381"
                                              "i380"
-                                             "i379"
-                                             "i377"
-                                             "i375"
-                                             "i373"
-                                             "i371"
-                                             "i369"
-                                             "i367"
+                                             "i378"
+                                             "i376"
+                                             "i374"
+                                             "i372"
+                                             "i370"
+                                             "i368"
+                                             "i366"
                                              "i365"
                                              "i364"
                                              "i363"
                                              "i362"
                                              "i361"
-                                             "i360"
+                                             "i359"
                                              "i358"
-                                             "i357"
-                                             "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"
+                                             "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"
                                              "i293"
-                                             "i292"
-                                             "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"))
+                                             "i291"
+                                             "i289"
+                                             "i287"
+                                             "i285"
+                                             "i283"
+                                             "i281"
+                                             "i279"
+                                             "i277"
+                                             "i275"
+                                             "i272"
+                                             "i270"
+                                             "i268"
+                                             "i266"
+                                             "i264"
+                                             "i262"
+                                             "i260"
+                                             "i258"
+                                             "i256"
+                                             "i254"
+                                             "i252"
+                                             "i250"
+                                             "i248"
+                                             "i246"
+                                             "i244"
+                                             "i242"
+                                             "i240"
+                                             "i238"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors
                                               and-map*)
                                             ((top) (top) (top) (top))
-                                            ("i39" "i38" "i37" "i35")))
+                                            ("i40" "i39" "i38" "i36")))
                                          (hygiene guile)))
-                                  (values (quote _) #{ids\ 3700}#)
+                                  (values '_ #{ids\ 3701}#)
                                   (values
                                     'any
-                                    (cons (cons #{p\ 3698}# #{n\ 3699}#)
-                                          #{ids\ 3700}#))))
-                              (let ((#{tmp\ 3709}# #{p\ 3698}#))
-                                (let ((#{tmp\ 3710}#
+                                    (cons (cons #{p\ 3699}# #{n\ 3700}#)
+                                          #{ids\ 3701}#))))
+                              (let ((#{tmp\ 3710}# #{p\ 3699}#))
+                                (let ((#{tmp\ 3711}#
                                         ($sc-dispatch
-                                          #{tmp\ 3709}#
+                                          #{tmp\ 3710}#
                                           '(any any))))
-                                  (if (if #{tmp\ 3710}#
+                                  (if (if #{tmp\ 3711}#
                                         (@apply
-                                          (lambda (#{x\ 3713}# #{dots\ 3714}#)
-                                            (#{ellipsis?\ 476}#
-                                              #{dots\ 3714}#))
-                                          #{tmp\ 3710}#)
+                                          (lambda (#{x\ 3714}# #{dots\ 3715}#)
+                                            (#{ellipsis?\ 477}#
+                                              #{dots\ 3715}#))
+                                          #{tmp\ 3711}#)
                                         #f)
                                     (@apply
-                                      (lambda (#{x\ 3717}# #{dots\ 3718}#)
+                                      (lambda (#{x\ 3718}# #{dots\ 3719}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 3683}#
-                                              #{x\ 3717}#
-                                              (#{fx+\ 281}# #{n\ 3699}# 1)
-                                              #{ids\ 3700}#))
-                                          (lambda (#{p\ 3719}# #{ids\ 3720}#)
+                                            (#{cvt\ 3684}#
+                                              #{x\ 3718}#
+                                              (#{fx+\ 282}# #{n\ 3700}# 1)
+                                              #{ids\ 3701}#))
+                                          (lambda (#{p\ 3720}# #{ids\ 3721}#)
                                             (values
-                                              (if (eq? #{p\ 3719}# (quote any))
+                                              (if (eq? #{p\ 3720}# 'any)
                                                 'each-any
-                                                (vector
-                                                  'each
-                                                  #{p\ 3719}#))
-                                              #{ids\ 3720}#))))
-                                      #{tmp\ 3710}#)
-                                    (let ((#{tmp\ 3723}#
+                                                (vector 'each #{p\ 3720}#))
+                                              #{ids\ 3721}#))))
+                                      #{tmp\ 3711}#)
+                                    (let ((#{tmp\ 3724}#
                                             ($sc-dispatch
-                                              #{tmp\ 3709}#
+                                              #{tmp\ 3710}#
                                               '(any any . each-any))))
-                                      (if (if #{tmp\ 3723}#
+                                      (if (if #{tmp\ 3724}#
                                             (@apply
-                                              (lambda (#{x\ 3727}#
-                                                       #{dots\ 3728}#
-                                                       #{ys\ 3729}#)
-                                                (#{ellipsis?\ 476}#
-                                                  #{dots\ 3728}#))
-                                              #{tmp\ 3723}#)
+                                              (lambda (#{x\ 3728}#
+                                                       #{dots\ 3729}#
+                                                       #{ys\ 3730}#)
+                                                (#{ellipsis?\ 477}#
+                                                  #{dots\ 3729}#))
+                                              #{tmp\ 3724}#)
                                             #f)
                                         (@apply
-                                          (lambda (#{x\ 3733}#
-                                                   #{dots\ 3734}#
-                                                   #{ys\ 3735}#)
+                                          (lambda (#{x\ 3734}#
+                                                   #{dots\ 3735}#
+                                                   #{ys\ 3736}#)
                                             (call-with-values
                                               (lambda ()
-                                                (#{cvt*\ 3681}#
-                                                  #{ys\ 3735}#
-                                                  #{n\ 3699}#
-                                                  #{ids\ 3700}#))
-                                              (lambda (#{ys\ 3737}#
-                                                       #{ids\ 3738}#)
+                                                (#{cvt*\ 3682}#
+                                                  #{ys\ 3736}#
+                                                  #{n\ 3700}#
+                                                  #{ids\ 3701}#))
+                                              (lambda (#{ys\ 3738}#
+                                                       #{ids\ 3739}#)
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{cvt\ 3683}#
-                                                      #{x\ 3733}#
-                                                      (1+ #{n\ 3699}#)
-                                                      #{ids\ 3738}#))
-                                                  (lambda (#{x\ 3741}#
-                                                           #{ids\ 3742}#)
+                                                    (#{cvt\ 3684}#
+                                                      #{x\ 3734}#
+                                                      (1+ #{n\ 3700}#)
+                                                      #{ids\ 3739}#))
+                                                  (lambda (#{x\ 3742}#
+                                                           #{ids\ 3743}#)
                                                     (values
                                                       (list->vector
                                                         (cons 'each+
-                                                              (cons #{x\ 3741}#
+                                                              (cons #{x\ 3742}#
                                                                     (cons 
(reverse
-                                                                            
#{ys\ 3737}#)
+                                                                            
#{ys\ 3738}#)
                                                                           
'(())))))
-                                                      #{ids\ 3742}#))))))
-                                          #{tmp\ 3723}#)
-                                        (let ((#{tmp\ 3746}#
+                                                      #{ids\ 3743}#))))))
+                                          #{tmp\ 3724}#)
+                                        (let ((#{tmp\ 3747}#
                                                 ($sc-dispatch
-                                                  #{tmp\ 3709}#
+                                                  #{tmp\ 3710}#
                                                   '(any . any))))
-                                          (if #{tmp\ 3746}#
+                                          (if #{tmp\ 3747}#
                                             (@apply
-                                              (lambda (#{x\ 3749}# #{y\ 3750}#)
+                                              (lambda (#{x\ 3750}# #{y\ 3751}#)
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{cvt\ 3683}#
-                                                      #{y\ 3750}#
-                                                      #{n\ 3699}#
-                                                      #{ids\ 3700}#))
-                                                  (lambda (#{y\ 3751}#
-                                                           #{ids\ 3752}#)
+                                                    (#{cvt\ 3684}#
+                                                      #{y\ 3751}#
+                                                      #{n\ 3700}#
+                                                      #{ids\ 3701}#))
+                                                  (lambda (#{y\ 3752}#
+                                                           #{ids\ 3753}#)
                                                     (call-with-values
                                                       (lambda ()
-                                                        (#{cvt\ 3683}#
-                                                          #{x\ 3749}#
-                                                          #{n\ 3699}#
-                                                          #{ids\ 3752}#))
-                                                      (lambda (#{x\ 3755}#
-                                                               #{ids\ 3756}#)
+                                                        (#{cvt\ 3684}#
+                                                          #{x\ 3750}#
+                                                          #{n\ 3700}#
+                                                          #{ids\ 3753}#))
+                                                      (lambda (#{x\ 3756}#
+                                                               #{ids\ 3757}#)
                                                         (values
-                                                          (cons #{x\ 3755}#
-                                                                #{y\ 3751}#)
-                                                          #{ids\ 3756}#))))))
-                                              #{tmp\ 3746}#)
-                                            (let ((#{tmp\ 3759}#
+                                                          (cons #{x\ 3756}#
+                                                                #{y\ 3752}#)
+                                                          #{ids\ 3757}#))))))
+                                              #{tmp\ 3747}#)
+                                            (let ((#{tmp\ 3760}#
                                                     ($sc-dispatch
-                                                      #{tmp\ 3709}#
+                                                      #{tmp\ 3710}#
                                                       '())))
-                                              (if #{tmp\ 3759}#
+                                              (if #{tmp\ 3760}#
                                                 (@apply
                                                   (lambda ()
-                                                    (values
-                                                      '()
-                                                      #{ids\ 3700}#))
-                                                  #{tmp\ 3759}#)
-                                                (let ((#{tmp\ 3760}#
+                                                    (values '() #{ids\ 3701}#))
+                                                  #{tmp\ 3760}#)
+                                                (let ((#{tmp\ 3761}#
                                                         ($sc-dispatch
-                                                          #{tmp\ 3709}#
+                                                          #{tmp\ 3710}#
                                                           '#(vector
                                                              each-any))))
-                                                  (if #{tmp\ 3760}#
+                                                  (if #{tmp\ 3761}#
                                                     (@apply
-                                                      (lambda (#{x\ 3762}#)
+                                                      (lambda (#{x\ 3763}#)
                                                         (call-with-values
                                                           (lambda ()
-                                                            (#{cvt\ 3683}#
-                                                              #{x\ 3762}#
-                                                              #{n\ 3699}#
-                                                              #{ids\ 3700}#))
-                                                          (lambda (#{p\ 3764}#
-                                                                   #{ids\ 
3765}#)
+                                                            (#{cvt\ 3684}#
+                                                              #{x\ 3763}#
+                                                              #{n\ 3700}#
+                                                              #{ids\ 3701}#))
+                                                          (lambda (#{p\ 3765}#
+                                                                   #{ids\ 
3766}#)
                                                             (values
                                                               (vector
                                                                 'vector
-                                                                #{p\ 3764}#)
-                                                              #{ids\ 3765}#))))
-                                                      #{tmp\ 3760}#)
-                                                    (let ((#{x\ 3769}#
-                                                            #{tmp\ 3709}#))
+                                                                #{p\ 3765}#)
+                                                              #{ids\ 3766}#))))
+                                                      #{tmp\ 3761}#)
+                                                    (let ((#{x\ 3770}#
+                                                            #{tmp\ 3710}#))
                                                       (values
                                                         (vector
                                                           'atom
-                                                          (#{strip\ 486}#
-                                                            #{p\ 3698}#
+                                                          (#{strip\ 487}#
+                                                            #{p\ 3699}#
                                                             '(())))
-                                                        #{ids\ 
3700}#)))))))))))))))))
-                       (begin
-                         (#{cvt\ 3683}# #{pattern\ 3676}# 0 (quote ()))))))
-                 (#{build-dispatch-call\ 3671}#
-                   (lambda (#{pvars\ 3771}#
-                            #{exp\ 3772}#
-                            #{y\ 3773}#
-                            #{r\ 3774}#
-                            #{mod\ 3775}#)
+                                                        #{ids\ 
3701}#)))))))))))))))))
+                       (begin (#{cvt\ 3684}# #{pattern\ 3677}# 0 '())))))
+                 (#{build-dispatch-call\ 3672}#
+                   (lambda (#{pvars\ 3772}#
+                            #{exp\ 3773}#
+                            #{y\ 3774}#
+                            #{r\ 3775}#
+                            #{mod\ 3776}#)
                      (begin
-                       (map cdr #{pvars\ 3771}#)
-                       (let ((#{ids\ 3783}# (map car #{pvars\ 3771}#)))
+                       (map cdr #{pvars\ 3772}#)
+                       (let ((#{ids\ 3784}# (map car #{pvars\ 3772}#)))
                          (begin
-                           (let ((#{labels\ 3787}#
-                                   (#{gen-labels\ 393}# #{ids\ 3783}#))
-                                 (#{new-vars\ 3788}#
-                                   (map #{gen-var\ 488}# #{ids\ 3783}#)))
-                             (#{build-application\ 304}#
+                           (let ((#{labels\ 3788}#
+                                   (#{gen-labels\ 394}# #{ids\ 3784}#))
+                                 (#{new-vars\ 3789}#
+                                   (map #{gen-var\ 489}# #{ids\ 3784}#)))
+                             (#{build-application\ 305}#
                                #f
-                               (#{build-primref\ 328}# #f (quote apply))
-                               (list (#{build-simple-lambda\ 322}#
+                               (#{build-primref\ 329}# #f 'apply)
+                               (list (#{build-simple-lambda\ 323}#
                                        #f
-                                       (map syntax->datum #{ids\ 3783}#)
+                                       (map syntax->datum #{ids\ 3784}#)
                                        #f
-                                       #{new-vars\ 3788}#
+                                       #{new-vars\ 3789}#
                                        '()
-                                       (#{chi\ 460}#
-                                         #{exp\ 3772}#
-                                         (#{extend-env\ 366}#
-                                           #{labels\ 3787}#
-                                           (map (lambda (#{var\ 3792}#
-                                                         #{level\ 3793}#)
+                                       (#{chi\ 461}#
+                                         #{exp\ 3773}#
+                                         (#{extend-env\ 367}#
+                                           #{labels\ 3788}#
+                                           (map (lambda (#{var\ 3793}#
+                                                         #{level\ 3794}#)
                                                   (cons 'syntax
-                                                        (cons #{var\ 3792}#
-                                                              #{level\ 
3793}#)))
-                                                #{new-vars\ 3788}#
-                                                (map cdr #{pvars\ 3771}#))
-                                           #{r\ 3774}#)
-                                         (#{make-binding-wrap\ 422}#
-                                           #{ids\ 3783}#
-                                           #{labels\ 3787}#
+                                                        (cons #{var\ 3793}#
+                                                              #{level\ 
3794}#)))
+                                                #{new-vars\ 3789}#
+                                                (map cdr #{pvars\ 3772}#))
+                                           #{r\ 3775}#)
+                                         (#{make-binding-wrap\ 423}#
+                                           #{ids\ 3784}#
+                                           #{labels\ 3788}#
                                            '(()))
-                                         #{mod\ 3775}#))
-                                     #{y\ 3773}#))))))))
-                 (#{gen-clause\ 3673}#
-                   (lambda (#{x\ 3799}#
-                            #{keys\ 3800}#
-                            #{clauses\ 3801}#
-                            #{r\ 3802}#
-                            #{pat\ 3803}#
-                            #{fender\ 3804}#
-                            #{exp\ 3805}#
-                            #{mod\ 3806}#)
+                                         #{mod\ 3776}#))
+                                     #{y\ 3774}#))))))))
+                 (#{gen-clause\ 3674}#
+                   (lambda (#{x\ 3800}#
+                            #{keys\ 3801}#
+                            #{clauses\ 3802}#
+                            #{r\ 3803}#
+                            #{pat\ 3804}#
+                            #{fender\ 3805}#
+                            #{exp\ 3806}#
+                            #{mod\ 3807}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 3669}#
-                           #{pat\ 3803}#
-                           #{keys\ 3800}#))
-                       (lambda (#{p\ 3815}# #{pvars\ 3816}#)
-                         (if (not (#{distinct-bound-ids?\ 440}#
-                                    (map car #{pvars\ 3816}#)))
+                         (#{convert-pattern\ 3670}#
+                           #{pat\ 3804}#
+                           #{keys\ 3801}#))
+                       (lambda (#{p\ 3816}# #{pvars\ 3817}#)
+                         (if (not (#{distinct-bound-ids?\ 441}#
+                                    (map car #{pvars\ 3817}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 3803}#)
+                             #{pat\ 3804}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 3823}#)
-                                        (not (#{ellipsis?\ 476}#
-                                               (car #{x\ 3823}#))))
-                                      #{pvars\ 3816}#))
+                                      (lambda (#{x\ 3824}#)
+                                        (not (#{ellipsis?\ 477}#
+                                               (car #{x\ 3824}#))))
+                                      #{pvars\ 3817}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 3803}#)
+                               #{pat\ 3804}#)
                              (begin
-                               (let ((#{y\ 3827}#
-                                       (#{gen-var\ 488}# (quote tmp))))
-                                 (#{build-application\ 304}#
+                               (let ((#{y\ 3828}# (#{gen-var\ 489}# 'tmp)))
+                                 (#{build-application\ 305}#
                                    #f
-                                   (#{build-simple-lambda\ 322}#
+                                   (#{build-simple-lambda\ 323}#
                                      #f
-                                     (list (quote tmp))
+                                     (list 'tmp)
                                      #f
-                                     (list #{y\ 3827}#)
+                                     (list #{y\ 3828}#)
                                      '()
                                      (begin
-                                       (let ((#{y\ 3831}#
-                                               (#{build-lexical-reference\ 
310}#
+                                       (let ((#{y\ 3832}#
+                                               (#{build-lexical-reference\ 
311}#
                                                  'value
                                                  #f
                                                  'tmp
-                                                 #{y\ 3827}#)))
-                                         (#{build-conditional\ 306}#
+                                                 #{y\ 3828}#)))
+                                         (#{build-conditional\ 307}#
                                            #f
-                                           (let ((#{tmp\ 3834}#
-                                                   #{fender\ 3804}#))
-                                             (let ((#{tmp\ 3835}#
+                                           (let ((#{tmp\ 3835}#
+                                                   #{fender\ 3805}#))
+                                             (let ((#{tmp\ 3836}#
                                                      ($sc-dispatch
-                                                       #{tmp\ 3834}#
+                                                       #{tmp\ 3835}#
                                                        '#(atom #t))))
-                                               (if #{tmp\ 3835}#
+                                               (if #{tmp\ 3836}#
                                                  (@apply
-                                                   (lambda () #{y\ 3831}#)
-                                                   #{tmp\ 3835}#)
-                                                 (let ((#{_\ 3837}#
-                                                         #{tmp\ 3834}#))
-                                                   (#{build-conditional\ 306}#
+                                                   (lambda () #{y\ 3832}#)
+                                                   #{tmp\ 3836}#)
+                                                 (let ((#{_\ 3838}#
+                                                         #{tmp\ 3835}#))
+                                                   (#{build-conditional\ 307}#
                                                      #f
-                                                     #{y\ 3831}#
-                                                     (#{build-dispatch-call\ 
3671}#
-                                                       #{pvars\ 3816}#
-                                                       #{fender\ 3804}#
-                                                       #{y\ 3831}#
-                                                       #{r\ 3802}#
-                                                       #{mod\ 3806}#)
-                                                     (#{build-data\ 330}#
+                                                     #{y\ 3832}#
+                                                     (#{build-dispatch-call\ 
3672}#
+                                                       #{pvars\ 3817}#
+                                                       #{fender\ 3805}#
+                                                       #{y\ 3832}#
+                                                       #{r\ 3803}#
+                                                       #{mod\ 3807}#)
+                                                     (#{build-data\ 331}#
                                                        #f
                                                        #f))))))
-                                           (#{build-dispatch-call\ 3671}#
-                                             #{pvars\ 3816}#
-                                             #{exp\ 3805}#
-                                             #{y\ 3831}#
-                                             #{r\ 3802}#
-                                             #{mod\ 3806}#)
-                                           (#{gen-syntax-case\ 3675}#
-                                             #{x\ 3799}#
-                                             #{keys\ 3800}#
-                                             #{clauses\ 3801}#
-                                             #{r\ 3802}#
-                                             #{mod\ 3806}#)))))
-                                   (list (if (eq? #{p\ 3815}# (quote any))
-                                           (#{build-application\ 304}#
+                                           (#{build-dispatch-call\ 3672}#
+                                             #{pvars\ 3817}#
+                                             #{exp\ 3806}#
+                                             #{y\ 3832}#
+                                             #{r\ 3803}#
+                                             #{mod\ 3807}#)
+                                           (#{gen-syntax-case\ 3676}#
+                                             #{x\ 3800}#
+                                             #{keys\ 3801}#
+                                             #{clauses\ 3802}#
+                                             #{r\ 3803}#
+                                             #{mod\ 3807}#)))))
+                                   (list (if (eq? #{p\ 3816}# 'any)
+                                           (#{build-application\ 305}#
                                              #f
-                                             (#{build-primref\ 328}#
-                                               #f
-                                               'list)
-                                             (list #{x\ 3799}#))
-                                           (#{build-application\ 304}#
+                                             (#{build-primref\ 329}# #f 'list)
+                                             (list #{x\ 3800}#))
+                                           (#{build-application\ 305}#
                                              #f
-                                             (#{build-primref\ 328}#
+                                             (#{build-primref\ 329}#
                                                #f
                                                '$sc-dispatch)
-                                             (list #{x\ 3799}#
-                                                   (#{build-data\ 330}#
+                                             (list #{x\ 3800}#
+                                                   (#{build-data\ 331}#
                                                      #f
-                                                     #{p\ 3815}#))))))))))))))
-                 (#{gen-syntax-case\ 3675}#
-                   (lambda (#{x\ 3845}#
-                            #{keys\ 3846}#
-                            #{clauses\ 3847}#
-                            #{r\ 3848}#
-                            #{mod\ 3849}#)
-                     (if (null? #{clauses\ 3847}#)
-                       (#{build-application\ 304}#
+                                                     #{p\ 3816}#))))))))))))))
+                 (#{gen-syntax-case\ 3676}#
+                   (lambda (#{x\ 3846}#
+                            #{keys\ 3847}#
+                            #{clauses\ 3848}#
+                            #{r\ 3849}#
+                            #{mod\ 3850}#)
+                     (if (null? #{clauses\ 3848}#)
+                       (#{build-application\ 305}#
                          #f
-                         (#{build-primref\ 328}#
-                           #f
-                           'syntax-violation)
-                         (list (#{build-data\ 330}# #f #f)
-                               (#{build-data\ 330}#
+                         (#{build-primref\ 329}# #f 'syntax-violation)
+                         (list (#{build-data\ 331}# #f #f)
+                               (#{build-data\ 331}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 3845}#))
-                       (let ((#{tmp\ 3859}# (car #{clauses\ 3847}#)))
-                         (let ((#{tmp\ 3860}#
-                                 ($sc-dispatch
-                                   #{tmp\ 3859}#
-                                   '(any any))))
-                           (if #{tmp\ 3860}#
+                               #{x\ 3846}#))
+                       (let ((#{tmp\ 3860}# (car #{clauses\ 3848}#)))
+                         (let ((#{tmp\ 3861}#
+                                 ($sc-dispatch #{tmp\ 3860}# '(any any))))
+                           (if #{tmp\ 3861}#
                              (@apply
-                               (lambda (#{pat\ 3863}# #{exp\ 3864}#)
-                                 (if (if (#{id?\ 378}# #{pat\ 3863}#)
+                               (lambda (#{pat\ 3864}# #{exp\ 3865}#)
+                                 (if (if (#{id?\ 379}# #{pat\ 3864}#)
                                        (and-map
-                                         (lambda (#{x\ 3867}#)
-                                           (not (#{free-id=?\ 434}#
-                                                  #{pat\ 3863}#
-                                                  #{x\ 3867}#)))
+                                         (lambda (#{x\ 3868}#)
+                                           (not (#{free-id=?\ 435}#
+                                                  #{pat\ 3864}#
+                                                  #{x\ 3868}#)))
                                          (cons '#(syntax-object
                                                   ...
                                                   ((top)
                                                    #(ribcage
                                                      #(pat exp)
                                                      #((top) (top))
-                                                     #("i3861" "i3862"))
+                                                     #("i3862" "i3863"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x keys clauses r mod)
@@ -12643,21 +12560,21 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                     #("i3850"
-                                                       "i3851"
+                                                     #("i3851"
                                                        "i3852"
                                                        "i3853"
-                                                       "i3854"))
+                                                       "i3854"
+                                                       "i3855"))
                                                    #(ribcage
                                                      (gen-syntax-case
                                                        gen-clause
                                                        build-dispatch-call
                                                        convert-pattern)
                                                      ((top) (top) (top) (top))
-                                                     ("i3674"
-                                                      "i3672"
-                                                      "i3670"
-                                                      "i3668"))
+                                                     ("i3675"
+                                                      "i3673"
+                                                      "i3671"
+                                                      "i3669"))
                                                    #(ribcage
                                                      (lambda-var-list
                                                        gen-var
@@ -12933,58 +12850,59 @@
                                                       (top)
                                                       (top)
                                                       (top))
-                                                     ("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"
-                                                      "i423"
-                                                      "i421"
+                                                     ("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"
+                                                      "i422"
+                                                      "i420"
                                                       "i419"
                                                       "i418"
-                                                      "i417"
+                                                      "i416"
                                                       "i415"
                                                       "i414"
                                                       "i413"
                                                       "i412"
-                                                      "i411"
-                                                      "i409"
-                                                      "i407"
-                                                      "i405"
-                                                      "i403"
-                                                      "i401"
-                                                      "i399"
-                                                      "i397"
-                                                      "i395"
-                                                      "i392"
+                                                      "i410"
+                                                      "i408"
+                                                      "i406"
+                                                      "i404"
+                                                      "i402"
+                                                      "i400"
+                                                      "i398"
+                                                      "i396"
+                                                      "i393"
+                                                      "i391"
                                                       "i390"
                                                       "i389"
                                                       "i388"
@@ -12993,123 +12911,122 @@
                                                       "i385"
                                                       "i384"
                                                       "i383"
-                                                      "i382"
+                                                      "i381"
                                                       "i380"
-                                                      "i379"
-                                                      "i377"
-                                                      "i375"
-                                                      "i373"
-                                                      "i371"
-                                                      "i369"
-                                                      "i367"
+                                                      "i378"
+                                                      "i376"
+                                                      "i374"
+                                                      "i372"
+                                                      "i370"
+                                                      "i368"
+                                                      "i366"
                                                       "i365"
                                                       "i364"
                                                       "i363"
                                                       "i362"
                                                       "i361"
-                                                      "i360"
+                                                      "i359"
                                                       "i358"
-                                                      "i357"
-                                                      "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"
+                                                      "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"
                                                       "i293"
-                                                      "i292"
-                                                      "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"))
+                                                      "i291"
+                                                      "i289"
+                                                      "i287"
+                                                      "i285"
+                                                      "i283"
+                                                      "i281"
+                                                      "i279"
+                                                      "i277"
+                                                      "i275"
+                                                      "i272"
+                                                      "i270"
+                                                      "i268"
+                                                      "i266"
+                                                      "i264"
+                                                      "i262"
+                                                      "i260"
+                                                      "i258"
+                                                      "i256"
+                                                      "i254"
+                                                      "i252"
+                                                      "i250"
+                                                      "i248"
+                                                      "i246"
+                                                      "i244"
+                                                      "i242"
+                                                      "i240"
+                                                      "i238"))
                                                    #(ribcage
                                                      (define-structure
                                                        
define-expansion-accessors
                                                        
define-expansion-constructors
                                                        and-map*)
                                                      ((top) (top) (top) (top))
-                                                     ("i39"
+                                                     ("i40"
+                                                      "i39"
                                                       "i38"
-                                                      "i37"
-                                                      "i35")))
+                                                      "i36")))
                                                   (hygiene guile))
-                                               #{keys\ 3846}#))
+                                               #{keys\ 3847}#))
                                        #f)
-                                   (if (#{free-id=?\ 434}#
+                                   (if (#{free-id=?\ 435}#
                                          '#(syntax-object
                                             pad
                                             ((top)
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
-                                               #("i3861" "i3862"))
+                                               #("i3862" "i3863"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top) (top) (top) (top) (top))
-                                               #("i3850"
-                                                 "i3851"
+                                               #("i3851"
                                                  "i3852"
                                                  "i3853"
-                                                 "i3854"))
+                                                 "i3854"
+                                                 "i3855"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
-                                               ("i3674"
-                                                "i3672"
-                                                "i3670"
-                                                "i3668"))
+                                               ("i3675"
+                                                "i3673"
+                                                "i3671"
+                                                "i3669"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -13385,58 +13302,59 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("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"
-                                                "i423"
-                                                "i421"
+                                               ("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"
+                                                "i422"
+                                                "i420"
                                                 "i419"
                                                 "i418"
-                                                "i417"
+                                                "i416"
                                                 "i415"
                                                 "i414"
                                                 "i413"
                                                 "i412"
-                                                "i411"
-                                                "i409"
-                                                "i407"
-                                                "i405"
-                                                "i403"
-                                                "i401"
-                                                "i399"
-                                                "i397"
-                                                "i395"
-                                                "i392"
+                                                "i410"
+                                                "i408"
+                                                "i406"
+                                                "i404"
+                                                "i402"
+                                                "i400"
+                                                "i398"
+                                                "i396"
+                                                "i393"
+                                                "i391"
                                                 "i390"
                                                 "i389"
                                                 "i388"
@@ -13445,90 +13363,89 @@
                                                 "i385"
                                                 "i384"
                                                 "i383"
-                                                "i382"
+                                                "i381"
                                                 "i380"
-                                                "i379"
-                                                "i377"
-                                                "i375"
-                                                "i373"
-                                                "i371"
-                                                "i369"
-                                                "i367"
+                                                "i378"
+                                                "i376"
+                                                "i374"
+                                                "i372"
+                                                "i370"
+                                                "i368"
+                                                "i366"
                                                 "i365"
                                                 "i364"
                                                 "i363"
                                                 "i362"
                                                 "i361"
-                                                "i360"
+                                                "i359"
                                                 "i358"
-                                                "i357"
-                                                "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"
+                                                "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"
                                                 "i293"
-                                                "i292"
-                                                "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"))
+                                                "i291"
+                                                "i289"
+                                                "i287"
+                                                "i285"
+                                                "i283"
+                                                "i281"
+                                                "i279"
+                                                "i277"
+                                                "i275"
+                                                "i272"
+                                                "i270"
+                                                "i268"
+                                                "i266"
+                                                "i264"
+                                                "i262"
+                                                "i260"
+                                                "i258"
+                                                "i256"
+                                                "i254"
+                                                "i252"
+                                                "i250"
+                                                "i248"
+                                                "i246"
+                                                "i244"
+                                                "i242"
+                                                "i240"
+                                                "i238"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors
                                                  and-map*)
                                                ((top) (top) (top) (top))
-                                               ("i39" "i38" "i37" "i35")))
+                                               ("i40" "i39" "i38" "i36")))
                                             (hygiene guile))
                                          '#(syntax-object
                                             _
@@ -13536,26 +13453,26 @@
                                              #(ribcage
                                                #(pat exp)
                                                #((top) (top))
-                                               #("i3861" "i3862"))
+                                               #("i3862" "i3863"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x keys clauses r mod)
                                                #((top) (top) (top) (top) (top))
-                                               #("i3850"
-                                                 "i3851"
+                                               #("i3851"
                                                  "i3852"
                                                  "i3853"
-                                                 "i3854"))
+                                                 "i3854"
+                                                 "i3855"))
                                              #(ribcage
                                                (gen-syntax-case
                                                  gen-clause
                                                  build-dispatch-call
                                                  convert-pattern)
                                                ((top) (top) (top) (top))
-                                               ("i3674"
-                                                "i3672"
-                                                "i3670"
-                                                "i3668"))
+                                               ("i3675"
+                                                "i3673"
+                                                "i3671"
+                                                "i3669"))
                                              #(ribcage
                                                (lambda-var-list
                                                  gen-var
@@ -13831,58 +13748,59 @@
                                                 (top)
                                                 (top)
                                                 (top))
-                                               ("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"
-                                                "i423"
-                                                "i421"
+                                               ("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"
+                                                "i422"
+                                                "i420"
                                                 "i419"
                                                 "i418"
-                                                "i417"
+                                                "i416"
                                                 "i415"
                                                 "i414"
                                                 "i413"
                                                 "i412"
-                                                "i411"
-                                                "i409"
-                                                "i407"
-                                                "i405"
-                                                "i403"
-                                                "i401"
-                                                "i399"
-                                                "i397"
-                                                "i395"
-                                                "i392"
+                                                "i410"
+                                                "i408"
+                                                "i406"
+                                                "i404"
+                                                "i402"
+                                                "i400"
+                                                "i398"
+                                                "i396"
+                                                "i393"
+                                                "i391"
                                                 "i390"
                                                 "i389"
                                                 "i388"
@@ -13891,690 +13809,675 @@
                                                 "i385"
                                                 "i384"
                                                 "i383"
-                                                "i382"
+                                                "i381"
                                                 "i380"
-                                                "i379"
-                                                "i377"
-                                                "i375"
-                                                "i373"
-                                                "i371"
-                                                "i369"
-                                                "i367"
+                                                "i378"
+                                                "i376"
+                                                "i374"
+                                                "i372"
+                                                "i370"
+                                                "i368"
+                                                "i366"
                                                 "i365"
                                                 "i364"
                                                 "i363"
                                                 "i362"
                                                 "i361"
-                                                "i360"
+                                                "i359"
                                                 "i358"
-                                                "i357"
-                                                "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"
+                                                "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"
                                                 "i293"
-                                                "i292"
-                                                "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"))
+                                                "i291"
+                                                "i289"
+                                                "i287"
+                                                "i285"
+                                                "i283"
+                                                "i281"
+                                                "i279"
+                                                "i277"
+                                                "i275"
+                                                "i272"
+                                                "i270"
+                                                "i268"
+                                                "i266"
+                                                "i264"
+                                                "i262"
+                                                "i260"
+                                                "i258"
+                                                "i256"
+                                                "i254"
+                                                "i252"
+                                                "i250"
+                                                "i248"
+                                                "i246"
+                                                "i244"
+                                                "i242"
+                                                "i240"
+                                                "i238"))
                                              #(ribcage
                                                (define-structure
                                                  define-expansion-accessors
                                                  define-expansion-constructors
                                                  and-map*)
                                                ((top) (top) (top) (top))
-                                               ("i39" "i38" "i37" "i35")))
+                                               ("i40" "i39" "i38" "i36")))
                                             (hygiene guile)))
-                                     (#{chi\ 460}#
-                                       #{exp\ 3864}#
-                                       #{r\ 3848}#
+                                     (#{chi\ 461}#
+                                       #{exp\ 3865}#
+                                       #{r\ 3849}#
                                        '(())
-                                       #{mod\ 3849}#)
+                                       #{mod\ 3850}#)
                                      (begin
-                                       (let ((#{labels\ 3872}#
-                                               (list (#{gen-label\ 391}#)))
-                                             (#{var\ 3873}#
-                                               (#{gen-var\ 488}#
-                                                 #{pat\ 3863}#)))
-                                         (#{build-application\ 304}#
+                                       (let ((#{labels\ 3873}#
+                                               (list (#{gen-label\ 392}#)))
+                                             (#{var\ 3874}#
+                                               (#{gen-var\ 489}#
+                                                 #{pat\ 3864}#)))
+                                         (#{build-application\ 305}#
                                            #f
-                                           (#{build-simple-lambda\ 322}#
+                                           (#{build-simple-lambda\ 323}#
                                              #f
                                              (list (syntax->datum
-                                                     #{pat\ 3863}#))
+                                                     #{pat\ 3864}#))
                                              #f
-                                             (list #{var\ 3873}#)
+                                             (list #{var\ 3874}#)
                                              '()
-                                             (#{chi\ 460}#
-                                               #{exp\ 3864}#
-                                               (#{extend-env\ 366}#
-                                                 #{labels\ 3872}#
+                                             (#{chi\ 461}#
+                                               #{exp\ 3865}#
+                                               (#{extend-env\ 367}#
+                                                 #{labels\ 3873}#
                                                  (list (cons 'syntax
-                                                             (cons #{var\ 
3873}#
+                                                             (cons #{var\ 
3874}#
                                                                    0)))
-                                                 #{r\ 3848}#)
-                                               (#{make-binding-wrap\ 422}#
-                                                 (list #{pat\ 3863}#)
-                                                 #{labels\ 3872}#
+                                                 #{r\ 3849}#)
+                                               (#{make-binding-wrap\ 423}#
+                                                 (list #{pat\ 3864}#)
+                                                 #{labels\ 3873}#
                                                  '(()))
-                                               #{mod\ 3849}#))
-                                           (list #{x\ 3845}#)))))
-                                   (#{gen-clause\ 3673}#
-                                     #{x\ 3845}#
-                                     #{keys\ 3846}#
-                                     (cdr #{clauses\ 3847}#)
-                                     #{r\ 3848}#
-                                     #{pat\ 3863}#
+                                               #{mod\ 3850}#))
+                                           (list #{x\ 3846}#)))))
+                                   (#{gen-clause\ 3674}#
+                                     #{x\ 3846}#
+                                     #{keys\ 3847}#
+                                     (cdr #{clauses\ 3848}#)
+                                     #{r\ 3849}#
+                                     #{pat\ 3864}#
                                      #t
-                                     #{exp\ 3864}#
-                                     #{mod\ 3849}#)))
-                               #{tmp\ 3860}#)
-                             (let ((#{tmp\ 3879}#
+                                     #{exp\ 3865}#
+                                     #{mod\ 3850}#)))
+                               #{tmp\ 3861}#)
+                             (let ((#{tmp\ 3880}#
                                      ($sc-dispatch
-                                       #{tmp\ 3859}#
+                                       #{tmp\ 3860}#
                                        '(any any any))))
-                               (if #{tmp\ 3879}#
+                               (if #{tmp\ 3880}#
                                  (@apply
-                                   (lambda (#{pat\ 3883}#
-                                            #{fender\ 3884}#
-                                            #{exp\ 3885}#)
-                                     (#{gen-clause\ 3673}#
-                                       #{x\ 3845}#
-                                       #{keys\ 3846}#
-                                       (cdr #{clauses\ 3847}#)
-                                       #{r\ 3848}#
-                                       #{pat\ 3883}#
-                                       #{fender\ 3884}#
-                                       #{exp\ 3885}#
-                                       #{mod\ 3849}#))
-                                   #{tmp\ 3879}#)
-                                 (let ((#{_\ 3887}# #{tmp\ 3859}#))
+                                   (lambda (#{pat\ 3884}#
+                                            #{fender\ 3885}#
+                                            #{exp\ 3886}#)
+                                     (#{gen-clause\ 3674}#
+                                       #{x\ 3846}#
+                                       #{keys\ 3847}#
+                                       (cdr #{clauses\ 3848}#)
+                                       #{r\ 3849}#
+                                       #{pat\ 3884}#
+                                       #{fender\ 3885}#
+                                       #{exp\ 3886}#
+                                       #{mod\ 3850}#))
+                                   #{tmp\ 3880}#)
+                                 (let ((#{_\ 3888}# #{tmp\ 3860}#))
                                    (syntax-violation
                                      'syntax-case
                                      "invalid clause"
-                                     (car #{clauses\ 3847}#))))))))))))
+                                     (car #{clauses\ 3848}#))))))))))))
                 (begin
-                  (lambda (#{e\ 3888}#
-                           #{r\ 3889}#
-                           #{w\ 3890}#
-                           #{s\ 3891}#
-                           #{mod\ 3892}#)
+                  (lambda (#{e\ 3889}#
+                           #{r\ 3890}#
+                           #{w\ 3891}#
+                           #{s\ 3892}#
+                           #{mod\ 3893}#)
                     (begin
-                      (let ((#{e\ 3899}#
-                              (#{source-wrap\ 446}#
-                                #{e\ 3888}#
-                                #{w\ 3890}#
-                                #{s\ 3891}#
-                                #{mod\ 3892}#)))
-                        (let ((#{tmp\ 3900}# #{e\ 3899}#))
-                          (let ((#{tmp\ 3901}#
+                      (let ((#{e\ 3900}#
+                              (#{source-wrap\ 447}#
+                                #{e\ 3889}#
+                                #{w\ 3891}#
+                                #{s\ 3892}#
+                                #{mod\ 3893}#)))
+                        (let ((#{tmp\ 3901}# #{e\ 3900}#))
+                          (let ((#{tmp\ 3902}#
                                   ($sc-dispatch
-                                    #{tmp\ 3900}#
+                                    #{tmp\ 3901}#
                                     '(_ any each-any . each-any))))
-                            (if #{tmp\ 3901}#
+                            (if #{tmp\ 3902}#
                               (@apply
-                                (lambda (#{val\ 3905}#
-                                         #{key\ 3906}#
-                                         #{m\ 3907}#)
+                                (lambda (#{val\ 3906}#
+                                         #{key\ 3907}#
+                                         #{m\ 3908}#)
                                   (if (and-map
-                                        (lambda (#{x\ 3908}#)
-                                          (if (#{id?\ 378}# #{x\ 3908}#)
-                                            (not (#{ellipsis?\ 476}#
-                                                   #{x\ 3908}#))
+                                        (lambda (#{x\ 3909}#)
+                                          (if (#{id?\ 379}# #{x\ 3909}#)
+                                            (not (#{ellipsis?\ 477}#
+                                                   #{x\ 3909}#))
                                             #f))
-                                        #{key\ 3906}#)
+                                        #{key\ 3907}#)
                                     (begin
-                                      (let ((#{x\ 3914}#
-                                              (#{gen-var\ 488}# (quote tmp))))
-                                        (#{build-application\ 304}#
-                                          #{s\ 3891}#
-                                          (#{build-simple-lambda\ 322}#
+                                      (let ((#{x\ 3915}#
+                                              (#{gen-var\ 489}# 'tmp)))
+                                        (#{build-application\ 305}#
+                                          #{s\ 3892}#
+                                          (#{build-simple-lambda\ 323}#
                                             #f
-                                            (list (quote tmp))
+                                            (list 'tmp)
                                             #f
-                                            (list #{x\ 3914}#)
+                                            (list #{x\ 3915}#)
                                             '()
-                                            (#{gen-syntax-case\ 3675}#
-                                              (#{build-lexical-reference\ 310}#
+                                            (#{gen-syntax-case\ 3676}#
+                                              (#{build-lexical-reference\ 311}#
                                                 'value
                                                 #f
                                                 'tmp
-                                                #{x\ 3914}#)
-                                              #{key\ 3906}#
-                                              #{m\ 3907}#
-                                              #{r\ 3889}#
-                                              #{mod\ 3892}#))
-                                          (list (#{chi\ 460}#
-                                                  #{val\ 3905}#
-                                                  #{r\ 3889}#
+                                                #{x\ 3915}#)
+                                              #{key\ 3907}#
+                                              #{m\ 3908}#
+                                              #{r\ 3890}#
+                                              #{mod\ 3893}#))
+                                          (list (#{chi\ 461}#
+                                                  #{val\ 3906}#
+                                                  #{r\ 3890}#
                                                   '(())
-                                                  #{mod\ 3892}#)))))
+                                                  #{mod\ 3893}#)))))
                                     (syntax-violation
                                       'syntax-case
                                       "invalid literals list"
-                                      #{e\ 3899}#)))
-                                #{tmp\ 3901}#)
+                                      #{e\ 3900}#)))
+                                #{tmp\ 3902}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 3900}#))))))))))
+                                #{tmp\ 3901}#))))))))))
             (set! macroexpand
               (lambda*
-                (#{x\ 3920}#
+                (#{x\ 3921}#
                   #:optional
-                  (#{m\ 3922}# (quote e))
-                  (#{esew\ 3924}# (quote (eval))))
-                (#{chi-top\ 458}#
-                  #{x\ 3920}#
+                  (#{m\ 3923}# 'e)
+                  (#{esew\ 3925}# '(eval)))
+                (#{chi-top\ 459}#
+                  #{x\ 3921}#
                   '()
                   '((top))
-                  #{m\ 3922}#
-                  #{esew\ 3924}#
-                  (cons 'hygiene
-                        (module-name (current-module))))))
+                  #{m\ 3923}#
+                  #{esew\ 3925}#
+                  (cons 'hygiene (module-name (current-module))))))
             (set! identifier?
-              (lambda (#{x\ 3928}#)
-                (#{nonsymbol-id?\ 376}# #{x\ 3928}#)))
+              (lambda (#{x\ 3929}#)
+                (#{nonsymbol-id?\ 377}# #{x\ 3929}#)))
             (set! datum->syntax
-              (lambda (#{id\ 3930}# #{datum\ 3931}#)
-                (#{make-syntax-object\ 342}#
-                  #{datum\ 3931}#
-                  (#{syntax-object-wrap\ 348}# #{id\ 3930}#)
-                  (#{syntax-object-module\ 350}# #{id\ 3930}#))))
+              (lambda (#{id\ 3931}# #{datum\ 3932}#)
+                (#{make-syntax-object\ 343}#
+                  #{datum\ 3932}#
+                  (#{syntax-object-wrap\ 349}# #{id\ 3931}#)
+                  (#{syntax-object-module\ 351}# #{id\ 3931}#))))
             (set! syntax->datum
-              (lambda (#{x\ 3934}#)
-                (#{strip\ 486}# #{x\ 3934}# (quote (())))))
+              (lambda (#{x\ 3935}#)
+                (#{strip\ 487}# #{x\ 3935}# '(()))))
             (set! syntax-source
-              (lambda (#{x\ 3937}#)
-                (#{source-annotation\ 359}# #{x\ 3937}#)))
+              (lambda (#{x\ 3938}#)
+                (#{source-annotation\ 360}# #{x\ 3938}#)))
             (set! generate-temporaries
-              (lambda (#{ls\ 3939}#)
+              (lambda (#{ls\ 3940}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3943}# #{ls\ 3939}#))
-                      (if (not (list? #{x\ 3943}#))
+                    (let ((#{x\ 3944}# #{ls\ 3940}#))
+                      (if (not (list? #{x\ 3944}#))
                         (syntax-violation
                           'generate-temporaries
                           "invalid argument"
-                          #{x\ 3943}#))))
-                  (map (lambda (#{x\ 3944}#)
-                         (#{wrap\ 444}# (gensym) (quote ((top))) #f))
-                       #{ls\ 3939}#))))
+                          #{x\ 3944}#))))
+                  (map (lambda (#{x\ 3945}#)
+                         (#{wrap\ 445}# (gensym) '((top)) #f))
+                       #{ls\ 3940}#))))
             (set! free-identifier=?
-              (lambda (#{x\ 3948}# #{y\ 3949}#)
+              (lambda (#{x\ 3949}# #{y\ 3950}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3954}# #{x\ 3948}#))
-                      (if (not (#{nonsymbol-id?\ 376}# #{x\ 3954}#))
+                    (let ((#{x\ 3955}# #{x\ 3949}#))
+                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3955}#))
                         (syntax-violation
                           'free-identifier=?
                           "invalid argument"
-                          #{x\ 3954}#))))
+                          #{x\ 3955}#))))
                   (begin
-                    (let ((#{x\ 3957}# #{y\ 3949}#))
-                      (if (not (#{nonsymbol-id?\ 376}# #{x\ 3957}#))
+                    (let ((#{x\ 3958}# #{y\ 3950}#))
+                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3958}#))
                         (syntax-violation
                           'free-identifier=?
                           "invalid argument"
-                          #{x\ 3957}#))))
-                  (#{free-id=?\ 434}# #{x\ 3948}# #{y\ 3949}#))))
+                          #{x\ 3958}#))))
+                  (#{free-id=?\ 435}# #{x\ 3949}# #{y\ 3950}#))))
             (set! bound-identifier=?
-              (lambda (#{x\ 3958}# #{y\ 3959}#)
+              (lambda (#{x\ 3959}# #{y\ 3960}#)
                 (begin
                   (begin
-                    (let ((#{x\ 3964}# #{x\ 3958}#))
-                      (if (not (#{nonsymbol-id?\ 376}# #{x\ 3964}#))
+                    (let ((#{x\ 3965}# #{x\ 3959}#))
+                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3965}#))
                         (syntax-violation
                           'bound-identifier=?
                           "invalid argument"
-                          #{x\ 3964}#))))
+                          #{x\ 3965}#))))
                   (begin
-                    (let ((#{x\ 3967}# #{y\ 3959}#))
-                      (if (not (#{nonsymbol-id?\ 376}# #{x\ 3967}#))
+                    (let ((#{x\ 3968}# #{y\ 3960}#))
+                      (if (not (#{nonsymbol-id?\ 377}# #{x\ 3968}#))
                         (syntax-violation
                           'bound-identifier=?
                           "invalid argument"
-                          #{x\ 3967}#))))
-                  (#{bound-id=?\ 436}# #{x\ 3958}# #{y\ 3959}#))))
+                          #{x\ 3968}#))))
+                  (#{bound-id=?\ 437}# #{x\ 3959}# #{y\ 3960}#))))
             (set! syntax-violation
-              (lambda (#{who\ 3968}#
-                       #{message\ 3969}#
-                       #{form\ 3970}#
-                       .
-                       #{subform\ 3971}#)
+              (lambda*
+                (#{who\ 3969}#
+                  #{message\ 3970}#
+                  #{form\ 3971}#
+                  #:optional
+                  (#{subform\ 3975}# #f))
                 (begin
                   (begin
-                    (let ((#{x\ 3978}# #{who\ 3968}#))
-                      (if (not (let ((#{x\ 3979}# #{x\ 3978}#))
+                    (let ((#{x\ 3979}# #{who\ 3969}#))
+                      (if (not (let ((#{x\ 3980}# #{x\ 3979}#))
                                  (begin
-                                   (let ((#{t\ 3983}# (not #{x\ 3979}#)))
-                                     (if #{t\ 3983}#
-                                       #{t\ 3983}#
+                                   (let ((#{t\ 3984}# (not #{x\ 3980}#)))
+                                     (if #{t\ 3984}#
+                                       #{t\ 3984}#
                                        (begin
-                                         (let ((#{t\ 3986}#
-                                                 (string? #{x\ 3979}#)))
-                                           (if #{t\ 3986}#
-                                             #{t\ 3986}#
-                                             (symbol? #{x\ 3979}#)))))))))
+                                         (let ((#{t\ 3987}#
+                                                 (string? #{x\ 3980}#)))
+                                           (if #{t\ 3987}#
+                                             #{t\ 3987}#
+                                             (symbol? #{x\ 3980}#)))))))))
                         (syntax-violation
                           'syntax-violation
                           "invalid argument"
-                          #{x\ 3978}#))))
+                          #{x\ 3979}#))))
                   (begin
-                    (let ((#{x\ 3990}# #{message\ 3969}#))
-                      (if (not (string? #{x\ 3990}#))
+                    (let ((#{x\ 3991}# #{message\ 3970}#))
+                      (if (not (string? #{x\ 3991}#))
                         (syntax-violation
                           'syntax-violation
                           "invalid argument"
-                          #{x\ 3990}#))))
-                  (scm-error
-                    'syntax-error
-                    'macroexpand
-                    (string-append
-                      (if #{who\ 3968}# "~a: " "")
-                      "~a "
-                      (if (null? #{subform\ 3971}#)
-                        "in ~a"
-                        "in subform `~s' of `~s'"))
-                    (begin
-                      (let ((#{tail\ 3992}#
-                              (cons #{message\ 3969}#
-                                    (map (lambda (#{x\ 3993}#)
-                                           (#{strip\ 486}#
-                                             #{x\ 3993}#
-                                             '(())))
-                                         (append
-                                           #{subform\ 3971}#
-                                           (list #{form\ 3970}#))))))
-                        (if #{who\ 3968}#
-                          (cons #{who\ 3968}# #{tail\ 3992}#)
-                          #{tail\ 3992}#)))
-                    #f))))
+                          #{x\ 3991}#))))
+                  (throw 'syntax-error
+                         #{who\ 3969}#
+                         #{message\ 3970}#
+                         (#{source-annotation\ 360}#
+                           (begin
+                             (let ((#{t\ 3994}# #{form\ 3971}#))
+                               (if #{t\ 3994}#
+                                 #{t\ 3994}#
+                                 #{subform\ 3975}#))))
+                         (#{strip\ 487}# #{form\ 3971}# '(()))
+                         (if #{subform\ 3975}#
+                           (#{strip\ 487}# #{subform\ 3975}# '(()))
+                           #f)))))
             (letrec*
-              ((#{match-each\ 3997}#
-                 (lambda (#{e\ 4010}#
-                          #{p\ 4011}#
-                          #{w\ 4012}#
-                          #{mod\ 4013}#)
-                   (if (pair? #{e\ 4010}#)
+              ((#{match-each\ 4001}#
+                 (lambda (#{e\ 4014}#
+                          #{p\ 4015}#
+                          #{w\ 4016}#
+                          #{mod\ 4017}#)
+                   (if (pair? #{e\ 4014}#)
                      (begin
-                       (let ((#{first\ 4021}#
-                               (#{match\ 4009}#
-                                 (car #{e\ 4010}#)
-                                 #{p\ 4011}#
-                                 #{w\ 4012}#
+                       (let ((#{first\ 4025}#
+                               (#{match\ 4013}#
+                                 (car #{e\ 4014}#)
+                                 #{p\ 4015}#
+                                 #{w\ 4016}#
                                  '()
-                                 #{mod\ 4013}#)))
-                         (if #{first\ 4021}#
+                                 #{mod\ 4017}#)))
+                         (if #{first\ 4025}#
                            (begin
-                             (let ((#{rest\ 4025}#
-                                     (#{match-each\ 3997}#
-                                       (cdr #{e\ 4010}#)
-                                       #{p\ 4011}#
-                                       #{w\ 4012}#
-                                       #{mod\ 4013}#)))
-                               (if #{rest\ 4025}#
-                                 (cons #{first\ 4021}# #{rest\ 4025}#)
+                             (let ((#{rest\ 4029}#
+                                     (#{match-each\ 4001}#
+                                       (cdr #{e\ 4014}#)
+                                       #{p\ 4015}#
+                                       #{w\ 4016}#
+                                       #{mod\ 4017}#)))
+                               (if #{rest\ 4029}#
+                                 (cons #{first\ 4025}# #{rest\ 4029}#)
                                  #f)))
                            #f)))
-                     (if (null? #{e\ 4010}#)
+                     (if (null? #{e\ 4014}#)
                        '()
-                       (if (#{syntax-object?\ 344}# #{e\ 4010}#)
-                         (#{match-each\ 3997}#
-                           (#{syntax-object-expression\ 346}# #{e\ 4010}#)
-                           #{p\ 4011}#
-                           (#{join-wraps\ 426}#
-                             #{w\ 4012}#
-                             (#{syntax-object-wrap\ 348}# #{e\ 4010}#))
-                           (#{syntax-object-module\ 350}# #{e\ 4010}#))
+                       (if (#{syntax-object?\ 345}# #{e\ 4014}#)
+                         (#{match-each\ 4001}#
+                           (#{syntax-object-expression\ 347}# #{e\ 4014}#)
+                           #{p\ 4015}#
+                           (#{join-wraps\ 427}#
+                             #{w\ 4016}#
+                             (#{syntax-object-wrap\ 349}# #{e\ 4014}#))
+                           (#{syntax-object-module\ 351}# #{e\ 4014}#))
                          #f)))))
-               (#{match-each+\ 3999}#
-                 (lambda (#{e\ 4033}#
-                          #{x-pat\ 4034}#
-                          #{y-pat\ 4035}#
-                          #{z-pat\ 4036}#
-                          #{w\ 4037}#
-                          #{r\ 4038}#
-                          #{mod\ 4039}#)
+               (#{match-each+\ 4003}#
+                 (lambda (#{e\ 4037}#
+                          #{x-pat\ 4038}#
+                          #{y-pat\ 4039}#
+                          #{z-pat\ 4040}#
+                          #{w\ 4041}#
+                          #{r\ 4042}#
+                          #{mod\ 4043}#)
                    (letrec*
-                     ((#{f\ 4050}#
-                        (lambda (#{e\ 4051}# #{w\ 4052}#)
-                          (if (pair? #{e\ 4051}#)
+                     ((#{f\ 4054}#
+                        (lambda (#{e\ 4055}# #{w\ 4056}#)
+                          (if (pair? #{e\ 4055}#)
                             (call-with-values
                               (lambda ()
-                                (#{f\ 4050}# (cdr #{e\ 4051}#) #{w\ 4052}#))
-                              (lambda (#{xr*\ 4055}#
-                                       #{y-pat\ 4056}#
-                                       #{r\ 4057}#)
-                                (if #{r\ 4057}#
-                                  (if (null? #{y-pat\ 4056}#)
+                                (#{f\ 4054}# (cdr #{e\ 4055}#) #{w\ 4056}#))
+                              (lambda (#{xr*\ 4059}#
+                                       #{y-pat\ 4060}#
+                                       #{r\ 4061}#)
+                                (if #{r\ 4061}#
+                                  (if (null? #{y-pat\ 4060}#)
                                     (begin
-                                      (let ((#{xr\ 4062}#
-                                              (#{match\ 4009}#
-                                                (car #{e\ 4051}#)
-                                                #{x-pat\ 4034}#
-                                                #{w\ 4052}#
+                                      (let ((#{xr\ 4066}#
+                                              (#{match\ 4013}#
+                                                (car #{e\ 4055}#)
+                                                #{x-pat\ 4038}#
+                                                #{w\ 4056}#
                                                 '()
-                                                #{mod\ 4039}#)))
-                                        (if #{xr\ 4062}#
+                                                #{mod\ 4043}#)))
+                                        (if #{xr\ 4066}#
                                           (values
-                                            (cons #{xr\ 4062}# #{xr*\ 4055}#)
-                                            #{y-pat\ 4056}#
-                                            #{r\ 4057}#)
+                                            (cons #{xr\ 4066}# #{xr*\ 4059}#)
+                                            #{y-pat\ 4060}#
+                                            #{r\ 4061}#)
                                           (values #f #f #f))))
                                     (values
                                       '()
-                                      (cdr #{y-pat\ 4056}#)
-                                      (#{match\ 4009}#
-                                        (car #{e\ 4051}#)
-                                        (car #{y-pat\ 4056}#)
-                                        #{w\ 4052}#
-                                        #{r\ 4057}#
-                                        #{mod\ 4039}#)))
+                                      (cdr #{y-pat\ 4060}#)
+                                      (#{match\ 4013}#
+                                        (car #{e\ 4055}#)
+                                        (car #{y-pat\ 4060}#)
+                                        #{w\ 4056}#
+                                        #{r\ 4061}#
+                                        #{mod\ 4043}#)))
                                   (values #f #f #f))))
-                            (if (#{syntax-object?\ 344}# #{e\ 4051}#)
-                              (#{f\ 4050}#
-                                (#{syntax-object-expression\ 346}# #{e\ 4051}#)
-                                (#{join-wraps\ 426}# #{w\ 4052}# #{e\ 4051}#))
+                            (if (#{syntax-object?\ 345}# #{e\ 4055}#)
+                              (#{f\ 4054}#
+                                (#{syntax-object-expression\ 347}# #{e\ 4055}#)
+                                (#{join-wraps\ 427}# #{w\ 4056}# #{e\ 4055}#))
                               (values
                                 '()
-                                #{y-pat\ 4035}#
-                                (#{match\ 4009}#
-                                  #{e\ 4051}#
-                                  #{z-pat\ 4036}#
-                                  #{w\ 4052}#
-                                  #{r\ 4038}#
-                                  #{mod\ 4039}#)))))))
-                     (begin (#{f\ 4050}# #{e\ 4033}# #{w\ 4037}#)))))
-               (#{match-each-any\ 4001}#
-                 (lambda (#{e\ 4066}# #{w\ 4067}# #{mod\ 4068}#)
-                   (if (pair? #{e\ 4066}#)
+                                #{y-pat\ 4039}#
+                                (#{match\ 4013}#
+                                  #{e\ 4055}#
+                                  #{z-pat\ 4040}#
+                                  #{w\ 4056}#
+                                  #{r\ 4042}#
+                                  #{mod\ 4043}#)))))))
+                     (begin (#{f\ 4054}# #{e\ 4037}# #{w\ 4041}#)))))
+               (#{match-each-any\ 4005}#
+                 (lambda (#{e\ 4070}# #{w\ 4071}# #{mod\ 4072}#)
+                   (if (pair? #{e\ 4070}#)
                      (begin
-                       (let ((#{l\ 4075}#
-                               (#{match-each-any\ 4001}#
-                                 (cdr #{e\ 4066}#)
-                                 #{w\ 4067}#
-                                 #{mod\ 4068}#)))
-                         (if #{l\ 4075}#
-                           (cons (#{wrap\ 444}#
-                                   (car #{e\ 4066}#)
-                                   #{w\ 4067}#
-                                   #{mod\ 4068}#)
-                                 #{l\ 4075}#)
+                       (let ((#{l\ 4079}#
+                               (#{match-each-any\ 4005}#
+                                 (cdr #{e\ 4070}#)
+                                 #{w\ 4071}#
+                                 #{mod\ 4072}#)))
+                         (if #{l\ 4079}#
+                           (cons (#{wrap\ 445}#
+                                   (car #{e\ 4070}#)
+                                   #{w\ 4071}#
+                                   #{mod\ 4072}#)
+                                 #{l\ 4079}#)
                            #f)))
-                     (if (null? #{e\ 4066}#)
+                     (if (null? #{e\ 4070}#)
                        '()
-                       (if (#{syntax-object?\ 344}# #{e\ 4066}#)
-                         (#{match-each-any\ 4001}#
-                           (#{syntax-object-expression\ 346}# #{e\ 4066}#)
-                           (#{join-wraps\ 426}#
-                             #{w\ 4067}#
-                             (#{syntax-object-wrap\ 348}# #{e\ 4066}#))
-                           #{mod\ 4068}#)
+                       (if (#{syntax-object?\ 345}# #{e\ 4070}#)
+                         (#{match-each-any\ 4005}#
+                           (#{syntax-object-expression\ 347}# #{e\ 4070}#)
+                           (#{join-wraps\ 427}#
+                             #{w\ 4071}#
+                             (#{syntax-object-wrap\ 349}# #{e\ 4070}#))
+                           #{mod\ 4072}#)
                          #f)))))
-               (#{match-empty\ 4003}#
-                 (lambda (#{p\ 4083}# #{r\ 4084}#)
-                   (if (null? #{p\ 4083}#)
-                     #{r\ 4084}#
-                     (if (eq? #{p\ 4083}# (quote _))
-                       #{r\ 4084}#
-                       (if (eq? #{p\ 4083}# (quote any))
-                         (cons (quote ()) #{r\ 4084}#)
-                         (if (pair? #{p\ 4083}#)
-                           (#{match-empty\ 4003}#
-                             (car #{p\ 4083}#)
-                             (#{match-empty\ 4003}#
-                               (cdr #{p\ 4083}#)
-                               #{r\ 4084}#))
-                           (if (eq? #{p\ 4083}# (quote each-any))
-                             (cons (quote ()) #{r\ 4084}#)
+               (#{match-empty\ 4007}#
+                 (lambda (#{p\ 4087}# #{r\ 4088}#)
+                   (if (null? #{p\ 4087}#)
+                     #{r\ 4088}#
+                     (if (eq? #{p\ 4087}# '_)
+                       #{r\ 4088}#
+                       (if (eq? #{p\ 4087}# 'any)
+                         (cons '() #{r\ 4088}#)
+                         (if (pair? #{p\ 4087}#)
+                           (#{match-empty\ 4007}#
+                             (car #{p\ 4087}#)
+                             (#{match-empty\ 4007}#
+                               (cdr #{p\ 4087}#)
+                               #{r\ 4088}#))
+                           (if (eq? #{p\ 4087}# 'each-any)
+                             (cons '() #{r\ 4088}#)
                              (begin
-                               (let ((#{atom-key\ 4100}#
-                                       (vector-ref #{p\ 4083}# 0)))
-                                 (if (eqv? #{atom-key\ 4100}# (quote each))
-                                   (#{match-empty\ 4003}#
-                                     (vector-ref #{p\ 4083}# 1)
-                                     #{r\ 4084}#)
-                                   (if (eqv? #{atom-key\ 4100}# (quote each+))
-                                     (#{match-empty\ 4003}#
-                                       (vector-ref #{p\ 4083}# 1)
-                                       (#{match-empty\ 4003}#
-                                         (reverse (vector-ref #{p\ 4083}# 2))
-                                         (#{match-empty\ 4003}#
-                                           (vector-ref #{p\ 4083}# 3)
-                                           #{r\ 4084}#)))
-                                     (if (if (eqv? #{atom-key\ 4100}#
-                                                   'free-id)
+                               (let ((#{atom-key\ 4104}#
+                                       (vector-ref #{p\ 4087}# 0)))
+                                 (if (eqv? #{atom-key\ 4104}# 'each)
+                                   (#{match-empty\ 4007}#
+                                     (vector-ref #{p\ 4087}# 1)
+                                     #{r\ 4088}#)
+                                   (if (eqv? #{atom-key\ 4104}# 'each+)
+                                     (#{match-empty\ 4007}#
+                                       (vector-ref #{p\ 4087}# 1)
+                                       (#{match-empty\ 4007}#
+                                         (reverse (vector-ref #{p\ 4087}# 2))
+                                         (#{match-empty\ 4007}#
+                                           (vector-ref #{p\ 4087}# 3)
+                                           #{r\ 4088}#)))
+                                     (if (if (eqv? #{atom-key\ 4104}# 'free-id)
                                            #t
-                                           (eqv? #{atom-key\ 4100}#
-                                                 'atom))
-                                       #{r\ 4084}#
-                                       (if (eqv? #{atom-key\ 4100}#
-                                                 'vector)
-                                         (#{match-empty\ 4003}#
-                                           (vector-ref #{p\ 4083}# 1)
-                                           #{r\ 4084}#))))))))))))))
-               (#{combine\ 4005}#
-                 (lambda (#{r*\ 4105}# #{r\ 4106}#)
-                   (if (null? (car #{r*\ 4105}#))
-                     #{r\ 4106}#
-                     (cons (map car #{r*\ 4105}#)
-                           (#{combine\ 4005}#
-                             (map cdr #{r*\ 4105}#)
-                             #{r\ 4106}#)))))
-               (#{match*\ 4007}#
-                 (lambda (#{e\ 4109}#
-                          #{p\ 4110}#
-                          #{w\ 4111}#
-                          #{r\ 4112}#
-                          #{mod\ 4113}#)
-                   (if (null? #{p\ 4110}#)
-                     (if (null? #{e\ 4109}#) #{r\ 4112}# #f)
-                     (if (pair? #{p\ 4110}#)
-                       (if (pair? #{e\ 4109}#)
-                         (#{match\ 4009}#
-                           (car #{e\ 4109}#)
-                           (car #{p\ 4110}#)
-                           #{w\ 4111}#
-                           (#{match\ 4009}#
-                             (cdr #{e\ 4109}#)
-                             (cdr #{p\ 4110}#)
-                             #{w\ 4111}#
-                             #{r\ 4112}#
-                             #{mod\ 4113}#)
-                           #{mod\ 4113}#)
+                                           (eqv? #{atom-key\ 4104}# 'atom))
+                                       #{r\ 4088}#
+                                       (if (eqv? #{atom-key\ 4104}# 'vector)
+                                         (#{match-empty\ 4007}#
+                                           (vector-ref #{p\ 4087}# 1)
+                                           #{r\ 4088}#))))))))))))))
+               (#{combine\ 4009}#
+                 (lambda (#{r*\ 4109}# #{r\ 4110}#)
+                   (if (null? (car #{r*\ 4109}#))
+                     #{r\ 4110}#
+                     (cons (map car #{r*\ 4109}#)
+                           (#{combine\ 4009}#
+                             (map cdr #{r*\ 4109}#)
+                             #{r\ 4110}#)))))
+               (#{match*\ 4011}#
+                 (lambda (#{e\ 4113}#
+                          #{p\ 4114}#
+                          #{w\ 4115}#
+                          #{r\ 4116}#
+                          #{mod\ 4117}#)
+                   (if (null? #{p\ 4114}#)
+                     (if (null? #{e\ 4113}#) #{r\ 4116}# #f)
+                     (if (pair? #{p\ 4114}#)
+                       (if (pair? #{e\ 4113}#)
+                         (#{match\ 4013}#
+                           (car #{e\ 4113}#)
+                           (car #{p\ 4114}#)
+                           #{w\ 4115}#
+                           (#{match\ 4013}#
+                             (cdr #{e\ 4113}#)
+                             (cdr #{p\ 4114}#)
+                             #{w\ 4115}#
+                             #{r\ 4116}#
+                             #{mod\ 4117}#)
+                           #{mod\ 4117}#)
                          #f)
-                       (if (eq? #{p\ 4110}# (quote each-any))
+                       (if (eq? #{p\ 4114}# 'each-any)
                          (begin
-                           (let ((#{l\ 4130}#
-                                   (#{match-each-any\ 4001}#
-                                     #{e\ 4109}#
-                                     #{w\ 4111}#
-                                     #{mod\ 4113}#)))
-                             (if #{l\ 4130}#
-                               (cons #{l\ 4130}# #{r\ 4112}#)
+                           (let ((#{l\ 4134}#
+                                   (#{match-each-any\ 4005}#
+                                     #{e\ 4113}#
+                                     #{w\ 4115}#
+                                     #{mod\ 4117}#)))
+                             (if #{l\ 4134}#
+                               (cons #{l\ 4134}# #{r\ 4116}#)
                                #f)))
                          (begin
-                           (let ((#{atom-key\ 4136}#
-                                   (vector-ref #{p\ 4110}# 0)))
-                             (if (eqv? #{atom-key\ 4136}# (quote each))
-                               (if (null? #{e\ 4109}#)
-                                 (#{match-empty\ 4003}#
-                                   (vector-ref #{p\ 4110}# 1)
-                                   #{r\ 4112}#)
+                           (let ((#{atom-key\ 4140}#
+                                   (vector-ref #{p\ 4114}# 0)))
+                             (if (eqv? #{atom-key\ 4140}# 'each)
+                               (if (null? #{e\ 4113}#)
+                                 (#{match-empty\ 4007}#
+                                   (vector-ref #{p\ 4114}# 1)
+                                   #{r\ 4116}#)
                                  (begin
-                                   (let ((#{l\ 4139}#
-                                           (#{match-each\ 3997}#
-                                             #{e\ 4109}#
-                                             (vector-ref #{p\ 4110}# 1)
-                                             #{w\ 4111}#
-                                             #{mod\ 4113}#)))
-                                     (if #{l\ 4139}#
+                                   (let ((#{l\ 4143}#
+                                           (#{match-each\ 4001}#
+                                             #{e\ 4113}#
+                                             (vector-ref #{p\ 4114}# 1)
+                                             #{w\ 4115}#
+                                             #{mod\ 4117}#)))
+                                     (if #{l\ 4143}#
                                        (letrec*
-                                         ((#{collect\ 4144}#
-                                            (lambda (#{l\ 4145}#)
-                                              (if (null? (car #{l\ 4145}#))
-                                                #{r\ 4112}#
-                                                (cons (map car #{l\ 4145}#)
-                                                      (#{collect\ 4144}#
+                                         ((#{collect\ 4148}#
+                                            (lambda (#{l\ 4149}#)
+                                              (if (null? (car #{l\ 4149}#))
+                                                #{r\ 4116}#
+                                                (cons (map car #{l\ 4149}#)
+                                                      (#{collect\ 4148}#
                                                         (map cdr
-                                                             #{l\ 4145}#)))))))
+                                                             #{l\ 4149}#)))))))
                                          (begin
-                                           (#{collect\ 4144}# #{l\ 4139}#)))
+                                           (#{collect\ 4148}# #{l\ 4143}#)))
                                        #f))))
-                               (if (eqv? #{atom-key\ 4136}# (quote each+))
+                               (if (eqv? #{atom-key\ 4140}# 'each+)
                                  (call-with-values
                                    (lambda ()
-                                     (#{match-each+\ 3999}#
-                                       #{e\ 4109}#
-                                       (vector-ref #{p\ 4110}# 1)
-                                       (vector-ref #{p\ 4110}# 2)
-                                       (vector-ref #{p\ 4110}# 3)
-                                       #{w\ 4111}#
-                                       #{r\ 4112}#
-                                       #{mod\ 4113}#))
-                                   (lambda (#{xr*\ 4147}#
-                                            #{y-pat\ 4148}#
-                                            #{r\ 4149}#)
-                                     (if #{r\ 4149}#
-                                       (if (null? #{y-pat\ 4148}#)
-                                         (if (null? #{xr*\ 4147}#)
-                                           (#{match-empty\ 4003}#
-                                             (vector-ref #{p\ 4110}# 1)
-                                             #{r\ 4149}#)
-                                           (#{combine\ 4005}#
-                                             #{xr*\ 4147}#
-                                             #{r\ 4149}#))
+                                     (#{match-each+\ 4003}#
+                                       #{e\ 4113}#
+                                       (vector-ref #{p\ 4114}# 1)
+                                       (vector-ref #{p\ 4114}# 2)
+                                       (vector-ref #{p\ 4114}# 3)
+                                       #{w\ 4115}#
+                                       #{r\ 4116}#
+                                       #{mod\ 4117}#))
+                                   (lambda (#{xr*\ 4151}#
+                                            #{y-pat\ 4152}#
+                                            #{r\ 4153}#)
+                                     (if #{r\ 4153}#
+                                       (if (null? #{y-pat\ 4152}#)
+                                         (if (null? #{xr*\ 4151}#)
+                                           (#{match-empty\ 4007}#
+                                             (vector-ref #{p\ 4114}# 1)
+                                             #{r\ 4153}#)
+                                           (#{combine\ 4009}#
+                                             #{xr*\ 4151}#
+                                             #{r\ 4153}#))
                                          #f)
                                        #f)))
-                                 (if (eqv? #{atom-key\ 4136}# (quote free-id))
-                                   (if (#{id?\ 378}# #{e\ 4109}#)
-                                     (if (#{free-id=?\ 434}#
-                                           (#{wrap\ 444}#
-                                             #{e\ 4109}#
-                                             #{w\ 4111}#
-                                             #{mod\ 4113}#)
-                                           (vector-ref #{p\ 4110}# 1))
-                                       #{r\ 4112}#
+                                 (if (eqv? #{atom-key\ 4140}# 'free-id)
+                                   (if (#{id?\ 379}# #{e\ 4113}#)
+                                     (if (#{free-id=?\ 435}#
+                                           (#{wrap\ 445}#
+                                             #{e\ 4113}#
+                                             #{w\ 4115}#
+                                             #{mod\ 4117}#)
+                                           (vector-ref #{p\ 4114}# 1))
+                                       #{r\ 4116}#
                                        #f)
                                      #f)
-                                   (if (eqv? #{atom-key\ 4136}# (quote atom))
+                                   (if (eqv? #{atom-key\ 4140}# 'atom)
                                      (if (equal?
-                                           (vector-ref #{p\ 4110}# 1)
-                                           (#{strip\ 486}#
-                                             #{e\ 4109}#
-                                             #{w\ 4111}#))
-                                       #{r\ 4112}#
+                                           (vector-ref #{p\ 4114}# 1)
+                                           (#{strip\ 487}#
+                                             #{e\ 4113}#
+                                             #{w\ 4115}#))
+                                       #{r\ 4116}#
                                        #f)
-                                     (if (eqv? #{atom-key\ 4136}#
-                                               'vector)
-                                       (if (vector? #{e\ 4109}#)
-                                         (#{match\ 4009}#
-                                           (vector->list #{e\ 4109}#)
-                                           (vector-ref #{p\ 4110}# 1)
-                                           #{w\ 4111}#
-                                           #{r\ 4112}#
-                                           #{mod\ 4113}#)
+                                     (if (eqv? #{atom-key\ 4140}# 'vector)
+                                       (if (vector? #{e\ 4113}#)
+                                         (#{match\ 4013}#
+                                           (vector->list #{e\ 4113}#)
+                                           (vector-ref #{p\ 4114}# 1)
+                                           #{w\ 4115}#
+                                           #{r\ 4116}#
+                                           #{mod\ 4117}#)
                                          #f)))))))))))))
-               (#{match\ 4009}#
-                 (lambda (#{e\ 4166}#
-                          #{p\ 4167}#
-                          #{w\ 4168}#
-                          #{r\ 4169}#
-                          #{mod\ 4170}#)
-                   (if (not #{r\ 4169}#)
+               (#{match\ 4013}#
+                 (lambda (#{e\ 4170}#
+                          #{p\ 4171}#
+                          #{w\ 4172}#
+                          #{r\ 4173}#
+                          #{mod\ 4174}#)
+                   (if (not #{r\ 4173}#)
                      #f
-                     (if (eq? #{p\ 4167}# (quote _))
-                       #{r\ 4169}#
-                       (if (eq? #{p\ 4167}# (quote any))
-                         (cons (#{wrap\ 444}#
-                                 #{e\ 4166}#
-                                 #{w\ 4168}#
-                                 #{mod\ 4170}#)
-                               #{r\ 4169}#)
-                         (if (#{syntax-object?\ 344}# #{e\ 4166}#)
-                           (#{match*\ 4007}#
-                             (#{syntax-object-expression\ 346}# #{e\ 4166}#)
-                             #{p\ 4167}#
-                             (#{join-wraps\ 426}#
-                               #{w\ 4168}#
-                               (#{syntax-object-wrap\ 348}# #{e\ 4166}#))
-                             #{r\ 4169}#
-                             (#{syntax-object-module\ 350}# #{e\ 4166}#))
-                           (#{match*\ 4007}#
-                             #{e\ 4166}#
-                             #{p\ 4167}#
-                             #{w\ 4168}#
-                             #{r\ 4169}#
-                             #{mod\ 4170}#))))))))
+                     (if (eq? #{p\ 4171}# '_)
+                       #{r\ 4173}#
+                       (if (eq? #{p\ 4171}# 'any)
+                         (cons (#{wrap\ 445}#
+                                 #{e\ 4170}#
+                                 #{w\ 4172}#
+                                 #{mod\ 4174}#)
+                               #{r\ 4173}#)
+                         (if (#{syntax-object?\ 345}# #{e\ 4170}#)
+                           (#{match*\ 4011}#
+                             (#{syntax-object-expression\ 347}# #{e\ 4170}#)
+                             #{p\ 4171}#
+                             (#{join-wraps\ 427}#
+                               #{w\ 4172}#
+                               (#{syntax-object-wrap\ 349}# #{e\ 4170}#))
+                             #{r\ 4173}#
+                             (#{syntax-object-module\ 351}# #{e\ 4170}#))
+                           (#{match*\ 4011}#
+                             #{e\ 4170}#
+                             #{p\ 4171}#
+                             #{w\ 4172}#
+                             #{r\ 4173}#
+                             #{mod\ 4174}#))))))))
               (begin
                 (set! $sc-dispatch
-                  (lambda (#{e\ 4185}# #{p\ 4186}#)
-                    (if (eq? #{p\ 4186}# (quote any))
-                      (list #{e\ 4185}#)
-                      (if (eq? #{p\ 4186}# (quote _))
+                  (lambda (#{e\ 4189}# #{p\ 4190}#)
+                    (if (eq? #{p\ 4190}# 'any)
+                      (list #{e\ 4189}#)
+                      (if (eq? #{p\ 4190}# '_)
                         '()
-                        (if (#{syntax-object?\ 344}# #{e\ 4185}#)
-                          (#{match*\ 4007}#
-                            (#{syntax-object-expression\ 346}# #{e\ 4185}#)
-                            #{p\ 4186}#
-                            (#{syntax-object-wrap\ 348}# #{e\ 4185}#)
+                        (if (#{syntax-object?\ 345}# #{e\ 4189}#)
+                          (#{match*\ 4011}#
+                            (#{syntax-object-expression\ 347}# #{e\ 4189}#)
+                            #{p\ 4190}#
+                            (#{syntax-object-wrap\ 349}# #{e\ 4189}#)
                             '()
-                            (#{syntax-object-module\ 350}# #{e\ 4185}#))
-                          (#{match*\ 4007}#
-                            #{e\ 4185}#
-                            #{p\ 4186}#
+                            (#{syntax-object-module\ 351}# #{e\ 4189}#))
+                          (#{match*\ 4011}#
+                            #{e\ 4189}#
+                            #{p\ 4190}#
                             '(())
                             '()
                             #f))))))))))))))
@@ -14583,81 +14486,81 @@
   (make-syntax-transformer
     'with-syntax
     'macro
-    (lambda (#{x\ 4197}#)
-      (let ((#{tmp\ 4199}# #{x\ 4197}#))
-        (let ((#{tmp\ 4200}#
+    (lambda (#{x\ 4201}#)
+      (let ((#{tmp\ 4203}# #{x\ 4201}#))
+        (let ((#{tmp\ 4204}#
                 ($sc-dispatch
-                  #{tmp\ 4199}#
+                  #{tmp\ 4203}#
                   '(_ () any . each-any))))
-          (if #{tmp\ 4200}#
+          (if #{tmp\ 4204}#
             (@apply
-              (lambda (#{e1\ 4203}# #{e2\ 4204}#)
+              (lambda (#{e1\ 4207}# #{e2\ 4208}#)
                 (cons '#(syntax-object
                          begin
                          ((top)
                           #(ribcage
                             #(e1 e2)
                             #((top) (top))
-                            #("i4201" "i4202"))
+                            #("i4205" "i4206"))
                           #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i4198")))
+                          #(ribcage #(x) #((top)) #("i4202")))
                          (hygiene guile))
-                      (cons #{e1\ 4203}# #{e2\ 4204}#)))
-              #{tmp\ 4200}#)
-            (let ((#{tmp\ 4206}#
+                      (cons #{e1\ 4207}# #{e2\ 4208}#)))
+              #{tmp\ 4204}#)
+            (let ((#{tmp\ 4210}#
                     ($sc-dispatch
-                      #{tmp\ 4199}#
+                      #{tmp\ 4203}#
                       '(_ ((any any)) any . each-any))))
-              (if #{tmp\ 4206}#
+              (if #{tmp\ 4210}#
                 (@apply
-                  (lambda (#{out\ 4211}#
-                           #{in\ 4212}#
-                           #{e1\ 4213}#
-                           #{e2\ 4214}#)
+                  (lambda (#{out\ 4215}#
+                           #{in\ 4216}#
+                           #{e1\ 4217}#
+                           #{e2\ 4218}#)
                     (list '#(syntax-object
                              syntax-case
                              ((top)
                               #(ribcage
                                 #(out in e1 e2)
                                 #((top) (top) (top) (top))
-                                #("i4207" "i4208" "i4209" "i4210"))
+                                #("i4211" "i4212" "i4213" "i4214"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i4198")))
+                              #(ribcage #(x) #((top)) #("i4202")))
                              (hygiene guile))
-                          #{in\ 4212}#
+                          #{in\ 4216}#
                           '()
-                          (list #{out\ 4211}#
+                          (list #{out\ 4215}#
                                 (cons '#(syntax-object
                                          begin
                                          ((top)
                                           #(ribcage
                                             #(out in e1 e2)
                                             #((top) (top) (top) (top))
-                                            #("i4207" "i4208" "i4209" "i4210"))
+                                            #("i4211" "i4212" "i4213" "i4214"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i4198")))
+                                          #(ribcage #(x) #((top)) #("i4202")))
                                          (hygiene guile))
-                                      (cons #{e1\ 4213}# #{e2\ 4214}#)))))
-                  #{tmp\ 4206}#)
-                (let ((#{tmp\ 4216}#
+                                      (cons #{e1\ 4217}# #{e2\ 4218}#)))))
+                  #{tmp\ 4210}#)
+                (let ((#{tmp\ 4220}#
                         ($sc-dispatch
-                          #{tmp\ 4199}#
+                          #{tmp\ 4203}#
                           '(_ #(each (any any)) any . each-any))))
-                  (if #{tmp\ 4216}#
+                  (if #{tmp\ 4220}#
                     (@apply
-                      (lambda (#{out\ 4221}#
-                               #{in\ 4222}#
-                               #{e1\ 4223}#
-                               #{e2\ 4224}#)
+                      (lambda (#{out\ 4225}#
+                               #{in\ 4226}#
+                               #{e1\ 4227}#
+                               #{e2\ 4228}#)
                         (list '#(syntax-object
                                  syntax-case
                                  ((top)
                                   #(ribcage
                                     #(out in e1 e2)
                                     #((top) (top) (top) (top))
-                                    #("i4217" "i4218" "i4219" "i4220"))
+                                    #("i4221" "i4222" "i4223" "i4224"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i4198")))
+                                  #(ribcage #(x) #((top)) #("i4202")))
                                  (hygiene guile))
                               (cons '#(syntax-object
                                        list
@@ -14665,61 +14568,61 @@
                                         #(ribcage
                                           #(out in e1 e2)
                                           #((top) (top) (top) (top))
-                                          #("i4217" "i4218" "i4219" "i4220"))
+                                          #("i4221" "i4222" "i4223" "i4224"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i4198")))
+                                        #(ribcage #(x) #((top)) #("i4202")))
                                        (hygiene guile))
-                                    #{in\ 4222}#)
+                                    #{in\ 4226}#)
                               '()
-                              (list #{out\ 4221}#
+                              (list #{out\ 4225}#
                                     (cons '#(syntax-object
                                              begin
                                              ((top)
                                               #(ribcage
                                                 #(out in e1 e2)
                                                 #((top) (top) (top) (top))
-                                                #("i4217"
-                                                  "i4218"
-                                                  "i4219"
-                                                  "i4220"))
+                                                #("i4221"
+                                                  "i4222"
+                                                  "i4223"
+                                                  "i4224"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
-                                                #("i4198")))
+                                                #("i4202")))
                                              (hygiene guile))
-                                          (cons #{e1\ 4223}# #{e2\ 4224}#)))))
-                      #{tmp\ 4216}#)
+                                          (cons #{e1\ 4227}# #{e2\ 4228}#)))))
+                      #{tmp\ 4220}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 4199}#)))))))))))
+                      #{tmp\ 4203}#)))))))))))
 
 (define syntax-rules
   (make-syntax-transformer
     'syntax-rules
     'macro
-    (lambda (#{x\ 4228}#)
-      (let ((#{tmp\ 4230}# #{x\ 4228}#))
-        (let ((#{tmp\ 4231}#
+    (lambda (#{x\ 4232}#)
+      (let ((#{tmp\ 4234}# #{x\ 4232}#))
+        (let ((#{tmp\ 4235}#
                 ($sc-dispatch
-                  #{tmp\ 4230}#
+                  #{tmp\ 4234}#
                   '(_ each-any . #(each ((any . any) any))))))
-          (if #{tmp\ 4231}#
+          (if #{tmp\ 4235}#
             (@apply
-              (lambda (#{k\ 4236}#
-                       #{keyword\ 4237}#
-                       #{pattern\ 4238}#
-                       #{template\ 4239}#)
+              (lambda (#{k\ 4240}#
+                       #{keyword\ 4241}#
+                       #{pattern\ 4242}#
+                       #{template\ 4243}#)
                 (list '#(syntax-object
                          lambda
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
-                            #("i4232" "i4233" "i4234" "i4235"))
+                            #("i4236" "i4237" "i4238" "i4239"))
                           #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i4229")))
+                          #(ribcage #(x) #((top)) #("i4233")))
                          (hygiene guile))
                       '(#(syntax-object
                           x
@@ -14727,9 +14630,9 @@
                            #(ribcage
                              #(k keyword pattern template)
                              #((top) (top) (top) (top))
-                             #("i4232" "i4233" "i4234" "i4235"))
+                             #("i4236" "i4237" "i4238" "i4239"))
                            #(ribcage () () ())
-                           #(ribcage #(x) #((top)) #("i4229")))
+                           #(ribcage #(x) #((top)) #("i4233")))
                           (hygiene guile)))
                       (vector
                         '(#(syntax-object
@@ -14738,9 +14641,9 @@
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
-                               #("i4232" "i4233" "i4234" "i4235"))
+                               #("i4236" "i4237" "i4238" "i4239"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i4229")))
+                             #(ribcage #(x) #((top)) #("i4233")))
                             (hygiene guile))
                           .
                           #(syntax-object
@@ -14749,9 +14652,9 @@
                              #(ribcage
                                #(k keyword pattern template)
                                #((top) (top) (top) (top))
-                               #("i4232" "i4233" "i4234" "i4235"))
+                               #("i4236" "i4237" "i4238" "i4239"))
                              #(ribcage () () ())
-                             #(ribcage #(x) #((top)) #("i4229")))
+                             #(ribcage #(x) #((top)) #("i4233")))
                             (hygiene guile)))
                         (cons '#(syntax-object
                                  patterns
@@ -14759,20 +14662,20 @@
                                   #(ribcage
                                     #(k keyword pattern template)
                                     #((top) (top) (top) (top))
-                                    #("i4232" "i4233" "i4234" "i4235"))
+                                    #("i4236" "i4237" "i4238" "i4239"))
                                   #(ribcage () () ())
-                                  #(ribcage #(x) #((top)) #("i4229")))
+                                  #(ribcage #(x) #((top)) #("i4233")))
                                  (hygiene guile))
-                              #{pattern\ 4238}#))
+                              #{pattern\ 4242}#))
                       (cons '#(syntax-object
                                syntax-case
                                ((top)
                                 #(ribcage
                                   #(k keyword pattern template)
                                   #((top) (top) (top) (top))
-                                  #("i4232" "i4233" "i4234" "i4235"))
+                                  #("i4236" "i4237" "i4238" "i4239"))
                                 #(ribcage () () ())
-                                #(ribcage #(x) #((top)) #("i4229")))
+                                #(ribcage #(x) #((top)) #("i4233")))
                                (hygiene guile))
                             (cons '#(syntax-object
                                      x
@@ -14780,13 +14683,13 @@
                                       #(ribcage
                                         #(k keyword pattern template)
                                         #((top) (top) (top) (top))
-                                        #("i4232" "i4233" "i4234" "i4235"))
+                                        #("i4236" "i4237" "i4238" "i4239"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i4229")))
+                                      #(ribcage #(x) #((top)) #("i4233")))
                                      (hygiene guile))
-                                  (cons #{k\ 4236}#
-                                        (map (lambda (#{tmp\ 4243}#
-                                                      #{tmp\ 4242}#)
+                                  (cons #{k\ 4240}#
+                                        (map (lambda (#{tmp\ 4247}#
+                                                      #{tmp\ 4246}#)
                                                (list (cons '#(syntax-object
                                                               dummy
                                                               ((top)
@@ -14799,10 +14702,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i4232"
-                                                                   "i4233"
-                                                                   "i4234"
-                                                                   "i4235"))
+                                                                 #("i4236"
+                                                                   "i4237"
+                                                                   "i4238"
+                                                                   "i4239"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -14810,9 +14713,9 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i4229")))
+                                                                 #("i4233")))
                                                               (hygiene guile))
-                                                           #{tmp\ 4242}#)
+                                                           #{tmp\ 4246}#)
                                                      (list '#(syntax-object
                                                               syntax
                                                               ((top)
@@ -14825,10 +14728,10 @@
                                                                    (top)
                                                                    (top)
                                                                    (top))
-                                                                 #("i4232"
-                                                                   "i4233"
-                                                                   "i4234"
-                                                                   "i4235"))
+                                                                 #("i4236"
+                                                                   "i4237"
+                                                                   "i4238"
+                                                                   "i4239"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
@@ -14836,41 +14739,41 @@
                                                                #(ribcage
                                                                  #(x)
                                                                  #((top))
-                                                                 #("i4229")))
+                                                                 #("i4233")))
                                                               (hygiene guile))
-                                                           #{tmp\ 4243}#)))
-                                             #{template\ 4239}#
-                                             #{pattern\ 4238}#))))))
-              #{tmp\ 4231}#)
-            (let ((#{tmp\ 4244}#
+                                                           #{tmp\ 4247}#)))
+                                             #{template\ 4243}#
+                                             #{pattern\ 4242}#))))))
+              #{tmp\ 4235}#)
+            (let ((#{tmp\ 4248}#
                     ($sc-dispatch
-                      #{tmp\ 4230}#
+                      #{tmp\ 4234}#
                       '(_ each-any any . #(each ((any . any) any))))))
-              (if (if #{tmp\ 4244}#
+              (if (if #{tmp\ 4248}#
                     (@apply
-                      (lambda (#{k\ 4250}#
-                               #{docstring\ 4251}#
-                               #{keyword\ 4252}#
-                               #{pattern\ 4253}#
-                               #{template\ 4254}#)
-                        (string? (syntax->datum #{docstring\ 4251}#)))
-                      #{tmp\ 4244}#)
+                      (lambda (#{k\ 4254}#
+                               #{docstring\ 4255}#
+                               #{keyword\ 4256}#
+                               #{pattern\ 4257}#
+                               #{template\ 4258}#)
+                        (string? (syntax->datum #{docstring\ 4255}#)))
+                      #{tmp\ 4248}#)
                     #f)
                 (@apply
-                  (lambda (#{k\ 4260}#
-                           #{docstring\ 4261}#
-                           #{keyword\ 4262}#
-                           #{pattern\ 4263}#
-                           #{template\ 4264}#)
+                  (lambda (#{k\ 4264}#
+                           #{docstring\ 4265}#
+                           #{keyword\ 4266}#
+                           #{pattern\ 4267}#
+                           #{template\ 4268}#)
                     (list '#(syntax-object
                              lambda
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
-                                #("i4255" "i4256" "i4257" "i4258" "i4259"))
+                                #("i4259" "i4260" "i4261" "i4262" "i4263"))
                               #(ribcage () () ())
-                              #(ribcage #(x) #((top)) #("i4229")))
+                              #(ribcage #(x) #((top)) #("i4233")))
                              (hygiene guile))
                           '(#(syntax-object
                               x
@@ -14878,11 +14781,11 @@
                                #(ribcage
                                  #(k docstring keyword pattern template)
                                  #((top) (top) (top) (top) (top))
-                                 #("i4255" "i4256" "i4257" "i4258" "i4259"))
+                                 #("i4259" "i4260" "i4261" "i4262" "i4263"))
                                #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i4229")))
+                               #(ribcage #(x) #((top)) #("i4233")))
                               (hygiene guile)))
-                          #{docstring\ 4261}#
+                          #{docstring\ 4265}#
                           (vector
                             '(#(syntax-object
                                 macro-type
@@ -14890,9 +14793,9 @@
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
-                                   #("i4255" "i4256" "i4257" "i4258" "i4259"))
+                                   #("i4259" "i4260" "i4261" "i4262" "i4263"))
                                  #(ribcage () () ())
-                                 #(ribcage #(x) #((top)) #("i4229")))
+                                 #(ribcage #(x) #((top)) #("i4233")))
                                 (hygiene guile))
                               .
                               #(syntax-object
@@ -14901,9 +14804,9 @@
                                  #(ribcage
                                    #(k docstring keyword pattern template)
                                    #((top) (top) (top) (top) (top))
-                                   #("i4255" "i4256" "i4257" "i4258" "i4259"))
+                                   #("i4259" "i4260" "i4261" "i4262" "i4263"))
                                  #(ribcage () () ())
-                                 #(ribcage #(x) #((top)) #("i4229")))
+                                 #(ribcage #(x) #((top)) #("i4233")))
                                 (hygiene guile)))
                             (cons '#(syntax-object
                                      patterns
@@ -14911,28 +14814,28 @@
                                       #(ribcage
                                         #(k docstring keyword pattern template)
                                         #((top) (top) (top) (top) (top))
-                                        #("i4255"
-                                          "i4256"
-                                          "i4257"
-                                          "i4258"
-                                          "i4259"))
+                                        #("i4259"
+                                          "i4260"
+                                          "i4261"
+                                          "i4262"
+                                          "i4263"))
                                       #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i4229")))
+                                      #(ribcage #(x) #((top)) #("i4233")))
                                      (hygiene guile))
-                                  #{pattern\ 4263}#))
+                                  #{pattern\ 4267}#))
                           (cons '#(syntax-object
                                    syntax-case
                                    ((top)
                                     #(ribcage
                                       #(k docstring keyword pattern template)
                                       #((top) (top) (top) (top) (top))
-                                      #("i4255"
-                                        "i4256"
-                                        "i4257"
-                                        "i4258"
-                                        "i4259"))
+                                      #("i4259"
+                                        "i4260"
+                                        "i4261"
+                                        "i4262"
+                                        "i4263"))
                                     #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i4229")))
+                                    #(ribcage #(x) #((top)) #("i4233")))
                                    (hygiene guile))
                                 (cons '#(syntax-object
                                          x
@@ -14944,17 +14847,17 @@
                                               pattern
                                               template)
                                             #((top) (top) (top) (top) (top))
-                                            #("i4255"
-                                              "i4256"
-                                              "i4257"
-                                              "i4258"
-                                              "i4259"))
+                                            #("i4259"
+                                              "i4260"
+                                              "i4261"
+                                              "i4262"
+                                              "i4263"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i4229")))
+                                          #(ribcage #(x) #((top)) #("i4233")))
                                          (hygiene guile))
-                                      (cons #{k\ 4260}#
-                                            (map (lambda (#{tmp\ 4268}#
-                                                          #{tmp\ 4267}#)
+                                      (cons #{k\ 4264}#
+                                            (map (lambda (#{tmp\ 4272}#
+                                                          #{tmp\ 4271}#)
                                                    (list (cons '#(syntax-object
                                                                   dummy
                                                                   ((top)
@@ -14969,11 +14872,11 @@
                                                                        (top)
                                                                        (top)
                                                                        (top))
-                                                                     #("i4255"
-                                                                       "i4256"
-                                                                       "i4257"
-                                                                       "i4258"
-                                                                       
"i4259"))
+                                                                     #("i4259"
+                                                                       "i4260"
+                                                                       "i4261"
+                                                                       "i4262"
+                                                                       
"i4263"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
@@ -14981,10 +14884,10 @@
                                                                    #(ribcage
                                                                      #(x)