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-10-94-g42


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-94-g42a7106
Date: Mon, 03 May 2010 20:10:42 +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=42a710680d23d44fe43ae08339691e9424be4471

The branch, master has been updated
       via  42a710680d23d44fe43ae08339691e9424be4471 (commit)
       via  b1e4c7cc28c35308a566d82e748847abc4d3d2f8 (commit)
       via  fe58ead4a33c9f12e83a09962b926271d68031a4 (commit)
      from  d61517239da142bafae2d656d82b3af599cac1ee (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 42a710680d23d44fe43ae08339691e9424be4471
Author: Andy Wingo <address@hidden>
Date:   Mon May 3 19:09:35 2010 +0200

    add rnrs libraries test suite
    
    * test-suite/Makefile.am:
    * test-suite/tests/rnrs-libraries.test:
    * test-suite/tests/rnrs-test-a.scm: Add rnrs libraries test suite.

commit b1e4c7cc28c35308a566d82e748847abc4d3d2f8
Author: Julian Graham <address@hidden>
Date:   Sat Feb 6 12:33:20 2010 -0500

    add support for r6rs libraries
    
    * module/ice-9/boot-9.scm: Include ice-9/r6rs-libraries.scm.
    * module/ice-9/r6rs-libraries.scm: New file.
    * module/Makefile.am (NOCOMP_SOURCES): Add r6rs-libraries.scm.

commit fe58ead4a33c9f12e83a09962b926271d68031a4
Author: Andy Wingo <address@hidden>
Date:   Mon May 3 22:06:44 2010 +0200

    only ensure local vars for definitions during expansion when compiling
    
    * module/ice-9/psyntax.scm (chi-top): Only modify the compile-time
      environment to indicate that there is a local binding if we are
      running in compile mode. Otherwise some eval-when things might not
      have gotten executed, and our current-module could be wrong.
    
    * module/ice-9/psyntax-pp.scm: Regenerate.

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

Summary of changes:
 module/Makefile.am                                 |    1 +
 module/ice-9/boot-9.scm                            |    2 +
 module/ice-9/psyntax-pp.scm                        |15721 ++++++++++----------
 module/ice-9/psyntax.scm                           |    3 +-
 module/ice-9/r6rs-libraries.scm                    |  194 +
 test-suite/Makefile.am                             |    8 +-
 test-suite/tests/rnrs-libraries.test               |  171 +
 .../srfi-8.scm => test-suite/tests/rnrs-test-a.scm |   24 +-
 8 files changed, 8196 insertions(+), 7928 deletions(-)
 create mode 100644 module/ice-9/r6rs-libraries.scm
 create mode 100644 test-suite/tests/rnrs-libraries.test
 copy module/srfi/srfi-8.scm => test-suite/tests/rnrs-test-a.scm (67%)

diff --git a/module/Makefile.am b/module/Makefile.am
index 90c1dff..2410cb2 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -315,6 +315,7 @@ EXTRA_DIST += oop/ChangeLog-2008
 NOCOMP_SOURCES =                               \
   ice-9/gds-client.scm                         \
   ice-9/psyntax.scm                            \
+  ice-9/r6rs-libraries.scm                     \
   ice-9/quasisyntax.scm                                \
   system/base/lalr.upstream.scm                        \
   system/repl/describe.scm                     \
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 35714f7..c1a9447 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3399,6 +3399,8 @@ module '(ice-9 q) '(make-q q-length))}."
           "`use-syntax' is deprecated. Please contact guile-devel for more 
info."))
        (use-modules spec ...)))))
 
+(include-from-path "ice-9/r6rs-libraries")
+
 (define-syntax define-private
   (syntax-rules ()
     ((_ foo bar)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index f84119d..338dffa 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,644 +1,638 @@
 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
 (if #f #f)
 
-(letrec ((#{and-map*\ 8874}#
-           (lambda (#{f\ 8936}# #{first\ 8937}# . #{rest\ 8938}#)
-             (let ((#{t\ 8944}# (null? #{first\ 8937}#)))
-               (if #{t\ 8944}#
-                 #{t\ 8944}#
-                 (if (null? #{rest\ 8938}#)
-                   (letrec ((#{andmap\ 8948}#
-                              (lambda (#{first\ 8949}#)
-                                (let ((#{x\ 8952}# (car #{first\ 8949}#))
-                                      (#{first\ 8953}# (cdr #{first\ 8949}#)))
-                                  (if (null? #{first\ 8953}#)
-                                    (#{f\ 8936}# #{x\ 8952}#)
-                                    (if (#{f\ 8936}# #{x\ 8952}#)
-                                      (#{andmap\ 8948}# #{first\ 8953}#)
+(letrec ((#{and-map*\ 20}#
+           (lambda (#{f\ 82}# #{first\ 83}# . #{rest\ 84}#)
+             (let ((#{t\ 90}# (null? #{first\ 83}#)))
+               (if #{t\ 90}#
+                 #{t\ 90}#
+                 (if (null? #{rest\ 84}#)
+                   (letrec ((#{andmap\ 94}#
+                              (lambda (#{first\ 95}#)
+                                (let ((#{x\ 98}# (car #{first\ 95}#))
+                                      (#{first\ 99}# (cdr #{first\ 95}#)))
+                                  (if (null? #{first\ 99}#)
+                                    (#{f\ 82}# #{x\ 98}#)
+                                    (if (#{f\ 82}# #{x\ 98}#)
+                                      (#{andmap\ 94}# #{first\ 99}#)
                                       #f))))))
-                     (#{andmap\ 8948}# #{first\ 8937}#))
-                   (letrec ((#{andmap\ 8959}#
-                              (lambda (#{first\ 8960}# #{rest\ 8961}#)
-                                (let ((#{x\ 8966}# (car #{first\ 8960}#))
-                                      (#{xr\ 8967}# (map car #{rest\ 8961}#))
-                                      (#{first\ 8968}# (cdr #{first\ 8960}#))
-                                      (#{rest\ 8969}#
-                                        (map cdr #{rest\ 8961}#)))
-                                  (if (null? #{first\ 8968}#)
-                                    (apply #{f\ 8936}#
-                                           (cons #{x\ 8966}# #{xr\ 8967}#))
-                                    (if (apply #{f\ 8936}#
-                                               (cons #{x\ 8966}# #{xr\ 8967}#))
-                                      (#{andmap\ 8959}#
-                                        #{first\ 8968}#
-                                        #{rest\ 8969}#)
+                     (#{andmap\ 94}# #{first\ 83}#))
+                   (letrec ((#{andmap\ 105}#
+                              (lambda (#{first\ 106}# #{rest\ 107}#)
+                                (let ((#{x\ 112}# (car #{first\ 106}#))
+                                      (#{xr\ 113}# (map car #{rest\ 107}#))
+                                      (#{first\ 114}# (cdr #{first\ 106}#))
+                                      (#{rest\ 115}# (map cdr #{rest\ 107}#)))
+                                  (if (null? #{first\ 114}#)
+                                    (apply #{f\ 82}#
+                                           (cons #{x\ 112}# #{xr\ 113}#))
+                                    (if (apply #{f\ 82}#
+                                               (cons #{x\ 112}# #{xr\ 113}#))
+                                      (#{andmap\ 105}#
+                                        #{first\ 114}#
+                                        #{rest\ 115}#)
                                       #f))))))
-                     (#{andmap\ 8959}# #{first\ 8937}# #{rest\ 8938}#))))))))
-  (letrec ((#{lambda-var-list\ 9191}#
-             (lambda (#{vars\ 9406}#)
-               (letrec ((#{lvl\ 9412}#
-                          (lambda (#{vars\ 9413}# #{ls\ 9414}# #{w\ 9415}#)
-                            (if (pair? #{vars\ 9413}#)
-                              (#{lvl\ 9412}#
-                                (cdr #{vars\ 9413}#)
-                                (cons (#{wrap\ 9145}#
-                                        (car #{vars\ 9413}#)
-                                        #{w\ 9415}#
+                     (#{andmap\ 105}# #{first\ 83}# #{rest\ 84}#))))))))
+  (letrec ((#{lambda-var-list\ 337}#
+             (lambda (#{vars\ 552}#)
+               (letrec ((#{lvl\ 558}#
+                          (lambda (#{vars\ 559}# #{ls\ 560}# #{w\ 561}#)
+                            (if (pair? #{vars\ 559}#)
+                              (#{lvl\ 558}#
+                                (cdr #{vars\ 559}#)
+                                (cons (#{wrap\ 291}#
+                                        (car #{vars\ 559}#)
+                                        #{w\ 561}#
                                         #f)
-                                      #{ls\ 9414}#)
-                                #{w\ 9415}#)
-                              (if (#{id?\ 9076}# #{vars\ 9413}#)
-                                (cons (#{wrap\ 9145}#
-                                        #{vars\ 9413}#
-                                        #{w\ 9415}#
+                                      #{ls\ 560}#)
+                                #{w\ 561}#)
+                              (if (#{id?\ 222}# #{vars\ 559}#)
+                                (cons (#{wrap\ 291}#
+                                        #{vars\ 559}#
+                                        #{w\ 561}#
                                         #f)
-                                      #{ls\ 9414}#)
-                                (if (null? #{vars\ 9413}#)
-                                  #{ls\ 9414}#
-                                  (if (#{syntax-object?\ 9040}# #{vars\ 9413}#)
-                                    (#{lvl\ 9412}#
-                                      (#{syntax-object-expression\ 9042}#
-                                        #{vars\ 9413}#)
-                                      #{ls\ 9414}#
-                                      (#{join-wraps\ 9127}#
-                                        #{w\ 9415}#
-                                        (#{syntax-object-wrap\ 9044}#
-                                          #{vars\ 9413}#)))
-                                    (cons #{vars\ 9413}# #{ls\ 9414}#))))))))
-                 (#{lvl\ 9412}#
-                   #{vars\ 9406}#
+                                      #{ls\ 560}#)
+                                (if (null? #{vars\ 559}#)
+                                  #{ls\ 560}#
+                                  (if (#{syntax-object?\ 186}# #{vars\ 559}#)
+                                    (#{lvl\ 558}#
+                                      (#{syntax-object-expression\ 188}#
+                                        #{vars\ 559}#)
+                                      #{ls\ 560}#
+                                      (#{join-wraps\ 273}#
+                                        #{w\ 561}#
+                                        (#{syntax-object-wrap\ 190}#
+                                          #{vars\ 559}#)))
+                                    (cons #{vars\ 559}# #{ls\ 560}#))))))))
+                 (#{lvl\ 558}#
+                   #{vars\ 552}#
                    '()
                    '(())))))
-           (#{gen-var\ 9189}#
-             (lambda (#{id\ 9426}#)
-               (let ((#{id\ 9429}#
-                       (if (#{syntax-object?\ 9040}# #{id\ 9426}#)
-                         (#{syntax-object-expression\ 9042}# #{id\ 9426}#)
-                         #{id\ 9426}#)))
+           (#{gen-var\ 335}#
+             (lambda (#{id\ 572}#)
+               (let ((#{id\ 575}#
+                       (if (#{syntax-object?\ 186}# #{id\ 572}#)
+                         (#{syntax-object-expression\ 188}# #{id\ 572}#)
+                         #{id\ 572}#)))
                  (gensym
-                   (string-append (symbol->string #{id\ 9429}#) " ")))))
-           (#{strip\ 9187}#
-             (lambda (#{x\ 9431}# #{w\ 9432}#)
+                   (string-append (symbol->string #{id\ 575}#) " ")))))
+           (#{strip\ 333}#
+             (lambda (#{x\ 577}# #{w\ 578}#)
                (if (memq 'top
-                         (#{wrap-marks\ 9083}# #{w\ 9432}#))
-                 #{x\ 9431}#
-                 (letrec ((#{f\ 9438}#
-                            (lambda (#{x\ 9439}#)
-                              (if (#{syntax-object?\ 9040}# #{x\ 9439}#)
-                                (#{strip\ 9187}#
-                                  (#{syntax-object-expression\ 9042}#
-                                    #{x\ 9439}#)
-                                  (#{syntax-object-wrap\ 9044}# #{x\ 9439}#))
-                                (if (pair? #{x\ 9439}#)
-                                  (let ((#{a\ 9446}#
-                                          (#{f\ 9438}# (car #{x\ 9439}#)))
-                                        (#{d\ 9447}#
-                                          (#{f\ 9438}# (cdr #{x\ 9439}#))))
-                                    (if (if (eq? #{a\ 9446}# (car #{x\ 9439}#))
-                                          (eq? #{d\ 9447}# (cdr #{x\ 9439}#))
-                                          #f)
-                                      #{x\ 9439}#
-                                      (cons #{a\ 9446}# #{d\ 9447}#)))
-                                  (if (vector? #{x\ 9439}#)
-                                    (let ((#{old\ 9453}#
-                                            (vector->list #{x\ 9439}#)))
-                                      (let ((#{new\ 9455}#
-                                              (map #{f\ 9438}# #{old\ 9453}#)))
-                                        (if (#{and-map*\ 8874}#
-                                              eq?
-                                              #{old\ 9453}#
-                                              #{new\ 9455}#)
-                                          #{x\ 9439}#
-                                          (list->vector #{new\ 9455}#))))
-                                    #{x\ 9439}#))))))
-                   (#{f\ 9438}# #{x\ 9431}#)))))
-           (#{chi-lambda-case\ 9185}#
-             (lambda (#{e\ 9457}#
-                      #{r\ 9458}#
-                      #{w\ 9459}#
-                      #{s\ 9460}#
-                      #{mod\ 9461}#
-                      #{get-formals\ 9462}#
-                      #{clauses\ 9463}#)
-               (letrec ((#{expand-body\ 9478}#
-                          (lambda (#{req\ 9479}#
-                                   #{opt\ 9480}#
-                                   #{rest\ 9481}#
-                                   #{kw\ 9482}#
-                                   #{body\ 9483}#
-                                   #{vars\ 9484}#
-                                   #{r*\ 9485}#
-                                   #{w*\ 9486}#
-                                   #{inits\ 9487}#
-                                   #{meta\ 9488}#)
-                            ((lambda (#{tmp\ 9499}#)
-                               ((lambda (#{tmp\ 9500}#)
-                                  (if (if #{tmp\ 9500}#
-                                        (apply (lambda (#{docstring\ 9504}#
-                                                        #{e1\ 9505}#
-                                                        #{e2\ 9506}#)
+                         (#{wrap-marks\ 229}# #{w\ 578}#))
+                 #{x\ 577}#
+                 (letrec ((#{f\ 584}# (lambda (#{x\ 585}#)
+                                        (if (#{syntax-object?\ 186}#
+                                              #{x\ 585}#)
+                                          (#{strip\ 333}#
+                                            (#{syntax-object-expression\ 188}#
+                                              #{x\ 585}#)
+                                            (#{syntax-object-wrap\ 190}#
+                                              #{x\ 585}#))
+                                          (if (pair? #{x\ 585}#)
+                                            (let ((#{a\ 592}# (#{f\ 584}# (car 
#{x\ 585}#)))
+                                                  (#{d\ 593}# (#{f\ 584}# (cdr 
#{x\ 585}#))))
+                                              (if (if (eq? #{a\ 592}#
+                                                           (car #{x\ 585}#))
+                                                    (eq? #{d\ 593}#
+                                                         (cdr #{x\ 585}#))
+                                                    #f)
+                                                #{x\ 585}#
+                                                (cons #{a\ 592}# #{d\ 593}#)))
+                                            (if (vector? #{x\ 585}#)
+                                              (let ((#{old\ 599}#
+                                                      (vector->list
+                                                        #{x\ 585}#)))
+                                                (let ((#{new\ 601}#
+                                                        (map #{f\ 584}#
+                                                             #{old\ 599}#)))
+                                                  (if (#{and-map*\ 20}#
+                                                        eq?
+                                                        #{old\ 599}#
+                                                        #{new\ 601}#)
+                                                    #{x\ 585}#
+                                                    (list->vector
+                                                      #{new\ 601}#))))
+                                              #{x\ 585}#))))))
+                   (#{f\ 584}# #{x\ 577}#)))))
+           (#{chi-lambda-case\ 331}#
+             (lambda (#{e\ 603}#
+                      #{r\ 604}#
+                      #{w\ 605}#
+                      #{s\ 606}#
+                      #{mod\ 607}#
+                      #{get-formals\ 608}#
+                      #{clauses\ 609}#)
+               (letrec ((#{expand-body\ 624}#
+                          (lambda (#{req\ 625}#
+                                   #{opt\ 626}#
+                                   #{rest\ 627}#
+                                   #{kw\ 628}#
+                                   #{body\ 629}#
+                                   #{vars\ 630}#
+                                   #{r*\ 631}#
+                                   #{w*\ 632}#
+                                   #{inits\ 633}#
+                                   #{meta\ 634}#)
+                            ((lambda (#{tmp\ 645}#)
+                               ((lambda (#{tmp\ 646}#)
+                                  (if (if #{tmp\ 646}#
+                                        (apply (lambda (#{docstring\ 650}#
+                                                        #{e1\ 651}#
+                                                        #{e2\ 652}#)
                                                  (string?
                                                    (syntax->datum
-                                                     #{docstring\ 9504}#)))
-                                               #{tmp\ 9500}#)
+                                                     #{docstring\ 650}#)))
+                                               #{tmp\ 646}#)
                                         #f)
-                                    (apply (lambda (#{docstring\ 9510}#
-                                                    #{e1\ 9511}#
-                                                    #{e2\ 9512}#)
-                                             (#{expand-body\ 9478}#
-                                               #{req\ 9479}#
-                                               #{opt\ 9480}#
-                                               #{rest\ 9481}#
-                                               #{kw\ 9482}#
-                                               (cons #{e1\ 9511}# #{e2\ 9512}#)
-                                               #{vars\ 9484}#
-                                               #{r*\ 9485}#
-                                               #{w*\ 9486}#
-                                               #{inits\ 9487}#
+                                    (apply (lambda (#{docstring\ 656}#
+                                                    #{e1\ 657}#
+                                                    #{e2\ 658}#)
+                                             (#{expand-body\ 624}#
+                                               #{req\ 625}#
+                                               #{opt\ 626}#
+                                               #{rest\ 627}#
+                                               #{kw\ 628}#
+                                               (cons #{e1\ 657}# #{e2\ 658}#)
+                                               #{vars\ 630}#
+                                               #{r*\ 631}#
+                                               #{w*\ 632}#
+                                               #{inits\ 633}#
                                                (append
-                                                 #{meta\ 9488}#
+                                                 #{meta\ 634}#
                                                  (list (cons 'documentation
                                                              (syntax->datum
-                                                               #{docstring\ 
9510}#))))))
-                                           #{tmp\ 9500}#)
-                                    ((lambda (#{tmp\ 9515}#)
-                                       (if #{tmp\ 9515}#
-                                         (apply (lambda (#{k\ 9520}#
-                                                         #{v\ 9521}#
-                                                         #{e1\ 9522}#
-                                                         #{e2\ 9523}#)
-                                                  (#{expand-body\ 9478}#
-                                                    #{req\ 9479}#
-                                                    #{opt\ 9480}#
-                                                    #{rest\ 9481}#
-                                                    #{kw\ 9482}#
-                                                    (cons #{e1\ 9522}#
-                                                          #{e2\ 9523}#)
-                                                    #{vars\ 9484}#
-                                                    #{r*\ 9485}#
-                                                    #{w*\ 9486}#
-                                                    #{inits\ 9487}#
+                                                               #{docstring\ 
656}#))))))
+                                           #{tmp\ 646}#)
+                                    ((lambda (#{tmp\ 661}#)
+                                       (if #{tmp\ 661}#
+                                         (apply (lambda (#{k\ 666}#
+                                                         #{v\ 667}#
+                                                         #{e1\ 668}#
+                                                         #{e2\ 669}#)
+                                                  (#{expand-body\ 624}#
+                                                    #{req\ 625}#
+                                                    #{opt\ 626}#
+                                                    #{rest\ 627}#
+                                                    #{kw\ 628}#
+                                                    (cons #{e1\ 668}#
+                                                          #{e2\ 669}#)
+                                                    #{vars\ 630}#
+                                                    #{r*\ 631}#
+                                                    #{w*\ 632}#
+                                                    #{inits\ 633}#
                                                     (append
-                                                      #{meta\ 9488}#
+                                                      #{meta\ 634}#
                                                       (syntax->datum
                                                         (map cons
-                                                             #{k\ 9520}#
-                                                             #{v\ 9521}#)))))
-                                                #{tmp\ 9515}#)
-                                         ((lambda (#{tmp\ 9527}#)
-                                            (if #{tmp\ 9527}#
-                                              (apply (lambda (#{e1\ 9530}#
-                                                              #{e2\ 9531}#)
+                                                             #{k\ 666}#
+                                                             #{v\ 667}#)))))
+                                                #{tmp\ 661}#)
+                                         ((lambda (#{tmp\ 673}#)
+                                            (if #{tmp\ 673}#
+                                              (apply (lambda (#{e1\ 676}#
+                                                              #{e2\ 677}#)
                                                        (values
-                                                         #{meta\ 9488}#
-                                                         #{req\ 9479}#
-                                                         #{opt\ 9480}#
-                                                         #{rest\ 9481}#
-                                                         #{kw\ 9482}#
-                                                         #{inits\ 9487}#
-                                                         #{vars\ 9484}#
-                                                         (#{chi-body\ 9169}#
-                                                           (cons #{e1\ 9530}#
-                                                                 #{e2\ 9531}#)
-                                                           (#{source-wrap\ 
9147}#
-                                                             #{e\ 9457}#
-                                                             #{w\ 9459}#
-                                                             #{s\ 9460}#
-                                                             #{mod\ 9461}#)
-                                                           #{r*\ 9485}#
-                                                           #{w*\ 9486}#
-                                                           #{mod\ 9461}#)))
-                                                     #{tmp\ 9527}#)
+                                                         #{meta\ 634}#
+                                                         #{req\ 625}#
+                                                         #{opt\ 626}#
+                                                         #{rest\ 627}#
+                                                         #{kw\ 628}#
+                                                         #{inits\ 633}#
+                                                         #{vars\ 630}#
+                                                         (#{chi-body\ 315}#
+                                                           (cons #{e1\ 676}#
+                                                                 #{e2\ 677}#)
+                                                           (#{source-wrap\ 
293}#
+                                                             #{e\ 603}#
+                                                             #{w\ 605}#
+                                                             #{s\ 606}#
+                                                             #{mod\ 607}#)
+                                                           #{r*\ 631}#
+                                                           #{w*\ 632}#
+                                                           #{mod\ 607}#)))
+                                                     #{tmp\ 673}#)
                                               (syntax-violation
                                                 #f
                                                 "source expression failed to 
match any pattern"
-                                                #{tmp\ 9499}#)))
+                                                #{tmp\ 645}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 9499}#
+                                            #{tmp\ 645}#
                                             '(any . each-any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 9499}#
+                                       #{tmp\ 645}#
                                        '(#(vector #(each (any . any)))
                                          any
                                          .
                                          each-any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 9499}#
+                                  #{tmp\ 645}#
                                   '(any any . each-any))))
-                             #{body\ 9483}#)))
-                        (#{expand-kw\ 9476}#
-                          (lambda (#{req\ 9533}#
-                                   #{opt\ 9534}#
-                                   #{rest\ 9535}#
-                                   #{kw\ 9536}#
-                                   #{body\ 9537}#
-                                   #{vars\ 9538}#
-                                   #{r*\ 9539}#
-                                   #{w*\ 9540}#
-                                   #{aok\ 9541}#
-                                   #{out\ 9542}#
-                                   #{inits\ 9543}#)
-                            (if (pair? #{kw\ 9536}#)
-                              ((lambda (#{tmp\ 9557}#)
-                                 ((lambda (#{tmp\ 9558}#)
-                                    (if #{tmp\ 9558}#
-                                      (apply (lambda (#{k\ 9562}#
-                                                      #{id\ 9563}#
-                                                      #{i\ 9564}#)
-                                               (let ((#{v\ 9567}#
-                                                       (#{gen-var\ 9189}#
-                                                         #{id\ 9563}#)))
-                                                 (let ((#{l\ 9569}#
-                                                         (#{gen-labels\ 9094}#
-                                                           (list #{v\ 
9567}#))))
-                                                   (let ((#{r**\ 9571}#
-                                                           (#{extend-var-env\ 
9066}#
-                                                             #{l\ 9569}#
-                                                             (list #{v\ 9567}#)
-                                                             #{r*\ 9539}#)))
-                                                     (let ((#{w**\ 9573}#
-                                                             
(#{make-binding-wrap\ 9123}#
-                                                               (list #{id\ 
9563}#)
-                                                               #{l\ 9569}#
-                                                               #{w*\ 9540}#)))
-                                                       (#{expand-kw\ 9476}#
-                                                         #{req\ 9533}#
-                                                         #{opt\ 9534}#
-                                                         #{rest\ 9535}#
-                                                         (cdr #{kw\ 9536}#)
-                                                         #{body\ 9537}#
-                                                         (cons #{v\ 9567}#
-                                                               #{vars\ 9538}#)
-                                                         #{r**\ 9571}#
-                                                         #{w**\ 9573}#
-                                                         #{aok\ 9541}#
+                             #{body\ 629}#)))
+                        (#{expand-kw\ 622}#
+                          (lambda (#{req\ 679}#
+                                   #{opt\ 680}#
+                                   #{rest\ 681}#
+                                   #{kw\ 682}#
+                                   #{body\ 683}#
+                                   #{vars\ 684}#
+                                   #{r*\ 685}#
+                                   #{w*\ 686}#
+                                   #{aok\ 687}#
+                                   #{out\ 688}#
+                                   #{inits\ 689}#)
+                            (if (pair? #{kw\ 682}#)
+                              ((lambda (#{tmp\ 703}#)
+                                 ((lambda (#{tmp\ 704}#)
+                                    (if #{tmp\ 704}#
+                                      (apply (lambda (#{k\ 708}#
+                                                      #{id\ 709}#
+                                                      #{i\ 710}#)
+                                               (let ((#{v\ 713}# (#{gen-var\ 
335}#
+                                                                   #{id\ 
709}#)))
+                                                 (let ((#{l\ 715}# 
(#{gen-labels\ 240}#
+                                                                     (list 
#{v\ 713}#))))
+                                                   (let ((#{r**\ 717}#
+                                                           (#{extend-var-env\ 
212}#
+                                                             #{l\ 715}#
+                                                             (list #{v\ 713}#)
+                                                             #{r*\ 685}#)))
+                                                     (let ((#{w**\ 719}#
+                                                             
(#{make-binding-wrap\ 269}#
+                                                               (list #{id\ 
709}#)
+                                                               #{l\ 715}#
+                                                               #{w*\ 686}#)))
+                                                       (#{expand-kw\ 622}#
+                                                         #{req\ 679}#
+                                                         #{opt\ 680}#
+                                                         #{rest\ 681}#
+                                                         (cdr #{kw\ 682}#)
+                                                         #{body\ 683}#
+                                                         (cons #{v\ 713}#
+                                                               #{vars\ 684}#)
+                                                         #{r**\ 717}#
+                                                         #{w**\ 719}#
+                                                         #{aok\ 687}#
                                                          (cons (list 
(syntax->datum
-                                                                       #{k\ 
9562}#)
+                                                                       #{k\ 
708}#)
                                                                      
(syntax->datum
-                                                                       #{id\ 
9563}#)
-                                                                     #{v\ 
9567}#)
-                                                               #{out\ 9542}#)
-                                                         (cons (#{chi\ 9161}#
-                                                                 #{i\ 9564}#
-                                                                 #{r*\ 9539}#
-                                                                 #{w*\ 9540}#
-                                                                 #{mod\ 9461}#)
-                                                               #{inits\ 
9543}#)))))))
-                                             #{tmp\ 9558}#)
+                                                                       #{id\ 
709}#)
+                                                                     #{v\ 
713}#)
+                                                               #{out\ 688}#)
+                                                         (cons (#{chi\ 307}#
+                                                                 #{i\ 710}#
+                                                                 #{r*\ 685}#
+                                                                 #{w*\ 686}#
+                                                                 #{mod\ 607}#)
+                                                               #{inits\ 
689}#)))))))
+                                             #{tmp\ 704}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 9557}#)))
+                                        #{tmp\ 703}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 9557}#
+                                    #{tmp\ 703}#
                                     '(any any any))))
-                               (car #{kw\ 9536}#))
-                              (#{expand-body\ 9478}#
-                                #{req\ 9533}#
-                                #{opt\ 9534}#
-                                #{rest\ 9535}#
-                                (if (let ((#{t\ 9577}# #{aok\ 9541}#))
-                                      (if #{t\ 9577}#
-                                        #{t\ 9577}#
-                                        (pair? #{out\ 9542}#)))
-                                  (cons #{aok\ 9541}# (reverse #{out\ 9542}#))
+                               (car #{kw\ 682}#))
+                              (#{expand-body\ 624}#
+                                #{req\ 679}#
+                                #{opt\ 680}#
+                                #{rest\ 681}#
+                                (if (let ((#{t\ 723}# #{aok\ 687}#))
+                                      (if #{t\ 723}#
+                                        #{t\ 723}#
+                                        (pair? #{out\ 688}#)))
+                                  (cons #{aok\ 687}# (reverse #{out\ 688}#))
                                   #f)
-                                #{body\ 9537}#
-                                (reverse #{vars\ 9538}#)
-                                #{r*\ 9539}#
-                                #{w*\ 9540}#
-                                (reverse #{inits\ 9543}#)
+                                #{body\ 683}#
+                                (reverse #{vars\ 684}#)
+                                #{r*\ 685}#
+                                #{w*\ 686}#
+                                (reverse #{inits\ 689}#)
                                 '()))))
-                        (#{expand-opt\ 9474}#
-                          (lambda (#{req\ 9579}#
-                                   #{opt\ 9580}#
-                                   #{rest\ 9581}#
-                                   #{kw\ 9582}#
-                                   #{body\ 9583}#
-                                   #{vars\ 9584}#
-                                   #{r*\ 9585}#
-                                   #{w*\ 9586}#
-                                   #{out\ 9587}#
-                                   #{inits\ 9588}#)
-                            (if (pair? #{opt\ 9580}#)
-                              ((lambda (#{tmp\ 9601}#)
-                                 ((lambda (#{tmp\ 9602}#)
-                                    (if #{tmp\ 9602}#
-                                      (apply (lambda (#{id\ 9605}# #{i\ 9606}#)
-                                               (let ((#{v\ 9609}#
-                                                       (#{gen-var\ 9189}#
-                                                         #{id\ 9605}#)))
-                                                 (let ((#{l\ 9611}#
-                                                         (#{gen-labels\ 9094}#
-                                                           (list #{v\ 
9609}#))))
-                                                   (let ((#{r**\ 9613}#
-                                                           (#{extend-var-env\ 
9066}#
-                                                             #{l\ 9611}#
-                                                             (list #{v\ 9609}#)
-                                                             #{r*\ 9585}#)))
-                                                     (let ((#{w**\ 9615}#
-                                                             
(#{make-binding-wrap\ 9123}#
-                                                               (list #{id\ 
9605}#)
-                                                               #{l\ 9611}#
-                                                               #{w*\ 9586}#)))
-                                                       (#{expand-opt\ 9474}#
-                                                         #{req\ 9579}#
-                                                         (cdr #{opt\ 9580}#)
-                                                         #{rest\ 9581}#
-                                                         #{kw\ 9582}#
-                                                         #{body\ 9583}#
-                                                         (cons #{v\ 9609}#
-                                                               #{vars\ 9584}#)
-                                                         #{r**\ 9613}#
-                                                         #{w**\ 9615}#
+                        (#{expand-opt\ 620}#
+                          (lambda (#{req\ 725}#
+                                   #{opt\ 726}#
+                                   #{rest\ 727}#
+                                   #{kw\ 728}#
+                                   #{body\ 729}#
+                                   #{vars\ 730}#
+                                   #{r*\ 731}#
+                                   #{w*\ 732}#
+                                   #{out\ 733}#
+                                   #{inits\ 734}#)
+                            (if (pair? #{opt\ 726}#)
+                              ((lambda (#{tmp\ 747}#)
+                                 ((lambda (#{tmp\ 748}#)
+                                    (if #{tmp\ 748}#
+                                      (apply (lambda (#{id\ 751}# #{i\ 752}#)
+                                               (let ((#{v\ 755}# (#{gen-var\ 
335}#
+                                                                   #{id\ 
751}#)))
+                                                 (let ((#{l\ 757}# 
(#{gen-labels\ 240}#
+                                                                     (list 
#{v\ 755}#))))
+                                                   (let ((#{r**\ 759}#
+                                                           (#{extend-var-env\ 
212}#
+                                                             #{l\ 757}#
+                                                             (list #{v\ 755}#)
+                                                             #{r*\ 731}#)))
+                                                     (let ((#{w**\ 761}#
+                                                             
(#{make-binding-wrap\ 269}#
+                                                               (list #{id\ 
751}#)
+                                                               #{l\ 757}#
+                                                               #{w*\ 732}#)))
+                                                       (#{expand-opt\ 620}#
+                                                         #{req\ 725}#
+                                                         (cdr #{opt\ 726}#)
+                                                         #{rest\ 727}#
+                                                         #{kw\ 728}#
+                                                         #{body\ 729}#
+                                                         (cons #{v\ 755}#
+                                                               #{vars\ 730}#)
+                                                         #{r**\ 759}#
+                                                         #{w**\ 761}#
                                                          (cons (syntax->datum
-                                                                 #{id\ 9605}#)
-                                                               #{out\ 9587}#)
-                                                         (cons (#{chi\ 9161}#
-                                                                 #{i\ 9606}#
-                                                                 #{r*\ 9585}#
-                                                                 #{w*\ 9586}#
-                                                                 #{mod\ 9461}#)
-                                                               #{inits\ 
9588}#)))))))
-                                             #{tmp\ 9602}#)
+                                                                 #{id\ 751}#)
+                                                               #{out\ 733}#)
+                                                         (cons (#{chi\ 307}#
+                                                                 #{i\ 752}#
+                                                                 #{r*\ 731}#
+                                                                 #{w*\ 732}#
+                                                                 #{mod\ 607}#)
+                                                               #{inits\ 
734}#)))))))
+                                             #{tmp\ 748}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any 
pattern"
-                                        #{tmp\ 9601}#)))
+                                        #{tmp\ 747}#)))
                                   ($sc-dispatch
-                                    #{tmp\ 9601}#
+                                    #{tmp\ 747}#
                                     '(any any))))
-                               (car #{opt\ 9580}#))
-                              (if #{rest\ 9581}#
-                                (let ((#{v\ 9620}#
-                                        (#{gen-var\ 9189}# #{rest\ 9581}#)))
-                                  (let ((#{l\ 9622}#
-                                          (#{gen-labels\ 9094}#
-                                            (list #{v\ 9620}#))))
-                                    (let ((#{r*\ 9624}#
-                                            (#{extend-var-env\ 9066}#
-                                              #{l\ 9622}#
-                                              (list #{v\ 9620}#)
-                                              #{r*\ 9585}#)))
-                                      (let ((#{w*\ 9626}#
-                                              (#{make-binding-wrap\ 9123}#
-                                                (list #{rest\ 9581}#)
-                                                #{l\ 9622}#
-                                                #{w*\ 9586}#)))
-                                        (#{expand-kw\ 9476}#
-                                          #{req\ 9579}#
-                                          (if (pair? #{out\ 9587}#)
-                                            (reverse #{out\ 9587}#)
+                               (car #{opt\ 726}#))
+                              (if #{rest\ 727}#
+                                (let ((#{v\ 766}# (#{gen-var\ 335}#
+                                                    #{rest\ 727}#)))
+                                  (let ((#{l\ 768}# (#{gen-labels\ 240}#
+                                                      (list #{v\ 766}#))))
+                                    (let ((#{r*\ 770}#
+                                            (#{extend-var-env\ 212}#
+                                              #{l\ 768}#
+                                              (list #{v\ 766}#)
+                                              #{r*\ 731}#)))
+                                      (let ((#{w*\ 772}#
+                                              (#{make-binding-wrap\ 269}#
+                                                (list #{rest\ 727}#)
+                                                #{l\ 768}#
+                                                #{w*\ 732}#)))
+                                        (#{expand-kw\ 622}#
+                                          #{req\ 725}#
+                                          (if (pair? #{out\ 733}#)
+                                            (reverse #{out\ 733}#)
                                             #f)
-                                          (syntax->datum #{rest\ 9581}#)
-                                          (if (pair? #{kw\ 9582}#)
-                                            (cdr #{kw\ 9582}#)
-                                            #{kw\ 9582}#)
-                                          #{body\ 9583}#
-                                          (cons #{v\ 9620}# #{vars\ 9584}#)
-                                          #{r*\ 9624}#
-                                          #{w*\ 9626}#
-                                          (if (pair? #{kw\ 9582}#)
-                                            (car #{kw\ 9582}#)
+                                          (syntax->datum #{rest\ 727}#)
+                                          (if (pair? #{kw\ 728}#)
+                                            (cdr #{kw\ 728}#)
+                                            #{kw\ 728}#)
+                                          #{body\ 729}#
+                                          (cons #{v\ 766}# #{vars\ 730}#)
+                                          #{r*\ 770}#
+                                          #{w*\ 772}#
+                                          (if (pair? #{kw\ 728}#)
+                                            (car #{kw\ 728}#)
                                             #f)
                                           '()
-                                          #{inits\ 9588}#)))))
-                                (#{expand-kw\ 9476}#
-                                  #{req\ 9579}#
-                                  (if (pair? #{out\ 9587}#)
-                                    (reverse #{out\ 9587}#)
+                                          #{inits\ 734}#)))))
+                                (#{expand-kw\ 622}#
+                                  #{req\ 725}#
+                                  (if (pair? #{out\ 733}#)
+                                    (reverse #{out\ 733}#)
                                     #f)
                                   #f
-                                  (if (pair? #{kw\ 9582}#)
-                                    (cdr #{kw\ 9582}#)
-                                    #{kw\ 9582}#)
-                                  #{body\ 9583}#
-                                  #{vars\ 9584}#
-                                  #{r*\ 9585}#
-                                  #{w*\ 9586}#
-                                  (if (pair? #{kw\ 9582}#)
-                                    (car #{kw\ 9582}#)
-                                    #f)
+                                  (if (pair? #{kw\ 728}#)
+                                    (cdr #{kw\ 728}#)
+                                    #{kw\ 728}#)
+                                  #{body\ 729}#
+                                  #{vars\ 730}#
+                                  #{r*\ 731}#
+                                  #{w*\ 732}#
+                                  (if (pair? #{kw\ 728}#) (car #{kw\ 728}#) #f)
                                   '()
-                                  #{inits\ 9588}#)))))
-                        (#{expand-req\ 9472}#
-                          (lambda (#{req\ 9628}#
-                                   #{opt\ 9629}#
-                                   #{rest\ 9630}#
-                                   #{kw\ 9631}#
-                                   #{body\ 9632}#)
-                            (let ((#{vars\ 9640}#
-                                    (map #{gen-var\ 9189}# #{req\ 9628}#))
-                                  (#{labels\ 9641}#
-                                    (#{gen-labels\ 9094}# #{req\ 9628}#)))
-                              (let ((#{r*\ 9644}#
-                                      (#{extend-var-env\ 9066}#
-                                        #{labels\ 9641}#
-                                        #{vars\ 9640}#
-                                        #{r\ 9458}#))
-                                    (#{w*\ 9645}#
-                                      (#{make-binding-wrap\ 9123}#
-                                        #{req\ 9628}#
-                                        #{labels\ 9641}#
-                                        #{w\ 9459}#)))
-                                (#{expand-opt\ 9474}#
-                                  (map syntax->datum #{req\ 9628}#)
-                                  #{opt\ 9629}#
-                                  #{rest\ 9630}#
-                                  #{kw\ 9631}#
-                                  #{body\ 9632}#
-                                  (reverse #{vars\ 9640}#)
-                                  #{r*\ 9644}#
-                                  #{w*\ 9645}#
+                                  #{inits\ 734}#)))))
+                        (#{expand-req\ 618}#
+                          (lambda (#{req\ 774}#
+                                   #{opt\ 775}#
+                                   #{rest\ 776}#
+                                   #{kw\ 777}#
+                                   #{body\ 778}#)
+                            (let ((#{vars\ 786}#
+                                    (map #{gen-var\ 335}# #{req\ 774}#))
+                                  (#{labels\ 787}#
+                                    (#{gen-labels\ 240}# #{req\ 774}#)))
+                              (let ((#{r*\ 790}#
+                                      (#{extend-var-env\ 212}#
+                                        #{labels\ 787}#
+                                        #{vars\ 786}#
+                                        #{r\ 604}#))
+                                    (#{w*\ 791}#
+                                      (#{make-binding-wrap\ 269}#
+                                        #{req\ 774}#
+                                        #{labels\ 787}#
+                                        #{w\ 605}#)))
+                                (#{expand-opt\ 620}#
+                                  (map syntax->datum #{req\ 774}#)
+                                  #{opt\ 775}#
+                                  #{rest\ 776}#
+                                  #{kw\ 777}#
+                                  #{body\ 778}#
+                                  (reverse #{vars\ 786}#)
+                                  #{r*\ 790}#
+                                  #{w*\ 791}#
                                   '()
                                   '()))))))
-                 ((lambda (#{tmp\ 9646}#)
-                    ((lambda (#{tmp\ 9647}#)
-                       (if #{tmp\ 9647}#
+                 ((lambda (#{tmp\ 792}#)
+                    ((lambda (#{tmp\ 793}#)
+                       (if #{tmp\ 793}#
                          (apply (lambda () (values (quote ()) #f))
-                                #{tmp\ 9647}#)
-                         ((lambda (#{tmp\ 9648}#)
-                            (if #{tmp\ 9648}#
-                              (apply (lambda (#{args\ 9655}#
-                                              #{e1\ 9656}#
-                                              #{e2\ 9657}#
-                                              #{args*\ 9658}#
-                                              #{e1*\ 9659}#
-                                              #{e2*\ 9660}#)
+                                #{tmp\ 793}#)
+                         ((lambda (#{tmp\ 794}#)
+                            (if #{tmp\ 794}#
+                              (apply (lambda (#{args\ 801}#
+                                              #{e1\ 802}#
+                                              #{e2\ 803}#
+                                              #{args*\ 804}#
+                                              #{e1*\ 805}#
+                                              #{e2*\ 806}#)
                                        (call-with-values
                                          (lambda ()
-                                           (#{get-formals\ 9462}#
-                                             #{args\ 9655}#))
-                                         (lambda (#{req\ 9661}#
-                                                  #{opt\ 9662}#
-                                                  #{rest\ 9663}#
-                                                  #{kw\ 9664}#)
+                                           (#{get-formals\ 608}#
+                                             #{args\ 801}#))
+                                         (lambda (#{req\ 807}#
+                                                  #{opt\ 808}#
+                                                  #{rest\ 809}#
+                                                  #{kw\ 810}#)
                                            (call-with-values
                                              (lambda ()
-                                               (#{expand-req\ 9472}#
-                                                 #{req\ 9661}#
-                                                 #{opt\ 9662}#
-                                                 #{rest\ 9663}#
-                                                 #{kw\ 9664}#
-                                                 (cons #{e1\ 9656}#
-                                                       #{e2\ 9657}#)))
-                                             (lambda (#{meta\ 9670}#
-                                                      #{req\ 9671}#
-                                                      #{opt\ 9672}#
-                                                      #{rest\ 9673}#
-                                                      #{kw\ 9674}#
-                                                      #{inits\ 9675}#
-                                                      #{vars\ 9676}#
-                                                      #{body\ 9677}#)
+                                               (#{expand-req\ 618}#
+                                                 #{req\ 807}#
+                                                 #{opt\ 808}#
+                                                 #{rest\ 809}#
+                                                 #{kw\ 810}#
+                                                 (cons #{e1\ 802}#
+                                                       #{e2\ 803}#)))
+                                             (lambda (#{meta\ 816}#
+                                                      #{req\ 817}#
+                                                      #{opt\ 818}#
+                                                      #{rest\ 819}#
+                                                      #{kw\ 820}#
+                                                      #{inits\ 821}#
+                                                      #{vars\ 822}#
+                                                      #{body\ 823}#)
                                                (call-with-values
                                                  (lambda ()
-                                                   (#{chi-lambda-case\ 9185}#
-                                                     #{e\ 9457}#
-                                                     #{r\ 9458}#
-                                                     #{w\ 9459}#
-                                                     #{s\ 9460}#
-                                                     #{mod\ 9461}#
-                                                     #{get-formals\ 9462}#
-                                                     (map (lambda (#{tmp\ 
9688}#
-                                                                   #{tmp\ 
9687}#
-                                                                   #{tmp\ 
9686}#)
-                                                            (cons #{tmp\ 9686}#
-                                                                  (cons #{tmp\ 
9687}#
-                                                                        #{tmp\ 
9688}#)))
-                                                          #{e2*\ 9660}#
-                                                          #{e1*\ 9659}#
-                                                          #{args*\ 9658}#)))
-                                                 (lambda (#{meta*\ 9690}#
-                                                          #{else*\ 9691}#)
+                                                   (#{chi-lambda-case\ 331}#
+                                                     #{e\ 603}#
+                                                     #{r\ 604}#
+                                                     #{w\ 605}#
+                                                     #{s\ 606}#
+                                                     #{mod\ 607}#
+                                                     #{get-formals\ 608}#
+                                                     (map (lambda (#{tmp\ 834}#
+                                                                   #{tmp\ 833}#
+                                                                   #{tmp\ 
832}#)
+                                                            (cons #{tmp\ 832}#
+                                                                  (cons #{tmp\ 
833}#
+                                                                        #{tmp\ 
834}#)))
+                                                          #{e2*\ 806}#
+                                                          #{e1*\ 805}#
+                                                          #{args*\ 804}#)))
+                                                 (lambda (#{meta*\ 836}#
+                                                          #{else*\ 837}#)
                                                    (values
                                                      (append
-                                                       #{meta\ 9670}#
-                                                       #{meta*\ 9690}#)
-                                                     (#{build-lambda-case\ 
9022}#
-                                                       #{s\ 9460}#
-                                                       #{req\ 9671}#
-                                                       #{opt\ 9672}#
-                                                       #{rest\ 9673}#
-                                                       #{kw\ 9674}#
-                                                       #{inits\ 9675}#
-                                                       #{vars\ 9676}#
-                                                       #{body\ 9677}#
-                                                       #{else*\ 9691}#)))))))))
-                                     #{tmp\ 9648}#)
+                                                       #{meta\ 816}#
+                                                       #{meta*\ 836}#)
+                                                     (#{build-lambda-case\ 
168}#
+                                                       #{s\ 606}#
+                                                       #{req\ 817}#
+                                                       #{opt\ 818}#
+                                                       #{rest\ 819}#
+                                                       #{kw\ 820}#
+                                                       #{inits\ 821}#
+                                                       #{vars\ 822}#
+                                                       #{body\ 823}#
+                                                       #{else*\ 837}#)))))))))
+                                     #{tmp\ 794}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 9646}#)))
+                                #{tmp\ 792}#)))
                           ($sc-dispatch
-                            #{tmp\ 9646}#
+                            #{tmp\ 792}#
                             '((any any . each-any)
                               .
                               #(each (any any . each-any)))))))
-                     ($sc-dispatch #{tmp\ 9646}# (quote ()))))
-                  #{clauses\ 9463}#))))
-           (#{lambda*-formals\ 9183}#
-             (lambda (#{orig-args\ 9694}#)
-               (letrec ((#{check\ 9705}#
-                          (lambda (#{req\ 9706}#
-                                   #{opt\ 9707}#
-                                   #{rest\ 9708}#
-                                   #{kw\ 9709}#)
-                            (if (#{distinct-bound-ids?\ 9141}#
+                     ($sc-dispatch #{tmp\ 792}# (quote ()))))
+                  #{clauses\ 609}#))))
+           (#{lambda*-formals\ 329}#
+             (lambda (#{orig-args\ 840}#)
+               (letrec ((#{check\ 851}#
+                          (lambda (#{req\ 852}#
+                                   #{opt\ 853}#
+                                   #{rest\ 854}#
+                                   #{kw\ 855}#)
+                            (if (#{distinct-bound-ids?\ 287}#
                                   (append
-                                    #{req\ 9706}#
-                                    (map car #{opt\ 9707}#)
-                                    (if #{rest\ 9708}#
-                                      (list #{rest\ 9708}#)
+                                    #{req\ 852}#
+                                    (map car #{opt\ 853}#)
+                                    (if #{rest\ 854}#
+                                      (list #{rest\ 854}#)
                                       '())
-                                    (if (pair? #{kw\ 9709}#)
-                                      (map cadr (cdr #{kw\ 9709}#))
+                                    (if (pair? #{kw\ 855}#)
+                                      (map cadr (cdr #{kw\ 855}#))
                                       '())))
                               (values
-                                #{req\ 9706}#
-                                #{opt\ 9707}#
-                                #{rest\ 9708}#
-                                #{kw\ 9709}#)
+                                #{req\ 852}#
+                                #{opt\ 853}#
+                                #{rest\ 854}#
+                                #{kw\ 855}#)
                               (syntax-violation
                                 'lambda*
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 9694}#))))
-                        (#{rest\ 9703}#
-                          (lambda (#{args\ 9717}#
-                                   #{req\ 9718}#
-                                   #{opt\ 9719}#
-                                   #{kw\ 9720}#)
-                            ((lambda (#{tmp\ 9725}#)
-                               ((lambda (#{tmp\ 9726}#)
-                                  (if (if #{tmp\ 9726}#
-                                        (apply (lambda (#{r\ 9728}#)
-                                                 (#{id?\ 9076}# #{r\ 9728}#))
-                                               #{tmp\ 9726}#)
+                                #{orig-args\ 840}#))))
+                        (#{rest\ 849}#
+                          (lambda (#{args\ 863}#
+                                   #{req\ 864}#
+                                   #{opt\ 865}#
+                                   #{kw\ 866}#)
+                            ((lambda (#{tmp\ 871}#)
+                               ((lambda (#{tmp\ 872}#)
+                                  (if (if #{tmp\ 872}#
+                                        (apply (lambda (#{r\ 874}#)
+                                                 (#{id?\ 222}# #{r\ 874}#))
+                                               #{tmp\ 872}#)
                                         #f)
-                                    (apply (lambda (#{r\ 9730}#)
-                                             (#{check\ 9705}#
-                                               #{req\ 9718}#
-                                               #{opt\ 9719}#
-                                               #{r\ 9730}#
-                                               #{kw\ 9720}#))
-                                           #{tmp\ 9726}#)
-                                    ((lambda (#{else\ 9732}#)
+                                    (apply (lambda (#{r\ 876}#)
+                                             (#{check\ 851}#
+                                               #{req\ 864}#
+                                               #{opt\ 865}#
+                                               #{r\ 876}#
+                                               #{kw\ 866}#))
+                                           #{tmp\ 872}#)
+                                    ((lambda (#{else\ 878}#)
                                        (syntax-violation
                                          'lambda*
                                          "invalid rest argument"
-                                         #{orig-args\ 9694}#
-                                         #{args\ 9717}#))
-                                     #{tmp\ 9725}#)))
-                                (list #{tmp\ 9725}#)))
-                             #{args\ 9717}#)))
-                        (#{key\ 9701}#
-                          (lambda (#{args\ 9733}#
-                                   #{req\ 9734}#
-                                   #{opt\ 9735}#
-                                   #{rkey\ 9736}#)
-                            ((lambda (#{tmp\ 9741}#)
-                               ((lambda (#{tmp\ 9742}#)
-                                  (if #{tmp\ 9742}#
+                                         #{orig-args\ 840}#
+                                         #{args\ 863}#))
+                                     #{tmp\ 871}#)))
+                                (list #{tmp\ 871}#)))
+                             #{args\ 863}#)))
+                        (#{key\ 847}#
+                          (lambda (#{args\ 879}#
+                                   #{req\ 880}#
+                                   #{opt\ 881}#
+                                   #{rkey\ 882}#)
+                            ((lambda (#{tmp\ 887}#)
+                               ((lambda (#{tmp\ 888}#)
+                                  (if #{tmp\ 888}#
                                     (apply (lambda ()
-                                             (#{check\ 9705}#
-                                               #{req\ 9734}#
-                                               #{opt\ 9735}#
+                                             (#{check\ 851}#
+                                               #{req\ 880}#
+                                               #{opt\ 881}#
                                                #f
                                                (cons #f
-                                                     (reverse
-                                                       #{rkey\ 9736}#))))
-                                           #{tmp\ 9742}#)
-                                    ((lambda (#{tmp\ 9743}#)
-                                       (if (if #{tmp\ 9743}#
-                                             (apply (lambda (#{a\ 9746}#
-                                                             #{b\ 9747}#)
-                                                      (#{id?\ 9076}#
-                                                        #{a\ 9746}#))
-                                                    #{tmp\ 9743}#)
+                                                     (reverse #{rkey\ 882}#))))
+                                           #{tmp\ 888}#)
+                                    ((lambda (#{tmp\ 889}#)
+                                       (if (if #{tmp\ 889}#
+                                             (apply (lambda (#{a\ 892}#
+                                                             #{b\ 893}#)
+                                                      (#{id?\ 222}#
+                                                        #{a\ 892}#))
+                                                    #{tmp\ 889}#)
                                              #f)
-                                         (apply (lambda (#{a\ 9750}#
-                                                         #{b\ 9751}#)
-                                                  ((lambda (#{tmp\ 9753}#)
-                                                     ((lambda (#{k\ 9755}#)
-                                                        (#{key\ 9701}#
-                                                          #{b\ 9751}#
-                                                          #{req\ 9734}#
-                                                          #{opt\ 9735}#
-                                                          (cons (cons #{k\ 
9755}#
-                                                                      (cons 
#{a\ 9750}#
+                                         (apply (lambda (#{a\ 896}# #{b\ 897}#)
+                                                  ((lambda (#{tmp\ 899}#)
+                                                     ((lambda (#{k\ 901}#)
+                                                        (#{key\ 847}#
+                                                          #{b\ 897}#
+                                                          #{req\ 880}#
+                                                          #{opt\ 881}#
+                                                          (cons (cons #{k\ 
901}#
+                                                                      (cons 
#{a\ 896}#
                                                                             
'(#(syntax-object
                                                                                
 #f
                                                                                
 ((top)
                                                                                
  #(ribcage
                                                                                
    #(k)
                                                                                
    #((top))
-                                                                               
    #("i9754"))
+                                                                               
    #("i900"))
                                                                                
  #(ribcage
                                                                                
    #(a
                                                                                
      b)
                                                                                
    #((top)
                                                                                
      (top))
-                                                                               
    #("i9748"
-                                                                               
      "i9749"))
+                                                                               
    #("i894"
+                                                                               
      "i895"))
                                                                                
  #(ribcage
                                                                                
    ()
                                                                                
    ()
@@ -652,10 +646,10 @@
                                                                                
      (top)
                                                                                
      (top)
                                                                                
      (top))
-                                                                               
    #("i9737"
-                                                                               
      "i9738"
-                                                                               
      "i9739"
-                                                                               
      "i9740"))
+                                                                               
    #("i883"
+                                                                               
      "i884"
+                                                                               
      "i885"
+                                                                               
      "i886"))
                                                                                
  #(ribcage
                                                                                
    (check rest
                                                                                
           key
@@ -666,15 +660,15 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i9704"
-                                                                               
     "i9702"
-                                                                               
     "i9700"
-                                                                               
     "i9698"
-                                                                               
     "i9696"))
+                                                                               
    ("i850"
+                                                                               
     "i848"
+                                                                               
     "i846"
+                                                                               
     "i844"
+                                                                               
     "i842"))
                                                                                
  #(ribcage
                                                                                
    #(orig-args)
                                                                                
    #((top))
-                                                                               
    #("i9695"))
+                                                                               
    #("i841"))
                                                                                
  #(ribcage
                                                                                
    (lambda-var-list
                                                                                
      gen-var
@@ -912,350 +906,350 @@
                                                                                
     (top)
                                                                                
     (top)
                                                                                
     (top))
-                                                                               
    ("i9190"
-                                                                               
     "i9188"
-                                                                               
     "i9186"
-                                                                               
     "i9184"
-                                                                               
     "i9182"
-                                                                               
     "i9180"
-                                                                               
     "i9178"
-                                                                               
     "i9176"
-                                                                               
     "i9174"
-                                                                               
     "i9172"
-                                                                               
     "i9170"
-                                                                               
     "i9168"
-                                                                               
     "i9166"
-                                                                               
     "i9164"
-                                                                               
     "i9162"
-                                                                               
     "i9160"
-                                                                               
     "i9158"
-                                                                               
     "i9156"
-                                                                               
     "i9154"
-                                                                               
     "i9152"
-                                                                               
     "i9150"
-                                                                               
     "i9148"
-                                                                               
     "i9146"
-                                                                               
     "i9144"
-                                                                               
     "i9142"
-                                                                               
     "i9140"
-                                                                               
     "i9138"
-                                                                               
     "i9136"
-                                                                               
     "i9134"
-                                                                               
     "i9132"
-                                                                               
     "i9130"
-                                                                               
     "i9128"
-                                                                               
     "i9126"
-                                                                               
     "i9124"
-                                                                               
     "i9122"
-                                                                               
     "i9120"
-                                                                               
     "i9119"
-                                                                               
     "i9118"
-                                                                               
     "i9116"
-                                                                               
     "i9115"
-                                                                               
     "i9114"
-                                                                               
     "i9113"
-                                                                               
     "i9112"
-                                                                               
     "i9110"
-                                                                               
     "i9108"
-                                                                               
     "i9106"
-                                                                               
     "i9104"
-                                                                               
     "i9102"
-                                                                               
     "i9100"
-                                                                               
     "i9098"
-                                                                               
     "i9096"
-                                                                               
     "i9093"
-                                                                               
     "i9091"
-                                                                               
     "i9090"
-                                                                               
     "i9089"
-                                                                               
     "i9088"
-                                                                               
     "i9087"
-                                                                               
     "i9086"
-                                                                               
     "i9084"
-                                                                               
     "i9082"
-                                                                               
     "i9080"
-                                                                               
     "i9078"
-                                                                               
     "i9077"
-                                                                               
     "i9075"
-                                                                               
     "i9073"
-                                                                               
     "i9071"
-                                                                               
     "i9069"
-                                                                               
     "i9067"
-                                                                               
     "i9065"
-                                                                               
     "i9063"
-                                                                               
     "i9062"
-                                                                               
     "i9060"
-                                                                               
     "i9058"
-                                                                               
     "i9057"
-                                                                               
     "i9056"
-                                                                               
     "i9054"
-                                                                               
     "i9053"
-                                                                               
     "i9051"
-                                                                               
     "i9049"
-                                                                               
     "i9047"
-                                                                               
     "i9045"
-                                                                               
     "i9043"
-                                                                               
     "i9041"
-                                                                               
     "i9039"
-                                                                               
     "i9037"
-                                                                               
     "i9035"
-                                                                               
     "i9033"
-                                                                               
     "i9031"
-                                                                               
     "i9029"
-                                                                               
     "i9027"
-                                                                               
     "i9025"
-                                                                               
     "i9023"
-                                                                               
     "i9021"
-                                                                               
     "i9019"
-                                                                               
     "i9017"
-                                                                               
     "i9015"
-                                                                               
     "i9013"
-                                                                               
     "i9011"
-                                                                               
     "i9009"
-                                                                               
     "i9007"
-                                                                               
     "i9005"
-                                                                               
     "i9003"
-                                                                               
     "i9001"
-                                                                               
     "i8999"
-                                                                               
     "i8997"
-                                                                               
     "i8995"
-                                                                               
     "i8993"
-                                                                               
     "i8991"
-                                                                               
     "i8989"
-                                                                               
     "i8988"
-                                                                               
     "i8986"
-                                                                               
     "i8984"
-                                                                               
     "i8982"
-                                                                               
     "i8980"
-                                                                               
     "i8978"
-                                                                               
     "i8976"
-                                                                               
     "i8974"
-                                                                               
     "i8972"))
+                                                                               
    ("i336"
+                                                                               
     "i334"
+                                                                               
     "i332"
+                                                                               
     "i330"
+                                                                               
     "i328"
+                                                                               
     "i326"
+                                                                               
     "i324"
+                                                                               
     "i322"
+                                                                               
     "i320"
+                                                                               
     "i318"
+                                                                               
     "i316"
+                                                                               
     "i314"
+                                                                               
     "i312"
+                                                                               
     "i310"
+                                                                               
     "i308"
+                                                                               
     "i306"
+                                                                               
     "i304"
+                                                                               
     "i302"
+                                                                               
     "i300"
+                                                                               
     "i298"
+                                                                               
     "i296"
+                                                                               
     "i294"
+                                                                               
     "i292"
+                                                                               
     "i290"
+                                                                               
     "i288"
+                                                                               
     "i286"
+                                                                               
     "i284"
+                                                                               
     "i282"
+                                                                               
     "i280"
+                                                                               
     "i278"
+                                                                               
     "i276"
+                                                                               
     "i274"
+                                                                               
     "i272"
+                                                                               
     "i270"
+                                                                               
     "i268"
+                                                                               
     "i266"
+                                                                               
     "i265"
+                                                                               
     "i264"
+                                                                               
     "i262"
+                                                                               
     "i261"
+                                                                               
     "i260"
+                                                                               
     "i259"
+                                                                               
     "i258"
+                                                                               
     "i256"
+                                                                               
     "i254"
+                                                                               
     "i252"
+                                                                               
     "i250"
+                                                                               
     "i248"
+                                                                               
     "i246"
+                                                                               
     "i244"
+                                                                               
     "i242"
+                                                                               
     "i239"
+                                                                               
     "i237"
+                                                                               
     "i236"
+                                                                               
     "i235"
+                                                                               
     "i234"
+                                                                               
     "i233"
+                                                                               
     "i232"
+                                                                               
     "i230"
+                                                                               
     "i228"
+                                                                               
     "i226"
+                                                                               
     "i224"
+                                                                               
     "i223"
+                                                                               
     "i221"
+                                                                               
     "i219"
+                                                                               
     "i217"
+                                                                               
     "i215"
+                                                                               
     "i213"
+                                                                               
     "i211"
+                                                                               
     "i209"
+                                                                               
     "i208"
+                                                                               
     "i206"
+                                                                               
     "i204"
+                                                                               
     "i203"
+                                                                               
     "i202"
+                                                                               
     "i200"
+                                                                               
     "i199"
+                                                                               
     "i197"
+                                                                               
     "i195"
+                                                                               
     "i193"
+                                                                               
     "i191"
+                                                                               
     "i189"
+                                                                               
     "i187"
+                                                                               
     "i185"
+                                                                               
     "i183"
+                                                                               
     "i181"
+                                                                               
     "i179"
+                                                                               
     "i177"
+                                                                               
     "i175"
+                                                                               
     "i173"
+                                                                               
     "i171"
+                                                                               
     "i169"
+                                                                               
     "i167"
+                                                                               
     "i165"
+                                                                               
     "i163"
+                                                                               
     "i161"
+                                                                               
     "i159"
+                                                                               
     "i157"
+                                                                               
     "i155"
+                                                                               
     "i153"
+                                                                               
     "i151"
+                                                                               
     "i149"
+                                                                               
     "i147"
+                                                                               
     "i145"
+                                                                               
     "i143"
+                                                                               
     "i141"
+                                                                               
     "i139"
+                                                                               
     "i137"
+                                                                               
     "i135"
+                                                                               
     "i134"
+                                                                               
     "i132"
+                                                                               
     "i130"
+                                                                               
     "i128"
+                                                                               
     "i126"
+                                                                               
     "i124"
+                                                                               
     "i122"
+                                                                               
     "i120"
+                                                                               
     "i118"))
                                                                                
  #(ribcage
                                                                                
    (define-structure
                                                                                
      and-map*)
                                                                                
    ((top)
                                                                                
     (top))
-                                                                               
    ("i8875"
-                                                                               
     "i8873")))
+                                                                               
    ("i21"
+                                                                               
     "i19")))
                                                                                
 (hygiene
                                                                                
   guile)))))
-                                                                #{rkey\ 
9736}#)))
-                                                      #{tmp\ 9753}#))
+                                                                #{rkey\ 
882}#)))
+                                                      #{tmp\ 899}#))
                                                    (symbol->keyword
                                                      (syntax->datum
-                                                       #{a\ 9750}#))))
-                                                #{tmp\ 9743}#)
-                                         ((lambda (#{tmp\ 9756}#)
-                                            (if (if #{tmp\ 9756}#
-                                                  (apply (lambda (#{a\ 9760}#
-                                                                  #{init\ 
9761}#
-                                                                  #{b\ 9762}#)
-                                                           (#{id?\ 9076}#
-                                                             #{a\ 9760}#))
-                                                         #{tmp\ 9756}#)
+                                                       #{a\ 896}#))))
+                                                #{tmp\ 889}#)
+                                         ((lambda (#{tmp\ 902}#)
+                                            (if (if #{tmp\ 902}#
+                                                  (apply (lambda (#{a\ 906}#
+                                                                  #{init\ 907}#
+                                                                  #{b\ 908}#)
+                                                           (#{id?\ 222}#
+                                                             #{a\ 906}#))
+                                                         #{tmp\ 902}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 9766}#
-                                                              #{init\ 9767}#
-                                                              #{b\ 9768}#)
-                                                       ((lambda (#{tmp\ 9770}#)
-                                                          ((lambda (#{k\ 
9772}#)
-                                                             (#{key\ 9701}#
-                                                               #{b\ 9768}#
-                                                               #{req\ 9734}#
-                                                               #{opt\ 9735}#
-                                                               (cons (list 
#{k\ 9772}#
-                                                                           
#{a\ 9766}#
-                                                                           
#{init\ 9767}#)
-                                                                     #{rkey\ 
9736}#)))
-                                                           #{tmp\ 9770}#))
+                                              (apply (lambda (#{a\ 912}#
+                                                              #{init\ 913}#
+                                                              #{b\ 914}#)
+                                                       ((lambda (#{tmp\ 916}#)
+                                                          ((lambda (#{k\ 918}#)
+                                                             (#{key\ 847}#
+                                                               #{b\ 914}#
+                                                               #{req\ 880}#
+                                                               #{opt\ 881}#
+                                                               (cons (list 
#{k\ 918}#
+                                                                           
#{a\ 912}#
+                                                                           
#{init\ 913}#)
+                                                                     #{rkey\ 
882}#)))
+                                                           #{tmp\ 916}#))
                                                         (symbol->keyword
                                                           (syntax->datum
-                                                            #{a\ 9766}#))))
-                                                     #{tmp\ 9756}#)
-                                              ((lambda (#{tmp\ 9773}#)
-                                                 (if (if #{tmp\ 9773}#
-                                                       (apply (lambda (#{a\ 
9778}#
-                                                                       #{init\ 
9779}#
-                                                                       #{k\ 
9780}#
-                                                                       #{b\ 
9781}#)
-                                                                (if (#{id?\ 
9076}#
-                                                                      #{a\ 
9778}#)
+                                                            #{a\ 912}#))))
+                                                     #{tmp\ 902}#)
+                                              ((lambda (#{tmp\ 919}#)
+                                                 (if (if #{tmp\ 919}#
+                                                       (apply (lambda (#{a\ 
924}#
+                                                                       #{init\ 
925}#
+                                                                       #{k\ 
926}#
+                                                                       #{b\ 
927}#)
+                                                                (if (#{id?\ 
222}#
+                                                                      #{a\ 
924}#)
                                                                   (keyword?
                                                                     
(syntax->datum
-                                                                      #{k\ 
9780}#))
+                                                                      #{k\ 
926}#))
                                                                   #f))
-                                                              #{tmp\ 9773}#)
+                                                              #{tmp\ 919}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 9788}#
-                                                                   #{init\ 
9789}#
-                                                                   #{k\ 9790}#
-                                                                   #{b\ 9791}#)
-                                                            (#{key\ 9701}#
-                                                              #{b\ 9791}#
-                                                              #{req\ 9734}#
-                                                              #{opt\ 9735}#
-                                                              (cons (list #{k\ 
9790}#
-                                                                          #{a\ 
9788}#
-                                                                          
#{init\ 9789}#)
-                                                                    #{rkey\ 
9736}#)))
-                                                          #{tmp\ 9773}#)
-                                                   ((lambda (#{tmp\ 9792}#)
-                                                      (if (if #{tmp\ 9792}#
-                                                            (apply (lambda 
(#{aok\ 9794}#)
+                                                   (apply (lambda (#{a\ 934}#
+                                                                   #{init\ 
935}#
+                                                                   #{k\ 936}#
+                                                                   #{b\ 937}#)
+                                                            (#{key\ 847}#
+                                                              #{b\ 937}#
+                                                              #{req\ 880}#
+                                                              #{opt\ 881}#
+                                                              (cons (list #{k\ 
936}#
+                                                                          #{a\ 
934}#
+                                                                          
#{init\ 935}#)
+                                                                    #{rkey\ 
882}#)))
+                                                          #{tmp\ 919}#)
+                                                   ((lambda (#{tmp\ 938}#)
+                                                      (if (if #{tmp\ 938}#
+                                                            (apply (lambda 
(#{aok\ 940}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{aok\ 9794}#)
+                                                                            
#{aok\ 940}#)
                                                                           
#:allow-other-keys))
-                                                                   #{tmp\ 
9792}#)
+                                                                   #{tmp\ 
938}#)
                                                             #f)
-                                                        (apply (lambda (#{aok\ 
9796}#)
-                                                                 (#{check\ 
9705}#
-                                                                   #{req\ 
9734}#
-                                                                   #{opt\ 
9735}#
+                                                        (apply (lambda (#{aok\ 
942}#)
+                                                                 (#{check\ 
851}#
+                                                                   #{req\ 880}#
+                                                                   #{opt\ 881}#
                                                                    #f
                                                                    (cons #t
                                                                          
(reverse
-                                                                           
#{rkey\ 9736}#))))
-                                                               #{tmp\ 9792}#)
-                                                        ((lambda (#{tmp\ 
9797}#)
-                                                           (if (if #{tmp\ 
9797}#
-                                                                 (apply 
(lambda (#{aok\ 9801}#
-                                                                               
  #{a\ 9802}#
-                                                                               
  #{b\ 9803}#)
+                                                                           
#{rkey\ 882}#))))
+                                                               #{tmp\ 938}#)
+                                                        ((lambda (#{tmp\ 943}#)
+                                                           (if (if #{tmp\ 943}#
+                                                                 (apply 
(lambda (#{aok\ 947}#
+                                                                               
  #{a\ 948}#
+                                                                               
  #{b\ 949}#)
                                                                           (if 
(eq? (syntax->datum
-                                                                               
      #{aok\ 9801}#)
+                                                                               
      #{aok\ 947}#)
                                                                                
    #:allow-other-keys)
                                                                             
(eq? (syntax->datum
-                                                                               
    #{a\ 9802}#)
+                                                                               
    #{a\ 948}#)
                                                                                
  #:rest)
                                                                             
#f))
-                                                                        #{tmp\ 
9797}#)
+                                                                        #{tmp\ 
943}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{aok\ 9809}#
-                                                                             
#{a\ 9810}#
-                                                                             
#{b\ 9811}#)
-                                                                      (#{rest\ 
9703}#
-                                                                        #{b\ 
9811}#
-                                                                        #{req\ 
9734}#
-                                                                        #{opt\ 
9735}#
+                                                             (apply (lambda 
(#{aok\ 955}#
+                                                                             
#{a\ 956}#
+                                                                             
#{b\ 957}#)
+                                                                      (#{rest\ 
849}#
+                                                                        #{b\ 
957}#
+                                                                        #{req\ 
880}#
+                                                                        #{opt\ 
881}#
                                                                         (cons 
#t
                                                                               
(reverse
-                                                                               
 #{rkey\ 9736}#))))
-                                                                    #{tmp\ 
9797}#)
-                                                             ((lambda (#{tmp\ 
9812}#)
-                                                                (if (if #{tmp\ 
9812}#
-                                                                      (apply 
(lambda (#{aok\ 9815}#
-                                                                               
       #{r\ 9816}#)
+                                                                               
 #{rkey\ 882}#))))
+                                                                    #{tmp\ 
943}#)
+                                                             ((lambda (#{tmp\ 
958}#)
+                                                                (if (if #{tmp\ 
958}#
+                                                                      (apply 
(lambda (#{aok\ 961}#
+                                                                               
       #{r\ 962}#)
                                                                                
(if (eq? (syntax->datum
-                                                                               
           #{aok\ 9815}#)
+                                                                               
           #{aok\ 961}#)
                                                                                
         #:allow-other-keys)
-                                                                               
  (#{id?\ 9076}#
-                                                                               
    #{r\ 9816}#)
+                                                                               
  (#{id?\ 222}#
+                                                                               
    #{r\ 962}#)
                                                                                
  #f))
-                                                                             
#{tmp\ 9812}#)
+                                                                             
#{tmp\ 958}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{aok\ 9821}#
-                                                                               
   #{r\ 9822}#)
-                                                                           
(#{rest\ 9703}#
-                                                                             
#{r\ 9822}#
-                                                                             
#{req\ 9734}#
-                                                                             
#{opt\ 9735}#
+                                                                  (apply 
(lambda (#{aok\ 967}#
+                                                                               
   #{r\ 968}#)
+                                                                           
(#{rest\ 849}#
+                                                                             
#{r\ 968}#
+                                                                             
#{req\ 880}#
+                                                                             
#{opt\ 881}#
                                                                              
(cons #t
                                                                                
    (reverse
-                                                                               
      #{rkey\ 9736}#))))
-                                                                         
#{tmp\ 9812}#)
-                                                                  ((lambda 
(#{tmp\ 9823}#)
-                                                                     (if (if 
#{tmp\ 9823}#
-                                                                           
(apply (lambda (#{a\ 9826}#
-                                                                               
            #{b\ 9827}#)
+                                                                               
      #{rkey\ 882}#))))
+                                                                         
#{tmp\ 958}#)
+                                                                  ((lambda 
(#{tmp\ 969}#)
+                                                                     (if (if 
#{tmp\ 969}#
+                                                                           
(apply (lambda (#{a\ 972}#
+                                                                               
            #{b\ 973}#)
                                                                                
     (eq? (syntax->datum
-                                                                               
            #{a\ 9826}#)
+                                                                               
            #{a\ 972}#)
                                                                                
          #:rest))
-                                                                               
   #{tmp\ 9823}#)
+                                                                               
   #{tmp\ 969}#)
                                                                            #f)
-                                                                       (apply 
(lambda (#{a\ 9830}#
-                                                                               
        #{b\ 9831}#)
-                                                                               
 (#{rest\ 9703}#
-                                                                               
   #{b\ 9831}#
-                                                                               
   #{req\ 9734}#
-                                                                               
   #{opt\ 9735}#
+                                                                       (apply 
(lambda (#{a\ 976}#
+                                                                               
        #{b\ 977}#)
+                                                                               
 (#{rest\ 849}#
+                                                                               
   #{b\ 977}#
+                                                                               
   #{req\ 880}#
+                                                                               
   #{opt\ 881}#
                                                                                
   (cons #f
                                                                                
         (reverse
-                                                                               
           #{rkey\ 9736}#))))
-                                                                              
#{tmp\ 9823}#)
-                                                                       
((lambda (#{tmp\ 9832}#)
-                                                                          (if 
(if #{tmp\ 9832}#
-                                                                               
 (apply (lambda (#{r\ 9834}#)
-                                                                               
          (#{id?\ 9076}#
-                                                                               
            #{r\ 9834}#))
-                                                                               
        #{tmp\ 9832}#)
+                                                                               
           #{rkey\ 882}#))))
+                                                                              
#{tmp\ 969}#)
+                                                                       
((lambda (#{tmp\ 978}#)
+                                                                          (if 
(if #{tmp\ 978}#
+                                                                               
 (apply (lambda (#{r\ 980}#)
+                                                                               
          (#{id?\ 222}#
+                                                                               
            #{r\ 980}#))
+                                                                               
        #{tmp\ 978}#)
                                                                                
 #f)
-                                                                            
(apply (lambda (#{r\ 9836}#)
-                                                                               
      (#{rest\ 9703}#
-                                                                               
        #{r\ 9836}#
-                                                                               
        #{req\ 9734}#
-                                                                               
        #{opt\ 9735}#
+                                                                            
(apply (lambda (#{r\ 982}#)
+                                                                               
      (#{rest\ 849}#
+                                                                               
        #{r\ 982}#
+                                                                               
        #{req\ 880}#
+                                                                               
        #{opt\ 881}#
                                                                                
        (cons #f
                                                                                
              (reverse
-                                                                               
                #{rkey\ 9736}#))))
-                                                                               
    #{tmp\ 9832}#)
-                                                                            
((lambda (#{else\ 9838}#)
+                                                                               
                #{rkey\ 882}#))))
+                                                                               
    #{tmp\ 978}#)
+                                                                            
((lambda (#{else\ 984}#)
                                                                                
(syntax-violation
                                                                                
  'lambda*
                                                                                
  "invalid keyword argument list"
-                                                                               
  #{orig-args\ 9694}#
-                                                                               
  #{args\ 9733}#))
-                                                                             
#{tmp\ 9741}#)))
-                                                                        (list 
#{tmp\ 9741}#))))
+                                                                               
  #{orig-args\ 840}#
+                                                                               
  #{args\ 879}#))
+                                                                             
#{tmp\ 887}#)))
+                                                                        (list 
#{tmp\ 887}#))))
                                                                    
($sc-dispatch
-                                                                     #{tmp\ 
9741}#
+                                                                     #{tmp\ 
887}#
                                                                      '(any 
any)))))
                                                               ($sc-dispatch
-                                                                #{tmp\ 9741}#
+                                                                #{tmp\ 887}#
                                                                 '(any .
                                                                       any)))))
                                                          ($sc-dispatch
-                                                           #{tmp\ 9741}#
+                                                           #{tmp\ 887}#
                                                            '(any any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 9741}#
+                                                      #{tmp\ 887}#
                                                       '(any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 9741}#
+                                                 #{tmp\ 887}#
                                                  '((any any any) . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 9741}#
+                                            #{tmp\ 887}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 9741}#
+                                       #{tmp\ 887}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 9741}# (quote ()))))
-                             #{args\ 9733}#)))
-                        (#{opt\ 9699}#
-                          (lambda (#{args\ 9839}# #{req\ 9840}# #{ropt\ 9841}#)
-                            ((lambda (#{tmp\ 9845}#)
-                               ((lambda (#{tmp\ 9846}#)
-                                  (if #{tmp\ 9846}#
+                                ($sc-dispatch #{tmp\ 887}# (quote ()))))
+                             #{args\ 879}#)))
+                        (#{opt\ 845}#
+                          (lambda (#{args\ 985}# #{req\ 986}# #{ropt\ 987}#)
+                            ((lambda (#{tmp\ 991}#)
+                               ((lambda (#{tmp\ 992}#)
+                                  (if #{tmp\ 992}#
                                     (apply (lambda ()
-                                             (#{check\ 9705}#
-                                               #{req\ 9840}#
-                                               (reverse #{ropt\ 9841}#)
+                                             (#{check\ 851}#
+                                               #{req\ 986}#
+                                               (reverse #{ropt\ 987}#)
                                                #f
                                                '()))
-                                           #{tmp\ 9846}#)
-                                    ((lambda (#{tmp\ 9847}#)
-                                       (if (if #{tmp\ 9847}#
-                                             (apply (lambda (#{a\ 9850}#
-                                                             #{b\ 9851}#)
-                                                      (#{id?\ 9076}#
-                                                        #{a\ 9850}#))
-                                                    #{tmp\ 9847}#)
+                                           #{tmp\ 992}#)
+                                    ((lambda (#{tmp\ 993}#)
+                                       (if (if #{tmp\ 993}#
+                                             (apply (lambda (#{a\ 996}#
+                                                             #{b\ 997}#)
+                                                      (#{id?\ 222}#
+                                                        #{a\ 996}#))
+                                                    #{tmp\ 993}#)
                                              #f)
-                                         (apply (lambda (#{a\ 9854}#
-                                                         #{b\ 9855}#)
-                                                  (#{opt\ 9699}#
-                                                    #{b\ 9855}#
-                                                    #{req\ 9840}#
-                                                    (cons (cons #{a\ 9854}#
+                                         (apply (lambda (#{a\ 1000}#
+                                                         #{b\ 1001}#)
+                                                  (#{opt\ 845}#
+                                                    #{b\ 1001}#
+                                                    #{req\ 986}#
+                                                    (cons (cons #{a\ 1000}#
                                                                 
'(#(syntax-object
                                                                     #f
                                                                     ((top)
@@ -1263,8 +1257,8 @@
                                                                        #(a b)
                                                                        #((top)
                                                                          (top))
-                                                                       
#("i9852"
-                                                                         
"i9853"))
+                                                                       #("i998"
+                                                                         
"i999"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
@@ -1276,9 +1270,9 @@
                                                                        #((top)
                                                                          (top)
                                                                          (top))
-                                                                       
#("i9842"
-                                                                         
"i9843"
-                                                                         
"i9844"))
+                                                                       #("i988"
+                                                                         "i989"
+                                                                         
"i990"))
                                                                      #(ribcage
                                                                        (check 
rest
                                                                               
key
@@ -1289,15 +1283,15 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i9704"
-                                                                        "i9702"
-                                                                        "i9700"
-                                                                        "i9698"
-                                                                        
"i9696"))
+                                                                       ("i850"
+                                                                        "i848"
+                                                                        "i846"
+                                                                        "i844"
+                                                                        
"i842"))
                                                                      #(ribcage
                                                                        
#(orig-args)
                                                                        #((top))
-                                                                       
#("i9695"))
+                                                                       
#("i841"))
                                                                      #(ribcage
                                                                        
(lambda-var-list
                                                                          
gen-var
@@ -1535,463 +1529,463 @@
                                                                         (top)
                                                                         (top)
                                                                         (top))
-                                                                       ("i9190"
-                                                                        "i9188"
-                                                                        "i9186"
-                                                                        "i9184"
-                                                                        "i9182"
-                                                                        "i9180"
-                                                                        "i9178"
-                                                                        "i9176"
-                                                                        "i9174"
-                                                                        "i9172"
-                                                                        "i9170"
-                                                                        "i9168"
-                                                                        "i9166"
-                                                                        "i9164"
-                                                                        "i9162"
-                                                                        "i9160"
-                                                                        "i9158"
-                                                                        "i9156"
-                                                                        "i9154"
-                                                                        "i9152"
-                                                                        "i9150"
-                                                                        "i9148"
-                                                                        "i9146"
-                                                                        "i9144"
-                                                                        "i9142"
-                                                                        "i9140"
-                                                                        "i9138"
-                                                                        "i9136"
-                                                                        "i9134"
-                                                                        "i9132"
-                                                                        "i9130"
-                                                                        "i9128"
-                                                                        "i9126"
-                                                                        "i9124"
-                                                                        "i9122"
-                                                                        "i9120"
-                                                                        "i9119"
-                                                                        "i9118"
-                                                                        "i9116"
-                                                                        "i9115"
-                                                                        "i9114"
-                                                                        "i9113"
-                                                                        "i9112"
-                                                                        "i9110"
-                                                                        "i9108"
-                                                                        "i9106"
-                                                                        "i9104"
-                                                                        "i9102"
-                                                                        "i9100"
-                                                                        "i9098"
-                                                                        "i9096"
-                                                                        "i9093"
-                                                                        "i9091"
-                                                                        "i9090"
-                                                                        "i9089"
-                                                                        "i9088"
-                                                                        "i9087"
-                                                                        "i9086"
-                                                                        "i9084"
-                                                                        "i9082"
-                                                                        "i9080"
-                                                                        "i9078"
-                                                                        "i9077"
-                                                                        "i9075"
-                                                                        "i9073"
-                                                                        "i9071"
-                                                                        "i9069"
-                                                                        "i9067"
-                                                                        "i9065"
-                                                                        "i9063"
-                                                                        "i9062"
-                                                                        "i9060"
-                                                                        "i9058"
-                                                                        "i9057"
-                                                                        "i9056"
-                                                                        "i9054"
-                                                                        "i9053"
-                                                                        "i9051"
-                                                                        "i9049"
-                                                                        "i9047"
-                                                                        "i9045"
-                                                                        "i9043"
-                                                                        "i9041"
-                                                                        "i9039"
-                                                                        "i9037"
-                                                                        "i9035"
-                                                                        "i9033"
-                                                                        "i9031"
-                                                                        "i9029"
-                                                                        "i9027"
-                                                                        "i9025"
-                                                                        "i9023"
-                                                                        "i9021"
-                                                                        "i9019"
-                                                                        "i9017"
-                                                                        "i9015"
-                                                                        "i9013"
-                                                                        "i9011"
-                                                                        "i9009"
-                                                                        "i9007"
-                                                                        "i9005"
-                                                                        "i9003"
-                                                                        "i9001"
-                                                                        "i8999"
-                                                                        "i8997"
-                                                                        "i8995"
-                                                                        "i8993"
-                                                                        "i8991"
-                                                                        "i8989"
-                                                                        "i8988"
-                                                                        "i8986"
-                                                                        "i8984"
-                                                                        "i8982"
-                                                                        "i8980"
-                                                                        "i8978"
-                                                                        "i8976"
-                                                                        "i8974"
-                                                                        
"i8972"))
+                                                                       ("i336"
+                                                                        "i334"
+                                                                        "i332"
+                                                                        "i330"
+                                                                        "i328"
+                                                                        "i326"
+                                                                        "i324"
+                                                                        "i322"
+                                                                        "i320"
+                                                                        "i318"
+                                                                        "i316"
+                                                                        "i314"
+                                                                        "i312"
+                                                                        "i310"
+                                                                        "i308"
+                                                                        "i306"
+                                                                        "i304"
+                                                                        "i302"
+                                                                        "i300"
+                                                                        "i298"
+                                                                        "i296"
+                                                                        "i294"
+                                                                        "i292"
+                                                                        "i290"
+                                                                        "i288"
+                                                                        "i286"
+                                                                        "i284"
+                                                                        "i282"
+                                                                        "i280"
+                                                                        "i278"
+                                                                        "i276"
+                                                                        "i274"
+                                                                        "i272"
+                                                                        "i270"
+                                                                        "i268"
+                                                                        "i266"
+                                                                        "i265"
+                                                                        "i264"
+                                                                        "i262"
+                                                                        "i261"
+                                                                        "i260"
+                                                                        "i259"
+                                                                        "i258"
+                                                                        "i256"
+                                                                        "i254"
+                                                                        "i252"
+                                                                        "i250"
+                                                                        "i248"
+                                                                        "i246"
+                                                                        "i244"
+                                                                        "i242"
+                                                                        "i239"
+                                                                        "i237"
+                                                                        "i236"
+                                                                        "i235"
+                                                                        "i234"
+                                                                        "i233"
+                                                                        "i232"
+                                                                        "i230"
+                                                                        "i228"
+                                                                        "i226"
+                                                                        "i224"
+                                                                        "i223"
+                                                                        "i221"
+                                                                        "i219"
+                                                                        "i217"
+                                                                        "i215"
+                                                                        "i213"
+                                                                        "i211"
+                                                                        "i209"
+                                                                        "i208"
+                                                                        "i206"
+                                                                        "i204"
+                                                                        "i203"
+                                                                        "i202"
+                                                                        "i200"
+                                                                        "i199"
+                                                                        "i197"
+                                                                        "i195"
+                                                                        "i193"
+                                                                        "i191"
+                                                                        "i189"
+                                                                        "i187"
+                                                                        "i185"
+                                                                        "i183"
+                                                                        "i181"
+                                                                        "i179"
+                                                                        "i177"
+                                                                        "i175"
+                                                                        "i173"
+                                                                        "i171"
+                                                                        "i169"
+                                                                        "i167"
+                                                                        "i165"
+                                                                        "i163"
+                                                                        "i161"
+                                                                        "i159"
+                                                                        "i157"
+                                                                        "i155"
+                                                                        "i153"
+                                                                        "i151"
+                                                                        "i149"
+                                                                        "i147"
+                                                                        "i145"
+                                                                        "i143"
+                                                                        "i141"
+                                                                        "i139"
+                                                                        "i137"
+                                                                        "i135"
+                                                                        "i134"
+                                                                        "i132"
+                                                                        "i130"
+                                                                        "i128"
+                                                                        "i126"
+                                                                        "i124"
+                                                                        "i122"
+                                                                        "i120"
+                                                                        
"i118"))
                                                                      #(ribcage
                                                                        
(define-structure
                                                                          
and-map*)
                                                                        ((top)
                                                                         (top))
-                                                                       ("i8875"
-                                                                        
"i8873")))
+                                                                       ("i21"
+                                                                        
"i19")))
                                                                     (hygiene
                                                                       guile))))
-                                                          #{ropt\ 9841}#)))
-                                                #{tmp\ 9847}#)
-                                         ((lambda (#{tmp\ 9856}#)
-                                            (if (if #{tmp\ 9856}#
-                                                  (apply (lambda (#{a\ 9860}#
-                                                                  #{init\ 
9861}#
-                                                                  #{b\ 9862}#)
-                                                           (#{id?\ 9076}#
-                                                             #{a\ 9860}#))
-                                                         #{tmp\ 9856}#)
+                                                          #{ropt\ 987}#)))
+                                                #{tmp\ 993}#)
+                                         ((lambda (#{tmp\ 1002}#)
+                                            (if (if #{tmp\ 1002}#
+                                                  (apply (lambda (#{a\ 1006}#
+                                                                  #{init\ 
1007}#
+                                                                  #{b\ 1008}#)
+                                                           (#{id?\ 222}#
+                                                             #{a\ 1006}#))
+                                                         #{tmp\ 1002}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 9866}#
-                                                              #{init\ 9867}#
-                                                              #{b\ 9868}#)
-                                                       (#{opt\ 9699}#
-                                                         #{b\ 9868}#
-                                                         #{req\ 9840}#
-                                                         (cons (list #{a\ 
9866}#
-                                                                     #{init\ 
9867}#)
-                                                               #{ropt\ 
9841}#)))
-                                                     #{tmp\ 9856}#)
-                                              ((lambda (#{tmp\ 9869}#)
-                                                 (if (if #{tmp\ 9869}#
-                                                       (apply (lambda (#{a\ 
9872}#
-                                                                       #{b\ 
9873}#)
+                                              (apply (lambda (#{a\ 1012}#
+                                                              #{init\ 1013}#
+                                                              #{b\ 1014}#)
+                                                       (#{opt\ 845}#
+                                                         #{b\ 1014}#
+                                                         #{req\ 986}#
+                                                         (cons (list #{a\ 
1012}#
+                                                                     #{init\ 
1013}#)
+                                                               #{ropt\ 987}#)))
+                                                     #{tmp\ 1002}#)
+                                              ((lambda (#{tmp\ 1015}#)
+                                                 (if (if #{tmp\ 1015}#
+                                                       (apply (lambda (#{a\ 
1018}#
+                                                                       #{b\ 
1019}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
9872}#)
+                                                                       #{a\ 
1018}#)
                                                                      #:key))
-                                                              #{tmp\ 9869}#)
+                                                              #{tmp\ 1015}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 9876}#
-                                                                   #{b\ 9877}#)
-                                                            (#{key\ 9701}#
-                                                              #{b\ 9877}#
-                                                              #{req\ 9840}#
+                                                   (apply (lambda (#{a\ 1022}#
+                                                                   #{b\ 1023}#)
+                                                            (#{key\ 847}#
+                                                              #{b\ 1023}#
+                                                              #{req\ 986}#
                                                               (reverse
-                                                                #{ropt\ 9841}#)
+                                                                #{ropt\ 987}#)
                                                               '()))
-                                                          #{tmp\ 9869}#)
-                                                   ((lambda (#{tmp\ 9878}#)
-                                                      (if (if #{tmp\ 9878}#
-                                                            (apply (lambda 
(#{a\ 9881}#
-                                                                            
#{b\ 9882}#)
+                                                          #{tmp\ 1015}#)
+                                                   ((lambda (#{tmp\ 1024}#)
+                                                      (if (if #{tmp\ 1024}#
+                                                            (apply (lambda 
(#{a\ 1027}#
+                                                                            
#{b\ 1028}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 9881}#)
+                                                                            
#{a\ 1027}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
9878}#)
+                                                                   #{tmp\ 
1024}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
9885}#
-                                                                        #{b\ 
9886}#)
-                                                                 (#{rest\ 
9703}#
-                                                                   #{b\ 9886}#
-                                                                   #{req\ 
9840}#
+                                                        (apply (lambda (#{a\ 
1031}#
+                                                                        #{b\ 
1032}#)
+                                                                 (#{rest\ 849}#
+                                                                   #{b\ 1032}#
+                                                                   #{req\ 986}#
                                                                    (reverse
-                                                                     #{ropt\ 
9841}#)
+                                                                     #{ropt\ 
987}#)
                                                                    '()))
-                                                               #{tmp\ 9878}#)
-                                                        ((lambda (#{tmp\ 
9887}#)
-                                                           (if (if #{tmp\ 
9887}#
-                                                                 (apply 
(lambda (#{r\ 9889}#)
-                                                                          
(#{id?\ 9076}#
-                                                                            
#{r\ 9889}#))
-                                                                        #{tmp\ 
9887}#)
+                                                               #{tmp\ 1024}#)
+                                                        ((lambda (#{tmp\ 
1033}#)
+                                                           (if (if #{tmp\ 
1033}#
+                                                                 (apply 
(lambda (#{r\ 1035}#)
+                                                                          
(#{id?\ 222}#
+                                                                            
#{r\ 1035}#))
+                                                                        #{tmp\ 
1033}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 9891}#)
-                                                                      (#{rest\ 
9703}#
-                                                                        #{r\ 
9891}#
-                                                                        #{req\ 
9840}#
+                                                             (apply (lambda 
(#{r\ 1037}#)
+                                                                      (#{rest\ 
849}#
+                                                                        #{r\ 
1037}#
+                                                                        #{req\ 
986}#
                                                                         
(reverse
-                                                                          
#{ropt\ 9841}#)
+                                                                          
#{ropt\ 987}#)
                                                                         '()))
-                                                                    #{tmp\ 
9887}#)
-                                                             ((lambda (#{else\ 
9893}#)
+                                                                    #{tmp\ 
1033}#)
+                                                             ((lambda (#{else\ 
1039}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
optional argument list"
-                                                                  #{orig-args\ 
9694}#
-                                                                  #{args\ 
9839}#))
-                                                              #{tmp\ 9845}#)))
-                                                         (list #{tmp\ 
9845}#))))
+                                                                  #{orig-args\ 
840}#
+                                                                  #{args\ 
985}#))
+                                                              #{tmp\ 991}#)))
+                                                         (list #{tmp\ 991}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 9845}#
+                                                      #{tmp\ 991}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 9845}#
+                                                 #{tmp\ 991}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 9845}#
+                                            #{tmp\ 991}#
                                             '((any any) . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 9845}#
+                                       #{tmp\ 991}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 9845}# (quote ()))))
-                             #{args\ 9839}#)))
-                        (#{req\ 9697}#
-                          (lambda (#{args\ 9894}# #{rreq\ 9895}#)
-                            ((lambda (#{tmp\ 9898}#)
-                               ((lambda (#{tmp\ 9899}#)
-                                  (if #{tmp\ 9899}#
+                                ($sc-dispatch #{tmp\ 991}# (quote ()))))
+                             #{args\ 985}#)))
+                        (#{req\ 843}#
+                          (lambda (#{args\ 1040}# #{rreq\ 1041}#)
+                            ((lambda (#{tmp\ 1044}#)
+                               ((lambda (#{tmp\ 1045}#)
+                                  (if #{tmp\ 1045}#
                                     (apply (lambda ()
-                                             (#{check\ 9705}#
-                                               (reverse #{rreq\ 9895}#)
+                                             (#{check\ 851}#
+                                               (reverse #{rreq\ 1041}#)
                                                '()
                                                #f
                                                '()))
-                                           #{tmp\ 9899}#)
-                                    ((lambda (#{tmp\ 9900}#)
-                                       (if (if #{tmp\ 9900}#
-                                             (apply (lambda (#{a\ 9903}#
-                                                             #{b\ 9904}#)
-                                                      (#{id?\ 9076}#
-                                                        #{a\ 9903}#))
-                                                    #{tmp\ 9900}#)
+                                           #{tmp\ 1045}#)
+                                    ((lambda (#{tmp\ 1046}#)
+                                       (if (if #{tmp\ 1046}#
+                                             (apply (lambda (#{a\ 1049}#
+                                                             #{b\ 1050}#)
+                                                      (#{id?\ 222}#
+                                                        #{a\ 1049}#))
+                                                    #{tmp\ 1046}#)
                                              #f)
-                                         (apply (lambda (#{a\ 9907}#
-                                                         #{b\ 9908}#)
-                                                  (#{req\ 9697}#
-                                                    #{b\ 9908}#
-                                                    (cons #{a\ 9907}#
-                                                          #{rreq\ 9895}#)))
-                                                #{tmp\ 9900}#)
-                                         ((lambda (#{tmp\ 9909}#)
-                                            (if (if #{tmp\ 9909}#
-                                                  (apply (lambda (#{a\ 9912}#
-                                                                  #{b\ 9913}#)
+                                         (apply (lambda (#{a\ 1053}#
+                                                         #{b\ 1054}#)
+                                                  (#{req\ 843}#
+                                                    #{b\ 1054}#
+                                                    (cons #{a\ 1053}#
+                                                          #{rreq\ 1041}#)))
+                                                #{tmp\ 1046}#)
+                                         ((lambda (#{tmp\ 1055}#)
+                                            (if (if #{tmp\ 1055}#
+                                                  (apply (lambda (#{a\ 1058}#
+                                                                  #{b\ 1059}#)
                                                            (eq? (syntax->datum
-                                                                  #{a\ 9912}#)
+                                                                  #{a\ 1058}#)
                                                                 #:optional))
-                                                         #{tmp\ 9909}#)
+                                                         #{tmp\ 1055}#)
                                                   #f)
-                                              (apply (lambda (#{a\ 9916}#
-                                                              #{b\ 9917}#)
-                                                       (#{opt\ 9699}#
-                                                         #{b\ 9917}#
+                                              (apply (lambda (#{a\ 1062}#
+                                                              #{b\ 1063}#)
+                                                       (#{opt\ 845}#
+                                                         #{b\ 1063}#
                                                          (reverse
-                                                           #{rreq\ 9895}#)
+                                                           #{rreq\ 1041}#)
                                                          '()))
-                                                     #{tmp\ 9909}#)
-                                              ((lambda (#{tmp\ 9918}#)
-                                                 (if (if #{tmp\ 9918}#
-                                                       (apply (lambda (#{a\ 
9921}#
-                                                                       #{b\ 
9922}#)
+                                                     #{tmp\ 1055}#)
+                                              ((lambda (#{tmp\ 1064}#)
+                                                 (if (if #{tmp\ 1064}#
+                                                       (apply (lambda (#{a\ 
1067}#
+                                                                       #{b\ 
1068}#)
                                                                 (eq? 
(syntax->datum
-                                                                       #{a\ 
9921}#)
+                                                                       #{a\ 
1067}#)
                                                                      #:key))
-                                                              #{tmp\ 9918}#)
+                                                              #{tmp\ 1064}#)
                                                        #f)
-                                                   (apply (lambda (#{a\ 9925}#
-                                                                   #{b\ 9926}#)
-                                                            (#{key\ 9701}#
-                                                              #{b\ 9926}#
+                                                   (apply (lambda (#{a\ 1071}#
+                                                                   #{b\ 1072}#)
+                                                            (#{key\ 847}#
+                                                              #{b\ 1072}#
                                                               (reverse
-                                                                #{rreq\ 9895}#)
+                                                                #{rreq\ 1041}#)
                                                               '()
                                                               '()))
-                                                          #{tmp\ 9918}#)
-                                                   ((lambda (#{tmp\ 9927}#)
-                                                      (if (if #{tmp\ 9927}#
-                                                            (apply (lambda 
(#{a\ 9930}#
-                                                                            
#{b\ 9931}#)
+                                                          #{tmp\ 1064}#)
+                                                   ((lambda (#{tmp\ 1073}#)
+                                                      (if (if #{tmp\ 1073}#
+                                                            (apply (lambda 
(#{a\ 1076}#
+                                                                            
#{b\ 1077}#)
                                                                      (eq? 
(syntax->datum
-                                                                            
#{a\ 9930}#)
+                                                                            
#{a\ 1076}#)
                                                                           
#:rest))
-                                                                   #{tmp\ 
9927}#)
+                                                                   #{tmp\ 
1073}#)
                                                             #f)
-                                                        (apply (lambda (#{a\ 
9934}#
-                                                                        #{b\ 
9935}#)
-                                                                 (#{rest\ 
9703}#
-                                                                   #{b\ 9935}#
+                                                        (apply (lambda (#{a\ 
1080}#
+                                                                        #{b\ 
1081}#)
+                                                                 (#{rest\ 849}#
+                                                                   #{b\ 1081}#
                                                                    (reverse
-                                                                     #{rreq\ 
9895}#)
+                                                                     #{rreq\ 
1041}#)
                                                                    '()
                                                                    '()))
-                                                               #{tmp\ 9927}#)
-                                                        ((lambda (#{tmp\ 
9936}#)
-                                                           (if (if #{tmp\ 
9936}#
-                                                                 (apply 
(lambda (#{r\ 9938}#)
-                                                                          
(#{id?\ 9076}#
-                                                                            
#{r\ 9938}#))
-                                                                        #{tmp\ 
9936}#)
+                                                               #{tmp\ 1073}#)
+                                                        ((lambda (#{tmp\ 
1082}#)
+                                                           (if (if #{tmp\ 
1082}#
+                                                                 (apply 
(lambda (#{r\ 1084}#)
+                                                                          
(#{id?\ 222}#
+                                                                            
#{r\ 1084}#))
+                                                                        #{tmp\ 
1082}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{r\ 9940}#)
-                                                                      (#{rest\ 
9703}#
-                                                                        #{r\ 
9940}#
+                                                             (apply (lambda 
(#{r\ 1086}#)
+                                                                      (#{rest\ 
849}#
+                                                                        #{r\ 
1086}#
                                                                         
(reverse
-                                                                          
#{rreq\ 9895}#)
+                                                                          
#{rreq\ 1041}#)
                                                                         '()
                                                                         '()))
-                                                                    #{tmp\ 
9936}#)
-                                                             ((lambda (#{else\ 
9942}#)
+                                                                    #{tmp\ 
1082}#)
+                                                             ((lambda (#{else\ 
1088}#)
                                                                 
(syntax-violation
                                                                   'lambda*
                                                                   "invalid 
argument list"
-                                                                  #{orig-args\ 
9694}#
-                                                                  #{args\ 
9894}#))
-                                                              #{tmp\ 9898}#)))
-                                                         (list #{tmp\ 
9898}#))))
+                                                                  #{orig-args\ 
840}#
+                                                                  #{args\ 
1040}#))
+                                                              #{tmp\ 1044}#)))
+                                                         (list #{tmp\ 
1044}#))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 9898}#
+                                                      #{tmp\ 1044}#
                                                       '(any any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 9898}#
+                                                 #{tmp\ 1044}#
                                                  '(any . any)))))
                                           ($sc-dispatch
-                                            #{tmp\ 9898}#
+                                            #{tmp\ 1044}#
                                             '(any . any)))))
                                      ($sc-dispatch
-                                       #{tmp\ 9898}#
+                                       #{tmp\ 1044}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 9898}# (quote ()))))
-                             #{args\ 9894}#))))
-                 (#{req\ 9697}# #{orig-args\ 9694}# (quote ())))))
-           (#{chi-simple-lambda\ 9181}#
-             (lambda (#{e\ 9943}#
-                      #{r\ 9944}#
-                      #{w\ 9945}#
-                      #{s\ 9946}#
-                      #{mod\ 9947}#
-                      #{req\ 9948}#
-                      #{rest\ 9949}#
-                      #{meta\ 9950}#
-                      #{body\ 9951}#)
-               (let ((#{ids\ 9963}#
-                       (if #{rest\ 9949}#
-                         (append #{req\ 9948}# (list #{rest\ 9949}#))
-                         #{req\ 9948}#)))
-                 (let ((#{vars\ 9965}#
-                         (map #{gen-var\ 9189}# #{ids\ 9963}#)))
-                   (let ((#{labels\ 9967}#
-                           (#{gen-labels\ 9094}# #{ids\ 9963}#)))
-                     (#{build-simple-lambda\ 9018}#
-                       #{s\ 9946}#
-                       (map syntax->datum #{req\ 9948}#)
-                       (if #{rest\ 9949}#
-                         (syntax->datum #{rest\ 9949}#)
+                                ($sc-dispatch #{tmp\ 1044}# (quote ()))))
+                             #{args\ 1040}#))))
+                 (#{req\ 843}# #{orig-args\ 840}# (quote ())))))
+           (#{chi-simple-lambda\ 327}#
+             (lambda (#{e\ 1089}#
+                      #{r\ 1090}#
+                      #{w\ 1091}#
+                      #{s\ 1092}#
+                      #{mod\ 1093}#
+                      #{req\ 1094}#
+                      #{rest\ 1095}#
+                      #{meta\ 1096}#
+                      #{body\ 1097}#)
+               (let ((#{ids\ 1109}#
+                       (if #{rest\ 1095}#
+                         (append #{req\ 1094}# (list #{rest\ 1095}#))
+                         #{req\ 1094}#)))
+                 (let ((#{vars\ 1111}#
+                         (map #{gen-var\ 335}# #{ids\ 1109}#)))
+                   (let ((#{labels\ 1113}#
+                           (#{gen-labels\ 240}# #{ids\ 1109}#)))
+                     (#{build-simple-lambda\ 164}#
+                       #{s\ 1092}#
+                       (map syntax->datum #{req\ 1094}#)
+                       (if #{rest\ 1095}#
+                         (syntax->datum #{rest\ 1095}#)
                          #f)
-                       #{vars\ 9965}#
-                       #{meta\ 9950}#
-                       (#{chi-body\ 9169}#
-                         #{body\ 9951}#
-                         (#{source-wrap\ 9147}#
-                           #{e\ 9943}#
-                           #{w\ 9945}#
-                           #{s\ 9946}#
-                           #{mod\ 9947}#)
-                         (#{extend-var-env\ 9066}#
-                           #{labels\ 9967}#
-                           #{vars\ 9965}#
-                           #{r\ 9944}#)
-                         (#{make-binding-wrap\ 9123}#
-                           #{ids\ 9963}#
-                           #{labels\ 9967}#
-                           #{w\ 9945}#)
-                         #{mod\ 9947}#)))))))
-           (#{lambda-formals\ 9179}#
-             (lambda (#{orig-args\ 9970}#)
-               (letrec ((#{check\ 9975}#
-                          (lambda (#{req\ 9976}# #{rest\ 9977}#)
-                            (if (#{distinct-bound-ids?\ 9141}#
-                                  (if #{rest\ 9977}#
-                                    (cons #{rest\ 9977}# #{req\ 9976}#)
-                                    #{req\ 9976}#))
-                              (values #{req\ 9976}# #f #{rest\ 9977}# #f)
+                       #{vars\ 1111}#
+                       #{meta\ 1096}#
+                       (#{chi-body\ 315}#
+                         #{body\ 1097}#
+                         (#{source-wrap\ 293}#
+                           #{e\ 1089}#
+                           #{w\ 1091}#
+                           #{s\ 1092}#
+                           #{mod\ 1093}#)
+                         (#{extend-var-env\ 212}#
+                           #{labels\ 1113}#
+                           #{vars\ 1111}#
+                           #{r\ 1090}#)
+                         (#{make-binding-wrap\ 269}#
+                           #{ids\ 1109}#
+                           #{labels\ 1113}#
+                           #{w\ 1091}#)
+                         #{mod\ 1093}#)))))))
+           (#{lambda-formals\ 325}#
+             (lambda (#{orig-args\ 1116}#)
+               (letrec ((#{check\ 1121}#
+                          (lambda (#{req\ 1122}# #{rest\ 1123}#)
+                            (if (#{distinct-bound-ids?\ 287}#
+                                  (if #{rest\ 1123}#
+                                    (cons #{rest\ 1123}# #{req\ 1122}#)
+                                    #{req\ 1122}#))
+                              (values #{req\ 1122}# #f #{rest\ 1123}# #f)
                               (syntax-violation
                                 'lambda
                                 "duplicate identifier in argument list"
-                                #{orig-args\ 9970}#))))
-                        (#{req\ 9973}#
-                          (lambda (#{args\ 9983}# #{rreq\ 9984}#)
-                            ((lambda (#{tmp\ 9987}#)
-                               ((lambda (#{tmp\ 9988}#)
-                                  (if #{tmp\ 9988}#
+                                #{orig-args\ 1116}#))))
+                        (#{req\ 1119}#
+                          (lambda (#{args\ 1129}# #{rreq\ 1130}#)
+                            ((lambda (#{tmp\ 1133}#)
+                               ((lambda (#{tmp\ 1134}#)
+                                  (if #{tmp\ 1134}#
                                     (apply (lambda ()
-                                             (#{check\ 9975}#
-                                               (reverse #{rreq\ 9984}#)
+                                             (#{check\ 1121}#
+                                               (reverse #{rreq\ 1130}#)
                                                #f))
-                                           #{tmp\ 9988}#)
-                                    ((lambda (#{tmp\ 9989}#)
-                                       (if (if #{tmp\ 9989}#
-                                             (apply (lambda (#{a\ 9992}#
-                                                             #{b\ 9993}#)
-                                                      (#{id?\ 9076}#
-                                                        #{a\ 9992}#))
-                                                    #{tmp\ 9989}#)
+                                           #{tmp\ 1134}#)
+                                    ((lambda (#{tmp\ 1135}#)
+                                       (if (if #{tmp\ 1135}#
+                                             (apply (lambda (#{a\ 1138}#
+                                                             #{b\ 1139}#)
+                                                      (#{id?\ 222}#
+                                                        #{a\ 1138}#))
+                                                    #{tmp\ 1135}#)
                                              #f)
-                                         (apply (lambda (#{a\ 9996}#
-                                                         #{b\ 9997}#)
-                                                  (#{req\ 9973}#
-                                                    #{b\ 9997}#
-                                                    (cons #{a\ 9996}#
-                                                          #{rreq\ 9984}#)))
-                                                #{tmp\ 9989}#)
-                                         ((lambda (#{tmp\ 9998}#)
-                                            (if (if #{tmp\ 9998}#
-                                                  (apply (lambda (#{r\ 10000}#)
-                                                           (#{id?\ 9076}#
-                                                             #{r\ 10000}#))
-                                                         #{tmp\ 9998}#)
+                                         (apply (lambda (#{a\ 1142}#
+                                                         #{b\ 1143}#)
+                                                  (#{req\ 1119}#
+                                                    #{b\ 1143}#
+                                                    (cons #{a\ 1142}#
+                                                          #{rreq\ 1130}#)))
+                                                #{tmp\ 1135}#)
+                                         ((lambda (#{tmp\ 1144}#)
+                                            (if (if #{tmp\ 1144}#
+                                                  (apply (lambda (#{r\ 1146}#)
+                                                           (#{id?\ 222}#
+                                                             #{r\ 1146}#))
+                                                         #{tmp\ 1144}#)
                                                   #f)
-                                              (apply (lambda (#{r\ 10002}#)
-                                                       (#{check\ 9975}#
+                                              (apply (lambda (#{r\ 1148}#)
+                                                       (#{check\ 1121}#
                                                          (reverse
-                                                           #{rreq\ 9984}#)
-                                                         #{r\ 10002}#))
-                                                     #{tmp\ 9998}#)
-                                              ((lambda (#{else\ 10004}#)
+                                                           #{rreq\ 1130}#)
+                                                         #{r\ 1148}#))
+                                                     #{tmp\ 1144}#)
+                                              ((lambda (#{else\ 1150}#)
                                                  (syntax-violation
                                                    'lambda
                                                    "invalid argument list"
-                                                   #{orig-args\ 9970}#
-                                                   #{args\ 9983}#))
-                                               #{tmp\ 9987}#)))
-                                          (list #{tmp\ 9987}#))))
+                                                   #{orig-args\ 1116}#
+                                                   #{args\ 1129}#))
+                                               #{tmp\ 1133}#)))
+                                          (list #{tmp\ 1133}#))))
                                      ($sc-dispatch
-                                       #{tmp\ 9987}#
+                                       #{tmp\ 1133}#
                                        '(any . any)))))
-                                ($sc-dispatch #{tmp\ 9987}# (quote ()))))
-                             #{args\ 9983}#))))
-                 (#{req\ 9973}# #{orig-args\ 9970}# (quote ())))))
-           (#{ellipsis?\ 9177}#
-             (lambda (#{x\ 10005}#)
-               (if (#{nonsymbol-id?\ 9074}# #{x\ 10005}#)
-                 (#{free-id=?\ 9135}#
-                   #{x\ 10005}#
+                                ($sc-dispatch #{tmp\ 1133}# (quote ()))))
+                             #{args\ 1129}#))))
+                 (#{req\ 1119}# #{orig-args\ 1116}# (quote ())))))
+           (#{ellipsis?\ 323}#
+             (lambda (#{x\ 1151}#)
+               (if (#{nonsymbol-id?\ 220}# #{x\ 1151}#)
+                 (#{free-id=?\ 281}#
+                   #{x\ 1151}#
                    '#(syntax-object
                       ...
                       ((top)
                        #(ribcage () () ())
                        #(ribcage () () ())
-                       #(ribcage #(x) #((top)) #("i10006"))
+                       #(ribcage #(x) #((top)) #("i1152"))
                        #(ribcage
                          (lambda-var-list
                            gen-var
@@ -2229,1373 +2223,1369 @@
                           (top)
                           (top)
                           (top))
-                         ("i9190"
-                          "i9188"
-                          "i9186"
-                          "i9184"
-                          "i9182"
-                          "i9180"
-                          "i9178"
-                          "i9176"
-                          "i9174"
-                          "i9172"
-                          "i9170"
-                          "i9168"
-                          "i9166"
-                          "i9164"
-                          "i9162"
-                          "i9160"
-                          "i9158"
-                          "i9156"
-                          "i9154"
-                          "i9152"
-                          "i9150"
-                          "i9148"
-                          "i9146"
-                          "i9144"
-                          "i9142"
-                          "i9140"
-                          "i9138"
-                          "i9136"
-                          "i9134"
-                          "i9132"
-                          "i9130"
-                          "i9128"
-                          "i9126"
-                          "i9124"
-                          "i9122"
-                          "i9120"
-                          "i9119"
-                          "i9118"
-                          "i9116"
-                          "i9115"
-                          "i9114"
-                          "i9113"
-                          "i9112"
-                          "i9110"
-                          "i9108"
-                          "i9106"
-                          "i9104"
-                          "i9102"
-                          "i9100"
-                          "i9098"
-                          "i9096"
-                          "i9093"
-                          "i9091"
-                          "i9090"
-                          "i9089"
-                          "i9088"
-                          "i9087"
-                          "i9086"
-                          "i9084"
-                          "i9082"
-                          "i9080"
-                          "i9078"
-                          "i9077"
-                          "i9075"
-                          "i9073"
-                          "i9071"
-                          "i9069"
-                          "i9067"
-                          "i9065"
-                          "i9063"
-                          "i9062"
-                          "i9060"
-                          "i9058"
-                          "i9057"
-                          "i9056"
-                          "i9054"
-                          "i9053"
-                          "i9051"
-                          "i9049"
-                          "i9047"
-                          "i9045"
-                          "i9043"
-                          "i9041"
-                          "i9039"
-                          "i9037"
-                          "i9035"
-                          "i9033"
-                          "i9031"
-                          "i9029"
-                          "i9027"
-                          "i9025"
-                          "i9023"
-                          "i9021"
-                          "i9019"
-                          "i9017"
-                          "i9015"
-                          "i9013"
-                          "i9011"
-                          "i9009"
-                          "i9007"
-                          "i9005"
-                          "i9003"
-                          "i9001"
-                          "i8999"
-                          "i8997"
-                          "i8995"
-                          "i8993"
-                          "i8991"
-                          "i8989"
-                          "i8988"
-                          "i8986"
-                          "i8984"
-                          "i8982"
-                          "i8980"
-                          "i8978"
-                          "i8976"
-                          "i8974"
-                          "i8972"))
+                         ("i336"
+                          "i334"
+                          "i332"
+                          "i330"
+                          "i328"
+                          "i326"
+                          "i324"
+                          "i322"
+                          "i320"
+                          "i318"
+                          "i316"
+                          "i314"
+                          "i312"
+                          "i310"
+                          "i308"
+                          "i306"
+                          "i304"
+                          "i302"
+                          "i300"
+                          "i298"
+                          "i296"
+                          "i294"
+                          "i292"
+                          "i290"
+                          "i288"
+                          "i286"
+                          "i284"
+                          "i282"
+                          "i280"
+                          "i278"
+                          "i276"
+                          "i274"
+                          "i272"
+                          "i270"
+                          "i268"
+                          "i266"
+                          "i265"
+                          "i264"
+                          "i262"
+                          "i261"
+                          "i260"
+                          "i259"
+                          "i258"
+                          "i256"
+                          "i254"
+                          "i252"
+                          "i250"
+                          "i248"
+                          "i246"
+                          "i244"
+                          "i242"
+                          "i239"
+                          "i237"
+                          "i236"
+                          "i235"
+                          "i234"
+                          "i233"
+                          "i232"
+                          "i230"
+                          "i228"
+                          "i226"
+                          "i224"
+                          "i223"
+                          "i221"
+                          "i219"
+                          "i217"
+                          "i215"
+                          "i213"
+                          "i211"
+                          "i209"
+                          "i208"
+                          "i206"
+                          "i204"
+                          "i203"
+                          "i202"
+                          "i200"
+                          "i199"
+                          "i197"
+                          "i195"
+                          "i193"
+                          "i191"
+                          "i189"
+                          "i187"
+                          "i185"
+                          "i183"
+                          "i181"
+                          "i179"
+                          "i177"
+                          "i175"
+                          "i173"
+                          "i171"
+                          "i169"
+                          "i167"
+                          "i165"
+                          "i163"
+                          "i161"
+                          "i159"
+                          "i157"
+                          "i155"
+                          "i153"
+                          "i151"
+                          "i149"
+                          "i147"
+                          "i145"
+                          "i143"
+                          "i141"
+                          "i139"
+                          "i137"
+                          "i135"
+                          "i134"
+                          "i132"
+                          "i130"
+                          "i128"
+                          "i126"
+                          "i124"
+                          "i122"
+                          "i120"
+                          "i118"))
                        #(ribcage
                          (define-structure and-map*)
                          ((top) (top))
-                         ("i8875" "i8873")))
+                         ("i21" "i19")))
                       (hygiene guile)))
                  #f)))
-           (#{chi-void\ 9175}#
-             (lambda () (#{build-void\ 8996}# #f)))
-           (#{eval-local-transformer\ 9173}#
-             (lambda (#{expanded\ 10010}# #{mod\ 10011}#)
-               (let ((#{p\ 10015}#
-                       (#{local-eval-hook\ 8987}#
-                         #{expanded\ 10010}#
-                         #{mod\ 10011}#)))
-                 (if (procedure? #{p\ 10015}#)
-                   (cons #{p\ 10015}#
-                         (module-name (current-module)))
+           (#{chi-void\ 321}#
+             (lambda () (#{build-void\ 142}# #f)))
+           (#{eval-local-transformer\ 319}#
+             (lambda (#{expanded\ 1156}# #{mod\ 1157}#)
+               (let ((#{p\ 1161}#
+                       (#{local-eval-hook\ 133}#
+                         #{expanded\ 1156}#
+                         #{mod\ 1157}#)))
+                 (if (procedure? #{p\ 1161}#)
+                   (cons #{p\ 1161}# (module-name (current-module)))
                    (syntax-violation
                      #f
                      "nonprocedure transformer"
-                     #{p\ 10015}#)))))
-           (#{chi-local-syntax\ 9171}#
-             (lambda (#{rec?\ 10016}#
-                      #{e\ 10017}#
-                      #{r\ 10018}#
-                      #{w\ 10019}#
-                      #{s\ 10020}#
-                      #{mod\ 10021}#
-                      #{k\ 10022}#)
-               ((lambda (#{tmp\ 10030}#)
-                  ((lambda (#{tmp\ 10031}#)
-                     (if #{tmp\ 10031}#
-                       (apply (lambda (#{_\ 10037}#
-                                       #{id\ 10038}#
-                                       #{val\ 10039}#
-                                       #{e1\ 10040}#
-                                       #{e2\ 10041}#)
-                                (let ((#{ids\ 10043}# #{id\ 10038}#))
-                                  (if (not (#{valid-bound-ids?\ 9139}#
-                                             #{ids\ 10043}#))
+                     #{p\ 1161}#)))))
+           (#{chi-local-syntax\ 317}#
+             (lambda (#{rec?\ 1162}#
+                      #{e\ 1163}#
+                      #{r\ 1164}#
+                      #{w\ 1165}#
+                      #{s\ 1166}#
+                      #{mod\ 1167}#
+                      #{k\ 1168}#)
+               ((lambda (#{tmp\ 1176}#)
+                  ((lambda (#{tmp\ 1177}#)
+                     (if #{tmp\ 1177}#
+                       (apply (lambda (#{_\ 1183}#
+                                       #{id\ 1184}#
+                                       #{val\ 1185}#
+                                       #{e1\ 1186}#
+                                       #{e2\ 1187}#)
+                                (let ((#{ids\ 1189}# #{id\ 1184}#))
+                                  (if (not (#{valid-bound-ids?\ 285}#
+                                             #{ids\ 1189}#))
                                     (syntax-violation
                                       #f
                                       "duplicate bound keyword"
-                                      #{e\ 10017}#)
-                                    (let ((#{labels\ 10046}#
-                                            (#{gen-labels\ 9094}#
-                                              #{ids\ 10043}#)))
-                                      (let ((#{new-w\ 10048}#
-                                              (#{make-binding-wrap\ 9123}#
-                                                #{ids\ 10043}#
-                                                #{labels\ 10046}#
-                                                #{w\ 10019}#)))
-                                        (#{k\ 10022}#
-                                          (cons #{e1\ 10040}# #{e2\ 10041}#)
-                                          (#{extend-env\ 9064}#
-                                            #{labels\ 10046}#
-                                            (let ((#{w\ 10052}#
-                                                    (if #{rec?\ 10016}#
-                                                      #{new-w\ 10048}#
-                                                      #{w\ 10019}#))
-                                                  (#{trans-r\ 10053}#
-                                                    (#{macros-only-env\ 9068}#
-                                                      #{r\ 10018}#)))
-                                              (map (lambda (#{x\ 10054}#)
+                                      #{e\ 1163}#)
+                                    (let ((#{labels\ 1192}#
+                                            (#{gen-labels\ 240}#
+                                              #{ids\ 1189}#)))
+                                      (let ((#{new-w\ 1194}#
+                                              (#{make-binding-wrap\ 269}#
+                                                #{ids\ 1189}#
+                                                #{labels\ 1192}#
+                                                #{w\ 1165}#)))
+                                        (#{k\ 1168}#
+                                          (cons #{e1\ 1186}# #{e2\ 1187}#)
+                                          (#{extend-env\ 210}#
+                                            #{labels\ 1192}#
+                                            (let ((#{w\ 1198}#
+                                                    (if #{rec?\ 1162}#
+                                                      #{new-w\ 1194}#
+                                                      #{w\ 1165}#))
+                                                  (#{trans-r\ 1199}#
+                                                    (#{macros-only-env\ 214}#
+                                                      #{r\ 1164}#)))
+                                              (map (lambda (#{x\ 1200}#)
                                                      (cons 'macro
-                                                           
(#{eval-local-transformer\ 9173}#
-                                                             (#{chi\ 9161}#
-                                                               #{x\ 10054}#
-                                                               #{trans-r\ 
10053}#
-                                                               #{w\ 10052}#
-                                                               #{mod\ 10021}#)
-                                                             #{mod\ 10021}#)))
-                                                   #{val\ 10039}#))
-                                            #{r\ 10018}#)
-                                          #{new-w\ 10048}#
-                                          #{s\ 10020}#
-                                          #{mod\ 10021}#))))))
-                              #{tmp\ 10031}#)
-                       ((lambda (#{_\ 10059}#)
+                                                           
(#{eval-local-transformer\ 319}#
+                                                             (#{chi\ 307}#
+                                                               #{x\ 1200}#
+                                                               #{trans-r\ 
1199}#
+                                                               #{w\ 1198}#
+                                                               #{mod\ 1167}#)
+                                                             #{mod\ 1167}#)))
+                                                   #{val\ 1185}#))
+                                            #{r\ 1164}#)
+                                          #{new-w\ 1194}#
+                                          #{s\ 1166}#
+                                          #{mod\ 1167}#))))))
+                              #{tmp\ 1177}#)
+                       ((lambda (#{_\ 1205}#)
                           (syntax-violation
                             #f
                             "bad local syntax definition"
-                            (#{source-wrap\ 9147}#
-                              #{e\ 10017}#
-                              #{w\ 10019}#
-                              #{s\ 10020}#
-                              #{mod\ 10021}#)))
-                        #{tmp\ 10030}#)))
+                            (#{source-wrap\ 293}#
+                              #{e\ 1163}#
+                              #{w\ 1165}#
+                              #{s\ 1166}#
+                              #{mod\ 1167}#)))
+                        #{tmp\ 1176}#)))
                    ($sc-dispatch
-                     #{tmp\ 10030}#
+                     #{tmp\ 1176}#
                      '(any #(each (any any)) any . each-any))))
-                #{e\ 10017}#)))
-           (#{chi-body\ 9169}#
-             (lambda (#{body\ 10060}#
-                      #{outer-form\ 10061}#
-                      #{r\ 10062}#
-                      #{w\ 10063}#
-                      #{mod\ 10064}#)
-               (let ((#{r\ 10072}#
+                #{e\ 1163}#)))
+           (#{chi-body\ 315}#
+             (lambda (#{body\ 1206}#
+                      #{outer-form\ 1207}#
+                      #{r\ 1208}#
+                      #{w\ 1209}#
+                      #{mod\ 1210}#)
+               (let ((#{r\ 1218}#
                        (cons '("placeholder" placeholder)
-                             #{r\ 10062}#)))
-                 (let ((#{ribcage\ 10074}#
-                         (#{make-ribcage\ 9097}#
+                             #{r\ 1208}#)))
+                 (let ((#{ribcage\ 1220}#
+                         (#{make-ribcage\ 243}#
                            '()
                            '()
                            '())))
-                   (let ((#{w\ 10077}#
-                           (#{make-wrap\ 9081}#
-                             (#{wrap-marks\ 9083}# #{w\ 10063}#)
-                             (cons #{ribcage\ 10074}#
-                                   (#{wrap-subst\ 9085}# #{w\ 10063}#)))))
-                     (letrec ((#{parse\ 10086}#
-                                (lambda (#{body\ 10087}#
-                                         #{ids\ 10088}#
-                                         #{labels\ 10089}#
-                                         #{var-ids\ 10090}#
-                                         #{vars\ 10091}#
-                                         #{vals\ 10092}#
-                                         #{bindings\ 10093}#)
-                                  (if (null? #{body\ 10087}#)
+                   (let ((#{w\ 1223}#
+                           (#{make-wrap\ 227}#
+                             (#{wrap-marks\ 229}# #{w\ 1209}#)
+                             (cons #{ribcage\ 1220}#
+                                   (#{wrap-subst\ 231}# #{w\ 1209}#)))))
+                     (letrec ((#{parse\ 1232}#
+                                (lambda (#{body\ 1233}#
+                                         #{ids\ 1234}#
+                                         #{labels\ 1235}#
+                                         #{var-ids\ 1236}#
+                                         #{vars\ 1237}#
+                                         #{vals\ 1238}#
+                                         #{bindings\ 1239}#)
+                                  (if (null? #{body\ 1233}#)
                                     (syntax-violation
                                       #f
                                       "no expressions in body"
-                                      #{outer-form\ 10061}#)
-                                    (let ((#{e\ 10098}# (cdar #{body\ 10087}#))
-                                          (#{er\ 10099}#
-                                            (caar #{body\ 10087}#)))
+                                      #{outer-form\ 1207}#)
+                                    (let ((#{e\ 1244}# (cdar #{body\ 1233}#))
+                                          (#{er\ 1245}# (caar #{body\ 1233}#)))
                                       (call-with-values
                                         (lambda ()
-                                          (#{syntax-type\ 9157}#
-                                            #{e\ 10098}#
-                                            #{er\ 10099}#
+                                          (#{syntax-type\ 303}#
+                                            #{e\ 1244}#
+                                            #{er\ 1245}#
                                             '(())
-                                            (#{source-annotation\ 9055}#
-                                              #{er\ 10099}#)
-                                            #{ribcage\ 10074}#
-                                            #{mod\ 10064}#
+                                            (#{source-annotation\ 201}#
+                                              #{er\ 1245}#)
+                                            #{ribcage\ 1220}#
+                                            #{mod\ 1210}#
                                             #f))
-                                        (lambda (#{type\ 10101}#
-                                                 #{value\ 10102}#
-                                                 #{e\ 10103}#
-                                                 #{w\ 10104}#
-                                                 #{s\ 10105}#
-                                                 #{mod\ 10106}#)
-                                          (if (memv #{type\ 10101}#
+                                        (lambda (#{type\ 1247}#
+                                                 #{value\ 1248}#
+                                                 #{e\ 1249}#
+                                                 #{w\ 1250}#
+                                                 #{s\ 1251}#
+                                                 #{mod\ 1252}#)
+                                          (if (memv #{type\ 1247}#
                                                     '(define-form))
-                                            (let ((#{id\ 10116}#
-                                                    (#{wrap\ 9145}#
-                                                      #{value\ 10102}#
-                                                      #{w\ 10104}#
-                                                      #{mod\ 10106}#))
-                                                  (#{label\ 10117}#
-                                                    (#{gen-label\ 9092}#)))
-                                              (let ((#{var\ 10119}#
-                                                      (#{gen-var\ 9189}#
-                                                        #{id\ 10116}#)))
+                                            (let ((#{id\ 1262}#
+                                                    (#{wrap\ 291}#
+                                                      #{value\ 1248}#
+                                                      #{w\ 1250}#
+                                                      #{mod\ 1252}#))
+                                                  (#{label\ 1263}#
+                                                    (#{gen-label\ 238}#)))
+                                              (let ((#{var\ 1265}#
+                                                      (#{gen-var\ 335}#
+                                                        #{id\ 1262}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 9121}#
-                                                    #{ribcage\ 10074}#
-                                                    #{id\ 10116}#
-                                                    #{label\ 10117}#)
-                                                  (#{parse\ 10086}#
-                                                    (cdr #{body\ 10087}#)
-                                                    (cons #{id\ 10116}#
-                                                          #{ids\ 10088}#)
-                                                    (cons #{label\ 10117}#
-                                                          #{labels\ 10089}#)
-                                                    (cons #{id\ 10116}#
-                                                          #{var-ids\ 10090}#)
-                                                    (cons #{var\ 10119}#
-                                                          #{vars\ 10091}#)
-                                                    (cons (cons #{er\ 10099}#
-                                                                (#{wrap\ 9145}#
-                                                                  #{e\ 10103}#
-                                                                  #{w\ 10104}#
-                                                                  #{mod\ 
10106}#))
-                                                          #{vals\ 10092}#)
+                                                  (#{extend-ribcage!\ 267}#
+                                                    #{ribcage\ 1220}#
+                                                    #{id\ 1262}#
+                                                    #{label\ 1263}#)
+                                                  (#{parse\ 1232}#
+                                                    (cdr #{body\ 1233}#)
+                                                    (cons #{id\ 1262}#
+                                                          #{ids\ 1234}#)
+                                                    (cons #{label\ 1263}#
+                                                          #{labels\ 1235}#)
+                                                    (cons #{id\ 1262}#
+                                                          #{var-ids\ 1236}#)
+                                                    (cons #{var\ 1265}#
+                                                          #{vars\ 1237}#)
+                                                    (cons (cons #{er\ 1245}#
+                                                                (#{wrap\ 291}#
+                                                                  #{e\ 1249}#
+                                                                  #{w\ 1250}#
+                                                                  #{mod\ 
1252}#))
+                                                          #{vals\ 1238}#)
                                                     (cons (cons 'lexical
-                                                                #{var\ 10119}#)
-                                                          #{bindings\ 
10093}#)))))
-                                            (if (memv #{type\ 10101}#
+                                                                #{var\ 1265}#)
+                                                          #{bindings\ 
1239}#)))))
+                                            (if (memv #{type\ 1247}#
                                                       '(define-syntax-form))
-                                              (let ((#{id\ 10124}#
-                                                      (#{wrap\ 9145}#
-                                                        #{value\ 10102}#
-                                                        #{w\ 10104}#
-                                                        #{mod\ 10106}#))
-                                                    (#{label\ 10125}#
-                                                      (#{gen-label\ 9092}#)))
+                                              (let ((#{id\ 1270}#
+                                                      (#{wrap\ 291}#
+                                                        #{value\ 1248}#
+                                                        #{w\ 1250}#
+                                                        #{mod\ 1252}#))
+                                                    (#{label\ 1271}#
+                                                      (#{gen-label\ 238}#)))
                                                 (begin
-                                                  (#{extend-ribcage!\ 9121}#
-                                                    #{ribcage\ 10074}#
-                                                    #{id\ 10124}#
-                                                    #{label\ 10125}#)
-                                                  (#{parse\ 10086}#
-                                                    (cdr #{body\ 10087}#)
-                                                    (cons #{id\ 10124}#
-                                                          #{ids\ 10088}#)
-                                                    (cons #{label\ 10125}#
-                                                          #{labels\ 10089}#)
-                                                    #{var-ids\ 10090}#
-                                                    #{vars\ 10091}#
-                                                    #{vals\ 10092}#
+                                                  (#{extend-ribcage!\ 267}#
+                                                    #{ribcage\ 1220}#
+                                                    #{id\ 1270}#
+                                                    #{label\ 1271}#)
+                                                  (#{parse\ 1232}#
+                                                    (cdr #{body\ 1233}#)
+                                                    (cons #{id\ 1270}#
+                                                          #{ids\ 1234}#)
+                                                    (cons #{label\ 1271}#
+                                                          #{labels\ 1235}#)
+                                                    #{var-ids\ 1236}#
+                                                    #{vars\ 1237}#
+                                                    #{vals\ 1238}#
                                                     (cons (cons 'macro
-                                                                (cons #{er\ 
10099}#
-                                                                      (#{wrap\ 
9145}#
-                                                                        #{e\ 
10103}#
-                                                                        #{w\ 
10104}#
-                                                                        #{mod\ 
10106}#)))
-                                                          #{bindings\ 
10093}#))))
-                                              (if (memv #{type\ 10101}#
+                                                                (cons #{er\ 
1245}#
+                                                                      (#{wrap\ 
291}#
+                                                                        #{e\ 
1249}#
+                                                                        #{w\ 
1250}#
+                                                                        #{mod\ 
1252}#)))
+                                                          #{bindings\ 
1239}#))))
+                                              (if (memv #{type\ 1247}#
                                                         '(begin-form))
-                                                ((lambda (#{tmp\ 10128}#)
-                                                   ((lambda (#{tmp\ 10129}#)
-                                                      (if #{tmp\ 10129}#
-                                                        (apply (lambda (#{_\ 
10132}#
-                                                                        #{e1\ 
10133}#)
-                                                                 (#{parse\ 
10086}#
-                                                                   (letrec 
((#{f\ 10136}#
-                                                                              
(lambda (#{forms\ 10137}#)
-                                                                               
 (if (null? #{forms\ 10137}#)
-                                                                               
   (cdr #{body\ 10087}#)
-                                                                               
   (cons (cons #{er\ 10099}#
-                                                                               
               (#{wrap\ 9145}#
-                                                                               
                 (car #{forms\ 10137}#)
-                                                                               
                 #{w\ 10104}#
-                                                                               
                 #{mod\ 10106}#))
-                                                                               
         (#{f\ 10136}#
-                                                                               
           (cdr #{forms\ 10137}#)))))))
-                                                                     (#{f\ 
10136}#
-                                                                       #{e1\ 
10133}#))
-                                                                   #{ids\ 
10088}#
-                                                                   #{labels\ 
10089}#
-                                                                   #{var-ids\ 
10090}#
-                                                                   #{vars\ 
10091}#
-                                                                   #{vals\ 
10092}#
-                                                                   #{bindings\ 
10093}#))
-                                                               #{tmp\ 10129}#)
+                                                ((lambda (#{tmp\ 1274}#)
+                                                   ((lambda (#{tmp\ 1275}#)
+                                                      (if #{tmp\ 1275}#
+                                                        (apply (lambda (#{_\ 
1278}#
+                                                                        #{e1\ 
1279}#)
+                                                                 (#{parse\ 
1232}#
+                                                                   (letrec 
((#{f\ 1282}#
+                                                                              
(lambda (#{forms\ 1283}#)
+                                                                               
 (if (null? #{forms\ 1283}#)
+                                                                               
   (cdr #{body\ 1233}#)
+                                                                               
   (cons (cons #{er\ 1245}#
+                                                                               
               (#{wrap\ 291}#
+                                                                               
                 (car #{forms\ 1283}#)
+                                                                               
                 #{w\ 1250}#
+                                                                               
                 #{mod\ 1252}#))
+                                                                               
         (#{f\ 1282}#
+                                                                               
           (cdr #{forms\ 1283}#)))))))
+                                                                     (#{f\ 
1282}#
+                                                                       #{e1\ 
1279}#))
+                                                                   #{ids\ 
1234}#
+                                                                   #{labels\ 
1235}#
+                                                                   #{var-ids\ 
1236}#
+                                                                   #{vars\ 
1237}#
+                                                                   #{vals\ 
1238}#
+                                                                   #{bindings\ 
1239}#))
+                                                               #{tmp\ 1275}#)
                                                         (syntax-violation
                                                           #f
                                                           "source expression 
failed to match any pattern"
-                                                          #{tmp\ 10128}#)))
+                                                          #{tmp\ 1274}#)))
                                                     ($sc-dispatch
-                                                      #{tmp\ 10128}#
+                                                      #{tmp\ 1274}#
                                                       '(any . each-any))))
-                                                 #{e\ 10103}#)
-                                                (if (memv #{type\ 10101}#
+                                                 #{e\ 1249}#)
+                                                (if (memv #{type\ 1247}#
                                                           '(local-syntax-form))
-                                                  (#{chi-local-syntax\ 9171}#
-                                                    #{value\ 10102}#
-                                                    #{e\ 10103}#
-                                                    #{er\ 10099}#
-                                                    #{w\ 10104}#
-                                                    #{s\ 10105}#
-                                                    #{mod\ 10106}#
-                                                    (lambda (#{forms\ 10140}#
-                                                             #{er\ 10141}#
-                                                             #{w\ 10142}#
-                                                             #{s\ 10143}#
-                                                             #{mod\ 10144}#)
-                                                      (#{parse\ 10086}#
-                                                        (letrec ((#{f\ 10152}#
-                                                                   (lambda 
(#{forms\ 10153}#)
-                                                                     (if 
(null? #{forms\ 10153}#)
-                                                                       (cdr 
#{body\ 10087}#)
-                                                                       (cons 
(cons #{er\ 10141}#
-                                                                               
    (#{wrap\ 9145}#
-                                                                               
      (car #{forms\ 10153}#)
-                                                                               
      #{w\ 10142}#
-                                                                               
      #{mod\ 10144}#))
-                                                                             
(#{f\ 10152}#
-                                                                               
(cdr #{forms\ 10153}#)))))))
-                                                          (#{f\ 10152}#
-                                                            #{forms\ 10140}#))
-                                                        #{ids\ 10088}#
-                                                        #{labels\ 10089}#
-                                                        #{var-ids\ 10090}#
-                                                        #{vars\ 10091}#
-                                                        #{vals\ 10092}#
-                                                        #{bindings\ 10093}#)))
-                                                  (if (null? #{ids\ 10088}#)
-                                                    (#{build-sequence\ 9028}#
+                                                  (#{chi-local-syntax\ 317}#
+                                                    #{value\ 1248}#
+                                                    #{e\ 1249}#
+                                                    #{er\ 1245}#
+                                                    #{w\ 1250}#
+                                                    #{s\ 1251}#
+                                                    #{mod\ 1252}#
+                                                    (lambda (#{forms\ 1286}#
+                                                             #{er\ 1287}#
+                                                             #{w\ 1288}#
+                                                             #{s\ 1289}#
+                                                             #{mod\ 1290}#)
+                                                      (#{parse\ 1232}#
+                                                        (letrec ((#{f\ 1298}#
+                                                                   (lambda 
(#{forms\ 1299}#)
+                                                                     (if 
(null? #{forms\ 1299}#)
+                                                                       (cdr 
#{body\ 1233}#)
+                                                                       (cons 
(cons #{er\ 1287}#
+                                                                               
    (#{wrap\ 291}#
+                                                                               
      (car #{forms\ 1299}#)
+                                                                               
      #{w\ 1288}#
+                                                                               
      #{mod\ 1290}#))
+                                                                             
(#{f\ 1298}#
+                                                                               
(cdr #{forms\ 1299}#)))))))
+                                                          (#{f\ 1298}#
+                                                            #{forms\ 1286}#))
+                                                        #{ids\ 1234}#
+                                                        #{labels\ 1235}#
+                                                        #{var-ids\ 1236}#
+                                                        #{vars\ 1237}#
+                                                        #{vals\ 1238}#
+                                                        #{bindings\ 1239}#)))
+                                                  (if (null? #{ids\ 1234}#)
+                                                    (#{build-sequence\ 174}#
                                                       #f
-                                                      (map (lambda (#{x\ 
10156}#)
-                                                             (#{chi\ 9161}#
-                                                               (cdr #{x\ 
10156}#)
-                                                               (car #{x\ 
10156}#)
+                                                      (map (lambda (#{x\ 
1302}#)
+                                                             (#{chi\ 307}#
+                                                               (cdr #{x\ 
1302}#)
+                                                               (car #{x\ 
1302}#)
                                                                '(())
-                                                               #{mod\ 10106}#))
-                                                           (cons (cons #{er\ 
10099}#
-                                                                       
(#{source-wrap\ 9147}#
-                                                                         #{e\ 
10103}#
-                                                                         #{w\ 
10104}#
-                                                                         #{s\ 
10105}#
-                                                                         
#{mod\ 10106}#))
-                                                                 (cdr #{body\ 
10087}#))))
+                                                               #{mod\ 1252}#))
+                                                           (cons (cons #{er\ 
1245}#
+                                                                       
(#{source-wrap\ 293}#
+                                                                         #{e\ 
1249}#
+                                                                         #{w\ 
1250}#
+                                                                         #{s\ 
1251}#
+                                                                         
#{mod\ 1252}#))
+                                                                 (cdr #{body\ 
1233}#))))
                                                     (begin
-                                                      (if (not 
(#{valid-bound-ids?\ 9139}#
-                                                                 #{ids\ 
10088}#))
+                                                      (if (not 
(#{valid-bound-ids?\ 285}#
+                                                                 #{ids\ 
1234}#))
                                                         (syntax-violation
                                                           #f
                                                           "invalid or 
duplicate identifier in definition"
-                                                          #{outer-form\ 
10061}#))
-                                                      (letrec ((#{loop\ 10163}#
-                                                                 (lambda 
(#{bs\ 10164}#
-                                                                          
#{er-cache\ 10165}#
-                                                                          
#{r-cache\ 10166}#)
-                                                                   (if (not 
(null? #{bs\ 10164}#))
-                                                                     (let 
((#{b\ 10169}#
-                                                                             
(car #{bs\ 10164}#)))
-                                                                       (if 
(eq? (car #{b\ 10169}#)
+                                                          #{outer-form\ 
1207}#))
+                                                      (letrec ((#{loop\ 1309}#
+                                                                 (lambda 
(#{bs\ 1310}#
+                                                                          
#{er-cache\ 1311}#
+                                                                          
#{r-cache\ 1312}#)
+                                                                   (if (not 
(null? #{bs\ 1310}#))
+                                                                     (let 
((#{b\ 1315}#
+                                                                             
(car #{bs\ 1310}#)))
+                                                                       (if 
(eq? (car #{b\ 1315}#)
                                                                                
 'macro)
-                                                                         (let 
((#{er\ 10172}#
-                                                                               
  (cadr #{b\ 10169}#)))
-                                                                           
(let ((#{r-cache\ 10174}#
-                                                                               
    (if (eq? #{er\ 10172}#
-                                                                               
             #{er-cache\ 10165}#)
-                                                                               
      #{r-cache\ 10166}#
-                                                                               
      (#{macros-only-env\ 9068}#
-                                                                               
        #{er\ 10172}#))))
+                                                                         (let 
((#{er\ 1318}#
+                                                                               
  (cadr #{b\ 1315}#)))
+                                                                           
(let ((#{r-cache\ 1320}#
+                                                                               
    (if (eq? #{er\ 1318}#
+                                                                               
             #{er-cache\ 1311}#)
+                                                                               
      #{r-cache\ 1312}#
+                                                                               
      (#{macros-only-env\ 214}#
+                                                                               
        #{er\ 1318}#))))
                                                                              
(begin
                                                                                
(set-cdr!
-                                                                               
  #{b\ 10169}#
-                                                                               
  (#{eval-local-transformer\ 9173}#
-                                                                               
    (#{chi\ 9161}#
-                                                                               
      (cddr #{b\ 10169}#)
-                                                                               
      #{r-cache\ 10174}#
+                                                                               
  #{b\ 1315}#
+                                                                               
  (#{eval-local-transformer\ 319}#
+                                                                               
    (#{chi\ 307}#
+                                                                               
      (cddr #{b\ 1315}#)
+                                                                               
      #{r-cache\ 1320}#
                                                                                
      '(())
-                                                                               
      #{mod\ 10106}#)
-                                                                               
    #{mod\ 10106}#))
-                                                                               
(#{loop\ 10163}#
-                                                                               
  (cdr #{bs\ 10164}#)
-                                                                               
  #{er\ 10172}#
-                                                                               
  #{r-cache\ 10174}#))))
-                                                                         
(#{loop\ 10163}#
-                                                                           
(cdr #{bs\ 10164}#)
-                                                                           
#{er-cache\ 10165}#
-                                                                           
#{r-cache\ 10166}#)))))))
-                                                        (#{loop\ 10163}#
-                                                          #{bindings\ 10093}#
+                                                                               
      #{mod\ 1252}#)
+                                                                               
    #{mod\ 1252}#))
+                                                                               
(#{loop\ 1309}#
+                                                                               
  (cdr #{bs\ 1310}#)
+                                                                               
  #{er\ 1318}#
+                                                                               
  #{r-cache\ 1320}#))))
+                                                                         
(#{loop\ 1309}#
+                                                                           
(cdr #{bs\ 1310}#)
+                                                                           
#{er-cache\ 1311}#
+                                                                           
#{r-cache\ 1312}#)))))))
+                                                        (#{loop\ 1309}#
+                                                          #{bindings\ 1239}#
                                                           #f
                                                           #f))
                                                       (set-cdr!
-                                                        #{r\ 10072}#
-                                                        (#{extend-env\ 9064}#
-                                                          #{labels\ 10089}#
-                                                          #{bindings\ 10093}#
-                                                          (cdr #{r\ 10072}#)))
-                                                      (#{build-letrec\ 9034}#
+                                                        #{r\ 1218}#
+                                                        (#{extend-env\ 210}#
+                                                          #{labels\ 1235}#
+                                                          #{bindings\ 1239}#
+                                                          (cdr #{r\ 1218}#)))
+                                                      (#{build-letrec\ 180}#
                                                         #f
                                                         (map syntax->datum
-                                                             #{var-ids\ 
10090}#)
-                                                        #{vars\ 10091}#
-                                                        (map (lambda (#{x\ 
10177}#)
-                                                               (#{chi\ 9161}#
-                                                                 (cdr #{x\ 
10177}#)
-                                                                 (car #{x\ 
10177}#)
+                                                             #{var-ids\ 1236}#)
+                                                        #{vars\ 1237}#
+                                                        (map (lambda (#{x\ 
1323}#)
+                                                               (#{chi\ 307}#
+                                                                 (cdr #{x\ 
1323}#)
+                                                                 (car #{x\ 
1323}#)
                                                                  '(())
-                                                                 #{mod\ 
10106}#))
-                                                             #{vals\ 10092}#)
-                                                        (#{build-sequence\ 
9028}#
+                                                                 #{mod\ 
1252}#))
+                                                             #{vals\ 1238}#)
+                                                        (#{build-sequence\ 
174}#
                                                           #f
-                                                          (map (lambda (#{x\ 
10181}#)
-                                                                 (#{chi\ 9161}#
-                                                                   (cdr #{x\ 
10181}#)
-                                                                   (car #{x\ 
10181}#)
+                                                          (map (lambda (#{x\ 
1327}#)
+                                                                 (#{chi\ 307}#
+                                                                   (cdr #{x\ 
1327}#)
+                                                                   (car #{x\ 
1327}#)
                                                                    '(())
-                                                                   #{mod\ 
10106}#))
-                                                               (cons (cons 
#{er\ 10099}#
-                                                                           
(#{source-wrap\ 9147}#
-                                                                             
#{e\ 10103}#
-                                                                             
#{w\ 10104}#
-                                                                             
#{s\ 10105}#
-                                                                             
#{mod\ 10106}#))
-                                                                     (cdr 
#{body\ 10087}#))))))))))))))))))
-                       (#{parse\ 10086}#
-                         (map (lambda (#{x\ 10094}#)
-                                (cons #{r\ 10072}#
-                                      (#{wrap\ 9145}#
-                                        #{x\ 10094}#
-                                        #{w\ 10077}#
-                                        #{mod\ 10064}#)))
-                              #{body\ 10060}#)
+                                                                   #{mod\ 
1252}#))
+                                                               (cons (cons 
#{er\ 1245}#
+                                                                           
(#{source-wrap\ 293}#
+                                                                             
#{e\ 1249}#
+                                                                             
#{w\ 1250}#
+                                                                             
#{s\ 1251}#
+                                                                             
#{mod\ 1252}#))
+                                                                     (cdr 
#{body\ 1233}#))))))))))))))))))
+                       (#{parse\ 1232}#
+                         (map (lambda (#{x\ 1240}#)
+                                (cons #{r\ 1218}#
+                                      (#{wrap\ 291}#
+                                        #{x\ 1240}#
+                                        #{w\ 1223}#
+                                        #{mod\ 1210}#)))
+                              #{body\ 1206}#)
                          '()
                          '()
                          '()
                          '()
                          '()
                          '())))))))
-           (#{chi-macro\ 9167}#
-             (lambda (#{p\ 10184}#
-                      #{e\ 10185}#
-                      #{r\ 10186}#
-                      #{w\ 10187}#
-                      #{rib\ 10188}#
-                      #{mod\ 10189}#)
-               (letrec ((#{rebuild-macro-output\ 10197}#
-                          (lambda (#{x\ 10198}# #{m\ 10199}#)
-                            (if (pair? #{x\ 10198}#)
-                              (cons (#{rebuild-macro-output\ 10197}#
-                                      (car #{x\ 10198}#)
-                                      #{m\ 10199}#)
-                                    (#{rebuild-macro-output\ 10197}#
-                                      (cdr #{x\ 10198}#)
-                                      #{m\ 10199}#))
-                              (if (#{syntax-object?\ 9040}# #{x\ 10198}#)
-                                (let ((#{w\ 10207}#
-                                        (#{syntax-object-wrap\ 9044}#
-                                          #{x\ 10198}#)))
-                                  (let ((#{ms\ 10210}#
-                                          (#{wrap-marks\ 9083}# #{w\ 10207}#))
-                                        (#{s\ 10211}#
-                                          (#{wrap-subst\ 9085}# #{w\ 10207}#)))
-                                    (if (if (pair? #{ms\ 10210}#)
-                                          (eq? (car #{ms\ 10210}#) #f)
+           (#{chi-macro\ 313}#
+             (lambda (#{p\ 1330}#
+                      #{e\ 1331}#
+                      #{r\ 1332}#
+                      #{w\ 1333}#
+                      #{rib\ 1334}#
+                      #{mod\ 1335}#)
+               (letrec ((#{rebuild-macro-output\ 1343}#
+                          (lambda (#{x\ 1344}# #{m\ 1345}#)
+                            (if (pair? #{x\ 1344}#)
+                              (cons (#{rebuild-macro-output\ 1343}#
+                                      (car #{x\ 1344}#)
+                                      #{m\ 1345}#)
+                                    (#{rebuild-macro-output\ 1343}#
+                                      (cdr #{x\ 1344}#)
+                                      #{m\ 1345}#))
+                              (if (#{syntax-object?\ 186}# #{x\ 1344}#)
+                                (let ((#{w\ 1353}#
+                                        (#{syntax-object-wrap\ 190}#
+                                          #{x\ 1344}#)))
+                                  (let ((#{ms\ 1356}#
+                                          (#{wrap-marks\ 229}# #{w\ 1353}#))
+                                        (#{s\ 1357}#
+                                          (#{wrap-subst\ 231}# #{w\ 1353}#)))
+                                    (if (if (pair? #{ms\ 1356}#)
+                                          (eq? (car #{ms\ 1356}#) #f)
                                           #f)
-                                      (#{make-syntax-object\ 9038}#
-                                        (#{syntax-object-expression\ 9042}#
-                                          #{x\ 10198}#)
-                                        (#{make-wrap\ 9081}#
-                                          (cdr #{ms\ 10210}#)
-                                          (if #{rib\ 10188}#
-                                            (cons #{rib\ 10188}#
-                                                  (cdr #{s\ 10211}#))
-                                            (cdr #{s\ 10211}#)))
-                                        (#{syntax-object-module\ 9046}#
-                                          #{x\ 10198}#))
-                                      (#{make-syntax-object\ 9038}#
-                                        (#{syntax-object-expression\ 9042}#
-                                          #{x\ 10198}#)
-                                        (#{make-wrap\ 9081}#
-                                          (cons #{m\ 10199}# #{ms\ 10210}#)
-                                          (if #{rib\ 10188}#
-                                            (cons #{rib\ 10188}#
+                                      (#{make-syntax-object\ 184}#
+                                        (#{syntax-object-expression\ 188}#
+                                          #{x\ 1344}#)
+                                        (#{make-wrap\ 227}#
+                                          (cdr #{ms\ 1356}#)
+                                          (if #{rib\ 1334}#
+                                            (cons #{rib\ 1334}#
+                                                  (cdr #{s\ 1357}#))
+                                            (cdr #{s\ 1357}#)))
+                                        (#{syntax-object-module\ 192}#
+                                          #{x\ 1344}#))
+                                      (#{make-syntax-object\ 184}#
+                                        (#{syntax-object-expression\ 188}#
+                                          #{x\ 1344}#)
+                                        (#{make-wrap\ 227}#
+                                          (cons #{m\ 1345}# #{ms\ 1356}#)
+                                          (if #{rib\ 1334}#
+                                            (cons #{rib\ 1334}#
                                                   (cons 'shift
-                                                        #{s\ 10211}#))
-                                            (cons (quote shift) #{s\ 10211}#)))
+                                                        #{s\ 1357}#))
+                                            (cons (quote shift) #{s\ 1357}#)))
                                         (cons 'hygiene
-                                              (cdr #{p\ 10184}#))))))
-                                (if (vector? #{x\ 10198}#)
-                                  (let ((#{n\ 10219}#
-                                          (vector-length #{x\ 10198}#)))
-                                    (let ((#{v\ 10221}#
-                                            (make-vector #{n\ 10219}#)))
-                                      (letrec ((#{loop\ 10224}#
-                                                 (lambda (#{i\ 10225}#)
-                                                   (if (#{fx=\ 8981}#
-                                                         #{i\ 10225}#
-                                                         #{n\ 10219}#)
+                                              (cdr #{p\ 1330}#))))))
+                                (if (vector? #{x\ 1344}#)
+                                  (let ((#{n\ 1365}#
+                                          (vector-length #{x\ 1344}#)))
+                                    (let ((#{v\ 1367}#
+                                            (make-vector #{n\ 1365}#)))
+                                      (letrec ((#{loop\ 1370}#
+                                                 (lambda (#{i\ 1371}#)
+                                                   (if (#{fx=\ 127}#
+                                                         #{i\ 1371}#
+                                                         #{n\ 1365}#)
                                                      (begin
                                                        (if #f #f)
-                                                       #{v\ 10221}#)
+                                                       #{v\ 1367}#)
                                                      (begin
                                                        (vector-set!
-                                                         #{v\ 10221}#
-                                                         #{i\ 10225}#
-                                                         
(#{rebuild-macro-output\ 10197}#
+                                                         #{v\ 1367}#
+                                                         #{i\ 1371}#
+                                                         
(#{rebuild-macro-output\ 1343}#
                                                            (vector-ref
-                                                             #{x\ 10198}#
-                                                             #{i\ 10225}#)
-                                                           #{m\ 10199}#))
-                                                       (#{loop\ 10224}#
-                                                         (#{fx+\ 8977}#
-                                                           #{i\ 10225}#
+                                                             #{x\ 1344}#
+                                                             #{i\ 1371}#)
+                                                           #{m\ 1345}#))
+                                                       (#{loop\ 1370}#
+                                                         (#{fx+\ 123}#
+                                                           #{i\ 1371}#
                                                            1)))))))
-                                        (#{loop\ 10224}# 0))))
-                                  (if (symbol? #{x\ 10198}#)
+                                        (#{loop\ 1370}# 0))))
+                                  (if (symbol? #{x\ 1344}#)
                                     (syntax-violation
                                       #f
                                       "encountered raw symbol in macro output"
-                                      (#{source-wrap\ 9147}#
-                                        #{e\ 10185}#
-                                        #{w\ 10187}#
-                                        (#{wrap-subst\ 9085}# #{w\ 10187}#)
-                                        #{mod\ 10189}#)
-                                      #{x\ 10198}#)
-                                    #{x\ 10198}#)))))))
-                 (#{rebuild-macro-output\ 10197}#
-                   ((car #{p\ 10184}#)
-                    (#{wrap\ 9145}#
-                      #{e\ 10185}#
-                      (#{anti-mark\ 9117}# #{w\ 10187}#)
-                      #{mod\ 10189}#))
+                                      (#{source-wrap\ 293}#
+                                        #{e\ 1331}#
+                                        #{w\ 1333}#
+                                        (#{wrap-subst\ 231}# #{w\ 1333}#)
+                                        #{mod\ 1335}#)
+                                      #{x\ 1344}#)
+                                    #{x\ 1344}#)))))))
+                 (#{rebuild-macro-output\ 1343}#
+                   ((car #{p\ 1330}#)
+                    (#{wrap\ 291}#
+                      #{e\ 1331}#
+                      (#{anti-mark\ 263}# #{w\ 1333}#)
+                      #{mod\ 1335}#))
                    (gensym "m")))))
-           (#{chi-application\ 9165}#
-             (lambda (#{x\ 10232}#
-                      #{e\ 10233}#
-                      #{r\ 10234}#
-                      #{w\ 10235}#
-                      #{s\ 10236}#
-                      #{mod\ 10237}#)
-               ((lambda (#{tmp\ 10244}#)
-                  ((lambda (#{tmp\ 10245}#)
-                     (if #{tmp\ 10245}#
-                       (apply (lambda (#{e0\ 10248}# #{e1\ 10249}#)
-                                (#{build-application\ 8998}#
-                                  #{s\ 10236}#
-                                  #{x\ 10232}#
-                                  (map (lambda (#{e\ 10250}#)
-                                         (#{chi\ 9161}#
-                                           #{e\ 10250}#
-                                           #{r\ 10234}#
-                                           #{w\ 10235}#
-                                           #{mod\ 10237}#))
-                                       #{e1\ 10249}#)))
-                              #{tmp\ 10245}#)
+           (#{chi-application\ 311}#
+             (lambda (#{x\ 1378}#
+                      #{e\ 1379}#
+                      #{r\ 1380}#
+                      #{w\ 1381}#
+                      #{s\ 1382}#
+                      #{mod\ 1383}#)
+               ((lambda (#{tmp\ 1390}#)
+                  ((lambda (#{tmp\ 1391}#)
+                     (if #{tmp\ 1391}#
+                       (apply (lambda (#{e0\ 1394}# #{e1\ 1395}#)
+                                (#{build-application\ 144}#
+                                  #{s\ 1382}#
+                                  #{x\ 1378}#
+                                  (map (lambda (#{e\ 1396}#)
+                                         (#{chi\ 307}#
+                                           #{e\ 1396}#
+                                           #{r\ 1380}#
+                                           #{w\ 1381}#
+                                           #{mod\ 1383}#))
+                                       #{e1\ 1395}#)))
+                              #{tmp\ 1391}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 10244}#)))
+                         #{tmp\ 1390}#)))
                    ($sc-dispatch
-                     #{tmp\ 10244}#
+                     #{tmp\ 1390}#
                      '(any . each-any))))
-                #{e\ 10233}#)))
-           (#{chi-expr\ 9163}#
-             (lambda (#{type\ 10253}#
-                      #{value\ 10254}#
-                      #{e\ 10255}#
-                      #{r\ 10256}#
-                      #{w\ 10257}#
-                      #{s\ 10258}#
-                      #{mod\ 10259}#)
-               (if (memv #{type\ 10253}# (quote (lexical)))
-                 (#{build-lexical-reference\ 9004}#
+                #{e\ 1379}#)))
+           (#{chi-expr\ 309}#
+             (lambda (#{type\ 1399}#
+                      #{value\ 1400}#
+                      #{e\ 1401}#
+                      #{r\ 1402}#
+                      #{w\ 1403}#
+                      #{s\ 1404}#
+                      #{mod\ 1405}#)
+               (if (memv #{type\ 1399}# (quote (lexical)))
+                 (#{build-lexical-reference\ 150}#
                    'value
-                   #{s\ 10258}#
-                   #{e\ 10255}#
-                   #{value\ 10254}#)
-                 (if (memv #{type\ 10253}# (quote (core core-form)))
-                   (#{value\ 10254}#
-                     #{e\ 10255}#
-                     #{r\ 10256}#
-                     #{w\ 10257}#
-                     #{s\ 10258}#
-                     #{mod\ 10259}#)
-                   (if (memv #{type\ 10253}# (quote (module-ref)))
+                   #{s\ 1404}#
+                   #{e\ 1401}#
+                   #{value\ 1400}#)
+                 (if (memv #{type\ 1399}# (quote (core core-form)))
+                   (#{value\ 1400}#
+                     #{e\ 1401}#
+                     #{r\ 1402}#
+                     #{w\ 1403}#
+                     #{s\ 1404}#
+                     #{mod\ 1405}#)
+                   (if (memv #{type\ 1399}# (quote (module-ref)))
                      (call-with-values
-                       (lambda () (#{value\ 10254}# #{e\ 10255}#))
-                       (lambda (#{id\ 10270}# #{mod\ 10271}#)
-                         (#{build-global-reference\ 9010}#
-                           #{s\ 10258}#
-                           #{id\ 10270}#
-                           #{mod\ 10271}#)))
-                     (if (memv #{type\ 10253}# (quote (lexical-call)))
-                       (#{chi-application\ 9165}#
-                         (#{build-lexical-reference\ 9004}#
+                       (lambda () (#{value\ 1400}# #{e\ 1401}#))
+                       (lambda (#{id\ 1416}# #{mod\ 1417}#)
+                         (#{build-global-reference\ 156}#
+                           #{s\ 1404}#
+                           #{id\ 1416}#
+                           #{mod\ 1417}#)))
+                     (if (memv #{type\ 1399}# (quote (lexical-call)))
+                       (#{chi-application\ 311}#
+                         (#{build-lexical-reference\ 150}#
                            'fun
-                           (#{source-annotation\ 9055}# (car #{e\ 10255}#))
-                           (car #{e\ 10255}#)
-                           #{value\ 10254}#)
-                         #{e\ 10255}#
-                         #{r\ 10256}#
-                         #{w\ 10257}#
-                         #{s\ 10258}#
-                         #{mod\ 10259}#)
-                       (if (memv #{type\ 10253}# (quote (global-call)))
-                         (#{chi-application\ 9165}#
-                           (#{build-global-reference\ 9010}#
-                             (#{source-annotation\ 9055}# (car #{e\ 10255}#))
-                             (if (#{syntax-object?\ 9040}# #{value\ 10254}#)
-                               (#{syntax-object-expression\ 9042}#
-                                 #{value\ 10254}#)
-                               #{value\ 10254}#)
-                             (if (#{syntax-object?\ 9040}# #{value\ 10254}#)
-                               (#{syntax-object-module\ 9046}#
-                                 #{value\ 10254}#)
-                               #{mod\ 10259}#))
-                           #{e\ 10255}#
-                           #{r\ 10256}#
-                           #{w\ 10257}#
-                           #{s\ 10258}#
-                           #{mod\ 10259}#)
-                         (if (memv #{type\ 10253}# (quote (constant)))
-                           (#{build-data\ 9026}#
-                             #{s\ 10258}#
-                             (#{strip\ 9187}#
-                               (#{source-wrap\ 9147}#
-                                 #{e\ 10255}#
-                                 #{w\ 10257}#
-                                 #{s\ 10258}#
-                                 #{mod\ 10259}#)
+                           (#{source-annotation\ 201}# (car #{e\ 1401}#))
+                           (car #{e\ 1401}#)
+                           #{value\ 1400}#)
+                         #{e\ 1401}#
+                         #{r\ 1402}#
+                         #{w\ 1403}#
+                         #{s\ 1404}#
+                         #{mod\ 1405}#)
+                       (if (memv #{type\ 1399}# (quote (global-call)))
+                         (#{chi-application\ 311}#
+                           (#{build-global-reference\ 156}#
+                             (#{source-annotation\ 201}# (car #{e\ 1401}#))
+                             (if (#{syntax-object?\ 186}# #{value\ 1400}#)
+                               (#{syntax-object-expression\ 188}#
+                                 #{value\ 1400}#)
+                               #{value\ 1400}#)
+                             (if (#{syntax-object?\ 186}# #{value\ 1400}#)
+                               (#{syntax-object-module\ 192}# #{value\ 1400}#)
+                               #{mod\ 1405}#))
+                           #{e\ 1401}#
+                           #{r\ 1402}#
+                           #{w\ 1403}#
+                           #{s\ 1404}#
+                           #{mod\ 1405}#)
+                         (if (memv #{type\ 1399}# (quote (constant)))
+                           (#{build-data\ 172}#
+                             #{s\ 1404}#
+                             (#{strip\ 333}#
+                               (#{source-wrap\ 293}#
+                                 #{e\ 1401}#
+                                 #{w\ 1403}#
+                                 #{s\ 1404}#
+                                 #{mod\ 1405}#)
                                '(())))
-                           (if (memv #{type\ 10253}# (quote (global)))
-                             (#{build-global-reference\ 9010}#
-                               #{s\ 10258}#
-                               #{value\ 10254}#
-                               #{mod\ 10259}#)
-                             (if (memv #{type\ 10253}# (quote (call)))
-                               (#{chi-application\ 9165}#
-                                 (#{chi\ 9161}#
-                                   (car #{e\ 10255}#)
-                                   #{r\ 10256}#
-                                   #{w\ 10257}#
-                                   #{mod\ 10259}#)
-                                 #{e\ 10255}#
-                                 #{r\ 10256}#
-                                 #{w\ 10257}#
-                                 #{s\ 10258}#
-                                 #{mod\ 10259}#)
-                               (if (memv #{type\ 10253}# (quote (begin-form)))
-                                 ((lambda (#{tmp\ 10281}#)
-                                    ((lambda (#{tmp\ 10282}#)
-                                       (if #{tmp\ 10282}#
-                                         (apply (lambda (#{_\ 10286}#
-                                                         #{e1\ 10287}#
-                                                         #{e2\ 10288}#)
-                                                  (#{chi-sequence\ 9149}#
-                                                    (cons #{e1\ 10287}#
-                                                          #{e2\ 10288}#)
-                                                    #{r\ 10256}#
-                                                    #{w\ 10257}#
-                                                    #{s\ 10258}#
-                                                    #{mod\ 10259}#))
-                                                #{tmp\ 10282}#)
+                           (if (memv #{type\ 1399}# (quote (global)))
+                             (#{build-global-reference\ 156}#
+                               #{s\ 1404}#
+                               #{value\ 1400}#
+                               #{mod\ 1405}#)
+                             (if (memv #{type\ 1399}# (quote (call)))
+                               (#{chi-application\ 311}#
+                                 (#{chi\ 307}#
+                                   (car #{e\ 1401}#)
+                                   #{r\ 1402}#
+                                   #{w\ 1403}#
+                                   #{mod\ 1405}#)
+                                 #{e\ 1401}#
+                                 #{r\ 1402}#
+                                 #{w\ 1403}#
+                                 #{s\ 1404}#
+                                 #{mod\ 1405}#)
+                               (if (memv #{type\ 1399}# (quote (begin-form)))
+                                 ((lambda (#{tmp\ 1427}#)
+                                    ((lambda (#{tmp\ 1428}#)
+                                       (if #{tmp\ 1428}#
+                                         (apply (lambda (#{_\ 1432}#
+                                                         #{e1\ 1433}#
+                                                         #{e2\ 1434}#)
+                                                  (#{chi-sequence\ 295}#
+                                                    (cons #{e1\ 1433}#
+                                                          #{e2\ 1434}#)
+                                                    #{r\ 1402}#
+                                                    #{w\ 1403}#
+                                                    #{s\ 1404}#
+                                                    #{mod\ 1405}#))
+                                                #{tmp\ 1428}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{tmp\ 10281}#)))
+                                           #{tmp\ 1427}#)))
                                      ($sc-dispatch
-                                       #{tmp\ 10281}#
+                                       #{tmp\ 1427}#
                                        '(any any . each-any))))
-                                  #{e\ 10255}#)
-                                 (if (memv #{type\ 10253}#
+                                  #{e\ 1401}#)
+                                 (if (memv #{type\ 1399}#
                                            '(local-syntax-form))
-                                   (#{chi-local-syntax\ 9171}#
-                                     #{value\ 10254}#
-                                     #{e\ 10255}#
-                                     #{r\ 10256}#
-                                     #{w\ 10257}#
-                                     #{s\ 10258}#
-                                     #{mod\ 10259}#
-                                     #{chi-sequence\ 9149}#)
-                                   (if (memv #{type\ 10253}#
+                                   (#{chi-local-syntax\ 317}#
+                                     #{value\ 1400}#
+                                     #{e\ 1401}#
+                                     #{r\ 1402}#
+                                     #{w\ 1403}#
+                                     #{s\ 1404}#
+                                     #{mod\ 1405}#
+                                     #{chi-sequence\ 295}#)
+                                   (if (memv #{type\ 1399}#
                                              '(eval-when-form))
-                                     ((lambda (#{tmp\ 10292}#)
-                                        ((lambda (#{tmp\ 10293}#)
-                                           (if #{tmp\ 10293}#
-                                             (apply (lambda (#{_\ 10298}#
-                                                             #{x\ 10299}#
-                                                             #{e1\ 10300}#
-                                                             #{e2\ 10301}#)
-                                                      (let ((#{when-list\ 
10303}#
-                                                              
(#{chi-when-list\ 9155}#
-                                                                #{e\ 10255}#
-                                                                #{x\ 10299}#
-                                                                #{w\ 10257}#)))
+                                     ((lambda (#{tmp\ 1438}#)
+                                        ((lambda (#{tmp\ 1439}#)
+                                           (if #{tmp\ 1439}#
+                                             (apply (lambda (#{_\ 1444}#
+                                                             #{x\ 1445}#
+                                                             #{e1\ 1446}#
+                                                             #{e2\ 1447}#)
+                                                      (let ((#{when-list\ 
1449}#
+                                                              
(#{chi-when-list\ 301}#
+                                                                #{e\ 1401}#
+                                                                #{x\ 1445}#
+                                                                #{w\ 1403}#)))
                                                         (if (memq 'eval
-                                                                  #{when-list\ 
10303}#)
-                                                          (#{chi-sequence\ 
9149}#
-                                                            (cons #{e1\ 10300}#
-                                                                  #{e2\ 
10301}#)
-                                                            #{r\ 10256}#
-                                                            #{w\ 10257}#
-                                                            #{s\ 10258}#
-                                                            #{mod\ 10259}#)
-                                                          (#{chi-void\ 
9175}#))))
-                                                    #{tmp\ 10293}#)
+                                                                  #{when-list\ 
1449}#)
+                                                          (#{chi-sequence\ 
295}#
+                                                            (cons #{e1\ 1446}#
+                                                                  #{e2\ 1447}#)
+                                                            #{r\ 1402}#
+                                                            #{w\ 1403}#
+                                                            #{s\ 1404}#
+                                                            #{mod\ 1405}#)
+                                                          (#{chi-void\ 
321}#))))
+                                                    #{tmp\ 1439}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to 
match any pattern"
-                                               #{tmp\ 10292}#)))
+                                               #{tmp\ 1438}#)))
                                          ($sc-dispatch
-                                           #{tmp\ 10292}#
+                                           #{tmp\ 1438}#
                                            '(any each-any any . each-any))))
-                                      #{e\ 10255}#)
-                                     (if (memv #{type\ 10253}#
+                                      #{e\ 1401}#)
+                                     (if (memv #{type\ 1399}#
                                                '(define-form
                                                   define-syntax-form))
                                        (syntax-violation
                                          #f
                                          "definition in expression context"
-                                         #{e\ 10255}#
-                                         (#{wrap\ 9145}#
-                                           #{value\ 10254}#
-                                           #{w\ 10257}#
-                                           #{mod\ 10259}#))
-                                       (if (memv #{type\ 10253}#
+                                         #{e\ 1401}#
+                                         (#{wrap\ 291}#
+                                           #{value\ 1400}#
+                                           #{w\ 1403}#
+                                           #{mod\ 1405}#))
+                                       (if (memv #{type\ 1399}#
                                                  '(syntax))
                                          (syntax-violation
                                            #f
                                            "reference to pattern variable 
outside syntax form"
-                                           (#{source-wrap\ 9147}#
-                                             #{e\ 10255}#
-                                             #{w\ 10257}#
-                                             #{s\ 10258}#
-                                             #{mod\ 10259}#))
-                                         (if (memv #{type\ 10253}#
+                                           (#{source-wrap\ 293}#
+                                             #{e\ 1401}#
+                                             #{w\ 1403}#
+                                             #{s\ 1404}#
+                                             #{mod\ 1405}#))
+                                         (if (memv #{type\ 1399}#
                                                    '(displaced-lexical))
                                            (syntax-violation
                                              #f
                                              "reference to identifier outside 
its scope"
-                                             (#{source-wrap\ 9147}#
-                                               #{e\ 10255}#
-                                               #{w\ 10257}#
-                                               #{s\ 10258}#
-                                               #{mod\ 10259}#))
+                                             (#{source-wrap\ 293}#
+                                               #{e\ 1401}#
+                                               #{w\ 1403}#
+                                               #{s\ 1404}#
+                                               #{mod\ 1405}#))
                                            (syntax-violation
                                              #f
                                              "unexpected syntax"
-                                             (#{source-wrap\ 9147}#
-                                               #{e\ 10255}#
-                                               #{w\ 10257}#
-                                               #{s\ 10258}#
-                                               #{mod\ 10259}#))))))))))))))))))
-           (#{chi\ 9161}#
-             (lambda (#{e\ 10310}#
-                      #{r\ 10311}#
-                      #{w\ 10312}#
-                      #{mod\ 10313}#)
+                                             (#{source-wrap\ 293}#
+                                               #{e\ 1401}#
+                                               #{w\ 1403}#
+                                               #{s\ 1404}#
+                                               #{mod\ 1405}#))))))))))))))))))
+           (#{chi\ 307}#
+             (lambda (#{e\ 1456}#
+                      #{r\ 1457}#
+                      #{w\ 1458}#
+                      #{mod\ 1459}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 9157}#
-                     #{e\ 10310}#
-                     #{r\ 10311}#
-                     #{w\ 10312}#
-                     (#{source-annotation\ 9055}# #{e\ 10310}#)
+                   (#{syntax-type\ 303}#
+                     #{e\ 1456}#
+                     #{r\ 1457}#
+                     #{w\ 1458}#
+                     (#{source-annotation\ 201}# #{e\ 1456}#)
                      #f
-                     #{mod\ 10313}#
+                     #{mod\ 1459}#
                      #f))
-                 (lambda (#{type\ 10318}#
-                          #{value\ 10319}#
-                          #{e\ 10320}#
-                          #{w\ 10321}#
-                          #{s\ 10322}#
-                          #{mod\ 10323}#)
-                   (#{chi-expr\ 9163}#
-                     #{type\ 10318}#
-                     #{value\ 10319}#
-                     #{e\ 10320}#
-                     #{r\ 10311}#
-                     #{w\ 10321}#
-                     #{s\ 10322}#
-                     #{mod\ 10323}#)))))
-           (#{chi-top\ 9159}#
-             (lambda (#{e\ 10330}#
-                      #{r\ 10331}#
-                      #{w\ 10332}#
-                      #{m\ 10333}#
-                      #{esew\ 10334}#
-                      #{mod\ 10335}#)
+                 (lambda (#{type\ 1464}#
+                          #{value\ 1465}#
+                          #{e\ 1466}#
+                          #{w\ 1467}#
+                          #{s\ 1468}#
+                          #{mod\ 1469}#)
+                   (#{chi-expr\ 309}#
+                     #{type\ 1464}#
+                     #{value\ 1465}#
+                     #{e\ 1466}#
+                     #{r\ 1457}#
+                     #{w\ 1467}#
+                     #{s\ 1468}#
+                     #{mod\ 1469}#)))))
+           (#{chi-top\ 305}#
+             (lambda (#{e\ 1476}#
+                      #{r\ 1477}#
+                      #{w\ 1478}#
+                      #{m\ 1479}#
+                      #{esew\ 1480}#
+                      #{mod\ 1481}#)
                (call-with-values
                  (lambda ()
-                   (#{syntax-type\ 9157}#
-                     #{e\ 10330}#
-                     #{r\ 10331}#
-                     #{w\ 10332}#
-                     (#{source-annotation\ 9055}# #{e\ 10330}#)
+                   (#{syntax-type\ 303}#
+                     #{e\ 1476}#
+                     #{r\ 1477}#
+                     #{w\ 1478}#
+                     (#{source-annotation\ 201}# #{e\ 1476}#)
                      #f
-                     #{mod\ 10335}#
+                     #{mod\ 1481}#
                      #f))
-                 (lambda (#{type\ 10356}#
-                          #{value\ 10357}#
-                          #{e\ 10358}#
-                          #{w\ 10359}#
-                          #{s\ 10360}#
-                          #{mod\ 10361}#)
-                   (if (memv #{type\ 10356}# (quote (begin-form)))
-                     ((lambda (#{tmp\ 10369}#)
-                        ((lambda (#{tmp\ 10370}#)
-                           (if #{tmp\ 10370}#
-                             (apply (lambda (#{_\ 10372}#)
-                                      (#{chi-void\ 9175}#))
-                                    #{tmp\ 10370}#)
-                             ((lambda (#{tmp\ 10373}#)
-                                (if #{tmp\ 10373}#
-                                  (apply (lambda (#{_\ 10377}#
-                                                  #{e1\ 10378}#
-                                                  #{e2\ 10379}#)
-                                           (#{chi-top-sequence\ 9151}#
-                                             (cons #{e1\ 10378}# #{e2\ 10379}#)
-                                             #{r\ 10331}#
-                                             #{w\ 10359}#
-                                             #{s\ 10360}#
-                                             #{m\ 10333}#
-                                             #{esew\ 10334}#
-                                             #{mod\ 10361}#))
-                                         #{tmp\ 10373}#)
+                 (lambda (#{type\ 1502}#
+                          #{value\ 1503}#
+                          #{e\ 1504}#
+                          #{w\ 1505}#
+                          #{s\ 1506}#
+                          #{mod\ 1507}#)
+                   (if (memv #{type\ 1502}# (quote (begin-form)))
+                     ((lambda (#{tmp\ 1515}#)
+                        ((lambda (#{tmp\ 1516}#)
+                           (if #{tmp\ 1516}#
+                             (apply (lambda (#{_\ 1518}#) (#{chi-void\ 321}#))
+                                    #{tmp\ 1516}#)
+                             ((lambda (#{tmp\ 1519}#)
+                                (if #{tmp\ 1519}#
+                                  (apply (lambda (#{_\ 1523}#
+                                                  #{e1\ 1524}#
+                                                  #{e2\ 1525}#)
+                                           (#{chi-top-sequence\ 297}#
+                                             (cons #{e1\ 1524}# #{e2\ 1525}#)
+                                             #{r\ 1477}#
+                                             #{w\ 1505}#
+                                             #{s\ 1506}#
+                                             #{m\ 1479}#
+                                             #{esew\ 1480}#
+                                             #{mod\ 1507}#))
+                                         #{tmp\ 1519}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{tmp\ 10369}#)))
+                                    #{tmp\ 1515}#)))
                               ($sc-dispatch
-                                #{tmp\ 10369}#
+                                #{tmp\ 1515}#
                                 '(any any . each-any)))))
-                         ($sc-dispatch #{tmp\ 10369}# (quote (any)))))
-                      #{e\ 10358}#)
-                     (if (memv #{type\ 10356}#
-                               '(local-syntax-form))
-                       (#{chi-local-syntax\ 9171}#
-                         #{value\ 10357}#
-                         #{e\ 10358}#
-                         #{r\ 10331}#
-                         #{w\ 10359}#
-                         #{s\ 10360}#
-                         #{mod\ 10361}#
-                         (lambda (#{body\ 10382}#
-                                  #{r\ 10383}#
-                                  #{w\ 10384}#
-                                  #{s\ 10385}#
-                                  #{mod\ 10386}#)
-                           (#{chi-top-sequence\ 9151}#
-                             #{body\ 10382}#
-                             #{r\ 10383}#
-                             #{w\ 10384}#
-                             #{s\ 10385}#
-                             #{m\ 10333}#
-                             #{esew\ 10334}#
-                             #{mod\ 10386}#)))
-                       (if (memv #{type\ 10356}# (quote (eval-when-form)))
-                         ((lambda (#{tmp\ 10393}#)
-                            ((lambda (#{tmp\ 10394}#)
-                               (if #{tmp\ 10394}#
-                                 (apply (lambda (#{_\ 10399}#
-                                                 #{x\ 10400}#
-                                                 #{e1\ 10401}#
-                                                 #{e2\ 10402}#)
-                                          (let ((#{when-list\ 10405}#
-                                                  (#{chi-when-list\ 9155}#
-                                                    #{e\ 10358}#
-                                                    #{x\ 10400}#
-                                                    #{w\ 10359}#))
-                                                (#{body\ 10406}#
-                                                  (cons #{e1\ 10401}#
-                                                        #{e2\ 10402}#)))
-                                            (if (eq? #{m\ 10333}# (quote e))
+                         ($sc-dispatch #{tmp\ 1515}# (quote (any)))))
+                      #{e\ 1504}#)
+                     (if (memv #{type\ 1502}# (quote (local-syntax-form)))
+                       (#{chi-local-syntax\ 317}#
+                         #{value\ 1503}#
+                         #{e\ 1504}#
+                         #{r\ 1477}#
+                         #{w\ 1505}#
+                         #{s\ 1506}#
+                         #{mod\ 1507}#
+                         (lambda (#{body\ 1528}#
+                                  #{r\ 1529}#
+                                  #{w\ 1530}#
+                                  #{s\ 1531}#
+                                  #{mod\ 1532}#)
+                           (#{chi-top-sequence\ 297}#
+                             #{body\ 1528}#
+                             #{r\ 1529}#
+                             #{w\ 1530}#
+                             #{s\ 1531}#
+                             #{m\ 1479}#
+                             #{esew\ 1480}#
+                             #{mod\ 1532}#)))
+                       (if (memv #{type\ 1502}# (quote (eval-when-form)))
+                         ((lambda (#{tmp\ 1539}#)
+                            ((lambda (#{tmp\ 1540}#)
+                               (if #{tmp\ 1540}#
+                                 (apply (lambda (#{_\ 1545}#
+                                                 #{x\ 1546}#
+                                                 #{e1\ 1547}#
+                                                 #{e2\ 1548}#)
+                                          (let ((#{when-list\ 1551}#
+                                                  (#{chi-when-list\ 301}#
+                                                    #{e\ 1504}#
+                                                    #{x\ 1546}#
+                                                    #{w\ 1505}#))
+                                                (#{body\ 1552}#
+                                                  (cons #{e1\ 1547}#
+                                                        #{e2\ 1548}#)))
+                                            (if (eq? #{m\ 1479}# (quote e))
                                               (if (memq 'eval
-                                                        #{when-list\ 10405}#)
-                                                (#{chi-top-sequence\ 9151}#
-                                                  #{body\ 10406}#
-                                                  #{r\ 10331}#
-                                                  #{w\ 10359}#
-                                                  #{s\ 10360}#
+                                                        #{when-list\ 1551}#)
+                                                (#{chi-top-sequence\ 297}#
+                                                  #{body\ 1552}#
+                                                  #{r\ 1477}#
+                                                  #{w\ 1505}#
+                                                  #{s\ 1506}#
                                                   'e
                                                   '(eval)
-                                                  #{mod\ 10361}#)
-                                                (#{chi-void\ 9175}#))
+                                                  #{mod\ 1507}#)
+                                                (#{chi-void\ 321}#))
                                               (if (memq 'load
-                                                        #{when-list\ 10405}#)
-                                                (if (let ((#{t\ 10415}#
+                                                        #{when-list\ 1551}#)
+                                                (if (let ((#{t\ 1561}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
10405}#)))
-                                                      (if #{t\ 10415}#
-                                                        #{t\ 10415}#
-                                                        (if (eq? #{m\ 10333}#
+                                                                  #{when-list\ 
1551}#)))
+                                                      (if #{t\ 1561}#
+                                                        #{t\ 1561}#
+                                                        (if (eq? #{m\ 1479}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
10405}#)
+                                                                #{when-list\ 
1551}#)
                                                           #f)))
-                                                  (#{chi-top-sequence\ 9151}#
-                                                    #{body\ 10406}#
-                                                    #{r\ 10331}#
-                                                    #{w\ 10359}#
-                                                    #{s\ 10360}#
+                                                  (#{chi-top-sequence\ 297}#
+                                                    #{body\ 1552}#
+                                                    #{r\ 1477}#
+                                                    #{w\ 1505}#
+                                                    #{s\ 1506}#
                                                     'c&e
                                                     '(compile load)
-                                                    #{mod\ 10361}#)
-                                                  (if (memq #{m\ 10333}#
+                                                    #{mod\ 1507}#)
+                                                  (if (memq #{m\ 1479}#
                                                             '(c c&e))
-                                                    (#{chi-top-sequence\ 9151}#
-                                                      #{body\ 10406}#
-                                                      #{r\ 10331}#
-                                                      #{w\ 10359}#
-                                                      #{s\ 10360}#
+                                                    (#{chi-top-sequence\ 297}#
+                                                      #{body\ 1552}#
+                                                      #{r\ 1477}#
+                                                      #{w\ 1505}#
+                                                      #{s\ 1506}#
                                                       'c
                                                       '(load)
-                                                      #{mod\ 10361}#)
-                                                    (#{chi-void\ 9175}#)))
-                                                (if (let ((#{t\ 10423}#
+                                                      #{mod\ 1507}#)
+                                                    (#{chi-void\ 321}#)))
+                                                (if (let ((#{t\ 1569}#
                                                             (memq 'compile
-                                                                  #{when-list\ 
10405}#)))
-                                                      (if #{t\ 10423}#
-                                                        #{t\ 10423}#
-                                                        (if (eq? #{m\ 10333}#
+                                                                  #{when-list\ 
1551}#)))
+                                                      (if #{t\ 1569}#
+                                                        #{t\ 1569}#
+                                                        (if (eq? #{m\ 1479}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list\ 
10405}#)
+                                                                #{when-list\ 
1551}#)
                                                           #f)))
                                                   (begin
-                                                    (#{top-level-eval-hook\ 
8985}#
-                                                      (#{chi-top-sequence\ 
9151}#
-                                                        #{body\ 10406}#
-                                                        #{r\ 10331}#
-                                                        #{w\ 10359}#
-                                                        #{s\ 10360}#
+                                                    (#{top-level-eval-hook\ 
131}#
+                                                      (#{chi-top-sequence\ 
297}#
+                                                        #{body\ 1552}#
+                                                        #{r\ 1477}#
+                                                        #{w\ 1505}#
+                                                        #{s\ 1506}#
                                                         'e
                                                         '(eval)
-                                                        #{mod\ 10361}#)
-                                                      #{mod\ 10361}#)
-                                                    (#{chi-void\ 9175}#))
-                                                  (#{chi-void\ 9175}#))))))
-                                        #{tmp\ 10394}#)
+                                                        #{mod\ 1507}#)
+                                                      #{mod\ 1507}#)
+                                                    (#{chi-void\ 321}#))
+                                                  (#{chi-void\ 321}#))))))
+                                        #{tmp\ 1540}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any 
pattern"
-                                   #{tmp\ 10393}#)))
+                                   #{tmp\ 1539}#)))
                              ($sc-dispatch
-                               #{tmp\ 10393}#
+                               #{tmp\ 1539}#
                                '(any each-any any . each-any))))
-                          #{e\ 10358}#)
-                         (if (memv #{type\ 10356}#
+                          #{e\ 1504}#)
+                         (if (memv #{type\ 1502}#
                                    '(define-syntax-form))
-                           (let ((#{n\ 10431}#
-                                   (#{id-var-name\ 9133}#
-                                     #{value\ 10357}#
-                                     #{w\ 10359}#))
-                                 (#{r\ 10432}#
-                                   (#{macros-only-env\ 9068}# #{r\ 10331}#)))
-                             (if (memv #{m\ 10333}# (quote (c)))
-                               (if (memq (quote compile) #{esew\ 10334}#)
-                                 (let ((#{e\ 10435}#
-                                         (#{chi-install-global\ 9153}#
-                                           #{n\ 10431}#
-                                           (#{chi\ 9161}#
-                                             #{e\ 10358}#
-                                             #{r\ 10432}#
-                                             #{w\ 10359}#
-                                             #{mod\ 10361}#))))
+                           (let ((#{n\ 1577}#
+                                   (#{id-var-name\ 279}#
+                                     #{value\ 1503}#
+                                     #{w\ 1505}#))
+                                 (#{r\ 1578}#
+                                   (#{macros-only-env\ 214}# #{r\ 1477}#)))
+                             (if (memv #{m\ 1479}# (quote (c)))
+                               (if (memq (quote compile) #{esew\ 1480}#)
+                                 (let ((#{e\ 1581}#
+                                         (#{chi-install-global\ 299}#
+                                           #{n\ 1577}#
+                                           (#{chi\ 307}#
+                                             #{e\ 1504}#
+                                             #{r\ 1578}#
+                                             #{w\ 1505}#
+                                             #{mod\ 1507}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 8985}#
-                                       #{e\ 10435}#
-                                       #{mod\ 10361}#)
-                                     (if (memq (quote load) #{esew\ 10334}#)
-                                       #{e\ 10435}#
-                                       (#{chi-void\ 9175}#))))
-                                 (if (memq (quote load) #{esew\ 10334}#)
-                                   (#{chi-install-global\ 9153}#
-                                     #{n\ 10431}#
-                                     (#{chi\ 9161}#
-                                       #{e\ 10358}#
-                                       #{r\ 10432}#
-                                       #{w\ 10359}#
-                                       #{mod\ 10361}#))
-                                   (#{chi-void\ 9175}#)))
-                               (if (memv #{m\ 10333}# (quote (c&e)))
-                                 (let ((#{e\ 10438}#
-                                         (#{chi-install-global\ 9153}#
-                                           #{n\ 10431}#
-                                           (#{chi\ 9161}#
-                                             #{e\ 10358}#
-                                             #{r\ 10432}#
-                                             #{w\ 10359}#
-                                             #{mod\ 10361}#))))
+                                     (#{top-level-eval-hook\ 131}#
+                                       #{e\ 1581}#
+                                       #{mod\ 1507}#)
+                                     (if (memq (quote load) #{esew\ 1480}#)
+                                       #{e\ 1581}#
+                                       (#{chi-void\ 321}#))))
+                                 (if (memq (quote load) #{esew\ 1480}#)
+                                   (#{chi-install-global\ 299}#
+                                     #{n\ 1577}#
+                                     (#{chi\ 307}#
+                                       #{e\ 1504}#
+                                       #{r\ 1578}#
+                                       #{w\ 1505}#
+                                       #{mod\ 1507}#))
+                                   (#{chi-void\ 321}#)))
+                               (if (memv #{m\ 1479}# (quote (c&e)))
+                                 (let ((#{e\ 1584}#
+                                         (#{chi-install-global\ 299}#
+                                           #{n\ 1577}#
+                                           (#{chi\ 307}#
+                                             #{e\ 1504}#
+                                             #{r\ 1578}#
+                                             #{w\ 1505}#
+                                             #{mod\ 1507}#))))
                                    (begin
-                                     (#{top-level-eval-hook\ 8985}#
-                                       #{e\ 10438}#
-                                       #{mod\ 10361}#)
-                                     #{e\ 10438}#))
+                                     (#{top-level-eval-hook\ 131}#
+                                       #{e\ 1584}#
+                                       #{mod\ 1507}#)
+                                     #{e\ 1584}#))
                                  (begin
-                                   (if (memq (quote eval) #{esew\ 10334}#)
-                                     (#{top-level-eval-hook\ 8985}#
-                                       (#{chi-install-global\ 9153}#
-                                         #{n\ 10431}#
-                                         (#{chi\ 9161}#
-                                           #{e\ 10358}#
-                                           #{r\ 10432}#
-                                           #{w\ 10359}#
-                                           #{mod\ 10361}#))
-                                       #{mod\ 10361}#))
-                                   (#{chi-void\ 9175}#)))))
-                           (if (memv #{type\ 10356}# (quote (define-form)))
-                             (let ((#{n\ 10443}#
-                                     (#{id-var-name\ 9133}#
-                                       #{value\ 10357}#
-                                       #{w\ 10359}#)))
-                               (let ((#{type\ 10445}#
-                                       (#{binding-type\ 9059}#
-                                         (#{lookup\ 9070}#
-                                           #{n\ 10443}#
-                                           #{r\ 10331}#
-                                           #{mod\ 10361}#))))
-                                 (if (memv #{type\ 10445}#
+                                   (if (memq (quote eval) #{esew\ 1480}#)
+                                     (#{top-level-eval-hook\ 131}#
+                                       (#{chi-install-global\ 299}#
+                                         #{n\ 1577}#
+                                         (#{chi\ 307}#
+                                           #{e\ 1504}#
+                                           #{r\ 1578}#
+                                           #{w\ 1505}#
+                                           #{mod\ 1507}#))
+                                       #{mod\ 1507}#))
+                                   (#{chi-void\ 321}#)))))
+                           (if (memv #{type\ 1502}# (quote (define-form)))
+                             (let ((#{n\ 1589}#
+                                     (#{id-var-name\ 279}#
+                                       #{value\ 1503}#
+                                       #{w\ 1505}#)))
+                               (let ((#{type\ 1591}#
+                                       (#{binding-type\ 205}#
+                                         (#{lookup\ 216}#
+                                           #{n\ 1589}#
+                                           #{r\ 1477}#
+                                           #{mod\ 1507}#))))
+                                 (if (memv #{type\ 1591}#
                                            '(global core macro module-ref))
                                    (begin
-                                     (if (if (not (module-local-variable
-                                                    (current-module)
-                                                    #{n\ 10443}#))
-                                           (current-module)
+                                     (if (if (memq #{m\ 1479}# (quote (c c&e)))
+                                           (if (not (module-local-variable
+                                                      (current-module)
+                                                      #{n\ 1589}#))
+                                             (current-module)
+                                             #f)
                                            #f)
-                                       (let ((#{old\ 10450}#
+                                       (let ((#{old\ 1597}#
                                                (module-variable
                                                  (current-module)
-                                                 #{n\ 10443}#)))
+                                                 #{n\ 1589}#)))
                                          (module-define!
                                            (current-module)
-                                           #{n\ 10443}#
-                                           (if (variable? #{old\ 10450}#)
-                                             (variable-ref #{old\ 10450}#)
+                                           #{n\ 1589}#
+                                           (if (variable? #{old\ 1597}#)
+                                             (variable-ref #{old\ 1597}#)
                                              #f))))
-                                     (let ((#{x\ 10453}#
-                                             (#{build-global-definition\ 9016}#
-                                               #{s\ 10360}#
-                                               #{n\ 10443}#
-                                               (#{chi\ 9161}#
-                                                 #{e\ 10358}#
-                                                 #{r\ 10331}#
-                                                 #{w\ 10359}#
-                                                 #{mod\ 10361}#))))
+                                     (let ((#{x\ 1600}#
+                                             (#{build-global-definition\ 162}#
+                                               #{s\ 1506}#
+                                               #{n\ 1589}#
+                                               (#{chi\ 307}#
+                                                 #{e\ 1504}#
+                                                 #{r\ 1477}#
+                                                 #{w\ 1505}#
+                                                 #{mod\ 1507}#))))
                                        (begin
-                                         (if (eq? #{m\ 10333}# (quote c&e))
-                                           (#{top-level-eval-hook\ 8985}#
-                                             #{x\ 10453}#
-                                             #{mod\ 10361}#))
-                                         #{x\ 10453}#)))
-                                   (if (memv #{type\ 10445}#
+                                         (if (eq? #{m\ 1479}# (quote c&e))
+                                           (#{top-level-eval-hook\ 131}#
+                                             #{x\ 1600}#
+                                             #{mod\ 1507}#))
+                                         #{x\ 1600}#)))
+                                   (if (memv #{type\ 1591}#
                                              '(displaced-lexical))
                                      (syntax-violation
                                        #f
                                        "identifier out of context"
-                                       #{e\ 10358}#
-                                       (#{wrap\ 9145}#
-                                         #{value\ 10357}#
-                                         #{w\ 10359}#
-                                         #{mod\ 10361}#))
+                                       #{e\ 1504}#
+                                       (#{wrap\ 291}#
+                                         #{value\ 1503}#
+                                         #{w\ 1505}#
+                                         #{mod\ 1507}#))
                                      (syntax-violation
                                        #f
                                        "cannot define keyword at top level"
-                                       #{e\ 10358}#
-                                       (#{wrap\ 9145}#
-                                         #{value\ 10357}#
-                                         #{w\ 10359}#
-                                         #{mod\ 10361}#))))))
-                             (let ((#{x\ 10459}#
-                                     (#{chi-expr\ 9163}#
-                                       #{type\ 10356}#
-                                       #{value\ 10357}#
-                                       #{e\ 10358}#
-                                       #{r\ 10331}#
-                                       #{w\ 10359}#
-                                       #{s\ 10360}#
-                                       #{mod\ 10361}#)))
+                                       #{e\ 1504}#
+                                       (#{wrap\ 291}#
+                                         #{value\ 1503}#
+                                         #{w\ 1505}#
+                                         #{mod\ 1507}#))))))
+                             (let ((#{x\ 1606}#
+                                     (#{chi-expr\ 309}#
+                                       #{type\ 1502}#
+                                       #{value\ 1503}#
+                                       #{e\ 1504}#
+                                       #{r\ 1477}#
+                                       #{w\ 1505}#
+                                       #{s\ 1506}#
+                                       #{mod\ 1507}#)))
                                (begin
-                                 (if (eq? #{m\ 10333}# (quote c&e))
-                                   (#{top-level-eval-hook\ 8985}#
-                                     #{x\ 10459}#
-                                     #{mod\ 10361}#))
-                                 #{x\ 10459}#)))))))))))
-           (#{syntax-type\ 9157}#
-             (lambda (#{e\ 10460}#
-                      #{r\ 10461}#
-                      #{w\ 10462}#
-                      #{s\ 10463}#
-                      #{rib\ 10464}#
-                      #{mod\ 10465}#
-                      #{for-car?\ 10466}#)
-               (if (symbol? #{e\ 10460}#)
-                 (let ((#{n\ 10478}#
-                         (#{id-var-name\ 9133}# #{e\ 10460}# #{w\ 10462}#)))
-                   (let ((#{b\ 10480}#
-                           (#{lookup\ 9070}#
-                             #{n\ 10478}#
-                             #{r\ 10461}#
-                             #{mod\ 10465}#)))
-                     (let ((#{type\ 10482}#
-                             (#{binding-type\ 9059}# #{b\ 10480}#)))
-                       (if (memv #{type\ 10482}# (quote (lexical)))
+                                 (if (eq? #{m\ 1479}# (quote c&e))
+                                   (#{top-level-eval-hook\ 131}#
+                                     #{x\ 1606}#
+                                     #{mod\ 1507}#))
+                                 #{x\ 1606}#)))))))))))
+           (#{syntax-type\ 303}#
+             (lambda (#{e\ 1607}#
+                      #{r\ 1608}#
+                      #{w\ 1609}#
+                      #{s\ 1610}#
+                      #{rib\ 1611}#
+                      #{mod\ 1612}#
+                      #{for-car?\ 1613}#)
+               (if (symbol? #{e\ 1607}#)
+                 (let ((#{n\ 1625}#
+                         (#{id-var-name\ 279}# #{e\ 1607}# #{w\ 1609}#)))
+                   (let ((#{b\ 1627}#
+                           (#{lookup\ 216}#
+                             #{n\ 1625}#
+                             #{r\ 1608}#
+                             #{mod\ 1612}#)))
+                     (let ((#{type\ 1629}#
+                             (#{binding-type\ 205}# #{b\ 1627}#)))
+                       (if (memv #{type\ 1629}# (quote (lexical)))
                          (values
-                           #{type\ 10482}#
-                           (#{binding-value\ 9061}# #{b\ 10480}#)
-                           #{e\ 10460}#
-                           #{w\ 10462}#
-                           #{s\ 10463}#
-                           #{mod\ 10465}#)
-                         (if (memv #{type\ 10482}# (quote (global)))
+                           #{type\ 1629}#
+                           (#{binding-value\ 207}# #{b\ 1627}#)
+                           #{e\ 1607}#
+                           #{w\ 1609}#
+                           #{s\ 1610}#
+                           #{mod\ 1612}#)
+                         (if (memv #{type\ 1629}# (quote (global)))
                            (values
-                             #{type\ 10482}#
-                             #{n\ 10478}#
-                             #{e\ 10460}#
-                             #{w\ 10462}#
-                             #{s\ 10463}#
-                             #{mod\ 10465}#)
-                           (if (memv #{type\ 10482}# (quote (macro)))
-                             (if #{for-car?\ 10466}#
+                             #{type\ 1629}#
+                             #{n\ 1625}#
+                             #{e\ 1607}#
+                             #{w\ 1609}#
+                             #{s\ 1610}#
+                             #{mod\ 1612}#)
+                           (if (memv #{type\ 1629}# (quote (macro)))
+                             (if #{for-car?\ 1613}#
                                (values
-                                 #{type\ 10482}#
-                                 (#{binding-value\ 9061}# #{b\ 10480}#)
-                                 #{e\ 10460}#
-                                 #{w\ 10462}#
-                                 #{s\ 10463}#
-                                 #{mod\ 10465}#)
-                               (#{syntax-type\ 9157}#
-                                 (#{chi-macro\ 9167}#
-                                   (#{binding-value\ 9061}# #{b\ 10480}#)
-                                   #{e\ 10460}#
-                                   #{r\ 10461}#
-                                   #{w\ 10462}#
-                                   #{rib\ 10464}#
-                                   #{mod\ 10465}#)
-                                 #{r\ 10461}#
+                                 #{type\ 1629}#
+                                 (#{binding-value\ 207}# #{b\ 1627}#)
+                                 #{e\ 1607}#
+                                 #{w\ 1609}#
+                                 #{s\ 1610}#
+                                 #{mod\ 1612}#)
+                               (#{syntax-type\ 303}#
+                                 (#{chi-macro\ 313}#
+                                   (#{binding-value\ 207}# #{b\ 1627}#)
+                                   #{e\ 1607}#
+                                   #{r\ 1608}#
+                                   #{w\ 1609}#
+                                   #{rib\ 1611}#
+                                   #{mod\ 1612}#)
+                                 #{r\ 1608}#
                                  '(())
-                                 #{s\ 10463}#
-                                 #{rib\ 10464}#
-                                 #{mod\ 10465}#
+                                 #{s\ 1610}#
+                                 #{rib\ 1611}#
+                                 #{mod\ 1612}#
                                  #f))
                              (values
-                               #{type\ 10482}#
-                               (#{binding-value\ 9061}# #{b\ 10480}#)
-                               #{e\ 10460}#
-                               #{w\ 10462}#
-                               #{s\ 10463}#
-                               #{mod\ 10465}#)))))))
-                 (if (pair? #{e\ 10460}#)
-                   (let ((#{first\ 10491}# (car #{e\ 10460}#)))
+                               #{type\ 1629}#
+                               (#{binding-value\ 207}# #{b\ 1627}#)
+                               #{e\ 1607}#
+                               #{w\ 1609}#
+                               #{s\ 1610}#
+                               #{mod\ 1612}#)))))))
+                 (if (pair? #{e\ 1607}#)
+                   (let ((#{first\ 1638}# (car #{e\ 1607}#)))
                      (call-with-values
                        (lambda ()
-                         (#{syntax-type\ 9157}#
-                           #{first\ 10491}#
-                           #{r\ 10461}#
-                           #{w\ 10462}#
-                           #{s\ 10463}#
-                           #{rib\ 10464}#
-                           #{mod\ 10465}#
+                         (#{syntax-type\ 303}#
+                           #{first\ 1638}#
+                           #{r\ 1608}#
+                           #{w\ 1609}#
+                           #{s\ 1610}#
+                           #{rib\ 1611}#
+                           #{mod\ 1612}#
                            #t))
-                       (lambda (#{ftype\ 10492}#
-                                #{fval\ 10493}#
-                                #{fe\ 10494}#
-                                #{fw\ 10495}#
-                                #{fs\ 10496}#
-                                #{fmod\ 10497}#)
-                         (if (memv #{ftype\ 10492}# (quote (lexical)))
+                       (lambda (#{ftype\ 1639}#
+                                #{fval\ 1640}#
+                                #{fe\ 1641}#
+                                #{fw\ 1642}#
+                                #{fs\ 1643}#
+                                #{fmod\ 1644}#)
+                         (if (memv #{ftype\ 1639}# (quote (lexical)))
                            (values
                              'lexical-call
-                             #{fval\ 10493}#
-                             #{e\ 10460}#
-                             #{w\ 10462}#
-                             #{s\ 10463}#
-                             #{mod\ 10465}#)
-                           (if (memv #{ftype\ 10492}# (quote (global)))
+                             #{fval\ 1640}#
+                             #{e\ 1607}#
+                             #{w\ 1609}#
+                             #{s\ 1610}#
+                             #{mod\ 1612}#)
+                           (if (memv #{ftype\ 1639}# (quote (global)))
                              (values
                                'global-call
-                               (#{make-syntax-object\ 9038}#
-                                 #{fval\ 10493}#
-                                 #{w\ 10462}#
-                                 #{fmod\ 10497}#)
-                               #{e\ 10460}#
-                               #{w\ 10462}#
-                               #{s\ 10463}#
-                               #{mod\ 10465}#)
-                             (if (memv #{ftype\ 10492}# (quote (macro)))
-                               (#{syntax-type\ 9157}#
-                                 (#{chi-macro\ 9167}#
-                                   #{fval\ 10493}#
-                                   #{e\ 10460}#
-                                   #{r\ 10461}#
-                                   #{w\ 10462}#
-                                   #{rib\ 10464}#
-                                   #{mod\ 10465}#)
-                                 #{r\ 10461}#
+                               (#{make-syntax-object\ 184}#
+                                 #{fval\ 1640}#
+                                 #{w\ 1609}#
+                                 #{fmod\ 1644}#)
+                               #{e\ 1607}#
+                               #{w\ 1609}#
+                               #{s\ 1610}#
+                               #{mod\ 1612}#)
+                             (if (memv #{ftype\ 1639}# (quote (macro)))
+                               (#{syntax-type\ 303}#
+                                 (#{chi-macro\ 313}#
+                                   #{fval\ 1640}#
+                                   #{e\ 1607}#
+                                   #{r\ 1608}#
+                                   #{w\ 1609}#
+                                   #{rib\ 1611}#
+                                   #{mod\ 1612}#)
+                                 #{r\ 1608}#
                                  '(())
-                                 #{s\ 10463}#
-                                 #{rib\ 10464}#
-                                 #{mod\ 10465}#
-                                 #{for-car?\ 10466}#)
-                               (if (memv #{ftype\ 10492}# (quote (module-ref)))
+                                 #{s\ 1610}#
+                                 #{rib\ 1611}#
+                                 #{mod\ 1612}#
+                                 #{for-car?\ 1613}#)
+                               (if (memv #{ftype\ 1639}# (quote (module-ref)))
                                  (call-with-values
-                                   (lambda () (#{fval\ 10493}# #{e\ 10460}#))
-                                   (lambda (#{sym\ 10509}# #{mod\ 10510}#)
-                                     (#{syntax-type\ 9157}#
-                                       #{sym\ 10509}#
-                                       #{r\ 10461}#
-                                       #{w\ 10462}#
-                                       #{s\ 10463}#
-                                       #{rib\ 10464}#
-                                       #{mod\ 10510}#
-                                       #{for-car?\ 10466}#)))
-                                 (if (memv #{ftype\ 10492}# (quote (core)))
+                                   (lambda () (#{fval\ 1640}# #{e\ 1607}#))
+                                   (lambda (#{sym\ 1656}# #{mod\ 1657}#)
+                                     (#{syntax-type\ 303}#
+                                       #{sym\ 1656}#
+                                       #{r\ 1608}#
+                                       #{w\ 1609}#
+                                       #{s\ 1610}#
+                                       #{rib\ 1611}#
+                                       #{mod\ 1657}#
+                                       #{for-car?\ 1613}#)))
+                                 (if (memv #{ftype\ 1639}# (quote (core)))
                                    (values
                                      'core-form
-                                     #{fval\ 10493}#
-                                     #{e\ 10460}#
-                                     #{w\ 10462}#
-                                     #{s\ 10463}#
-                                     #{mod\ 10465}#)
-                                   (if (memv #{ftype\ 10492}#
+                                     #{fval\ 1640}#
+                                     #{e\ 1607}#
+                                     #{w\ 1609}#
+                                     #{s\ 1610}#
+                                     #{mod\ 1612}#)
+                                   (if (memv #{ftype\ 1639}#
                                              '(local-syntax))
                                      (values
                                        'local-syntax-form
-                                       #{fval\ 10493}#
-                                       #{e\ 10460}#
-                                       #{w\ 10462}#
-                                       #{s\ 10463}#
-                                       #{mod\ 10465}#)
-                                     (if (memv #{ftype\ 10492}#
-                                               '(begin))
+                                       #{fval\ 1640}#
+                                       #{e\ 1607}#
+                                       #{w\ 1609}#
+                                       #{s\ 1610}#
+                                       #{mod\ 1612}#)
+                                     (if (memv #{ftype\ 1639}# (quote (begin)))
                                        (values
                                          'begin-form
                                          #f
-                                         #{e\ 10460}#
-                                         #{w\ 10462}#
-                                         #{s\ 10463}#
-                                         #{mod\ 10465}#)
-                                       (if (memv #{ftype\ 10492}#
+                                         #{e\ 1607}#
+                                         #{w\ 1609}#
+                                         #{s\ 1610}#
+                                         #{mod\ 1612}#)
+                                       (if (memv #{ftype\ 1639}#
                                                  '(eval-when))
                                          (values
                                            'eval-when-form
                                            #f
-                                           #{e\ 10460}#
-                                           #{w\ 10462}#
-                                           #{s\ 10463}#
-                                           #{mod\ 10465}#)
-                                         (if (memv #{ftype\ 10492}#
+                                           #{e\ 1607}#
+                                           #{w\ 1609}#
+                                           #{s\ 1610}#
+                                           #{mod\ 1612}#)
+                                         (if (memv #{ftype\ 1639}#
                                                    '(define))
-                                           ((lambda (#{tmp\ 10518}#)
-                                              ((lambda (#{tmp\ 10519}#)
-                                                 (if (if #{tmp\ 10519}#
-                                                       (apply (lambda (#{_\ 
10523}#
-                                                                       #{name\ 
10524}#
-                                                                       #{val\ 
10525}#)
-                                                                (#{id?\ 9076}#
-                                                                  #{name\ 
10524}#))
-                                                              #{tmp\ 10519}#)
+                                           ((lambda (#{tmp\ 1665}#)
+                                              ((lambda (#{tmp\ 1666}#)
+                                                 (if (if #{tmp\ 1666}#
+                                                       (apply (lambda (#{_\ 
1670}#
+                                                                       #{name\ 
1671}#
+                                                                       #{val\ 
1672}#)
+                                                                (#{id?\ 222}#
+                                                                  #{name\ 
1671}#))
+                                                              #{tmp\ 1666}#)
                                                        #f)
-                                                   (apply (lambda (#{_\ 10529}#
-                                                                   #{name\ 
10530}#
-                                                                   #{val\ 
10531}#)
+                                                   (apply (lambda (#{_\ 1676}#
+                                                                   #{name\ 
1677}#
+                                                                   #{val\ 
1678}#)
                                                             (values
                                                               'define-form
-                                                              #{name\ 10530}#
-                                                              #{val\ 10531}#
-                                                              #{w\ 10462}#
-                                                              #{s\ 10463}#
-                                                              #{mod\ 10465}#))
-                                                          #{tmp\ 10519}#)
-                                                   ((lambda (#{tmp\ 10532}#)
-                                                      (if (if #{tmp\ 10532}#
-                                                            (apply (lambda 
(#{_\ 10538}#
-                                                                            
#{name\ 10539}#
-                                                                            
#{args\ 10540}#
-                                                                            
#{e1\ 10541}#
-                                                                            
#{e2\ 10542}#)
-                                                                     (if 
(#{id?\ 9076}#
-                                                                           
#{name\ 10539}#)
-                                                                       
(#{valid-bound-ids?\ 9139}#
-                                                                         
(#{lambda-var-list\ 9191}#
-                                                                           
#{args\ 10540}#))
+                                                              #{name\ 1677}#
+                                                              #{val\ 1678}#
+                                                              #{w\ 1609}#
+                                                              #{s\ 1610}#
+                                                              #{mod\ 1612}#))
+                                                          #{tmp\ 1666}#)
+                                                   ((lambda (#{tmp\ 1679}#)
+                                                      (if (if #{tmp\ 1679}#
+                                                            (apply (lambda 
(#{_\ 1685}#
+                                                                            
#{name\ 1686}#
+                                                                            
#{args\ 1687}#
+                                                                            
#{e1\ 1688}#
+                                                                            
#{e2\ 1689}#)
+                                                                     (if 
(#{id?\ 222}#
+                                                                           
#{name\ 1686}#)
+                                                                       
(#{valid-bound-ids?\ 285}#
+                                                                         
(#{lambda-var-list\ 337}#
+                                                                           
#{args\ 1687}#))
                                                                        #f))
-                                                                   #{tmp\ 
10532}#)
+                                                                   #{tmp\ 
1679}#)
                                                             #f)
-                                                        (apply (lambda (#{_\ 
10550}#
-                                                                        
#{name\ 10551}#
-                                                                        
#{args\ 10552}#
-                                                                        #{e1\ 
10553}#
-                                                                        #{e2\ 
10554}#)
+                                                        (apply (lambda (#{_\ 
1697}#
+                                                                        
#{name\ 1698}#
+                                                                        
#{args\ 1699}#
+                                                                        #{e1\ 
1700}#
+                                                                        #{e2\ 
1701}#)
                                                                  (values
                                                                    'define-form
-                                                                   (#{wrap\ 
9145}#
-                                                                     #{name\ 
10551}#
-                                                                     #{w\ 
10462}#
-                                                                     #{mod\ 
10465}#)
-                                                                   
(#{decorate-source\ 8994}#
+                                                                   (#{wrap\ 
291}#
+                                                                     #{name\ 
1698}#
+                                                                     #{w\ 
1609}#
+                                                                     #{mod\ 
1612}#)
+                                                                   
(#{decorate-source\ 140}#
                                                                      (cons 
'#(syntax-object
                                                                               
lambda
                                                                               
((top)
@@ -3610,11 +3600,11 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i10545"
-                                                                               
    "i10546"
-                                                                               
    "i10547"
-                                                                               
    "i10548"
-                                                                               
    "i10549"))
+                                                                               
  #("i1692"
+                                                                               
    "i1693"
+                                                                               
    "i1694"
+                                                                               
    "i1695"
+                                                                               
    "i1696"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3636,12 +3626,12 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i10498"
-                                                                               
    "i10499"
-                                                                               
    "i10500"
-                                                                               
    "i10501"
-                                                                               
    "i10502"
-                                                                               
    "i10503"))
+                                                                               
  #("i1645"
+                                                                               
    "i1646"
+                                                                               
    "i1647"
+                                                                               
    "i1648"
+                                                                               
    "i1649"
+                                                                               
    "i1650"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3649,7 +3639,7 @@
                                                                                
#(ribcage
                                                                                
  #(first)
                                                                                
  #((top))
-                                                                               
  #("i10490"))
+                                                                               
  #("i1637"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -3677,13 +3667,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i10467"
-                                                                               
    "i10468"
-                                                                               
    "i10469"
-                                                                               
    "i10470"
-                                                                               
    "i10471"
-                                                                               
    "i10472"
-                                                                               
    "i10473"))
+                                                                               
  #("i1614"
+                                                                               
    "i1615"
+                                                                               
    "i1616"
+                                                                               
    "i1617"
+                                                                               
    "i1618"
+                                                                               
    "i1619"
+                                                                               
    "i1620"))
                                                                                
#(ribcage
                                                                                
  (lambda-var-list
                                                                                
    gen-var
@@ -3921,160 +3911,160 @@
                                                                                
   (top)
                                                                                
   (top)
                                                                                
   (top))
-                                                                               
  ("i9190"
-                                                                               
   "i9188"
-                                                                               
   "i9186"
-                                                                               
   "i9184"
-                                                                               
   "i9182"
-                                                                               
   "i9180"
-                                                                               
   "i9178"
-                                                                               
   "i9176"
-                                                                               
   "i9174"
-                                                                               
   "i9172"
-                                                                               
   "i9170"
-                                                                               
   "i9168"
-                                                                               
   "i9166"
-                                                                               
   "i9164"
-                                                                               
   "i9162"
-                                                                               
   "i9160"
-                                                                               
   "i9158"
-                                                                               
   "i9156"
-                                                                               
   "i9154"
-                                                                               
   "i9152"
-                                                                               
   "i9150"
-                                                                               
   "i9148"
-                                                                               
   "i9146"
-                                                                               
   "i9144"
-                                                                               
   "i9142"
-                                                                               
   "i9140"
-                                                                               
   "i9138"
-                                                                               
   "i9136"
-                                                                               
   "i9134"
-                                                                               
   "i9132"
-                                                                               
   "i9130"
-                                                                               
   "i9128"
-                                                                               
   "i9126"
-                                                                               
   "i9124"
-                                                                               
   "i9122"
-                                                                               
   "i9120"
-                                                                               
   "i9119"
-                                                                               
   "i9118"
-                                                                               
   "i9116"
-                                                                               
   "i9115"
-                                                                               
   "i9114"
-                                                                               
   "i9113"
-                                                                               
   "i9112"
-                                                                               
   "i9110"
-                                                                               
   "i9108"
-                                                                               
   "i9106"
-                                                                               
   "i9104"
-                                                                               
   "i9102"
-                                                                               
   "i9100"
-                                                                               
   "i9098"
-                                                                               
   "i9096"
-                                                                               
   "i9093"
-                                                                               
   "i9091"
-                                                                               
   "i9090"
-                                                                               
   "i9089"
-                                                                               
   "i9088"
-                                                                               
   "i9087"
-                                                                               
   "i9086"
-                                                                               
   "i9084"
-                                                                               
   "i9082"
-                                                                               
   "i9080"
-                                                                               
   "i9078"
-                                                                               
   "i9077"
-                                                                               
   "i9075"
-                                                                               
   "i9073"
-                                                                               
   "i9071"
-                                                                               
   "i9069"
-                                                                               
   "i9067"
-                                                                               
   "i9065"
-                                                                               
   "i9063"
-                                                                               
   "i9062"
-                                                                               
   "i9060"
-                                                                               
   "i9058"
-                                                                               
   "i9057"
-                                                                               
   "i9056"
-                                                                               
   "i9054"
-                                                                               
   "i9053"
-                                                                               
   "i9051"
-                                                                               
   "i9049"
-                                                                               
   "i9047"
-                                                                               
   "i9045"
-                                                                               
   "i9043"
-                                                                               
   "i9041"
-                                                                               
   "i9039"
-                                                                               
   "i9037"
-                                                                               
   "i9035"
-                                                                               
   "i9033"
-                                                                               
   "i9031"
-                                                                               
   "i9029"
-                                                                               
   "i9027"
-                                                                               
   "i9025"
-                                                                               
   "i9023"
-                                                                               
   "i9021"
-                                                                               
   "i9019"
-                                                                               
   "i9017"
-                                                                               
   "i9015"
-                                                                               
   "i9013"
-                                                                               
   "i9011"
-                                                                               
   "i9009"
-                                                                               
   "i9007"
-                                                                               
   "i9005"
-                                                                               
   "i9003"
-                                                                               
   "i9001"
-                                                                               
   "i8999"
-                                                                               
   "i8997"
-                                                                               
   "i8995"
-                                                                               
   "i8993"
-                                                                               
   "i8991"
-                                                                               
   "i8989"
-                                                                               
   "i8988"
-                                                                               
   "i8986"
-                                                                               
   "i8984"
-                                                                               
   "i8982"
-                                                                               
   "i8980"
-                                                                               
   "i8978"
-                                                                               
   "i8976"
-                                                                               
   "i8974"
-                                                                               
   "i8972"))
+                                                                               
  ("i336"
+                                                                               
   "i334"
+                                                                               
   "i332"
+                                                                               
   "i330"
+                                                                               
   "i328"
+                                                                               
   "i326"
+                                                                               
   "i324"
+                                                                               
   "i322"
+                                                                               
   "i320"
+                                                                               
   "i318"
+                                                                               
   "i316"
+                                                                               
   "i314"
+                                                                               
   "i312"
+                                                                               
   "i310"
+                                                                               
   "i308"
+                                                                               
   "i306"
+                                                                               
   "i304"
+                                                                               
   "i302"
+                                                                               
   "i300"
+                                                                               
   "i298"
+                                                                               
   "i296"
+                                                                               
   "i294"
+                                                                               
   "i292"
+                                                                               
   "i290"
+                                                                               
   "i288"
+                                                                               
   "i286"
+                                                                               
   "i284"
+                                                                               
   "i282"
+                                                                               
   "i280"
+                                                                               
   "i278"
+                                                                               
   "i276"
+                                                                               
   "i274"
+                                                                               
   "i272"
+                                                                               
   "i270"
+                                                                               
   "i268"
+                                                                               
   "i266"
+                                                                               
   "i265"
+                                                                               
   "i264"
+                                                                               
   "i262"
+                                                                               
   "i261"
+                                                                               
   "i260"
+                                                                               
   "i259"
+                                                                               
   "i258"
+                                                                               
   "i256"
+                                                                               
   "i254"
+                                                                               
   "i252"
+                                                                               
   "i250"
+                                                                               
   "i248"
+                                                                               
   "i246"
+                                                                               
   "i244"
+                                                                               
   "i242"
+                                                                               
   "i239"
+                                                                               
   "i237"
+                                                                               
   "i236"
+                                                                               
   "i235"
+                                                                               
   "i234"
+                                                                               
   "i233"
+                                                                               
   "i232"
+                                                                               
   "i230"
+                                                                               
   "i228"
+                                                                               
   "i226"
+                                                                               
   "i224"
+                                                                               
   "i223"
+                                                                               
   "i221"
+                                                                               
   "i219"
+                                                                               
   "i217"
+                                                                               
   "i215"
+                                                                               
   "i213"
+                                                                               
   "i211"
+                                                                               
   "i209"
+                                                                               
   "i208"
+                                                                               
   "i206"
+                                                                               
   "i204"
+                                                                               
   "i203"
+                                                                               
   "i202"
+                                                                               
   "i200"
+                                                                               
   "i199"
+                                                                               
   "i197"
+                                                                               
   "i195"
+                                                                               
   "i193"
+                                                                               
   "i191"
+                                                                               
   "i189"
+                                                                               
   "i187"
+                                                                               
   "i185"
+                                                                               
   "i183"
+                                                                               
   "i181"
+                                                                               
   "i179"
+                                                                               
   "i177"
+                                                                               
   "i175"
+                                                                               
   "i173"
+                                                                               
   "i171"
+                                                                               
   "i169"
+                                                                               
   "i167"
+                                                                               
   "i165"
+                                                                               
   "i163"
+                                                                               
   "i161"
+                                                                               
   "i159"
+                                                                               
   "i157"
+                                                                               
   "i155"
+                                                                               
   "i153"
+                                                                               
   "i151"
+                                                                               
   "i149"
+                                                                               
   "i147"
+                                                                               
   "i145"
+                                                                               
   "i143"
+                                                                               
   "i141"
+                                                                               
   "i139"
+                                                                               
   "i137"
+                                                                               
   "i135"
+                                                                               
   "i134"
+                                                                               
   "i132"
+                                                                               
   "i130"
+                                                                               
   "i128"
+                                                                               
   "i126"
+                                                                               
   "i124"
+                                                                               
   "i122"
+                                                                               
   "i120"
+                                                                               
   "i118"))
                                                                                
#(ribcage
                                                                                
  (define-structure
                                                                                
    and-map*)
                                                                                
  ((top)
                                                                                
   (top))
-                                                                               
  ("i8875"
-                                                                               
   "i8873")))
+                                                                               
  ("i21"
+                                                                               
   "i19")))
                                                                               
(hygiene
                                                                                
 guile))
-                                                                           
(#{wrap\ 9145}#
-                                                                             
(cons #{args\ 10552}#
-                                                                               
    (cons #{e1\ 10553}#
-                                                                               
          #{e2\ 10554}#))
-                                                                             
#{w\ 10462}#
-                                                                             
#{mod\ 10465}#))
-                                                                     #{s\ 
10463}#)
+                                                                           
(#{wrap\ 291}#
+                                                                             
(cons #{args\ 1699}#
+                                                                               
    (cons #{e1\ 1700}#
+                                                                               
          #{e2\ 1701}#))
+                                                                             
#{w\ 1609}#
+                                                                             
#{mod\ 1612}#))
+                                                                     #{s\ 
1610}#)
                                                                    '(())
-                                                                   #{s\ 10463}#
-                                                                   #{mod\ 
10465}#))
-                                                               #{tmp\ 10532}#)
-                                                        ((lambda (#{tmp\ 
10557}#)
-                                                           (if (if #{tmp\ 
10557}#
-                                                                 (apply 
(lambda (#{_\ 10560}#
-                                                                               
  #{name\ 10561}#)
-                                                                          
(#{id?\ 9076}#
-                                                                            
#{name\ 10561}#))
-                                                                        #{tmp\ 
10557}#)
+                                                                   #{s\ 1610}#
+                                                                   #{mod\ 
1612}#))
+                                                               #{tmp\ 1679}#)
+                                                        ((lambda (#{tmp\ 
1704}#)
+                                                           (if (if #{tmp\ 
1704}#
+                                                                 (apply 
(lambda (#{_\ 1707}#
+                                                                               
  #{name\ 1708}#)
+                                                                          
(#{id?\ 222}#
+                                                                            
#{name\ 1708}#))
+                                                                        #{tmp\ 
1704}#)
                                                                  #f)
-                                                             (apply (lambda 
(#{_\ 10564}#
-                                                                             
#{name\ 10565}#)
+                                                             (apply (lambda 
(#{_\ 1711}#
+                                                                             
#{name\ 1712}#)
                                                                       (values
                                                                         
'define-form
-                                                                        
(#{wrap\ 9145}#
-                                                                          
#{name\ 10565}#
-                                                                          #{w\ 
10462}#
-                                                                          
#{mod\ 10465}#)
+                                                                        
(#{wrap\ 291}#
+                                                                          
#{name\ 1712}#
+                                                                          #{w\ 
1609}#
+                                                                          
#{mod\ 1612}#)
                                                                         
'(#(syntax-object
                                                                             if
                                                                             
((top)
@@ -4083,8 +4073,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i10562"
-                                                                               
  "i10563"))
+                                                                               
#("i1709"
+                                                                               
  "i1710"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4106,12 +4096,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i10498"
-                                                                               
  "i10499"
-                                                                               
  "i10500"
-                                                                               
  "i10501"
-                                                                               
  "i10502"
-                                                                               
  "i10503"))
+                                                                               
#("i1645"
+                                                                               
  "i1646"
+                                                                               
  "i1647"
+                                                                               
  "i1648"
+                                                                               
  "i1649"
+                                                                               
  "i1650"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4119,7 +4109,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i10490"))
+                                                                               
#("i1637"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4147,13 +4137,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i10467"
-                                                                               
  "i10468"
-                                                                               
  "i10469"
-                                                                               
  "i10470"
-                                                                               
  "i10471"
-                                                                               
  "i10472"
-                                                                               
  "i10473"))
+                                                                               
#("i1614"
+                                                                               
  "i1615"
+                                                                               
  "i1616"
+                                                                               
  "i1617"
+                                                                               
  "i1618"
+                                                                               
  "i1619"
+                                                                               
  "i1620"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4391,131 +4381,131 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i9190"
-                                                                               
 "i9188"
-                                                                               
 "i9186"
-                                                                               
 "i9184"
-                                                                               
 "i9182"
-                                                                               
 "i9180"
-                                                                               
 "i9178"
-                                                                               
 "i9176"
-                                                                               
 "i9174"
-                                                                               
 "i9172"
-                                                                               
 "i9170"
-                                                                               
 "i9168"
-                                                                               
 "i9166"
-                                                                               
 "i9164"
-                                                                               
 "i9162"
-                                                                               
 "i9160"
-                                                                               
 "i9158"
-                                                                               
 "i9156"
-                                                                               
 "i9154"
-                                                                               
 "i9152"
-                                                                               
 "i9150"
-                                                                               
 "i9148"
-                                                                               
 "i9146"
-                                                                               
 "i9144"
-                                                                               
 "i9142"
-                                                                               
 "i9140"
-                                                                               
 "i9138"
-                                                                               
 "i9136"
-                                                                               
 "i9134"
-                                                                               
 "i9132"
-                                                                               
 "i9130"
-                                                                               
 "i9128"
-                                                                               
 "i9126"
-                                                                               
 "i9124"
-                                                                               
 "i9122"
-                                                                               
 "i9120"
-                                                                               
 "i9119"
-                                                                               
 "i9118"
-                                                                               
 "i9116"
-                                                                               
 "i9115"
-                                                                               
 "i9114"
-                                                                               
 "i9113"
-                                                                               
 "i9112"
-                                                                               
 "i9110"
-                                                                               
 "i9108"
-                                                                               
 "i9106"
-                                                                               
 "i9104"
-                                                                               
 "i9102"
-                                                                               
 "i9100"
-                                                                               
 "i9098"
-                                                                               
 "i9096"
-                                                                               
 "i9093"
-                                                                               
 "i9091"
-                                                                               
 "i9090"
-                                                                               
 "i9089"
-                                                                               
 "i9088"
-                                                                               
 "i9087"
-                                                                               
 "i9086"
-                                                                               
 "i9084"
-                                                                               
 "i9082"
-                                                                               
 "i9080"
-                                                                               
 "i9078"
-                                                                               
 "i9077"
-                                                                               
 "i9075"
-                                                                               
 "i9073"
-                                                                               
 "i9071"
-                                                                               
 "i9069"
-                                                                               
 "i9067"
-                                                                               
 "i9065"
-                                                                               
 "i9063"
-                                                                               
 "i9062"
-                                                                               
 "i9060"
-                                                                               
 "i9058"
-                                                                               
 "i9057"
-                                                                               
 "i9056"
-                                                                               
 "i9054"
-                                                                               
 "i9053"
-                                                                               
 "i9051"
-                                                                               
 "i9049"
-                                                                               
 "i9047"
-                                                                               
 "i9045"
-                                                                               
 "i9043"
-                                                                               
 "i9041"
-                                                                               
 "i9039"
-                                                                               
 "i9037"
-                                                                               
 "i9035"
-                                                                               
 "i9033"
-                                                                               
 "i9031"
-                                                                               
 "i9029"
-                                                                               
 "i9027"
-                                                                               
 "i9025"
-                                                                               
 "i9023"
-                                                                               
 "i9021"
-                                                                               
 "i9019"
-                                                                               
 "i9017"
-                                                                               
 "i9015"
-                                                                               
 "i9013"
-                                                                               
 "i9011"
-                                                                               
 "i9009"
-                                                                               
 "i9007"
-                                                                               
 "i9005"
-                                                                               
 "i9003"
-                                                                               
 "i9001"
-                                                                               
 "i8999"
-                                                                               
 "i8997"
-                                                                               
 "i8995"
-                                                                               
 "i8993"
-                                                                               
 "i8991"
-                                                                               
 "i8989"
-                                                                               
 "i8988"
-                                                                               
 "i8986"
-                                                                               
 "i8984"
-                                                                               
 "i8982"
-                                                                               
 "i8980"
-                                                                               
 "i8978"
-                                                                               
 "i8976"
-                                                                               
 "i8974"
-                                                                               
 "i8972"))
+                                                                               
("i336"
+                                                                               
 "i334"
+                                                                               
 "i332"
+                                                                               
 "i330"
+                                                                               
 "i328"
+                                                                               
 "i326"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i320"
+                                                                               
 "i318"
+                                                                               
 "i316"
+                                                                               
 "i314"
+                                                                               
 "i312"
+                                                                               
 "i310"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i298"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i292"
+                                                                               
 "i290"
+                                                                               
 "i288"
+                                                                               
 "i286"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i278"
+                                                                               
 "i276"
+                                                                               
 "i274"
+                                                                               
 "i272"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i265"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i261"
+                                                                               
 "i260"
+                                                                               
 "i259"
+                                                                               
 "i258"
+                                                                               
 "i256"
+                                                                               
 "i254"
+                                                                               
 "i252"
+                                                                               
 "i250"
+                                                                               
 "i248"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i239"
+                                                                               
 "i237"
+                                                                               
 "i236"
+                                                                               
 "i235"
+                                                                               
 "i234"
+                                                                               
 "i233"
+                                                                               
 "i232"
+                                                                               
 "i230"
+                                                                               
 "i228"
+                                                                               
 "i226"
+                                                                               
 "i224"
+                                                                               
 "i223"
+                                                                               
 "i221"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i208"
+                                                                               
 "i206"
+                                                                               
 "i204"
+                                                                               
 "i203"
+                                                                               
 "i202"
+                                                                               
 "i200"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i173"
+                                                                               
 "i171"
+                                                                               
 "i169"
+                                                                               
 "i167"
+                                                                               
 "i165"
+                                                                               
 "i163"
+                                                                               
 "i161"
+                                                                               
 "i159"
+                                                                               
 "i157"
+                                                                               
 "i155"
+                                                                               
 "i153"
+                                                                               
 "i151"
+                                                                               
 "i149"
+                                                                               
 "i147"
+                                                                               
 "i145"
+                                                                               
 "i143"
+                                                                               
 "i141"
+                                                                               
 "i139"
+                                                                               
 "i137"
+                                                                               
 "i135"
+                                                                               
 "i134"
+                                                                               
 "i132"
+                                                                               
 "i130"
+                                                                               
 "i128"
+                                                                               
 "i126"
+                                                                               
 "i124"
+                                                                               
 "i122"
+                                                                               
 "i120"
+                                                                               
 "i118"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i8875"
-                                                                               
 "i8873")))
+                                                                               
("i21"
+                                                                               
 "i19")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4526,8 +4516,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i10562"
-                                                                               
  "i10563"))
+                                                                               
#("i1709"
+                                                                               
  "i1710"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4549,12 +4539,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i10498"
-                                                                               
  "i10499"
-                                                                               
  "i10500"
-                                                                               
  "i10501"
-                                                                               
  "i10502"
-                                                                               
  "i10503"))
+                                                                               
#("i1645"
+                                                                               
  "i1646"
+                                                                               
  "i1647"
+                                                                               
  "i1648"
+                                                                               
  "i1649"
+                                                                               
  "i1650"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4562,7 +4552,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i10490"))
+                                                                               
#("i1637"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4590,13 +4580,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i10467"
-                                                                               
  "i10468"
-                                                                               
  "i10469"
-                                                                               
  "i10470"
-                                                                               
  "i10471"
-                                                                               
  "i10472"
-                                                                               
  "i10473"))
+                                                                               
#("i1614"
+                                                                               
  "i1615"
+                                                                               
  "i1616"
+                                                                               
  "i1617"
+                                                                               
  "i1618"
+                                                                               
  "i1619"
+                                                                               
  "i1620"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -4834,131 +4824,131 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i9190"
-                                                                               
 "i9188"
-                                                                               
 "i9186"
-                                                                               
 "i9184"
-                                                                               
 "i9182"
-                                                                               
 "i9180"
-                                                                               
 "i9178"
-                                                                               
 "i9176"
-                                                                               
 "i9174"
-                                                                               
 "i9172"
-                                                                               
 "i9170"
-                                                                               
 "i9168"
-                                                                               
 "i9166"
-                                                                               
 "i9164"
-                                                                               
 "i9162"
-                                                                               
 "i9160"
-                                                                               
 "i9158"
-                                                                               
 "i9156"
-                                                                               
 "i9154"
-                                                                               
 "i9152"
-                                                                               
 "i9150"
-                                                                               
 "i9148"
-                                                                               
 "i9146"
-                                                                               
 "i9144"
-                                                                               
 "i9142"
-                                                                               
 "i9140"
-                                                                               
 "i9138"
-                                                                               
 "i9136"
-                                                                               
 "i9134"
-                                                                               
 "i9132"
-                                                                               
 "i9130"
-                                                                               
 "i9128"
-                                                                               
 "i9126"
-                                                                               
 "i9124"
-                                                                               
 "i9122"
-                                                                               
 "i9120"
-                                                                               
 "i9119"
-                                                                               
 "i9118"
-                                                                               
 "i9116"
-                                                                               
 "i9115"
-                                                                               
 "i9114"
-                                                                               
 "i9113"
-                                                                               
 "i9112"
-                                                                               
 "i9110"
-                                                                               
 "i9108"
-                                                                               
 "i9106"
-                                                                               
 "i9104"
-                                                                               
 "i9102"
-                                                                               
 "i9100"
-                                                                               
 "i9098"
-                                                                               
 "i9096"
-                                                                               
 "i9093"
-                                                                               
 "i9091"
-                                                                               
 "i9090"
-                                                                               
 "i9089"
-                                                                               
 "i9088"
-                                                                               
 "i9087"
-                                                                               
 "i9086"
-                                                                               
 "i9084"
-                                                                               
 "i9082"
-                                                                               
 "i9080"
-                                                                               
 "i9078"
-                                                                               
 "i9077"
-                                                                               
 "i9075"
-                                                                               
 "i9073"
-                                                                               
 "i9071"
-                                                                               
 "i9069"
-                                                                               
 "i9067"
-                                                                               
 "i9065"
-                                                                               
 "i9063"
-                                                                               
 "i9062"
-                                                                               
 "i9060"
-                                                                               
 "i9058"
-                                                                               
 "i9057"
-                                                                               
 "i9056"
-                                                                               
 "i9054"
-                                                                               
 "i9053"
-                                                                               
 "i9051"
-                                                                               
 "i9049"
-                                                                               
 "i9047"
-                                                                               
 "i9045"
-                                                                               
 "i9043"
-                                                                               
 "i9041"
-                                                                               
 "i9039"
-                                                                               
 "i9037"
-                                                                               
 "i9035"
-                                                                               
 "i9033"
-                                                                               
 "i9031"
-                                                                               
 "i9029"
-                                                                               
 "i9027"
-                                                                               
 "i9025"
-                                                                               
 "i9023"
-                                                                               
 "i9021"
-                                                                               
 "i9019"
-                                                                               
 "i9017"
-                                                                               
 "i9015"
-                                                                               
 "i9013"
-                                                                               
 "i9011"
-                                                                               
 "i9009"
-                                                                               
 "i9007"
-                                                                               
 "i9005"
-                                                                               
 "i9003"
-                                                                               
 "i9001"
-                                                                               
 "i8999"
-                                                                               
 "i8997"
-                                                                               
 "i8995"
-                                                                               
 "i8993"
-                                                                               
 "i8991"
-                                                                               
 "i8989"
-                                                                               
 "i8988"
-                                                                               
 "i8986"
-                                                                               
 "i8984"
-                                                                               
 "i8982"
-                                                                               
 "i8980"
-                                                                               
 "i8978"
-                                                                               
 "i8976"
-                                                                               
 "i8974"
-                                                                               
 "i8972"))
+                                                                               
("i336"
+                                                                               
 "i334"
+                                                                               
 "i332"
+                                                                               
 "i330"
+                                                                               
 "i328"
+                                                                               
 "i326"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i320"
+                                                                               
 "i318"
+                                                                               
 "i316"
+                                                                               
 "i314"
+                                                                               
 "i312"
+                                                                               
 "i310"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i298"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i292"
+                                                                               
 "i290"
+                                                                               
 "i288"
+                                                                               
 "i286"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i278"
+                                                                               
 "i276"
+                                                                               
 "i274"
+                                                                               
 "i272"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i265"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i261"
+                                                                               
 "i260"
+                                                                               
 "i259"
+                                                                               
 "i258"
+                                                                               
 "i256"
+                                                                               
 "i254"
+                                                                               
 "i252"
+                                                                               
 "i250"
+                                                                               
 "i248"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i239"
+                                                                               
 "i237"
+                                                                               
 "i236"
+                                                                               
 "i235"
+                                                                               
 "i234"
+                                                                               
 "i233"
+                                                                               
 "i232"
+                                                                               
 "i230"
+                                                                               
 "i228"
+                                                                               
 "i226"
+                                                                               
 "i224"
+                                                                               
 "i223"
+                                                                               
 "i221"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i208"
+                                                                               
 "i206"
+                                                                               
 "i204"
+                                                                               
 "i203"
+                                                                               
 "i202"
+                                                                               
 "i200"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i173"
+                                                                               
 "i171"
+                                                                               
 "i169"
+                                                                               
 "i167"
+                                                                               
 "i165"
+                                                                               
 "i163"
+                                                                               
 "i161"
+                                                                               
 "i159"
+                                                                               
 "i157"
+                                                                               
 "i155"
+                                                                               
 "i153"
+                                                                               
 "i151"
+                                                                               
 "i149"
+                                                                               
 "i147"
+                                                                               
 "i145"
+                                                                               
 "i143"
+                                                                               
 "i141"
+                                                                               
 "i139"
+                                                                               
 "i137"
+                                                                               
 "i135"
+                                                                               
 "i134"
+                                                                               
 "i132"
+                                                                               
 "i130"
+                                                                               
 "i128"
+                                                                               
 "i126"
+                                                                               
 "i124"
+                                                                               
 "i122"
+                                                                               
 "i120"
+                                                                               
 "i118"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i8875"
-                                                                               
 "i8873")))
+                                                                               
("i21"
+                                                                               
 "i19")))
                                                                             
(hygiene
                                                                               
guile))
                                                                           
#(syntax-object
@@ -4969,8 +4959,8 @@
                                                                                
  name)
                                                                                
#((top)
                                                                                
  (top))
-                                                                               
#("i10562"
-                                                                               
  "i10563"))
+                                                                               
#("i1709"
+                                                                               
  "i1710"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -4992,12 +4982,12 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i10498"
-                                                                               
  "i10499"
-                                                                               
  "i10500"
-                                                                               
  "i10501"
-                                                                               
  "i10502"
-                                                                               
  "i10503"))
+                                                                               
#("i1645"
+                                                                               
  "i1646"
+                                                                               
  "i1647"
+                                                                               
  "i1648"
+                                                                               
  "i1649"
+                                                                               
  "i1650"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5005,7 +4995,7 @@
                                                                              
#(ribcage
                                                                                
#(first)
                                                                                
#((top))
-                                                                               
#("i10490"))
+                                                                               
#("i1637"))
                                                                              
#(ribcage
                                                                                
()
                                                                                
()
@@ -5033,13 +5023,13 @@
                                                                                
  (top)
                                                                                
  (top)
                                                                                
  (top))
-                                                                               
#("i10467"
-                                                                               
  "i10468"
-                                                                               
  "i10469"
-                                                                               
  "i10470"
-                                                                               
  "i10471"
-                                                                               
  "i10472"
-                                                                               
  "i10473"))
+                                                                               
#("i1614"
+                                                                               
  "i1615"
+                                                                               
  "i1616"
+                                                                               
  "i1617"
+                                                                               
  "i1618"
+                                                                               
  "i1619"
+                                                                               
  "i1620"))
                                                                              
#(ribcage
                                                                                
(lambda-var-list
                                                                                
  gen-var
@@ -5277,232 +5267,232 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                               
("i9190"
-                                                                               
 "i9188"
-                                                                               
 "i9186"
-                                                                               
 "i9184"
-                                                                               
 "i9182"
-                                                                               
 "i9180"
-                                                                               
 "i9178"
-                                                                               
 "i9176"
-                                                                               
 "i9174"
-                                                                               
 "i9172"
-                                                                               
 "i9170"
-                                                                               
 "i9168"
-                                                                               
 "i9166"
-                                                                               
 "i9164"
-                                                                               
 "i9162"
-                                                                               
 "i9160"
-                                                                               
 "i9158"
-                                                                               
 "i9156"
-                                                                               
 "i9154"
-                                                                               
 "i9152"
-                                                                               
 "i9150"
-                                                                               
 "i9148"
-                                                                               
 "i9146"
-                                                                               
 "i9144"
-                                                                               
 "i9142"
-                                                                               
 "i9140"
-                                                                               
 "i9138"
-                                                                               
 "i9136"
-                                                                               
 "i9134"
-                                                                               
 "i9132"
-                                                                               
 "i9130"
-                                                                               
 "i9128"
-                                                                               
 "i9126"
-                                                                               
 "i9124"
-                                                                               
 "i9122"
-                                                                               
 "i9120"
-                                                                               
 "i9119"
-                                                                               
 "i9118"
-                                                                               
 "i9116"
-                                                                               
 "i9115"
-                                                                               
 "i9114"
-                                                                               
 "i9113"
-                                                                               
 "i9112"
-                                                                               
 "i9110"
-                                                                               
 "i9108"
-                                                                               
 "i9106"
-                                                                               
 "i9104"
-                                                                               
 "i9102"
-                                                                               
 "i9100"
-                                                                               
 "i9098"
-                                                                               
 "i9096"
-                                                                               
 "i9093"
-                                                                               
 "i9091"
-                                                                               
 "i9090"
-                                                                               
 "i9089"
-                                                                               
 "i9088"
-                                                                               
 "i9087"
-                                                                               
 "i9086"
-                                                                               
 "i9084"
-                                                                               
 "i9082"
-                                                                               
 "i9080"
-                                                                               
 "i9078"
-                                                                               
 "i9077"
-                                                                               
 "i9075"
-                                                                               
 "i9073"
-                                                                               
 "i9071"
-                                                                               
 "i9069"
-                                                                               
 "i9067"
-                                                                               
 "i9065"
-                                                                               
 "i9063"
-                                                                               
 "i9062"
-                                                                               
 "i9060"
-                                                                               
 "i9058"
-                                                                               
 "i9057"
-                                                                               
 "i9056"
-                                                                               
 "i9054"
-                                                                               
 "i9053"
-                                                                               
 "i9051"
-                                                                               
 "i9049"
-                                                                               
 "i9047"
-                                                                               
 "i9045"
-                                                                               
 "i9043"
-                                                                               
 "i9041"
-                                                                               
 "i9039"
-                                                                               
 "i9037"
-                                                                               
 "i9035"
-                                                                               
 "i9033"
-                                                                               
 "i9031"
-                                                                               
 "i9029"
-                                                                               
 "i9027"
-                                                                               
 "i9025"
-                                                                               
 "i9023"
-                                                                               
 "i9021"
-                                                                               
 "i9019"
-                                                                               
 "i9017"
-                                                                               
 "i9015"
-                                                                               
 "i9013"
-                                                                               
 "i9011"
-                                                                               
 "i9009"
-                                                                               
 "i9007"
-                                                                               
 "i9005"
-                                                                               
 "i9003"
-                                                                               
 "i9001"
-                                                                               
 "i8999"
-                                                                               
 "i8997"
-                                                                               
 "i8995"
-                                                                               
 "i8993"
-                                                                               
 "i8991"
-                                                                               
 "i8989"
-                                                                               
 "i8988"
-                                                                               
 "i8986"
-                                                                               
 "i8984"
-                                                                               
 "i8982"
-                                                                               
 "i8980"
-                                                                               
 "i8978"
-                                                                               
 "i8976"
-                                                                               
 "i8974"
-                                                                               
 "i8972"))
+                                                                               
("i336"
+                                                                               
 "i334"
+                                                                               
 "i332"
+                                                                               
 "i330"
+                                                                               
 "i328"
+                                                                               
 "i326"
+                                                                               
 "i324"
+                                                                               
 "i322"
+                                                                               
 "i320"
+                                                                               
 "i318"
+                                                                               
 "i316"
+                                                                               
 "i314"
+                                                                               
 "i312"
+                                                                               
 "i310"
+                                                                               
 "i308"
+                                                                               
 "i306"
+                                                                               
 "i304"
+                                                                               
 "i302"
+                                                                               
 "i300"
+                                                                               
 "i298"
+                                                                               
 "i296"
+                                                                               
 "i294"
+                                                                               
 "i292"
+                                                                               
 "i290"
+                                                                               
 "i288"
+                                                                               
 "i286"
+                                                                               
 "i284"
+                                                                               
 "i282"
+                                                                               
 "i280"
+                                                                               
 "i278"
+                                                                               
 "i276"
+                                                                               
 "i274"
+                                                                               
 "i272"
+                                                                               
 "i270"
+                                                                               
 "i268"
+                                                                               
 "i266"
+                                                                               
 "i265"
+                                                                               
 "i264"
+                                                                               
 "i262"
+                                                                               
 "i261"
+                                                                               
 "i260"
+                                                                               
 "i259"
+                                                                               
 "i258"
+                                                                               
 "i256"
+                                                                               
 "i254"
+                                                                               
 "i252"
+                                                                               
 "i250"
+                                                                               
 "i248"
+                                                                               
 "i246"
+                                                                               
 "i244"
+                                                                               
 "i242"
+                                                                               
 "i239"
+                                                                               
 "i237"
+                                                                               
 "i236"
+                                                                               
 "i235"
+                                                                               
 "i234"
+                                                                               
 "i233"
+                                                                               
 "i232"
+                                                                               
 "i230"
+                                                                               
 "i228"
+                                                                               
 "i226"
+                                                                               
 "i224"
+                                                                               
 "i223"
+                                                                               
 "i221"
+                                                                               
 "i219"
+                                                                               
 "i217"
+                                                                               
 "i215"
+                                                                               
 "i213"
+                                                                               
 "i211"
+                                                                               
 "i209"
+                                                                               
 "i208"
+                                                                               
 "i206"
+                                                                               
 "i204"
+                                                                               
 "i203"
+                                                                               
 "i202"
+                                                                               
 "i200"
+                                                                               
 "i199"
+                                                                               
 "i197"
+                                                                               
 "i195"
+                                                                               
 "i193"
+                                                                               
 "i191"
+                                                                               
 "i189"
+                                                                               
 "i187"
+                                                                               
 "i185"
+                                                                               
 "i183"
+                                                                               
 "i181"
+                                                                               
 "i179"
+                                                                               
 "i177"
+                                                                               
 "i175"
+                                                                               
 "i173"
+                                                                               
 "i171"
+                                                                               
 "i169"
+                                                                               
 "i167"
+                                                                               
 "i165"
+                                                                               
 "i163"
+                                                                               
 "i161"
+                                                                               
 "i159"
+                                                                               
 "i157"
+                                                                               
 "i155"
+                                                                               
 "i153"
+                                                                               
 "i151"
+                                                                               
 "i149"
+                                                                               
 "i147"
+                                                                               
 "i145"
+                                                                               
 "i143"
+                                                                               
 "i141"
+                                                                               
 "i139"
+                                                                               
 "i137"
+                                                                               
 "i135"
+                                                                               
 "i134"
+                                                                               
 "i132"
+                                                                               
 "i130"
+                                                                               
 "i128"
+                                                                               
 "i126"
+                                                                               
 "i124"
+                                                                               
 "i122"
+                                                                               
 "i120"
+                                                                               
 "i118"))
                                                                              
#(ribcage
                                                                                
(define-structure
                                                                                
  and-map*)
                                                                                
((top)
                                                                                
 (top))
-                                                                               
("i8875"
-                                                                               
 "i8873")))
+                                                                               
("i21"
+                                                                               
 "i19")))
                                                                             
(hygiene
                                                                               
guile)))
                                                                         '(())
-                                                                        #{s\ 
10463}#
-                                                                        #{mod\ 
10465}#))
-                                                                    #{tmp\ 
10557}#)
+                                                                        #{s\ 
1610}#
+                                                                        #{mod\ 
1612}#))
+                                                                    #{tmp\ 
1704}#)
                                                              (syntax-violation
                                                                #f
                                                                "source 
expression failed to match any pattern"
-                                                               #{tmp\ 
10518}#)))
+                                                               #{tmp\ 1665}#)))
                                                          ($sc-dispatch
-                                                           #{tmp\ 10518}#
+                                                           #{tmp\ 1665}#
                                                            '(any any)))))
                                                     ($sc-dispatch
-                                                      #{tmp\ 10518}#
+                                                      #{tmp\ 1665}#
                                                       '(any (any . any)
                                                             any
                                                             .
                                                             each-any)))))
                                                ($sc-dispatch
-                                                 #{tmp\ 10518}#
+                                                 #{tmp\ 1665}#
                                                  '(any any any))))
-                                            #{e\ 10460}#)
-                                           (if (memv #{ftype\ 10492}#
+                                            #{e\ 1607}#)
+                                           (if (memv #{ftype\ 1639}#
                                                      '(define-syntax))
-                                             ((lambda (#{tmp\ 10568}#)
-                                                ((lambda (#{tmp\ 10569}#)
-                                                   (if (if #{tmp\ 10569}#
-                                                         (apply (lambda (#{_\ 
10573}#
-                                                                         
#{name\ 10574}#
-                                                                         
#{val\ 10575}#)
-                                                                  (#{id?\ 
9076}#
-                                                                    #{name\ 
10574}#))
-                                                                #{tmp\ 10569}#)
+                                             ((lambda (#{tmp\ 1715}#)
+                                                ((lambda (#{tmp\ 1716}#)
+                                                   (if (if #{tmp\ 1716}#
+                                                         (apply (lambda (#{_\ 
1720}#
+                                                                         
#{name\ 1721}#
+                                                                         
#{val\ 1722}#)
+                                                                  (#{id?\ 222}#
+                                                                    #{name\ 
1721}#))
+                                                                #{tmp\ 1716}#)
                                                          #f)
-                                                     (apply (lambda (#{_\ 
10579}#
-                                                                     #{name\ 
10580}#
-                                                                     #{val\ 
10581}#)
+                                                     (apply (lambda (#{_\ 
1726}#
+                                                                     #{name\ 
1727}#
+                                                                     #{val\ 
1728}#)
                                                               (values
                                                                 
'define-syntax-form
-                                                                #{name\ 10580}#
-                                                                #{val\ 10581}#
-                                                                #{w\ 10462}#
-                                                                #{s\ 10463}#
-                                                                #{mod\ 
10465}#))
-                                                            #{tmp\ 10569}#)
+                                                                #{name\ 1727}#
+                                                                #{val\ 1728}#
+                                                                #{w\ 1609}#
+                                                                #{s\ 1610}#
+                                                                #{mod\ 1612}#))
+                                                            #{tmp\ 1716}#)
                                                      (syntax-violation
                                                        #f
                                                        "source expression 
failed to match any pattern"
-                                                       #{tmp\ 10568}#)))
+                                                       #{tmp\ 1715}#)))
                                                  ($sc-dispatch
-                                                   #{tmp\ 10568}#
+                                                   #{tmp\ 1715}#
                                                    '(any any any))))
-                                              #{e\ 10460}#)
+                                              #{e\ 1607}#)
                                              (values
                                                'call
                                                #f
-                                               #{e\ 10460}#
-                                               #{w\ 10462}#
-                                               #{s\ 10463}#
-                                               #{mod\ 10465}#))))))))))))))
-                   (if (#{syntax-object?\ 9040}# #{e\ 10460}#)
-                     (#{syntax-type\ 9157}#
-                       (#{syntax-object-expression\ 9042}# #{e\ 10460}#)
-                       #{r\ 10461}#
-                       (#{join-wraps\ 9127}#
-                         #{w\ 10462}#
-                         (#{syntax-object-wrap\ 9044}# #{e\ 10460}#))
-                       #{s\ 10463}#
-                       #{rib\ 10464}#
-                       (let ((#{t\ 10587}#
-                               (#{syntax-object-module\ 9046}# #{e\ 10460}#)))
-                         (if #{t\ 10587}# #{t\ 10587}# #{mod\ 10465}#))
-                       #{for-car?\ 10466}#)
-                     (if (self-evaluating? #{e\ 10460}#)
+                                               #{e\ 1607}#
+                                               #{w\ 1609}#
+                                               #{s\ 1610}#
+                                               #{mod\ 1612}#))))))))))))))
+                   (if (#{syntax-object?\ 186}# #{e\ 1607}#)
+                     (#{syntax-type\ 303}#
+                       (#{syntax-object-expression\ 188}# #{e\ 1607}#)
+                       #{r\ 1608}#
+                       (#{join-wraps\ 273}#
+                         #{w\ 1609}#
+                         (#{syntax-object-wrap\ 190}# #{e\ 1607}#))
+                       #{s\ 1610}#
+                       #{rib\ 1611}#
+                       (let ((#{t\ 1734}#
+                               (#{syntax-object-module\ 192}# #{e\ 1607}#)))
+                         (if #{t\ 1734}# #{t\ 1734}# #{mod\ 1612}#))
+                       #{for-car?\ 1613}#)
+                     (if (self-evaluating? #{e\ 1607}#)
                        (values
                          'constant
                          #f
-                         #{e\ 10460}#
-                         #{w\ 10462}#
-                         #{s\ 10463}#
-                         #{mod\ 10465}#)
+                         #{e\ 1607}#
+                         #{w\ 1609}#
+                         #{s\ 1610}#
+                         #{mod\ 1612}#)
                        (values
                          'other
                          #f
-                         #{e\ 10460}#
-                         #{w\ 10462}#
-                         #{s\ 10463}#
-                         #{mod\ 10465}#)))))))
-           (#{chi-when-list\ 9155}#
-             (lambda (#{e\ 10592}# #{when-list\ 10593}# #{w\ 10594}#)
-               (letrec ((#{f\ 10601}#
-                          (lambda (#{when-list\ 10602}# #{situations\ 10603}#)
-                            (if (null? #{when-list\ 10602}#)
-                              #{situations\ 10603}#
-                              (#{f\ 10601}#
-                                (cdr #{when-list\ 10602}#)
-                                (cons (let ((#{x\ 10605}#
-                                              (car #{when-list\ 10602}#)))
-                                        (if (#{free-id=?\ 9135}#
-                                              #{x\ 10605}#
+                         #{e\ 1607}#
+                         #{w\ 1609}#
+                         #{s\ 1610}#
+                         #{mod\ 1612}#)))))))
+           (#{chi-when-list\ 301}#
+             (lambda (#{e\ 1739}# #{when-list\ 1740}# #{w\ 1741}#)
+               (letrec ((#{f\ 1748}#
+                          (lambda (#{when-list\ 1749}# #{situations\ 1750}#)
+                            (if (null? #{when-list\ 1749}#)
+                              #{situations\ 1750}#
+                              (#{f\ 1748}#
+                                (cdr #{when-list\ 1749}#)
+                                (cons (let ((#{x\ 1752}#
+                                              (car #{when-list\ 1749}#)))
+                                        (if (#{free-id=?\ 281}#
+                                              #{x\ 1752}#
                                               '#(syntax-object
                                                  compile
                                                  ((top)
@@ -5512,21 +5502,17 @@
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
-                                                    #("i10604"))
+                                                    #("i1751"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(f when-list situations)
                                                     #((top) (top) (top))
-                                                    #("i10598"
-                                                      "i10599"
-                                                      "i10600"))
+                                                    #("i1745" "i1746" "i1747"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(e when-list w)
                                                     #((top) (top) (top))
-                                                    #("i10595"
-                                                      "i10596"
-                                                      "i10597"))
+                                                    #("i1742" "i1743" "i1744"))
                                                   #(ribcage
                                                     (lambda-var-list
                                                       gen-var
@@ -5764,132 +5750,132 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                    ("i9190"
-                                                     "i9188"
-                                                     "i9186"
-                                                     "i9184"
-                                                     "i9182"
-                                                     "i9180"
-                                                     "i9178"
-                                                     "i9176"
-                                                     "i9174"
-                                                     "i9172"
-                                                     "i9170"
-                                                     "i9168"
-                                                     "i9166"
-                                                     "i9164"
-                                                     "i9162"
-                                                     "i9160"
-                                                     "i9158"
-                                                     "i9156"
-                                                     "i9154"
-                                                     "i9152"
-                                                     "i9150"
-                                                     "i9148"
-                                                     "i9146"
-                                                     "i9144"
-                                                     "i9142"
-                                                     "i9140"
-                                                     "i9138"
-                                                     "i9136"
-                                                     "i9134"
-                                                     "i9132"
-                                                     "i9130"
-                                                     "i9128"
-                                                     "i9126"
-                                                     "i9124"
-                                                     "i9122"
-                                                     "i9120"
-                                                     "i9119"
-                                                     "i9118"
-                                                     "i9116"
-                                                     "i9115"
-                                                     "i9114"
-                                                     "i9113"
-                                                     "i9112"
-                                                     "i9110"
-                                                     "i9108"
-                                                     "i9106"
-                                                     "i9104"
-                                                     "i9102"
-                                                     "i9100"
-                                                     "i9098"
-                                                     "i9096"
-                                                     "i9093"
-                                                     "i9091"
-                                                     "i9090"
-                                                     "i9089"
-                                                     "i9088"
-                                                     "i9087"
-                                                     "i9086"
-                                                     "i9084"
-                                                     "i9082"
-                                                     "i9080"
-                                                     "i9078"
-                                                     "i9077"
-                                                     "i9075"
-                                                     "i9073"
-                                                     "i9071"
-                                                     "i9069"
-                                                     "i9067"
-                                                     "i9065"
-                                                     "i9063"
-                                                     "i9062"
-                                                     "i9060"
-                                                     "i9058"
-                                                     "i9057"
-                                                     "i9056"
-                                                     "i9054"
-                                                     "i9053"
-                                                     "i9051"
-                                                     "i9049"
-                                                     "i9047"
-                                                     "i9045"
-                                                     "i9043"
-                                                     "i9041"
-                                                     "i9039"
-                                                     "i9037"
-                                                     "i9035"
-                                                     "i9033"
-                                                     "i9031"
-                                                     "i9029"
-                                                     "i9027"
-                                                     "i9025"
-                                                     "i9023"
-                                                     "i9021"
-                                                     "i9019"
-                                                     "i9017"
-                                                     "i9015"
-                                                     "i9013"
-                                                     "i9011"
-                                                     "i9009"
-                                                     "i9007"
-                                                     "i9005"
-                                                     "i9003"
-                                                     "i9001"
-                                                     "i8999"
-                                                     "i8997"
-                                                     "i8995"
-                                                     "i8993"
-                                                     "i8991"
-                                                     "i8989"
-                                                     "i8988"
-                                                     "i8986"
-                                                     "i8984"
-                                                     "i8982"
-                                                     "i8980"
-                                                     "i8978"
-                                                     "i8976"
-                                                     "i8974"
-                                                     "i8972"))
+                                                    ("i336"
+                                                     "i334"
+                                                     "i332"
+                                                     "i330"
+                                                     "i328"
+                                                     "i326"
+                                                     "i324"
+                                                     "i322"
+                                                     "i320"
+                                                     "i318"
+                                                     "i316"
+                                                     "i314"
+                                                     "i312"
+                                                     "i310"
+                                                     "i308"
+                                                     "i306"
+                                                     "i304"
+                                                     "i302"
+                                                     "i300"
+                                                     "i298"
+                                                     "i296"
+                                                     "i294"
+                                                     "i292"
+                                                     "i290"
+                                                     "i288"
+                                                     "i286"
+                                                     "i284"
+                                                     "i282"
+                                                     "i280"
+                                                     "i278"
+                                                     "i276"
+                                                     "i274"
+                                                     "i272"
+                                                     "i270"
+                                                     "i268"
+                                                     "i266"
+                                                     "i265"
+                                                     "i264"
+                                                     "i262"
+                                                     "i261"
+                                                     "i260"
+                                                     "i259"
+                                                     "i258"
+                                                     "i256"
+                                                     "i254"
+                                                     "i252"
+                                                     "i250"
+                                                     "i248"
+                                                     "i246"
+                                                     "i244"
+                                                     "i242"
+                                                     "i239"
+                                                     "i237"
+                                                     "i236"
+                                                     "i235"
+                                                     "i234"
+                                                     "i233"
+                                                     "i232"
+                                                     "i230"
+                                                     "i228"
+                                                     "i226"
+                                                     "i224"
+                                                     "i223"
+                                                     "i221"
+                                                     "i219"
+                                                     "i217"
+                                                     "i215"
+                                                     "i213"
+                                                     "i211"
+                                                     "i209"
+                                                     "i208"
+                                                     "i206"
+                                                     "i204"
+                                                     "i203"
+                                                     "i202"
+                                                     "i200"
+                                                     "i199"
+                                                     "i197"
+                                                     "i195"
+                                                     "i193"
+                                                     "i191"
+                                                     "i189"
+                                                     "i187"
+                                                     "i185"
+                                                     "i183"
+                                                     "i181"
+                                                     "i179"
+                                                     "i177"
+                                                     "i175"
+                                                     "i173"
+                                                     "i171"
+                                                     "i169"
+                                                     "i167"
+                                                     "i165"
+                                                     "i163"
+                                                     "i161"
+                                                     "i159"
+                                                     "i157"
+                                                     "i155"
+                                                     "i153"
+                                                     "i151"
+                                                     "i149"
+                                                     "i147"
+                                                     "i145"
+                                                     "i143"
+                                                     "i141"
+                                                     "i139"
+                                                     "i137"
+                                                     "i135"
+                                                     "i134"
+                                                     "i132"
+                                                     "i130"
+                                                     "i128"
+                                                     "i126"
+                                                     "i124"
+                                                     "i122"
+                                                     "i120"
+                                                     "i118"))
                                                   #(ribcage
                                                     (define-structure and-map*)
                                                     ((top) (top))
-                                                    ("i8875" "i8873")))
+                                                    ("i21" "i19")))
                                                  (hygiene guile)))
                                           'compile
-                                          (if (#{free-id=?\ 9135}#
-                                                #{x\ 10605}#
+                                          (if (#{free-id=?\ 281}#
+                                                #{x\ 1752}#
                                                 '#(syntax-object
                                                    load
                                                    ((top)
@@ -5899,21 +5885,21 @@
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
-                                                      #("i10604"))
+                                                      #("i1751"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f when-list situations)
                                                       #((top) (top) (top))
-                                                      #("i10598"
-                                                        "i10599"
-                                                        "i10600"))
+                                                      #("i1745"
+                                                        "i1746"
+                                                        "i1747"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e when-list w)
                                                       #((top) (top) (top))
-                                                      #("i10595"
-                                                        "i10596"
-                                                        "i10597"))
+                                                      #("i1742"
+                                                        "i1743"
+                                                        "i1744"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -6151,133 +6137,133 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i9190"
-                                                       "i9188"
-                                                       "i9186"
-                                                       "i9184"
-                                                       "i9182"
-                                                       "i9180"
-                                                       "i9178"
-                                                       "i9176"
-                                                       "i9174"
-                                                       "i9172"
-                                                       "i9170"
-                                                       "i9168"
-                                                       "i9166"
-                                                       "i9164"
-                                                       "i9162"
-                                                       "i9160"
-                                                       "i9158"
-                                                       "i9156"
-                                                       "i9154"
-                                                       "i9152"
-                                                       "i9150"
-                                                       "i9148"
-                                                       "i9146"
-                                                       "i9144"
-                                                       "i9142"
-                                                       "i9140"
-                                                       "i9138"
-                                                       "i9136"
-                                                       "i9134"
-                                                       "i9132"
-                                                       "i9130"
-                                                       "i9128"
-                                                       "i9126"
-                                                       "i9124"
-                                                       "i9122"
-                                                       "i9120"
-                                                       "i9119"
-                                                       "i9118"
-                                                       "i9116"
-                                                       "i9115"
-                                                       "i9114"
-                                                       "i9113"
-                                                       "i9112"
-                                                       "i9110"
-                                                       "i9108"
-                                                       "i9106"
-                                                       "i9104"
-                                                       "i9102"
-                                                       "i9100"
-                                                       "i9098"
-                                                       "i9096"
-                                                       "i9093"
-                                                       "i9091"
-                                                       "i9090"
-                                                       "i9089"
-                                                       "i9088"
-                                                       "i9087"
-                                                       "i9086"
-                                                       "i9084"
-                                                       "i9082"
-                                                       "i9080"
-                                                       "i9078"
-                                                       "i9077"
-                                                       "i9075"
-                                                       "i9073"
-                                                       "i9071"
-                                                       "i9069"
-                                                       "i9067"
-                                                       "i9065"
-                                                       "i9063"
-                                                       "i9062"
-                                                       "i9060"
-                                                       "i9058"
-                                                       "i9057"
-                                                       "i9056"
-                                                       "i9054"
-                                                       "i9053"
-                                                       "i9051"
-                                                       "i9049"
-                                                       "i9047"
-                                                       "i9045"
-                                                       "i9043"
-                                                       "i9041"
-                                                       "i9039"
-                                                       "i9037"
-                                                       "i9035"
-                                                       "i9033"
-                                                       "i9031"
-                                                       "i9029"
-                                                       "i9027"
-                                                       "i9025"
-                                                       "i9023"
-                                                       "i9021"
-                                                       "i9019"
-                                                       "i9017"
-                                                       "i9015"
-                                                       "i9013"
-                                                       "i9011"
-                                                       "i9009"
-                                                       "i9007"
-                                                       "i9005"
-                                                       "i9003"
-                                                       "i9001"
-                                                       "i8999"
-                                                       "i8997"
-                                                       "i8995"
-                                                       "i8993"
-                                                       "i8991"
-                                                       "i8989"
-                                                       "i8988"
-                                                       "i8986"
-                                                       "i8984"
-                                                       "i8982"
-                                                       "i8980"
-                                                       "i8978"
-                                                       "i8976"
-                                                       "i8974"
-                                                       "i8972"))
+                                                      ("i336"
+                                                       "i334"
+                                                       "i332"
+                                                       "i330"
+                                                       "i328"
+                                                       "i326"
+                                                       "i324"
+                                                       "i322"
+                                                       "i320"
+                                                       "i318"
+                                                       "i316"
+                                                       "i314"
+                                                       "i312"
+                                                       "i310"
+                                                       "i308"
+                                                       "i306"
+                                                       "i304"
+                                                       "i302"
+                                                       "i300"
+                                                       "i298"
+                                                       "i296"
+                                                       "i294"
+                                                       "i292"
+                                                       "i290"
+                                                       "i288"
+                                                       "i286"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i278"
+                                                       "i276"
+                                                       "i274"
+                                                       "i272"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i265"
+                                                       "i264"
+                                                       "i262"
+                                                       "i261"
+                                                       "i260"
+                                                       "i259"
+                                                       "i258"
+                                                       "i256"
+                                                       "i254"
+                                                       "i252"
+                                                       "i250"
+                                                       "i248"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i239"
+                                                       "i237"
+                                                       "i236"
+                                                       "i235"
+                                                       "i234"
+                                                       "i233"
+                                                       "i232"
+                                                       "i230"
+                                                       "i228"
+                                                       "i226"
+                                                       "i224"
+                                                       "i223"
+                                                       "i221"
+                                                       "i219"
+                                                       "i217"
+                                                       "i215"
+                                                       "i213"
+                                                       "i211"
+                                                       "i209"
+                                                       "i208"
+                                                       "i206"
+                                                       "i204"
+                                                       "i203"
+                                                       "i202"
+                                                       "i200"
+                                                       "i199"
+                                                       "i197"
+                                                       "i195"
+                                                       "i193"
+                                                       "i191"
+                                                       "i189"
+                                                       "i187"
+                                                       "i185"
+                                                       "i183"
+                                                       "i181"
+                                                       "i179"
+                                                       "i177"
+                                                       "i175"
+                                                       "i173"
+                                                       "i171"
+                                                       "i169"
+                                                       "i167"
+                                                       "i165"
+                                                       "i163"
+                                                       "i161"
+                                                       "i159"
+                                                       "i157"
+                                                       "i155"
+                                                       "i153"
+                                                       "i151"
+                                                       "i149"
+                                                       "i147"
+                                                       "i145"
+                                                       "i143"
+                                                       "i141"
+                                                       "i139"
+                                                       "i137"
+                                                       "i135"
+                                                       "i134"
+                                                       "i132"
+                                                       "i130"
+                                                       "i128"
+                                                       "i126"
+                                                       "i124"
+                                                       "i122"
+                                                       "i120"
+                                                       "i118"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i8875" "i8873")))
+                                                      ("i21" "i19")))
                                                    (hygiene guile)))
                                             'load
-                                            (if (#{free-id=?\ 9135}#
-                                                  #{x\ 10605}#
+                                            (if (#{free-id=?\ 281}#
+                                                  #{x\ 1752}#
                                                   '#(syntax-object
                                                      eval
                                                      ((top)
@@ -6287,23 +6273,23 @@
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i10604"))
+                                                        #("i1751"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(f
                                                           when-list
                                                           situations)
                                                         #((top) (top) (top))
-                                                        #("i10598"
-                                                          "i10599"
-                                                          "i10600"))
+                                                        #("i1745"
+                                                          "i1746"
+                                                          "i1747"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(e when-list w)
                                                         #((top) (top) (top))
-                                                        #("i10595"
-                                                          "i10596"
-                                                          "i10597"))
+                                                        #("i1742"
+                                                          "i1743"
+                                                          "i1744"))
                                                       #(ribcage
                                                         (lambda-var-list
                                                           gen-var
@@ -6541,1044 +6527,1016 @@
                                                          (top)
                                                          (top)
                                                          (top))
-                                                        ("i9190"
-                                                         "i9188"
-                                                         "i9186"
-                                                         "i9184"
-                                                         "i9182"
-                                                         "i9180"
-                                                         "i9178"
-                                                         "i9176"
-                                                         "i9174"
-                                                         "i9172"
-                                                         "i9170"
-                                                         "i9168"
-                                                         "i9166"
-                                                         "i9164"
-                                                         "i9162"
-                                                         "i9160"
-                                                         "i9158"
-                                                         "i9156"
-                                                         "i9154"
-                                                         "i9152"
-                                                         "i9150"
-                                                         "i9148"
-                                                         "i9146"
-                                                         "i9144"
-                                                         "i9142"
-                                                         "i9140"
-                                                         "i9138"
-                                                         "i9136"
-                                                         "i9134"
-                                                         "i9132"
-                                                         "i9130"
-                                                         "i9128"
-                                                         "i9126"
-                                                         "i9124"
-                                                         "i9122"
-                                                         "i9120"
-                                                         "i9119"
-                                                         "i9118"
-                                                         "i9116"
-                                                         "i9115"
-                                                         "i9114"
-                                                         "i9113"
-                                                         "i9112"
-                                                         "i9110"
-                                                         "i9108"
-                                                         "i9106"
-                                                         "i9104"
-                                                         "i9102"
-                                                         "i9100"
-                                                         "i9098"
-                                                         "i9096"
-                                                         "i9093"
-                                                         "i9091"
-                                                         "i9090"
-                                                         "i9089"
-                                                         "i9088"
-                                                         "i9087"
-                                                         "i9086"
-                                                         "i9084"
-                                                         "i9082"
-                                                         "i9080"
-                                                         "i9078"
-                                                         "i9077"
-                                                         "i9075"
-                                                         "i9073"
-                                                         "i9071"
-                                                         "i9069"
-                                                         "i9067"
-                                                         "i9065"
-                                                         "i9063"
-                                                         "i9062"
-                                                         "i9060"
-                                                         "i9058"
-                                                         "i9057"
-                                                         "i9056"
-                                                         "i9054"
-                                                         "i9053"
-                                                         "i9051"
-                                                         "i9049"
-                                                         "i9047"
-                                                         "i9045"
-                                                         "i9043"
-                                                         "i9041"
-                                                         "i9039"
-                                                         "i9037"
-                                                         "i9035"
-                                                         "i9033"
-                                                         "i9031"
-                                                         "i9029"
-                                                         "i9027"
-                                                         "i9025"
-                                                         "i9023"
-                                                         "i9021"
-                                                         "i9019"
-                                                         "i9017"
-                                                         "i9015"
-                                                         "i9013"
-                                                         "i9011"
-                                                         "i9009"
-                                                         "i9007"
-                                                         "i9005"
-                                                         "i9003"
-                                                         "i9001"
-                                                         "i8999"
-                                                         "i8997"
-                                                         "i8995"
-                                                         "i8993"
-                                                         "i8991"
-                                                         "i8989"
-                                                         "i8988"
-                                                         "i8986"
-                                                         "i8984"
-                                                         "i8982"
-                                                         "i8980"
-                                                         "i8978"
-                                                         "i8976"
-                                                         "i8974"
-                                                         "i8972"))
+                                                        ("i336"
+                                                         "i334"
+                                                         "i332"
+                                                         "i330"
+                                                         "i328"
+                                                         "i326"
+                                                         "i324"
+                                                         "i322"
+                                                         "i320"
+                                                         "i318"
+                                                         "i316"
+                                                         "i314"
+                                                         "i312"
+                                                         "i310"
+                                                         "i308"
+                                                         "i306"
+                                                         "i304"
+                                                         "i302"
+                                                         "i300"
+                                                         "i298"
+                                                         "i296"
+                                                         "i294"
+                                                         "i292"
+                                                         "i290"
+                                                         "i288"
+                                                         "i286"
+                                                         "i284"
+                                                         "i282"
+                                                         "i280"
+                                                         "i278"
+                                                         "i276"
+                                                         "i274"
+                                                         "i272"
+                                                         "i270"
+                                                         "i268"
+                                                         "i266"
+                                                         "i265"
+                                                         "i264"
+                                                         "i262"
+                                                         "i261"
+                                                         "i260"
+                                                         "i259"
+                                                         "i258"
+                                                         "i256"
+                                                         "i254"
+                                                         "i252"
+                                                         "i250"
+                                                         "i248"
+                                                         "i246"
+                                                         "i244"
+                                                         "i242"
+                                                         "i239"
+                                                         "i237"
+                                                         "i236"
+                                                         "i235"
+                                                         "i234"
+                                                         "i233"
+                                                         "i232"
+                                                         "i230"
+                                                         "i228"
+                                                         "i226"
+                                                         "i224"
+                                                         "i223"
+                                                         "i221"
+                                                         "i219"
+                                                         "i217"
+                                                         "i215"
+                                                         "i213"
+                                                         "i211"
+                                                         "i209"
+                                                         "i208"
+                                                         "i206"
+                                                         "i204"
+                                                         "i203"
+                                                         "i202"
+                                                         "i200"
+                                                         "i199"
+                                                         "i197"
+                                                         "i195"
+                                                         "i193"
+                                                         "i191"
+                                                         "i189"
+                                                         "i187"
+                                                         "i185"
+                                                         "i183"
+                                                         "i181"
+                                                         "i179"
+                                                         "i177"
+                                                         "i175"
+                                                         "i173"
+                                                         "i171"
+                                                         "i169"
+                                                         "i167"
+                                                         "i165"
+                                                         "i163"
+                                                         "i161"
+                                                         "i159"
+                                                         "i157"
+                                                         "i155"
+                                                         "i153"
+                                                         "i151"
+                                                         "i149"
+                                                         "i147"
+                                                         "i145"
+                                                         "i143"
+                                                         "i141"
+                                                         "i139"
+                                                         "i137"
+                                                         "i135"
+                                                         "i134"
+                                                         "i132"
+                                                         "i130"
+                                                         "i128"
+                                                         "i126"
+                                                         "i124"
+                                                         "i122"
+                                                         "i120"
+                                                         "i118"))
                                                       #(ribcage
                                                         (define-structure
                                                           and-map*)
                                                         ((top) (top))
-                                                        ("i8875" "i8873")))
+                                                        ("i21" "i19")))
                                                      (hygiene guile)))
                                               'eval
                                               (syntax-violation
                                                 'eval-when
                                                 "invalid situation"
-                                                #{e\ 10592}#
-                                                (#{wrap\ 9145}#
-                                                  #{x\ 10605}#
-                                                  #{w\ 10594}#
+                                                #{e\ 1739}#
+                                                (#{wrap\ 291}#
+                                                  #{x\ 1752}#
+                                                  #{w\ 1741}#
                                                   #f))))))
-                                      #{situations\ 10603}#))))))
-                 (#{f\ 10601}# #{when-list\ 10593}# (quote ())))))
-           (#{chi-install-global\ 9153}#
-             (lambda (#{name\ 10613}# #{e\ 10614}#)
-               (#{build-global-definition\ 9016}#
+                                      #{situations\ 1750}#))))))
+                 (#{f\ 1748}# #{when-list\ 1740}# (quote ())))))
+           (#{chi-install-global\ 299}#
+             (lambda (#{name\ 1760}# #{e\ 1761}#)
+               (#{build-global-definition\ 162}#
                  #f
-                 #{name\ 10613}#
-                 (#{build-application\ 8998}#
+                 #{name\ 1760}#
+                 (#{build-application\ 144}#
                    #f
-                   (#{build-primref\ 9024}#
+                   (#{build-primref\ 170}#
                      #f
                      'make-syntax-transformer)
-                   (list (#{build-data\ 9026}# #f #{name\ 10613}#)
-                         (#{build-data\ 9026}# #f (quote macro))
-                         (#{build-application\ 8998}#
+                   (list (#{build-data\ 172}# #f #{name\ 1760}#)
+                         (#{build-data\ 172}# #f (quote macro))
+                         (#{build-application\ 144}#
                            #f
-                           (#{build-primref\ 9024}# #f (quote cons))
-                           (list #{e\ 10614}#
-                                 (#{build-application\ 8998}#
+                           (#{build-primref\ 170}# #f (quote cons))
+                           (list #{e\ 1761}#
+                                 (#{build-application\ 144}#
                                    #f
-                                   (#{build-primref\ 9024}#
+                                   (#{build-primref\ 170}#
                                      #f
                                      'module-name)
-                                   (list (#{build-application\ 8998}#
+                                   (list (#{build-application\ 144}#
                                            #f
-                                           (#{build-primref\ 9024}#
+                                           (#{build-primref\ 170}#
                                              #f
                                              'current-module)
                                            '()))))))))))
-           (#{chi-top-sequence\ 9151}#
-             (lambda (#{body\ 10628}#
-                      #{r\ 10629}#
-                      #{w\ 10630}#
-                      #{s\ 10631}#
-                      #{m\ 10632}#
-                      #{esew\ 10633}#
-                      #{mod\ 10634}#)
-               (#{build-sequence\ 9028}#
-                 #{s\ 10631}#
-                 (letrec ((#{dobody\ 10651}#
-                            (lambda (#{body\ 10652}#
-                                     #{r\ 10653}#
-                                     #{w\ 10654}#
-                                     #{m\ 10655}#
-                                     #{esew\ 10656}#
-                                     #{mod\ 10657}#
-                                     #{module\ 10658}#
-                                     #{out\ 10659}#)
-                              (if (null? #{body\ 10652}#)
-                                (reverse #{out\ 10659}#)
-                                (let ((#{first\ 10662}#
-                                        (#{chi-top\ 9159}#
-                                          (car #{body\ 10652}#)
-                                          #{r\ 10653}#
-                                          #{w\ 10654}#
-                                          #{m\ 10655}#
-                                          #{esew\ 10656}#
-                                          #{mod\ 10657}#)))
-                                  (let ((#{new-module\ 10664}#
+           (#{chi-top-sequence\ 297}#
+             (lambda (#{body\ 1775}#
+                      #{r\ 1776}#
+                      #{w\ 1777}#
+                      #{s\ 1778}#
+                      #{m\ 1779}#
+                      #{esew\ 1780}#
+                      #{mod\ 1781}#)
+               (#{build-sequence\ 174}#
+                 #{s\ 1778}#
+                 (letrec ((#{dobody\ 1798}#
+                            (lambda (#{body\ 1799}#
+                                     #{r\ 1800}#
+                                     #{w\ 1801}#
+                                     #{m\ 1802}#
+                                     #{esew\ 1803}#
+                                     #{mod\ 1804}#
+                                     #{module\ 1805}#
+                                     #{out\ 1806}#)
+                              (if (null? #{body\ 1799}#)
+                                (reverse #{out\ 1806}#)
+                                (let ((#{first\ 1809}#
+                                        (#{chi-top\ 305}#
+                                          (car #{body\ 1799}#)
+                                          #{r\ 1800}#
+                                          #{w\ 1801}#
+                                          #{m\ 1802}#
+                                          #{esew\ 1803}#
+                                          #{mod\ 1804}#)))
+                                  (let ((#{new-module\ 1811}#
                                           (current-module)))
-                                    (#{dobody\ 10651}#
-                                      (cdr #{body\ 10652}#)
-                                      #{r\ 10653}#
-                                      #{w\ 10654}#
-                                      #{m\ 10655}#
-                                      #{esew\ 10656}#
-                                      (if (eq? #{module\ 10658}#
-                                               #{new-module\ 10664}#)
-                                        #{mod\ 10657}#
+                                    (#{dobody\ 1798}#
+                                      (cdr #{body\ 1799}#)
+                                      #{r\ 1800}#
+                                      #{w\ 1801}#
+                                      #{m\ 1802}#
+                                      #{esew\ 1803}#
+                                      (if (eq? #{module\ 1805}#
+                                               #{new-module\ 1811}#)
+                                        #{mod\ 1804}#
                                         (cons 'hygiene
                                               (module-name
-                                                #{new-module\ 10664}#)))
-                                      #{new-module\ 10664}#
-                                      (cons #{first\ 10662}#
-                                            #{out\ 10659}#))))))))
-                   (#{dobody\ 10651}#
-                     #{body\ 10628}#
-                     #{r\ 10629}#
-                     #{w\ 10630}#
-                     #{m\ 10632}#
-                     #{esew\ 10633}#
-                     #{mod\ 10634}#
+                                                #{new-module\ 1811}#)))
+                                      #{new-module\ 1811}#
+                                      (cons #{first\ 1809}#
+                                            #{out\ 1806}#))))))))
+                   (#{dobody\ 1798}#
+                     #{body\ 1775}#
+                     #{r\ 1776}#
+                     #{w\ 1777}#
+                     #{m\ 1779}#
+                     #{esew\ 1780}#
+                     #{mod\ 1781}#
                      (current-module)
                      '())))))
-           (#{chi-sequence\ 9149}#
-             (lambda (#{body\ 10665}#
-                      #{r\ 10666}#
-                      #{w\ 10667}#
-                      #{s\ 10668}#
-                      #{mod\ 10669}#)
-               (#{build-sequence\ 9028}#
-                 #{s\ 10668}#
-                 (letrec ((#{dobody\ 10680}#
-                            (lambda (#{body\ 10681}#
-                                     #{r\ 10682}#
-                                     #{w\ 10683}#
-                                     #{mod\ 10684}#)
-                              (if (null? #{body\ 10681}#)
+           (#{chi-sequence\ 295}#
+             (lambda (#{body\ 1812}#
+                      #{r\ 1813}#
+                      #{w\ 1814}#
+                      #{s\ 1815}#
+                      #{mod\ 1816}#)
+               (#{build-sequence\ 174}#
+                 #{s\ 1815}#
+                 (letrec ((#{dobody\ 1827}#
+                            (lambda (#{body\ 1828}#
+                                     #{r\ 1829}#
+                                     #{w\ 1830}#
+                                     #{mod\ 1831}#)
+                              (if (null? #{body\ 1828}#)
                                 '()
-                                (let ((#{first\ 10686}#
-                                        (#{chi\ 9161}#
-                                          (car #{body\ 10681}#)
-                                          #{r\ 10682}#
-                                          #{w\ 10683}#
-                                          #{mod\ 10684}#)))
-                                  (cons #{first\ 10686}#
-                                        (#{dobody\ 10680}#
-                                          (cdr #{body\ 10681}#)
-                                          #{r\ 10682}#
-                                          #{w\ 10683}#
-                                          #{mod\ 10684}#)))))))
-                   (#{dobody\ 10680}#
-                     #{body\ 10665}#
-                     #{r\ 10666}#
-                     #{w\ 10667}#
-                     #{mod\ 10669}#)))))
-           (#{source-wrap\ 9147}#
-             (lambda (#{x\ 10687}#
-                      #{w\ 10688}#
-                      #{s\ 10689}#
-                      #{defmod\ 10690}#)
-               (#{wrap\ 9145}#
-                 (#{decorate-source\ 8994}#
-                   #{x\ 10687}#
-                   #{s\ 10689}#)
-                 #{w\ 10688}#
-                 #{defmod\ 10690}#)))
-           (#{wrap\ 9145}#
-             (lambda (#{x\ 10695}# #{w\ 10696}# #{defmod\ 10697}#)
-               (if (if (null? (#{wrap-marks\ 9083}# #{w\ 10696}#))
-                     (null? (#{wrap-subst\ 9085}# #{w\ 10696}#))
+                                (let ((#{first\ 1833}#
+                                        (#{chi\ 307}#
+                                          (car #{body\ 1828}#)
+                                          #{r\ 1829}#
+                                          #{w\ 1830}#
+                                          #{mod\ 1831}#)))
+                                  (cons #{first\ 1833}#
+                                        (#{dobody\ 1827}#
+                                          (cdr #{body\ 1828}#)
+                                          #{r\ 1829}#
+                                          #{w\ 1830}#
+                                          #{mod\ 1831}#)))))))
+                   (#{dobody\ 1827}#
+                     #{body\ 1812}#
+                     #{r\ 1813}#
+                     #{w\ 1814}#
+                     #{mod\ 1816}#)))))
+           (#{source-wrap\ 293}#
+             (lambda (#{x\ 1834}#
+                      #{w\ 1835}#
+                      #{s\ 1836}#
+                      #{defmod\ 1837}#)
+               (#{wrap\ 291}#
+                 (#{decorate-source\ 140}#
+                   #{x\ 1834}#
+                   #{s\ 1836}#)
+                 #{w\ 1835}#
+                 #{defmod\ 1837}#)))
+           (#{wrap\ 291}#
+             (lambda (#{x\ 1842}# #{w\ 1843}# #{defmod\ 1844}#)
+               (if (if (null? (#{wrap-marks\ 229}# #{w\ 1843}#))
+                     (null? (#{wrap-subst\ 231}# #{w\ 1843}#))
                      #f)
-                 #{x\ 10695}#
-                 (if (#{syntax-object?\ 9040}# #{x\ 10695}#)
-                   (#{make-syntax-object\ 9038}#
-                     (#{syntax-object-expression\ 9042}# #{x\ 10695}#)
-                     (#{join-wraps\ 9127}#
-                       #{w\ 10696}#
-                       (#{syntax-object-wrap\ 9044}# #{x\ 10695}#))
-                     (#{syntax-object-module\ 9046}# #{x\ 10695}#))
-                   (if (null? #{x\ 10695}#)
-                     #{x\ 10695}#
-                     (#{make-syntax-object\ 9038}#
-                       #{x\ 10695}#
-                       #{w\ 10696}#
-                       #{defmod\ 10697}#))))))
-           (#{bound-id-member?\ 9143}#
-             (lambda (#{x\ 10710}# #{list\ 10711}#)
-               (if (not (null? #{list\ 10711}#))
-                 (let ((#{t\ 10718}#
-                         (#{bound-id=?\ 9137}#
-                           #{x\ 10710}#
-                           (car #{list\ 10711}#))))
-                   (if #{t\ 10718}#
-                     #{t\ 10718}#
-                     (#{bound-id-member?\ 9143}#
-                       #{x\ 10710}#
-                       (cdr #{list\ 10711}#))))
+                 #{x\ 1842}#
+                 (if (#{syntax-object?\ 186}# #{x\ 1842}#)
+                   (#{make-syntax-object\ 184}#
+                     (#{syntax-object-expression\ 188}# #{x\ 1842}#)
+                     (#{join-wraps\ 273}#
+                       #{w\ 1843}#
+                       (#{syntax-object-wrap\ 190}# #{x\ 1842}#))
+                     (#{syntax-object-module\ 192}# #{x\ 1842}#))
+                   (if (null? #{x\ 1842}#)
+                     #{x\ 1842}#
+                     (#{make-syntax-object\ 184}#
+                       #{x\ 1842}#
+                       #{w\ 1843}#
+                       #{defmod\ 1844}#))))))
+           (#{bound-id-member?\ 289}#
+             (lambda (#{x\ 1857}# #{list\ 1858}#)
+               (if (not (null? #{list\ 1858}#))
+                 (let ((#{t\ 1865}#
+                         (#{bound-id=?\ 283}#
+                           #{x\ 1857}#
+                           (car #{list\ 1858}#))))
+                   (if #{t\ 1865}#
+                     #{t\ 1865}#
+                     (#{bound-id-member?\ 289}#
+                       #{x\ 1857}#
+                       (cdr #{list\ 1858}#))))
                  #f)))
-           (#{distinct-bound-ids?\ 9141}#
-             (lambda (#{ids\ 10720}#)
-               (letrec ((#{distinct?\ 10724}#
-                          (lambda (#{ids\ 10725}#)
-                            (let ((#{t\ 10728}# (null? #{ids\ 10725}#)))
-                              (if #{t\ 10728}#
-                                #{t\ 10728}#
-                                (if (not (#{bound-id-member?\ 9143}#
-                                           (car #{ids\ 10725}#)
-                                           (cdr #{ids\ 10725}#)))
-                                  (#{distinct?\ 10724}# (cdr #{ids\ 10725}#))
+           (#{distinct-bound-ids?\ 287}#
+             (lambda (#{ids\ 1867}#)
+               (letrec ((#{distinct?\ 1871}#
+                          (lambda (#{ids\ 1872}#)
+                            (let ((#{t\ 1875}# (null? #{ids\ 1872}#)))
+                              (if #{t\ 1875}#
+                                #{t\ 1875}#
+                                (if (not (#{bound-id-member?\ 289}#
+                                           (car #{ids\ 1872}#)
+                                           (cdr #{ids\ 1872}#)))
+                                  (#{distinct?\ 1871}# (cdr #{ids\ 1872}#))
                                   #f))))))
-                 (#{distinct?\ 10724}# #{ids\ 10720}#))))
-           (#{valid-bound-ids?\ 9139}#
-             (lambda (#{ids\ 10732}#)
-               (if (letrec ((#{all-ids?\ 10737}#
-                              (lambda (#{ids\ 10738}#)
-                                (let ((#{t\ 10741}# (null? #{ids\ 10738}#)))
-                                  (if #{t\ 10741}#
-                                    #{t\ 10741}#
-                                    (if (#{id?\ 9076}# (car #{ids\ 10738}#))
-                                      (#{all-ids?\ 10737}#
-                                        (cdr #{ids\ 10738}#))
+                 (#{distinct?\ 1871}# #{ids\ 1867}#))))
+           (#{valid-bound-ids?\ 285}#
+             (lambda (#{ids\ 1879}#)
+               (if (letrec ((#{all-ids?\ 1884}#
+                              (lambda (#{ids\ 1885}#)
+                                (let ((#{t\ 1888}# (null? #{ids\ 1885}#)))
+                                  (if #{t\ 1888}#
+                                    #{t\ 1888}#
+                                    (if (#{id?\ 222}# (car #{ids\ 1885}#))
+                                      (#{all-ids?\ 1884}# (cdr #{ids\ 1885}#))
                                       #f))))))
-                     (#{all-ids?\ 10737}# #{ids\ 10732}#))
-                 (#{distinct-bound-ids?\ 9141}# #{ids\ 10732}#)
+                     (#{all-ids?\ 1884}# #{ids\ 1879}#))
+                 (#{distinct-bound-ids?\ 287}# #{ids\ 1879}#)
                  #f)))
-           (#{bound-id=?\ 9137}#
-             (lambda (#{i\ 10746}# #{j\ 10747}#)
-               (if (if (#{syntax-object?\ 9040}# #{i\ 10746}#)
-                     (#{syntax-object?\ 9040}# #{j\ 10747}#)
+           (#{bound-id=?\ 283}#
+             (lambda (#{i\ 1893}# #{j\ 1894}#)
+               (if (if (#{syntax-object?\ 186}# #{i\ 1893}#)
+                     (#{syntax-object?\ 186}# #{j\ 1894}#)
                      #f)
-                 (if (eq? (#{syntax-object-expression\ 9042}# #{i\ 10746}#)
-                          (#{syntax-object-expression\ 9042}# #{j\ 10747}#))
-                   (#{same-marks?\ 9131}#
-                     (#{wrap-marks\ 9083}#
-                       (#{syntax-object-wrap\ 9044}# #{i\ 10746}#))
-                     (#{wrap-marks\ 9083}#
-                       (#{syntax-object-wrap\ 9044}# #{j\ 10747}#)))
+                 (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1893}#)
+                          (#{syntax-object-expression\ 188}# #{j\ 1894}#))
+                   (#{same-marks?\ 277}#
+                     (#{wrap-marks\ 229}#
+                       (#{syntax-object-wrap\ 190}# #{i\ 1893}#))
+                     (#{wrap-marks\ 229}#
+                       (#{syntax-object-wrap\ 190}# #{j\ 1894}#)))
                    #f)
-                 (eq? #{i\ 10746}# #{j\ 10747}#))))
-           (#{free-id=?\ 9135}#
-             (lambda (#{i\ 10754}# #{j\ 10755}#)
-               (if (eq? (let ((#{x\ 10761}# #{i\ 10754}#))
-                          (if (#{syntax-object?\ 9040}# #{x\ 10761}#)
-                            (#{syntax-object-expression\ 9042}# #{x\ 10761}#)
-                            #{x\ 10761}#))
-                        (let ((#{x\ 10764}# #{j\ 10755}#))
-                          (if (#{syntax-object?\ 9040}# #{x\ 10764}#)
-                            (#{syntax-object-expression\ 9042}# #{x\ 10764}#)
-                            #{x\ 10764}#)))
-                 (eq? (#{id-var-name\ 9133}# #{i\ 10754}# (quote (())))
-                      (#{id-var-name\ 9133}# #{j\ 10755}# (quote (()))))
+                 (eq? #{i\ 1893}# #{j\ 1894}#))))
+           (#{free-id=?\ 281}#
+             (lambda (#{i\ 1901}# #{j\ 1902}#)
+               (if (eq? (let ((#{x\ 1908}# #{i\ 1901}#))
+                          (if (#{syntax-object?\ 186}# #{x\ 1908}#)
+                            (#{syntax-object-expression\ 188}# #{x\ 1908}#)
+                            #{x\ 1908}#))
+                        (let ((#{x\ 1911}# #{j\ 1902}#))
+                          (if (#{syntax-object?\ 186}# #{x\ 1911}#)
+                            (#{syntax-object-expression\ 188}# #{x\ 1911}#)
+                            #{x\ 1911}#)))
+                 (eq? (#{id-var-name\ 279}# #{i\ 1901}# (quote (())))
+                      (#{id-var-name\ 279}# #{j\ 1902}# (quote (()))))
                  #f)))
-           (#{id-var-name\ 9133}#
-             (lambda (#{id\ 10768}# #{w\ 10769}#)
-               (letrec ((#{search-vector-rib\ 10778}#
-                          (lambda (#{sym\ 10790}#
-                                   #{subst\ 10791}#
-                                   #{marks\ 10792}#
-                                   #{symnames\ 10793}#
-                                   #{ribcage\ 10794}#)
-                            (let ((#{n\ 10801}#
-                                    (vector-length #{symnames\ 10793}#)))
-                              (letrec ((#{f\ 10804}#
-                                         (lambda (#{i\ 10805}#)
-                                           (if (#{fx=\ 8981}#
-                                                 #{i\ 10805}#
-                                                 #{n\ 10801}#)
-                                             (#{search\ 10774}#
-                                               #{sym\ 10790}#
-                                               (cdr #{subst\ 10791}#)
-                                               #{marks\ 10792}#)
+           (#{id-var-name\ 279}#
+             (lambda (#{id\ 1915}# #{w\ 1916}#)
+               (letrec ((#{search-vector-rib\ 1925}#
+                          (lambda (#{sym\ 1937}#
+                                   #{subst\ 1938}#
+                                   #{marks\ 1939}#
+                                   #{symnames\ 1940}#
+                                   #{ribcage\ 1941}#)
+                            (let ((#{n\ 1948}#
+                                    (vector-length #{symnames\ 1940}#)))
+                              (letrec ((#{f\ 1951}#
+                                         (lambda (#{i\ 1952}#)
+                                           (if (#{fx=\ 127}#
+                                                 #{i\ 1952}#
+                                                 #{n\ 1948}#)
+                                             (#{search\ 1921}#
+                                               #{sym\ 1937}#
+                                               (cdr #{subst\ 1938}#)
+                                               #{marks\ 1939}#)
                                              (if (if (eq? (vector-ref
-                                                            #{symnames\ 10793}#
-                                                            #{i\ 10805}#)
-                                                          #{sym\ 10790}#)
-                                                   (#{same-marks?\ 9131}#
-                                                     #{marks\ 10792}#
+                                                            #{symnames\ 1940}#
+                                                            #{i\ 1952}#)
+                                                          #{sym\ 1937}#)
+                                                   (#{same-marks?\ 277}#
+                                                     #{marks\ 1939}#
                                                      (vector-ref
-                                                       (#{ribcage-marks\ 9103}#
-                                                         #{ribcage\ 10794}#)
-                                                       #{i\ 10805}#))
+                                                       (#{ribcage-marks\ 249}#
+                                                         #{ribcage\ 1941}#)
+                                                       #{i\ 1952}#))
                                                    #f)
                                                (values
                                                  (vector-ref
-                                                   (#{ribcage-labels\ 9105}#
-                                                     #{ribcage\ 10794}#)
-                                                   #{i\ 10805}#)
-                                                 #{marks\ 10792}#)
-                                               (#{f\ 10804}#
-                                                 (#{fx+\ 8977}#
-                                                   #{i\ 10805}#
+                                                   (#{ribcage-labels\ 251}#
+                                                     #{ribcage\ 1941}#)
+                                                   #{i\ 1952}#)
+                                                 #{marks\ 1939}#)
+                                               (#{f\ 1951}#
+                                                 (#{fx+\ 123}#
+                                                   #{i\ 1952}#
                                                    1)))))))
-                                (#{f\ 10804}# 0)))))
-                        (#{search-list-rib\ 10776}#
-                          (lambda (#{sym\ 10813}#
-                                   #{subst\ 10814}#
-                                   #{marks\ 10815}#
-                                   #{symnames\ 10816}#
-                                   #{ribcage\ 10817}#)
-                            (letrec ((#{f\ 10826}#
-                                       (lambda (#{symnames\ 10827}#
-                                                #{i\ 10828}#)
-                                         (if (null? #{symnames\ 10827}#)
-                                           (#{search\ 10774}#
-                                             #{sym\ 10813}#
-                                             (cdr #{subst\ 10814}#)
-                                             #{marks\ 10815}#)
-                                           (if (if (eq? (car #{symnames\ 
10827}#)
-                                                        #{sym\ 10813}#)
-                                                 (#{same-marks?\ 9131}#
-                                                   #{marks\ 10815}#
+                                (#{f\ 1951}# 0)))))
+                        (#{search-list-rib\ 1923}#
+                          (lambda (#{sym\ 1960}#
+                                   #{subst\ 1961}#
+                                   #{marks\ 1962}#
+                                   #{symnames\ 1963}#
+                                   #{ribcage\ 1964}#)
+                            (letrec ((#{f\ 1973}#
+                                       (lambda (#{symnames\ 1974}# #{i\ 1975}#)
+                                         (if (null? #{symnames\ 1974}#)
+                                           (#{search\ 1921}#
+                                             #{sym\ 1960}#
+                                             (cdr #{subst\ 1961}#)
+                                             #{marks\ 1962}#)
+                                           (if (if (eq? (car #{symnames\ 
1974}#)
+                                                        #{sym\ 1960}#)
+                                                 (#{same-marks?\ 277}#
+                                                   #{marks\ 1962}#
                                                    (list-ref
-                                                     (#{ribcage-marks\ 9103}#
-                                                       #{ribcage\ 10817}#)
-                                                     #{i\ 10828}#))
+                                                     (#{ribcage-marks\ 249}#
+                                                       #{ribcage\ 1964}#)
+                                                     #{i\ 1975}#))
                                                  #f)
                                              (values
                                                (list-ref
-                                                 (#{ribcage-labels\ 9105}#
-                                                   #{ribcage\ 10817}#)
-                                                 #{i\ 10828}#)
-                                               #{marks\ 10815}#)
-                                             (#{f\ 10826}#
-                                               (cdr #{symnames\ 10827}#)
-                                               (#{fx+\ 8977}#
-                                                 #{i\ 10828}#
+                                                 (#{ribcage-labels\ 251}#
+                                                   #{ribcage\ 1964}#)
+                                                 #{i\ 1975}#)
+                                               #{marks\ 1962}#)
+                                             (#{f\ 1973}#
+                                               (cdr #{symnames\ 1974}#)
+                                               (#{fx+\ 123}#
+                                                 #{i\ 1975}#
                                                  1)))))))
-                              (#{f\ 10826}# #{symnames\ 10816}# 0))))
-                        (#{search\ 10774}#
-                          (lambda (#{sym\ 10836}#
-                                   #{subst\ 10837}#
-                                   #{marks\ 10838}#)
-                            (if (null? #{subst\ 10837}#)
-                              (values #f #{marks\ 10838}#)
-                              (let ((#{fst\ 10843}# (car #{subst\ 10837}#)))
-                                (if (eq? #{fst\ 10843}# (quote shift))
-                                  (#{search\ 10774}#
-                                    #{sym\ 10836}#
-                                    (cdr #{subst\ 10837}#)
-                                    (cdr #{marks\ 10838}#))
-                                  (let ((#{symnames\ 10845}#
-                                          (#{ribcage-symnames\ 9101}#
-                                            #{fst\ 10843}#)))
-                                    (if (vector? #{symnames\ 10845}#)
-                                      (#{search-vector-rib\ 10778}#
-                                        #{sym\ 10836}#
-                                        #{subst\ 10837}#
-                                        #{marks\ 10838}#
-                                        #{symnames\ 10845}#
-                                        #{fst\ 10843}#)
-                                      (#{search-list-rib\ 10776}#
-                                        #{sym\ 10836}#
-                                        #{subst\ 10837}#
-                                        #{marks\ 10838}#
-                                        #{symnames\ 10845}#
-                                        #{fst\ 10843}#)))))))))
-                 (if (symbol? #{id\ 10768}#)
-                   (let ((#{t\ 10848}#
+                              (#{f\ 1973}# #{symnames\ 1963}# 0))))
+                        (#{search\ 1921}#
+                          (lambda (#{sym\ 1983}#
+                                   #{subst\ 1984}#
+                                   #{marks\ 1985}#)
+                            (if (null? #{subst\ 1984}#)
+                              (values #f #{marks\ 1985}#)
+                              (let ((#{fst\ 1990}# (car #{subst\ 1984}#)))
+                                (if (eq? #{fst\ 1990}# (quote shift))
+                                  (#{search\ 1921}#
+                                    #{sym\ 1983}#
+                                    (cdr #{subst\ 1984}#)
+                                    (cdr #{marks\ 1985}#))
+                                  (let ((#{symnames\ 1992}#
+                                          (#{ribcage-symnames\ 247}#
+                                            #{fst\ 1990}#)))
+                                    (if (vector? #{symnames\ 1992}#)
+                                      (#{search-vector-rib\ 1925}#
+                                        #{sym\ 1983}#
+                                        #{subst\ 1984}#
+                                        #{marks\ 1985}#
+                                        #{symnames\ 1992}#
+                                        #{fst\ 1990}#)
+                                      (#{search-list-rib\ 1923}#
+                                        #{sym\ 1983}#
+                                        #{subst\ 1984}#
+                                        #{marks\ 1985}#
+                                        #{symnames\ 1992}#
+                                        #{fst\ 1990}#)))))))))
+                 (if (symbol? #{id\ 1915}#)
+                   (let ((#{t\ 1995}#
                            (call-with-values
                              (lambda ()
-                               (#{search\ 10774}#
-                                 #{id\ 10768}#
-                                 (#{wrap-subst\ 9085}# #{w\ 10769}#)
-                                 (#{wrap-marks\ 9083}# #{w\ 10769}#)))
-                             (lambda (#{x\ 10850}# . #{ignore\ 10851}#)
-                               #{x\ 10850}#))))
-                     (if #{t\ 10848}# #{t\ 10848}# #{id\ 10768}#))
-                   (if (#{syntax-object?\ 9040}# #{id\ 10768}#)
-                     (let ((#{id\ 10859}#
-                             (#{syntax-object-expression\ 9042}#
-                               #{id\ 10768}#))
-                           (#{w1\ 10860}#
-                             (#{syntax-object-wrap\ 9044}# #{id\ 10768}#)))
-                       (let ((#{marks\ 10862}#
-                               (#{join-marks\ 9129}#
-                                 (#{wrap-marks\ 9083}# #{w\ 10769}#)
-                                 (#{wrap-marks\ 9083}# #{w1\ 10860}#))))
+                               (#{search\ 1921}#
+                                 #{id\ 1915}#
+                                 (#{wrap-subst\ 231}# #{w\ 1916}#)
+                                 (#{wrap-marks\ 229}# #{w\ 1916}#)))
+                             (lambda (#{x\ 1997}# . #{ignore\ 1998}#)
+                               #{x\ 1997}#))))
+                     (if #{t\ 1995}# #{t\ 1995}# #{id\ 1915}#))
+                   (if (#{syntax-object?\ 186}# #{id\ 1915}#)
+                     (let ((#{id\ 2006}#
+                             (#{syntax-object-expression\ 188}# #{id\ 1915}#))
+                           (#{w1\ 2007}#
+                             (#{syntax-object-wrap\ 190}# #{id\ 1915}#)))
+                       (let ((#{marks\ 2009}#
+                               (#{join-marks\ 275}#
+                                 (#{wrap-marks\ 229}# #{w\ 1916}#)
+                                 (#{wrap-marks\ 229}# #{w1\ 2007}#))))
                          (call-with-values
                            (lambda ()
-                             (#{search\ 10774}#
-                               #{id\ 10859}#
-                               (#{wrap-subst\ 9085}# #{w\ 10769}#)
-                               #{marks\ 10862}#))
-                           (lambda (#{new-id\ 10863}# #{marks\ 10864}#)
-                             (let ((#{t\ 10869}# #{new-id\ 10863}#))
-                               (if #{t\ 10869}#
-                                 #{t\ 10869}#
-                                 (let ((#{t\ 10872}#
+                             (#{search\ 1921}#
+                               #{id\ 2006}#
+                               (#{wrap-subst\ 231}# #{w\ 1916}#)
+                               #{marks\ 2009}#))
+                           (lambda (#{new-id\ 2010}# #{marks\ 2011}#)
+                             (let ((#{t\ 2016}# #{new-id\ 2010}#))
+                               (if #{t\ 2016}#
+                                 #{t\ 2016}#
+                                 (let ((#{t\ 2019}#
                                          (call-with-values
                                            (lambda ()
-                                             (#{search\ 10774}#
-                                               #{id\ 10859}#
-                                               (#{wrap-subst\ 9085}#
-                                                 #{w1\ 10860}#)
-                                               #{marks\ 10864}#))
-                                           (lambda (#{x\ 10874}#
+                                             (#{search\ 1921}#
+                                               #{id\ 2006}#
+                                               (#{wrap-subst\ 231}#
+                                                 #{w1\ 2007}#)
+                                               #{marks\ 2011}#))
+                                           (lambda (#{x\ 2021}#
                                                     .
-                                                    #{ignore\ 10875}#)
-                                             #{x\ 10874}#))))
-                                   (if #{t\ 10872}#
-                                     #{t\ 10872}#
-                                     #{id\ 10859}#))))))))
+                                                    #{ignore\ 2022}#)
+                                             #{x\ 2021}#))))
+                                   (if #{t\ 2019}#
+                                     #{t\ 2019}#
+                                     #{id\ 2006}#))))))))
                      (syntax-violation
                        'id-var-name
                        "invalid id"
-                       #{id\ 10768}#))))))
-           (#{same-marks?\ 9131}#
-             (lambda (#{x\ 10880}# #{y\ 10881}#)
-               (let ((#{t\ 10886}# (eq? #{x\ 10880}# #{y\ 10881}#)))
-                 (if #{t\ 10886}#
-                   #{t\ 10886}#
-                   (if (not (null? #{x\ 10880}#))
-                     (if (not (null? #{y\ 10881}#))
-                       (if (eq? (car #{x\ 10880}#) (car #{y\ 10881}#))
-                         (#{same-marks?\ 9131}#
-                           (cdr #{x\ 10880}#)
-                           (cdr #{y\ 10881}#))
+                       #{id\ 1915}#))))))
+           (#{same-marks?\ 277}#
+             (lambda (#{x\ 2027}# #{y\ 2028}#)
+               (let ((#{t\ 2033}# (eq? #{x\ 2027}# #{y\ 2028}#)))
+                 (if #{t\ 2033}#
+                   #{t\ 2033}#
+                   (if (not (null? #{x\ 2027}#))
+                     (if (not (null? #{y\ 2028}#))
+                       (if (eq? (car #{x\ 2027}#) (car #{y\ 2028}#))
+                         (#{same-marks?\ 277}#
+                           (cdr #{x\ 2027}#)
+                           (cdr #{y\ 2028}#))
                          #f)
                        #f)
                      #f)))))
-           (#{join-marks\ 9129}#
-             (lambda (#{m1\ 10892}# #{m2\ 10893}#)
-               (#{smart-append\ 9125}#
-                 #{m1\ 10892}#
-                 #{m2\ 10893}#)))
-           (#{join-wraps\ 9127}#
-             (lambda (#{w1\ 10896}# #{w2\ 10897}#)
-               (let ((#{m1\ 10902}#
-                       (#{wrap-marks\ 9083}# #{w1\ 10896}#))
-                     (#{s1\ 10903}#
-                       (#{wrap-subst\ 9085}# #{w1\ 10896}#)))
-                 (if (null? #{m1\ 10902}#)
-                   (if (null? #{s1\ 10903}#)
-                     #{w2\ 10897}#
-                     (#{make-wrap\ 9081}#
-                       (#{wrap-marks\ 9083}# #{w2\ 10897}#)
-                       (#{smart-append\ 9125}#
-                         #{s1\ 10903}#
-                         (#{wrap-subst\ 9085}# #{w2\ 10897}#))))
-                   (#{make-wrap\ 9081}#
-                     (#{smart-append\ 9125}#
-                       #{m1\ 10902}#
-                       (#{wrap-marks\ 9083}# #{w2\ 10897}#))
-                     (#{smart-append\ 9125}#
-                       #{s1\ 10903}#
-                       (#{wrap-subst\ 9085}# #{w2\ 10897}#)))))))
-           (#{smart-append\ 9125}#
-             (lambda (#{m1\ 10904}# #{m2\ 10905}#)
-               (if (null? #{m2\ 10905}#)
-                 #{m1\ 10904}#
-                 (append #{m1\ 10904}# #{m2\ 10905}#))))
-           (#{make-binding-wrap\ 9123}#
-             (lambda (#{ids\ 10908}# #{labels\ 10909}# #{w\ 10910}#)
-               (if (null? #{ids\ 10908}#)
-                 #{w\ 10910}#
-                 (#{make-wrap\ 9081}#
-                   (#{wrap-marks\ 9083}# #{w\ 10910}#)
-                   (cons (let ((#{labelvec\ 10915}#
-                                 (list->vector #{labels\ 10909}#)))
-                           (let ((#{n\ 10917}#
-                                   (vector-length #{labelvec\ 10915}#)))
-                             (let ((#{symnamevec\ 10920}#
-                                     (make-vector #{n\ 10917}#))
-                                   (#{marksvec\ 10921}#
-                                     (make-vector #{n\ 10917}#)))
+           (#{join-marks\ 275}#
+             (lambda (#{m1\ 2039}# #{m2\ 2040}#)
+               (#{smart-append\ 271}# #{m1\ 2039}# #{m2\ 2040}#)))
+           (#{join-wraps\ 273}#
+             (lambda (#{w1\ 2043}# #{w2\ 2044}#)
+               (let ((#{m1\ 2049}# (#{wrap-marks\ 229}# #{w1\ 2043}#))
+                     (#{s1\ 2050}# (#{wrap-subst\ 231}# #{w1\ 2043}#)))
+                 (if (null? #{m1\ 2049}#)
+                   (if (null? #{s1\ 2050}#)
+                     #{w2\ 2044}#
+                     (#{make-wrap\ 227}#
+                       (#{wrap-marks\ 229}# #{w2\ 2044}#)
+                       (#{smart-append\ 271}#
+                         #{s1\ 2050}#
+                         (#{wrap-subst\ 231}# #{w2\ 2044}#))))
+                   (#{make-wrap\ 227}#
+                     (#{smart-append\ 271}#
+                       #{m1\ 2049}#
+                       (#{wrap-marks\ 229}# #{w2\ 2044}#))
+                     (#{smart-append\ 271}#
+                       #{s1\ 2050}#
+                       (#{wrap-subst\ 231}# #{w2\ 2044}#)))))))
+           (#{smart-append\ 271}#
+             (lambda (#{m1\ 2051}# #{m2\ 2052}#)
+               (if (null? #{m2\ 2052}#)
+                 #{m1\ 2051}#
+                 (append #{m1\ 2051}# #{m2\ 2052}#))))
+           (#{make-binding-wrap\ 269}#
+             (lambda (#{ids\ 2055}# #{labels\ 2056}# #{w\ 2057}#)
+               (if (null? #{ids\ 2055}#)
+                 #{w\ 2057}#
+                 (#{make-wrap\ 227}#
+                   (#{wrap-marks\ 229}# #{w\ 2057}#)
+                   (cons (let ((#{labelvec\ 2062}#
+                                 (list->vector #{labels\ 2056}#)))
+                           (let ((#{n\ 2064}#
+                                   (vector-length #{labelvec\ 2062}#)))
+                             (let ((#{symnamevec\ 2067}#
+                                     (make-vector #{n\ 2064}#))
+                                   (#{marksvec\ 2068}#
+                                     (make-vector #{n\ 2064}#)))
                                (begin
-                                 (letrec ((#{f\ 10925}#
-                                            (lambda (#{ids\ 10926}#
-                                                     #{i\ 10927}#)
-                                              (if (not (null? #{ids\ 10926}#))
+                                 (letrec ((#{f\ 2072}#
+                                            (lambda (#{ids\ 2073}# #{i\ 2074}#)
+                                              (if (not (null? #{ids\ 2073}#))
                                                 (call-with-values
                                                   (lambda ()
-                                                    (#{id-sym-name&marks\ 
9079}#
-                                                      (car #{ids\ 10926}#)
-                                                      #{w\ 10910}#))
-                                                  (lambda (#{symname\ 10928}#
-                                                           #{marks\ 10929}#)
+                                                    (#{id-sym-name&marks\ 225}#
+                                                      (car #{ids\ 2073}#)
+                                                      #{w\ 2057}#))
+                                                  (lambda (#{symname\ 2075}#
+                                                           #{marks\ 2076}#)
                                                     (begin
                                                       (vector-set!
-                                                        #{symnamevec\ 10920}#
-                                                        #{i\ 10927}#
-                                                        #{symname\ 10928}#)
+                                                        #{symnamevec\ 2067}#
+                                                        #{i\ 2074}#
+                                                        #{symname\ 2075}#)
                                                       (vector-set!
-                                                        #{marksvec\ 10921}#
-                                                        #{i\ 10927}#
-                                                        #{marks\ 10929}#)
-                                                      (#{f\ 10925}#
-                                                        (cdr #{ids\ 10926}#)
-                                                        (#{fx+\ 8977}#
-                                                          #{i\ 10927}#
+                                                        #{marksvec\ 2068}#
+                                                        #{i\ 2074}#
+                                                        #{marks\ 2076}#)
+                                                      (#{f\ 2072}#
+                                                        (cdr #{ids\ 2073}#)
+                                                        (#{fx+\ 123}#
+                                                          #{i\ 2074}#
                                                           1)))))))))
-                                   (#{f\ 10925}# #{ids\ 10908}# 0))
-                                 (#{make-ribcage\ 9097}#
-                                   #{symnamevec\ 10920}#
-                                   #{marksvec\ 10921}#
-                                   #{labelvec\ 10915}#)))))
-                         (#{wrap-subst\ 9085}# #{w\ 10910}#))))))
-           (#{extend-ribcage!\ 9121}#
-             (lambda (#{ribcage\ 10932}#
-                      #{id\ 10933}#
-                      #{label\ 10934}#)
+                                   (#{f\ 2072}# #{ids\ 2055}# 0))
+                                 (#{make-ribcage\ 243}#
+                                   #{symnamevec\ 2067}#
+                                   #{marksvec\ 2068}#
+                                   #{labelvec\ 2062}#)))))
+                         (#{wrap-subst\ 231}# #{w\ 2057}#))))))
+           (#{extend-ribcage!\ 267}#
+             (lambda (#{ribcage\ 2079}# #{id\ 2080}# #{label\ 2081}#)
                (begin
-                 (#{set-ribcage-symnames!\ 9107}#
-                   #{ribcage\ 10932}#
-                   (cons (#{syntax-object-expression\ 9042}#
-                           #{id\ 10933}#)
-                         (#{ribcage-symnames\ 9101}# #{ribcage\ 10932}#)))
-                 (#{set-ribcage-marks!\ 9109}#
-                   #{ribcage\ 10932}#
-                   (cons (#{wrap-marks\ 9083}#
-                           (#{syntax-object-wrap\ 9044}# #{id\ 10933}#))
-                         (#{ribcage-marks\ 9103}# #{ribcage\ 10932}#)))
-                 (#{set-ribcage-labels!\ 9111}#
-                   #{ribcage\ 10932}#
-                   (cons #{label\ 10934}#
-                         (#{ribcage-labels\ 9105}# #{ribcage\ 10932}#))))))
-           (#{anti-mark\ 9117}#
-             (lambda (#{w\ 10938}#)
-               (#{make-wrap\ 9081}#
-                 (cons #f (#{wrap-marks\ 9083}# #{w\ 10938}#))
+                 (#{set-ribcage-symnames!\ 253}#
+                   #{ribcage\ 2079}#
+                   (cons (#{syntax-object-expression\ 188}# #{id\ 2080}#)
+                         (#{ribcage-symnames\ 247}# #{ribcage\ 2079}#)))
+                 (#{set-ribcage-marks!\ 255}#
+                   #{ribcage\ 2079}#
+                   (cons (#{wrap-marks\ 229}#
+                           (#{syntax-object-wrap\ 190}# #{id\ 2080}#))
+                         (#{ribcage-marks\ 249}# #{ribcage\ 2079}#)))
+                 (#{set-ribcage-labels!\ 257}#
+                   #{ribcage\ 2079}#
+                   (cons #{label\ 2081}#
+                         (#{ribcage-labels\ 251}# #{ribcage\ 2079}#))))))
+           (#{anti-mark\ 263}#
+             (lambda (#{w\ 2085}#)
+               (#{make-wrap\ 227}#
+                 (cons #f (#{wrap-marks\ 229}# #{w\ 2085}#))
                  (cons 'shift
-                       (#{wrap-subst\ 9085}# #{w\ 10938}#)))))
-           (#{set-ribcage-labels!\ 9111}#
-             (lambda (#{x\ 10941}# #{update\ 10942}#)
-               (vector-set! #{x\ 10941}# 3 #{update\ 10942}#)))
-           (#{set-ribcage-marks!\ 9109}#
-             (lambda (#{x\ 10945}# #{update\ 10946}#)
-               (vector-set! #{x\ 10945}# 2 #{update\ 10946}#)))
-           (#{set-ribcage-symnames!\ 9107}#
-             (lambda (#{x\ 10949}# #{update\ 10950}#)
-               (vector-set! #{x\ 10949}# 1 #{update\ 10950}#)))
-           (#{ribcage-labels\ 9105}#
-             (lambda (#{x\ 10953}#)
-               (vector-ref #{x\ 10953}# 3)))
-           (#{ribcage-marks\ 9103}#
-             (lambda (#{x\ 10955}#)
-               (vector-ref #{x\ 10955}# 2)))
-           (#{ribcage-symnames\ 9101}#
-             (lambda (#{x\ 10957}#)
-               (vector-ref #{x\ 10957}# 1)))
-           (#{ribcage?\ 9099}#
-             (lambda (#{x\ 10959}#)
-               (if (vector? #{x\ 10959}#)
-                 (if (= (vector-length #{x\ 10959}#) 4)
-                   (eq? (vector-ref #{x\ 10959}# 0) (quote ribcage))
+                       (#{wrap-subst\ 231}# #{w\ 2085}#)))))
+           (#{set-ribcage-labels!\ 257}#
+             (lambda (#{x\ 2088}# #{update\ 2089}#)
+               (vector-set! #{x\ 2088}# 3 #{update\ 2089}#)))
+           (#{set-ribcage-marks!\ 255}#
+             (lambda (#{x\ 2092}# #{update\ 2093}#)
+               (vector-set! #{x\ 2092}# 2 #{update\ 2093}#)))
+           (#{set-ribcage-symnames!\ 253}#
+             (lambda (#{x\ 2096}# #{update\ 2097}#)
+               (vector-set! #{x\ 2096}# 1 #{update\ 2097}#)))
+           (#{ribcage-labels\ 251}#
+             (lambda (#{x\ 2100}#) (vector-ref #{x\ 2100}# 3)))
+           (#{ribcage-marks\ 249}#
+             (lambda (#{x\ 2102}#) (vector-ref #{x\ 2102}# 2)))
+           (#{ribcage-symnames\ 247}#
+             (lambda (#{x\ 2104}#) (vector-ref #{x\ 2104}# 1)))
+           (#{ribcage?\ 245}#
+             (lambda (#{x\ 2106}#)
+               (if (vector? #{x\ 2106}#)
+                 (if (= (vector-length #{x\ 2106}#) 4)
+                   (eq? (vector-ref #{x\ 2106}# 0) (quote ribcage))
                    #f)
                  #f)))
-           (#{make-ribcage\ 9097}#
-             (lambda (#{symnames\ 10964}#
-                      #{marks\ 10965}#
-                      #{labels\ 10966}#)
+           (#{make-ribcage\ 243}#
+             (lambda (#{symnames\ 2111}#
+                      #{marks\ 2112}#
+                      #{labels\ 2113}#)
                (vector
                  'ribcage
-                 #{symnames\ 10964}#
-                 #{marks\ 10965}#
-                 #{labels\ 10966}#)))
-           (#{gen-labels\ 9094}#
-             (lambda (#{ls\ 10970}#)
-               (if (null? #{ls\ 10970}#)
+                 #{symnames\ 2111}#
+                 #{marks\ 2112}#
+                 #{labels\ 2113}#)))
+           (#{gen-labels\ 240}#
+             (lambda (#{ls\ 2117}#)
+               (if (null? #{ls\ 2117}#)
                  '()
-                 (cons (#{gen-label\ 9092}#)
-                       (#{gen-labels\ 9094}# (cdr #{ls\ 10970}#))))))
-           (#{gen-label\ 9092}#
+                 (cons (#{gen-label\ 238}#)
+                       (#{gen-labels\ 240}# (cdr #{ls\ 2117}#))))))
+           (#{gen-label\ 238}#
              (lambda () (symbol->string (gensym "i"))))
-           (#{wrap-subst\ 9085}# cdr)
-           (#{wrap-marks\ 9083}# car)
-           (#{make-wrap\ 9081}# cons)
-           (#{id-sym-name&marks\ 9079}#
-             (lambda (#{x\ 10972}# #{w\ 10973}#)
-               (if (#{syntax-object?\ 9040}# #{x\ 10972}#)
+           (#{wrap-subst\ 231}# cdr)
+           (#{wrap-marks\ 229}# car)
+           (#{make-wrap\ 227}# cons)
+           (#{id-sym-name&marks\ 225}#
+             (lambda (#{x\ 2119}# #{w\ 2120}#)
+               (if (#{syntax-object?\ 186}# #{x\ 2119}#)
                  (values
-                   (#{syntax-object-expression\ 9042}# #{x\ 10972}#)
-                   (#{join-marks\ 9129}#
-                     (#{wrap-marks\ 9083}# #{w\ 10973}#)
-                     (#{wrap-marks\ 9083}#
-                       (#{syntax-object-wrap\ 9044}# #{x\ 10972}#))))
+                   (#{syntax-object-expression\ 188}# #{x\ 2119}#)
+                   (#{join-marks\ 275}#
+                     (#{wrap-marks\ 229}# #{w\ 2120}#)
+                     (#{wrap-marks\ 229}#
+                       (#{syntax-object-wrap\ 190}# #{x\ 2119}#))))
                  (values
-                   #{x\ 10972}#
-                   (#{wrap-marks\ 9083}# #{w\ 10973}#)))))
-           (#{id?\ 9076}#
-             (lambda (#{x\ 10976}#)
-               (if (symbol? #{x\ 10976}#)
+                   #{x\ 2119}#
+                   (#{wrap-marks\ 229}# #{w\ 2120}#)))))
+           (#{id?\ 222}#
+             (lambda (#{x\ 2123}#)
+               (if (symbol? #{x\ 2123}#)
                  #t
-                 (if (#{syntax-object?\ 9040}# #{x\ 10976}#)
+                 (if (#{syntax-object?\ 186}# #{x\ 2123}#)
                    (symbol?
-                     (#{syntax-object-expression\ 9042}# #{x\ 10976}#))
+                     (#{syntax-object-expression\ 188}# #{x\ 2123}#))
                    #f))))
-           (#{nonsymbol-id?\ 9074}#
-             (lambda (#{x\ 10983}#)
-               (if (#{syntax-object?\ 9040}# #{x\ 10983}#)
+           (#{nonsymbol-id?\ 220}#
+             (lambda (#{x\ 2130}#)
+               (if (#{syntax-object?\ 186}# #{x\ 2130}#)
                  (symbol?
-                   (#{syntax-object-expression\ 9042}# #{x\ 10983}#))
+                   (#{syntax-object-expression\ 188}# #{x\ 2130}#))
                  #f)))
-           (#{global-extend\ 9072}#
-             (lambda (#{type\ 10987}# #{sym\ 10988}# #{val\ 10989}#)
-               (#{put-global-definition-hook\ 8990}#
-                 #{sym\ 10988}#
-                 #{type\ 10987}#
-                 #{val\ 10989}#)))
-           (#{lookup\ 9070}#
-             (lambda (#{x\ 10993}# #{r\ 10994}# #{mod\ 10995}#)
-               (let ((#{t\ 11001}# (assq #{x\ 10993}# #{r\ 10994}#)))
-                 (if #{t\ 11001}#
-                   (cdr #{t\ 11001}#)
-                   (if (symbol? #{x\ 10993}#)
-                     (let ((#{t\ 11007}#
-                             (#{get-global-definition-hook\ 8992}#
-                               #{x\ 10993}#
-                               #{mod\ 10995}#)))
-                       (if #{t\ 11007}# #{t\ 11007}# (quote (global))))
+           (#{global-extend\ 218}#
+             (lambda (#{type\ 2134}# #{sym\ 2135}# #{val\ 2136}#)
+               (#{put-global-definition-hook\ 136}#
+                 #{sym\ 2135}#
+                 #{type\ 2134}#
+                 #{val\ 2136}#)))
+           (#{lookup\ 216}#
+             (lambda (#{x\ 2140}# #{r\ 2141}# #{mod\ 2142}#)
+               (let ((#{t\ 2148}# (assq #{x\ 2140}# #{r\ 2141}#)))
+                 (if #{t\ 2148}#
+                   (cdr #{t\ 2148}#)
+                   (if (symbol? #{x\ 2140}#)
+                     (let ((#{t\ 2154}#
+                             (#{get-global-definition-hook\ 138}#
+                               #{x\ 2140}#
+                               #{mod\ 2142}#)))
+                       (if #{t\ 2154}# #{t\ 2154}# (quote (global))))
                      '(displaced-lexical))))))
-           (#{macros-only-env\ 9068}#
-             (lambda (#{r\ 11012}#)
-               (if (null? #{r\ 11012}#)
+           (#{macros-only-env\ 214}#
+             (lambda (#{r\ 2159}#)
+               (if (null? #{r\ 2159}#)
                  '()
-                 (let ((#{a\ 11015}# (car #{r\ 11012}#)))
-                   (if (eq? (cadr #{a\ 11015}#) (quote macro))
-                     (cons #{a\ 11015}#
-                           (#{macros-only-env\ 9068}# (cdr #{r\ 11012}#)))
-                     (#{macros-only-env\ 9068}# (cdr #{r\ 11012}#)))))))
-           (#{extend-var-env\ 9066}#
-             (lambda (#{labels\ 11016}# #{vars\ 11017}# #{r\ 11018}#)
-               (if (null? #{labels\ 11016}#)
-                 #{r\ 11018}#
-                 (#{extend-var-env\ 9066}#
-                   (cdr #{labels\ 11016}#)
-                   (cdr #{vars\ 11017}#)
-                   (cons (cons (car #{labels\ 11016}#)
-                               (cons (quote lexical) (car #{vars\ 11017}#)))
-                         #{r\ 11018}#)))))
-           (#{extend-env\ 9064}#
-             (lambda (#{labels\ 11023}#
-                      #{bindings\ 11024}#
-                      #{r\ 11025}#)
-               (if (null? #{labels\ 11023}#)
-                 #{r\ 11025}#
-                 (#{extend-env\ 9064}#
-                   (cdr #{labels\ 11023}#)
-                   (cdr #{bindings\ 11024}#)
-                   (cons (cons (car #{labels\ 11023}#)
-                               (car #{bindings\ 11024}#))
-                         #{r\ 11025}#)))))
-           (#{binding-value\ 9061}# cdr)
-           (#{binding-type\ 9059}# car)
-           (#{source-annotation\ 9055}#
-             (lambda (#{x\ 11029}#)
-               (if (#{syntax-object?\ 9040}# #{x\ 11029}#)
-                 (#{source-annotation\ 9055}#
-                   (#{syntax-object-expression\ 9042}# #{x\ 11029}#))
-                 (if (pair? #{x\ 11029}#)
-                   (let ((#{props\ 11036}#
-                           (source-properties #{x\ 11029}#)))
-                     (if (pair? #{props\ 11036}#) #{props\ 11036}# #f))
+                 (let ((#{a\ 2162}# (car #{r\ 2159}#)))
+                   (if (eq? (cadr #{a\ 2162}#) (quote macro))
+                     (cons #{a\ 2162}#
+                           (#{macros-only-env\ 214}# (cdr #{r\ 2159}#)))
+                     (#{macros-only-env\ 214}# (cdr #{r\ 2159}#)))))))
+           (#{extend-var-env\ 212}#
+             (lambda (#{labels\ 2163}# #{vars\ 2164}# #{r\ 2165}#)
+               (if (null? #{labels\ 2163}#)
+                 #{r\ 2165}#
+                 (#{extend-var-env\ 212}#
+                   (cdr #{labels\ 2163}#)
+                   (cdr #{vars\ 2164}#)
+                   (cons (cons (car #{labels\ 2163}#)
+                               (cons (quote lexical) (car #{vars\ 2164}#)))
+                         #{r\ 2165}#)))))
+           (#{extend-env\ 210}#
+             (lambda (#{labels\ 2170}# #{bindings\ 2171}# #{r\ 2172}#)
+               (if (null? #{labels\ 2170}#)
+                 #{r\ 2172}#
+                 (#{extend-env\ 210}#
+                   (cdr #{labels\ 2170}#)
+                   (cdr #{bindings\ 2171}#)
+                   (cons (cons (car #{labels\ 2170}#)
+                               (car #{bindings\ 2171}#))
+                         #{r\ 2172}#)))))
+           (#{binding-value\ 207}# cdr)
+           (#{binding-type\ 205}# car)
+           (#{source-annotation\ 201}#
+             (lambda (#{x\ 2176}#)
+               (if (#{syntax-object?\ 186}# #{x\ 2176}#)
+                 (#{source-annotation\ 201}#
+                   (#{syntax-object-expression\ 188}# #{x\ 2176}#))
+                 (if (pair? #{x\ 2176}#)
+                   (let ((#{props\ 2183}# (source-properties #{x\ 2176}#)))
+                     (if (pair? #{props\ 2183}#) #{props\ 2183}# #f))
                    #f))))
-           (#{set-syntax-object-module!\ 9052}#
-             (lambda (#{x\ 11038}# #{update\ 11039}#)
-               (vector-set! #{x\ 11038}# 3 #{update\ 11039}#)))
-           (#{set-syntax-object-wrap!\ 9050}#
-             (lambda (#{x\ 11042}# #{update\ 11043}#)
-               (vector-set! #{x\ 11042}# 2 #{update\ 11043}#)))
-           (#{set-syntax-object-expression!\ 9048}#
-             (lambda (#{x\ 11046}# #{update\ 11047}#)
-               (vector-set! #{x\ 11046}# 1 #{update\ 11047}#)))
-           (#{syntax-object-module\ 9046}#
-             (lambda (#{x\ 11050}#)
-               (vector-ref #{x\ 11050}# 3)))
-           (#{syntax-object-wrap\ 9044}#
-             (lambda (#{x\ 11052}#)
-               (vector-ref #{x\ 11052}# 2)))
-           (#{syntax-object-expression\ 9042}#
-             (lambda (#{x\ 11054}#)
-               (vector-ref #{x\ 11054}# 1)))
-           (#{syntax-object?\ 9040}#
-             (lambda (#{x\ 11056}#)
-               (if (vector? #{x\ 11056}#)
-                 (if (= (vector-length #{x\ 11056}#) 4)
-                   (eq? (vector-ref #{x\ 11056}# 0)
+           (#{set-syntax-object-module!\ 198}#
+             (lambda (#{x\ 2185}# #{update\ 2186}#)
+               (vector-set! #{x\ 2185}# 3 #{update\ 2186}#)))
+           (#{set-syntax-object-wrap!\ 196}#
+             (lambda (#{x\ 2189}# #{update\ 2190}#)
+               (vector-set! #{x\ 2189}# 2 #{update\ 2190}#)))
+           (#{set-syntax-object-expression!\ 194}#
+             (lambda (#{x\ 2193}# #{update\ 2194}#)
+               (vector-set! #{x\ 2193}# 1 #{update\ 2194}#)))
+           (#{syntax-object-module\ 192}#
+             (lambda (#{x\ 2197}#) (vector-ref #{x\ 2197}# 3)))
+           (#{syntax-object-wrap\ 190}#
+             (lambda (#{x\ 2199}#) (vector-ref #{x\ 2199}# 2)))
+           (#{syntax-object-expression\ 188}#
+             (lambda (#{x\ 2201}#) (vector-ref #{x\ 2201}# 1)))
+           (#{syntax-object?\ 186}#
+             (lambda (#{x\ 2203}#)
+               (if (vector? #{x\ 2203}#)
+                 (if (= (vector-length #{x\ 2203}#) 4)
+                   (eq? (vector-ref #{x\ 2203}# 0)
                         'syntax-object)
                    #f)
                  #f)))
-           (#{make-syntax-object\ 9038}#
-             (lambda (#{expression\ 11061}#
-                      #{wrap\ 11062}#
-                      #{module\ 11063}#)
+           (#{make-syntax-object\ 184}#
+             (lambda (#{expression\ 2208}#
+                      #{wrap\ 2209}#
+                      #{module\ 2210}#)
                (vector
                  'syntax-object
-                 #{expression\ 11061}#
-                 #{wrap\ 11062}#
-                 #{module\ 11063}#)))
-           (#{build-letrec\ 9034}#
-             (lambda (#{src\ 11067}#
-                      #{ids\ 11068}#
-                      #{vars\ 11069}#
-                      #{val-exps\ 11070}#
-                      #{body-exp\ 11071}#)
-               (if (null? #{vars\ 11069}#)
-                 #{body-exp\ 11071}#
-                 (let ((#{atom-key\ 11079}#
-                         (fluid-ref #{*mode*\ 8975}#)))
-                   (if (memv #{atom-key\ 11079}# (quote (c)))
+                 #{expression\ 2208}#
+                 #{wrap\ 2209}#
+                 #{module\ 2210}#)))
+           (#{build-letrec\ 180}#
+             (lambda (#{src\ 2214}#
+                      #{ids\ 2215}#
+                      #{vars\ 2216}#
+                      #{val-exps\ 2217}#
+                      #{body-exp\ 2218}#)
+               (if (null? #{vars\ 2216}#)
+                 #{body-exp\ 2218}#
+                 (let ((#{atom-key\ 2226}# (fluid-ref #{*mode*\ 121}#)))
+                   (if (memv #{atom-key\ 2226}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 9014}#
-                         #{ids\ 11068}#
-                         #{val-exps\ 11070}#)
+                         #{maybe-name-value!\ 160}#
+                         #{ids\ 2215}#
+                         #{val-exps\ 2217}#)
                        ((@ (language tree-il) make-letrec)
-                        #{src\ 11067}#
-                        #{ids\ 11068}#
-                        #{vars\ 11069}#
-                        #{val-exps\ 11070}#
-                        #{body-exp\ 11071}#))
-                     (#{decorate-source\ 8994}#
+                        #{src\ 2214}#
+                        #{ids\ 2215}#
+                        #{vars\ 2216}#
+                        #{val-exps\ 2217}#
+                        #{body-exp\ 2218}#))
+                     (#{decorate-source\ 140}#
                        (list 'letrec
-                             (map list #{vars\ 11069}# #{val-exps\ 11070}#)
-                             #{body-exp\ 11071}#)
-                       #{src\ 11067}#))))))
-           (#{build-named-let\ 9032}#
-             (lambda (#{src\ 11083}#
-                      #{ids\ 11084}#
-                      #{vars\ 11085}#
-                      #{val-exps\ 11086}#
-                      #{body-exp\ 11087}#)
-               (let ((#{f\ 11097}# (car #{vars\ 11085}#))
-                     (#{f-name\ 11098}# (car #{ids\ 11084}#))
-                     (#{vars\ 11099}# (cdr #{vars\ 11085}#))
-                     (#{ids\ 11100}# (cdr #{ids\ 11084}#)))
-                 (let ((#{atom-key\ 11103}#
-                         (fluid-ref #{*mode*\ 8975}#)))
-                   (if (memv #{atom-key\ 11103}# (quote (c)))
-                     (let ((#{proc\ 11106}#
-                             (#{build-simple-lambda\ 9018}#
-                               #{src\ 11083}#
-                               #{ids\ 11100}#
+                             (map list #{vars\ 2216}# #{val-exps\ 2217}#)
+                             #{body-exp\ 2218}#)
+                       #{src\ 2214}#))))))
+           (#{build-named-let\ 178}#
+             (lambda (#{src\ 2230}#
+                      #{ids\ 2231}#
+                      #{vars\ 2232}#
+                      #{val-exps\ 2233}#
+                      #{body-exp\ 2234}#)
+               (let ((#{f\ 2244}# (car #{vars\ 2232}#))
+                     (#{f-name\ 2245}# (car #{ids\ 2231}#))
+                     (#{vars\ 2246}# (cdr #{vars\ 2232}#))
+                     (#{ids\ 2247}# (cdr #{ids\ 2231}#)))
+                 (let ((#{atom-key\ 2250}# (fluid-ref #{*mode*\ 121}#)))
+                   (if (memv #{atom-key\ 2250}# (quote (c)))
+                     (let ((#{proc\ 2253}#
+                             (#{build-simple-lambda\ 164}#
+                               #{src\ 2230}#
+                               #{ids\ 2247}#
                                #f
-                               #{vars\ 11099}#
+                               #{vars\ 2246}#
                                '()
-                               #{body-exp\ 11087}#)))
+                               #{body-exp\ 2234}#)))
                        (begin
-                         (#{maybe-name-value!\ 9014}#
-                           #{f-name\ 11098}#
-                           #{proc\ 11106}#)
+                         (#{maybe-name-value!\ 160}#
+                           #{f-name\ 2245}#
+                           #{proc\ 2253}#)
                          (for-each
-                           #{maybe-name-value!\ 9014}#
-                           #{ids\ 11100}#
-                           #{val-exps\ 11086}#)
+                           #{maybe-name-value!\ 160}#
+                           #{ids\ 2247}#
+                           #{val-exps\ 2233}#)
                          ((@ (language tree-il) make-letrec)
-                          #{src\ 11083}#
-                          (list #{f-name\ 11098}#)
-                          (list #{f\ 11097}#)
-                          (list #{proc\ 11106}#)
-                          (#{build-application\ 8998}#
-                            #{src\ 11083}#
-                            (#{build-lexical-reference\ 9004}#
+                          #{src\ 2230}#
+                          (list #{f-name\ 2245}#)
+                          (list #{f\ 2244}#)
+                          (list #{proc\ 2253}#)
+                          (#{build-application\ 144}#
+                            #{src\ 2230}#
+                            (#{build-lexical-reference\ 150}#
                               'fun
-                              #{src\ 11083}#
-                              #{f-name\ 11098}#
-                              #{f\ 11097}#)
-                            #{val-exps\ 11086}#))))
-                     (#{decorate-source\ 8994}#
+                              #{src\ 2230}#
+                              #{f-name\ 2245}#
+                              #{f\ 2244}#)
+                            #{val-exps\ 2233}#))))
+                     (#{decorate-source\ 140}#
                        (list 'letrec
-                             (list (list #{f\ 11097}#
+                             (list (list #{f\ 2244}#
                                          (list 'lambda
-                                               #{vars\ 11099}#
-                                               #{body-exp\ 11087}#)))
-                             (cons #{f\ 11097}# #{val-exps\ 11086}#))
-                       #{src\ 11083}#))))))
-           (#{build-let\ 9030}#
-             (lambda (#{src\ 11109}#
-                      #{ids\ 11110}#
-                      #{vars\ 11111}#
-                      #{val-exps\ 11112}#
-                      #{body-exp\ 11113}#)
-               (if (null? #{vars\ 11111}#)
-                 #{body-exp\ 11113}#
-                 (let ((#{atom-key\ 11121}#
-                         (fluid-ref #{*mode*\ 8975}#)))
-                   (if (memv #{atom-key\ 11121}# (quote (c)))
+                                               #{vars\ 2246}#
+                                               #{body-exp\ 2234}#)))
+                             (cons #{f\ 2244}# #{val-exps\ 2233}#))
+                       #{src\ 2230}#))))))
+           (#{build-let\ 176}#
+             (lambda (#{src\ 2256}#
+                      #{ids\ 2257}#
+                      #{vars\ 2258}#
+                      #{val-exps\ 2259}#
+                      #{body-exp\ 2260}#)
+               (if (null? #{vars\ 2258}#)
+                 #{body-exp\ 2260}#
+                 (let ((#{atom-key\ 2268}# (fluid-ref #{*mode*\ 121}#)))
+                   (if (memv #{atom-key\ 2268}# (quote (c)))
                      (begin
                        (for-each
-                         #{maybe-name-value!\ 9014}#
-                         #{ids\ 11110}#
-                         #{val-exps\ 11112}#)
+                         #{maybe-name-value!\ 160}#
+                         #{ids\ 2257}#
+                         #{val-exps\ 2259}#)
                        ((@ (language tree-il) make-let)
-                        #{src\ 11109}#
-                        #{ids\ 11110}#
-                        #{vars\ 11111}#
-                        #{val-exps\ 11112}#
-                        #{body-exp\ 11113}#))
-                     (#{decorate-source\ 8994}#
+                        #{src\ 2256}#
+                        #{ids\ 2257}#
+                        #{vars\ 2258}#
+                        #{val-exps\ 2259}#
+                        #{body-exp\ 2260}#))
+                     (#{decorate-source\ 140}#
                        (list 'let
-                             (map list #{vars\ 11111}# #{val-exps\ 11112}#)
-                             #{body-exp\ 11113}#)
-                       #{src\ 11109}#))))))
-           (#{build-sequence\ 9028}#
-             (lambda (#{src\ 11125}# #{exps\ 11126}#)
-               (if (null? (cdr #{exps\ 11126}#))
-                 (car #{exps\ 11126}#)
-                 (let ((#{atom-key\ 11131}#
-                         (fluid-ref #{*mode*\ 8975}#)))
-                   (if (memv #{atom-key\ 11131}# (quote (c)))
+                             (map list #{vars\ 2258}# #{val-exps\ 2259}#)
+                             #{body-exp\ 2260}#)
+                       #{src\ 2256}#))))))
+           (#{build-sequence\ 174}#
+             (lambda (#{src\ 2272}# #{exps\ 2273}#)
+               (if (null? (cdr #{exps\ 2273}#))
+                 (car #{exps\ 2273}#)
+                 (let ((#{atom-key\ 2278}# (fluid-ref #{*mode*\ 121}#)))
+                   (if (memv #{atom-key\ 2278}# (quote (c)))
                      ((@ (language tree-il) make-sequence)
-                      #{src\ 11125}#
-                      #{exps\ 11126}#)
-                     (#{decorate-source\ 8994}#
-                       (cons (quote begin) #{exps\ 11126}#)
-                       #{src\ 11125}#))))))
-           (#{build-data\ 9026}#
-             (lambda (#{src\ 11135}# #{exp\ 11136}#)
-               (let ((#{atom-key\ 11141}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11141}# (quote (c)))
+                      #{src\ 2272}#
+                      #{exps\ 2273}#)
+                     (#{decorate-source\ 140}#
+                       (cons (quote begin) #{exps\ 2273}#)
+                       #{src\ 2272}#))))))
+           (#{build-data\ 172}#
+             (lambda (#{src\ 2282}# #{exp\ 2283}#)
+               (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2288}# (quote (c)))
                    ((@ (language tree-il) make-const)
-                    #{src\ 11135}#
-                    #{exp\ 11136}#)
-                   (#{decorate-source\ 8994}#
-                     (if (if (self-evaluating? #{exp\ 11136}#)
-                           (not (vector? #{exp\ 11136}#))
+                    #{src\ 2282}#
+                    #{exp\ 2283}#)
+                   (#{decorate-source\ 140}#
+                     (if (if (self-evaluating? #{exp\ 2283}#)
+                           (not (vector? #{exp\ 2283}#))
                            #f)
-                       #{exp\ 11136}#
-                       (list (quote quote) #{exp\ 11136}#))
-                     #{src\ 11135}#)))))
-           (#{build-primref\ 9024}#
-             (lambda (#{src\ 11146}# #{name\ 11147}#)
+                       #{exp\ 2283}#
+                       (list (quote quote) #{exp\ 2283}#))
+                     #{src\ 2282}#)))))
+           (#{build-primref\ 170}#
+             (lambda (#{src\ 2293}# #{name\ 2294}#)
                (if (equal?
                      (module-name (current-module))
                      '(guile))
-                 (let ((#{atom-key\ 11152}#
-                         (fluid-ref #{*mode*\ 8975}#)))
-                   (if (memv #{atom-key\ 11152}# (quote (c)))
+                 (let ((#{atom-key\ 2299}# (fluid-ref #{*mode*\ 121}#)))
+                   (if (memv #{atom-key\ 2299}# (quote (c)))
                      ((@ (language tree-il) make-toplevel-ref)
-                      #{src\ 11146}#
-                      #{name\ 11147}#)
-                     (#{decorate-source\ 8994}#
-                       #{name\ 11147}#
-                       #{src\ 11146}#)))
-                 (let ((#{atom-key\ 11157}#
-                         (fluid-ref #{*mode*\ 8975}#)))
-                   (if (memv #{atom-key\ 11157}# (quote (c)))
+                      #{src\ 2293}#
+                      #{name\ 2294}#)
+                     (#{decorate-source\ 140}#
+                       #{name\ 2294}#
+                       #{src\ 2293}#)))
+                 (let ((#{atom-key\ 2304}# (fluid-ref #{*mode*\ 121}#)))
+                   (if (memv #{atom-key\ 2304}# (quote (c)))
                      ((@ (language tree-il) make-module-ref)
-                      #{src\ 11146}#
+                      #{src\ 2293}#
                       '(guile)
-                      #{name\ 11147}#
+                      #{name\ 2294}#
                       #f)
-                     (#{decorate-source\ 8994}#
-                       (list (quote @@) (quote (guile)) #{name\ 11147}#)
-                       #{src\ 11146}#))))))
-           (#{build-lambda-case\ 9022}#
-             (lambda (#{src\ 11161}#
-                      #{req\ 11162}#
-                      #{opt\ 11163}#
-                      #{rest\ 11164}#
-                      #{kw\ 11165}#
-                      #{inits\ 11166}#
-                      #{vars\ 11167}#
-                      #{body\ 11168}#
-                      #{else-case\ 11169}#)
-               (let ((#{atom-key\ 11181}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11181}# (quote (c)))
+                     (#{decorate-source\ 140}#
+                       (list (quote @@) (quote (guile)) #{name\ 2294}#)
+                       #{src\ 2293}#))))))
+           (#{build-lambda-case\ 168}#
+             (lambda (#{src\ 2308}#
+                      #{req\ 2309}#
+                      #{opt\ 2310}#
+                      #{rest\ 2311}#
+                      #{kw\ 2312}#
+                      #{inits\ 2313}#
+                      #{vars\ 2314}#
+                      #{body\ 2315}#
+                      #{else-case\ 2316}#)
+               (let ((#{atom-key\ 2328}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2328}# (quote (c)))
                    ((@ (language tree-il) make-lambda-case)
-                    #{src\ 11161}#
-                    #{req\ 11162}#
-                    #{opt\ 11163}#
-                    #{rest\ 11164}#
-                    #{kw\ 11165}#
-                    #{inits\ 11166}#
-                    #{vars\ 11167}#
-                    #{body\ 11168}#
-                    #{else-case\ 11169}#)
-                   (let ((#{nreq\ 11186}# (length #{req\ 11162}#)))
-                     (let ((#{nopt\ 11188}#
-                             (if #{opt\ 11163}# (length #{opt\ 11163}#) 0)))
-                       (let ((#{rest-idx\ 11190}#
-                               (if #{rest\ 11164}#
-                                 (+ #{nreq\ 11186}# #{nopt\ 11188}#)
+                    #{src\ 2308}#
+                    #{req\ 2309}#
+                    #{opt\ 2310}#
+                    #{rest\ 2311}#
+                    #{kw\ 2312}#
+                    #{inits\ 2313}#
+                    #{vars\ 2314}#
+                    #{body\ 2315}#
+                    #{else-case\ 2316}#)
+                   (let ((#{nreq\ 2333}# (length #{req\ 2309}#)))
+                     (let ((#{nopt\ 2335}#
+                             (if #{opt\ 2310}# (length #{opt\ 2310}#) 0)))
+                       (let ((#{rest-idx\ 2337}#
+                               (if #{rest\ 2311}#
+                                 (+ #{nreq\ 2333}# #{nopt\ 2335}#)
                                  #f)))
-                         (let ((#{allow-other-keys?\ 11194}#
-                                 (if #{kw\ 11165}# (car #{kw\ 11165}#) #f)))
-                           (let ((#{kw-indices\ 11196}#
-                                   (map (lambda (#{x\ 11197}#)
-                                          (cons (car #{x\ 11197}#)
+                         (let ((#{allow-other-keys?\ 2341}#
+                                 (if #{kw\ 2312}# (car #{kw\ 2312}#) #f)))
+                           (let ((#{kw-indices\ 2343}#
+                                   (map (lambda (#{x\ 2344}#)
+                                          (cons (car #{x\ 2344}#)
                                                 (list-index
-                                                  #{vars\ 11167}#
-                                                  (caddr #{x\ 11197}#))))
-                                        (if #{kw\ 11165}#
-                                          (cdr #{kw\ 11165}#)
+                                                  #{vars\ 2314}#
+                                                  (caddr #{x\ 2344}#))))
+                                        (if #{kw\ 2312}#
+                                          (cdr #{kw\ 2312}#)
                                           '()))))
-                             (let ((#{nargs\ 11200}#
+                             (let ((#{nargs\ 2347}#
                                      (apply max
-                                            (+ #{nreq\ 11186}#
-                                               #{nopt\ 11188}#
-                                               (if #{rest\ 11164}# 1 0))
+                                            (+ #{nreq\ 2333}#
+                                               #{nopt\ 2335}#
+                                               (if #{rest\ 2311}# 1 0))
                                             (map 1+
                                                  (map cdr
-                                                      #{kw-indices\ 
11196}#)))))
+                                                      #{kw-indices\ 2343}#)))))
                                (begin
-                                 (let ((#{t\ 11203}#
-                                         (= #{nargs\ 11200}#
-                                            (length #{vars\ 11167}#)
-                                            (+ #{nreq\ 11186}#
-                                               (length #{inits\ 11166}#)
-                                               (if #{rest\ 11164}# 1 0)))))
-                                   (if #{t\ 11203}#
-                                     #{t\ 11203}#
+                                 (let ((#{t\ 2350}#
+                                         (= #{nargs\ 2347}#
+                                            (length #{vars\ 2314}#)
+                                            (+ #{nreq\ 2333}#
+                                               (length #{inits\ 2313}#)
+                                               (if #{rest\ 2311}# 1 0)))))
+                                   (if #{t\ 2350}#
+                                     #{t\ 2350}#
                                      (error "something went wrong"
-                                            #{req\ 11162}#
-                                            #{opt\ 11163}#
-                                            #{rest\ 11164}#
-                                            #{kw\ 11165}#
-                                            #{inits\ 11166}#
-                                            #{vars\ 11167}#
-                                            #{nreq\ 11186}#
-                                            #{nopt\ 11188}#
-                                            #{kw-indices\ 11196}#
-                                            #{nargs\ 11200}#)))
-                                 (#{decorate-source\ 8994}#
+                                            #{req\ 2309}#
+                                            #{opt\ 2310}#
+                                            #{rest\ 2311}#
+                                            #{kw\ 2312}#
+                                            #{inits\ 2313}#
+                                            #{vars\ 2314}#
+                                            #{nreq\ 2333}#
+                                            #{nopt\ 2335}#
+                                            #{kw-indices\ 2343}#
+                                            #{nargs\ 2347}#)))
+                                 (#{decorate-source\ 140}#
                                    (cons (list (cons '(@@ (ice-9 optargs)
                                                           parse-lambda-case)
                                                      (cons (list 'quote
-                                                                 (list #{nreq\ 
11186}#
-                                                                       #{nopt\ 
11188}#
-                                                                       
#{rest-idx\ 11190}#
-                                                                       
#{nargs\ 11200}#
-                                                                       
#{allow-other-keys?\ 11194}#
-                                                                       
#{kw-indices\ 11196}#))
+                                                                 (list #{nreq\ 
2333}#
+                                                                       #{nopt\ 
2335}#
+                                                                       
#{rest-idx\ 2337}#
+                                                                       
#{nargs\ 2347}#
+                                                                       
#{allow-other-keys?\ 2341}#
+                                                                       
#{kw-indices\ 2343}#))
                                                            (cons (cons 'list
-                                                                       (map 
(lambda (#{i\ 11206}#)
+                                                                       (map 
(lambda (#{i\ 2353}#)
                                                                               
(list 'lambda
-                                                                               
     #{vars\ 11167}#
-                                                                               
     #{i\ 11206}#))
-                                                                            
#{inits\ 11166}#))
+                                                                               
     #{vars\ 2314}#
+                                                                               
     #{i\ 2353}#))
+                                                                            
#{inits\ 2313}#))
                                                                  '(%%args))))
                                                '=>
                                                (list 'lambda
                                                      '(%%args)
                                                      (cons 'apply
                                                            (cons (list 'lambda
-                                                                       #{vars\ 
11167}#
-                                                                       #{body\ 
11168}#)
+                                                                       #{vars\ 
2314}#
+                                                                       #{body\ 
2315}#)
                                                                  '(%%args)))))
-                                         (let ((#{t\ 11211}#
-                                                 #{else-case\ 11169}#))
-                                           (if #{t\ 11211}#
-                                             #{t\ 11211}#
+                                         (let ((#{t\ 2358}#
+                                                 #{else-case\ 2316}#))
+                                           (if #{t\ 2358}#
+                                             #{t\ 2358}#
                                              '((%%args
                                                  (scm-error
                                                    'wrong-number-of-args
@@ -7586,1469 +7544,1431 @@
                                                    "Wrong number of arguments"
                                                    '()
                                                    %%args))))))
-                                   #{src\ 11161}#))))))))))))
-           (#{build-case-lambda\ 9020}#
-             (lambda (#{src\ 11214}# #{meta\ 11215}# #{body\ 11216}#)
-               (let ((#{atom-key\ 11222}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11222}# (quote (c)))
+                                   #{src\ 2308}#))))))))))))
+           (#{build-case-lambda\ 166}#
+             (lambda (#{src\ 2361}# #{meta\ 2362}# #{body\ 2363}#)
+               (let ((#{atom-key\ 2369}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2369}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 11214}#
-                    #{meta\ 11215}#
-                    #{body\ 11216}#)
-                   (#{decorate-source\ 8994}#
+                    #{src\ 2361}#
+                    #{meta\ 2362}#
+                    #{body\ 2363}#)
+                   (#{decorate-source\ 140}#
                      (list 'lambda
                            '%%args
-                           (cons (quote cond) #{body\ 11216}#))
-                     #{src\ 11214}#)))))
-           (#{build-simple-lambda\ 9018}#
-             (lambda (#{src\ 11226}#
-                      #{req\ 11227}#
-                      #{rest\ 11228}#
-                      #{vars\ 11229}#
-                      #{meta\ 11230}#
-                      #{exp\ 11231}#)
-               (let ((#{atom-key\ 11240}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11240}# (quote (c)))
+                           (cons (quote cond) #{body\ 2363}#))
+                     #{src\ 2361}#)))))
+           (#{build-simple-lambda\ 164}#
+             (lambda (#{src\ 2373}#
+                      #{req\ 2374}#
+                      #{rest\ 2375}#
+                      #{vars\ 2376}#
+                      #{meta\ 2377}#
+                      #{exp\ 2378}#)
+               (let ((#{atom-key\ 2387}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2387}# (quote (c)))
                    ((@ (language tree-il) make-lambda)
-                    #{src\ 11226}#
-                    #{meta\ 11230}#
+                    #{src\ 2373}#
+                    #{meta\ 2377}#
                     ((@ (language tree-il) make-lambda-case)
-                     #{src\ 11226}#
-                     #{req\ 11227}#
+                     #{src\ 2373}#
+                     #{req\ 2374}#
                      #f
-                     #{rest\ 11228}#
+                     #{rest\ 2375}#
                      #f
                      '()
-                     #{vars\ 11229}#
-                     #{exp\ 11231}#
+                     #{vars\ 2376}#
+                     #{exp\ 2378}#
                      #f))
-                   (#{decorate-source\ 8994}#
+                   (#{decorate-source\ 140}#
                      (list 'lambda
-                           (if #{rest\ 11228}#
-                             (apply cons* #{vars\ 11229}#)
-                             #{vars\ 11229}#)
-                           #{exp\ 11231}#)
-                     #{src\ 11226}#)))))
-           (#{build-global-definition\ 9016}#
-             (lambda (#{source\ 11244}# #{var\ 11245}# #{exp\ 11246}#)
-               (let ((#{atom-key\ 11252}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11252}# (quote (c)))
+                           (if #{rest\ 2375}#
+                             (apply cons* #{vars\ 2376}#)
+                             #{vars\ 2376}#)
+                           #{exp\ 2378}#)
+                     #{src\ 2373}#)))))
+           (#{build-global-definition\ 162}#
+             (lambda (#{source\ 2391}# #{var\ 2392}# #{exp\ 2393}#)
+               (let ((#{atom-key\ 2399}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2399}# (quote (c)))
                    (begin
-                     (#{maybe-name-value!\ 9014}#
-                       #{var\ 11245}#
-                       #{exp\ 11246}#)
+                     (#{maybe-name-value!\ 160}#
+                       #{var\ 2392}#
+                       #{exp\ 2393}#)
                      ((@ (language tree-il) make-toplevel-define)
-                      #{source\ 11244}#
-                      #{var\ 11245}#
-                      #{exp\ 11246}#))
-                   (#{decorate-source\ 8994}#
-                     (list 'define
-                           #{var\ 11245}#
-                           #{exp\ 11246}#)
-                     #{source\ 11244}#)))))
-           (#{maybe-name-value!\ 9014}#
-             (lambda (#{name\ 11256}# #{val\ 11257}#)
-               (if ((@ (language tree-il) lambda?) #{val\ 11257}#)
-                 (let ((#{meta\ 11263}#
+                      #{source\ 2391}#
+                      #{var\ 2392}#
+                      #{exp\ 2393}#))
+                   (#{decorate-source\ 140}#
+                     (list (quote define) #{var\ 2392}# #{exp\ 2393}#)
+                     #{source\ 2391}#)))))
+           (#{maybe-name-value!\ 160}#
+             (lambda (#{name\ 2403}# #{val\ 2404}#)
+               (if ((@ (language tree-il) lambda?) #{val\ 2404}#)
+                 (let ((#{meta\ 2410}#
                          ((@ (language tree-il) lambda-meta)
-                          #{val\ 11257}#)))
-                   (if (not (assq (quote name) #{meta\ 11263}#))
+                          #{val\ 2404}#)))
+                   (if (not (assq (quote name) #{meta\ 2410}#))
                      ((setter (@ (language tree-il) lambda-meta))
-                      #{val\ 11257}#
+                      #{val\ 2404}#
                       (acons 'name
-                             #{name\ 11256}#
-                             #{meta\ 11263}#)))))))
-           (#{build-global-assignment\ 9012}#
-             (lambda (#{source\ 11264}#
-                      #{var\ 11265}#
-                      #{exp\ 11266}#
-                      #{mod\ 11267}#)
-               (#{analyze-variable\ 9008}#
-                 #{mod\ 11267}#
-                 #{var\ 11265}#
-                 (lambda (#{mod\ 11272}#
-                          #{var\ 11273}#
-                          #{public?\ 11274}#)
-                   (let ((#{atom-key\ 11280}#
-                           (fluid-ref #{*mode*\ 8975}#)))
-                     (if (memv #{atom-key\ 11280}# (quote (c)))
+                             #{name\ 2403}#
+                             #{meta\ 2410}#)))))))
+           (#{build-global-assignment\ 158}#
+             (lambda (#{source\ 2411}#
+                      #{var\ 2412}#
+                      #{exp\ 2413}#
+                      #{mod\ 2414}#)
+               (#{analyze-variable\ 154}#
+                 #{mod\ 2414}#
+                 #{var\ 2412}#
+                 (lambda (#{mod\ 2419}# #{var\ 2420}# #{public?\ 2421}#)
+                   (let ((#{atom-key\ 2427}# (fluid-ref #{*mode*\ 121}#)))
+                     (if (memv #{atom-key\ 2427}# (quote (c)))
                        ((@ (language tree-il) make-module-set)
-                        #{source\ 11264}#
-                        #{mod\ 11272}#
-                        #{var\ 11273}#
-                        #{public?\ 11274}#
-                        #{exp\ 11266}#)
-                       (#{decorate-source\ 8994}#
+                        #{source\ 2411}#
+                        #{mod\ 2419}#
+                        #{var\ 2420}#
+                        #{public?\ 2421}#
+                        #{exp\ 2413}#)
+                       (#{decorate-source\ 140}#
                          (list 'set!
-                               (list (if #{public?\ 11274}#
+                               (list (if #{public?\ 2421}#
                                        '@
                                        '@@)
-                                     #{mod\ 11272}#
-                                     #{var\ 11273}#)
-                               #{exp\ 11266}#)
-                         #{source\ 11264}#))))
-                 (lambda (#{var\ 11284}#)
-                   (let ((#{atom-key\ 11288}#
-                           (fluid-ref #{*mode*\ 8975}#)))
-                     (if (memv #{atom-key\ 11288}# (quote (c)))
+                                     #{mod\ 2419}#
+                                     #{var\ 2420}#)
+                               #{exp\ 2413}#)
+                         #{source\ 2411}#))))
+                 (lambda (#{var\ 2431}#)
+                   (let ((#{atom-key\ 2435}# (fluid-ref #{*mode*\ 121}#)))
+                     (if (memv #{atom-key\ 2435}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-set)
-                        #{source\ 11264}#
-                        #{var\ 11284}#
-                        #{exp\ 11266}#)
-                       (#{decorate-source\ 8994}#
-                         (list (quote set!) #{var\ 11284}# #{exp\ 11266}#)
-                         #{source\ 11264}#)))))))
-           (#{build-global-reference\ 9010}#
-             (lambda (#{source\ 11292}# #{var\ 11293}# #{mod\ 11294}#)
-               (#{analyze-variable\ 9008}#
-                 #{mod\ 11294}#
-                 #{var\ 11293}#
-                 (lambda (#{mod\ 11298}#
-                          #{var\ 11299}#
-                          #{public?\ 11300}#)
-                   (let ((#{atom-key\ 11306}#
-                           (fluid-ref #{*mode*\ 8975}#)))
-                     (if (memv #{atom-key\ 11306}# (quote (c)))
+                        #{source\ 2411}#
+                        #{var\ 2431}#
+                        #{exp\ 2413}#)
+                       (#{decorate-source\ 140}#
+                         (list (quote set!) #{var\ 2431}# #{exp\ 2413}#)
+                         #{source\ 2411}#)))))))
+           (#{build-global-reference\ 156}#
+             (lambda (#{source\ 2439}# #{var\ 2440}# #{mod\ 2441}#)
+               (#{analyze-variable\ 154}#
+                 #{mod\ 2441}#
+                 #{var\ 2440}#
+                 (lambda (#{mod\ 2445}# #{var\ 2446}# #{public?\ 2447}#)
+                   (let ((#{atom-key\ 2453}# (fluid-ref #{*mode*\ 121}#)))
+                     (if (memv #{atom-key\ 2453}# (quote (c)))
                        ((@ (language tree-il) make-module-ref)
-                        #{source\ 11292}#
-                        #{mod\ 11298}#
-                        #{var\ 11299}#
-                        #{public?\ 11300}#)
-                       (#{decorate-source\ 8994}#
-                         (list (if #{public?\ 11300}# (quote @) (quote @@))
-                               #{mod\ 11298}#
-                               #{var\ 11299}#)
-                         #{source\ 11292}#))))
-                 (lambda (#{var\ 11309}#)
-                   (let ((#{atom-key\ 11313}#
-                           (fluid-ref #{*mode*\ 8975}#)))
-                     (if (memv #{atom-key\ 11313}# (quote (c)))
+                        #{source\ 2439}#
+                        #{mod\ 2445}#
+                        #{var\ 2446}#
+                        #{public?\ 2447}#)
+                       (#{decorate-source\ 140}#
+                         (list (if #{public?\ 2447}# (quote @) (quote @@))
+                               #{mod\ 2445}#
+                               #{var\ 2446}#)
+                         #{source\ 2439}#))))
+                 (lambda (#{var\ 2456}#)
+                   (let ((#{atom-key\ 2460}# (fluid-ref #{*mode*\ 121}#)))
+                     (if (memv #{atom-key\ 2460}# (quote (c)))
                        ((@ (language tree-il) make-toplevel-ref)
-                        #{source\ 11292}#
-                        #{var\ 11309}#)
-                       (#{decorate-source\ 8994}#
-                         #{var\ 11309}#
-                         #{source\ 11292}#)))))))
-           (#{analyze-variable\ 9008}#
-             (lambda (#{mod\ 11316}#
-                      #{var\ 11317}#
-                      #{modref-cont\ 11318}#
-                      #{bare-cont\ 11319}#)
-               (if (not #{mod\ 11316}#)
-                 (#{bare-cont\ 11319}# #{var\ 11317}#)
-                 (let ((#{kind\ 11326}# (car #{mod\ 11316}#))
-                       (#{mod\ 11327}# (cdr #{mod\ 11316}#)))
-                   (if (memv #{kind\ 11326}# (quote (public)))
-                     (#{modref-cont\ 11318}#
-                       #{mod\ 11327}#
-                       #{var\ 11317}#
+                        #{source\ 2439}#
+                        #{var\ 2456}#)
+                       (#{decorate-source\ 140}#
+                         #{var\ 2456}#
+                         #{source\ 2439}#)))))))
+           (#{analyze-variable\ 154}#
+             (lambda (#{mod\ 2463}#
+                      #{var\ 2464}#
+                      #{modref-cont\ 2465}#
+                      #{bare-cont\ 2466}#)
+               (if (not #{mod\ 2463}#)
+                 (#{bare-cont\ 2466}# #{var\ 2464}#)
+                 (let ((#{kind\ 2473}# (car #{mod\ 2463}#))
+                       (#{mod\ 2474}# (cdr #{mod\ 2463}#)))
+                   (if (memv #{kind\ 2473}# (quote (public)))
+                     (#{modref-cont\ 2465}#
+                       #{mod\ 2474}#
+                       #{var\ 2464}#
                        #t)
-                     (if (memv #{kind\ 11326}# (quote (private)))
+                     (if (memv #{kind\ 2473}# (quote (private)))
                        (if (not (equal?
-                                  #{mod\ 11327}#
+                                  #{mod\ 2474}#
                                   (module-name (current-module))))
-                         (#{modref-cont\ 11318}#
-                           #{mod\ 11327}#
-                           #{var\ 11317}#
+                         (#{modref-cont\ 2465}#
+                           #{mod\ 2474}#
+                           #{var\ 2464}#
                            #f)
-                         (#{bare-cont\ 11319}# #{var\ 11317}#))
-                       (if (memv #{kind\ 11326}# (quote (bare)))
-                         (#{bare-cont\ 11319}# #{var\ 11317}#)
-                         (if (memv #{kind\ 11326}# (quote (hygiene)))
+                         (#{bare-cont\ 2466}# #{var\ 2464}#))
+                       (if (memv #{kind\ 2473}# (quote (bare)))
+                         (#{bare-cont\ 2466}# #{var\ 2464}#)
+                         (if (memv #{kind\ 2473}# (quote (hygiene)))
                            (if (if (not (equal?
-                                          #{mod\ 11327}#
+                                          #{mod\ 2474}#
                                           (module-name (current-module))))
                                  (module-variable
-                                   (resolve-module #{mod\ 11327}#)
-                                   #{var\ 11317}#)
+                                   (resolve-module #{mod\ 2474}#)
+                                   #{var\ 2464}#)
                                  #f)
-                             (#{modref-cont\ 11318}#
-                               #{mod\ 11327}#
-                               #{var\ 11317}#
+                             (#{modref-cont\ 2465}#
+                               #{mod\ 2474}#
+                               #{var\ 2464}#
                                #f)
-                             (#{bare-cont\ 11319}# #{var\ 11317}#))
+                             (#{bare-cont\ 2466}# #{var\ 2464}#))
                            (syntax-violation
                              #f
                              "bad module kind"
-                             #{var\ 11317}#
-                             #{mod\ 11327}#)))))))))
-           (#{build-lexical-assignment\ 9006}#
-             (lambda (#{source\ 11335}#
-                      #{name\ 11336}#
-                      #{var\ 11337}#
-                      #{exp\ 11338}#)
-               (let ((#{atom-key\ 11345}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11345}# (quote (c)))
+                             #{var\ 2464}#
+                             #{mod\ 2474}#)))))))))
+           (#{build-lexical-assignment\ 152}#
+             (lambda (#{source\ 2482}#
+                      #{name\ 2483}#
+                      #{var\ 2484}#
+                      #{exp\ 2485}#)
+               (let ((#{atom-key\ 2492}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2492}# (quote (c)))
                    ((@ (language tree-il) make-lexical-set)
-                    #{source\ 11335}#
-                    #{name\ 11336}#
-                    #{var\ 11337}#
-                    #{exp\ 11338}#)
-                   (#{decorate-source\ 8994}#
-                     (list (quote set!) #{var\ 11337}# #{exp\ 11338}#)
-                     #{source\ 11335}#)))))
-           (#{build-lexical-reference\ 9004}#
-             (lambda (#{type\ 11349}#
-                      #{source\ 11350}#
-                      #{name\ 11351}#
-                      #{var\ 11352}#)
-               (let ((#{atom-key\ 11359}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11359}# (quote (c)))
+                    #{source\ 2482}#
+                    #{name\ 2483}#
+                    #{var\ 2484}#
+                    #{exp\ 2485}#)
+                   (#{decorate-source\ 140}#
+                     (list (quote set!) #{var\ 2484}# #{exp\ 2485}#)
+                     #{source\ 2482}#)))))
+           (#{build-lexical-reference\ 150}#
+             (lambda (#{type\ 2496}#
+                      #{source\ 2497}#
+                      #{name\ 2498}#
+                      #{var\ 2499}#)
+               (let ((#{atom-key\ 2506}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2506}# (quote (c)))
                    ((@ (language tree-il) make-lexical-ref)
-                    #{source\ 11350}#
-                    #{name\ 11351}#
-                    #{var\ 11352}#)
-                   (#{decorate-source\ 8994}#
-                     #{var\ 11352}#
-                     #{source\ 11350}#)))))
-           (#{build-dynlet\ 9002}#
-             (lambda (#{source\ 11362}#
-                      #{fluids\ 11363}#
-                      #{vals\ 11364}#
-                      #{body\ 11365}#)
-               (let ((#{atom-key\ 11372}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11372}# (quote (c)))
+                    #{source\ 2497}#
+                    #{name\ 2498}#
+                    #{var\ 2499}#)
+                   (#{decorate-source\ 140}#
+                     #{var\ 2499}#
+                     #{source\ 2497}#)))))
+           (#{build-dynlet\ 148}#
+             (lambda (#{source\ 2509}#
+                      #{fluids\ 2510}#
+                      #{vals\ 2511}#
+                      #{body\ 2512}#)
+               (let ((#{atom-key\ 2519}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2519}# (quote (c)))
                    ((@ (language tree-il) make-dynlet)
-                    #{source\ 11362}#
-                    #{fluids\ 11363}#
-                    #{vals\ 11364}#
-                    #{body\ 11365}#)
-                   (#{decorate-source\ 8994}#
+                    #{source\ 2509}#
+                    #{fluids\ 2510}#
+                    #{vals\ 2511}#
+                    #{body\ 2512}#)
+                   (#{decorate-source\ 140}#
                      (list 'with-fluids
-                           (map list #{fluids\ 11363}# #{vals\ 11364}#)
-                           #{body\ 11365}#)
-                     #{source\ 11362}#)))))
-           (#{build-conditional\ 9000}#
-             (lambda (#{source\ 11376}#
-                      #{test-exp\ 11377}#
-                      #{then-exp\ 11378}#
-                      #{else-exp\ 11379}#)
-               (let ((#{atom-key\ 11386}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11386}# (quote (c)))
+                           (map list #{fluids\ 2510}# #{vals\ 2511}#)
+                           #{body\ 2512}#)
+                     #{source\ 2509}#)))))
+           (#{build-conditional\ 146}#
+             (lambda (#{source\ 2523}#
+                      #{test-exp\ 2524}#
+                      #{then-exp\ 2525}#
+                      #{else-exp\ 2526}#)
+               (let ((#{atom-key\ 2533}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2533}# (quote (c)))
                    ((@ (language tree-il) make-conditional)
-                    #{source\ 11376}#
-                    #{test-exp\ 11377}#
-                    #{then-exp\ 11378}#
-                    #{else-exp\ 11379}#)
-                   (#{decorate-source\ 8994}#
-                     (if (equal? #{else-exp\ 11379}# (quote (if #f #f)))
+                    #{source\ 2523}#
+                    #{test-exp\ 2524}#
+                    #{then-exp\ 2525}#
+                    #{else-exp\ 2526}#)
+                   (#{decorate-source\ 140}#
+                     (if (equal? #{else-exp\ 2526}# (quote (if #f #f)))
                        (list 'if
-                             #{test-exp\ 11377}#
-                             #{then-exp\ 11378}#)
+                             #{test-exp\ 2524}#
+                             #{then-exp\ 2525}#)
                        (list 'if
-                             #{test-exp\ 11377}#
-                             #{then-exp\ 11378}#
-                             #{else-exp\ 11379}#))
-                     #{source\ 11376}#)))))
-           (#{build-application\ 8998}#
-             (lambda (#{source\ 11391}#
-                      #{fun-exp\ 11392}#
-                      #{arg-exps\ 11393}#)
-               (let ((#{atom-key\ 11399}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11399}# (quote (c)))
+                             #{test-exp\ 2524}#
+                             #{then-exp\ 2525}#
+                             #{else-exp\ 2526}#))
+                     #{source\ 2523}#)))))
+           (#{build-application\ 144}#
+             (lambda (#{source\ 2538}#
+                      #{fun-exp\ 2539}#
+                      #{arg-exps\ 2540}#)
+               (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2546}# (quote (c)))
                    ((@ (language tree-il) make-application)
-                    #{source\ 11391}#
-                    #{fun-exp\ 11392}#
-                    #{arg-exps\ 11393}#)
-                   (#{decorate-source\ 8994}#
-                     (cons #{fun-exp\ 11392}# #{arg-exps\ 11393}#)
-                     #{source\ 11391}#)))))
-           (#{build-void\ 8996}#
-             (lambda (#{source\ 11403}#)
-               (let ((#{atom-key\ 11407}#
-                       (fluid-ref #{*mode*\ 8975}#)))
-                 (if (memv #{atom-key\ 11407}# (quote (c)))
+                    #{source\ 2538}#
+                    #{fun-exp\ 2539}#
+                    #{arg-exps\ 2540}#)
+                   (#{decorate-source\ 140}#
+                     (cons #{fun-exp\ 2539}# #{arg-exps\ 2540}#)
+                     #{source\ 2538}#)))))
+           (#{build-void\ 142}#
+             (lambda (#{source\ 2550}#)
+               (let ((#{atom-key\ 2554}# (fluid-ref #{*mode*\ 121}#)))
+                 (if (memv #{atom-key\ 2554}# (quote (c)))
                    ((@ (language tree-il) make-void)
-                    #{source\ 11403}#)
-                   (#{decorate-source\ 8994}#
+                    #{source\ 2550}#)
+                   (#{decorate-source\ 140}#
                      '(if #f #f)
-                     #{source\ 11403}#)))))
-           (#{decorate-source\ 8994}#
-             (lambda (#{e\ 11410}# #{s\ 11411}#)
+                     #{source\ 2550}#)))))
+           (#{decorate-source\ 140}#
+             (lambda (#{e\ 2557}# #{s\ 2558}#)
                (begin
-                 (if (if (pair? #{e\ 11410}#) #{s\ 11411}# #f)
-                   (set-source-properties!
-                     #{e\ 11410}#
-                     #{s\ 11411}#))
-                 #{e\ 11410}#)))
-           (#{get-global-definition-hook\ 8992}#
-             (lambda (#{symbol\ 11416}# #{module\ 11417}#)
+                 (if (if (pair? #{e\ 2557}#) #{s\ 2558}# #f)
+                   (set-source-properties! #{e\ 2557}# #{s\ 2558}#))
+                 #{e\ 2557}#)))
+           (#{get-global-definition-hook\ 138}#
+             (lambda (#{symbol\ 2563}# #{module\ 2564}#)
                (begin
-                 (if (if (not #{module\ 11417}#) (current-module) #f)
+                 (if (if (not #{module\ 2564}#) (current-module) #f)
                    (warn "module system is booted, we should have a module"
-                         #{symbol\ 11416}#))
-                 (let ((#{v\ 11423}#
+                         #{symbol\ 2563}#))
+                 (let ((#{v\ 2570}#
                          (module-variable
-                           (if #{module\ 11417}#
-                             (resolve-module (cdr #{module\ 11417}#))
+                           (if #{module\ 2564}#
+                             (resolve-module (cdr #{module\ 2564}#))
                              (current-module))
-                           #{symbol\ 11416}#)))
-                   (if #{v\ 11423}#
-                     (if (variable-bound? #{v\ 11423}#)
-                       (let ((#{val\ 11428}# (variable-ref #{v\ 11423}#)))
-                         (if (macro? #{val\ 11428}#)
-                           (if (macro-type #{val\ 11428}#)
-                             (cons (macro-type #{val\ 11428}#)
-                                   (macro-binding #{val\ 11428}#))
+                           #{symbol\ 2563}#)))
+                   (if #{v\ 2570}#
+                     (if (variable-bound? #{v\ 2570}#)
+                       (let ((#{val\ 2575}# (variable-ref #{v\ 2570}#)))
+                         (if (macro? #{val\ 2575}#)
+                           (if (macro-type #{val\ 2575}#)
+                             (cons (macro-type #{val\ 2575}#)
+                                   (macro-binding #{val\ 2575}#))
                              #f)
                            #f))
                        #f)
                      #f)))))
-           (#{put-global-definition-hook\ 8990}#
-             (lambda (#{symbol\ 11432}#
-                      #{type\ 11433}#
-                      #{val\ 11434}#)
+           (#{put-global-definition-hook\ 136}#
+             (lambda (#{symbol\ 2579}# #{type\ 2580}# #{val\ 2581}#)
                (module-define!
                  (current-module)
-                 #{symbol\ 11432}#
+                 #{symbol\ 2579}#
                  (make-syntax-transformer
-                   #{symbol\ 11432}#
-                   #{type\ 11433}#
-                   #{val\ 11434}#))))
-           (#{local-eval-hook\ 8987}#
-             (lambda (#{x\ 11438}# #{mod\ 11439}#)
+                   #{symbol\ 2579}#
+                   #{type\ 2580}#
+                   #{val\ 2581}#))))
+           (#{local-eval-hook\ 133}#
+             (lambda (#{x\ 2585}# #{mod\ 2586}#)
                (primitive-eval
-                 (list #{noexpand\ 8973}#
-                       (let ((#{atom-key\ 11445}#
-                               (fluid-ref #{*mode*\ 8975}#)))
-                         (if (memv #{atom-key\ 11445}# (quote (c)))
+                 (list #{noexpand\ 119}#
+                       (let ((#{atom-key\ 2592}# (fluid-ref #{*mode*\ 121}#)))
+                         (if (memv #{atom-key\ 2592}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 11438}#)
-                           #{x\ 11438}#))))))
-           (#{top-level-eval-hook\ 8985}#
-             (lambda (#{x\ 11448}# #{mod\ 11449}#)
+                            #{x\ 2585}#)
+                           #{x\ 2585}#))))))
+           (#{top-level-eval-hook\ 131}#
+             (lambda (#{x\ 2595}# #{mod\ 2596}#)
                (primitive-eval
-                 (list #{noexpand\ 8973}#
-                       (let ((#{atom-key\ 11455}#
-                               (fluid-ref #{*mode*\ 8975}#)))
-                         (if (memv #{atom-key\ 11455}# (quote (c)))
+                 (list #{noexpand\ 119}#
+                       (let ((#{atom-key\ 2602}# (fluid-ref #{*mode*\ 121}#)))
+                         (if (memv #{atom-key\ 2602}# (quote (c)))
                            ((@ (language tree-il) tree-il->scheme)
-                            #{x\ 11448}#)
-                           #{x\ 11448}#))))))
-           (#{fx<\ 8983}# <)
-           (#{fx=\ 8981}# =)
-           (#{fx-\ 8979}# -)
-           (#{fx+\ 8977}# +)
-           (#{*mode*\ 8975}# (make-fluid))
-           (#{noexpand\ 8973}# "noexpand"))
+                            #{x\ 2595}#)
+                           #{x\ 2595}#))))))
+           (#{fx<\ 129}# <)
+           (#{fx=\ 127}# =)
+           (#{fx-\ 125}# -)
+           (#{fx+\ 123}# +)
+           (#{*mode*\ 121}# (make-fluid))
+           (#{noexpand\ 119}# "noexpand"))
     (begin
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'local-syntax
         'letrec-syntax
         #t)
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'local-syntax
         'let-syntax
         #f)
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'core
         'fluid-let-syntax
-        (lambda (#{e\ 11458}#
-                 #{r\ 11459}#
-                 #{w\ 11460}#
-                 #{s\ 11461}#
-                 #{mod\ 11462}#)
-          ((lambda (#{tmp\ 11468}#)
-             ((lambda (#{tmp\ 11469}#)
-                (if (if #{tmp\ 11469}#
-                      (apply (lambda (#{_\ 11475}#
-                                      #{var\ 11476}#
-                                      #{val\ 11477}#
-                                      #{e1\ 11478}#
-                                      #{e2\ 11479}#)
-                               (#{valid-bound-ids?\ 9139}# #{var\ 11476}#))
-                             #{tmp\ 11469}#)
+        (lambda (#{e\ 2605}#
+                 #{r\ 2606}#
+                 #{w\ 2607}#
+                 #{s\ 2608}#
+                 #{mod\ 2609}#)
+          ((lambda (#{tmp\ 2615}#)
+             ((lambda (#{tmp\ 2616}#)
+                (if (if #{tmp\ 2616}#
+                      (apply (lambda (#{_\ 2622}#
+                                      #{var\ 2623}#
+                                      #{val\ 2624}#
+                                      #{e1\ 2625}#
+                                      #{e2\ 2626}#)
+                               (#{valid-bound-ids?\ 285}# #{var\ 2623}#))
+                             #{tmp\ 2616}#)
                       #f)
-                  (apply (lambda (#{_\ 11486}#
-                                  #{var\ 11487}#
-                                  #{val\ 11488}#
-                                  #{e1\ 11489}#
-                                  #{e2\ 11490}#)
-                           (let ((#{names\ 11492}#
-                                   (map (lambda (#{x\ 11493}#)
-                                          (#{id-var-name\ 9133}#
-                                            #{x\ 11493}#
-                                            #{w\ 11460}#))
-                                        #{var\ 11487}#)))
+                  (apply (lambda (#{_\ 2633}#
+                                  #{var\ 2634}#
+                                  #{val\ 2635}#
+                                  #{e1\ 2636}#
+                                  #{e2\ 2637}#)
+                           (let ((#{names\ 2639}#
+                                   (map (lambda (#{x\ 2640}#)
+                                          (#{id-var-name\ 279}#
+                                            #{x\ 2640}#
+                                            #{w\ 2607}#))
+                                        #{var\ 2634}#)))
                              (begin
                                (for-each
-                                 (lambda (#{id\ 11496}# #{n\ 11497}#)
-                                   (let ((#{atom-key\ 11502}#
-                                           (#{binding-type\ 9059}#
-                                             (#{lookup\ 9070}#
-                                               #{n\ 11497}#
-                                               #{r\ 11459}#
-                                               #{mod\ 11462}#))))
-                                     (if (memv #{atom-key\ 11502}#
+                                 (lambda (#{id\ 2643}# #{n\ 2644}#)
+                                   (let ((#{atom-key\ 2649}#
+                                           (#{binding-type\ 205}#
+                                             (#{lookup\ 216}#
+                                               #{n\ 2644}#
+                                               #{r\ 2606}#
+                                               #{mod\ 2609}#))))
+                                     (if (memv #{atom-key\ 2649}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
-                                         #{e\ 11458}#
-                                         (#{source-wrap\ 9147}#
-                                           #{id\ 11496}#
-                                           #{w\ 11460}#
-                                           #{s\ 11461}#
-                                           #{mod\ 11462}#)))))
-                                 #{var\ 11487}#
-                                 #{names\ 11492}#)
-                               (#{chi-body\ 9169}#
-                                 (cons #{e1\ 11489}# #{e2\ 11490}#)
-                                 (#{source-wrap\ 9147}#
-                                   #{e\ 11458}#
-                                   #{w\ 11460}#
-                                   #{s\ 11461}#
-                                   #{mod\ 11462}#)
-                                 (#{extend-env\ 9064}#
-                                   #{names\ 11492}#
-                                   (let ((#{trans-r\ 11507}#
-                                           (#{macros-only-env\ 9068}#
-                                             #{r\ 11459}#)))
-                                     (map (lambda (#{x\ 11508}#)
+                                         #{e\ 2605}#
+                                         (#{source-wrap\ 293}#
+                                           #{id\ 2643}#
+                                           #{w\ 2607}#
+                                           #{s\ 2608}#
+                                           #{mod\ 2609}#)))))
+                                 #{var\ 2634}#
+                                 #{names\ 2639}#)
+                               (#{chi-body\ 315}#
+                                 (cons #{e1\ 2636}# #{e2\ 2637}#)
+                                 (#{source-wrap\ 293}#
+                                   #{e\ 2605}#
+                                   #{w\ 2607}#
+                                   #{s\ 2608}#
+                                   #{mod\ 2609}#)
+                                 (#{extend-env\ 210}#
+                                   #{names\ 2639}#
+                                   (let ((#{trans-r\ 2654}#
+                                           (#{macros-only-env\ 214}#
+                                             #{r\ 2606}#)))
+                                     (map (lambda (#{x\ 2655}#)
                                             (cons 'macro
-                                                  (#{eval-local-transformer\ 
9173}#
-                                                    (#{chi\ 9161}#
-                                                      #{x\ 11508}#
-                                                      #{trans-r\ 11507}#
-                                                      #{w\ 11460}#
-                                                      #{mod\ 11462}#)
-                                                    #{mod\ 11462}#)))
-                                          #{val\ 11488}#))
-                                   #{r\ 11459}#)
-                                 #{w\ 11460}#
-                                 #{mod\ 11462}#))))
-                         #{tmp\ 11469}#)
-                  ((lambda (#{_\ 11513}#)
+                                                  (#{eval-local-transformer\ 
319}#
+                                                    (#{chi\ 307}#
+                                                      #{x\ 2655}#
+                                                      #{trans-r\ 2654}#
+                                                      #{w\ 2607}#
+                                                      #{mod\ 2609}#)
+                                                    #{mod\ 2609}#)))
+                                          #{val\ 2635}#))
+                                   #{r\ 2606}#)
+                                 #{w\ 2607}#
+                                 #{mod\ 2609}#))))
+                         #{tmp\ 2616}#)
+                  ((lambda (#{_\ 2660}#)
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
-                       (#{source-wrap\ 9147}#
-                         #{e\ 11458}#
-                         #{w\ 11460}#
-                         #{s\ 11461}#
-                         #{mod\ 11462}#)))
-                   #{tmp\ 11468}#)))
+                       (#{source-wrap\ 293}#
+                         #{e\ 2605}#
+                         #{w\ 2607}#
+                         #{s\ 2608}#
+                         #{mod\ 2609}#)))
+                   #{tmp\ 2615}#)))
               ($sc-dispatch
-                #{tmp\ 11468}#
+                #{tmp\ 2615}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 11458}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 2605}#)))
+      (#{global-extend\ 218}#
         'core
         'quote
-        (lambda (#{e\ 11514}#
-                 #{r\ 11515}#
-                 #{w\ 11516}#
-                 #{s\ 11517}#
-                 #{mod\ 11518}#)
-          ((lambda (#{tmp\ 11524}#)
-             ((lambda (#{tmp\ 11525}#)
-                (if #{tmp\ 11525}#
-                  (apply (lambda (#{_\ 11528}# #{e\ 11529}#)
-                           (#{build-data\ 9026}#
-                             #{s\ 11517}#
-                             (#{strip\ 9187}# #{e\ 11529}# #{w\ 11516}#)))
-                         #{tmp\ 11525}#)
-                  ((lambda (#{_\ 11531}#)
+        (lambda (#{e\ 2661}#
+                 #{r\ 2662}#
+                 #{w\ 2663}#
+                 #{s\ 2664}#
+                 #{mod\ 2665}#)
+          ((lambda (#{tmp\ 2671}#)
+             ((lambda (#{tmp\ 2672}#)
+                (if #{tmp\ 2672}#
+                  (apply (lambda (#{_\ 2675}# #{e\ 2676}#)
+                           (#{build-data\ 172}#
+                             #{s\ 2664}#
+                             (#{strip\ 333}# #{e\ 2676}# #{w\ 2663}#)))
+                         #{tmp\ 2672}#)
+                  ((lambda (#{_\ 2678}#)
                      (syntax-violation
                        'quote
                        "bad syntax"
-                       (#{source-wrap\ 9147}#
-                         #{e\ 11514}#
-                         #{w\ 11516}#
-                         #{s\ 11517}#
-                         #{mod\ 11518}#)))
-                   #{tmp\ 11524}#)))
-              ($sc-dispatch #{tmp\ 11524}# (quote (any any)))))
-           #{e\ 11514}#)))
-      (#{global-extend\ 9072}#
+                       (#{source-wrap\ 293}#
+                         #{e\ 2661}#
+                         #{w\ 2663}#
+                         #{s\ 2664}#
+                         #{mod\ 2665}#)))
+                   #{tmp\ 2671}#)))
+              ($sc-dispatch #{tmp\ 2671}# (quote (any any)))))
+           #{e\ 2661}#)))
+      (#{global-extend\ 218}#
         'core
         'syntax
-        (letrec ((#{regen\ 11547}#
-                   (lambda (#{x\ 11548}#)
-                     (let ((#{atom-key\ 11552}# (car #{x\ 11548}#)))
-                       (if (memv #{atom-key\ 11552}# (quote (ref)))
-                         (#{build-lexical-reference\ 9004}#
+        (letrec ((#{regen\ 2694}#
+                   (lambda (#{x\ 2695}#)
+                     (let ((#{atom-key\ 2699}# (car #{x\ 2695}#)))
+                       (if (memv #{atom-key\ 2699}# (quote (ref)))
+                         (#{build-lexical-reference\ 150}#
                            'value
                            #f
-                           (cadr #{x\ 11548}#)
-                           (cadr #{x\ 11548}#))
-                         (if (memv #{atom-key\ 11552}# (quote (primitive)))
-                           (#{build-primref\ 9024}# #f (cadr #{x\ 11548}#))
-                           (if (memv #{atom-key\ 11552}# (quote (quote)))
-                             (#{build-data\ 9026}# #f (cadr #{x\ 11548}#))
-                             (if (memv #{atom-key\ 11552}# (quote (lambda)))
-                               (if (list? (cadr #{x\ 11548}#))
-                                 (#{build-simple-lambda\ 9018}#
+                           (cadr #{x\ 2695}#)
+                           (cadr #{x\ 2695}#))
+                         (if (memv #{atom-key\ 2699}# (quote (primitive)))
+                           (#{build-primref\ 170}# #f (cadr #{x\ 2695}#))
+                           (if (memv #{atom-key\ 2699}# (quote (quote)))
+                             (#{build-data\ 172}# #f (cadr #{x\ 2695}#))
+                             (if (memv #{atom-key\ 2699}# (quote (lambda)))
+                               (if (list? (cadr #{x\ 2695}#))
+                                 (#{build-simple-lambda\ 164}#
                                    #f
-                                   (cadr #{x\ 11548}#)
+                                   (cadr #{x\ 2695}#)
                                    #f
-                                   (cadr #{x\ 11548}#)
+                                   (cadr #{x\ 2695}#)
                                    '()
-                                   (#{regen\ 11547}# (caddr #{x\ 11548}#)))
-                                 (error "how did we get here" #{x\ 11548}#))
-                               (#{build-application\ 8998}#
+                                   (#{regen\ 2694}# (caddr #{x\ 2695}#)))
+                                 (error "how did we get here" #{x\ 2695}#))
+                               (#{build-application\ 144}#
                                  #f
-                                 (#{build-primref\ 9024}#
-                                   #f
-                                   (car #{x\ 11548}#))
-                                 (map #{regen\ 11547}#
-                                      (cdr #{x\ 11548}#))))))))))
-                 (#{gen-vector\ 11545}#
-                   (lambda (#{x\ 11564}#)
-                     (if (eq? (car #{x\ 11564}#) (quote list))
-                       (cons (quote vector) (cdr #{x\ 11564}#))
-                       (if (eq? (car #{x\ 11564}#) (quote quote))
+                                 (#{build-primref\ 170}# #f (car #{x\ 2695}#))
+                                 (map #{regen\ 2694}#
+                                      (cdr #{x\ 2695}#))))))))))
+                 (#{gen-vector\ 2692}#
+                   (lambda (#{x\ 2711}#)
+                     (if (eq? (car #{x\ 2711}#) (quote list))
+                       (cons (quote vector) (cdr #{x\ 2711}#))
+                       (if (eq? (car #{x\ 2711}#) (quote quote))
                          (list 'quote
-                               (list->vector (cadr #{x\ 11564}#)))
-                         (list (quote list->vector) #{x\ 11564}#)))))
-                 (#{gen-append\ 11543}#
-                   (lambda (#{x\ 11574}# #{y\ 11575}#)
-                     (if (equal? #{y\ 11575}# (quote (quote ())))
-                       #{x\ 11574}#
-                       (list (quote append) #{x\ 11574}# #{y\ 11575}#))))
-                 (#{gen-cons\ 11541}#
-                   (lambda (#{x\ 11579}# #{y\ 11580}#)
-                     (let ((#{atom-key\ 11585}# (car #{y\ 11580}#)))
-                       (if (memv #{atom-key\ 11585}# (quote (quote)))
-                         (if (eq? (car #{x\ 11579}#) (quote quote))
+                               (list->vector (cadr #{x\ 2711}#)))
+                         (list (quote list->vector) #{x\ 2711}#)))))
+                 (#{gen-append\ 2690}#
+                   (lambda (#{x\ 2721}# #{y\ 2722}#)
+                     (if (equal? #{y\ 2722}# (quote (quote ())))
+                       #{x\ 2721}#
+                       (list (quote append) #{x\ 2721}# #{y\ 2722}#))))
+                 (#{gen-cons\ 2688}#
+                   (lambda (#{x\ 2726}# #{y\ 2727}#)
+                     (let ((#{atom-key\ 2732}# (car #{y\ 2727}#)))
+                       (if (memv #{atom-key\ 2732}# (quote (quote)))
+                         (if (eq? (car #{x\ 2726}#) (quote quote))
                            (list 'quote
-                                 (cons (cadr #{x\ 11579}#)
-                                       (cadr #{y\ 11580}#)))
-                           (if (eq? (cadr #{y\ 11580}#) (quote ()))
-                             (list (quote list) #{x\ 11579}#)
-                             (list (quote cons) #{x\ 11579}# #{y\ 11580}#)))
-                         (if (memv #{atom-key\ 11585}# (quote (list)))
+                                 (cons (cadr #{x\ 2726}#) (cadr #{y\ 2727}#)))
+                           (if (eq? (cadr #{y\ 2727}#) (quote ()))
+                             (list (quote list) #{x\ 2726}#)
+                             (list (quote cons) #{x\ 2726}# #{y\ 2727}#)))
+                         (if (memv #{atom-key\ 2732}# (quote (list)))
                            (cons 'list
-                                 (cons #{x\ 11579}# (cdr #{y\ 11580}#)))
-                           (list (quote cons) #{x\ 11579}# #{y\ 11580}#))))))
-                 (#{gen-map\ 11539}#
-                   (lambda (#{e\ 11594}# #{map-env\ 11595}#)
-                     (let ((#{formals\ 11600}# (map cdr #{map-env\ 11595}#))
-                           (#{actuals\ 11601}#
-                             (map (lambda (#{x\ 11602}#)
-                                    (list (quote ref) (car #{x\ 11602}#)))
-                                  #{map-env\ 11595}#)))
-                       (if (eq? (car #{e\ 11594}#) (quote ref))
-                         (car #{actuals\ 11601}#)
+                                 (cons #{x\ 2726}# (cdr #{y\ 2727}#)))
+                           (list (quote cons) #{x\ 2726}# #{y\ 2727}#))))))
+                 (#{gen-map\ 2686}#
+                   (lambda (#{e\ 2741}# #{map-env\ 2742}#)
+                     (let ((#{formals\ 2747}# (map cdr #{map-env\ 2742}#))
+                           (#{actuals\ 2748}#
+                             (map (lambda (#{x\ 2749}#)
+                                    (list (quote ref) (car #{x\ 2749}#)))
+                                  #{map-env\ 2742}#)))
+                       (if (eq? (car #{e\ 2741}#) (quote ref))
+                         (car #{actuals\ 2748}#)
                          (if (and-map
-                               (lambda (#{x\ 11609}#)
-                                 (if (eq? (car #{x\ 11609}#) (quote ref))
-                                   (memq (cadr #{x\ 11609}#)
-                                         #{formals\ 11600}#)
+                               (lambda (#{x\ 2756}#)
+                                 (if (eq? (car #{x\ 2756}#) (quote ref))
+                                   (memq (cadr #{x\ 2756}#) #{formals\ 2747}#)
                                    #f))
-                               (cdr #{e\ 11594}#))
+                               (cdr #{e\ 2741}#))
                            (cons 'map
                                  (cons (list 'primitive
-                                             (car #{e\ 11594}#))
-                                       (map (let ((#{r\ 11615}#
+                                             (car #{e\ 2741}#))
+                                       (map (let ((#{r\ 2762}#
                                                     (map cons
-                                                         #{formals\ 11600}#
-                                                         #{actuals\ 11601}#)))
-                                              (lambda (#{x\ 11616}#)
-                                                (cdr (assq (cadr #{x\ 11616}#)
-                                                           #{r\ 11615}#))))
-                                            (cdr #{e\ 11594}#))))
+                                                         #{formals\ 2747}#
+                                                         #{actuals\ 2748}#)))
+                                              (lambda (#{x\ 2763}#)
+                                                (cdr (assq (cadr #{x\ 2763}#)
+                                                           #{r\ 2762}#))))
+                                            (cdr #{e\ 2741}#))))
                            (cons 'map
                                  (cons (list 'lambda
-                                             #{formals\ 11600}#
-                                             #{e\ 11594}#)
-                                       #{actuals\ 11601}#)))))))
-                 (#{gen-mappend\ 11537}#
-                   (lambda (#{e\ 11620}# #{map-env\ 11621}#)
+                                             #{formals\ 2747}#
+                                             #{e\ 2741}#)
+                                       #{actuals\ 2748}#)))))))
+                 (#{gen-mappend\ 2684}#
+                   (lambda (#{e\ 2767}# #{map-env\ 2768}#)
                      (list 'apply
                            '(primitive append)
-                           (#{gen-map\ 11539}#
-                             #{e\ 11620}#
-                             #{map-env\ 11621}#))))
-                 (#{gen-ref\ 11535}#
-                   (lambda (#{src\ 11625}#
-                            #{var\ 11626}#
-                            #{level\ 11627}#
-                            #{maps\ 11628}#)
-                     (if (#{fx=\ 8981}# #{level\ 11627}# 0)
-                       (values #{var\ 11626}# #{maps\ 11628}#)
-                       (if (null? #{maps\ 11628}#)
+                           (#{gen-map\ 2686}# #{e\ 2767}# #{map-env\ 2768}#))))
+                 (#{gen-ref\ 2682}#
+                   (lambda (#{src\ 2772}#
+                            #{var\ 2773}#
+                            #{level\ 2774}#
+                            #{maps\ 2775}#)
+                     (if (#{fx=\ 127}# #{level\ 2774}# 0)
+                       (values #{var\ 2773}# #{maps\ 2775}#)
+                       (if (null? #{maps\ 2775}#)
                          (syntax-violation
                            'syntax
                            "missing ellipsis"
-                           #{src\ 11625}#)
+                           #{src\ 2772}#)
                          (call-with-values
                            (lambda ()
-                             (#{gen-ref\ 11535}#
-                               #{src\ 11625}#
-                               #{var\ 11626}#
-                               (#{fx-\ 8979}# #{level\ 11627}# 1)
-                               (cdr #{maps\ 11628}#)))
-                           (lambda (#{outer-var\ 11633}# #{outer-maps\ 11634}#)
-                             (let ((#{b\ 11638}#
-                                     (assq #{outer-var\ 11633}#
-                                           (car #{maps\ 11628}#))))
-                               (if #{b\ 11638}#
-                                 (values (cdr #{b\ 11638}#) #{maps\ 11628}#)
-                                 (let ((#{inner-var\ 11640}#
-                                         (#{gen-var\ 9189}# (quote tmp))))
+                             (#{gen-ref\ 2682}#
+                               #{src\ 2772}#
+                               #{var\ 2773}#
+                               (#{fx-\ 125}# #{level\ 2774}# 1)
+                               (cdr #{maps\ 2775}#)))
+                           (lambda (#{outer-var\ 2780}# #{outer-maps\ 2781}#)
+                             (let ((#{b\ 2785}#
+                                     (assq #{outer-var\ 2780}#
+                                           (car #{maps\ 2775}#))))
+                               (if #{b\ 2785}#
+                                 (values (cdr #{b\ 2785}#) #{maps\ 2775}#)
+                                 (let ((#{inner-var\ 2787}#
+                                         (#{gen-var\ 335}# (quote tmp))))
                                    (values
-                                     #{inner-var\ 11640}#
-                                     (cons (cons (cons #{outer-var\ 11633}#
-                                                       #{inner-var\ 11640}#)
-                                                 (car #{maps\ 11628}#))
-                                           #{outer-maps\ 11634}#)))))))))))
-                 (#{gen-syntax\ 11533}#
-                   (lambda (#{src\ 11641}#
-                            #{e\ 11642}#
-                            #{r\ 11643}#
-                            #{maps\ 11644}#
-                            #{ellipsis?\ 11645}#
-                            #{mod\ 11646}#)
-                     (if (#{id?\ 9076}# #{e\ 11642}#)
-                       (let ((#{label\ 11654}#
-                               (#{id-var-name\ 9133}#
-                                 #{e\ 11642}#
+                                     #{inner-var\ 2787}#
+                                     (cons (cons (cons #{outer-var\ 2780}#
+                                                       #{inner-var\ 2787}#)
+                                                 (car #{maps\ 2775}#))
+                                           #{outer-maps\ 2781}#)))))))))))
+                 (#{gen-syntax\ 2680}#
+                   (lambda (#{src\ 2788}#
+                            #{e\ 2789}#
+                            #{r\ 2790}#
+                            #{maps\ 2791}#
+                            #{ellipsis?\ 2792}#
+                            #{mod\ 2793}#)
+                     (if (#{id?\ 222}# #{e\ 2789}#)
+                       (let ((#{label\ 2801}#
+                               (#{id-var-name\ 279}#
+                                 #{e\ 2789}#
                                  '(()))))
-                         (let ((#{b\ 11657}#
-                                 (#{lookup\ 9070}#
-                                   #{label\ 11654}#
-                                   #{r\ 11643}#
-                                   #{mod\ 11646}#)))
-                           (if (eq? (#{binding-type\ 9059}# #{b\ 11657}#)
+                         (let ((#{b\ 2804}#
+                                 (#{lookup\ 216}#
+                                   #{label\ 2801}#
+                                   #{r\ 2790}#
+                                   #{mod\ 2793}#)))
+                           (if (eq? (#{binding-type\ 205}# #{b\ 2804}#)
                                     'syntax)
                              (call-with-values
                                (lambda ()
-                                 (let ((#{var.lev\ 11659}#
-                                         (#{binding-value\ 9061}#
-                                           #{b\ 11657}#)))
-                                   (#{gen-ref\ 11535}#
-                                     #{src\ 11641}#
-                                     (car #{var.lev\ 11659}#)
-                                     (cdr #{var.lev\ 11659}#)
-                                     #{maps\ 11644}#)))
-                               (lambda (#{var\ 11660}# #{maps\ 11661}#)
+                                 (let ((#{var.lev\ 2806}#
+                                         (#{binding-value\ 207}# #{b\ 2804}#)))
+                                   (#{gen-ref\ 2682}#
+                                     #{src\ 2788}#
+                                     (car #{var.lev\ 2806}#)
+                                     (cdr #{var.lev\ 2806}#)
+                                     #{maps\ 2791}#)))
+                               (lambda (#{var\ 2807}# #{maps\ 2808}#)
                                  (values
-                                   (list (quote ref) #{var\ 11660}#)
-                                   #{maps\ 11661}#)))
-                             (if (#{ellipsis?\ 11645}# #{e\ 11642}#)
+                                   (list (quote ref) #{var\ 2807}#)
+                                   #{maps\ 2808}#)))
+                             (if (#{ellipsis?\ 2792}# #{e\ 2789}#)
                                (syntax-violation
                                  'syntax
                                  "misplaced ellipsis"
-                                 #{src\ 11641}#)
+                                 #{src\ 2788}#)
                                (values
-                                 (list (quote quote) #{e\ 11642}#)
-                                 #{maps\ 11644}#)))))
-                       ((lambda (#{tmp\ 11666}#)
-                          ((lambda (#{tmp\ 11667}#)
-                             (if (if #{tmp\ 11667}#
-                                   (apply (lambda (#{dots\ 11670}#
-                                                   #{e\ 11671}#)
-                                            (#{ellipsis?\ 11645}#
-                                              #{dots\ 11670}#))
-                                          #{tmp\ 11667}#)
+                                 (list (quote quote) #{e\ 2789}#)
+                                 #{maps\ 2791}#)))))
+                       ((lambda (#{tmp\ 2813}#)
+                          ((lambda (#{tmp\ 2814}#)
+                             (if (if #{tmp\ 2814}#
+                                   (apply (lambda (#{dots\ 2817}# #{e\ 2818}#)
+                                            (#{ellipsis?\ 2792}#
+                                              #{dots\ 2817}#))
+                                          #{tmp\ 2814}#)
                                    #f)
-                               (apply (lambda (#{dots\ 11674}# #{e\ 11675}#)
-                                        (#{gen-syntax\ 11533}#
-                                          #{src\ 11641}#
-                                          #{e\ 11675}#
-                                          #{r\ 11643}#
-                                          #{maps\ 11644}#
-                                          (lambda (#{x\ 11676}#) #f)
-                                          #{mod\ 11646}#))
-                                      #{tmp\ 11667}#)
-                               ((lambda (#{tmp\ 11678}#)
-                                  (if (if #{tmp\ 11678}#
-                                        (apply (lambda (#{x\ 11682}#
-                                                        #{dots\ 11683}#
-                                                        #{y\ 11684}#)
-                                                 (#{ellipsis?\ 11645}#
-                                                   #{dots\ 11683}#))
-                                               #{tmp\ 11678}#)
+                               (apply (lambda (#{dots\ 2821}# #{e\ 2822}#)
+                                        (#{gen-syntax\ 2680}#
+                                          #{src\ 2788}#
+                                          #{e\ 2822}#
+                                          #{r\ 2790}#
+                                          #{maps\ 2791}#
+                                          (lambda (#{x\ 2823}#) #f)
+                                          #{mod\ 2793}#))
+                                      #{tmp\ 2814}#)
+                               ((lambda (#{tmp\ 2825}#)
+                                  (if (if #{tmp\ 2825}#
+                                        (apply (lambda (#{x\ 2829}#
+                                                        #{dots\ 2830}#
+                                                        #{y\ 2831}#)
+                                                 (#{ellipsis?\ 2792}#
+                                                   #{dots\ 2830}#))
+                                               #{tmp\ 2825}#)
                                         #f)
-                                    (apply (lambda (#{x\ 11688}#
-                                                    #{dots\ 11689}#
-                                                    #{y\ 11690}#)
-                                             (letrec ((#{f\ 11694}#
-                                                        (lambda (#{y\ 11695}#
-                                                                 #{k\ 11696}#)
-                                                          ((lambda (#{tmp\ 
11703}#)
-                                                             ((lambda (#{tmp\ 
11704}#)
-                                                                (if (if #{tmp\ 
11704}#
-                                                                      (apply 
(lambda (#{dots\ 11707}#
-                                                                               
       #{y\ 11708}#)
-                                                                               
(#{ellipsis?\ 11645}#
-                                                                               
  #{dots\ 11707}#))
-                                                                             
#{tmp\ 11704}#)
+                                    (apply (lambda (#{x\ 2835}#
+                                                    #{dots\ 2836}#
+                                                    #{y\ 2837}#)
+                                             (letrec ((#{f\ 2841}#
+                                                        (lambda (#{y\ 2842}#
+                                                                 #{k\ 2843}#)
+                                                          ((lambda (#{tmp\ 
2850}#)
+                                                             ((lambda (#{tmp\ 
2851}#)
+                                                                (if (if #{tmp\ 
2851}#
+                                                                      (apply 
(lambda (#{dots\ 2854}#
+                                                                               
       #{y\ 2855}#)
+                                                                               
(#{ellipsis?\ 2792}#
+                                                                               
  #{dots\ 2854}#))
+                                                                             
#{tmp\ 2851}#)
                                                                       #f)
-                                                                  (apply 
(lambda (#{dots\ 11711}#
-                                                                               
   #{y\ 11712}#)
-                                                                           
(#{f\ 11694}#
-                                                                             
#{y\ 11712}#
-                                                                             
(lambda (#{maps\ 11713}#)
+                                                                  (apply 
(lambda (#{dots\ 2858}#
+                                                                               
   #{y\ 2859}#)
+                                                                           
(#{f\ 2841}#
+                                                                             
#{y\ 2859}#
+                                                                             
(lambda (#{maps\ 2860}#)
                                                                                
(call-with-values
                                                                                
  (lambda ()
-                                                                               
    (#{k\ 11696}#
+                                                                               
    (#{k\ 2843}#
                                                                                
      (cons '()
-                                                                               
            #{maps\ 11713}#)))
-                                                                               
  (lambda (#{x\ 11715}#
-                                                                               
           #{maps\ 11716}#)
-                                                                               
    (if (null? (car #{maps\ 11716}#))
+                                                                               
            #{maps\ 2860}#)))
+                                                                               
  (lambda (#{x\ 2862}#
+                                                                               
           #{maps\ 2863}#)
+                                                                               
    (if (null? (car #{maps\ 2863}#))
                                                                                
      (syntax-violation
                                                                                
        'syntax
                                                                                
        "extra ellipsis"
-                                                                               
        #{src\ 11641}#)
+                                                                               
        #{src\ 2788}#)
                                                                                
      (values
-                                                                               
        (#{gen-mappend\ 11537}#
-                                                                               
          #{x\ 11715}#
-                                                                               
          (car #{maps\ 11716}#))
-                                                                               
        (cdr #{maps\ 11716}#))))))))
-                                                                         
#{tmp\ 11704}#)
-                                                                  ((lambda 
(#{_\ 11720}#)
+                                                                               
        (#{gen-mappend\ 2684}#
+                                                                               
          #{x\ 2862}#
+                                                                               
          (car #{maps\ 2863}#))
+                                                                               
        (cdr #{maps\ 2863}#))))))))
+                                                                         
#{tmp\ 2851}#)
+                                                                  ((lambda 
(#{_\ 2867}#)
                                                                      
(call-with-values
                                                                        (lambda 
()
-                                                                         
(#{gen-syntax\ 11533}#
-                                                                           
#{src\ 11641}#
-                                                                           
#{y\ 11695}#
-                                                                           
#{r\ 11643}#
-                                                                           
#{maps\ 11644}#
-                                                                           
#{ellipsis?\ 11645}#
-                                                                           
#{mod\ 11646}#))
-                                                                       (lambda 
(#{y\ 11721}#
-                                                                               
 #{maps\ 11722}#)
+                                                                         
(#{gen-syntax\ 2680}#
+                                                                           
#{src\ 2788}#
+                                                                           
#{y\ 2842}#
+                                                                           
#{r\ 2790}#
+                                                                           
#{maps\ 2791}#
+                                                                           
#{ellipsis?\ 2792}#
+                                                                           
#{mod\ 2793}#))
+                                                                       (lambda 
(#{y\ 2868}#
+                                                                               
 #{maps\ 2869}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{k\ 11696}#
-                                                                               
#{maps\ 11722}#))
-                                                                           
(lambda (#{x\ 11725}#
-                                                                               
     #{maps\ 11726}#)
+                                                                             
(#{k\ 2843}#
+                                                                               
#{maps\ 2869}#))
+                                                                           
(lambda (#{x\ 2872}#
+                                                                               
     #{maps\ 2873}#)
                                                                              
(values
-                                                                               
(#{gen-append\ 11543}#
-                                                                               
  #{x\ 11725}#
-                                                                               
  #{y\ 11721}#)
-                                                                               
#{maps\ 11726}#))))))
-                                                                   #{tmp\ 
11703}#)))
+                                                                               
(#{gen-append\ 2690}#
+                                                                               
  #{x\ 2872}#
+                                                                               
  #{y\ 2868}#)
+                                                                               
#{maps\ 2873}#))))))
+                                                                   #{tmp\ 
2850}#)))
                                                               ($sc-dispatch
-                                                                #{tmp\ 11703}#
+                                                                #{tmp\ 2850}#
                                                                 '(any . any))))
-                                                           #{y\ 11695}#))))
-                                               (#{f\ 11694}#
-                                                 #{y\ 11690}#
-                                                 (lambda (#{maps\ 11697}#)
+                                                           #{y\ 2842}#))))
+                                               (#{f\ 2841}#
+                                                 #{y\ 2837}#
+                                                 (lambda (#{maps\ 2844}#)
                                                    (call-with-values
                                                      (lambda ()
-                                                       (#{gen-syntax\ 11533}#
-                                                         #{src\ 11641}#
-                                                         #{x\ 11688}#
-                                                         #{r\ 11643}#
+                                                       (#{gen-syntax\ 2680}#
+                                                         #{src\ 2788}#
+                                                         #{x\ 2835}#
+                                                         #{r\ 2790}#
                                                          (cons '()
-                                                               #{maps\ 11697}#)
-                                                         #{ellipsis?\ 11645}#
-                                                         #{mod\ 11646}#))
-                                                     (lambda (#{x\ 11699}#
-                                                              #{maps\ 11700}#)
-                                                       (if (null? (car #{maps\ 
11700}#))
+                                                               #{maps\ 2844}#)
+                                                         #{ellipsis?\ 2792}#
+                                                         #{mod\ 2793}#))
+                                                     (lambda (#{x\ 2846}#
+                                                              #{maps\ 2847}#)
+                                                       (if (null? (car #{maps\ 
2847}#))
                                                          (syntax-violation
                                                            'syntax
                                                            "extra ellipsis"
-                                                           #{src\ 11641}#)
+                                                           #{src\ 2788}#)
                                                          (values
-                                                           (#{gen-map\ 11539}#
-                                                             #{x\ 11699}#
-                                                             (car #{maps\ 
11700}#))
-                                                           (cdr #{maps\ 
11700}#)))))))))
-                                           #{tmp\ 11678}#)
-                                    ((lambda (#{tmp\ 11729}#)
-                                       (if #{tmp\ 11729}#
-                                         (apply (lambda (#{x\ 11732}#
-                                                         #{y\ 11733}#)
+                                                           (#{gen-map\ 2686}#
+                                                             #{x\ 2846}#
+                                                             (car #{maps\ 
2847}#))
+                                                           (cdr #{maps\ 
2847}#)))))))))
+                                           #{tmp\ 2825}#)
+                                    ((lambda (#{tmp\ 2876}#)
+                                       (if #{tmp\ 2876}#
+                                         (apply (lambda (#{x\ 2879}#
+                                                         #{y\ 2880}#)
                                                   (call-with-values
                                                     (lambda ()
-                                                      (#{gen-syntax\ 11533}#
-                                                        #{src\ 11641}#
-                                                        #{x\ 11732}#
-                                                        #{r\ 11643}#
-                                                        #{maps\ 11644}#
-                                                        #{ellipsis?\ 11645}#
-                                                        #{mod\ 11646}#))
-                                                    (lambda (#{x\ 11734}#
-                                                             #{maps\ 11735}#)
+                                                      (#{gen-syntax\ 2680}#
+                                                        #{src\ 2788}#
+                                                        #{x\ 2879}#
+                                                        #{r\ 2790}#
+                                                        #{maps\ 2791}#
+                                                        #{ellipsis?\ 2792}#
+                                                        #{mod\ 2793}#))
+                                                    (lambda (#{x\ 2881}#
+                                                             #{maps\ 2882}#)
                                                       (call-with-values
                                                         (lambda ()
-                                                          (#{gen-syntax\ 
11533}#
-                                                            #{src\ 11641}#
-                                                            #{y\ 11733}#
-                                                            #{r\ 11643}#
-                                                            #{maps\ 11735}#
-                                                            #{ellipsis?\ 
11645}#
-                                                            #{mod\ 11646}#))
-                                                        (lambda (#{y\ 11738}#
-                                                                 #{maps\ 
11739}#)
+                                                          (#{gen-syntax\ 2680}#
+                                                            #{src\ 2788}#
+                                                            #{y\ 2880}#
+                                                            #{r\ 2790}#
+                                                            #{maps\ 2882}#
+                                                            #{ellipsis?\ 2792}#
+                                                            #{mod\ 2793}#))
+                                                        (lambda (#{y\ 2885}#
+                                                                 #{maps\ 
2886}#)
                                                           (values
-                                                            (#{gen-cons\ 
11541}#
-                                                              #{x\ 11734}#
-                                                              #{y\ 11738}#)
-                                                            #{maps\ 
11739}#))))))
-                                                #{tmp\ 11729}#)
-                                         ((lambda (#{tmp\ 11742}#)
-                                            (if #{tmp\ 11742}#
-                                              (apply (lambda (#{e1\ 11745}#
-                                                              #{e2\ 11746}#)
+                                                            (#{gen-cons\ 2688}#
+                                                              #{x\ 2881}#
+                                                              #{y\ 2885}#)
+                                                            #{maps\ 
2886}#))))))
+                                                #{tmp\ 2876}#)
+                                         ((lambda (#{tmp\ 2889}#)
+                                            (if #{tmp\ 2889}#
+                                              (apply (lambda (#{e1\ 2892}#
+                                                              #{e2\ 2893}#)
                                                        (call-with-values
                                                          (lambda ()
-                                                           (#{gen-syntax\ 
11533}#
-                                                             #{src\ 11641}#
-                                                             (cons #{e1\ 
11745}#
-                                                                   #{e2\ 
11746}#)
-                                                             #{r\ 11643}#
-                                                             #{maps\ 11644}#
-                                                             #{ellipsis?\ 
11645}#
-                                                             #{mod\ 11646}#))
-                                                         (lambda (#{e\ 11748}#
-                                                                  #{maps\ 
11749}#)
+                                                           (#{gen-syntax\ 
2680}#
+                                                             #{src\ 2788}#
+                                                             (cons #{e1\ 2892}#
+                                                                   #{e2\ 
2893}#)
+                                                             #{r\ 2790}#
+                                                             #{maps\ 2791}#
+                                                             #{ellipsis?\ 
2792}#
+                                                             #{mod\ 2793}#))
+                                                         (lambda (#{e\ 2895}#
+                                                                  #{maps\ 
2896}#)
                                                            (values
-                                                             (#{gen-vector\ 
11545}#
-                                                               #{e\ 11748}#)
-                                                             #{maps\ 
11749}#))))
-                                                     #{tmp\ 11742}#)
-                                              ((lambda (#{_\ 11753}#)
+                                                             (#{gen-vector\ 
2692}#
+                                                               #{e\ 2895}#)
+                                                             #{maps\ 2896}#))))
+                                                     #{tmp\ 2889}#)
+                                              ((lambda (#{_\ 2900}#)
                                                  (values
                                                    (list 'quote
-                                                         #{e\ 11642}#)
-                                                   #{maps\ 11644}#))
-                                               #{tmp\ 11666}#)))
+                                                         #{e\ 2789}#)
+                                                   #{maps\ 2791}#))
+                                               #{tmp\ 2813}#)))
                                           ($sc-dispatch
-                                            #{tmp\ 11666}#
+                                            #{tmp\ 2813}#
                                             '#(vector (any . each-any))))))
                                      ($sc-dispatch
-                                       #{tmp\ 11666}#
+                                       #{tmp\ 2813}#
                                        '(any . any)))))
                                 ($sc-dispatch
-                                  #{tmp\ 11666}#
+                                  #{tmp\ 2813}#
                                   '(any any . any)))))
-                           ($sc-dispatch #{tmp\ 11666}# (quote (any any)))))
-                        #{e\ 11642}#)))))
-          (lambda (#{e\ 11755}#
-                   #{r\ 11756}#
-                   #{w\ 11757}#
-                   #{s\ 11758}#
-                   #{mod\ 11759}#)
-            (let ((#{e\ 11766}#
-                    (#{source-wrap\ 9147}#
-                      #{e\ 11755}#
-                      #{w\ 11757}#
-                      #{s\ 11758}#
-                      #{mod\ 11759}#)))
-              ((lambda (#{tmp\ 11767}#)
-                 ((lambda (#{tmp\ 11768}#)
-                    (if #{tmp\ 11768}#
-                      (apply (lambda (#{_\ 11771}# #{x\ 11772}#)
+                           ($sc-dispatch #{tmp\ 2813}# (quote (any any)))))
+                        #{e\ 2789}#)))))
+          (lambda (#{e\ 2902}#
+                   #{r\ 2903}#
+                   #{w\ 2904}#
+                   #{s\ 2905}#
+                   #{mod\ 2906}#)
+            (let ((#{e\ 2913}#
+                    (#{source-wrap\ 293}#
+                      #{e\ 2902}#
+                      #{w\ 2904}#
+                      #{s\ 2905}#
+                      #{mod\ 2906}#)))
+              ((lambda (#{tmp\ 2914}#)
+                 ((lambda (#{tmp\ 2915}#)
+                    (if #{tmp\ 2915}#
+                      (apply (lambda (#{_\ 2918}# #{x\ 2919}#)
                                (call-with-values
                                  (lambda ()
-                                   (#{gen-syntax\ 11533}#
-                                     #{e\ 11766}#
-                                     #{x\ 11772}#
-                                     #{r\ 11756}#
+                                   (#{gen-syntax\ 2680}#
+                                     #{e\ 2913}#
+                                     #{x\ 2919}#
+                                     #{r\ 2903}#
                                      '()
-                                     #{ellipsis?\ 9177}#
-                                     #{mod\ 11759}#))
-                                 (lambda (#{e\ 11773}# #{maps\ 11774}#)
-                                   (#{regen\ 11547}# #{e\ 11773}#))))
-                             #{tmp\ 11768}#)
-                      ((lambda (#{_\ 11778}#)
+                                     #{ellipsis?\ 323}#
+                                     #{mod\ 2906}#))
+                                 (lambda (#{e\ 2920}# #{maps\ 2921}#)
+                                   (#{regen\ 2694}# #{e\ 2920}#))))
+                             #{tmp\ 2915}#)
+                      ((lambda (#{_\ 2925}#)
                          (syntax-violation
                            'syntax
                            "bad `syntax' form"
-                           #{e\ 11766}#))
-                       #{tmp\ 11767}#)))
-                  ($sc-dispatch #{tmp\ 11767}# (quote (any any)))))
-               #{e\ 11766}#)))))
-      (#{global-extend\ 9072}#
+                           #{e\ 2913}#))
+                       #{tmp\ 2914}#)))
+                  ($sc-dispatch #{tmp\ 2914}# (quote (any any)))))
+               #{e\ 2913}#)))))
+      (#{global-extend\ 218}#
         'core
         'lambda
-        (lambda (#{e\ 11779}#
-                 #{r\ 11780}#
-                 #{w\ 11781}#
-                 #{s\ 11782}#
-                 #{mod\ 11783}#)
-          ((lambda (#{tmp\ 11789}#)
-             ((lambda (#{tmp\ 11790}#)
-                (if #{tmp\ 11790}#
-                  (apply (lambda (#{_\ 11795}#
-                                  #{args\ 11796}#
-                                  #{e1\ 11797}#
-                                  #{e2\ 11798}#)
+        (lambda (#{e\ 2926}#
+                 #{r\ 2927}#
+                 #{w\ 2928}#
+                 #{s\ 2929}#
+                 #{mod\ 2930}#)
+          ((lambda (#{tmp\ 2936}#)
+             ((lambda (#{tmp\ 2937}#)
+                (if #{tmp\ 2937}#
+                  (apply (lambda (#{_\ 2942}#
+                                  #{args\ 2943}#
+                                  #{e1\ 2944}#
+                                  #{e2\ 2945}#)
                            (call-with-values
                              (lambda ()
-                               (#{lambda-formals\ 9179}# #{args\ 11796}#))
-                             (lambda (#{req\ 11799}#
-                                      #{opt\ 11800}#
-                                      #{rest\ 11801}#
-                                      #{kw\ 11802}#)
-                               (letrec ((#{lp\ 11810}#
-                                          (lambda (#{body\ 11811}#
-                                                   #{meta\ 11812}#)
-                                            ((lambda (#{tmp\ 11814}#)
-                                               ((lambda (#{tmp\ 11815}#)
-                                                  (if (if #{tmp\ 11815}#
-                                                        (apply (lambda 
(#{docstring\ 11819}#
-                                                                        #{e1\ 
11820}#
-                                                                        #{e2\ 
11821}#)
+                               (#{lambda-formals\ 325}# #{args\ 2943}#))
+                             (lambda (#{req\ 2946}#
+                                      #{opt\ 2947}#
+                                      #{rest\ 2948}#
+                                      #{kw\ 2949}#)
+                               (letrec ((#{lp\ 2957}#
+                                          (lambda (#{body\ 2958}#
+                                                   #{meta\ 2959}#)
+                                            ((lambda (#{tmp\ 2961}#)
+                                               ((lambda (#{tmp\ 2962}#)
+                                                  (if (if #{tmp\ 2962}#
+                                                        (apply (lambda 
(#{docstring\ 2966}#
+                                                                        #{e1\ 
2967}#
+                                                                        #{e2\ 
2968}#)
                                                                  (string?
                                                                    
(syntax->datum
-                                                                     
#{docstring\ 11819}#)))
-                                                               #{tmp\ 11815}#)
+                                                                     
#{docstring\ 2966}#)))
+                                                               #{tmp\ 2962}#)
                                                         #f)
-                                                    (apply (lambda 
(#{docstring\ 11825}#
-                                                                    #{e1\ 
11826}#
-                                                                    #{e2\ 
11827}#)
-                                                             (#{lp\ 11810}#
-                                                               (cons #{e1\ 
11826}#
-                                                                     #{e2\ 
11827}#)
+                                                    (apply (lambda 
(#{docstring\ 2972}#
+                                                                    #{e1\ 
2973}#
+                                                                    #{e2\ 
2974}#)
+                                                             (#{lp\ 2957}#
+                                                               (cons #{e1\ 
2973}#
+                                                                     #{e2\ 
2974}#)
                                                                (append
-                                                                 #{meta\ 
11812}#
+                                                                 #{meta\ 2959}#
                                                                  (list (cons 
'documentation
                                                                              
(syntax->datum
-                                                                               
#{docstring\ 11825}#))))))
-                                                           #{tmp\ 11815}#)
-                                                    ((lambda (#{tmp\ 11830}#)
-                                                       (if #{tmp\ 11830}#
-                                                         (apply (lambda (#{k\ 
11835}#
-                                                                         #{v\ 
11836}#
-                                                                         #{e1\ 
11837}#
-                                                                         #{e2\ 
11838}#)
-                                                                  (#{lp\ 
11810}#
-                                                                    (cons 
#{e1\ 11837}#
-                                                                          
#{e2\ 11838}#)
+                                                                               
#{docstring\ 2972}#))))))
+                                                           #{tmp\ 2962}#)
+                                                    ((lambda (#{tmp\ 2977}#)
+                                                       (if #{tmp\ 2977}#
+                                                         (apply (lambda (#{k\ 
2982}#
+                                                                         #{v\ 
2983}#
+                                                                         #{e1\ 
2984}#
+                                                                         #{e2\ 
2985}#)
+                                                                  (#{lp\ 2957}#
+                                                                    (cons 
#{e1\ 2984}#
+                                                                          
#{e2\ 2985}#)
                                                                     (append
-                                                                      #{meta\ 
11812}#
+                                                                      #{meta\ 
2959}#
                                                                       
(syntax->datum
                                                                         (map 
cons
-                                                                             
#{k\ 11835}#
-                                                                             
#{v\ 11836}#)))))
-                                                                #{tmp\ 11830}#)
-                                                         ((lambda (#{_\ 
11843}#)
-                                                            
(#{chi-simple-lambda\ 9181}#
-                                                              #{e\ 11779}#
-                                                              #{r\ 11780}#
-                                                              #{w\ 11781}#
-                                                              #{s\ 11782}#
-                                                              #{mod\ 11783}#
-                                                              #{req\ 11799}#
-                                                              #{rest\ 11801}#
-                                                              #{meta\ 11812}#
-                                                              #{body\ 11811}#))
-                                                          #{tmp\ 11814}#)))
+                                                                             
#{k\ 2982}#
+                                                                             
#{v\ 2983}#)))))
+                                                                #{tmp\ 2977}#)
+                                                         ((lambda (#{_\ 2990}#)
+                                                            
(#{chi-simple-lambda\ 327}#
+                                                              #{e\ 2926}#
+                                                              #{r\ 2927}#
+                                                              #{w\ 2928}#
+                                                              #{s\ 2929}#
+                                                              #{mod\ 2930}#
+                                                              #{req\ 2946}#
+                                                              #{rest\ 2948}#
+                                                              #{meta\ 2959}#
+                                                              #{body\ 2958}#))
+                                                          #{tmp\ 2961}#)))
                                                      ($sc-dispatch
-                                                       #{tmp\ 11814}#
+                                                       #{tmp\ 2961}#
                                                        '(#(vector
                                                            #(each (any . any)))
                                                          any
                                                          .
                                                          each-any)))))
                                                 ($sc-dispatch
-                                                  #{tmp\ 11814}#
+                                                  #{tmp\ 2961}#
                                                   '(any any . each-any))))
-                                             #{body\ 11811}#))))
-                                 (#{lp\ 11810}#
-                                   (cons #{e1\ 11797}# #{e2\ 11798}#)
+                                             #{body\ 2958}#))))
+                                 (#{lp\ 2957}#
+                                   (cons #{e1\ 2944}# #{e2\ 2945}#)
                                    '())))))
-                         #{tmp\ 11790}#)
-                  ((lambda (#{_\ 11845}#)
+                         #{tmp\ 2937}#)
+                  ((lambda (#{_\ 2992}#)
                      (syntax-violation
                        'lambda
                        "bad lambda"
-                       #{e\ 11779}#))
-                   #{tmp\ 11789}#)))
+                       #{e\ 2926}#))
+                   #{tmp\ 2936}#)))
               ($sc-dispatch
-                #{tmp\ 11789}#
+                #{tmp\ 2936}#
                 '(any any any . each-any))))
-           #{e\ 11779}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 2926}#)))
+      (#{global-extend\ 218}#
         'core
         'lambda*
-        (lambda (#{e\ 11846}#
-                 #{r\ 11847}#
-                 #{w\ 11848}#
-                 #{s\ 11849}#
-                 #{mod\ 11850}#)
-          ((lambda (#{tmp\ 11856}#)
-             ((lambda (#{tmp\ 11857}#)
-                (if #{tmp\ 11857}#
-                  (apply (lambda (#{_\ 11862}#
-                                  #{args\ 11863}#
-                                  #{e1\ 11864}#
-                                  #{e2\ 11865}#)
+        (lambda (#{e\ 2993}#
+                 #{r\ 2994}#
+                 #{w\ 2995}#
+                 #{s\ 2996}#
+                 #{mod\ 2997}#)
+          ((lambda (#{tmp\ 3003}#)
+             ((lambda (#{tmp\ 3004}#)
+                (if #{tmp\ 3004}#
+                  (apply (lambda (#{_\ 3009}#
+                                  #{args\ 3010}#
+                                  #{e1\ 3011}#
+                                  #{e2\ 3012}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 9185}#
-                                 #{e\ 11846}#
-                                 #{r\ 11847}#
-                                 #{w\ 11848}#
-                                 #{s\ 11849}#
-                                 #{mod\ 11850}#
-                                 #{lambda*-formals\ 9183}#
-                                 (list (cons #{args\ 11863}#
-                                             (cons #{e1\ 11864}#
-                                                   #{e2\ 11865}#)))))
-                             (lambda (#{meta\ 11867}# #{lcase\ 11868}#)
-                               (#{build-case-lambda\ 9020}#
-                                 #{s\ 11849}#
-                                 #{meta\ 11867}#
-                                 #{lcase\ 11868}#))))
-                         #{tmp\ 11857}#)
-                  ((lambda (#{_\ 11872}#)
+                               (#{chi-lambda-case\ 331}#
+                                 #{e\ 2993}#
+                                 #{r\ 2994}#
+                                 #{w\ 2995}#
+                                 #{s\ 2996}#
+                                 #{mod\ 2997}#
+                                 #{lambda*-formals\ 329}#
+                                 (list (cons #{args\ 3010}#
+                                             (cons #{e1\ 3011}#
+                                                   #{e2\ 3012}#)))))
+                             (lambda (#{meta\ 3014}# #{lcase\ 3015}#)
+                               (#{build-case-lambda\ 166}#
+                                 #{s\ 2996}#
+                                 #{meta\ 3014}#
+                                 #{lcase\ 3015}#))))
+                         #{tmp\ 3004}#)
+                  ((lambda (#{_\ 3019}#)
                      (syntax-violation
                        'lambda
                        "bad lambda*"
-                       #{e\ 11846}#))
-                   #{tmp\ 11856}#)))
+                       #{e\ 2993}#))
+                   #{tmp\ 3003}#)))
               ($sc-dispatch
-                #{tmp\ 11856}#
+                #{tmp\ 3003}#
                 '(any any any . each-any))))
-           #{e\ 11846}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 2993}#)))
+      (#{global-extend\ 218}#
         'core
         'case-lambda
-        (lambda (#{e\ 11873}#
-                 #{r\ 11874}#
-                 #{w\ 11875}#
-                 #{s\ 11876}#
-                 #{mod\ 11877}#)
-          ((lambda (#{tmp\ 11883}#)
-             ((lambda (#{tmp\ 11884}#)
-                (if #{tmp\ 11884}#
-                  (apply (lambda (#{_\ 11892}#
-                                  #{args\ 11893}#
-                                  #{e1\ 11894}#
-                                  #{e2\ 11895}#
-                                  #{args*\ 11896}#
-                                  #{e1*\ 11897}#
-                                  #{e2*\ 11898}#)
+        (lambda (#{e\ 3020}#
+                 #{r\ 3021}#
+                 #{w\ 3022}#
+                 #{s\ 3023}#
+                 #{mod\ 3024}#)
+          ((lambda (#{tmp\ 3030}#)
+             ((lambda (#{tmp\ 3031}#)
+                (if #{tmp\ 3031}#
+                  (apply (lambda (#{_\ 3039}#
+                                  #{args\ 3040}#
+                                  #{e1\ 3041}#
+                                  #{e2\ 3042}#
+                                  #{args*\ 3043}#
+                                  #{e1*\ 3044}#
+                                  #{e2*\ 3045}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 9185}#
-                                 #{e\ 11873}#
-                                 #{r\ 11874}#
-                                 #{w\ 11875}#
-                                 #{s\ 11876}#
-                                 #{mod\ 11877}#
-                                 #{lambda-formals\ 9179}#
-                                 (cons (cons #{args\ 11893}#
-                                             (cons #{e1\ 11894}#
-                                                   #{e2\ 11895}#))
-                                       (map (lambda (#{tmp\ 11902}#
-                                                     #{tmp\ 11901}#
-                                                     #{tmp\ 11900}#)
-                                              (cons #{tmp\ 11900}#
-                                                    (cons #{tmp\ 11901}#
-                                                          #{tmp\ 11902}#)))
-                                            #{e2*\ 11898}#
-                                            #{e1*\ 11897}#
-                                            #{args*\ 11896}#))))
-                             (lambda (#{meta\ 11904}# #{lcase\ 11905}#)
-                               (#{build-case-lambda\ 9020}#
-                                 #{s\ 11876}#
-                                 #{meta\ 11904}#
-                                 #{lcase\ 11905}#))))
-                         #{tmp\ 11884}#)
-                  ((lambda (#{_\ 11909}#)
+                               (#{chi-lambda-case\ 331}#
+                                 #{e\ 3020}#
+                                 #{r\ 3021}#
+                                 #{w\ 3022}#
+                                 #{s\ 3023}#
+                                 #{mod\ 3024}#
+                                 #{lambda-formals\ 325}#
+                                 (cons (cons #{args\ 3040}#
+                                             (cons #{e1\ 3041}# #{e2\ 3042}#))
+                                       (map (lambda (#{tmp\ 3049}#
+                                                     #{tmp\ 3048}#
+                                                     #{tmp\ 3047}#)
+                                              (cons #{tmp\ 3047}#
+                                                    (cons #{tmp\ 3048}#
+                                                          #{tmp\ 3049}#)))
+                                            #{e2*\ 3045}#
+                                            #{e1*\ 3044}#
+                                            #{args*\ 3043}#))))
+                             (lambda (#{meta\ 3051}# #{lcase\ 3052}#)
+                               (#{build-case-lambda\ 166}#
+                                 #{s\ 3023}#
+                                 #{meta\ 3051}#
+                                 #{lcase\ 3052}#))))
+                         #{tmp\ 3031}#)
+                  ((lambda (#{_\ 3056}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
-                       #{e\ 11873}#))
-                   #{tmp\ 11883}#)))
+                       #{e\ 3020}#))
+                   #{tmp\ 3030}#)))
               ($sc-dispatch
-                #{tmp\ 11883}#
+                #{tmp\ 3030}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 11873}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3020}#)))
+      (#{global-extend\ 218}#
         'core
         'case-lambda*
-        (lambda (#{e\ 11910}#
-                 #{r\ 11911}#
-                 #{w\ 11912}#
-                 #{s\ 11913}#
-                 #{mod\ 11914}#)
-          ((lambda (#{tmp\ 11920}#)
-             ((lambda (#{tmp\ 11921}#)
-                (if #{tmp\ 11921}#
-                  (apply (lambda (#{_\ 11929}#
-                                  #{args\ 11930}#
-                                  #{e1\ 11931}#
-                                  #{e2\ 11932}#
-                                  #{args*\ 11933}#
-                                  #{e1*\ 11934}#
-                                  #{e2*\ 11935}#)
+        (lambda (#{e\ 3057}#
+                 #{r\ 3058}#
+                 #{w\ 3059}#
+                 #{s\ 3060}#
+                 #{mod\ 3061}#)
+          ((lambda (#{tmp\ 3067}#)
+             ((lambda (#{tmp\ 3068}#)
+                (if #{tmp\ 3068}#
+                  (apply (lambda (#{_\ 3076}#
+                                  #{args\ 3077}#
+                                  #{e1\ 3078}#
+                                  #{e2\ 3079}#
+                                  #{args*\ 3080}#
+                                  #{e1*\ 3081}#
+                                  #{e2*\ 3082}#)
                            (call-with-values
                              (lambda ()
-                               (#{chi-lambda-case\ 9185}#
-                                 #{e\ 11910}#
-                                 #{r\ 11911}#
-                                 #{w\ 11912}#
-                                 #{s\ 11913}#
-                                 #{mod\ 11914}#
-                                 #{lambda*-formals\ 9183}#
-                                 (cons (cons #{args\ 11930}#
-                                             (cons #{e1\ 11931}#
-                                                   #{e2\ 11932}#))
-                                       (map (lambda (#{tmp\ 11939}#
-                                                     #{tmp\ 11938}#
-                                                     #{tmp\ 11937}#)
-                                              (cons #{tmp\ 11937}#
-                                                    (cons #{tmp\ 11938}#
-                                                          #{tmp\ 11939}#)))
-                                            #{e2*\ 11935}#
-                                            #{e1*\ 11934}#
-                                            #{args*\ 11933}#))))
-                             (lambda (#{meta\ 11941}# #{lcase\ 11942}#)
-                               (#{build-case-lambda\ 9020}#
-                                 #{s\ 11913}#
-                                 #{meta\ 11941}#
-                                 #{lcase\ 11942}#))))
-                         #{tmp\ 11921}#)
-                  ((lambda (#{_\ 11946}#)
+                               (#{chi-lambda-case\ 331}#
+                                 #{e\ 3057}#
+                                 #{r\ 3058}#
+                                 #{w\ 3059}#
+                                 #{s\ 3060}#
+                                 #{mod\ 3061}#
+                                 #{lambda*-formals\ 329}#
+                                 (cons (cons #{args\ 3077}#
+                                             (cons #{e1\ 3078}# #{e2\ 3079}#))
+                                       (map (lambda (#{tmp\ 3086}#
+                                                     #{tmp\ 3085}#
+                                                     #{tmp\ 3084}#)
+                                              (cons #{tmp\ 3084}#
+                                                    (cons #{tmp\ 3085}#
+                                                          #{tmp\ 3086}#)))
+                                            #{e2*\ 3082}#
+                                            #{e1*\ 3081}#
+                                            #{args*\ 3080}#))))
+                             (lambda (#{meta\ 3088}# #{lcase\ 3089}#)
+                               (#{build-case-lambda\ 166}#
+                                 #{s\ 3060}#
+                                 #{meta\ 3088}#
+                                 #{lcase\ 3089}#))))
+                         #{tmp\ 3068}#)
+                  ((lambda (#{_\ 3093}#)
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
-                       #{e\ 11910}#))
-                   #{tmp\ 11920}#)))
+                       #{e\ 3057}#))
+                   #{tmp\ 3067}#)))
               ($sc-dispatch
-                #{tmp\ 11920}#
+                #{tmp\ 3067}#
                 '(any (any any . each-any)
                       .
                       #(each (any any . each-any))))))
-           #{e\ 11910}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3057}#)))
+      (#{global-extend\ 218}#
         'core
         'let
-        (letrec ((#{chi-let\ 11948}#
-                   (lambda (#{e\ 11949}#
-                            #{r\ 11950}#
-                            #{w\ 11951}#
-                            #{s\ 11952}#
-                            #{mod\ 11953}#
-                            #{constructor\ 11954}#
-                            #{ids\ 11955}#
-                            #{vals\ 11956}#
-                            #{exps\ 11957}#)
-                     (if (not (#{valid-bound-ids?\ 9139}# #{ids\ 11955}#))
+        (letrec ((#{chi-let\ 3095}#
+                   (lambda (#{e\ 3096}#
+                            #{r\ 3097}#
+                            #{w\ 3098}#
+                            #{s\ 3099}#
+                            #{mod\ 3100}#
+                            #{constructor\ 3101}#
+                            #{ids\ 3102}#
+                            #{vals\ 3103}#
+                            #{exps\ 3104}#)
+                     (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3102}#))
                        (syntax-violation
                          'let
                          "duplicate bound variable"
-                         #{e\ 11949}#)
-                       (let ((#{labels\ 11969}#
-                               (#{gen-labels\ 9094}# #{ids\ 11955}#))
-                             (#{new-vars\ 11970}#
-                               (map #{gen-var\ 9189}# #{ids\ 11955}#)))
-                         (let ((#{nw\ 11973}#
-                                 (#{make-binding-wrap\ 9123}#
-                                   #{ids\ 11955}#
-                                   #{labels\ 11969}#
-                                   #{w\ 11951}#))
-                               (#{nr\ 11974}#
-                                 (#{extend-var-env\ 9066}#
-                                   #{labels\ 11969}#
-                                   #{new-vars\ 11970}#
-                                   #{r\ 11950}#)))
-                           (#{constructor\ 11954}#
-                             #{s\ 11952}#
-                             (map syntax->datum #{ids\ 11955}#)
-                             #{new-vars\ 11970}#
-                             (map (lambda (#{x\ 11975}#)
-                                    (#{chi\ 9161}#
-                                      #{x\ 11975}#
-                                      #{r\ 11950}#
-                                      #{w\ 11951}#
-                                      #{mod\ 11953}#))
-                                  #{vals\ 11956}#)
-                             (#{chi-body\ 9169}#
-                               #{exps\ 11957}#
-                               (#{source-wrap\ 9147}#
-                                 #{e\ 11949}#
-                                 #{nw\ 11973}#
-                                 #{s\ 11952}#
-                                 #{mod\ 11953}#)
-                               #{nr\ 11974}#
-                               #{nw\ 11973}#
-                               #{mod\ 11953}#))))))))
-          (lambda (#{e\ 11977}#
-                   #{r\ 11978}#
-                   #{w\ 11979}#
-                   #{s\ 11980}#
-                   #{mod\ 11981}#)
-            ((lambda (#{tmp\ 11987}#)
-               ((lambda (#{tmp\ 11988}#)
-                  (if (if #{tmp\ 11988}#
-                        (apply (lambda (#{_\ 11994}#
-                                        #{id\ 11995}#
-                                        #{val\ 11996}#
-                                        #{e1\ 11997}#
-                                        #{e2\ 11998}#)
-                                 (and-map #{id?\ 9076}# #{id\ 11995}#))
-                               #{tmp\ 11988}#)
+                         #{e\ 3096}#)
+                       (let ((#{labels\ 3116}#
+                               (#{gen-labels\ 240}# #{ids\ 3102}#))
+                             (#{new-vars\ 3117}#
+                               (map #{gen-var\ 335}# #{ids\ 3102}#)))
+                         (let ((#{nw\ 3120}#
+                                 (#{make-binding-wrap\ 269}#
+                                   #{ids\ 3102}#
+                                   #{labels\ 3116}#
+                                   #{w\ 3098}#))
+                               (#{nr\ 3121}#
+                                 (#{extend-var-env\ 212}#
+                                   #{labels\ 3116}#
+                                   #{new-vars\ 3117}#
+                                   #{r\ 3097}#)))
+                           (#{constructor\ 3101}#
+                             #{s\ 3099}#
+                             (map syntax->datum #{ids\ 3102}#)
+                             #{new-vars\ 3117}#
+                             (map (lambda (#{x\ 3122}#)
+                                    (#{chi\ 307}#
+                                      #{x\ 3122}#
+                                      #{r\ 3097}#
+                                      #{w\ 3098}#
+                                      #{mod\ 3100}#))
+                                  #{vals\ 3103}#)
+                             (#{chi-body\ 315}#
+                               #{exps\ 3104}#
+                               (#{source-wrap\ 293}#
+                                 #{e\ 3096}#
+                                 #{nw\ 3120}#
+                                 #{s\ 3099}#
+                                 #{mod\ 3100}#)
+                               #{nr\ 3121}#
+                               #{nw\ 3120}#
+                               #{mod\ 3100}#))))))))
+          (lambda (#{e\ 3124}#
+                   #{r\ 3125}#
+                   #{w\ 3126}#
+                   #{s\ 3127}#
+                   #{mod\ 3128}#)
+            ((lambda (#{tmp\ 3134}#)
+               ((lambda (#{tmp\ 3135}#)
+                  (if (if #{tmp\ 3135}#
+                        (apply (lambda (#{_\ 3141}#
+                                        #{id\ 3142}#
+                                        #{val\ 3143}#
+                                        #{e1\ 3144}#
+                                        #{e2\ 3145}#)
+                                 (and-map #{id?\ 222}# #{id\ 3142}#))
+                               #{tmp\ 3135}#)
                         #f)
-                    (apply (lambda (#{_\ 12005}#
-                                    #{id\ 12006}#
-                                    #{val\ 12007}#
-                                    #{e1\ 12008}#
-                                    #{e2\ 12009}#)
-                             (#{chi-let\ 11948}#
-                               #{e\ 11977}#
-                               #{r\ 11978}#
-                               #{w\ 11979}#
-                               #{s\ 11980}#
-                               #{mod\ 11981}#
-                               #{build-let\ 9030}#
-                               #{id\ 12006}#
-                               #{val\ 12007}#
-                               (cons #{e1\ 12008}# #{e2\ 12009}#)))
-                           #{tmp\ 11988}#)
-                    ((lambda (#{tmp\ 12013}#)
-                       (if (if #{tmp\ 12013}#
-                             (apply (lambda (#{_\ 12020}#
-                                             #{f\ 12021}#
-                                             #{id\ 12022}#
-                                             #{val\ 12023}#
-                                             #{e1\ 12024}#
-                                             #{e2\ 12025}#)
-                                      (if (#{id?\ 9076}# #{f\ 12021}#)
-                                        (and-map #{id?\ 9076}# #{id\ 12022}#)
+                    (apply (lambda (#{_\ 3152}#
+                                    #{id\ 3153}#
+                                    #{val\ 3154}#
+                                    #{e1\ 3155}#
+                                    #{e2\ 3156}#)
+                             (#{chi-let\ 3095}#
+                               #{e\ 3124}#
+                               #{r\ 3125}#
+                               #{w\ 3126}#
+                               #{s\ 3127}#
+                               #{mod\ 3128}#
+                               #{build-let\ 176}#
+                               #{id\ 3153}#
+                               #{val\ 3154}#
+                               (cons #{e1\ 3155}# #{e2\ 3156}#)))
+                           #{tmp\ 3135}#)
+                    ((lambda (#{tmp\ 3160}#)
+                       (if (if #{tmp\ 3160}#
+                             (apply (lambda (#{_\ 3167}#
+                                             #{f\ 3168}#
+                                             #{id\ 3169}#
+                                             #{val\ 3170}#
+                                             #{e1\ 3171}#
+                                             #{e2\ 3172}#)
+                                      (if (#{id?\ 222}# #{f\ 3168}#)
+                                        (and-map #{id?\ 222}# #{id\ 3169}#)
                                         #f))
-                                    #{tmp\ 12013}#)
+                                    #{tmp\ 3160}#)
                              #f)
-                         (apply (lambda (#{_\ 12035}#
-                                         #{f\ 12036}#
-                                         #{id\ 12037}#
-                                         #{val\ 12038}#
-                                         #{e1\ 12039}#
-                                         #{e2\ 12040}#)
-                                  (#{chi-let\ 11948}#
-                                    #{e\ 11977}#
-                                    #{r\ 11978}#
-                                    #{w\ 11979}#
-                                    #{s\ 11980}#
-                                    #{mod\ 11981}#
-                                    #{build-named-let\ 9032}#
-                                    (cons #{f\ 12036}# #{id\ 12037}#)
-                                    #{val\ 12038}#
-                                    (cons #{e1\ 12039}# #{e2\ 12040}#)))
-                                #{tmp\ 12013}#)
-                         ((lambda (#{_\ 12045}#)
+                         (apply (lambda (#{_\ 3182}#
+                                         #{f\ 3183}#
+                                         #{id\ 3184}#
+                                         #{val\ 3185}#
+                                         #{e1\ 3186}#
+                                         #{e2\ 3187}#)
+                                  (#{chi-let\ 3095}#
+                                    #{e\ 3124}#
+                                    #{r\ 3125}#
+                                    #{w\ 3126}#
+                                    #{s\ 3127}#
+                                    #{mod\ 3128}#
+                                    #{build-named-let\ 178}#
+                                    (cons #{f\ 3183}# #{id\ 3184}#)
+                                    #{val\ 3185}#
+                                    (cons #{e1\ 3186}# #{e2\ 3187}#)))
+                                #{tmp\ 3160}#)
+                         ((lambda (#{_\ 3192}#)
                             (syntax-violation
                               'let
                               "bad let"
-                              (#{source-wrap\ 9147}#
-                                #{e\ 11977}#
-                                #{w\ 11979}#
-                                #{s\ 11980}#
-                                #{mod\ 11981}#)))
-                          #{tmp\ 11987}#)))
+                              (#{source-wrap\ 293}#
+                                #{e\ 3124}#
+                                #{w\ 3126}#
+                                #{s\ 3127}#
+                                #{mod\ 3128}#)))
+                          #{tmp\ 3134}#)))
                      ($sc-dispatch
-                       #{tmp\ 11987}#
+                       #{tmp\ 3134}#
                        '(any any #(each (any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 11987}#
+                  #{tmp\ 3134}#
                   '(any #(each (any any)) any . each-any))))
-             #{e\ 11977}#))))
-      (#{global-extend\ 9072}#
+             #{e\ 3124}#))))
+      (#{global-extend\ 218}#
         'core
         'letrec
-        (lambda (#{e\ 12046}#
-                 #{r\ 12047}#
-                 #{w\ 12048}#
-                 #{s\ 12049}#
-                 #{mod\ 12050}#)
-          ((lambda (#{tmp\ 12056}#)
-             ((lambda (#{tmp\ 12057}#)
-                (if (if #{tmp\ 12057}#
-                      (apply (lambda (#{_\ 12063}#
-                                      #{id\ 12064}#
-                                      #{val\ 12065}#
-                                      #{e1\ 12066}#
-                                      #{e2\ 12067}#)
-                               (and-map #{id?\ 9076}# #{id\ 12064}#))
-                             #{tmp\ 12057}#)
+        (lambda (#{e\ 3193}#
+                 #{r\ 3194}#
+                 #{w\ 3195}#
+                 #{s\ 3196}#
+                 #{mod\ 3197}#)
+          ((lambda (#{tmp\ 3203}#)
+             ((lambda (#{tmp\ 3204}#)
+                (if (if #{tmp\ 3204}#
+                      (apply (lambda (#{_\ 3210}#
+                                      #{id\ 3211}#
+                                      #{val\ 3212}#
+                                      #{e1\ 3213}#
+                                      #{e2\ 3214}#)
+                               (and-map #{id?\ 222}# #{id\ 3211}#))
+                             #{tmp\ 3204}#)
                       #f)
-                  (apply (lambda (#{_\ 12074}#
-                                  #{id\ 12075}#
-                                  #{val\ 12076}#
-                                  #{e1\ 12077}#
-                                  #{e2\ 12078}#)
-                           (let ((#{ids\ 12080}# #{id\ 12075}#))
-                             (if (not (#{valid-bound-ids?\ 9139}#
-                                        #{ids\ 12080}#))
+                  (apply (lambda (#{_\ 3221}#
+                                  #{id\ 3222}#
+                                  #{val\ 3223}#
+                                  #{e1\ 3224}#
+                                  #{e2\ 3225}#)
+                           (let ((#{ids\ 3227}# #{id\ 3222}#))
+                             (if (not (#{valid-bound-ids?\ 285}#
+                                        #{ids\ 3227}#))
                                (syntax-violation
                                  'letrec
                                  "duplicate bound variable"
-                                 #{e\ 12046}#)
-                               (let ((#{labels\ 12084}#
-                                       (#{gen-labels\ 9094}# #{ids\ 12080}#))
-                                     (#{new-vars\ 12085}#
-                                       (map #{gen-var\ 9189}# #{ids\ 12080}#)))
-                                 (let ((#{w\ 12088}#
-                                         (#{make-binding-wrap\ 9123}#
-                                           #{ids\ 12080}#
-                                           #{labels\ 12084}#
-                                           #{w\ 12048}#))
-                                       (#{r\ 12089}#
-                                         (#{extend-var-env\ 9066}#
-                                           #{labels\ 12084}#
-                                           #{new-vars\ 12085}#
-                                           #{r\ 12047}#)))
-                                   (#{build-letrec\ 9034}#
-                                     #{s\ 12049}#
-                                     (map syntax->datum #{ids\ 12080}#)
-                                     #{new-vars\ 12085}#
-                                     (map (lambda (#{x\ 12090}#)
-                                            (#{chi\ 9161}#
-                                              #{x\ 12090}#
-                                              #{r\ 12089}#
-                                              #{w\ 12088}#
-                                              #{mod\ 12050}#))
-                                          #{val\ 12076}#)
-                                     (#{chi-body\ 9169}#
-                                       (cons #{e1\ 12077}# #{e2\ 12078}#)
-                                       (#{source-wrap\ 9147}#
-                                         #{e\ 12046}#
-                                         #{w\ 12088}#
-                                         #{s\ 12049}#
-                                         #{mod\ 12050}#)
-                                       #{r\ 12089}#
-                                       #{w\ 12088}#
-                                       #{mod\ 12050}#)))))))
-                         #{tmp\ 12057}#)
-                  ((lambda (#{_\ 12095}#)
+                                 #{e\ 3193}#)
+                               (let ((#{labels\ 3231}#
+                                       (#{gen-labels\ 240}# #{ids\ 3227}#))
+                                     (#{new-vars\ 3232}#
+                                       (map #{gen-var\ 335}# #{ids\ 3227}#)))
+                                 (let ((#{w\ 3235}#
+                                         (#{make-binding-wrap\ 269}#
+                                           #{ids\ 3227}#
+                                           #{labels\ 3231}#
+                                           #{w\ 3195}#))
+                                       (#{r\ 3236}#
+                                         (#{extend-var-env\ 212}#
+                                           #{labels\ 3231}#
+                                           #{new-vars\ 3232}#
+                                           #{r\ 3194}#)))
+                                   (#{build-letrec\ 180}#
+                                     #{s\ 3196}#
+                                     (map syntax->datum #{ids\ 3227}#)
+                                     #{new-vars\ 3232}#
+                                     (map (lambda (#{x\ 3237}#)
+                                            (#{chi\ 307}#
+                                              #{x\ 3237}#
+                                              #{r\ 3236}#
+                                              #{w\ 3235}#
+                                              #{mod\ 3197}#))
+                                          #{val\ 3223}#)
+                                     (#{chi-body\ 315}#
+                                       (cons #{e1\ 3224}# #{e2\ 3225}#)
+                                       (#{source-wrap\ 293}#
+                                         #{e\ 3193}#
+                                         #{w\ 3235}#
+                                         #{s\ 3196}#
+                                         #{mod\ 3197}#)
+                                       #{r\ 3236}#
+                                       #{w\ 3235}#
+                                       #{mod\ 3197}#)))))))
+                         #{tmp\ 3204}#)
+                  ((lambda (#{_\ 3242}#)
                      (syntax-violation
                        'letrec
                        "bad letrec"
-                       (#{source-wrap\ 9147}#
-                         #{e\ 12046}#
-                         #{w\ 12048}#
-                         #{s\ 12049}#
-                         #{mod\ 12050}#)))
-                   #{tmp\ 12056}#)))
+                       (#{source-wrap\ 293}#
+                         #{e\ 3193}#
+                         #{w\ 3195}#
+                         #{s\ 3196}#
+                         #{mod\ 3197}#)))
+                   #{tmp\ 3203}#)))
               ($sc-dispatch
-                #{tmp\ 12056}#
+                #{tmp\ 3203}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 12046}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3193}#)))
+      (#{global-extend\ 218}#
         'core
         'set!
-        (lambda (#{e\ 12096}#
-                 #{r\ 12097}#
-                 #{w\ 12098}#
-                 #{s\ 12099}#
-                 #{mod\ 12100}#)
-          ((lambda (#{tmp\ 12106}#)
-             ((lambda (#{tmp\ 12107}#)
-                (if (if #{tmp\ 12107}#
-                      (apply (lambda (#{_\ 12111}#
-                                      #{id\ 12112}#
-                                      #{val\ 12113}#)
-                               (#{id?\ 9076}# #{id\ 12112}#))
-                             #{tmp\ 12107}#)
+        (lambda (#{e\ 3243}#
+                 #{r\ 3244}#
+                 #{w\ 3245}#
+                 #{s\ 3246}#
+                 #{mod\ 3247}#)
+          ((lambda (#{tmp\ 3253}#)
+             ((lambda (#{tmp\ 3254}#)
+                (if (if #{tmp\ 3254}#
+                      (apply (lambda (#{_\ 3258}# #{id\ 3259}# #{val\ 3260}#)
+                               (#{id?\ 222}# #{id\ 3259}#))
+                             #{tmp\ 3254}#)
                       #f)
-                  (apply (lambda (#{_\ 12117}# #{id\ 12118}# #{val\ 12119}#)
-                           (let ((#{val\ 12122}#
-                                   (#{chi\ 9161}#
-                                     #{val\ 12119}#
-                                     #{r\ 12097}#
-                                     #{w\ 12098}#
-                                     #{mod\ 12100}#))
-                                 (#{n\ 12123}#
-                                   (#{id-var-name\ 9133}#
-                                     #{id\ 12118}#
-                                     #{w\ 12098}#)))
-                             (let ((#{b\ 12125}#
-                                     (#{lookup\ 9070}#
-                                       #{n\ 12123}#
-                                       #{r\ 12097}#
-                                       #{mod\ 12100}#)))
-                               (let ((#{atom-key\ 12128}#
-                                       (#{binding-type\ 9059}# #{b\ 12125}#)))
-                                 (if (memv #{atom-key\ 12128}#
+                  (apply (lambda (#{_\ 3264}# #{id\ 3265}# #{val\ 3266}#)
+                           (let ((#{val\ 3269}#
+                                   (#{chi\ 307}#
+                                     #{val\ 3266}#
+                                     #{r\ 3244}#
+                                     #{w\ 3245}#
+                                     #{mod\ 3247}#))
+                                 (#{n\ 3270}#
+                                   (#{id-var-name\ 279}#
+                                     #{id\ 3265}#
+                                     #{w\ 3245}#)))
+                             (let ((#{b\ 3272}#
+                                     (#{lookup\ 216}#
+                                       #{n\ 3270}#
+                                       #{r\ 3244}#
+                                       #{mod\ 3247}#)))
+                               (let ((#{atom-key\ 3275}#
+                                       (#{binding-type\ 205}# #{b\ 3272}#)))
+                                 (if (memv #{atom-key\ 3275}#
                                            '(lexical))
-                                   (#{build-lexical-assignment\ 9006}#
-                                     #{s\ 12099}#
-                                     (syntax->datum #{id\ 12118}#)
-                                     (#{binding-value\ 9061}# #{b\ 12125}#)
-                                     #{val\ 12122}#)
-                                   (if (memv #{atom-key\ 12128}#
+                                   (#{build-lexical-assignment\ 152}#
+                                     #{s\ 3246}#
+                                     (syntax->datum #{id\ 3265}#)
+                                     (#{binding-value\ 207}# #{b\ 3272}#)
+                                     #{val\ 3269}#)
+                                   (if (memv #{atom-key\ 3275}#
                                              '(global))
-                                     (#{build-global-assignment\ 9012}#
-                                       #{s\ 12099}#
-                                       #{n\ 12123}#
-                                       #{val\ 12122}#
-                                       #{mod\ 12100}#)
-                                     (if (memv #{atom-key\ 12128}#
+                                     (#{build-global-assignment\ 158}#
+                                       #{s\ 3246}#
+                                       #{n\ 3270}#
+                                       #{val\ 3269}#
+                                       #{mod\ 3247}#)
+                                     (if (memv #{atom-key\ 3275}#
                                                '(displaced-lexical))
                                        (syntax-violation
                                          'set!
                                          "identifier out of context"
-                                         (#{wrap\ 9145}#
-                                           #{id\ 12118}#
-                                           #{w\ 12098}#
-                                           #{mod\ 12100}#))
+                                         (#{wrap\ 291}#
+                                           #{id\ 3265}#
+                                           #{w\ 3245}#
+                                           #{mod\ 3247}#))
                                        (syntax-violation
                                          'set!
                                          "bad set!"
-                                         (#{source-wrap\ 9147}#
-                                           #{e\ 12096}#
-                                           #{w\ 12098}#
-                                           #{s\ 12099}#
-                                           #{mod\ 12100}#)))))))))
-                         #{tmp\ 12107}#)
-                  ((lambda (#{tmp\ 12133}#)
-                     (if #{tmp\ 12133}#
-                       (apply (lambda (#{_\ 12138}#
-                                       #{head\ 12139}#
-                                       #{tail\ 12140}#
-                                       #{val\ 12141}#)
+                                         (#{source-wrap\ 293}#
+                                           #{e\ 3243}#
+                                           #{w\ 3245}#
+                                           #{s\ 3246}#
+                                           #{mod\ 3247}#)))))))))
+                         #{tmp\ 3254}#)
+                  ((lambda (#{tmp\ 3280}#)
+                     (if #{tmp\ 3280}#
+                       (apply (lambda (#{_\ 3285}#
+                                       #{head\ 3286}#
+                                       #{tail\ 3287}#
+                                       #{val\ 3288}#)
                                 (call-with-values
                                   (lambda ()
-                                    (#{syntax-type\ 9157}#
-                                      #{head\ 12139}#
-                                      #{r\ 12097}#
+                                    (#{syntax-type\ 303}#
+                                      #{head\ 3286}#
+                                      #{r\ 3244}#
                                       '(())
                                       #f
                                       #f
-                                      #{mod\ 12100}#
+                                      #{mod\ 3247}#
                                       #t))
-                                  (lambda (#{type\ 12144}#
-                                           #{value\ 12145}#
-                                           #{ee\ 12146}#
-                                           #{ww\ 12147}#
-                                           #{ss\ 12148}#
-                                           #{modmod\ 12149}#)
-                                    (if (memv #{type\ 12144}#
+                                  (lambda (#{type\ 3291}#
+                                           #{value\ 3292}#
+                                           #{ee\ 3293}#
+                                           #{ww\ 3294}#
+                                           #{ss\ 3295}#
+                                           #{modmod\ 3296}#)
+                                    (if (memv #{type\ 3291}#
                                               '(module-ref))
-                                      (let ((#{val\ 12158}#
-                                              (#{chi\ 9161}#
-                                                #{val\ 12141}#
-                                                #{r\ 12097}#
-                                                #{w\ 12098}#
-                                                #{mod\ 12100}#)))
+                                      (let ((#{val\ 3305}#
+                                              (#{chi\ 307}#
+                                                #{val\ 3288}#
+                                                #{r\ 3244}#
+                                                #{w\ 3245}#
+                                                #{mod\ 3247}#)))
                                         (call-with-values
                                           (lambda ()
-                                            (#{value\ 12145}#
-                                              (cons #{head\ 12139}#
-                                                    #{tail\ 12140}#)))
-                                          (lambda (#{id\ 12160}#
-                                                   #{mod\ 12161}#)
-                                            (#{build-global-assignment\ 9012}#
-                                              #{s\ 12099}#
-                                              #{id\ 12160}#
-                                              #{val\ 12158}#
-                                              #{mod\ 12161}#))))
-                                      (#{build-application\ 8998}#
-                                        #{s\ 12099}#
-                                        (#{chi\ 9161}#
+                                            (#{value\ 3292}#
+                                              (cons #{head\ 3286}#
+                                                    #{tail\ 3287}#)))
+                                          (lambda (#{id\ 3307}# #{mod\ 3308}#)
+                                            (#{build-global-assignment\ 158}#
+                                              #{s\ 3246}#
+                                              #{id\ 3307}#
+                                              #{val\ 3305}#
+                                              #{mod\ 3308}#))))
+                                      (#{build-application\ 144}#
+                                        #{s\ 3246}#
+                                        (#{chi\ 307}#
                                           (list '#(syntax-object
                                                    setter
                                                    ((top)
@@ -9067,22 +8987,22 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i12150"
-                                                        "i12151"
-                                                        "i12152"
-                                                        "i12153"
-                                                        "i12154"
-                                                        "i12155"))
+                                                      #("i3297"
+                                                        "i3298"
+                                                        "i3299"
+                                                        "i3300"
+                                                        "i3301"
+                                                        "i3302"))
                                                     #(ribcage
                                                       #(_ head tail val)
                                                       #((top)
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i12134"
-                                                        "i12135"
-                                                        "i12136"
-                                                        "i12137"))
+                                                      #("i3281"
+                                                        "i3282"
+                                                        "i3283"
+                                                        "i3284"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(e r w s mod)
@@ -9091,11 +9011,11 @@
                                                         (top)
                                                         (top)
                                                         (top))
-                                                      #("i12101"
-                                                        "i12102"
-                                                        "i12103"
-                                                        "i12104"
-                                                        "i12105"))
+                                                      #("i3248"
+                                                        "i3249"
+                                                        "i3250"
+                                                        "i3251"
+                                                        "i3252"))
                                                     #(ribcage
                                                       (lambda-var-list
                                                         gen-var
@@ -9333,179 +9253,177 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                      ("i9190"
-                                                       "i9188"
-                                                       "i9186"
-                                                       "i9184"
-                                                       "i9182"
-                                                       "i9180"
-                                                       "i9178"
-                                                       "i9176"
-                                                       "i9174"
-                                                       "i9172"
-                                                       "i9170"
-                                                       "i9168"
-                                                       "i9166"
-                                                       "i9164"
-                                                       "i9162"
-                                                       "i9160"
-                                                       "i9158"
-                                                       "i9156"
-                                                       "i9154"
-                                                       "i9152"
-                                                       "i9150"
-                                                       "i9148"
-                                                       "i9146"
-                                                       "i9144"
-                                                       "i9142"
-                                                       "i9140"
-                                                       "i9138"
-                                                       "i9136"
-                                                       "i9134"
-                                                       "i9132"
-                                                       "i9130"
-                                                       "i9128"
-                                                       "i9126"
-                                                       "i9124"
-                                                       "i9122"
-                                                       "i9120"
-                                                       "i9119"
-                                                       "i9118"
-                                                       "i9116"
-                                                       "i9115"
-                                                       "i9114"
-                                                       "i9113"
-                                                       "i9112"
-                                                       "i9110"
-                                                       "i9108"
-                                                       "i9106"
-                                                       "i9104"
-                                                       "i9102"
-                                                       "i9100"
-                                                       "i9098"
-                                                       "i9096"
-                                                       "i9093"
-                                                       "i9091"
-                                                       "i9090"
-                                                       "i9089"
-                                                       "i9088"
-                                                       "i9087"
-                                                       "i9086"
-                                                       "i9084"
-                                                       "i9082"
-                                                       "i9080"
-                                                       "i9078"
-                                                       "i9077"
-                                                       "i9075"
-                                                       "i9073"
-                                                       "i9071"
-                                                       "i9069"
-                                                       "i9067"
-                                                       "i9065"
-                                                       "i9063"
-                                                       "i9062"
-                                                       "i9060"
-                                                       "i9058"
-                                                       "i9057"
-                                                       "i9056"
-                                                       "i9054"
-                                                       "i9053"
-                                                       "i9051"
-                                                       "i9049"
-                                                       "i9047"
-                                                       "i9045"
-                                                       "i9043"
-                                                       "i9041"
-                                                       "i9039"
-                                                       "i9037"
-                                                       "i9035"
-                                                       "i9033"
-                                                       "i9031"
-                                                       "i9029"
-                                                       "i9027"
-                                                       "i9025"
-                                                       "i9023"
-                                                       "i9021"
-                                                       "i9019"
-                                                       "i9017"
-                                                       "i9015"
-                                                       "i9013"
-                                                       "i9011"
-                                                       "i9009"
-                                                       "i9007"
-                                                       "i9005"
-                                                       "i9003"
-                                                       "i9001"
-                                                       "i8999"
-                                                       "i8997"
-                                                       "i8995"
-                                                       "i8993"
-                                                       "i8991"
-                                                       "i8989"
-                                                       "i8988"
-                                                       "i8986"
-                                                       "i8984"
-                                                       "i8982"
-                                                       "i8980"
-                                                       "i8978"
-                                                       "i8976"
-                                                       "i8974"
-                                                       "i8972"))
+                                                      ("i336"
+                                                       "i334"
+                                                       "i332"
+                                                       "i330"
+                                                       "i328"
+                                                       "i326"
+                                                       "i324"
+                                                       "i322"
+                                                       "i320"
+                                                       "i318"
+                                                       "i316"
+                                                       "i314"
+                                                       "i312"
+                                                       "i310"
+                                                       "i308"
+                                                       "i306"
+                                                       "i304"
+                                                       "i302"
+                                                       "i300"
+                                                       "i298"
+                                                       "i296"
+                                                       "i294"
+                                                       "i292"
+                                                       "i290"
+                                                       "i288"
+                                                       "i286"
+                                                       "i284"
+                                                       "i282"
+                                                       "i280"
+                                                       "i278"
+                                                       "i276"
+                                                       "i274"
+                                                       "i272"
+                                                       "i270"
+                                                       "i268"
+                                                       "i266"
+                                                       "i265"
+                                                       "i264"
+                                                       "i262"
+                                                       "i261"
+                                                       "i260"
+                                                       "i259"
+                                                       "i258"
+                                                       "i256"
+                                                       "i254"
+                                                       "i252"
+                                                       "i250"
+                                                       "i248"
+                                                       "i246"
+                                                       "i244"
+                                                       "i242"
+                                                       "i239"
+                                                       "i237"
+                                                       "i236"
+                                                       "i235"
+                                                       "i234"
+                                                       "i233"
+                                                       "i232"
+                                                       "i230"
+                                                       "i228"
+                                                       "i226"
+                                                       "i224"
+                                                       "i223"
+                                                       "i221"
+                                                       "i219"
+                                                       "i217"
+                                                       "i215"
+                                                       "i213"
+                                                       "i211"
+                                                       "i209"
+                                                       "i208"
+                                                       "i206"
+                                                       "i204"
+                                                       "i203"
+                                                       "i202"
+                                                       "i200"
+                                                       "i199"
+                                                       "i197"
+                                                       "i195"
+                                                       "i193"
+                                                       "i191"
+                                                       "i189"
+                                                       "i187"
+                                                       "i185"
+                                                       "i183"
+                                                       "i181"
+                                                       "i179"
+                                                       "i177"
+                                                       "i175"
+                                                       "i173"
+                                                       "i171"
+                                                       "i169"
+                                                       "i167"
+                                                       "i165"
+                                                       "i163"
+                                                       "i161"
+                                                       "i159"
+                                                       "i157"
+                                                       "i155"
+                                                       "i153"
+                                                       "i151"
+                                                       "i149"
+                                                       "i147"
+                                                       "i145"
+                                                       "i143"
+                                                       "i141"
+                                                       "i139"
+                                                       "i137"
+                                                       "i135"
+                                                       "i134"
+                                                       "i132"
+                                                       "i130"
+                                                       "i128"
+                                                       "i126"
+                                                       "i124"
+                                                       "i122"
+                                                       "i120"
+                                                       "i118"))
                                                     #(ribcage
                                                       (define-structure
                                                         and-map*)
                                                       ((top) (top))
-                                                      ("i8875" "i8873")))
+                                                      ("i21" "i19")))
                                                    (hygiene guile))
-                                                #{head\ 12139}#)
-                                          #{r\ 12097}#
-                                          #{w\ 12098}#
-                                          #{mod\ 12100}#)
-                                        (map (lambda (#{e\ 12165}#)
-                                               (#{chi\ 9161}#
-                                                 #{e\ 12165}#
-                                                 #{r\ 12097}#
-                                                 #{w\ 12098}#
-                                                 #{mod\ 12100}#))
+                                                #{head\ 3286}#)
+                                          #{r\ 3244}#
+                                          #{w\ 3245}#
+                                          #{mod\ 3247}#)
+                                        (map (lambda (#{e\ 3312}#)
+                                               (#{chi\ 307}#
+                                                 #{e\ 3312}#
+                                                 #{r\ 3244}#
+                                                 #{w\ 3245}#
+                                                 #{mod\ 3247}#))
                                              (append
-                                               #{tail\ 12140}#
-                                               (list #{val\ 12141}#))))))))
-                              #{tmp\ 12133}#)
-                       ((lambda (#{_\ 12169}#)
+                                               #{tail\ 3287}#
+                                               (list #{val\ 3288}#))))))))
+                              #{tmp\ 3280}#)
+                       ((lambda (#{_\ 3316}#)
                           (syntax-violation
                             'set!
                             "bad set!"
-                            (#{source-wrap\ 9147}#
-                              #{e\ 12096}#
-                              #{w\ 12098}#
-                              #{s\ 12099}#
-                              #{mod\ 12100}#)))
-                        #{tmp\ 12106}#)))
+                            (#{source-wrap\ 293}#
+                              #{e\ 3243}#
+                              #{w\ 3245}#
+                              #{s\ 3246}#
+                              #{mod\ 3247}#)))
+                        #{tmp\ 3253}#)))
                    ($sc-dispatch
-                     #{tmp\ 12106}#
+                     #{tmp\ 3253}#
                      '(any (any . each-any) any)))))
               ($sc-dispatch
-                #{tmp\ 12106}#
+                #{tmp\ 3253}#
                 '(any any any))))
-           #{e\ 12096}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3243}#)))
+      (#{global-extend\ 218}#
         'module-ref
         '@
-        (lambda (#{e\ 12170}#)
-          ((lambda (#{tmp\ 12172}#)
-             ((lambda (#{tmp\ 12173}#)
-                (if (if #{tmp\ 12173}#
-                      (apply (lambda (#{_\ 12177}#
-                                      #{mod\ 12178}#
-                                      #{id\ 12179}#)
-                               (if (and-map #{id?\ 9076}# #{mod\ 12178}#)
-                                 (#{id?\ 9076}# #{id\ 12179}#)
+        (lambda (#{e\ 3317}#)
+          ((lambda (#{tmp\ 3319}#)
+             ((lambda (#{tmp\ 3320}#)
+                (if (if #{tmp\ 3320}#
+                      (apply (lambda (#{_\ 3324}# #{mod\ 3325}# #{id\ 3326}#)
+                               (if (and-map #{id?\ 222}# #{mod\ 3325}#)
+                                 (#{id?\ 222}# #{id\ 3326}#)
                                  #f))
-                             #{tmp\ 12173}#)
+                             #{tmp\ 3320}#)
                       #f)
-                  (apply (lambda (#{_\ 12186}# #{mod\ 12187}# #{id\ 12188}#)
+                  (apply (lambda (#{_\ 3333}# #{mod\ 3334}# #{id\ 3335}#)
                            (values
-                             (syntax->datum #{id\ 12188}#)
+                             (syntax->datum #{id\ 3335}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         public
@@ -9513,9 +9431,9 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i12183" "i12184" "i12185"))
+                                           #("i3330" "i3331" "i3332"))
                                          #(ribcage () () ())
-                                         #(ribcage #(e) #((top)) #("i12171"))
+                                         #(ribcage #(e) #((top)) #("i3318"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -9753,157 +9671,155 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i9190"
-                                            "i9188"
-                                            "i9186"
-                                            "i9184"
-                                            "i9182"
-                                            "i9180"
-                                            "i9178"
-                                            "i9176"
-                                            "i9174"
-                                            "i9172"
-                                            "i9170"
-                                            "i9168"
-                                            "i9166"
-                                            "i9164"
-                                            "i9162"
-                                            "i9160"
-                                            "i9158"
-                                            "i9156"
-                                            "i9154"
-                                            "i9152"
-                                            "i9150"
-                                            "i9148"
-                                            "i9146"
-                                            "i9144"
-                                            "i9142"
-                                            "i9140"
-                                            "i9138"
-                                            "i9136"
-                                            "i9134"
-                                            "i9132"
-                                            "i9130"
-                                            "i9128"
-                                            "i9126"
-                                            "i9124"
-                                            "i9122"
-                                            "i9120"
-                                            "i9119"
-                                            "i9118"
-                                            "i9116"
-                                            "i9115"
-                                            "i9114"
-                                            "i9113"
-                                            "i9112"
-                                            "i9110"
-                                            "i9108"
-                                            "i9106"
-                                            "i9104"
-                                            "i9102"
-                                            "i9100"
-                                            "i9098"
-                                            "i9096"
-                                            "i9093"
-                                            "i9091"
-                                            "i9090"
-                                            "i9089"
-                                            "i9088"
-                                            "i9087"
-                                            "i9086"
-                                            "i9084"
-                                            "i9082"
-                                            "i9080"
-                                            "i9078"
-                                            "i9077"
-                                            "i9075"
-                                            "i9073"
-                                            "i9071"
-                                            "i9069"
-                                            "i9067"
-                                            "i9065"
-                                            "i9063"
-                                            "i9062"
-                                            "i9060"
-                                            "i9058"
-                                            "i9057"
-                                            "i9056"
-                                            "i9054"
-                                            "i9053"
-                                            "i9051"
-                                            "i9049"
-                                            "i9047"
-                                            "i9045"
-                                            "i9043"
-                                            "i9041"
-                                            "i9039"
-                                            "i9037"
-                                            "i9035"
-                                            "i9033"
-                                            "i9031"
-                                            "i9029"
-                                            "i9027"
-                                            "i9025"
-                                            "i9023"
-                                            "i9021"
-                                            "i9019"
-                                            "i9017"
-                                            "i9015"
-                                            "i9013"
-                                            "i9011"
-                                            "i9009"
-                                            "i9007"
-                                            "i9005"
-                                            "i9003"
-                                            "i9001"
-                                            "i8999"
-                                            "i8997"
-                                            "i8995"
-                                            "i8993"
-                                            "i8991"
-                                            "i8989"
-                                            "i8988"
-                                            "i8986"
-                                            "i8984"
-                                            "i8982"
-                                            "i8980"
-                                            "i8978"
-                                            "i8976"
-                                            "i8974"
-                                            "i8972"))
+                                           ("i336"
+                                            "i334"
+                                            "i332"
+                                            "i330"
+                                            "i328"
+                                            "i326"
+                                            "i324"
+                                            "i322"
+                                            "i320"
+                                            "i318"
+                                            "i316"
+                                            "i314"
+                                            "i312"
+                                            "i310"
+                                            "i308"
+                                            "i306"
+                                            "i304"
+                                            "i302"
+                                            "i300"
+                                            "i298"
+                                            "i296"
+                                            "i294"
+                                            "i292"
+                                            "i290"
+                                            "i288"
+                                            "i286"
+                                            "i284"
+                                            "i282"
+                                            "i280"
+                                            "i278"
+                                            "i276"
+                                            "i274"
+                                            "i272"
+                                            "i270"
+                                            "i268"
+                                            "i266"
+                                            "i265"
+                                            "i264"
+                                            "i262"
+                                            "i261"
+                                            "i260"
+                                            "i259"
+                                            "i258"
+                                            "i256"
+                                            "i254"
+                                            "i252"
+                                            "i250"
+                                            "i248"
+                                            "i246"
+                                            "i244"
+                                            "i242"
+                                            "i239"
+                                            "i237"
+                                            "i236"
+                                            "i235"
+                                            "i234"
+                                            "i233"
+                                            "i232"
+                                            "i230"
+                                            "i228"
+                                            "i226"
+                                            "i224"
+                                            "i223"
+                                            "i221"
+                                            "i219"
+                                            "i217"
+                                            "i215"
+                                            "i213"
+                                            "i211"
+                                            "i209"
+                                            "i208"
+                                            "i206"
+                                            "i204"
+                                            "i203"
+                                            "i202"
+                                            "i200"
+                                            "i199"
+                                            "i197"
+                                            "i195"
+                                            "i193"
+                                            "i191"
+                                            "i189"
+                                            "i187"
+                                            "i185"
+                                            "i183"
+                                            "i181"
+                                            "i179"
+                                            "i177"
+                                            "i175"
+                                            "i173"
+                                            "i171"
+                                            "i169"
+                                            "i167"
+                                            "i165"
+                                            "i163"
+                                            "i161"
+                                            "i159"
+                                            "i157"
+                                            "i155"
+                                            "i153"
+                                            "i151"
+                                            "i149"
+                                            "i147"
+                                            "i145"
+                                            "i143"
+                                            "i141"
+                                            "i139"
+                                            "i137"
+                                            "i135"
+                                            "i134"
+                                            "i132"
+                                            "i130"
+                                            "i128"
+                                            "i126"
+                                            "i124"
+                                            "i122"
+                                            "i120"
+                                            "i118"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i8875" "i8873")))
+                                           ("i21" "i19")))
                                         (hygiene guile))
-                                     #{mod\ 12187}#))))
-                         #{tmp\ 12173}#)
+                                     #{mod\ 3334}#))))
+                         #{tmp\ 3320}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 12172}#)))
+                    #{tmp\ 3319}#)))
               ($sc-dispatch
-                #{tmp\ 12172}#
+                #{tmp\ 3319}#
                 '(any each-any any))))
-           #{e\ 12170}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3317}#)))
+      (#{global-extend\ 218}#
         'module-ref
         '@@
-        (lambda (#{e\ 12190}#)
-          ((lambda (#{tmp\ 12192}#)
-             ((lambda (#{tmp\ 12193}#)
-                (if (if #{tmp\ 12193}#
-                      (apply (lambda (#{_\ 12197}#
-                                      #{mod\ 12198}#
-                                      #{id\ 12199}#)
-                               (if (and-map #{id?\ 9076}# #{mod\ 12198}#)
-                                 (#{id?\ 9076}# #{id\ 12199}#)
+        (lambda (#{e\ 3337}#)
+          ((lambda (#{tmp\ 3339}#)
+             ((lambda (#{tmp\ 3340}#)
+                (if (if #{tmp\ 3340}#
+                      (apply (lambda (#{_\ 3344}# #{mod\ 3345}# #{id\ 3346}#)
+                               (if (and-map #{id?\ 222}# #{mod\ 3345}#)
+                                 (#{id?\ 222}# #{id\ 3346}#)
                                  #f))
-                             #{tmp\ 12193}#)
+                             #{tmp\ 3340}#)
                       #f)
-                  (apply (lambda (#{_\ 12206}# #{mod\ 12207}# #{id\ 12208}#)
+                  (apply (lambda (#{_\ 3353}# #{mod\ 3354}# #{id\ 3355}#)
                            (values
-                             (syntax->datum #{id\ 12208}#)
+                             (syntax->datum #{id\ 3355}#)
                              (syntax->datum
                                (cons '#(syntax-object
                                         private
@@ -9911,9 +9827,9 @@
                                          #(ribcage
                                            #(_ mod id)
                                            #((top) (top) (top))
-                                           #("i12203" "i12204" "i12205"))
+                                           #("i3350" "i3351" "i3352"))
                                          #(ribcage () () ())
-                                         #(ribcage #(e) #((top)) #("i12191"))
+                                         #(ribcage #(e) #((top)) #("i3338"))
                                          #(ribcage
                                            (lambda-var-list
                                              gen-var
@@ -10151,305 +10067,304 @@
                                             (top)
                                             (top)
                                             (top))
-                                           ("i9190"
-                                            "i9188"
-                                            "i9186"
-                                            "i9184"
-                                            "i9182"
-                                            "i9180"
-                                            "i9178"
-                                            "i9176"
-                                            "i9174"
-                                            "i9172"
-                                            "i9170"
-                                            "i9168"
-                                            "i9166"
-                                            "i9164"
-                                            "i9162"
-                                            "i9160"
-                                            "i9158"
-                                            "i9156"
-                                            "i9154"
-                                            "i9152"
-                                            "i9150"
-                                            "i9148"
-                                            "i9146"
-                                            "i9144"
-                                            "i9142"
-                                            "i9140"
-                                            "i9138"
-                                            "i9136"
-                                            "i9134"
-                                            "i9132"
-                                            "i9130"
-                                            "i9128"
-                                            "i9126"
-                                            "i9124"
-                                            "i9122"
-                                            "i9120"
-                                            "i9119"
-                                            "i9118"
-                                            "i9116"
-                                            "i9115"
-                                            "i9114"
-                                            "i9113"
-                                            "i9112"
-                                            "i9110"
-                                            "i9108"
-                                            "i9106"
-                                            "i9104"
-                                            "i9102"
-                                            "i9100"
-                                            "i9098"
-                                            "i9096"
-                                            "i9093"
-                                            "i9091"
-                                            "i9090"
-                                            "i9089"
-                                            "i9088"
-                                            "i9087"
-                                            "i9086"
-                                            "i9084"
-                                            "i9082"
-                                            "i9080"
-                                            "i9078"
-                                            "i9077"
-                                            "i9075"
-                                            "i9073"
-                                            "i9071"
-                                            "i9069"
-                                            "i9067"
-                                            "i9065"
-                                            "i9063"
-                                            "i9062"
-                                            "i9060"
-                                            "i9058"
-                                            "i9057"
-                                            "i9056"
-                                            "i9054"
-                                            "i9053"
-                                            "i9051"
-                                            "i9049"
-                                            "i9047"
-                                            "i9045"
-                                            "i9043"
-                                            "i9041"
-                                            "i9039"
-                                            "i9037"
-                                            "i9035"
-                                            "i9033"
-                                            "i9031"
-                                            "i9029"
-                                            "i9027"
-                                            "i9025"
-                                            "i9023"
-                                            "i9021"
-                                            "i9019"
-                                            "i9017"
-                                            "i9015"
-                                            "i9013"
-                                            "i9011"
-                                            "i9009"
-                                            "i9007"
-                                            "i9005"
-                                            "i9003"
-                                            "i9001"
-                                            "i8999"
-                                            "i8997"
-                                            "i8995"
-                                            "i8993"
-                                            "i8991"
-                                            "i8989"
-                                            "i8988"
-                                            "i8986"
-                                            "i8984"
-                                            "i8982"
-                                            "i8980"
-                                            "i8978"
-                                            "i8976"
-                                            "i8974"
-                                            "i8972"))
+                                           ("i336"
+                                            "i334"
+                                            "i332"
+                                            "i330"
+                                            "i328"
+                                            "i326"
+                                            "i324"
+                                            "i322"
+                                            "i320"
+                                            "i318"
+                                            "i316"
+                                            "i314"
+                                            "i312"
+                                            "i310"
+                                            "i308"
+                                            "i306"
+                                            "i304"
+                                            "i302"
+                                            "i300"
+                                            "i298"
+                                            "i296"
+                                            "i294"
+                                            "i292"
+                                            "i290"
+                                            "i288"
+                                            "i286"
+                                            "i284"
+                                            "i282"
+                                            "i280"
+                                            "i278"
+                                            "i276"
+                                            "i274"
+                                            "i272"
+                                            "i270"
+                                            "i268"
+                                            "i266"
+                                            "i265"
+                                            "i264"
+                                            "i262"
+                                            "i261"
+                                            "i260"
+                                            "i259"
+                                            "i258"
+                                            "i256"
+                                            "i254"
+                                            "i252"
+                                            "i250"
+                                            "i248"
+                                            "i246"
+                                            "i244"
+                                            "i242"
+                                            "i239"
+                                            "i237"
+                                            "i236"
+                                            "i235"
+                                            "i234"
+                                            "i233"
+                                            "i232"
+                                            "i230"
+                                            "i228"
+                                            "i226"
+                                            "i224"
+                                            "i223"
+                                            "i221"
+                                            "i219"
+                                            "i217"
+                                            "i215"
+                                            "i213"
+                                            "i211"
+                                            "i209"
+                                            "i208"
+                                            "i206"
+                                            "i204"
+                                            "i203"
+                                            "i202"
+                                            "i200"
+                                            "i199"
+                                            "i197"
+                                            "i195"
+                                            "i193"
+                                            "i191"
+                                            "i189"
+                                            "i187"
+                                            "i185"
+                                            "i183"
+                                            "i181"
+                                            "i179"
+                                            "i177"
+                                            "i175"
+                                            "i173"
+                                            "i171"
+                                            "i169"
+                                            "i167"
+                                            "i165"
+                                            "i163"
+                                            "i161"
+                                            "i159"
+                                            "i157"
+                                            "i155"
+                                            "i153"
+                                            "i151"
+                                            "i149"
+                                            "i147"
+                                            "i145"
+                                            "i143"
+                                            "i141"
+                                            "i139"
+                                            "i137"
+                                            "i135"
+                                            "i134"
+                                            "i132"
+                                            "i130"
+                                            "i128"
+                                            "i126"
+                                            "i124"
+                                            "i122"
+                                            "i120"
+                                            "i118"))
                                          #(ribcage
                                            (define-structure and-map*)
                                            ((top) (top))
-                                           ("i8875" "i8873")))
+                                           ("i21" "i19")))
                                         (hygiene guile))
-                                     #{mod\ 12207}#))))
-                         #{tmp\ 12193}#)
+                                     #{mod\ 3354}#))))
+                         #{tmp\ 3340}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 12192}#)))
+                    #{tmp\ 3339}#)))
               ($sc-dispatch
-                #{tmp\ 12192}#
+                #{tmp\ 3339}#
                 '(any each-any any))))
-           #{e\ 12190}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3337}#)))
+      (#{global-extend\ 218}#
         'core
         'if
-        (lambda (#{e\ 12210}#
-                 #{r\ 12211}#
-                 #{w\ 12212}#
-                 #{s\ 12213}#
-                 #{mod\ 12214}#)
-          ((lambda (#{tmp\ 12220}#)
-             ((lambda (#{tmp\ 12221}#)
-                (if #{tmp\ 12221}#
-                  (apply (lambda (#{_\ 12225}# #{test\ 12226}# #{then\ 12227}#)
-                           (#{build-conditional\ 9000}#
-                             #{s\ 12213}#
-                             (#{chi\ 9161}#
-                               #{test\ 12226}#
-                               #{r\ 12211}#
-                               #{w\ 12212}#
-                               #{mod\ 12214}#)
-                             (#{chi\ 9161}#
-                               #{then\ 12227}#
-                               #{r\ 12211}#
-                               #{w\ 12212}#
-                               #{mod\ 12214}#)
-                             (#{build-void\ 8996}# #f)))
-                         #{tmp\ 12221}#)
-                  ((lambda (#{tmp\ 12229}#)
-                     (if #{tmp\ 12229}#
-                       (apply (lambda (#{_\ 12234}#
-                                       #{test\ 12235}#
-                                       #{then\ 12236}#
-                                       #{else\ 12237}#)
-                                (#{build-conditional\ 9000}#
-                                  #{s\ 12213}#
-                                  (#{chi\ 9161}#
-                                    #{test\ 12235}#
-                                    #{r\ 12211}#
-                                    #{w\ 12212}#
-                                    #{mod\ 12214}#)
-                                  (#{chi\ 9161}#
-                                    #{then\ 12236}#
-                                    #{r\ 12211}#
-                                    #{w\ 12212}#
-                                    #{mod\ 12214}#)
-                                  (#{chi\ 9161}#
-                                    #{else\ 12237}#
-                                    #{r\ 12211}#
-                                    #{w\ 12212}#
-                                    #{mod\ 12214}#)))
-                              #{tmp\ 12229}#)
+        (lambda (#{e\ 3357}#
+                 #{r\ 3358}#
+                 #{w\ 3359}#
+                 #{s\ 3360}#
+                 #{mod\ 3361}#)
+          ((lambda (#{tmp\ 3367}#)
+             ((lambda (#{tmp\ 3368}#)
+                (if #{tmp\ 3368}#
+                  (apply (lambda (#{_\ 3372}# #{test\ 3373}# #{then\ 3374}#)
+                           (#{build-conditional\ 146}#
+                             #{s\ 3360}#
+                             (#{chi\ 307}#
+                               #{test\ 3373}#
+                               #{r\ 3358}#
+                               #{w\ 3359}#
+                               #{mod\ 3361}#)
+                             (#{chi\ 307}#
+                               #{then\ 3374}#
+                               #{r\ 3358}#
+                               #{w\ 3359}#
+                               #{mod\ 3361}#)
+                             (#{build-void\ 142}# #f)))
+                         #{tmp\ 3368}#)
+                  ((lambda (#{tmp\ 3376}#)
+                     (if #{tmp\ 3376}#
+                       (apply (lambda (#{_\ 3381}#
+                                       #{test\ 3382}#
+                                       #{then\ 3383}#
+                                       #{else\ 3384}#)
+                                (#{build-conditional\ 146}#
+                                  #{s\ 3360}#
+                                  (#{chi\ 307}#
+                                    #{test\ 3382}#
+                                    #{r\ 3358}#
+                                    #{w\ 3359}#
+                                    #{mod\ 3361}#)
+                                  (#{chi\ 307}#
+                                    #{then\ 3383}#
+                                    #{r\ 3358}#
+                                    #{w\ 3359}#
+                                    #{mod\ 3361}#)
+                                  (#{chi\ 307}#
+                                    #{else\ 3384}#
+                                    #{r\ 3358}#
+                                    #{w\ 3359}#
+                                    #{mod\ 3361}#)))
+                              #{tmp\ 3376}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
-                         #{tmp\ 12220}#)))
+                         #{tmp\ 3367}#)))
                    ($sc-dispatch
-                     #{tmp\ 12220}#
+                     #{tmp\ 3367}#
                      '(any any any any)))))
               ($sc-dispatch
-                #{tmp\ 12220}#
+                #{tmp\ 3367}#
                 '(any any any))))
-           #{e\ 12210}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3357}#)))
+      (#{global-extend\ 218}#
         'core
         'with-fluids
-        (lambda (#{e\ 12238}#
-                 #{r\ 12239}#
-                 #{w\ 12240}#
-                 #{s\ 12241}#
-                 #{mod\ 12242}#)
-          ((lambda (#{tmp\ 12248}#)
-             ((lambda (#{tmp\ 12249}#)
-                (if #{tmp\ 12249}#
-                  (apply (lambda (#{_\ 12255}#
-                                  #{fluid\ 12256}#
-                                  #{val\ 12257}#
-                                  #{b\ 12258}#
-                                  #{b*\ 12259}#)
-                           (#{build-dynlet\ 9002}#
-                             #{s\ 12241}#
-                             (map (lambda (#{x\ 12260}#)
-                                    (#{chi\ 9161}#
-                                      #{x\ 12260}#
-                                      #{r\ 12239}#
-                                      #{w\ 12240}#
-                                      #{mod\ 12242}#))
-                                  #{fluid\ 12256}#)
-                             (map (lambda (#{x\ 12263}#)
-                                    (#{chi\ 9161}#
-                                      #{x\ 12263}#
-                                      #{r\ 12239}#
-                                      #{w\ 12240}#
-                                      #{mod\ 12242}#))
-                                  #{val\ 12257}#)
-                             (#{chi-body\ 9169}#
-                               (cons #{b\ 12258}# #{b*\ 12259}#)
-                               (#{source-wrap\ 9147}#
-                                 #{e\ 12238}#
-                                 #{w\ 12240}#
-                                 #{s\ 12241}#
-                                 #{mod\ 12242}#)
-                               #{r\ 12239}#
-                               #{w\ 12240}#
-                               #{mod\ 12242}#)))
-                         #{tmp\ 12249}#)
+        (lambda (#{e\ 3385}#
+                 #{r\ 3386}#
+                 #{w\ 3387}#
+                 #{s\ 3388}#
+                 #{mod\ 3389}#)
+          ((lambda (#{tmp\ 3395}#)
+             ((lambda (#{tmp\ 3396}#)
+                (if #{tmp\ 3396}#
+                  (apply (lambda (#{_\ 3402}#
+                                  #{fluid\ 3403}#
+                                  #{val\ 3404}#
+                                  #{b\ 3405}#
+                                  #{b*\ 3406}#)
+                           (#{build-dynlet\ 148}#
+                             #{s\ 3388}#
+                             (map (lambda (#{x\ 3407}#)
+                                    (#{chi\ 307}#
+                                      #{x\ 3407}#
+                                      #{r\ 3386}#
+                                      #{w\ 3387}#
+                                      #{mod\ 3389}#))
+                                  #{fluid\ 3403}#)
+                             (map (lambda (#{x\ 3410}#)
+                                    (#{chi\ 307}#
+                                      #{x\ 3410}#
+                                      #{r\ 3386}#
+                                      #{w\ 3387}#
+                                      #{mod\ 3389}#))
+                                  #{val\ 3404}#)
+                             (#{chi-body\ 315}#
+                               (cons #{b\ 3405}# #{b*\ 3406}#)
+                               (#{source-wrap\ 293}#
+                                 #{e\ 3385}#
+                                 #{w\ 3387}#
+                                 #{s\ 3388}#
+                                 #{mod\ 3389}#)
+                               #{r\ 3386}#
+                               #{w\ 3387}#
+                               #{mod\ 3389}#)))
+                         #{tmp\ 3396}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
-                    #{tmp\ 12248}#)))
+                    #{tmp\ 3395}#)))
               ($sc-dispatch
-                #{tmp\ 12248}#
+                #{tmp\ 3395}#
                 '(any #(each (any any)) any . each-any))))
-           #{e\ 12238}#)))
-      (#{global-extend\ 9072}#
+           #{e\ 3385}#)))
+      (#{global-extend\ 218}#
         'begin
         'begin
         '())
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'define
         'define
         '())
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'define-syntax
         'define-syntax
         '())
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'eval-when
         'eval-when
         '())
-      (#{global-extend\ 9072}#
+      (#{global-extend\ 218}#
         'core
         'syntax-case
-        (letrec ((#{gen-syntax-case\ 12274}#
-                   (lambda (#{x\ 12275}#
-                            #{keys\ 12276}#
-                            #{clauses\ 12277}#
-                            #{r\ 12278}#
-                            #{mod\ 12279}#)
-                     (if (null? #{clauses\ 12277}#)
-                       (#{build-application\ 8998}#
+        (letrec ((#{gen-syntax-case\ 3421}#
+                   (lambda (#{x\ 3422}#
+                            #{keys\ 3423}#
+                            #{clauses\ 3424}#
+                            #{r\ 3425}#
+                            #{mod\ 3426}#)
+                     (if (null? #{clauses\ 3424}#)
+                       (#{build-application\ 144}#
                          #f
-                         (#{build-primref\ 9024}#
+                         (#{build-primref\ 170}#
                            #f
                            'syntax-violation)
-                         (list (#{build-data\ 9026}# #f #f)
-                               (#{build-data\ 9026}#
+                         (list (#{build-data\ 172}# #f #f)
+                               (#{build-data\ 172}#
                                  #f
                                  "source expression failed to match any 
pattern")
-                               #{x\ 12275}#))
-                       ((lambda (#{tmp\ 12289}#)
-                          ((lambda (#{tmp\ 12290}#)
-                             (if #{tmp\ 12290}#
-                               (apply (lambda (#{pat\ 12293}# #{exp\ 12294}#)
-                                        (if (if (#{id?\ 9076}# #{pat\ 12293}#)
+                               #{x\ 3422}#))
+                       ((lambda (#{tmp\ 3436}#)
+                          ((lambda (#{tmp\ 3437}#)
+                             (if #{tmp\ 3437}#
+                               (apply (lambda (#{pat\ 3440}# #{exp\ 3441}#)
+                                        (if (if (#{id?\ 222}# #{pat\ 3440}#)
                                               (and-map
-                                                (lambda (#{x\ 12297}#)
-                                                  (not (#{free-id=?\ 9135}#
-                                                         #{pat\ 12293}#
-                                                         #{x\ 12297}#)))
+                                                (lambda (#{x\ 3444}#)
+                                                  (not (#{free-id=?\ 281}#
+                                                         #{pat\ 3440}#
+                                                         #{x\ 3444}#)))
                                                 (cons '#(syntax-object
                                                          ...
                                                          ((top)
                                                           #(ribcage
                                                             #(pat exp)
                                                             #((top) (top))
-                                                            #("i12291"
-                                                              "i12292"))
+                                                            #("i3438" "i3439"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(x
@@ -10462,11 +10377,11 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i12280"
-                                                              "i12281"
-                                                              "i12282"
-                                                              "i12283"
-                                                              "i12284"))
+                                                            #("i3427"
+                                                              "i3428"
+                                                              "i3429"
+                                                              "i3430"
+                                                              "i3431"))
                                                           #(ribcage
                                                             (gen-syntax-case
                                                               gen-clause
@@ -10476,10 +10391,10 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i12273"
-                                                             "i12271"
-                                                             "i12269"
-                                                             "i12267"))
+                                                            ("i3420"
+                                                             "i3418"
+                                                             "i3416"
+                                                             "i3414"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -10717,1029 +10632,1025 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i9190"
-                                                             "i9188"
-                                                             "i9186"
-                                                             "i9184"
-                                                             "i9182"
-                                                             "i9180"
-                                                             "i9178"
-                                                             "i9176"
-                                                             "i9174"
-                                                             "i9172"
-                                                             "i9170"
-                                                             "i9168"
-                                                             "i9166"
-                                                             "i9164"
-                                                             "i9162"
-                                                             "i9160"
-                                                             "i9158"
-                                                             "i9156"
-                                                             "i9154"
-                                                             "i9152"
-                                                             "i9150"
-                                                             "i9148"
-                                                             "i9146"
-                                                             "i9144"
-                                                             "i9142"
-                                                             "i9140"
-                                                             "i9138"
-                                                             "i9136"
-                                                             "i9134"
-                                                             "i9132"
-                                                             "i9130"
-                                                             "i9128"
-                                                             "i9126"
-                                                             "i9124"
-                                                             "i9122"
-                                                             "i9120"
-                                                             "i9119"
-                                                             "i9118"
-                                                             "i9116"
-                                                             "i9115"
-                                                             "i9114"
-                                                             "i9113"
-                                                             "i9112"
-                                                             "i9110"
-                                                             "i9108"
-                                                             "i9106"
-                                                             "i9104"
-                                                             "i9102"
-                                                             "i9100"
-                                                             "i9098"
-                                                             "i9096"
-                                                             "i9093"
-                                                             "i9091"
-                                                             "i9090"
-                                                             "i9089"
-                                                             "i9088"
-                                                             "i9087"
-                                                             "i9086"
-                                                             "i9084"
-                                                             "i9082"
-                                                             "i9080"
-                                                             "i9078"
-                                                             "i9077"
-                                                             "i9075"
-                                                             "i9073"
-                                                             "i9071"
-                                                             "i9069"
-                                                             "i9067"
-                                                             "i9065"
-                                                             "i9063"
-                                                             "i9062"
-                                                             "i9060"
-                                                             "i9058"
-                                                             "i9057"
-                                                             "i9056"
-                                                             "i9054"
-                                                             "i9053"
-                                                             "i9051"
-                                                             "i9049"
-                                                             "i9047"
-                                                             "i9045"
-                                                             "i9043"
-                                                             "i9041"
-                                                             "i9039"
-                                                             "i9037"
-                                                             "i9035"
-                                                             "i9033"
-                                                             "i9031"
-                                                             "i9029"
-                                                             "i9027"
-                                                             "i9025"
-                                                             "i9023"
-                                                             "i9021"
-                                                             "i9019"
-                                                             "i9017"
-                                                             "i9015"
-                                                             "i9013"
-                                                             "i9011"
-                                                             "i9009"
-                                                             "i9007"
-                                                             "i9005"
-                                                             "i9003"
-                                                             "i9001"
-                                                             "i8999"
-                                                             "i8997"
-                                                             "i8995"
-                                                             "i8993"
-                                                             "i8991"
-                                                             "i8989"
-                                                             "i8988"
-                                                             "i8986"
-                                                             "i8984"
-                                                             "i8982"
-                                                             "i8980"
-                                                             "i8978"
-                                                             "i8976"
-                                                             "i8974"
-                                                             "i8972"))
+                                                            ("i336"
+                                                             "i334"
+                                                             "i332"
+                                                             "i330"
+                                                             "i328"
+                                                             "i326"
+                                                             "i324"
+                                                             "i322"
+                                                             "i320"
+                                                             "i318"
+                                                             "i316"
+                                                             "i314"
+                                                             "i312"
+                                                             "i310"
+                                                             "i308"
+                                                             "i306"
+                                                             "i304"
+                                                             "i302"
+                                                             "i300"
+                                                             "i298"
+                                                             "i296"
+                                                             "i294"
+                                                             "i292"
+                                                             "i290"
+                                                             "i288"
+                                                             "i286"
+                                                             "i284"
+                                                             "i282"
+                                                             "i280"
+                                                             "i278"
+                                                             "i276"
+                                                             "i274"
+                                                             "i272"
+                                                             "i270"
+                                                             "i268"
+                                                             "i266"
+                                                             "i265"
+                                                             "i264"
+                                                             "i262"
+                                                             "i261"
+                                                             "i260"
+                                                             "i259"
+                                                             "i258"
+                                                             "i256"
+                                                             "i254"
+                                                             "i252"
+                                                             "i250"
+                                                             "i248"
+                                                             "i246"
+                                                             "i244"
+                                                             "i242"
+                                                             "i239"
+                                                             "i237"
+                                                             "i236"
+                                                             "i235"
+                                                             "i234"
+                                                             "i233"
+                                                             "i232"
+                                                             "i230"
+                                                             "i228"
+                                                             "i226"
+                                                             "i224"
+                                                             "i223"
+                                                             "i221"
+                                                             "i219"
+                                                             "i217"
+                                                             "i215"
+                                                             "i213"
+                                                             "i211"
+                                                             "i209"
+                                                             "i208"
+                                                             "i206"
+                                                             "i204"
+                                                             "i203"
+                                                             "i202"
+                                                             "i200"
+                                                             "i199"
+                                                             "i197"
+                                                             "i195"
+                                                             "i193"
+                                                             "i191"
+                                                             "i189"
+                                                             "i187"
+                                                             "i185"
+                                                             "i183"
+                                                             "i181"
+                                                             "i179"
+                                                             "i177"
+                                                             "i175"
+                                                             "i173"
+                                                             "i171"
+                                                             "i169"
+                                                             "i167"
+                                                             "i165"
+                                                             "i163"
+                                                             "i161"
+                                                             "i159"
+                                                             "i157"
+                                                             "i155"
+                                                             "i153"
+                                                             "i151"
+                                                             "i149"
+                                                             "i147"
+                                                             "i145"
+                                                             "i143"
+                                                             "i141"
+                                                             "i139"
+                                                             "i137"
+                                                             "i135"
+                                                             "i134"
+                                                             "i132"
+                                                             "i130"
+                                                             "i128"
+                                                             "i126"
+                                                             "i124"
+                                                             "i122"
+                                                             "i120"
+                                                             "i118"))
                                                           #(ribcage
                                                             (define-structure
                                                               and-map*)
                                                             ((top) (top))
-                                                            ("i8875" "i8873")))
+                                                            ("i21" "i19")))
                                                          (hygiene guile))
-                                                      #{keys\ 12276}#))
+                                                      #{keys\ 3423}#))
                                               #f)
-                                          (let ((#{labels\ 12301}#
-                                                  (list (#{gen-label\ 9092}#)))
-                                                (#{var\ 12302}#
-                                                  (#{gen-var\ 9189}#
-                                                    #{pat\ 12293}#)))
-                                            (#{build-application\ 8998}#
+                                          (let ((#{labels\ 3448}#
+                                                  (list (#{gen-label\ 238}#)))
+                                                (#{var\ 3449}#
+                                                  (#{gen-var\ 335}#
+                                                    #{pat\ 3440}#)))
+                                            (#{build-application\ 144}#
                                               #f
-                                              (#{build-simple-lambda\ 9018}#
+                                              (#{build-simple-lambda\ 164}#
                                                 #f
                                                 (list (syntax->datum
-                                                        #{pat\ 12293}#))
+                                                        #{pat\ 3440}#))
                                                 #f
-                                                (list #{var\ 12302}#)
+                                                (list #{var\ 3449}#)
                                                 '()
-                                                (#{chi\ 9161}#
-                                                  #{exp\ 12294}#
-                                                  (#{extend-env\ 9064}#
-                                                    #{labels\ 12301}#
+                                                (#{chi\ 307}#
+                                                  #{exp\ 3441}#
+                                                  (#{extend-env\ 210}#
+                                                    #{labels\ 3448}#
                                                     (list (cons 'syntax
-                                                                (cons #{var\ 
12302}#
+                                                                (cons #{var\ 
3449}#
                                                                       0)))
-                                                    #{r\ 12278}#)
-                                                  (#{make-binding-wrap\ 9123}#
-                                                    (list #{pat\ 12293}#)
-                                                    #{labels\ 12301}#
+                                                    #{r\ 3425}#)
+                                                  (#{make-binding-wrap\ 269}#
+                                                    (list #{pat\ 3440}#)
+                                                    #{labels\ 3448}#
                                                     '(()))
-                                                  #{mod\ 12279}#))
-                                              (list #{x\ 12275}#)))
-                                          (#{gen-clause\ 12272}#
-                                            #{x\ 12275}#
-                                            #{keys\ 12276}#
-                                            (cdr #{clauses\ 12277}#)
-                                            #{r\ 12278}#
-                                            #{pat\ 12293}#
+                                                  #{mod\ 3426}#))
+                                              (list #{x\ 3422}#)))
+                                          (#{gen-clause\ 3419}#
+                                            #{x\ 3422}#
+                                            #{keys\ 3423}#
+                                            (cdr #{clauses\ 3424}#)
+                                            #{r\ 3425}#
+                                            #{pat\ 3440}#
                                             #t
-                                            #{exp\ 12294}#
-                                            #{mod\ 12279}#)))
-                                      #{tmp\ 12290}#)
-                               ((lambda (#{tmp\ 12308}#)
-                                  (if #{tmp\ 12308}#
-                                    (apply (lambda (#{pat\ 12312}#
-                                                    #{fender\ 12313}#
-                                                    #{exp\ 12314}#)
-                                             (#{gen-clause\ 12272}#
-                                               #{x\ 12275}#
-                                               #{keys\ 12276}#
-                                               (cdr #{clauses\ 12277}#)
-                                               #{r\ 12278}#
-                                               #{pat\ 12312}#
-                                               #{fender\ 12313}#
-                                               #{exp\ 12314}#
-                                               #{mod\ 12279}#))
-                                           #{tmp\ 12308}#)
-                                    ((lambda (#{_\ 12316}#)
+                                            #{exp\ 3441}#
+                                            #{mod\ 3426}#)))
+                                      #{tmp\ 3437}#)
+                               ((lambda (#{tmp\ 3455}#)
+                                  (if #{tmp\ 3455}#
+                                    (apply (lambda (#{pat\ 3459}#
+                                                    #{fender\ 3460}#
+                                                    #{exp\ 3461}#)
+                                             (#{gen-clause\ 3419}#
+                                               #{x\ 3422}#
+                                               #{keys\ 3423}#
+                                               (cdr #{clauses\ 3424}#)
+                                               #{r\ 3425}#
+                                               #{pat\ 3459}#
+                                               #{fender\ 3460}#
+                                               #{exp\ 3461}#
+                                               #{mod\ 3426}#))
+                                           #{tmp\ 3455}#)
+                                    ((lambda (#{_\ 3463}#)
                                        (syntax-violation
                                          'syntax-case
                                          "invalid clause"
-                                         (car #{clauses\ 12277}#)))
-                                     #{tmp\ 12289}#)))
+                                         (car #{clauses\ 3424}#)))
+                                     #{tmp\ 3436}#)))
                                 ($sc-dispatch
-                                  #{tmp\ 12289}#
+                                  #{tmp\ 3436}#
                                   '(any any any)))))
-                           ($sc-dispatch #{tmp\ 12289}# (quote (any any)))))
-                        (car #{clauses\ 12277}#)))))
-                 (#{gen-clause\ 12272}#
-                   (lambda (#{x\ 12317}#
-                            #{keys\ 12318}#
-                            #{clauses\ 12319}#
-                            #{r\ 12320}#
-                            #{pat\ 12321}#
-                            #{fender\ 12322}#
-                            #{exp\ 12323}#
-                            #{mod\ 12324}#)
+                           ($sc-dispatch #{tmp\ 3436}# (quote (any any)))))
+                        (car #{clauses\ 3424}#)))))
+                 (#{gen-clause\ 3419}#
+                   (lambda (#{x\ 3464}#
+                            #{keys\ 3465}#
+                            #{clauses\ 3466}#
+                            #{r\ 3467}#
+                            #{pat\ 3468}#
+                            #{fender\ 3469}#
+                            #{exp\ 3470}#
+                            #{mod\ 3471}#)
                      (call-with-values
                        (lambda ()
-                         (#{convert-pattern\ 12268}#
-                           #{pat\ 12321}#
-                           #{keys\ 12318}#))
-                       (lambda (#{p\ 12333}# #{pvars\ 12334}#)
-                         (if (not (#{distinct-bound-ids?\ 9141}#
-                                    (map car #{pvars\ 12334}#)))
+                         (#{convert-pattern\ 3415}#
+                           #{pat\ 3468}#
+                           #{keys\ 3465}#))
+                       (lambda (#{p\ 3480}# #{pvars\ 3481}#)
+                         (if (not (#{distinct-bound-ids?\ 287}#
+                                    (map car #{pvars\ 3481}#)))
                            (syntax-violation
                              'syntax-case
                              "duplicate pattern variable"
-                             #{pat\ 12321}#)
+                             #{pat\ 3468}#)
                            (if (not (and-map
-                                      (lambda (#{x\ 12341}#)
-                                        (not (#{ellipsis?\ 9177}#
-                                               (car #{x\ 12341}#))))
-                                      #{pvars\ 12334}#))
+                                      (lambda (#{x\ 3488}#)
+                                        (not (#{ellipsis?\ 323}#
+                                               (car #{x\ 3488}#))))
+                                      #{pvars\ 3481}#))
                              (syntax-violation
                                'syntax-case
                                "misplaced ellipsis"
-                               #{pat\ 12321}#)
-                             (let ((#{y\ 12345}#
-                                     (#{gen-var\ 9189}# (quote tmp))))
-                               (#{build-application\ 8998}#
+                               #{pat\ 3468}#)
+                             (let ((#{y\ 3492}#
+                                     (#{gen-var\ 335}# (quote tmp))))
+                               (#{build-application\ 144}#
                                  #f
-                                 (#{build-simple-lambda\ 9018}#
+                                 (#{build-simple-lambda\ 164}#
                                    #f
                                    (list (quote tmp))
                                    #f
-                                   (list #{y\ 12345}#)
+                                   (list #{y\ 3492}#)
                                    '()
-                                   (let ((#{y\ 12349}#
-                                           (#{build-lexical-reference\ 9004}#
+                                   (let ((#{y\ 3496}#
+                                           (#{build-lexical-reference\ 150}#
                                              'value
                                              #f
                                              'tmp
-                                             #{y\ 12345}#)))
-                                     (#{build-conditional\ 9000}#
+                                             #{y\ 3492}#)))
+                                     (#{build-conditional\ 146}#
                                        #f
-                                       ((lambda (#{tmp\ 12352}#)
-                                          ((lambda (#{tmp\ 12353}#)
-                                             (if #{tmp\ 12353}#
-                                               (apply (lambda () #{y\ 12349}#)
-                                                      #{tmp\ 12353}#)
-                                               ((lambda (#{_\ 12355}#)
-                                                  (#{build-conditional\ 9000}#
+                                       ((lambda (#{tmp\ 3499}#)
+                                          ((lambda (#{tmp\ 3500}#)
+                                             (if #{tmp\ 3500}#
+                                               (apply (lambda () #{y\ 3496}#)
+                                                      #{tmp\ 3500}#)
+                                               ((lambda (#{_\ 3502}#)
+                                                  (#{build-conditional\ 146}#
                                                     #f
-                                                    #{y\ 12349}#
-                                                    (#{build-dispatch-call\ 
12270}#
-                                                      #{pvars\ 12334}#
-                                                      #{fender\ 12322}#
-                                                      #{y\ 12349}#
-                                                      #{r\ 12320}#
-                                                      #{mod\ 12324}#)
-                                                    (#{build-data\ 9026}#
+                                                    #{y\ 3496}#
+                                                    (#{build-dispatch-call\ 
3417}#
+                                                      #{pvars\ 3481}#
+                                                      #{fender\ 3469}#
+                                                      #{y\ 3496}#
+                                                      #{r\ 3467}#
+                                                      #{mod\ 3471}#)
+                                                    (#{build-data\ 172}#
                                                       #f
                                                       #f)))
-                                                #{tmp\ 12352}#)))
+                                                #{tmp\ 3499}#)))
                                            ($sc-dispatch
-                                             #{tmp\ 12352}#
+                                             #{tmp\ 3499}#
                                              '#(atom #t))))
-                                        #{fender\ 12322}#)
-                                       (#{build-dispatch-call\ 12270}#
-                                         #{pvars\ 12334}#
-                                         #{exp\ 12323}#
-                                         #{y\ 12349}#
-                                         #{r\ 12320}#
-                                         #{mod\ 12324}#)
-                                       (#{gen-syntax-case\ 12274}#
-                                         #{x\ 12317}#
-                                         #{keys\ 12318}#
-                                         #{clauses\ 12319}#
-                                         #{r\ 12320}#
-                                         #{mod\ 12324}#))))
-                                 (list (if (eq? #{p\ 12333}# (quote any))
-                                         (#{build-application\ 8998}#
+                                        #{fender\ 3469}#)
+                                       (#{build-dispatch-call\ 3417}#
+                                         #{pvars\ 3481}#
+                                         #{exp\ 3470}#
+                                         #{y\ 3496}#
+                                         #{r\ 3467}#
+                                         #{mod\ 3471}#)
+                                       (#{gen-syntax-case\ 3421}#
+                                         #{x\ 3464}#
+                                         #{keys\ 3465}#
+                                         #{clauses\ 3466}#
+                                         #{r\ 3467}#
+                                         #{mod\ 3471}#))))
+                                 (list (if (eq? #{p\ 3480}# (quote any))
+                                         (#{build-application\ 144}#
                                            #f
-                                           (#{build-primref\ 9024}#
+                                           (#{build-primref\ 170}#
                                              #f
                                              'list)
-                                           (list #{x\ 12317}#))
-                                         (#{build-application\ 8998}#
+                                           (list #{x\ 3464}#))
+                                         (#{build-application\ 144}#
                                            #f
-                                           (#{build-primref\ 9024}#
+                                           (#{build-primref\ 170}#
                                              #f
                                              '$sc-dispatch)
-                                           (list #{x\ 12317}#
-                                                 (#{build-data\ 9026}#
+                                           (list #{x\ 3464}#
+                                                 (#{build-data\ 172}#
                                                    #f
-                                                   #{p\ 12333}#)))))))))))))
-                 (#{build-dispatch-call\ 12270}#
-                   (lambda (#{pvars\ 12363}#
-                            #{exp\ 12364}#
-                            #{y\ 12365}#
-                            #{r\ 12366}#
-                            #{mod\ 12367}#)
-                     (let ((#{ids\ 12375}# (map car #{pvars\ 12363}#))
-                           (#{levels\ 12376}# (map cdr #{pvars\ 12363}#)))
-                       (let ((#{labels\ 12379}#
-                               (#{gen-labels\ 9094}# #{ids\ 12375}#))
-                             (#{new-vars\ 12380}#
-                               (map #{gen-var\ 9189}# #{ids\ 12375}#)))
-                         (#{build-application\ 8998}#
+                                                   #{p\ 3480}#)))))))))))))
+                 (#{build-dispatch-call\ 3417}#
+                   (lambda (#{pvars\ 3510}#
+                            #{exp\ 3511}#
+                            #{y\ 3512}#
+                            #{r\ 3513}#
+                            #{mod\ 3514}#)
+                     (let ((#{ids\ 3522}# (map car #{pvars\ 3510}#))
+                           (#{levels\ 3523}# (map cdr #{pvars\ 3510}#)))
+                       (let ((#{labels\ 3526}#
+                               (#{gen-labels\ 240}# #{ids\ 3522}#))
+                             (#{new-vars\ 3527}#
+                               (map #{gen-var\ 335}# #{ids\ 3522}#)))
+                         (#{build-application\ 144}#
                            #f
-                           (#{build-primref\ 9024}# #f (quote apply))
-                           (list (#{build-simple-lambda\ 9018}#
+                           (#{build-primref\ 170}# #f (quote apply))
+                           (list (#{build-simple-lambda\ 164}#
                                    #f
-                                   (map syntax->datum #{ids\ 12375}#)
+                                   (map syntax->datum #{ids\ 3522}#)
                                    #f
-                                   #{new-vars\ 12380}#
+                                   #{new-vars\ 3527}#
                                    '()
-                                   (#{chi\ 9161}#
-                                     #{exp\ 12364}#
-                                     (#{extend-env\ 9064}#
-                                       #{labels\ 12379}#
-                                       (map (lambda (#{var\ 12384}#
-                                                     #{level\ 12385}#)
+                                   (#{chi\ 307}#
+                                     #{exp\ 3511}#
+                                     (#{extend-env\ 210}#
+                                       #{labels\ 3526}#
+                                       (map (lambda (#{var\ 3531}#
+                                                     #{level\ 3532}#)
                                               (cons 'syntax
-                                                    (cons #{var\ 12384}#
-                                                          #{level\ 12385}#)))
-                                            #{new-vars\ 12380}#
-                                            (map cdr #{pvars\ 12363}#))
-                                       #{r\ 12366}#)
-                                     (#{make-binding-wrap\ 9123}#
-                                       #{ids\ 12375}#
-                                       #{labels\ 12379}#
+                                                    (cons #{var\ 3531}#
+                                                          #{level\ 3532}#)))
+                                            #{new-vars\ 3527}#
+                                            (map cdr #{pvars\ 3510}#))
+                                       #{r\ 3513}#)
+                                     (#{make-binding-wrap\ 269}#
+                                       #{ids\ 3522}#
+                                       #{labels\ 3526}#
                                        '(()))
-                                     #{mod\ 12367}#))
-                                 #{y\ 12365}#))))))
-                 (#{convert-pattern\ 12268}#
-                   (lambda (#{pattern\ 12391}# #{keys\ 12392}#)
-                     (letrec ((#{cvt\ 12398}#
-                                (lambda (#{p\ 12399}#
-                                         #{n\ 12400}#
-                                         #{ids\ 12401}#)
-                                  (if (#{id?\ 9076}# #{p\ 12399}#)
-                                    (if (#{bound-id-member?\ 9143}#
-                                          #{p\ 12399}#
-                                          #{keys\ 12392}#)
+                                     #{mod\ 3514}#))
+                                 #{y\ 3512}#))))))
+                 (#{convert-pattern\ 3415}#
+                   (lambda (#{pattern\ 3538}# #{keys\ 3539}#)
+                     (letrec ((#{cvt\ 3545}#
+                                (lambda (#{p\ 3546}# #{n\ 3547}# #{ids\ 3548}#)
+                                  (if (#{id?\ 222}# #{p\ 3546}#)
+                                    (if (#{bound-id-member?\ 289}#
+                                          #{p\ 3546}#
+                                          #{keys\ 3539}#)
                                       (values
-                                        (vector (quote free-id) #{p\ 12399}#)
-                                        #{ids\ 12401}#)
+                                        (vector (quote free-id) #{p\ 3546}#)
+                                        #{ids\ 3548}#)
                                       (values
                                         'any
-                                        (cons (cons #{p\ 12399}# #{n\ 12400}#)
-                                              #{ids\ 12401}#)))
-                                    ((lambda (#{tmp\ 12405}#)
-                                       ((lambda (#{tmp\ 12406}#)
-                                          (if (if #{tmp\ 12406}#
-                                                (apply (lambda (#{x\ 12409}#
-                                                                #{dots\ 
12410}#)
-                                                         (#{ellipsis?\ 9177}#
-                                                           #{dots\ 12410}#))
-                                                       #{tmp\ 12406}#)
+                                        (cons (cons #{p\ 3546}# #{n\ 3547}#)
+                                              #{ids\ 3548}#)))
+                                    ((lambda (#{tmp\ 3552}#)
+                                       ((lambda (#{tmp\ 3553}#)
+                                          (if (if #{tmp\ 3553}#
+                                                (apply (lambda (#{x\ 3556}#
+                                                                #{dots\ 3557}#)
+                                                         (#{ellipsis?\ 323}#
+                                                           #{dots\ 3557}#))
+                                                       #{tmp\ 3553}#)
                                                 #f)
-                                            (apply (lambda (#{x\ 12413}#
-                                                            #{dots\ 12414}#)
+                                            (apply (lambda (#{x\ 3560}#
+                                                            #{dots\ 3561}#)
                                                      (call-with-values
                                                        (lambda ()
-                                                         (#{cvt\ 12398}#
-                                                           #{x\ 12413}#
-                                                           (#{fx+\ 8977}#
-                                                             #{n\ 12400}#
+                                                         (#{cvt\ 3545}#
+                                                           #{x\ 3560}#
+                                                           (#{fx+\ 123}#
+                                                             #{n\ 3547}#
                                                              1)
-                                                           #{ids\ 12401}#))
-                                                       (lambda (#{p\ 12415}#
-                                                                #{ids\ 12416}#)
+                                                           #{ids\ 3548}#))
+                                                       (lambda (#{p\ 3562}#
+                                                                #{ids\ 3563}#)
                                                          (values
-                                                           (if (eq? #{p\ 
12415}#
+                                                           (if (eq? #{p\ 3562}#
                                                                     'any)
                                                              'each-any
                                                              (vector
                                                                'each
-                                                               #{p\ 12415}#))
-                                                           #{ids\ 12416}#))))
-                                                   #{tmp\ 12406}#)
-                                            ((lambda (#{tmp\ 12419}#)
-                                               (if (if #{tmp\ 12419}#
-                                                     (apply (lambda (#{x\ 
12423}#
-                                                                     #{dots\ 
12424}#
-                                                                     #{ys\ 
12425}#)
-                                                              (#{ellipsis?\ 
9177}#
-                                                                #{dots\ 
12424}#))
-                                                            #{tmp\ 12419}#)
+                                                               #{p\ 3562}#))
+                                                           #{ids\ 3563}#))))
+                                                   #{tmp\ 3553}#)
+                                            ((lambda (#{tmp\ 3566}#)
+                                               (if (if #{tmp\ 3566}#
+                                                     (apply (lambda (#{x\ 
3570}#
+                                                                     #{dots\ 
3571}#
+                                                                     #{ys\ 
3572}#)
+                                                              (#{ellipsis?\ 
323}#
+                                                                #{dots\ 
3571}#))
+                                                            #{tmp\ 3566}#)
                                                      #f)
-                                                 (apply (lambda (#{x\ 12429}#
-                                                                 #{dots\ 
12430}#
-                                                                 #{ys\ 12431}#)
+                                                 (apply (lambda (#{x\ 3576}#
+                                                                 #{dots\ 3577}#
+                                                                 #{ys\ 3578}#)
                                                           (call-with-values
                                                             (lambda ()
-                                                              (#{cvt*\ 12396}#
-                                                                #{ys\ 12431}#
-                                                                #{n\ 12400}#
-                                                                #{ids\ 
12401}#))
-                                                            (lambda (#{ys\ 
12433}#
-                                                                     #{ids\ 
12434}#)
+                                                              (#{cvt*\ 3543}#
+                                                                #{ys\ 3578}#
+                                                                #{n\ 3547}#
+                                                                #{ids\ 3548}#))
+                                                            (lambda (#{ys\ 
3580}#
+                                                                     #{ids\ 
3581}#)
                                                               (call-with-values
                                                                 (lambda ()
-                                                                  (#{cvt\ 
12398}#
-                                                                    #{x\ 
12429}#
-                                                                    (+ #{n\ 
12400}#
+                                                                  (#{cvt\ 
3545}#
+                                                                    #{x\ 3576}#
+                                                                    (+ #{n\ 
3547}#
                                                                        1)
-                                                                    #{ids\ 
12434}#))
-                                                                (lambda (#{x\ 
12437}#
-                                                                         
#{ids\ 12438}#)
+                                                                    #{ids\ 
3581}#))
+                                                                (lambda (#{x\ 
3584}#
+                                                                         
#{ids\ 3585}#)
                                                                   (values
                                                                     
(list->vector
                                                                       (cons 
'each+
-                                                                            
(cons #{x\ 12437}#
+                                                                            
(cons #{x\ 3584}#
                                                                                
   (cons (reverse
-                                                                               
           #{ys\ 12433}#)
+                                                                               
           #{ys\ 3580}#)
                                                                                
         '(())))))
-                                                                    #{ids\ 
12438}#))))))
-                                                        #{tmp\ 12419}#)
-                                                 ((lambda (#{tmp\ 12442}#)
-                                                    (if #{tmp\ 12442}#
-                                                      (apply (lambda (#{x\ 
12445}#
-                                                                      #{y\ 
12446}#)
+                                                                    #{ids\ 
3585}#))))))
+                                                        #{tmp\ 3566}#)
+                                                 ((lambda (#{tmp\ 3589}#)
+                                                    (if #{tmp\ 3589}#
+                                                      (apply (lambda (#{x\ 
3592}#
+                                                                      #{y\ 
3593}#)
                                                                
(call-with-values
                                                                  (lambda ()
-                                                                   (#{cvt\ 
12398}#
-                                                                     #{y\ 
12446}#
-                                                                     #{n\ 
12400}#
-                                                                     #{ids\ 
12401}#))
-                                                                 (lambda (#{y\ 
12447}#
-                                                                          
#{ids\ 12448}#)
+                                                                   (#{cvt\ 
3545}#
+                                                                     #{y\ 
3593}#
+                                                                     #{n\ 
3547}#
+                                                                     #{ids\ 
3548}#))
+                                                                 (lambda (#{y\ 
3594}#
+                                                                          
#{ids\ 3595}#)
                                                                    
(call-with-values
                                                                      (lambda ()
-                                                                       (#{cvt\ 
12398}#
-                                                                         #{x\ 
12445}#
-                                                                         #{n\ 
12400}#
-                                                                         
#{ids\ 12448}#))
-                                                                     (lambda 
(#{x\ 12451}#
-                                                                              
#{ids\ 12452}#)
+                                                                       (#{cvt\ 
3545}#
+                                                                         #{x\ 
3592}#
+                                                                         #{n\ 
3547}#
+                                                                         
#{ids\ 3595}#))
+                                                                     (lambda 
(#{x\ 3598}#
+                                                                              
#{ids\ 3599}#)
                                                                        (values
-                                                                         (cons 
#{x\ 12451}#
-                                                                               
#{y\ 12447}#)
-                                                                         
#{ids\ 12452}#))))))
-                                                             #{tmp\ 12442}#)
-                                                      ((lambda (#{tmp\ 12455}#)
-                                                         (if #{tmp\ 12455}#
+                                                                         (cons 
#{x\ 3598}#
+                                                                               
#{y\ 3594}#)
+                                                                         
#{ids\ 3599}#))))))
+                                                             #{tmp\ 3589}#)
+                                                      ((lambda (#{tmp\ 3602}#)
+                                                         (if #{tmp\ 3602}#
                                                            (apply (lambda ()
                                                                     (values
                                                                       '()
-                                                                      #{ids\ 
12401}#))
-                                                                  #{tmp\ 
12455}#)
-                                                           ((lambda (#{tmp\ 
12456}#)
-                                                              (if #{tmp\ 
12456}#
-                                                                (apply (lambda 
(#{x\ 12458}#)
+                                                                      #{ids\ 
3548}#))
+                                                                  #{tmp\ 
3602}#)
+                                                           ((lambda (#{tmp\ 
3603}#)
+                                                              (if #{tmp\ 3603}#
+                                                                (apply (lambda 
(#{x\ 3605}#)
                                                                          
(call-with-values
                                                                            
(lambda ()
-                                                                             
(#{cvt\ 12398}#
-                                                                               
#{x\ 12458}#
-                                                                               
#{n\ 12400}#
-                                                                               
#{ids\ 12401}#))
-                                                                           
(lambda (#{p\ 12460}#
-                                                                               
     #{ids\ 12461}#)
+                                                                             
(#{cvt\ 3545}#
+                                                                               
#{x\ 3605}#
+                                                                               
#{n\ 3547}#
+                                                                               
#{ids\ 3548}#))
+                                                                           
(lambda (#{p\ 3607}#
+                                                                               
     #{ids\ 3608}#)
                                                                              
(values
                                                                                
(vector
                                                                                
  'vector
-                                                                               
  #{p\ 12460}#)
-                                                                               
#{ids\ 12461}#))))
-                                                                       #{tmp\ 
12456}#)
-                                                                ((lambda (#{x\ 
12465}#)
+                                                                               
  #{p\ 3607}#)
+                                                                               
#{ids\ 3608}#))))
+                                                                       #{tmp\ 
3603}#)
+                                                                ((lambda (#{x\ 
3612}#)
                                                                    (values
                                                                      (vector
                                                                        'atom
-                                                                       
(#{strip\ 9187}#
-                                                                         #{p\ 
12399}#
+                                                                       
(#{strip\ 333}#
+                                                                         #{p\ 
3546}#
                                                                          
'(())))
-                                                                     #{ids\ 
12401}#))
-                                                                 #{tmp\ 
12405}#)))
+                                                                     #{ids\ 
3548}#))
+                                                                 #{tmp\ 
3552}#)))
                                                             ($sc-dispatch
-                                                              #{tmp\ 12405}#
+                                                              #{tmp\ 3552}#
                                                               '#(vector
                                                                  each-any)))))
                                                        ($sc-dispatch
-                                                         #{tmp\ 12405}#
+                                                         #{tmp\ 3552}#
                                                          '()))))
                                                   ($sc-dispatch
-                                                    #{tmp\ 12405}#
+                                                    #{tmp\ 3552}#
                                                     '(any . any)))))
                                              ($sc-dispatch
-                                               #{tmp\ 12405}#
+                                               #{tmp\ 3552}#
                                                '(any any . each-any)))))
                                         ($sc-dispatch
-                                          #{tmp\ 12405}#
+                                          #{tmp\ 3552}#
                                           '(any any))))
-                                     #{p\ 12399}#))))
-                              (#{cvt*\ 12396}#
-                                (lambda (#{p*\ 12467}#
-                                         #{n\ 12468}#
-                                         #{ids\ 12469}#)
-                                  (if (null? #{p*\ 12467}#)
-                                    (values (quote ()) #{ids\ 12469}#)
+                                     #{p\ 3546}#))))
+                              (#{cvt*\ 3543}#
+                                (lambda (#{p*\ 3614}#
+                                         #{n\ 3615}#
+                                         #{ids\ 3616}#)
+                                  (if (null? #{p*\ 3614}#)
+                                    (values (quote ()) #{ids\ 3616}#)
                                     (call-with-values
                                       (lambda ()
-                                        (#{cvt*\ 12396}#
-                                          (cdr #{p*\ 12467}#)
-                                          #{n\ 12468}#
-                                          #{ids\ 12469}#))
-                                      (lambda (#{y\ 12473}# #{ids\ 12474}#)
+                                        (#{cvt*\ 3543}#
+                                          (cdr #{p*\ 3614}#)
+                                          #{n\ 3615}#
+                                          #{ids\ 3616}#))
+                                      (lambda (#{y\ 3620}# #{ids\ 3621}#)
                                         (call-with-values
                                           (lambda ()
-                                            (#{cvt\ 12398}#
-                                              (car #{p*\ 12467}#)
-                                              #{n\ 12468}#
-                                              #{ids\ 12474}#))
-                                          (lambda (#{x\ 12477}# #{ids\ 12478}#)
+                                            (#{cvt\ 3545}#
+                                              (car #{p*\ 3614}#)
+                                              #{n\ 3615}#
+                                              #{ids\ 3621}#))
+                                          (lambda (#{x\ 3624}# #{ids\ 3625}#)
                                             (values
-                                              (cons #{x\ 12477}# #{y\ 12473}#)
-                                              #{ids\ 12478}#)))))))))
-                       (#{cvt\ 12398}# #{pattern\ 12391}# 0 (quote ()))))))
-          (lambda (#{e\ 12481}#
-                   #{r\ 12482}#
-                   #{w\ 12483}#
-                   #{s\ 12484}#
-                   #{mod\ 12485}#)
-            (let ((#{e\ 12492}#
-                    (#{source-wrap\ 9147}#
-                      #{e\ 12481}#
-                      #{w\ 12483}#
-                      #{s\ 12484}#
-                      #{mod\ 12485}#)))
-              ((lambda (#{tmp\ 12493}#)
-                 ((lambda (#{tmp\ 12494}#)
-                    (if #{tmp\ 12494}#
-                      (apply (lambda (#{_\ 12499}#
-                                      #{val\ 12500}#
-                                      #{key\ 12501}#
-                                      #{m\ 12502}#)
+                                              (cons #{x\ 3624}# #{y\ 3620}#)
+                                              #{ids\ 3625}#)))))))))
+                       (#{cvt\ 3545}# #{pattern\ 3538}# 0 (quote ()))))))
+          (lambda (#{e\ 3628}#
+                   #{r\ 3629}#
+                   #{w\ 3630}#
+                   #{s\ 3631}#
+                   #{mod\ 3632}#)
+            (let ((#{e\ 3639}#
+                    (#{source-wrap\ 293}#
+                      #{e\ 3628}#
+                      #{w\ 3630}#
+                      #{s\ 3631}#
+                      #{mod\ 3632}#)))
+              ((lambda (#{tmp\ 3640}#)
+                 ((lambda (#{tmp\ 3641}#)
+                    (if #{tmp\ 3641}#
+                      (apply (lambda (#{_\ 3646}#
+                                      #{val\ 3647}#
+                                      #{key\ 3648}#
+                                      #{m\ 3649}#)
                                (if (and-map
-                                     (lambda (#{x\ 12503}#)
-                                       (if (#{id?\ 9076}# #{x\ 12503}#)
-                                         (not (#{ellipsis?\ 9177}#
-                                                #{x\ 12503}#))
+                                     (lambda (#{x\ 3650}#)
+                                       (if (#{id?\ 222}# #{x\ 3650}#)
+                                         (not (#{ellipsis?\ 323}# #{x\ 3650}#))
                                          #f))
-                                     #{key\ 12501}#)
-                                 (let ((#{x\ 12509}#
-                                         (#{gen-var\ 9189}# (quote tmp))))
-                                   (#{build-application\ 8998}#
-                                     #{s\ 12484}#
-                                     (#{build-simple-lambda\ 9018}#
+                                     #{key\ 3648}#)
+                                 (let ((#{x\ 3656}#
+                                         (#{gen-var\ 335}# (quote tmp))))
+                                   (#{build-application\ 144}#
+                                     #{s\ 3631}#
+                                     (#{build-simple-lambda\ 164}#
                                        #f
                                        (list (quote tmp))
                                        #f
-                                       (list #{x\ 12509}#)
+                                       (list #{x\ 3656}#)
                                        '()
-                                       (#{gen-syntax-case\ 12274}#
-                                         (#{build-lexical-reference\ 9004}#
+                                       (#{gen-syntax-case\ 3421}#
+                                         (#{build-lexical-reference\ 150}#
                                            'value
                                            #f
                                            'tmp
-                                           #{x\ 12509}#)
-                                         #{key\ 12501}#
-                                         #{m\ 12502}#
-                                         #{r\ 12482}#
-                                         #{mod\ 12485}#))
-                                     (list (#{chi\ 9161}#
-                                             #{val\ 12500}#
-                                             #{r\ 12482}#
+                                           #{x\ 3656}#)
+                                         #{key\ 3648}#
+                                         #{m\ 3649}#
+                                         #{r\ 3629}#
+                                         #{mod\ 3632}#))
+                                     (list (#{chi\ 307}#
+                                             #{val\ 3647}#
+                                             #{r\ 3629}#
                                              '(())
-                                             #{mod\ 12485}#))))
+                                             #{mod\ 3632}#))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
-                                   #{e\ 12492}#)))
-                             #{tmp\ 12494}#)
+                                   #{e\ 3639}#)))
+                             #{tmp\ 3641}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
-                        #{tmp\ 12493}#)))
+                        #{tmp\ 3640}#)))
                   ($sc-dispatch
-                    #{tmp\ 12493}#
+                    #{tmp\ 3640}#
                     '(any any each-any . each-any))))
-               #{e\ 12492}#)))))
+               #{e\ 3639}#)))))
       (set! macroexpand
-        (lambda (#{x\ 12515}# . #{rest\ 12516}#)
-          (if (if (pair? #{x\ 12515}#)
-                (equal? (car #{x\ 12515}#) #{noexpand\ 8973}#)
+        (lambda (#{x\ 3662}# . #{rest\ 3663}#)
+          (if (if (pair? #{x\ 3662}#)
+                (equal? (car #{x\ 3662}#) #{noexpand\ 119}#)
                 #f)
-            (cadr #{x\ 12515}#)
-            (let ((#{m\ 12523}#
-                    (if (null? #{rest\ 12516}#)
+            (cadr #{x\ 3662}#)
+            (let ((#{m\ 3670}#
+                    (if (null? #{rest\ 3663}#)
                       'e
-                      (car #{rest\ 12516}#)))
-                  (#{esew\ 12524}#
-                    (if (let ((#{t\ 12527}# (null? #{rest\ 12516}#)))
-                          (if #{t\ 12527}#
-                            #{t\ 12527}#
-                            (null? (cdr #{rest\ 12516}#))))
+                      (car #{rest\ 3663}#)))
+                  (#{esew\ 3671}#
+                    (if (let ((#{t\ 3674}# (null? #{rest\ 3663}#)))
+                          (if #{t\ 3674}#
+                            #{t\ 3674}#
+                            (null? (cdr #{rest\ 3663}#))))
                       '(eval)
-                      (cadr #{rest\ 12516}#))))
+                      (cadr #{rest\ 3663}#))))
               (with-fluids
-                ((#{*mode*\ 8975}# #{m\ 12523}#))
-                (#{chi-top\ 9159}#
-                  #{x\ 12515}#
+                ((#{*mode*\ 121}# #{m\ 3670}#))
+                (#{chi-top\ 305}#
+                  #{x\ 3662}#
                   '()
                   '((top))
-                  #{m\ 12523}#
-                  #{esew\ 12524}#
+                  #{m\ 3670}#
+                  #{esew\ 3671}#
                   (cons 'hygiene
                         (module-name (current-module)))))))))
       (set! identifier?
-        (lambda (#{x\ 12531}#)
-          (#{nonsymbol-id?\ 9074}# #{x\ 12531}#)))
+        (lambda (#{x\ 3678}#)
+          (#{nonsymbol-id?\ 220}# #{x\ 3678}#)))
       (set! datum->syntax
-        (lambda (#{id\ 12533}# #{datum\ 12534}#)
-          (#{make-syntax-object\ 9038}#
-            #{datum\ 12534}#
-            (#{syntax-object-wrap\ 9044}# #{id\ 12533}#)
+        (lambda (#{id\ 3680}# #{datum\ 3681}#)
+          (#{make-syntax-object\ 184}#
+            #{datum\ 3681}#
+            (#{syntax-object-wrap\ 190}# #{id\ 3680}#)
             #f)))
       (set! syntax->datum
-        (lambda (#{x\ 12537}#)
-          (#{strip\ 9187}# #{x\ 12537}# (quote (())))))
+        (lambda (#{x\ 3684}#)
+          (#{strip\ 333}# #{x\ 3684}# (quote (())))))
       (set! generate-temporaries
-        (lambda (#{ls\ 12540}#)
+        (lambda (#{ls\ 3687}#)
           (begin
-            (let ((#{x\ 12544}# #{ls\ 12540}#))
-              (if (not (list? #{x\ 12544}#))
+            (let ((#{x\ 3691}# #{ls\ 3687}#))
+              (if (not (list? #{x\ 3691}#))
                 (syntax-violation
                   'generate-temporaries
                   "invalid argument"
-                  #{x\ 12544}#)))
-            (map (lambda (#{x\ 12545}#)
-                   (#{wrap\ 9145}# (gensym) (quote ((top))) #f))
-                 #{ls\ 12540}#))))
+                  #{x\ 3691}#)))
+            (map (lambda (#{x\ 3692}#)
+                   (#{wrap\ 291}# (gensym) (quote ((top))) #f))
+                 #{ls\ 3687}#))))
       (set! free-identifier=?
-        (lambda (#{x\ 12549}# #{y\ 12550}#)
+        (lambda (#{x\ 3696}# #{y\ 3697}#)
           (begin
-            (let ((#{x\ 12555}# #{x\ 12549}#))
-              (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12555}#))
+            (let ((#{x\ 3702}# #{x\ 3696}#))
+              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3702}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 12555}#)))
-            (let ((#{x\ 12558}# #{y\ 12550}#))
-              (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12558}#))
+                  #{x\ 3702}#)))
+            (let ((#{x\ 3705}# #{y\ 3697}#))
+              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3705}#))
                 (syntax-violation
                   'free-identifier=?
                   "invalid argument"
-                  #{x\ 12558}#)))
-            (#{free-id=?\ 9135}# #{x\ 12549}# #{y\ 12550}#))))
+                  #{x\ 3705}#)))
+            (#{free-id=?\ 281}# #{x\ 3696}# #{y\ 3697}#))))
       (set! bound-identifier=?
-        (lambda (#{x\ 12559}# #{y\ 12560}#)
+        (lambda (#{x\ 3706}# #{y\ 3707}#)
           (begin
-            (let ((#{x\ 12565}# #{x\ 12559}#))
-              (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12565}#))
+            (let ((#{x\ 3712}# #{x\ 3706}#))
+              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3712}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 12565}#)))
-            (let ((#{x\ 12568}# #{y\ 12560}#))
-              (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12568}#))
+                  #{x\ 3712}#)))
+            (let ((#{x\ 3715}# #{y\ 3707}#))
+              (if (not (#{nonsymbol-id?\ 220}# #{x\ 3715}#))
                 (syntax-violation
                   'bound-identifier=?
                   "invalid argument"
-                  #{x\ 12568}#)))
-            (#{bound-id=?\ 9137}# #{x\ 12559}# #{y\ 12560}#))))
+                  #{x\ 3715}#)))
+            (#{bound-id=?\ 283}# #{x\ 3706}# #{y\ 3707}#))))
       (set! syntax-violation
-        (lambda (#{who\ 12569}#
-                 #{message\ 12570}#
-                 #{form\ 12571}#
+        (lambda (#{who\ 3716}#
+                 #{message\ 3717}#
+                 #{form\ 3718}#
                  .
-                 #{subform\ 12572}#)
+                 #{subform\ 3719}#)
           (begin
-            (let ((#{x\ 12579}# #{who\ 12569}#))
-              (if (not ((lambda (#{x\ 12580}#)
-                          (let ((#{t\ 12584}# (not #{x\ 12580}#)))
-                            (if #{t\ 12584}#
-                              #{t\ 12584}#
-                              (let ((#{t\ 12587}# (string? #{x\ 12580}#)))
-                                (if #{t\ 12587}#
-                                  #{t\ 12587}#
-                                  (symbol? #{x\ 12580}#))))))
-                        #{x\ 12579}#))
+            (let ((#{x\ 3726}# #{who\ 3716}#))
+              (if (not ((lambda (#{x\ 3727}#)
+                          (let ((#{t\ 3731}# (not #{x\ 3727}#)))
+                            (if #{t\ 3731}#
+                              #{t\ 3731}#
+                              (let ((#{t\ 3734}# (string? #{x\ 3727}#)))
+                                (if #{t\ 3734}#
+                                  #{t\ 3734}#
+                                  (symbol? #{x\ 3727}#))))))
+                        #{x\ 3726}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 12579}#)))
-            (let ((#{x\ 12591}# #{message\ 12570}#))
-              (if (not (string? #{x\ 12591}#))
+                  #{x\ 3726}#)))
+            (let ((#{x\ 3738}# #{message\ 3717}#))
+              (if (not (string? #{x\ 3738}#))
                 (syntax-violation
                   'syntax-violation
                   "invalid argument"
-                  #{x\ 12591}#)))
+                  #{x\ 3738}#)))
             (scm-error
               'syntax-error
               'macroexpand
               (string-append
-                (if #{who\ 12569}# "~a: " "")
+                (if #{who\ 3716}# "~a: " "")
                 "~a "
-                (if (null? #{subform\ 12572}#)
+                (if (null? #{subform\ 3719}#)
                   "in ~a"
                   "in subform `~s' of `~s'"))
-              (let ((#{tail\ 12593}#
-                      (cons #{message\ 12570}#
-                            (map (lambda (#{x\ 12594}#)
-                                   (#{strip\ 9187}# #{x\ 12594}# (quote (()))))
+              (let ((#{tail\ 3740}#
+                      (cons #{message\ 3717}#
+                            (map (lambda (#{x\ 3741}#)
+                                   (#{strip\ 333}# #{x\ 3741}# (quote (()))))
                                  (append
-                                   #{subform\ 12572}#
-                                   (list #{form\ 12571}#))))))
-                (if #{who\ 12569}#
-                  (cons #{who\ 12569}# #{tail\ 12593}#)
-                  #{tail\ 12593}#))
+                                   #{subform\ 3719}#
+                                   (list #{form\ 3718}#))))))
+                (if #{who\ 3716}#
+                  (cons #{who\ 3716}# #{tail\ 3740}#)
+                  #{tail\ 3740}#))
               #f))))
-      (letrec ((#{match\ 12610}#
-                 (lambda (#{e\ 12611}#
-                          #{p\ 12612}#
-                          #{w\ 12613}#
-                          #{r\ 12614}#
-                          #{mod\ 12615}#)
-                   (if (not #{r\ 12614}#)
+      (letrec ((#{match\ 3757}#
+                 (lambda (#{e\ 3758}#
+                          #{p\ 3759}#
+                          #{w\ 3760}#
+                          #{r\ 3761}#
+                          #{mod\ 3762}#)
+                   (if (not #{r\ 3761}#)
                      #f
-                     (if (eq? #{p\ 12612}# (quote any))
-                       (cons (#{wrap\ 9145}#
-                               #{e\ 12611}#
-                               #{w\ 12613}#
-                               #{mod\ 12615}#)
-                             #{r\ 12614}#)
-                       (if (#{syntax-object?\ 9040}# #{e\ 12611}#)
-                         (#{match*\ 12608}#
-                           (#{syntax-object-expression\ 9042}# #{e\ 12611}#)
-                           #{p\ 12612}#
-                           (#{join-wraps\ 9127}#
-                             #{w\ 12613}#
-                             (#{syntax-object-wrap\ 9044}# #{e\ 12611}#))
-                           #{r\ 12614}#
-                           (#{syntax-object-module\ 9046}# #{e\ 12611}#))
-                         (#{match*\ 12608}#
-                           #{e\ 12611}#
-                           #{p\ 12612}#
-                           #{w\ 12613}#
-                           #{r\ 12614}#
-                           #{mod\ 12615}#))))))
-               (#{match*\ 12608}#
-                 (lambda (#{e\ 12628}#
-                          #{p\ 12629}#
-                          #{w\ 12630}#
-                          #{r\ 12631}#
-                          #{mod\ 12632}#)
-                   (if (null? #{p\ 12629}#)
-                     (if (null? #{e\ 12628}#) #{r\ 12631}# #f)
-                     (if (pair? #{p\ 12629}#)
-                       (if (pair? #{e\ 12628}#)
-                         (#{match\ 12610}#
-                           (car #{e\ 12628}#)
-                           (car #{p\ 12629}#)
-                           #{w\ 12630}#
-                           (#{match\ 12610}#
-                             (cdr #{e\ 12628}#)
-                             (cdr #{p\ 12629}#)
-                             #{w\ 12630}#
-                             #{r\ 12631}#
-                             #{mod\ 12632}#)
-                           #{mod\ 12632}#)
+                     (if (eq? #{p\ 3759}# (quote any))
+                       (cons (#{wrap\ 291}#
+                               #{e\ 3758}#
+                               #{w\ 3760}#
+                               #{mod\ 3762}#)
+                             #{r\ 3761}#)
+                       (if (#{syntax-object?\ 186}# #{e\ 3758}#)
+                         (#{match*\ 3755}#
+                           (#{syntax-object-expression\ 188}# #{e\ 3758}#)
+                           #{p\ 3759}#
+                           (#{join-wraps\ 273}#
+                             #{w\ 3760}#
+                             (#{syntax-object-wrap\ 190}# #{e\ 3758}#))
+                           #{r\ 3761}#
+                           (#{syntax-object-module\ 192}# #{e\ 3758}#))
+                         (#{match*\ 3755}#
+                           #{e\ 3758}#
+                           #{p\ 3759}#
+                           #{w\ 3760}#
+                           #{r\ 3761}#
+                           #{mod\ 3762}#))))))
+               (#{match*\ 3755}#
+                 (lambda (#{e\ 3775}#
+                          #{p\ 3776}#
+                          #{w\ 3777}#
+                          #{r\ 3778}#
+                          #{mod\ 3779}#)
+                   (if (null? #{p\ 3776}#)
+                     (if (null? #{e\ 3775}#) #{r\ 3778}# #f)
+                     (if (pair? #{p\ 3776}#)
+                       (if (pair? #{e\ 3775}#)
+                         (#{match\ 3757}#
+                           (car #{e\ 3775}#)
+                           (car #{p\ 3776}#)
+                           #{w\ 3777}#
+                           (#{match\ 3757}#
+                             (cdr #{e\ 3775}#)
+                             (cdr #{p\ 3776}#)
+                             #{w\ 3777}#
+                             #{r\ 3778}#
+                             #{mod\ 3779}#)
+                           #{mod\ 3779}#)
                          #f)
-                       (if (eq? #{p\ 12629}# (quote each-any))
-                         (let ((#{l\ 12649}#
-                                 (#{match-each-any\ 12602}#
-                                   #{e\ 12628}#
-                                   #{w\ 12630}#
-                                   #{mod\ 12632}#)))
-                           (if #{l\ 12649}#
-                             (cons #{l\ 12649}# #{r\ 12631}#)
+                       (if (eq? #{p\ 3776}# (quote each-any))
+                         (let ((#{l\ 3796}#
+                                 (#{match-each-any\ 3749}#
+                                   #{e\ 3775}#
+                                   #{w\ 3777}#
+                                   #{mod\ 3779}#)))
+                           (if #{l\ 3796}#
+                             (cons #{l\ 3796}# #{r\ 3778}#)
                              #f))
-                         (let ((#{atom-key\ 12655}#
-                                 (vector-ref #{p\ 12629}# 0)))
-                           (if (memv #{atom-key\ 12655}# (quote (each)))
-                             (if (null? #{e\ 12628}#)
-                               (#{match-empty\ 12604}#
-                                 (vector-ref #{p\ 12629}# 1)
-                                 #{r\ 12631}#)
-                               (let ((#{l\ 12658}#
-                                       (#{match-each\ 12598}#
-                                         #{e\ 12628}#
-                                         (vector-ref #{p\ 12629}# 1)
-                                         #{w\ 12630}#
-                                         #{mod\ 12632}#)))
-                                 (if #{l\ 12658}#
-                                   (letrec ((#{collect\ 12663}#
-                                              (lambda (#{l\ 12664}#)
-                                                (if (null? (car #{l\ 12664}#))
-                                                  #{r\ 12631}#
-                                                  (cons (map car #{l\ 12664}#)
-                                                        (#{collect\ 12663}#
+                         (let ((#{atom-key\ 3802}# (vector-ref #{p\ 3776}# 0)))
+                           (if (memv #{atom-key\ 3802}# (quote (each)))
+                             (if (null? #{e\ 3775}#)
+                               (#{match-empty\ 3751}#
+                                 (vector-ref #{p\ 3776}# 1)
+                                 #{r\ 3778}#)
+                               (let ((#{l\ 3805}#
+                                       (#{match-each\ 3745}#
+                                         #{e\ 3775}#
+                                         (vector-ref #{p\ 3776}# 1)
+                                         #{w\ 3777}#
+                                         #{mod\ 3779}#)))
+                                 (if #{l\ 3805}#
+                                   (letrec ((#{collect\ 3810}#
+                                              (lambda (#{l\ 3811}#)
+                                                (if (null? (car #{l\ 3811}#))
+                                                  #{r\ 3778}#
+                                                  (cons (map car #{l\ 3811}#)
+                                                        (#{collect\ 3810}#
                                                           (map cdr
-                                                               #{l\ 
12664}#)))))))
-                                     (#{collect\ 12663}# #{l\ 12658}#))
+                                                               #{l\ 
3811}#)))))))
+                                     (#{collect\ 3810}# #{l\ 3805}#))
                                    #f)))
-                             (if (memv #{atom-key\ 12655}# (quote (each+)))
+                             (if (memv #{atom-key\ 3802}# (quote (each+)))
                                (call-with-values
                                  (lambda ()
-                                   (#{match-each+\ 12600}#
-                                     #{e\ 12628}#
-                                     (vector-ref #{p\ 12629}# 1)
-                                     (vector-ref #{p\ 12629}# 2)
-                                     (vector-ref #{p\ 12629}# 3)
-                                     #{w\ 12630}#
-                                     #{r\ 12631}#
-                                     #{mod\ 12632}#))
-                                 (lambda (#{xr*\ 12666}#
-                                          #{y-pat\ 12667}#
-                                          #{r\ 12668}#)
-                                   (if #{r\ 12668}#
-                                     (if (null? #{y-pat\ 12667}#)
-                                       (if (null? #{xr*\ 12666}#)
-                                         (#{match-empty\ 12604}#
-                                           (vector-ref #{p\ 12629}# 1)
-                                           #{r\ 12668}#)
-                                         (#{combine\ 12606}#
-                                           #{xr*\ 12666}#
-                                           #{r\ 12668}#))
+                                   (#{match-each+\ 3747}#
+                                     #{e\ 3775}#
+                                     (vector-ref #{p\ 3776}# 1)
+                                     (vector-ref #{p\ 3776}# 2)
+                                     (vector-ref #{p\ 3776}# 3)
+                                     #{w\ 3777}#
+                                     #{r\ 3778}#
+                                     #{mod\ 3779}#))
+                                 (lambda (#{xr*\ 3813}#
+                                          #{y-pat\ 3814}#
+                                          #{r\ 3815}#)
+                                   (if #{r\ 3815}#
+                                     (if (null? #{y-pat\ 3814}#)
+                                       (if (null? #{xr*\ 3813}#)
+                                         (#{match-empty\ 3751}#
+                                           (vector-ref #{p\ 3776}# 1)
+                                           #{r\ 3815}#)
+                                         (#{combine\ 3753}#
+                                           #{xr*\ 3813}#
+                                           #{r\ 3815}#))
                                        #f)
                                      #f)))
-                               (if (memv #{atom-key\ 12655}# (quote (free-id)))
-                                 (if (#{id?\ 9076}# #{e\ 12628}#)
-                                   (if (#{free-id=?\ 9135}#
-                                         (#{wrap\ 9145}#
-                                           #{e\ 12628}#
-                                           #{w\ 12630}#
-                                           #{mod\ 12632}#)
-                                         (vector-ref #{p\ 12629}# 1))
-                                     #{r\ 12631}#
+                               (if (memv #{atom-key\ 3802}# (quote (free-id)))
+                                 (if (#{id?\ 222}# #{e\ 3775}#)
+                                   (if (#{free-id=?\ 281}#
+                                         (#{wrap\ 291}#
+                                           #{e\ 3775}#
+                                           #{w\ 3777}#
+                                           #{mod\ 3779}#)
+                                         (vector-ref #{p\ 3776}# 1))
+                                     #{r\ 3778}#
                                      #f)
                                    #f)
-                                 (if (memv #{atom-key\ 12655}# (quote (atom)))
+                                 (if (memv #{atom-key\ 3802}# (quote (atom)))
                                    (if (equal?
-                                         (vector-ref #{p\ 12629}# 1)
-                                         (#{strip\ 9187}#
-                                           #{e\ 12628}#
-                                           #{w\ 12630}#))
-                                     #{r\ 12631}#
+                                         (vector-ref #{p\ 3776}# 1)
+                                         (#{strip\ 333}#
+                                           #{e\ 3775}#
+                                           #{w\ 3777}#))
+                                     #{r\ 3778}#
                                      #f)
-                                   (if (memv #{atom-key\ 12655}#
+                                   (if (memv #{atom-key\ 3802}#
                                              '(vector))
-                                     (if (vector? #{e\ 12628}#)
-                                       (#{match\ 12610}#
-                                         (vector->list #{e\ 12628}#)
-                                         (vector-ref #{p\ 12629}# 1)
-                                         #{w\ 12630}#
-                                         #{r\ 12631}#
-                                         #{mod\ 12632}#)
+                                     (if (vector? #{e\ 3775}#)
+                                       (#{match\ 3757}#
+                                         (vector->list #{e\ 3775}#)
+                                         (vector-ref #{p\ 3776}# 1)
+                                         #{w\ 3777}#
+                                         #{r\ 3778}#
+                                         #{mod\ 3779}#)
                                        #f))))))))))))
-               (#{combine\ 12606}#
-                 (lambda (#{r*\ 12685}# #{r\ 12686}#)
-                   (if (null? (car #{r*\ 12685}#))
-                     #{r\ 12686}#
-                     (cons (map car #{r*\ 12685}#)
-                           (#{combine\ 12606}#
-                             (map cdr #{r*\ 12685}#)
-                             #{r\ 12686}#)))))
-               (#{match-empty\ 12604}#
-                 (lambda (#{p\ 12689}# #{r\ 12690}#)
-                   (if (null? #{p\ 12689}#)
-                     #{r\ 12690}#
-                     (if (eq? #{p\ 12689}# (quote any))
-                       (cons (quote ()) #{r\ 12690}#)
-                       (if (pair? #{p\ 12689}#)
-                         (#{match-empty\ 12604}#
-                           (car #{p\ 12689}#)
-                           (#{match-empty\ 12604}#
-                             (cdr #{p\ 12689}#)
-                             #{r\ 12690}#))
-                         (if (eq? #{p\ 12689}# (quote each-any))
-                           (cons (quote ()) #{r\ 12690}#)
-                           (let ((#{atom-key\ 12704}#
-                                   (vector-ref #{p\ 12689}# 0)))
-                             (if (memv #{atom-key\ 12704}# (quote (each)))
-                               (#{match-empty\ 12604}#
-                                 (vector-ref #{p\ 12689}# 1)
-                                 #{r\ 12690}#)
-                               (if (memv #{atom-key\ 12704}# (quote (each+)))
-                                 (#{match-empty\ 12604}#
-                                   (vector-ref #{p\ 12689}# 1)
-                                   (#{match-empty\ 12604}#
-                                     (reverse (vector-ref #{p\ 12689}# 2))
-                                     (#{match-empty\ 12604}#
-                                       (vector-ref #{p\ 12689}# 3)
-                                       #{r\ 12690}#)))
-                                 (if (memv #{atom-key\ 12704}#
+               (#{combine\ 3753}#
+                 (lambda (#{r*\ 3832}# #{r\ 3833}#)
+                   (if (null? (car #{r*\ 3832}#))
+                     #{r\ 3833}#
+                     (cons (map car #{r*\ 3832}#)
+                           (#{combine\ 3753}#
+                             (map cdr #{r*\ 3832}#)
+                             #{r\ 3833}#)))))
+               (#{match-empty\ 3751}#
+                 (lambda (#{p\ 3836}# #{r\ 3837}#)
+                   (if (null? #{p\ 3836}#)
+                     #{r\ 3837}#
+                     (if (eq? #{p\ 3836}# (quote any))
+                       (cons (quote ()) #{r\ 3837}#)
+                       (if (pair? #{p\ 3836}#)
+                         (#{match-empty\ 3751}#
+                           (car #{p\ 3836}#)
+                           (#{match-empty\ 3751}#
+                             (cdr #{p\ 3836}#)
+                             #{r\ 3837}#))
+                         (if (eq? #{p\ 3836}# (quote each-any))
+                           (cons (quote ()) #{r\ 3837}#)
+                           (let ((#{atom-key\ 3851}#
+                                   (vector-ref #{p\ 3836}# 0)))
+                             (if (memv #{atom-key\ 3851}# (quote (each)))
+                               (#{match-empty\ 3751}#
+                                 (vector-ref #{p\ 3836}# 1)
+                                 #{r\ 3837}#)
+                               (if (memv #{atom-key\ 3851}# (quote (each+)))
+                                 (#{match-empty\ 3751}#
+                                   (vector-ref #{p\ 3836}# 1)
+                                   (#{match-empty\ 3751}#
+                                     (reverse (vector-ref #{p\ 3836}# 2))
+                                     (#{match-empty\ 3751}#
+                                       (vector-ref #{p\ 3836}# 3)
+                                       #{r\ 3837}#)))
+                                 (if (memv #{atom-key\ 3851}#
                                            '(free-id atom))
-                                   #{r\ 12690}#
-                                   (if (memv #{atom-key\ 12704}#
+                                   #{r\ 3837}#
+                                   (if (memv #{atom-key\ 3851}#
                                              '(vector))
-                                     (#{match-empty\ 12604}#
-                                       (vector-ref #{p\ 12689}# 1)
-                                       #{r\ 12690}#))))))))))))
-               (#{match-each-any\ 12602}#
-                 (lambda (#{e\ 12709}# #{w\ 12710}# #{mod\ 12711}#)
-                   (if (pair? #{e\ 12709}#)
-                     (let ((#{l\ 12718}#
-                             (#{match-each-any\ 12602}#
-                               (cdr #{e\ 12709}#)
-                               #{w\ 12710}#
-                               #{mod\ 12711}#)))
-                       (if #{l\ 12718}#
-                         (cons (#{wrap\ 9145}#
-                                 (car #{e\ 12709}#)
-                                 #{w\ 12710}#
-                                 #{mod\ 12711}#)
-                               #{l\ 12718}#)
+                                     (#{match-empty\ 3751}#
+                                       (vector-ref #{p\ 3836}# 1)
+                                       #{r\ 3837}#))))))))))))
+               (#{match-each-any\ 3749}#
+                 (lambda (#{e\ 3856}# #{w\ 3857}# #{mod\ 3858}#)
+                   (if (pair? #{e\ 3856}#)
+                     (let ((#{l\ 3865}#
+                             (#{match-each-any\ 3749}#
+                               (cdr #{e\ 3856}#)
+                               #{w\ 3857}#
+                               #{mod\ 3858}#)))
+                       (if #{l\ 3865}#
+                         (cons (#{wrap\ 291}#
+                                 (car #{e\ 3856}#)
+                                 #{w\ 3857}#
+                                 #{mod\ 3858}#)
+                               #{l\ 3865}#)
                          #f))
-                     (if (null? #{e\ 12709}#)
+                     (if (null? #{e\ 3856}#)
                        '()
-                       (if (#{syntax-object?\ 9040}# #{e\ 12709}#)
-                         (#{match-each-any\ 12602}#
-                           (#{syntax-object-expression\ 9042}# #{e\ 12709}#)
-                           (#{join-wraps\ 9127}#
-                             #{w\ 12710}#
-                             (#{syntax-object-wrap\ 9044}# #{e\ 12709}#))
-                           #{mod\ 12711}#)
+                       (if (#{syntax-object?\ 186}# #{e\ 3856}#)
+                         (#{match-each-any\ 3749}#
+                           (#{syntax-object-expression\ 188}# #{e\ 3856}#)
+                           (#{join-wraps\ 273}#
+                             #{w\ 3857}#
+                             (#{syntax-object-wrap\ 190}# #{e\ 3856}#))
+                           #{mod\ 3858}#)
                          #f)))))
-               (#{match-each+\ 12600}#
-                 (lambda (#{e\ 12726}#
-                          #{x-pat\ 12727}#
-                          #{y-pat\ 12728}#
-                          #{z-pat\ 12729}#
-                          #{w\ 12730}#
-                          #{r\ 12731}#
-                          #{mod\ 12732}#)
-                   (letrec ((#{f\ 12743}#
-                              (lambda (#{e\ 12744}# #{w\ 12745}#)
-                                (if (pair? #{e\ 12744}#)
+               (#{match-each+\ 3747}#
+                 (lambda (#{e\ 3873}#
+                          #{x-pat\ 3874}#
+                          #{y-pat\ 3875}#
+                          #{z-pat\ 3876}#
+                          #{w\ 3877}#
+                          #{r\ 3878}#
+                          #{mod\ 3879}#)
+                   (letrec ((#{f\ 3890}#
+                              (lambda (#{e\ 3891}# #{w\ 3892}#)
+                                (if (pair? #{e\ 3891}#)
                                   (call-with-values
                                     (lambda ()
-                                      (#{f\ 12743}#
-                                        (cdr #{e\ 12744}#)
-                                        #{w\ 12745}#))
-                                    (lambda (#{xr*\ 12748}#
-                                             #{y-pat\ 12749}#
-                                             #{r\ 12750}#)
-                                      (if #{r\ 12750}#
-                                        (if (null? #{y-pat\ 12749}#)
-                                          (let ((#{xr\ 12755}#
-                                                  (#{match\ 12610}#
-                                                    (car #{e\ 12744}#)
-                                                    #{x-pat\ 12727}#
-                                                    #{w\ 12745}#
+                                      (#{f\ 3890}#
+                                        (cdr #{e\ 3891}#)
+                                        #{w\ 3892}#))
+                                    (lambda (#{xr*\ 3895}#
+                                             #{y-pat\ 3896}#
+                                             #{r\ 3897}#)
+                                      (if #{r\ 3897}#
+                                        (if (null? #{y-pat\ 3896}#)
+                                          (let ((#{xr\ 3902}#
+                                                  (#{match\ 3757}#
+                                                    (car #{e\ 3891}#)
+                                                    #{x-pat\ 3874}#
+                                                    #{w\ 3892}#
                                                     '()
-                                                    #{mod\ 12732}#)))
-                                            (if #{xr\ 12755}#
+                                                    #{mod\ 3879}#)))
+                                            (if #{xr\ 3902}#
                                               (values
-                                                (cons #{xr\ 12755}#
-                                                      #{xr*\ 12748}#)
-                                                #{y-pat\ 12749}#
-                                                #{r\ 12750}#)
+                                                (cons #{xr\ 3902}#
+                                                      #{xr*\ 3895}#)
+                                                #{y-pat\ 3896}#
+                                                #{r\ 3897}#)
                                               (values #f #f #f)))
                                           (values
                                             '()
-                                            (cdr #{y-pat\ 12749}#)
-                                            (#{match\ 12610}#
-                                              (car #{e\ 12744}#)
-                                              (car #{y-pat\ 12749}#)
-                                              #{w\ 12745}#
-                                              #{r\ 12750}#
-                                              #{mod\ 12732}#)))
+                                            (cdr #{y-pat\ 3896}#)
+                                            (#{match\ 3757}#
+                                              (car #{e\ 3891}#)
+                                              (car #{y-pat\ 3896}#)
+                                              #{w\ 3892}#
+                                              #{r\ 3897}#
+                                              #{mod\ 3879}#)))
                                         (values #f #f #f))))
-                                  (if (#{syntax-object?\ 9040}# #{e\ 12744}#)
-                                    (#{f\ 12743}#
-                                      (#{syntax-object-expression\ 9042}#
-                                        #{e\ 12744}#)
-                                      (#{join-wraps\ 9127}#
-                                        #{w\ 12745}#
-                                        #{e\ 12744}#))
+                                  (if (#{syntax-object?\ 186}# #{e\ 3891}#)
+                                    (#{f\ 3890}#
+                                      (#{syntax-object-expression\ 188}#
+                                        #{e\ 3891}#)
+                                      (#{join-wraps\ 273}#
+                                        #{w\ 3892}#
+                                        #{e\ 3891}#))
                                     (values
                                       '()
-                                      #{y-pat\ 12728}#
-                                      (#{match\ 12610}#
-                                        #{e\ 12744}#
-                                        #{z-pat\ 12729}#
-                                        #{w\ 12745}#
-                                        #{r\ 12731}#
-                                        #{mod\ 12732}#)))))))
-                     (#{f\ 12743}# #{e\ 12726}# #{w\ 12730}#))))
-               (#{match-each\ 12598}#
-                 (lambda (#{e\ 12759}#
-                          #{p\ 12760}#
-                          #{w\ 12761}#
-                          #{mod\ 12762}#)
-                   (if (pair? #{e\ 12759}#)
-                     (let ((#{first\ 12770}#
-                             (#{match\ 12610}#
-                               (car #{e\ 12759}#)
-                               #{p\ 12760}#
-                               #{w\ 12761}#
+                                      #{y-pat\ 3875}#
+                                      (#{match\ 3757}#
+                                        #{e\ 3891}#
+                                        #{z-pat\ 3876}#
+                                        #{w\ 3892}#
+                                        #{r\ 3878}#
+                                        #{mod\ 3879}#)))))))
+                     (#{f\ 3890}# #{e\ 3873}# #{w\ 3877}#))))
+               (#{match-each\ 3745}#
+                 (lambda (#{e\ 3906}#
+                          #{p\ 3907}#
+                          #{w\ 3908}#
+                          #{mod\ 3909}#)
+                   (if (pair? #{e\ 3906}#)
+                     (let ((#{first\ 3917}#
+                             (#{match\ 3757}#
+                               (car #{e\ 3906}#)
+                               #{p\ 3907}#
+                               #{w\ 3908}#
                                '()
-                               #{mod\ 12762}#)))
-                       (if #{first\ 12770}#
-                         (let ((#{rest\ 12774}#
-                                 (#{match-each\ 12598}#
-                                   (cdr #{e\ 12759}#)
-                                   #{p\ 12760}#
-                                   #{w\ 12761}#
-                                   #{mod\ 12762}#)))
-                           (if #{rest\ 12774}#
-                             (cons #{first\ 12770}# #{rest\ 12774}#)
+                               #{mod\ 3909}#)))
+                       (if #{first\ 3917}#
+                         (let ((#{rest\ 3921}#
+                                 (#{match-each\ 3745}#
+                                   (cdr #{e\ 3906}#)
+                                   #{p\ 3907}#
+                                   #{w\ 3908}#
+                                   #{mod\ 3909}#)))
+                           (if #{rest\ 3921}#
+                             (cons #{first\ 3917}# #{rest\ 3921}#)
                              #f))
                          #f))
-                     (if (null? #{e\ 12759}#)
+                     (if (null? #{e\ 3906}#)
                        '()
-                       (if (#{syntax-object?\ 9040}# #{e\ 12759}#)
-                         (#{match-each\ 12598}#
-                           (#{syntax-object-expression\ 9042}# #{e\ 12759}#)
-                           #{p\ 12760}#
-                           (#{join-wraps\ 9127}#
-                             #{w\ 12761}#
-                             (#{syntax-object-wrap\ 9044}# #{e\ 12759}#))
-                           (#{syntax-object-module\ 9046}# #{e\ 12759}#))
+                       (if (#{syntax-object?\ 186}# #{e\ 3906}#)
+                         (#{match-each\ 3745}#
+                           (#{syntax-object-expression\ 188}# #{e\ 3906}#)
+                           #{p\ 3907}#
+                           (#{join-wraps\ 273}#
+                             #{w\ 3908}#
+                             (#{syntax-object-wrap\ 190}# #{e\ 3906}#))
+                           (#{syntax-object-module\ 192}# #{e\ 3906}#))
                          #f))))))
         (set! $sc-dispatch
-          (lambda (#{e\ 12782}# #{p\ 12783}#)
-            (if (eq? #{p\ 12783}# (quote any))
-              (list #{e\ 12782}#)
-              (if (#{syntax-object?\ 9040}# #{e\ 12782}#)
-                (#{match*\ 12608}#
-                  (#{syntax-object-expression\ 9042}# #{e\ 12782}#)
-                  #{p\ 12783}#
-                  (#{syntax-object-wrap\ 9044}# #{e\ 12782}#)
+          (lambda (#{e\ 3929}# #{p\ 3930}#)
+            (if (eq? #{p\ 3930}# (quote any))
+              (list #{e\ 3929}#)
+              (if (#{syntax-object?\ 186}# #{e\ 3929}#)
+                (#{match*\ 3755}#
+                  (#{syntax-object-expression\ 188}# #{e\ 3929}#)
+                  #{p\ 3930}#
+                  (#{syntax-object-wrap\ 190}# #{e\ 3929}#)
                   '()
-                  (#{syntax-object-module\ 9046}# #{e\ 12782}#))
-                (#{match*\ 12608}#
-                  #{e\ 12782}#
-                  #{p\ 12783}#
+                  (#{syntax-object-module\ 192}# #{e\ 3929}#))
+                (#{match*\ 3755}#
+                  #{e\ 3929}#
+                  #{p\ 3930}#
                   '(())
                   '()
                   #f)))))))))
@@ -11748,50 +11659,50 @@
   (make-syntax-transformer
     'with-syntax
     'macro
-    (cons (lambda (#{x\ 12792}#)
-            ((lambda (#{tmp\ 12794}#)
-               ((lambda (#{tmp\ 12795}#)
-                  (if #{tmp\ 12795}#
-                    (apply (lambda (#{_\ 12799}# #{e1\ 12800}# #{e2\ 12801}#)
+    (cons (lambda (#{x\ 3939}#)
+            ((lambda (#{tmp\ 3941}#)
+               ((lambda (#{tmp\ 3942}#)
+                  (if #{tmp\ 3942}#
+                    (apply (lambda (#{_\ 3946}# #{e1\ 3947}# #{e2\ 3948}#)
                              (cons '#(syntax-object
                                       begin
                                       ((top)
                                        #(ribcage
                                          #(_ e1 e2)
                                          #((top) (top) (top))
-                                         #("i12796" "i12797" "i12798"))
+                                         #("i3943" "i3944" "i3945"))
                                        #(ribcage () () ())
-                                       #(ribcage #(x) #((top)) #("i12793")))
+                                       #(ribcage #(x) #((top)) #("i3940")))
                                       (hygiene guile))
-                                   (cons #{e1\ 12800}# #{e2\ 12801}#)))
-                           #{tmp\ 12795}#)
-                    ((lambda (#{tmp\ 12803}#)
-                       (if #{tmp\ 12803}#
-                         (apply (lambda (#{_\ 12809}#
-                                         #{out\ 12810}#
-                                         #{in\ 12811}#
-                                         #{e1\ 12812}#
-                                         #{e2\ 12813}#)
+                                   (cons #{e1\ 3947}# #{e2\ 3948}#)))
+                           #{tmp\ 3942}#)
+                    ((lambda (#{tmp\ 3950}#)
+                       (if #{tmp\ 3950}#
+                         (apply (lambda (#{_\ 3956}#
+                                         #{out\ 3957}#
+                                         #{in\ 3958}#
+                                         #{e1\ 3959}#
+                                         #{e2\ 3960}#)
                                   (list '#(syntax-object
                                            syntax-case
                                            ((top)
                                             #(ribcage
                                               #(_ out in e1 e2)
                                               #((top) (top) (top) (top) (top))
-                                              #("i12804"
-                                                "i12805"
-                                                "i12806"
-                                                "i12807"
-                                                "i12808"))
+                                              #("i3951"
+                                                "i3952"
+                                                "i3953"
+                                                "i3954"
+                                                "i3955"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
-                                              #("i12793")))
+                                              #("i3940")))
                                            (hygiene guile))
-                                        #{in\ 12811}#
+                                        #{in\ 3958}#
                                         '()
-                                        (list #{out\ 12810}#
+                                        (list #{out\ 3957}#
                                               (cons '#(syntax-object
                                                        begin
                                                        ((top)
@@ -11802,27 +11713,27 @@
                                                             (top)
                                                             (top)
                                                             (top))
-                                                          #("i12804"
-                                                            "i12805"
-                                                            "i12806"
-                                                            "i12807"
-                                                            "i12808"))
+                                                          #("i3951"
+                                                            "i3952"
+                                                            "i3953"
+                                                            "i3954"
+                                                            "i3955"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
-                                                          #("i12793")))
+                                                          #("i3940")))
                                                        (hygiene guile))
-                                                    (cons #{e1\ 12812}#
-                                                          #{e2\ 12813}#)))))
-                                #{tmp\ 12803}#)
-                         ((lambda (#{tmp\ 12815}#)
-                            (if #{tmp\ 12815}#
-                              (apply (lambda (#{_\ 12821}#
-                                              #{out\ 12822}#
-                                              #{in\ 12823}#
-                                              #{e1\ 12824}#
-                                              #{e2\ 12825}#)
+                                                    (cons #{e1\ 3959}#
+                                                          #{e2\ 3960}#)))))
+                                #{tmp\ 3950}#)
+                         ((lambda (#{tmp\ 3962}#)
+                            (if #{tmp\ 3962}#
+                              (apply (lambda (#{_\ 3968}#
+                                              #{out\ 3969}#
+                                              #{in\ 3970}#
+                                              #{e1\ 3971}#
+                                              #{e2\ 3972}#)
                                        (list '#(syntax-object
                                                 syntax-case
                                                 ((top)
@@ -11833,16 +11744,16 @@
                                                      (top)
                                                      (top)
                                                      (top))
-                                                   #("i12816"
-                                                     "i12817"
-                                                     "i12818"
-                                                     "i12819"
-                                                     "i12820"))
+                                                   #("i3963"
+                                                     "i3964"
+                                                     "i3965"
+                                                     "i3966"
+                                                     "i3967"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
-                                                   #("i12793")))
+                                                   #("i3940")))
                                                 (hygiene guile))
                                              (cons '#(syntax-object
                                                       list
@@ -11854,20 +11765,20 @@
                                                            (top)
                                                            (top)
                                                            (top))
-                                                         #("i12816"
-                                                           "i12817"
-                                                           "i12818"
-                                                           "i12819"
-                                                           "i12820"))
+                                                         #("i3963"
+                                                           "i3964"
+                                                           "i3965"
+                                                           "i3966"
+                                                           "i3967"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
-                                                         #("i12793")))
+                                                         #("i3940")))
                                                       (hygiene guile))
-                                                   #{in\ 12823}#)
+                                                   #{in\ 3970}#)
                                              '()
-                                             (list #{out\ 12822}#
+                                             (list #{out\ 3969}#
                                                    (cons '#(syntax-object
                                                             begin
                                                             ((top)
@@ -11882,11 +11793,11 @@
                                                                  (top)
                                                                  (top)
                                                                  (top))
-                                                               #("i12816"
-                                                                 "i12817"
-                                                                 "i12818"
-                                                                 "i12819"
-                                                                 "i12820"))
+                                                               #("i3963"
+                                                                 "i3964"
+                                                                 "i3965"
+                                                                 "i3966"
+                                                                 "i3967"))
                                                              #(ribcage
                                                                ()
                                                                ()
@@ -11894,53 +11805,53 @@
                                                              #(ribcage
                                                                #(x)
                                                                #((top))
-                                                               #("i12793")))
+                                                               #("i3940")))
                                                             (hygiene guile))
-                                                         (cons #{e1\ 12824}#
-                                                               #{e2\ 
12825}#)))))
-                                     #{tmp\ 12815}#)
+                                                         (cons #{e1\ 3971}#
+                                                               #{e2\ 
3972}#)))))
+                                     #{tmp\ 3962}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
-                                #{tmp\ 12794}#)))
+                                #{tmp\ 3941}#)))
                           ($sc-dispatch
-                            #{tmp\ 12794}#
+                            #{tmp\ 3941}#
                             '(any #(each (any any)) any . each-any)))))
                      ($sc-dispatch
-                       #{tmp\ 12794}#
+                       #{tmp\ 3941}#
                        '(any ((any any)) any . each-any)))))
                 ($sc-dispatch
-                  #{tmp\ 12794}#
+                  #{tmp\ 3941}#
                   '(any () any . each-any))))
-             #{x\ 12792}#))
+             #{x\ 3939}#))
           (module-name (current-module)))))
 
 (define syntax-rules
   (make-syntax-transformer
     'syntax-rules
     'macro
-    (cons (lambda (#{x\ 12829}#)
-            ((lambda (#{tmp\ 12831}#)
-               ((lambda (#{tmp\ 12832}#)
-                  (if #{tmp\ 12832}#
-                    (apply (lambda (#{_\ 12838}#
-                                    #{k\ 12839}#
-                                    #{keyword\ 12840}#
-                                    #{pattern\ 12841}#
-                                    #{template\ 12842}#)
+    (cons (lambda (#{x\ 3976}#)
+            ((lambda (#{tmp\ 3978}#)
+               ((lambda (#{tmp\ 3979}#)
+                  (if #{tmp\ 3979}#
+                    (apply (lambda (#{_\ 3985}#
+                                    #{k\ 3986}#
+                                    #{keyword\ 3987}#
+                                    #{pattern\ 3988}#
+                                    #{template\ 3989}#)
                              (list '#(syntax-object
                                       lambda
                                       ((top)
                                        #(ribcage
                                          #(_ k keyword pattern template)
                                          #((top) (top) (top) (top) (top))
-                                         #("i12833"
-                                           "i12834"
-                                           "i12835"
-                                           "i12836"
-                                           "i12837"))
+                                         #("i3980"
+                                           "i3981"
+                                           "i3982"
+                                           "i3983"
+                                           "i3984"))
                                        #(ribcage () () ())
-                                       #(ribcage #(x) #((top)) #("i12830")))
+                                       #(ribcage #(x) #((top)) #("i3977")))
                                       (hygiene guile))
                                    '(#(syntax-object
                                        x
@@ -11948,13 +11859,13 @@
                                         #(ribcage
                                           #(_ k keyword pattern template)
                                           #((top) (top) (top) (top) (top))
-                                          #("i12833"
-                                            "i12834"
-                                            "i12835"
-                                            "i12836"
-                                            "i12837"))
+                                          #("i3980"
+                                            "i3981"
+                                            "i3982"
+                                            "i3983"
+                                            "i3984"))
                                         #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i12830")))
+                                        #(ribcage #(x) #((top)) #("i3977")))
                                        (hygiene guile)))
                                    (vector
                                      '(#(syntax-object
@@ -11963,13 +11874,13 @@
                                           #(ribcage
                                             #(_ k keyword pattern template)
                                             #((top) (top) (top) (top) (top))
-                                            #("i12833"
-                                              "i12834"
-                                              "i12835"
-                                              "i12836"
-                                              "i12837"))
+                                            #("i3980"
+                                              "i3981"
+                                              "i3982"
+                                              "i3983"
+                                              "i3984"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i12830")))
+                                          #(ribcage #(x) #((top)) #("i3977")))
                                          (hygiene guile))
                                        .
                                        #(syntax-object
@@ -11978,13 +11889,13 @@
                                           #(ribcage
                                             #(_ k keyword pattern template)
                                             #((top) (top) (top) (top) (top))
-                                            #("i12833"
-                                              "i12834"
-                                              "i12835"
-                                              "i12836"
-                                              "i12837"))
+                                            #("i3980"
+                                              "i3981"
+                                              "i3982"
+                                              "i3983"
+                                              "i3984"))
                                           #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i12830")))
+                                          #(ribcage #(x) #((top)) #("i3977")))
                                          (hygiene guile)))
                                      (cons '#(syntax-object
                                               patterns
@@ -12000,34 +11911,34 @@
                                                    (top)
                                                    (top)
                                                    (top))
-                                                 #("i12833"
-                                                   "i12834"
-                                                   "i12835"
-                                                   "i12836"
-                                                   "i12837"))
+                                                 #("i3980"
+                                                   "i3981"
+                                                   "i3982"
+                                                   "i3983"
+                                                   "i3984"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x)
                                                  #((top))
-                                                 #("i12830")))
+                                                 #("i3977")))
                                               (hygiene guile))
-                                           #{pattern\ 12841}#))
+                                           #{pattern\ 3988}#))
                                    (cons '#(syntax-object
                                             syntax-case
                                             ((top)
                                              #(ribcage
                                                #(_ k keyword pattern template)
                                                #((top) (top) (top) (top) (top))
-                                               #("i12833"
-                                                 "i12834"
-                                                 "i12835"
-                                                 "i12836"
-                                                 "i12837"))
+                                               #("i3980"
+                                                 "i3981"
+                                                 "i3982"
+                                                 "i3983"
+                                                 "i3984"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
-                                               #("i12830")))
+                                               #("i3977")))
                                             (hygiene guile))
                                          (cons '#(syntax-object
                                                   x
@@ -12043,20 +11954,20 @@
                                                        (top)
                                                        (top)
                                                        (top))
-                                                     #("i12833"
-                                                       "i12834"
-                                                       "i12835"
-                                                       "i12836"
-                                                       "i12837"))
+                                                     #("i3980"
+                                                       "i3981"
+                                                       "i3982"
+                                                       "i3983"
+                                                       "i3984"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
-                                                     #("i12830")))
+                                                     #("i3977")))
                                                   (hygiene guile))
-                                               (cons #{k\ 12839}#
-                                                     (map (lambda (#{tmp\ 
12846}#
-                                                                   #{tmp\ 
12845}#)
+                                               (cons #{k\ 3986}#
+                                                     (map (lambda (#{tmp\ 
3993}#
+                                                                   #{tmp\ 
3992}#)
                                                             (list (cons 
'#(syntax-object
                                                                            
dummy
                                                                            
((top)
@@ -12071,11 +11982,11 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                              
#("i12833"
-                                                                               
 "i12834"
-                                                                               
 "i12835"
-                                                                               
 "i12836"
-                                                                               
 "i12837"))
+                                                                              
#("i3980"
+                                                                               
 "i3981"
+                                                                               
 "i3982"
+                                                                               
 "i3983"
+                                                                               
 "i3984"))
                                                                             
#(ribcage
                                                                               
()
                                                                               
()
@@ -12083,10 +11994,10 @@
                                                                             
#(ribcage
                                                                               
#(x)
                                                                               
#((top))
-                                                                              
#("i12830")))
+                                                                              
#("i3977")))
                                                                            
(hygiene
                                                                              
guile))
-                                                                        #{tmp\ 
12845}#)
+                                                                        #{tmp\ 
3992}#)
                                                                   (list 
'#(syntax-object
                                                                            
syntax
                                                                            
((top)
@@ -12101,11 +12012,11 @@
                                                                                
 (top)
                                                                                
 (top)
                                                                                
 (top))
-                                                                              
#("i12833"
-                                                                               
 "i12834"
-                                                                               
 "i12835"
-                                                                               
 "i12836"
-                                                                               
 "i12837"))
+                                                                              
#("i3980"
+                                                                               
 "i3981"
+                                                                               
 "i3982"
+                                                                               
 "i3983"
+                                                                               
 "i3984"))
                                                                             
#(ribcage
                                                                               
()
                                                                               
()
@@ -12113,47 +12024,47 @@
                                                                             
#(ribcage
                                                                               
#(x)
                                                                               
#((top))
-                                                                              
#("i12830")))
+                                                                              
#("i3977")))
                                                                            
(hygiene
                                                                              
guile))
-                                                                        #{tmp\ 
12846}#)))
-                                                          #{template\ 12842}#
-                                                          #{pattern\ 
12841}#))))))
-                           #{tmp\ 12832}#)
+                                                                        #{tmp\ 
3993}#)))
+                                                          #{template\ 3989}#
+                                                          #{pattern\ 
3988}#))))))
+                           #{tmp\ 3979}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 12831}#)))
+                      #{tmp\ 3978}#)))
                 ($sc-dispatch
-                  #{tmp\ 12831}#
+                  #{tmp\ 3978}#
                   '(any each-any . #(each ((any . any) any))))))
-             #{x\ 12829}#))
+             #{x\ 3976}#))
           (module-name (current-module)))))
 
 (define let*
   (make-syntax-transformer
     'let*
     'macro
-    (cons (lambda (#{x\ 12847}#)
-            ((lambda (#{tmp\ 12849}#)
-               ((lambda (#{tmp\ 12850}#)
-                  (if (if #{tmp\ 12850}#
-                        (apply (lambda (#{let*\ 12856}#
-                                        #{x\ 12857}#
-                                        #{v\ 12858}#
-                                        #{e1\ 12859}#
-                                        #{e2\ 12860}#)
-                                 (and-map identifier? #{x\ 12857}#))
-                               #{tmp\ 12850}#)
+    (cons (lambda (#{x\ 3994}#)
+            ((lambda (#{tmp\ 3996}#)
+               ((lambda (#{tmp\ 3997}#)
+                  (if (if #{tmp\ 3997}#
+                        (apply (lambda (#{let*\ 4003}#
+                                        #{x\ 4004}#
+                                        #{v\ 4005}#
+                                        #{e1\ 4006}#
+                                        #{e2\ 4007}#)
+                                 (and-map identifier? #{x\ 4004}#))
+                               #{tmp\ 3997}#)
                         #f)
-                    (apply (lambda (#{let*\ 12867}#
-                                    #{x\ 12868}#
-                                    #{v\ 12869}#
-                                    #{e1\ 12870}#
-                                    #{e2\ 12871}#)
-                             (letrec ((#{f\ 12874}#
-                                        (lambda (#{bindings\ 12875}#)
-                                          (if (null? #{bindings\ 12875}#)
+                    (apply (lambda (#{let*\ 4014}#
+                                    #{x\ 4015}#
+                                    #{v\ 4016}#
+                                    #{e1\ 4017}#
+                                    #{e2\ 4018}#)
+                             (letrec ((#{f\ 4021}#
+                                        (lambda (#{bindings\ 4022}#)
+                                          (if (null? #{bindings\ 4022}#)
                                             (cons '#(syntax-object
                                                      let
                                                      ((top)
@@ -12161,7 +12072,7 @@
                                                       #(ribcage
                                                         #(f bindings)
                                                         #((top) (top))
-                                                        #("i12872" "i12873"))
+                                                        #("i4019" "i4020"))
                                                       #(ribcage
                                                         #(let* x v e1 e2)
                                                         #((top)
@@ -12169,25 +12080,25 @@
                                                           (top)
                                                           (top)
                                                           (top))
-                                                        #("i12862"
-                                                          "i12863"
-                                                          "i12864"
-                                                          "i12865"
-                                                          "i12866"))
+                                                        #("i4009"
+                                                          "i4010"
+                                                          "i4011"
+                                                          "i4012"
+                                                          "i4013"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
-                                                        #("i12848")))
+                                                        #("i3995")))
                                                      (hygiene guile))
                                                   (cons '()
-                                                        (cons #{e1\ 12870}#
-                                                              #{e2\ 12871}#)))
-                                            ((lambda (#{tmp\ 12880}#)
-                                               ((lambda (#{tmp\ 12881}#)
-                                                  (if #{tmp\ 12881}#
-                                                    (apply (lambda (#{body\ 
12884}#
-                                                                    #{binding\ 
12885}#)
+                                                        (cons #{e1\ 4017}#
+                                                              #{e2\ 4018}#)))
+                                            ((lambda (#{tmp\ 4027}#)
+                                               ((lambda (#{tmp\ 4028}#)
+                                                  (if #{tmp\ 4028}#
+                                                    (apply (lambda (#{body\ 
4031}#
+                                                                    #{binding\ 
4032}#)
                                                              (list 
'#(syntax-object
                                                                       let
                                                                       ((top)
@@ -12196,8 +12107,8 @@
                                                                            
binding)
                                                                          
#((top)
                                                                            
(top))
-                                                                         
#("i12882"
-                                                                           
"i12883"))
+                                                                         
#("i4029"
+                                                                           
"i4030"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -12207,8 +12118,8 @@
                                                                            
bindings)
                                                                          
#((top)
                                                                            
(top))
-                                                                         
#("i12872"
-                                                                           
"i12873"))
+                                                                         
#("i4019"
+                                                                           
"i4020"))
                                                                        
#(ribcage
                                                                          #(let*
                                                                            x
@@ -12220,11 +12131,11 @@
                                                                            
(top)
                                                                            
(top)
                                                                            
(top))
-                                                                         
#("i12862"
-                                                                           
"i12863"
-                                                                           
"i12864"
-                                                                           
"i12865"
-                                                                           
"i12866"))
+                                                                         
#("i4009"
+                                                                           
"i4010"
+                                                                           
"i4011"
+                                                                           
"i4012"
+                                                                           
"i4013"))
                                                                        
#(ribcage
                                                                          ()
                                                                          ()
@@ -12232,57 +12143,57 @@
                                                                        
#(ribcage
                                                                          #(x)
                                                                          
#((top))
-                                                                         
#("i12848")))
+                                                                         
#("i3995")))
                                                                       (hygiene
                                                                         guile))
-                                                                   (list 
#{binding\ 12885}#)
-                                                                   #{body\ 
12884}#))
-                                                           #{tmp\ 12881}#)
+                                                                   (list 
#{binding\ 4032}#)
+                                                                   #{body\ 
4031}#))
+                                                           #{tmp\ 4028}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression 
failed to match any pattern"
-                                                      #{tmp\ 12880}#)))
+                                                      #{tmp\ 4027}#)))
                                                 ($sc-dispatch
-                                                  #{tmp\ 12880}#
+                                                  #{tmp\ 4027}#
                                                   '(any any))))
-                                             (list (#{f\ 12874}#
-                                                     (cdr #{bindings\ 12875}#))
-                                                   (car #{bindings\ 
12875}#)))))))
-                               (#{f\ 12874}#
-                                 (map list #{x\ 12868}# #{v\ 12869}#))))
-                           #{tmp\ 12850}#)
+                                             (list (#{f\ 4021}#
+                                                     (cdr #{bindings\ 4022}#))
+                                                   (car #{bindings\ 
4022}#)))))))
+                               (#{f\ 4021}#
+                                 (map list #{x\ 4015}# #{v\ 4016}#))))
+                           #{tmp\ 3997}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
-                      #{tmp\ 12849}#)))
+                      #{tmp\ 3996}#)))
                 ($sc-dispatch
-                  #{tmp\ 12849}#
+                  #{tmp\ 3996}#
                   '(any #(each (any any)) any . each-any))))
-             #{x\ 12847}#))
+             #{x\ 3994}#))
           (module-name (current-module)))))
 
 (define do
   (make-syntax-transformer
     'do
     'macro
-    (cons (lambda (#{orig-x\ 12886}#)
-            ((lambda (#{tmp\ 12888}#)
-               ((lambda (#{tmp\ 12889}#)
-                  (if #{tmp\ 12889}#
-                    (apply (lambda (#{_\ 12897}#
-                                    #{var\ 12898}#
-                                    #{init\ 12899}#
-                                    #{step\ 12900}#
-                                    #{e0\ 12901}#
-                                    #{e1\ 12902}#
-                                    #{c\ 12903}#)
-                             ((lambda (#{tmp\ 12905}#)
-                                ((lambda (#{tmp\ 12906}#)
-                                   (if #{tmp\ 12906}#
-                                     (apply (lambda (#{step\ 12908}#)
-                                              ((lambda (#{tmp\ 12909}#)
-                                                 ((lambda (#{tmp\ 12910}#)
-                                                    (if #{tmp\ 12910}#
+    (cons (lambda (#{orig-x\ 4033}#)
+            ((lambda (#{tmp\ 4035}#)
+               ((lambda (#{tmp\ 4036}#)
+                  (if #{tmp\ 4036}#
+                    (apply (lambda (#{_\ 4044}#
+                                    #{var\ 4045}#
+                                    #{init\ 4046}#
+                                    #{step\ 4047}#
+                                    #{e0\ 4048}#
+                                    #{e1\ 4049}#
+                                    #{c\ 4050}#)
+                             ((lambda (#{tmp\ 4052}#)
+                                ((lambda (#{tmp\ 4053}#)
+                                   (if #{tmp\ 4053}#
+                                     (apply (lambda (#{step\ 4055}#)
+                                              ((lambda (#{tmp\ 4056}#)
+                                                 ((lambda (#{tmp\ 4057}#)
+                                                    (if #{tmp\ 4057}#
                                                       (apply (lambda ()
                                                                (list 
'#(syntax-object
                                                                         let
@@ -12290,7 +12201,7 @@
                                                                          
#(ribcage
                                                                            
#(step)
                                                                            
#((top))
-                                                                           
#("i12907"))
+                                                                           
#("i4054"))
                                                                          
#(ribcage
                                                                            #(_
                                                                              
var
@@ -12306,13 +12217,13 @@
                                                                              
(top)
                                                                              
(top)
                                                                              
(top))
-                                                                           
#("i12890"
-                                                                             
"i12891"
-                                                                             
"i12892"
-                                                                             
"i12893"
-                                                                             
"i12894"
-                                                                             
"i12895"
-                                                                             
"i12896"))
+                                                                           
#("i4037"
+                                                                             
"i4038"
+                                                                             
"i4039"
+                                                                             
"i4040"
+                                                                             
"i4041"
+                                                                             
"i4042"
+                                                                             
"i4043"))
                                                                          
#(ribcage
                                                                            ()
                                                                            ()
@@ -12320,7 +12231,7 @@
                                                                          
#(ribcage
                                                                            
#(orig-x)
                                                                            
#((top))
-                                                                           
#("i12887")))
+                                                                           
#("i4034")))
                                                                         
(hygiene
                                                                           
guile))
                                                                      
'#(syntax-object
@@ -12329,7 +12240,7 @@
                                                                          
#(ribcage
                                                                            
#(step)
                                                                            
#((top))
-                                                                           
#("i12907"))
+                                                                           
#("i4054"))
                                                                          
#(ribcage
                                                                            #(_
                                                                              
var
@@ -12345,13 +12256,13 @@
                                                                              
(top)
                                                                              
(top)
                                                                              
(top))
-                                                                           
#("i12890"
-                                                                             
"i12891"
-                                                                             
"i12892"
-                                                                             
"i12893"
-                                                                             
"i12894"
-                                                                             
"i12895"
-                                                                             
"i12896"))
+                                                                           
#("i4037"
+                                                                             
"i4038"
+                                                                             
"i4039"
+                                                                             
"i4040"
+                                                                             
"i4041"
+                                                                             
"i4042"
+                                                                             
"i4043"))
                                                                          
#(ribcage
                                                                            ()
                                                                            ()
@@ -12359,19 +12270,19 @@
                                                                          
#(ribcage
                                                                            
#(orig-x)
                                                                            
#((top))
-                                                                           
#("i12887")))
+                                                                           
#("i4034")))
                                                                         
(hygiene
                                                                           
guile))
                                                                      (map list
-                                                                          
#{var\ 12898}#
-                                                                          
#{init\ 12899}#)
+                                                                          
#{var\ 4045}#
+                                                                          
#{init\ 4046}#)
                                                                      (list 
'#(syntax-object
                                                                               
if
                                                                               
((top)
                                                                                
#(ribcage
                                                                                
  #(step)
                                                                                
  #((top))
-                                                                               
  #("i12907"))
+                                                                               
  #("i4054"))
                                                                                
#(ribcage
                                                                                
  #(_
                                                                                
    var
@@ -12387,13 +12298,13 @@
                                                                                
    (top)
                                                                                
    (top)
                                                                                
    (top))
-                                                                               
  #("i12890"
-                                                                               
    "i12891"
-                                                                               
    "i12892"
-                                                                               
    "i12893"
-                                                                               
    "i12894"
-                                                                               
    "i12895"
-                                                                               
    "i12896"))
+                                                                               
  #("i4037"
+                                                                               
    "i4038"
+                                                                               
    "i4039"
+                                                                               
    "i4040"
+                                                                               
    "i4041"
+                                                                               
    "i4042"
+                                                                               
    "i4043"))
                                                                                
#(ribcage
                                                                                
  ()
                                                                                
  ()
@@ -12401,7 +12312,7 @@
                                                                                
#(ribcage
                                                                                
  #(orig-x)
                                                                                
  #((top))
-                                                                               
  #("i12887")))
+                                                                               
  #("i4034")))
                                                                               
(hygiene
                                                                                
 guile))
                                                                            
(list '#(syntax-object
@@ -12410,7 +12321,7 @@
                                                                                
      #(ribcage
                                                                                
        #(step)
                                                                                
        #((top))
-                                                                               
        #("i12907"))
+                                                                               
        #("i4054"))
                                                                                
      #(ribcage
                                                                                
        #(_
                                                                                
          var
@@ -12426,13 +12337,13 @@
                                                                                
          (top)
                                                                                
          (top)
                                                                                
          (top))
-                                                                               
        #("i12890"
-                                                                               
          "i12891"
-                                                                               
          "i12892"
-                                                                               
          "i12893"
-                                                                               
          "i12894"
-                                                                               
          "i12895"
-                                                                               
          "i12896"))
+                                                                               
        #("i4037"
+                                                                               
          "i4038"
+                                                                               
          "i4039"
+                                                                               
          "i4040"
+                                                                               
          "i4041"
+                                                                               
          "i4042"
+                                                                               
          "i4043"))
                                                                                
      #(ribcage
                                                                                
        ()
                                                                                
        ()
@@ -12440,17 +12351,17 @@
                                                                                
      #(ribcage
                                                                                
        #(orig-x)
                                                                                
        #((top))
-                                                                               
        #("i12887")))
+                                                                               
        #("i4034")))
                                                                                
     (hygiene
                                                                                
       guile))
-                                                                               
  #{e0\ 12901}#)
+                                                                               
  #{e0\ 4048}#)
                                                                            
(cons '#(syntax-object
                                                                                
     begin
                                                                                
     ((top)
                                                                                
      #(ribcage
                                                                                
        #(step)
                                                                                
        #((top))
-                                                                               
        #("i12907"))
+                                                                               
        #("i4054"))
                                                                                
      #(ribcage
                                                                                
        #(_
                                                                                
          var
@@ -12466,13 +12377,13 @@
                                                                                
          (top)
                                                                                
          (top)
                                                                                
          (top))
-                                                                               
        #("i12890"
-                                                                               
          "i12891"
-                                                                               
          "i12892"
-                                                                               
          "i12893"
-                                                                               
          "i12894"
-                                                                               
          "i12895"
-                                                                               
          "i12896"))
+                                                                               
        #("i4037"
+                                                                               
          "i4038"
+                                                                               
          "i4039"
+                                                                               
          "i4040"
+                                                                               
          "i4041"
+                                                                               
          "i4042"
+                                                                               
          "i4043"))
                                                                                
      #(ribcage
                                                                                
        ()
                                                                                
        ()
@@ -12480,18 +12391,18 @@
                                                                                
      #(ribcage
                                                                                
        #(orig-x)
                                                                                
        #((top))
-                                                                               
        #("i12887")))
+                                                                               
        #("i4034")))
                                                                                
     (hygiene
                                                                                
       guile))
                                                                                
  (append
-                                                                               
    #{c\ 12903}#
+                                                                               
    #{c\ 4050}#
                                                                                
    (list (cons '#(syntax-object
                                                                                
                   doloop
                                                                                
                   ((top)
                                                                                
                    #(ribcage
                                                                                
                      #(step)
                                                                                
                      #((top))
-                                                                               
                      #("i12907"))
+                                                                               
                      #("i4054"))
                                                                                
                    #(ribcage